From 5afefab8fa05d588fb736aa640ffd9e9d3d67196 Mon Sep 17 00:00:00 2001
From: allen <allen@4451c3c6-1034-4891-99ea-21147727ccdf>
Date: Sat, 22 Jul 2000 07:29:38 +0000
Subject: Pass in variables instead of numbers into boundary function

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

diff --git a/src/WaveToy.F77 b/src/WaveToy.F77
index 37650e6..5fa457b 100644
--- a/src/WaveToy.F77
+++ b/src/WaveToy.F77
@@ -111,6 +111,8 @@ c     ----------------
 
 c     Local declarations
       CCTK_REAL zero,one
+      CCTK_REAL finf
+      integer npow
       integer ierr
       integer sw(3)
 
@@ -118,6 +120,9 @@ c     Local declarations
       zero = 0.0
       one = 1.0
 
+      npow = 1
+      finf = 1.0d0
+
 c     Set the stencil width
 c     ---------------------
       sw(1)=1  
@@ -138,8 +143,7 @@ c     -----------------------------------
          call BndRadiativeVN(ierr,cctkGH,sw,zero,one,"wavetoy::phi",
      &	      "wavetoy::phi")
       else if (CCTK_Equals(bound,"robin").eq.1) then
-         call BndRobinVN(ierr,cctkGH, sw, 1.0d0,1,
-     &        "wavetoy::phi")
+         call BndRobinVN(ierr,cctkGH, sw, finf, npow,"wavetoy::phi")
       end if
 
       if (ierr < 0)  then
-- 
cgit v1.2.3