C C ________________________________________________________ C | | C | EQUATE OLD TO NEW AND EVALUATE DIF AND SIZE | C |________________________________________________________| C SUBROUTINE UPDATE(DIF,SIZE,NEW,OLD,N) INTEGER I,N REAL NEW(N),OLD(N),DIF,SIZE DIF = 0. SIZE = 0. DO 10 I = 1,N DIF = DIF + ABS(NEW(I)-OLD(I)) SIZE = SIZE + ABS(NEW(I)) OLD(I) = NEW(I) 10 CONTINUE RETURN END