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