SUBROUTINE SLIST  
    
      INTEGER     NAME (9)  
      COMMON      /NLNAME/ NAME 
    
      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     NLIST (500)   
      INTEGER     NLOC  (500)   
      INTEGER     NTEXT (1500)  
      INTEGER     NTEXTX (500)  
      COMMON   /NARAY/  NLIST   
      COMMON   /NARAY/  NLOC
      COMMON   /NARAY/  NTEXT   
      COMMON   /NARAY/  NTEXTX  
      INTEGER     SRCHF, TS, ITS
      INTEGER     GETTX 
      SRCHF = 0 
    1 TS = GETTX (NLX)  
      IF (.NOT. (TS .NE. 0))GO TO 13010 
    
      DO  13012 ITS = 1, NLWRDS 
      IF (.NOT. (NTEXT (TS) .NE. NAME (ITS)))GO TO 13014
    
      NLX = NLX + 1 
      IF (.NOT. (NLX .LT. NLSTOP))GO TO 13016   
    
      IF (SRCHF .EQ. 0 .OR. NLX .LT. SRCHST) GO TO 1
      CALL FATAL (19)   
      GO TO 13017   
13016 CONTINUE  
    
      SRCHF = SRCHF + 1 
      NLX = NLSTRT  
      GO TO 1   
13017 CONTINUE  
    
      GO TO 13015   
13014 CONTINUE  
    
      TS = TS + 1   
13015 CONTINUE  
    
13012 CONTINUE  
    
13010 CONTINUE  
    
      RETURN
      END