*-- Author : I.O. Skillicorn
      SUBROUTINE FTFIT
C     fit LINE SEGMENTS in phi-z,r-z                                                                          
C     use mean r in phi calculation                                                                           
C     AUTHOR   I.O.SKILLICORN                                                                                 
*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,FPTVTX.                                                                                                 
**the common/VERTEX/ becomes /VERTVV/ (in analogy to /VERTFF/) on the                                         
** 17/6/91, since it is in conflict with the VERTEX module (g.bernardi)                                       
** (note that all these common names should start by F in this deck...)                                       
*KEND.                                                                                                        
*                                                                                                             
*     segments to be joined agree in r within rcut                                                            
*     agree in phi within pcut / r ie within 0.5 cm                                                           
*     in drift. segments have no more than one z-plane in common                                              
*                                                                                                             
*     if(ee.lt.0.04)goto110                                                                                   
*                                                                                                             
*------------------------------------------                                                                   
C      PRINT5000,I,J,IPA                                                                                      
CDEB      PRINT 5001,SD                                                                                       
*------------------------------------------                                                                   
*                                                                                                             
      CALL FTFHQQ(NPLA,IPA,SD,ZVV,C1,C2,C3,
C     WRITE(*,*)PCOS,PSIN,PHZ,DPCOS,RI,R1                                                                     
C     STORE MEAN R OF LINE SEGMENT                                                                            
      CALL FTFHQQ(NPLA,IPA,SD,ZVV,C1,C2,C3,
C     WRITE(*,*)PCOS,PSIN,PHZ,DPCOS,RI,R1                                                                     
C     STORE MEAN R OF LINE SEGMENT                                                                            
*                                                                                                             
*                                                                                                             
*                                                                                                             
*