From 5009fdaf68af56e6241b08ca7e9da53bd2bd6172 Mon Sep 17 00:00:00 2001
From: allen <allen@4451c3c6-1034-4891-99ea-21147727ccdf>
Date: Wed, 12 Jul 2000 11:50:27 +0000
Subject: Beta 8 name changes

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

(limited to 'src')

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
 
-- 
cgit v1.2.3