From 327bd7574b3b1eb30b9ae90e620c43a91a4c2506 Mon Sep 17 00:00:00 2001
From: lanfer <lanfer@4451c3c6-1034-4891-99ea-21147727ccdf>
Date: Thu, 16 Sep 1999 18:09:57 +0000
Subject: adding additional argument for Rad.BC call

git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyF77/trunk@24 4451c3c6-1034-4891-99ea-21147727ccdf
---
 src/WaveToy.F77 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/WaveToy.F77 b/src/WaveToy.F77
index fdf5dcb..c6036a0 100644
--- a/src/WaveToy.F77
+++ b/src/WaveToy.F77
@@ -152,7 +152,7 @@ c     -----------------------------------
       else if (CCTK_EQUALS(bound,"zero")) then
          call ApplyConstantBC(ierr,cctkGH,zero,sw,"wavetoyf77::phi_next")
       else if (CCTK_Equals(bound,"radiation").eq.1) then
-         call ApplyRadiativeBC(ierr,cctkGH,zero,sw,"wavetoyf77::phi_next",
+         call ApplyRadiativeBC(ierr,cctkGH,zero,zero,sw,"wavetoyf77::phi_next",
      &	      "wavetoy::phi")
       end if
 
-- 
cgit v1.2.3