SUBROUTINE  PSEL (SELECT, HEADER) 
    
      INTEGER     ADDR,   ADRFLG, CUROP,  NEXTOP, CFLAG 
      INTEGER     PI,     XBBL,   XA,     XF,     XZERO,  DPVFLG
      INTEGER     LC,     LCI,    LODLCI, LODLCV, LDLCVO, MAXLCV
      INTEGER     NEXT,   NUMBER, I,      IOTYPE
      INTEGER     J,      K,      L,      LABNLX, M,      N 
      INTEGER     PSYMB,  SYMBOL, TOP,    VALFLG, QVALUE
      INTEGER     OPTOPX, OPNXTX, TOPX,   NEXTX 
      INTEGER     DUMMY,  OVCHN,  PEEKS 
      INTEGER     LO,     CI,     CO,     LOGICF, LOCSUP
      INTEGER     VAREF,  INPUTJ, LCTS,   CRUCNT, FLTCNT
      INTEGER ICLP05
      LOGICAL     ENDOK,CONEND  
      COMMON   /LOGOS/  ADDR,   ADRFLG, CUROP,  NEXTOP, CFLAG   
      COMMON   /LOGOS/  PI,     XBBL,   XA,     XF,     XZERO,  DPVFLG  
      COMMON   /LOGOS/  LC,     LCI,    LODLCI, LODLCV, LDLCVO, MAXLCV  
      COMMON   /LOGOS/  NEXT,   NUMBER, I,      IOTYPE  
      COMMON   /LOGOS/  J,      K,      L,      LABNLX, M,      N   
      COMMON   /LOGOS/  PSYMB,  SYMBOL, TOP,    VALFLG, QVALUE  
      COMMON   /LOGOS/  OPTOPX, OPNXTX, TOPX,   NEXTX   
      COMMON   /LOGOS/  DUMMY,  OVCHN,  PEEKS   
      COMMON   /LOGOS/  LO,     CI,     CO,     LOGICF, LOCSUP  
      COMMON   /LOGOS/  VAREF,  INPUTJ, LCTS,   CRUCNT, FLTCNT  
      COMMON   /LOGOS/  ICLP05  
      COMMON   /LOGOS/  ENDOK,CONEND
    
      INTEGER     LIST (499), NAMES (499), CT, BITS (6, 2)  
      INTEGER ICLP08
      COMMON      /PNACOM / LIST, NAMES, CT, BITS   
      COMMON      /PNACOM / ICLP08  
    
      INTEGER  NI,     NJ,     NK   
      INTEGER  NSIZE
      INTEGER  NLX,    FNLX,   REMNLX, OVNLX,  TNAME
      INTEGER  NLSTRT, NLSTOP, NLSIZE, SRCHST   
      INTEGER  NTSTRT   
      INTEGER  NTSTOP   
      INTEGER  NTSIZE   
      INTEGER  PARFLG   
      INTEGER  SPARFL   
      INTEGER  NLWRDS   
      INTEGER  TX   
      INTEGER  NLENO
      INTEGER  STDMD
      INTEGER  MSHIFT   
      INTEGER  REGCNT   
      INTEGER  NULLX
      INTEGER  STPTRX   
      INTEGER  SPMODE   
      INTEGER  DPMODE   
      INTEGER  SPECMD   
      INTEGER  ENFLAG   
      INTEGER  DFINED   
      INTEGER  CVALUE   
      INTEGER  NLXLCI   
      INTEGER  ENEXTD   
      INTEGER  NAMAT0   
      INTEGER  NAMCON   
      INTEGER  NLMODE   
      INTEGER  PARBIT   
      INTEGER  OPBIT
      INTEGER  LOCALB   
      INTEGER  REGBIT   
      INTEGER  EXTBIT   
      INTEGER  STRBIT   
      INTEGER  DPBIT
      INTEGER  CBIT 
      INTEGER  PBIT 
      INTEGER  EPBIT
      INTEGER  IOBIT
      INTEGER  ARBIT
      INTEGER  EXDBIT   
      INTEGER  TPLBIT   
      INTEGER  USEBIT   
      INTEGER  LCMASK   
      INTEGER  MDMASK   
      INTEGER  NAMLOC, REGNUM   
      COMMON   /NLIST/     NI   
      COMMON   /NLIST/     NJ   
      COMMON   /NLIST/     NK   
      COMMON   /NLIST/     NSIZE
      COMMON   /NLIST/     NLX  
      COMMON   /NLIST/     FNLX 
      COMMON   /NLIST/     REMNLX   
      COMMON   /NLIST/     OVNLX
      COMMON   /NLIST/     TNAME
      COMMON   /NLIST/     NLSTRT   
      COMMON   /NLIST/     NLSTOP   
      COMMON   /NLIST/     NLSIZE   
      COMMON   /NLIST/     SRCHST   
      COMMON   /NLIST/     NTSTRT   
      COMMON   /NLIST/     NTSTOP   
      COMMON   /NLIST/     NTSIZE   
      COMMON   /NLIST/     PARFLG   
      COMMON   /NLIST/     SPARFL   
      COMMON   /NLIST/     NLWRDS   
      COMMON   /NLIST/     TX   
      COMMON   /NLIST/     NLENO
      COMMON   /NLIST/     STDMD
      COMMON   /NLIST/     MSHIFT   
      COMMON   /NLIST/     REGCNT   
      COMMON   /NLIST/     NULLX
      COMMON   /NLIST/     STPTRX   
      COMMON   /NLIST/     SPMODE   
      COMMON   /NLIST/     DPMODE   
      COMMON   /NLIST/     SPECMD   
      COMMON   /NLIST/     ENFLAG   
      COMMON   /NLIST/     DFINED   
      COMMON   /NLIST/     CVALUE   
      COMMON   /NLIST/     NLXLCI   
      COMMON   /NLIST/     ENEXTD   
      COMMON   /NLIST/     NAMAT0   
      COMMON   /NLIST/     NAMCON   
      COMMON   /NLIST/     NLMODE   
      COMMON   /NLIST/     PARBIT   
      COMMON   /NLIST/     OPBIT
      COMMON   /NLIST/     LOCALB   
      COMMON   /NLIST/     REGBIT   
      COMMON   /NLIST/     EXTBIT   
      COMMON   /NLIST/     STRBIT   
      COMMON   /NLIST/     DPBIT
      COMMON   /NLIST/     CBIT 
      COMMON   /NLIST/     PBIT 
      COMMON   /NLIST/     EPBIT
      COMMON   /NLIST/     IOBIT
      COMMON   /NLIST/     ARBIT
      COMMON   /NLIST/     EXDBIT   
      COMMON   /NLIST/     TPLBIT   
      COMMON   /NLIST/     USEBIT   
      COMMON   /NLIST/     LCMASK   
      COMMON   /NLIST/     MDMASK   
      COMMON   /NLIST/     NAMLOC, REGNUM   
    
      INTEGER  LBUF (66)
      INTEGER  LCOUNT   
      INTEGER  PGECNT   
      INTEGER  UHEAD (15)   
      INTEGER  CHEAD (8)
      INTEGER ICLP09
      COMMON   /PRT/    LBUF
      COMMON   /PRT/    LCOUNT  
      COMMON   /PRT/    PGECNT  
      COMMON   /PRT/    UHEAD   
      COMMON   /PRT/    CHEAD   
      COMMON   /PRT/    ICLP09  
      INTEGER     HEADER (6), HEAD1 (2) 
      DATA        HEAD1 / 'NO','  ' /   
      IF (.NOT. (HEADER (1) .NE. 0))GO TO 13016 
    
      CALL EST (HEADER, LBUF, 1, 12)
      CALL SGLPRT   
      CALL EST (HEAD1, LBUF, 1, 3)  
      CALL EST (HEADER, LBUF, 4, 15)
13016 CONTINUE  
    
      K = 0 
      IF (.NOT. (CT .NE. 0))GO TO 13018 
    
      DO  13020 J = 1, CT   
      I = LIST (J)  
      NLX = NAMES (I)   
      CALL SELECT   
13020 CONTINUE  
    
13018 CONTINUE  
    
      IF (.NOT. (K .NE. 0))GO TO 13022  
    
      CALL SGLPRT   
13022 CONTINUE  
    
      CALL SGLPRT   
      RETURN
      END