'HEAD'  NAME LIST FLAG TEST
C     EDIT DATE   14JAN79  09:16
C     SOURCE FILE NLTESTAJH.FS
C     AUTHOR      A. J. HOWARD
C     CLUSTER     23
      'OUTFILE'   NLTESTAJH.FR
      LOGICAL FUNCTION NLTEST (INDEX, FLAG)
      INTEGER     INDEX, FLAG
      'INCLUDE'   NLARAYFTM.IN,
      NLTEST = IAND (NLIST (INDEX), FLAG) .NE. 0
      RETURN
      END
      'OUTFILE'   NLSETAJH.FR
      SUBROUTINE  NLSET (INDEX, FLAG)
      INTEGER     INDEX, FLAG
      'INCLUDE'   NLARAYFTM.IN,
      IF (INDEX .NE. 0) ^
         NLIST (INDEX) = IOR (NLIST (INDEX), FLAG)
      RETURN
      END
      'OUTFILE'   NLVALAJH.FR
      SUBROUTINE  NLVAL (INDEX, VALUE, MASK)
      INTEGER     INDEX, VALUE, MASK
      'INCLUDE'   NLARAYFTM.IN,
      IF (INDEX .NE. 0) ^
         NLIST (INDEX) = IOR (IAND (NLIST (INDEX), NOT (MASK) ), ^
                              VALUE)
      RETURN
      END
      'OUTFILE' INDNAMFTM.FR
C     SUBROUTINE INDNAM
C
C     FORMS A TWO-LETTER NAME EXTENSION FOR COMPILER
C     TEMPORARY LABELS, BASED ON INDEX;  THE BASE IS
C     'AA'.
C
      INTEGER FUNCTION INDNAM (INDEX, DEFLC, SIZE)
      'INCLUDE'   NLISTCFTM.IN,
      'INCLUDE'   NLNAMEFTM.IN,
      'INCLUDE'   LCFUNCAJH.IN,
      'INCLUDE'   LCONSTAJH.IN,
      'INCLUDE'   LOGOSAJH.IN,

      INTEGER     INDEX, DEFLC, SIZE
      INTEGER     TS, ITS, AS
      INTEGER     SNMLST
      DATA        AS /'AA'/
      CALL RBOTH (DEFLC)
      ITS = MOD (INDEX, 26)
      TS = INDEX/26
      INDEX = INDEX + 1
      NAME (2) = ISHFT (ITS, 8) + TS + AS
      FNLX = SNMLST (DUMMY)
      CALL NDEFN
      INDNAM = NLX
      'IF' (SIZE .NE. 0)
         CALL LIST (LBSS, SIZE, 0)
         LC = LC + SIZE
         CALL RBOTH (CODE)
         'ENDIF'
      RETURN
      END