From 63f139165b83a7432616db71f74c80b57b7cd65f Mon Sep 17 00:00:00 2001
From: schnetter <>
Date: Sat, 28 Aug 2004 17:10:00 +0000
Subject: Correct grid spacing.

darcs-hash:20040828171033-07bb3-1cb8951a49757ded795cebbbe0151d090257d275.gz
---
 CarpetExtra/WaveToyFO/src/calcrhs.F77 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/CarpetExtra/WaveToyFO/src/calcrhs.F77 b/CarpetExtra/WaveToyFO/src/calcrhs.F77
index c141654a0..55734ed1e 100644
--- a/CarpetExtra/WaveToyFO/src/calcrhs.F77
+++ b/CarpetExtra/WaveToyFO/src/calcrhs.F77
@@ -1,4 +1,4 @@
-c     $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/WaveToyFO/src/calcrhs.F77,v 1.7 2004/05/07 22:06:08 schnetter Exp $
+c     $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/WaveToyFO/src/calcrhs.F77,v 1.8 2004/08/28 19:10:33 schnetter Exp $
 
 #include "cctk.h"
 #include "cctk_Arguments.h"
@@ -74,7 +74,7 @@ c$$$         WaveToyFO_Deriv = (- 3*f0 + 4*fp1 - fp2) / (2*dx)
       end do
       
       do d=1,3
-         dx(d) = CCTK_DELTA_SPACE(3)
+         dx(d) = CCTK_DELTA_SPACE(d)
       end do
       
       do k=imin(3),imax(3)
-- 
cgit v1.2.3