*-- Author : I.O.Skillicorn SUBROUTINE FTPRTR **: FTPRTR 30907 RP. Farm changes. **---------------------------------------------------------------------- * * Calculate track parameters and fill lists of hits for the * Single-Planar extrapolated tracks. * *KEEP,FRDIMS. *KEEP,FH1WORK. * Planar geometry * * Radial geometry * * Radial data... * * Planar Data * * Pointers into DIGI bank for IOS labelled hits * * Track segment data * * Fit data * * *KEEP,FPPRAM. C C--- MAXSEG is maximum number of segments per supermodule C--- MAXCON is maximum number of amibiguous segments associatable with C--- one segment C--- LIMSTO is maximum number of 2 cluster planes intersections to be C--- stored per supermodule C--- MSEGLM is maximum number of clusters that can be found before C--- connectivity considered C--- MAXCLU is maximum number of clusters that can be found after C--- forming non-connected set MUST BE 50 IF RUN WITH OLD RCW C--- (cluster = 3/4 digits found in a straight line in one C--- 4-wire orientation) C C--- *KEEP,FPLSEG. C--- C--- *KEND. * * Single planar module associated with one or more radial modules CALL SHS(712,0,10.0) CALL SHS(716,0,10.0) C RADIAL POINTERS C PLANAR POINTERS C NUMBER RADS/SINGLE PLANAR CALL SHS(712,0,FLOAT(NRR)+20.01) C FILL BANKS WITH STR LINES THROUGH PLANARS C DISTANCES IN MM HERE FOR RCWH C BACK TO CMS C * PRINT 2000,ISM,ISMP,K,ISGP(ISM,K), * 1 (IRPT(I,K,ISM),I=1,12), * 1 (IABS(IDGISG(II,IP,ISMP)),II=1,12) * From now on, this is diagnostic stuff... * C COUNT UNUSED SEGMENTS CALL SHS(714,0,FLOAT(15+ISM)+0.01) CALL SHS(714,0,FLOAT( 5+ISM)+0.01) C WRITE(*,*)' MOD,#SEGS ',ISM,NSS CALL SHS(714,0,FLOAT(10+ISM)+0.01) CALL SHS(714,0,FLOAT(ISM)+0.01) C CHECK PLANAR EFFICIENCY FOR R1-R2 TRACKS CALL SHS(715,0,1.01) C R1-R2 TRACK C P2 PRESENT CALL SHS(715,0,2.01) C P3 PRESENT CALL SHS(715,0,3.01) C CHECK PLANAR EFFICIENCY FOR R1-R2-R3 TRACKS C R1-R2-R3 TRACK CALL SHS(715,0,10.1) C P1 PRESENT CALL SHS(715,0,11.01) C P2 PRESENT CALL SHS(715,0,12.01) C P3 PRESENT CALL SHS(715,0,13.01) C CHECK RADIAL EFFICIENCY (XCHECK - SEE ALSO 710-FILLED FPKPKR) C CHECKED -OK C P1-P2 TRACK CALL SHS(715,0,20.01) C R1 PRESENT CALL SHS(715,0,21.01) C FINAL CHECK OF PLANARS C WRITE(*,*)' PLANARS 2M 3M R1P2 R2P3 ' CALL SHS(716,0,12.0) C TRACKS BASED ON LINKED PLANAR SEGMENTS - ACCEPT AS GOOD * PRINT 1003,I,(IPP(K,I),K=1,36),LPP(1,I),LPP(2,I),LPP(3,I) C PRINT 1010,I,(SPP(K,I),K=1,36) * PRINT 1004,I,(IRR(K,I),K=1,36),LRR(1,I),LRR(2,I),LRR(3,I) C PRINT 1010,I,(SRR(K,I),K=1,36) C TRY TIME-ZERO AND VELOCITY DETERMINATION C 4 FIT STR LINE C 5 " + VELOCITY FACTOR C 6 FIT PARABOLAE C 7 " + VELOCITY FACTOR C * CALL FTZFIT(TZZ,7,0.) * CALL FTVDET *