1 !---------------------------------------------------------------------- 2 SUBROUTINE MARCHING(FOLD,FNEW,RHS,DS) 3 !---------------------------------------------------------------------- 4 ! 5 ! --- PRIME Version: 1.0 Level: 970812 MARCHING 6 ! X.(J.) Zhang, J. Scire, EARTH TECH 7 ! 8 ! --- PURPOSE: Marching S one step, either PREDICTOR or CORRECTOR 9 ! 10 ! --- INPUTS: 11 ! FOLD(7) - real - Old values 12 ! RHS(7) - real - Right hand terms 13 ! DS - real - Distance (m) along plume axis 14 ! 15 ! 16 ! --- OUTPUT: 17 ! FNEW(7) - real - New values 18 ! 19 ! --- MARCHING called by: NUMRISE 20 ! --- MARCHING calls: none 21 !---------------------------------------------------------------------- 22 DIMENSION FNEW(7) , FOLD(7) , RHS(7) 23 DO I = 1 , 7 !6441956 24 FNEW(I) = FOLD(I) + RHS(I)*DS ! 45093K 25 ENDDO 26 CONTINUE !6441956 27 END
HyperKWIC - Version 1.00DD executed at 20:00 on 1 Mar 2018 | Personal or Academic or Evaluation User | Free for Non-Commercial, Non-Government Use