*-- Author : Stephen J. Maxfield 18/06/92 SUBROUTINE FRPCHK *KEEP,BCS. *KEEP,H1EVDT. * * IDATA type of information (HEAD bank word 6) : * * 0 - real data H1 * 1 - MC data H1SIM * 2 - real data CERN tests * 3 - MC data ARCET * * MONTE = .TRUE. if IDATA=1 * KEVENT = event processed counter for H1REC * *KEEP,STFUNCT. * index of element before row number IROW * index of L'th element of row number IROW * L'th integer element of the IROW'th row of bank with index IND * L'th real element of the IROW'th row of bank with index IND *KEEP,FTFUNCT. * Statement functions for RADIAL Chamber data access. * Using Channel Number J * Module, Wedge-pair and Z-plane numbers... * Statement function for obtaining WEDGE numbers(0-47) of * wires at plus and minus ends of Cell numbers * Statement function for obtaining IOS wire number (1-36) * Statement functions for PLANAR Chamber data access. * Using Channel Number J * Module, orientation, W-cell and Z-plane numbers... * IPSMD in range 0:8 Planar module number. * * IOS wire number (runs from 0 to 36) * SB plane numbers (1-72) from cell number * Module, orientation, wire and (typical) cell number from plane * number in the range 1-72 (planars, radials and combined) *KEND. * Radial segment bank... IFRSG = NLINK('FRSG',0) * Planar segment bank... IFPSG = NLINK('FPSG',0) * Radial hit bank... IFRLC = NLINK('FRLC',0) * Locate FRG1 bank... IFRG1 = NLINK('FRG1',0) * Loop over the planar segments... * look for nearest radial segment...search in 'nearby' radials * only. * Now loop over the radial segments. Look for closest in Phi. * Planar prediction... * Now look at the rad seg which was closest in Phi... RR = RADIUS + FLOREN(RADIUS,ABS(DRIFT),DRFSGN) * Planar prediction... * Predicted drift... CALL SHS(300,0,DELR) CALL SHD(301,0,RP,DELR) CALL SHD(302,0,RP,RR) CALL SHS(310,0,DELD) CALL SHD(311,0,DPRED,DRIFT) CALL SHS(316,0,DELD) CALL SHS(317,0,DELD) * long projection... CALL SHS(303,0,DELR) CALL SHD(304,0,RP,DELR) CALL SHD(305,0,RP,RR) CALL SHS(312,0,DELD) CALL SHD(313,0,DPRED,DRIFT) * short projection... CALL SHS(306,0,DELR) CALL SHD(307,0,RP,DELR) CALL SHD(308,0,RP,RR) CALL SHS(314,0,DELD) CALL SHD(315,0,DPRED,DRIFT) * C 22/07/92 207221019 MEMBER NAME FPREZI (FTREC) M FVS