*-- Author :    Stephen J. Maxfield   21/11/92
      SUBROUTINE FHEPAR(K, ILIST, ZF, CU, PH, TH, X0, Y0)
*                                                                                                             
*     Calculate track parameters for the ITRK'th track from the                                               
*     Slopes and intercepts of the R-z and Phi-z fits.                                                        
*     INPUT: Track number K                                                                                   
*            ILIST track type (1-rad-based/2=pla-based)                                                       
*            ZF  z of first measured point                                                                    
*                                                                                                             
*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.                                                                                                        
*