SUBROUTINE  ADJLOC (ADJUST)   
    
      INTEGER  LOWWF, LTLNA, LLPOOL, LLNAME, LMOVEP, LBSS   
      INTEGER  LEXEQU, LNLEQU   
      COMMON   /LCON/   LOWWF, LTLNA, LLPOOL, LLNAME, LMOVEP, LBSS  
      COMMON   /LCON/   LEXEQU, LNLEQU  
      INTEGER     ADJUST
      IF (.NOT. (ADJUST .NE. 0))GO TO 13074 
    
      CALL LIST (LBSS, ADJUST, 0)   
      CALL SETLCI   
13074 CONTINUE  
    
      RETURN
      END