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