*-- Author :    Stephen J. Maxfield   21/11/92
        SUBROUTINE FILHTS(ITRK, ILIST,
*                                                                                                             
*     Builds lists of pointers into FRRE and FRPE banks for                                                   
*     hits on the track ITRK. ILIST tells which pointers to go                                                
*     for (rad-based tracks or pla-based tracks.                                                              
*                                                                                                             
*     The first radial and planar hit is found and the Z of the                                               
*     first hit (radial or planar) on the track (where the track                                              
*     parameters will be given)                                                                               
*                                                                                                             
*                                                                                                             
*                                                                                                             
*KEEP,BOSMDL.                                                                                                 
C     ------BOSMDL                                                                                            
C     ------                                                                                                  
*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,FRH3FT.                                                                                                 
*     Common for RETRAC results (SJM)                                                                         
*KEND.                                                                                                        
*         Planars                                                                                             
            CALL ERRLOG(125,'S:FILHTS: Planar pointer list corrupted')                                 
*         Radials                                                                                             
            CALL ERRLOG(126,'S:FILHTS: Radial pointer list corrupted')                                 
*