From b7923f428fd0ca7d64f788f292c71820f74985eb Mon Sep 17 00:00:00 2001
From: goodale <goodale@5c0f84ea-6048-4d6e-bfa4-55cd5f2e0dd7>
Date: Sun, 24 Oct 1999 15:47:21 +0000
Subject: Initialise the wave center.

Tom


git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/IDLinearWaves/trunk@36 5c0f84ea-6048-4d6e-bfa4-55cd5f2e0dd7
---
 src/teukwaves.F | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/teukwaves.F b/src/teukwaves.F
index eb65488..e5df827 100644
--- a/src/teukwaves.F
+++ b/src/teukwaves.F
@@ -81,8 +81,9 @@ c     the parameter variables to the variables of CAC3.0, to allow for
 c     easy portation (wavepulse stays wavepulse btw). (GERD)
       
       amp  = amplitude
-      m   = mvalue
-      wave= wavelength
+      m    = mvalue
+      wave = wavelength
+      ra   = wavecenter
       
 c     to be consistent with Evans & Abrahams, rescale the amplitude
 c     by kappa, because they use that in the packet and
-- 
cgit v1.2.3