SUBROUTINE UPDATE (LOC, NBYTES, MAX)  
      INTEGER            LOC, NBYTES, MAX   
      INTEGER TS
      LOC = LOC + NBYTES
      TS = ISHFT (LOC, -1) - ISHFT (MAX, -1)
      IF (.NOT. (TS .GT. 0))GO TO 13094 
    
      MAX = LOC 
      GO TO 13095   
13094 CONTINUE  
    
      IF (.NOT. (TS .EQ. 0 .AND. IAND (LOC, 1) .NE. 0))GO TO 13096  
    
      MAX = LOC 
13096 CONTINUE  
    
13095 CONTINUE  
    
      RETURN
      END