From 1afac693505d5570067119b110f98f6e8d2c7443 Mon Sep 17 00:00:00 2001
From: lanfer <lanfer@f5a6acaf-da7d-456b-b0a8-35edbc60b392>
Date: Tue, 25 Jan 2000 15:45:58 +0000
Subject: big fix

git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/IDScalarWave/trunk@25 f5a6acaf-da7d-456b-b0a8-35edbc60b392
---
 src/WaveBinary.F77 | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/src/WaveBinary.F77 b/src/WaveBinary.F77
index 1cd3ccc..81659fb 100644
--- a/src/WaveBinary.F77
+++ b/src/WaveBinary.F77
@@ -38,6 +38,12 @@ c     Declare parameters
       CCTK_REAL xs,ys,zs,rad
       CCTK_REAL zmin,zmax,charge_factor
 
+c     Set up shorthands
+c     -----------------
+      dx = CCTK_DELTA_SPACE(1)
+      dy = CCTK_DELTA_SPACE(2)
+      dz = CCTK_DELTA_SPACE(3)
+      dt = CCTK_DELTA_TIME
 
       charge_factor = 3.0d0*binary_charge/
      $     (4.0d0*3.1415*binary_size*binary_size*binary_size)	
@@ -47,12 +53,6 @@ c     Declare parameters
       ys = binary_radius * sin(binary_omega*(cctk_time-dt))
       zs = (zmax-zmin)/2 +zmin
  
-c     Set up shorthands
-c     -----------------
-      dx = CCTK_DELTA_SPACE(1)
-      dy = CCTK_DELTA_SPACE(2)
-      dz = CCTK_DELTA_SPACE(3)
-      dt = CCTK_DELTA_TIME
 
       istart = 2
       jstart = 2
-- 
cgit v1.2.3