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