*-- 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