From c9e093838b2b1c2b0653399a1cb967a5e9c5a529 Mon Sep 17 00:00:00 2001
From: lanfer <lanfer@f5a6acaf-da7d-456b-b0a8-35edbc60b392>
Date: Tue, 18 Jan 2000 14:44:12 +0000
Subject: debug statement moved

git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/IDScalarWave/trunk@23 f5a6acaf-da7d-456b-b0a8-35edbc60b392
---
 src/WaveBinary.F77 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/WaveBinary.F77 b/src/WaveBinary.F77
index 980e5f7..1cd3ccc 100644
--- a/src/WaveBinary.F77
+++ b/src/WaveBinary.F77
@@ -150,7 +150,6 @@ c     Things to do on first iteration
       if (firstcall.eq.1) then
 	 charge_factor = 3.0d0*binary_charge/
      $                   (4.0d0*3.1415*binary_size*binary_size*binary_size)
-         write(*,*) "Charge: ",charge_factor
       end if
 
  
@@ -246,6 +245,7 @@ c     the min/max index we actually own (no ghostzones).
             if (((firstcall.eq.1).and.(CCTK_EQUALS(binary_verbose,"yes")))
      $           .or.(CCTK_EQUALS(binary_verbose,"debug"))) then
                write (*,*)
+               write (*,*) "Charge: ",charge_factor
                write (*,*) "Charge center: xs,ys,zs ", xs,ys,zs
                write (*,*) "Charge extension: "
                write (*,*) "   x-extension: ",xs-binary_size, xs+binary_size 
-- 
cgit v1.2.3