*-- Author :  R. Henderson
      SUBROUTINE FPCPLN
C-------------------------------------------------------------                                                
C                                                                                                             
C---  routine calculates plane normal and constant                                                            
C---  for each cluster found by FPDIG4                                                                        
C                                                                                                             
C-------------------------------------------------------------                                                
C---                                                                                                          
*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---                                                                                                          
*KEND.                                                                                                        
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.                                                                                                        
C---                                                                                                          
*KEEP,FPCLUS.                                                                                                 
C---                                                                                                          
*KEND.                                                                                                        
C---                                                                                                          
*KEEP,FPLGEO.                                                                                                 
C---                                                                                                          
C---                                                                                                          
*KEND.                                                                                                        
C---                                                                                                          
C                                                                                                             
C---  Calculate the normals to the planes formed by the tracks                                                
C---  and four wires in the same orientation for each cluster in each                                         
C---  plane                                                                                                   
C                                                                                                             
C                                                                                                             
C---  calculate normals                                                                                       
C                                                                                                             
C                                                                                                             
C---  Normalize TPNORM                                                                                        
C                                                                                                             
C                                                                                                             
C---  Calculate the characteristic constant for this plane                                                    
C                                                                                                             
*