Updated boundary condition calls

git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyF90/trunk@49 f80f6fb6-8356-4fd4-90bc-d84ad503c100

1 files changed, 10 insertions, 11 deletions

diff --git a/src/WaveToy.F b/src/WaveToy.F
index f409e5c..bd434d8 100644
--- a/src/WaveToy.F
+++ b/src/WaveToy.F
@@ -19,8 +19,6 @@
    @desc 
                Evolution for the wave equation
    @enddesc 
-   @calls      CCTK_SyncGroup, wavetoy_boundaries
-   @calledby   
    @history 
  
    @endhistory 
@@ -96,8 +94,6 @@
    @desc 
                Boundary conditions for the wave equation
    @enddesc 
-   @calls      FlatBCVar,RadiativeBCVar
-   @calledby   
    @history 
  
    @endhistory 
@@ -112,22 +108,25 @@
       DECLARE_CCTK_PARAMETERS
       DECLARE_CCTK_FUNCTIONS
 
-      integer :: ierr
+      integer i
+      integer :: ierr=-1
       integer,dimension(3):: sw=1
-      double precision,parameter :: zero = 0.0
-      double precision,parameter :: one = 1.0
-      
+      CCTK_REAL,parameter :: zero = 0.0
+      CCTK_REAL,parameter :: one = 1.0
+
       call CartSymGN(ierr,cctkGH,"wavetoy::scalarevolve")
 
       if (CCTK_EQUALS(bound,"flat")) then
-         call FlatBCVar(ierr,cctkGH,sw,"wavetoy::phi")
+         call BndFlatVN(ierr,cctkGH,sw,"wavetoy::phi")
+      else if (CCTK_EQUALS(bound,"zero")) then
+         call BndScalarVN(ierr,cctkGH,zero,sw,"wavetoy::phi")
       else if (CCTK_EQUALS(bound,"radiation")) then
-         call RadiativeBCVar(ierr,cctkGH,zero,one,sw,
+         call BndRadiativeVN(ierr,cctkGH,sw,zero,one,
      &        "wavetoy::phi","wavetoy::phi")
       end if
 
       if (ierr < 0)  then
-        call CCTK_WARN(0,"Boundary conditions not applied - giving up!")
+        call CCTK_WARN(0,"WaveToyF90_Boundaries: Error in boundary routines - giving up!")
       end if
 
       end subroutine WaveToyF90_Boundaries