LOGICAL FUNCTION NLTEST (INDEX, FLAG) 
      INTEGER     INDEX, FLAG   
    
      INTEGER     NLIST (500)   
      INTEGER     NLOC  (500)   
      INTEGER     NTEXT (1500)  
      INTEGER     NTEXTX (500)  
      COMMON   /NARAY/  NLIST   
      COMMON   /NARAY/  NLOC
      COMMON   /NARAY/  NTEXT   
      COMMON   /NARAY/  NTEXTX  
      NLTEST = IAND (NLIST (INDEX), FLAG) .NE. 0
      RETURN
      END