acou3df90.f90 | acou3df90.f90 | |||
---|---|---|---|---|
SUBROUTINE acoustic3d_f90(N, niters, check) | SUBROUTINE acoustic3d_f90(N, niters, check) | |||
INTEGER, INTENT( IN ) :: N, niters | INTEGER, INTENT( IN ) :: N, niters | |||
REAL, INTENT( OUT ) :: check | REAL, INTENT( OUT ) :: check | |||
REAL, DIMENSION (N,N,N) :: P1, P2, P3, c | REAL, DIMENSION (N,N,N) :: P1, P2, P3, c | |||
INTEGER iter | INTEGER iter | |||
CALL acoustic3d_f90_setup(P1, P2, P3, c, N) | CALL acoustic3d_f90_setup(P1, P2, P3, c, N) | |||
DO iter=1, niters | DO iter=1, niters | |||
P3(2:N-1,2:N-1,2:N-1) = (2-6*c(2:N-1,2:N-1,2:N-1)) & | P3(2:N-1,2:N-1,2:N-1) = (2-6*c(2:N-1,2:N-1,2:N-1)) & | |||
End of changes. 1 change blocks. | ||||
0 lines changed or deleted | 1 lines changed or added | |||
This html diff was produced by rfcdiff 1.41. The latest version is available from http://tools.ietf.org/tools/rfcdiff/ |