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/