*-- Author :  R. Henderson
      SUBROUTINE FPIPRT
C                                                                                                             
C---  Routine prints out planars digitizings found in Ians new                                                
C---  simulation code                                                                                         
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,FPLSEG.                                                                                                 
C---                                                                                                          
C---                                                                                                          
*KEND.                                                                                                        
C---                                                                                                          
*KEEP,FPCLUS.                                                                                                 
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,FPPRNT.                                                                                                 
C---                                                                                                          
*KEND.                                                                                                        
C---                                                                                                          
C      WRITE(*,*)'  IM #SEGS ',IM,NFSEG(IM)                                                                   
C      WRITE(*,*)' MODULE ,# SEGS ',IM,NS                                                                     
C     TO ORDER ( IN A STUPID WAY)                                                                             
C      WRITE(*,*)' LINES ',IM,IS,PRCHI(IS,IM),(IDGISG(KK,IS,IM),KK=1,12)                                      
C     1 ' MASK ',MASKSG(IS,IM)                                                                                
C---                                                                                                          
*