*-- Author :    Stephen J. Maxfield   17/11/92
         SUBROUTINE FPLSG
*KEEP,FPTFLG.                                                                                                 
      COMMON/FPTFLG/IPLAR, NIT, IREZ, LUNFP, NPLMAX                     
*KEND.                                                                                                        
*        Unpack planar data to PLANAR H1WORK common          *                                                
         CALL FPUDAT
*        Pattern recognise PLANAR Segments.                                                                   
         CALL FPSEG
*        Make planar segment banks, FPSG etc.                                                                 
         CALL FPSOUT
         IF(IREZ.NE.0)CALL FPREZI                                       
                                                                        
         RETURN                                                         
         END                                                            
*