*-- Author : S.J. Maxfield
      SUBROUTINE FPTZER
*===============================================================*                                             
*                                                               *                                             
*     Zero some arrays etc. before processing each event        *                                             
*                                                               *                                             
*===============================================================*                                             
*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                                                                                                 
*                                                                                                             
*                                                                                                             
*KEND.                                                                                                        
      CALL VZERO(NDP,LNARR)                                                                            
      CALL VZERO(NDPW,LNARR)                                                                           
      CALL VZERO(IPFRRE,LNARR)                                                                         
      CALL VZERO(IPFRPE,LNARR)                                                                         
      CALL VZERO(IRPIOS,LNARR)                                                                         
      CALL VZERO(IPPIOS,LNARR)                                                                         
*