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