FPUDAT COMMENTS
*-- Author : S.J. Maxfield
      SUBROUTINE FPUDAT
**: FPUDAT 40000 SM. New definition of dead wire flag.                                                        
**----------------------------------------------------------------------                                      
**: FPUDAT 30907 RP. Farm changes.                                                                            
C------------------------------------------------------------------                                           
*                                                                                                             
*     Unpack Digitisations from bank FRPE.                                                                    
*     Create intermediate bank FPLC containing local                                                          
*     coordinates                                                                                             
*                                                                                                             
*     Store hits in PLANAR H1WORK for Pattern Recognition                                                     
*                                                                                                             
*     Called once per event. Needs previous call to FTCORG                                                    
*     to create corrected geometry bank FPG1                                                                  
*                                                                                                             
*KEEP,BCS.                                                                                                    
*KEEP,CNSTBF.                                                                                                 
*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,FPH1WRK.                                                                                                
C--    *KEEP,FPCSEG.                                                                                          
C---                                                                                                          
C---                                                                                                          
C--    *KEEP,FPDIGI.                                                                                          
C---                                                                                                          
C--    *KEEP,FPDGI.                                                                                           
C---                                                                                                          
C--    *KEEP,FPSTID.                                                                                          
C---                                                                                                          
C--    *interface to real data                                                                                
C---.                                                                                                         
*KEND.                                                                                                        
*     Max allowable bad hit flag...(To be gotten from bank sometime)                                          
*     Locators for FPG1 bank                                                                                  
*     Locators for FPLC bank                                                                                  
*KEEP,STFUNCT.                                                                                                
*     index of element before row number IROW                                                                 
*     index of L'th element  of row number IROW                                                               
*     L'th integer element of the IROW'th row of bank with index IND                                          
*     L'th real element of the IROW'th row of bank with index IND                                             
*KEEP,STFCLW.                                                                                                 
* statement functions acting on the BOS COMMON LW                                                             
*     index of element before row number LWROW                                                                
*     index of L-th element of row number LWROW                                                               
*     L-th integer element of the LWROW'th row in bank with index LND                                         
*     L-th real element of the LWROW'th row in bank with index LND                                            
*                                                                                                             
*KEEP,FTFUNCT.                                                                                                
*     Statement functions for RADIAL Chamber data access.                                                     
*     Using Channel Number J                                                                                  
*     Module, Wedge-pair and Z-plane numbers...                                                               
*     Statement function for obtaining WEDGE numbers(0-47) of                                                 
*     wires at plus and minus ends of Cell numbers                                                            
*     Statement function for obtaining IOS wire number (1-36)                                                 
*     Statement functions for PLANAR Chamber data access.                                                     
*     Using Channel Number J                                                                                  
*     Module, orientation, W-cell and Z-plane numbers...                                                      
*     IPSMD in range 0:8 Planar module number.                                                                
*                                                                                                             
*     IOS wire number (runs from 0 to 36)                                                                     
* SB plane numbers (1-72) from cell number                                                                    
* Module, orientation, wire and (typical) cell number from plane                                              
* number in the range 1-72 (planars, radials and combined)                                                    
*KEND.                                                                                                        
*-------------------------------------------------------------------                                          
         IQFPLC = NAMIND('FPLC')
         IQFPG1 = NAMIND('FPG1')
      CALL VZERO(NDPW,NUMWPL)                                                                          
*                                                                                                             
        CALL ERRLOG(118,'S:FPUDAT: FPG1 bank not found')                                               
*     Extract Hits...                                                                                         
*         IOS wire planes numbered 1-36 through 3 Modules                                                     
*         increment number of hits in this wire plane...                                                      
           CALL ERRLOG(102,'W:FPTPDT: MAX HITS exceeded ')                                             
*          W-coordinate of wire...                                                                            
*          Drift in W, Error, flag...                                                                         
*          W-cell number of this hit...                                                                       
*                                                                                                             
*          relations between IOS labelling and FRRE bank...                                                   
*