SUBROUTINE LNAMES 
    
      INTEGER     NSIZE,  NAME(16), NTITLE  
      INTEGER     NFLAGS (512)  
      INTEGER     NADDRS (512)  
      INTEGER     NPOSIT (512)  
      INTEGER     NDATA  (512)  
      INTEGER     NTEXTX (512)  
      INTEGER     NTEXT  (1000) 
      INTEGER     NLX, NLSTRT, NLSTOP   
      INTEGER     TXSTRT, TXSTOP
      INTEGER     NTXBTS
      INTEGER     USEBIT, COMBIT, OVLBIT, EPTBIT
      INTEGER     LDMBIT, MODBIT, MLTBIT, RLSBIT
      INTEGER     GDFBIT, TYPBTS
      INTEGER     ATYPE 
      INTEGER      ICLP07   
      LOGICAL     OLDNAM
      COMMON      /NTABLE/ NSIZE, NAME, NTITLE  
      COMMON      /NTABLE/ NFLAGS, NADDRS, NPOSIT, NDATA, NTEXTX
      COMMON      /NTABLE/ NTEXT
      COMMON      /NTABLE/ NLX, NLSTRT, NLSTOP  
      COMMON      /NTABLE/ TXSTRT, TXSTOP   
      COMMON      /NTABLE/ NTXBTS   
      COMMON      /NTABLE/ USEBIT, COMBIT, OVLBIT, EPTBIT   
      COMMON      /NTABLE/ LDMBIT, MODBIT, MLTBIT, RLSBIT   
      COMMON      /NTABLE/ GDFBIT, TYPBTS   
      COMMON      /NTABLE/ ATYPE
      COMMON      /NTABLE/ ICLP07   
      COMMON      /NTABLE/ OLDNAM   
      INTEGER     I 
      DO  13068 I = 1,NLSTOP
      IF (.NOT. (NFLAGS(I).NE.0))GO TO 13070
    
      NFLAGS(I) = IOR (NFLAGS(I),LDMBIT)
13070 CONTINUE  
    
13068 CONTINUE  
    
      RETURN
      END