From 47ce0ccdd290fbd82b17a022f30b883840ed068b Mon Sep 17 00:00:00 2001
From: goodale <goodale@4451c3c6-1034-4891-99ea-21147727ccdf>
Date: Thu, 6 May 2004 02:10:18 +0000
Subject: Making WaveToy versions more consistent.  This change also fixes the
 bug in some of the implementations whereby "zero" rather than "scalar" was
 passed to the boundary condition routines - PR 1676.

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

diff --git a/src/WaveToy.F77 b/src/WaveToy.F77
index 0f08c09..ad415c7 100644
--- a/src/WaveToy.F77
+++ b/src/WaveToy.F77
@@ -5,6 +5,7 @@
    @desc
               Evolution routines for the wave equation solver
    @enddesc 
+   @version $Header$
  @@*/
   
 #include "cctk.h"
@@ -113,31 +114,27 @@ c     ----------------
 c     Local declarations
       CCTK_INT ierr
 
+      CHARACTER*100 boundary
+      INTEGER length
+
       ierr = 0
 
+c     The "bound" parameter needs to be converted into a Fortran string.
+      call CCTK_FortranString(length,bound,boundary)
+
 c     Apply the outer boundary conditions
 c     -----------------------------------
 c     Note: In each of the following calls to Boundary_SelectVarForBC,
 c     default arguments are used, so an invalid table handle of -1 can
 c     be passed
-      if (CCTK_EQUALS(bound,"flat")) then
-         ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-     $        "wavetoy::phi", "Flat")
-      else if (CCTK_EQUALS(bound,"static")) then
+      if (CCTK_EQUALS(bound,"flat") .or. CCTK_EQUALS(bound,"static") .or.
+     $    CCTK_EQUALS(bound,"radiation") .or. CCTK_EQUALS(bound,"robin") .or.
+     $    CCTK_EQUALS(bound,"none") ) then
          ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-     $        "wavetoy::phi", "Static")
-      else if (CCTK_EQUALS(bound,"radiation")) then
-         ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-     $        "wavetoy::phi", "Radiation")
-      else if (CCTK_EQUALS(bound,"robin")) then
-         ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-     $        "wavetoy::phi", "Robin")
+     $        "wavetoy::phi", boundary)
       else if (CCTK_EQUALS(bound,"zero")) then
          ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
      $        "wavetoy::phi", "Scalar")
-      else if (CCTK_EQUALS(bound,"none")) then
-         ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-     $        "wavetoy::phi", "None")
       end if
 
       if (ierr .lt. 0)  then
-- 
cgit v1.2.3