*-- Author :    Stephen J. Maxfield   17/11/92
         SUBROUTINE FPLSG
*KEEP,FPTFLG.                                                                                                 
*KEND.                                                                                                        
*        Unpack planar data to PLANAR H1WORK common          *                                                
         CALL FPUDAT
*        Pattern recognise PLANAR Segments.                                                                   
         CALL FPSEG
*        Make planar segment banks, FPSG etc.                                                                 
         CALL FPSOUT
*