Beta 8 name changes

git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyF77/trunk@55 4451c3c6-1034-4891-99ea-21147727ccdf

1 files changed, 6 insertions, 16 deletions

diff --git a/src/WaveToy.F77 b/src/WaveToy.F77
index cb5092f..836f2d5 100644
--- a/src/WaveToy.F77
+++ b/src/WaveToy.F77
@@ -7,14 +7,9 @@
    @enddesc 
  @@*/
   
-c Using Cactus infrastructure
 #include "cctk.h" 
-
-c Using Cactus parameters
-#include "cctk_parameters.h"
-
-c Using Cactus arguments lists
-#include "cctk_arguments.h"
+#include "cctk_Parameters.h"
+#include "cctk_Arguments.h"
 
 
  /*@@
@@ -100,7 +95,6 @@ c     ----------------
    @desc 
                Boundary conditions for the wave equation
    @enddesc 
-   @calls      CartSymGN,FlatBC,RadiativeBC 
    @history 
  
    @endhistory 
@@ -111,13 +105,8 @@ c     ----------------
 
       implicit none
 
-c     Declare arguement list
       DECLARE_CCTK_ARGUMENTS
-
-c     Declare parameters
       DECLARE_CCTK_PARAMETERS
-
-c     Declare functions
       DECLARE_CCTK_FUNCTIONS
 
 c     Local declarations
@@ -125,6 +114,7 @@ c     Local declarations
       integer ierr
       integer sw(3)
 
+      ierr = -1
       zero = 0.0
       one = 1.0
 
@@ -141,11 +131,11 @@ c     -------------------------------------------------------------
 c     Apply the outer boundary conditions
 c     -----------------------------------
       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 ConstantBCVar(ierr,cctkGH,zero,sw,"wavetoy::phi")
+         call BndScalarVN(ierr,cctkGH,zero,sw,"wavetoy::phi")
       else if (CCTK_Equals(bound,"radiation").eq.1) then
-         call RadiativeBCVar(ierr,cctkGH,zero,one,sw,"wavetoy::phi",
+         call BndRadiativeVN(ierr,cctkGH,sw,zero,one,"wavetoy::phi",
      &	      "wavetoy::phi")
       end if