From a73da395ae52c96929ae1e6efab727bdc48e0447 Mon Sep 17 00:00:00 2001 From: allen Date: Wed, 18 Apr 2001 20:37:28 +0000 Subject: Updating timelevel names, and some formatting changes. git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyF77/trunk@72 4451c3c6-1034-4891-99ea-21147727ccdf --- src/WaveToy.F77 | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/WaveToy.F77 b/src/WaveToy.F77 index 5fa457b..ea38c8f 100644 --- a/src/WaveToy.F77 +++ b/src/WaveToy.F77 @@ -74,11 +74,11 @@ c ---------------- do j = jstart, jend do i = istart, iend - phi_n(i,j,k) = factor*phi(i,j,k) - - & phi_p(i,j,k) + (dt2) * - & ((phi(i+1,j,k)+phi(i-1,j,k))*dx2i - & +(phi(i,j+1,k)+phi(i,j-1,k))*dy2i - & +(phi(i,j,k+1)+phi(i,j,k-1))*dz2i) + phi(i,j,k) = factor*phi_p(i,j,k) - + & phi_p_p(i,j,k) + (dt2) * + & ((phi_p(i+1,j,k)+phi_p(i-1,j,k))*dx2i + & +(phi_p(i,j+1,k)+phi_p(i,j-1,k))*dy2i + & +(phi_p(i,j,k+1)+phi_p(i,j,k-1))*dz2i) end do end do -- cgit v1.2.3