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