1 : C P500 SOURCE CHAT 05/01/13 02:08:31 5004 2 : SUBROUTINE P500(D,U,G,R,N,DT) 3 : IMPLICIT INTEGER(I-N) 4 : IMPLICIT REAL*8 (A-H,O-Z) 5 : REAL*8 D(N),U(N),G(N),R(N) 6 : DO 1 I=1,N 7 : R(I)=U(I)-G(I)/D(I)*DT 8 : 1 CONTINUE 9 : RETURN 10 : END 11 :
© Cast3M 2003 - All rights reserved.
Disclaimer