+PATCH,$CORR. +DECK,CORR1. Updates version: 1.30/00 to 1.30/08 +REP,*TITLE*,TITLE,1. CBOFF 1.30/08 27/11/96 10.09.33 SE +REP,$VERSION,V1_30,1-2. *CMZU: 1.30/08 27/11/96 10.09.34 by Rafik Ouared *CMZ : 1.30/07 01/08/96 17.11.03 by Kaemmle *CMZ : 1.30/06 22/07/96 10.51.36 by Kaemmle *CMZ : 1.30/05 03/06/96 10.51.38 by Unknown *CMZ : 1.30/04 15/04/96 15.02.10 by Unknown *CMZ : 1.30/03 03/04/96 19.32.47 by Unknown *CMZ : 1.30/02 15/02/96 15.26.55 by Unknown *CMZ : 1.30/01 14/02/96 17.43.40 by Unknown *CMZU: 1.30/00 21/12/95 18.46.45 by Christian Voelcker *-- Author : Christian Voelcker 21/12/95 *________________________________________________________________________ * *::> VERSION 1.30/08 27/11/96 10.09.33 * add in the SVX calibration const. commons SVGCAL and SVECAL in seq SVCALI * CBINIT: turn on the SVX calibration (GTVTCC) * (was set to FALSE in previous version,is now set to TRUE) * CBSRUN: add in the code to pick up the calibration for the SVX * (look under GTVTCC and SVCALI) * CBSRIO: Add calib bank for SVX: KSV * * *::> VERSION 1.30/07 01/08/96 17.11.03 * new parameter for card BANK added DSTF * is the same as DSTN, but keeps the TCHT bank * *::> VERSION 1.30/06 22/07/96 10.51.36 * bug in use of CK- in datacard fixed * CK- now sets all fudge factors to 1.0 for each run * *::> VERSION 1.30/05 03/06/96 10.51.38 * update of installation script for solaris * *::> VERSION 1.30/04 15/04/96 15.02.10 * correction of common blocks which were only in local cmzfile * *::> VERSION 1.30/03 03/04/96 19.32.47 * TCLIFT modified to include to arrays: MTSV1,MTSV2 * as proposed by Rafik Ouared * *::> VERSION 1.30/02 15/02/96 15.26.54 * change of JDC TYPE from NEW to OLD disabled for runs > 21000 * *::> VERSION 1.30/01 14/02/96 17.43.40 * installed BK. * update of tapehandling for sun: * F.-H.Heinsius * routine CBTBOF changed +ADD,$VERSION,V1_30,51. +ADD,$KUMACS,INSTALL,0. *CMZU: 1.30/05 29/05/96 18.48.10 by F.-H.Heinsius +REP,$KUMACS,INSTALL,34. * SRC Source code directory +DEL,$KUMACS,INSTALL,41. +ADD,$KUMACS,INSTALL,96. (SOLARIS) Select SUN +REP,$KUMACS,INSTALL,122-124. XACL = -XACLP else XACL = -XADCLP +REP,$KUMACS,INSTALL,157-165. DEBUGCCC=' -dba' (HPUX,SGI,SUN,DECS,IBMRT,SOLARIS) DEBUGOPT=' -g -C' DEBUGCCC=' -g' (VAX) DEBUGOPT='/NOOP/DEB' DEBUGCCC='/NOOP/DEB' (ALPHA) Case $OS In (VMS) DEBUGOPT='/NOOP/DEB' DEBUGCCC='/NOOP/DEB' (UNIX) DEBUGOPT=' -g' DEBUGCCC=' -g' Endcase Endcase Else Case $OS In (VMS) DEBUGOPT=' ' DEBUGCCC=' ' (UNIX) DEBUGOPT=' -O ' DEBUGCCC=' -O ' Endcase +REP,$KUMACS,INSTALL,190-213. Set '`which g77` -c'//[DEBUGOPT]//' -w $compfile' -C f77 Set '`which gcc` -c'//[DEBUGCCC]//' -w $compfile' -C C else Case $MACHINE In (HPUX) Set 'f77 -c'//[DEBUGOPT]//' +ppu $compfile' -C f77 Set 'cc -c -O -w '//[DEBUGCCC]//' $compfile' -C C (SUN) Set 'f77 -c'//[DEBUGOPT]//' -fnonstd -Nl100 -w $compfile' -C f77 Set 'gcc -c'//[DEBUGCCC]//' -w $compfile' -C C (SOLARIS) Set 'f77 -c'//[DEBUGOPT]//' -w $compfile' -C f77 Set 'gcc -c'//[DEBUGCCC]//' -w $compfile' -C C (IBMRT) Set 'xlf -c'//[DEBUGOPT]//' -qextname $compfile' -C f77 Set 'cc -c -w '//[DEBUGCCC]//' $compfile' -C C (SGI) Set 'f77 -c'//[DEBUGOPT]//' $compfile G 3' -C f77 Set 'cc -c -w '//[DEBUGCCC]//' $compfile' -C C (DECS) Set 'f77 -c -w -Nl99 '//[DEBUGOPT]//' $compfile' -C f77 Set 'cc -c -w '//[DEBUGCCC]//' $compfile' -C C (VAX) Set 'FOR/OBJ=$compfile.OBJ'//[DEBUGOPT]//' $compfile' -C f77 Set 'CC/OBJ=$compfile.obj'//[DEBUGCCC]//' $compfile' -C C * (ALPHA) Case $OS In (VMS) Set 'FOR/SEPAR/OBJ=$compfile.OBJ'//[DEBUGOPT]//' $compfile' -C f77 Set 'CC/OBJ=$compfile.obj'//[DEBUGCCC]//' $compfile' -C C (UNIX) Set 'f77 -c -O -w -Nl99 '//[DEBUGOPT]//' $compfile' -C f77 Set 'cc -c -O -w '//[DEBUGCCC]//' $compfile' -C C Endcase +ADD,COMMCB,DBCOMMON,0. *CMZU: 1.30/08 15/11/96 16.13.47 by Michael Doser * added KSV for the vertex detector calibration +REP,COMMCB,DBCOMMON,24. & KSV,KPW, +REP,COMMCB,DBCOMMON,33. & KSV=28, KPW=29, +ADD,COMMCB,DBCOMMON,64. PARTCC(KSV) = 'SV' +ADD,COMMCB,TC_MACRO,0. *CMZU: 1.30/08 15/11/96 16.23.54 by Michael Doser *CMZ : 1.30/04 15/04/96 15.00.45 by Unknown *CMZ : 1.30/03 03/04/96 19.32.25 by Unknown +ADD,COMMCB,TC_MACRO,142. * 03/04/96 Bernd Kaemmle modifications of Rafik Ouared * TCLIFT modified to include 2 new arrays: MTSV1,MTSV2 * * 15-Nov-96 M.Doser * add in the SVX calibration const. commons SVGCAL and SVECAL * +ADD,COMMCB,TC_MACRO,222. INTEGER MTSV1(5),MTSV2(5) +ADD,COMMCB,TC_MACRO,229. & ,MTSV1,MTSV2 +DEL,COMMCB,TC_MACRO,821. +REP,COMMCB,TC_MACRO,921-939. * some new parameters * V3CHCT - TCVER3: 2-prong charge conservation flag:0=no cons.1=do cons. * VHBD - outlier rejection flag: 1-reject more outliers 0-reject normal outl * VHOR - outlier chi^2 threshold * VHSP - hit phi scaling factor * VHSZ - hit zed scaling factor * * The parameters that end in D are the Defaults * INTEGER V3MNHD INTEGER V3CHCD,VHBDD REAL V3COND, V3DISD, V3BACD REAL VHMCHD,VHGCHD,VHCFLD,VHERCD,VHCTD REAL VHORD, VHSPD, VHSZD PARAMETER ( V3COND = 0.0, V3DISD=20.0, V3BACD=100.0 ) PARAMETER ( V3MNHD = 7 ) PARAMETER ( VHMCHD = 50.0, VHGCHD = 1.8, VHCFLD = 0.0 ) PARAMETER ( VHERCD = 1.0, VHCTD = 0.001 ) PARAMETER ( V3CHCD = 1, VHBDD = 1) PARAMETER ( VHORD = 25.0, VHSPD = 0.917, VHSZD = 0.886 ) * INTEGER VERTVR,VFITVR,V3MNHT REAL V3CONF, V3DIST, V3BACK REAL VHMCH,VHGCH,VHCFL,VHERC, VHCT INTEGER V3CHCT,VHBDT REAL VHORT,VHSPT,VHSZT * COMMON /TCVTCM/ & VERTVR, VFITVR, & V3CONF, V3DIST, V3BACK, V3MNHT, & VHMCH, VHGCH, VHCFL, VHERC, VHCT, & V3CHCT, VHBDT, VHORT, VHSPT, VHSZT +ADD,COMMCB,TC_MACRO,946. &KEEP,SVCALI. * * common blocks for the SVX calibrations constants * * the first common deals with geometrical constants: * * SVXANG = rotation of strip #1 wrt JDC * SVXGDX,GDY,GDZ = shift of center of SVX wrt center of JDC * SVXGRD = radial distance of strip #1 (nominally 12 mm) * SVXDDX,DDY,DDZ = shift of each detector wrt nominal position * SVXDDA,DDB,DDG = rotation -"- (axis = x,y,z) * COMMON /SVGCAL/ SVXANG,SVXGDX,SVXGDY,SVXGDZ,SVXGRD, & SVXDDX(15),SVXDDY(15),SVXDDZ(15), & SVXDDA(15),SVXDDB(15),SVXDDG(15) REAL SVXANG,SVXGDX,SVXGDY,SVXGDZ,SVXGRD,SVXDDX, & SVXDDY,SVXDDZ,SVXDDA,SVXDDB,SVXDDG * the second with energy calibration constants * (back plane and strip side) * * COMMON / SVECAL / SVEBAK(15),SVESTR(15) * REAL SVEBAK,SVESTR +ADD,CBPHYS,CBINIT,0. *CMZU: 1.30/08 15/11/96 15.56.39 by Michael Doser * Mod. 14.11.96 Michael: turn on the SVX calibration (GTVTCC) *CMZ : 1.30/07 01/08/96 17.10.06 by Kaemmle +ADD,CBPHYS,CBINIT,73. * Mod. 14.11.96 Michael: turn on the SVX calibration (GTVTCC) * (was set to FALSE in previous version, * is now set to TRUE) +REP,CBPHYS,CBINIT,215. GTVTCC = .TRUE. ! set .TRUE. if calibration is availiable +ADD,CBPHYS,CBINIT,479. ELSEIF ( OUTBCB.EQ.4HDSTF ) THEN * new switch for hopefully final production * is the same as above HDSTN but TCHT is preserved * WRITE(LLOG,*) ' Writing Banks according to card BANK DSTF' IXRJDF = IXEVNT ! (JDC pulsshape) needs much cpu IXTJDC = IXEVNT IXTPWC = IXEVNT IXTVXT = IXEVNT * IXTCHT = IXEVNT ! keeping TCHT BANK IXTCTK = IXEVNT IXTCHX = IXEVNT IXTCVX = IXEVNT IXTBEF = IXEVNT !\ IXTBEL = IXEVNT ! \ IXTBEN = IXEVNT ! > can be restored by xtl card IXTBTK = IXEVNT ! / (uses little cpu-time) IXTBCL = IXEVNT !/ +ADD,CBPHYS,CBSRIO,0. *CMZU: 1.30/08 15/11/96 16.11.36 by Michael Doser +ADD,CBPHYS,CBSRIO,23. * Mod. 15-Nov-96 M.Doser * Add calib bank for SVX: KSV +ADD,CBPHYS,CBSRIO,55. DATA APART(KSV)/'SV | SVX pos. correction '/ +ADD,CBPHYS,CBSRUN,0. *CMZU: 1.30/08 15/11/96 16.20.30 by Michael Doser * - add in the code to pick up the calibration for the SVX * (look under GTVTCC and SVCALI) *CMZ : 1.30/07 23/07/96 11.28.26 by Kaemmle *CMZ : 1.30/06 22/07/96 10.51.11 by Kaemmle *CMZ : 1.30/03 15/02/96 15.39.41 by Unknown *CMZ : 1.30/02 15/02/96 15.26.21 by Unknown * - change of JDC TYPE from new to old JDC for runs .gt. 21000 * disabled +ADD,CBPHYS,CBSRUN,173. &SEQ,SVCALI. +REP,CBPHYS,CBSRUN,360-362. * change from new to old JDC * BK. * fix for some runs in jun 94 IF(IEHDCB(4) .GT. 21000 ) THEN WRITE(LLOG,*) & 'CBSRUN: Change from new to old JDC not allowed !' ELSE OLDJDC = .TRUE. CALL TCOLNW ENDIF ELSEIF(JDCTYP.EQ.1.AND.OLDJDC) THEN * change from old to new JDC +ADD,CBPHYS,CBSRUN,518. *_________________________________________________ * * get SVX geometry data * IF ( GTVTCC ) THEN CALL CCGETC(IRUN, IMVTCC, KSV, LCALB, IERR) IF ( IERR .EQ.0 ) THEN * New constants CALL CBSRIO(KSV) * (re)set variables. LLAST = LQ(LCALB-1) IF ( LLAST.GT.0) THEN IF ( IQ(LLAST+1) .EQ. 1) THEN SVXANG = Q(LLAST+2) SVXGDX = Q(LLAST+3) SVXGDY = Q(LLAST+4) SVXGDZ = Q(LLAST+5) SVXGRD = Q(LLAST+6) DO I = 1,15 SVXDDX(I) = Q(LLAST+6*I+1) SVXDDY(I) = Q(LLAST+6*I+2) SVXDDZ(I) = Q(LLAST+6*I+3) SVXDDA(I) = Q(LLAST+6*I+4) SVXDDB(I) = Q(LLAST+6*I+5) SVXDDG(I) = Q(LLAST+6*I+6) ENDDO ENDIF ENDIF CALL MZDROP(IXSAVE,LCALB,'L') LCALB=0 LLAST=0 ELSEIF ( IERR.EQ.1 ) THEN * old constants still valid ELSE * nothing in the data base. * if MC, why not ?! get the newest data base from cern immediately. IF (LTYPMC.AND.LGEOM.NE.0) THEN WRITE(LLOG,5998) 5998 FORMAT(' No entry in data base for SVX.',/, & ' Data base is out of date, get newest one from CERN.') ENDIF CALL CBSRIE(KSV,' alignment of detectors wrong') ENDIF ENDIF +REP,CBPHYS,CBSRUN,1987. TBCKCC= .TRUE. +ADD,CBPHYS,CBSRUN,1992. ELSE * set fudge factors to 1.0 , ignore database WRITE(LLOG,*) 'CK | ignoring constants from database: ' + //' using 1.0 (no error scaling)' TBCKCC= .TRUE. DO I=1,NFUDGE FUDGE(I) = 1. ENDDO +ADD,CBPHYS,ZBINIT,0. *CMZU: 1.30/01 23/01/96 16.22.40 by F.-H.Heinsius +REP,CBPHYS,ZBINIT,376-378. &SELF,IF=ALT,DECS,SUN,UNIX,IF=-ONLINE. * * +ADD,LABEL,CBTBOF,0. *CMZU: 1.30/01 23/01/96 16.21.16 by F.-H.Heinsius +REP,LABEL,CBTBOF,20-23. #ifndef sun cbt.mt_op=MTBSF; #endif cbt.mt_count=1; filedes=(int)*tape_device; #ifndef sun +ADD,LABEL,CBTBOF,42. #endif +ADD,CRA*,00_PATCH,*. &PATCH,CRA*. *CMZU: 1.30/08 27/11/96 10.08.48 by Rafik Ouared +ADD,CRA*,CORR1,*. &DECK,CORR1. Updates version: 1.30/07 *CMZU: 1.30/08 15/11/96 16.25.20 by Michael Doser *-- Author :