diff options
author | allen <allen@4451c3c6-1034-4891-99ea-21147727ccdf> | 2000-07-12 11:50:27 +0000 |
---|---|---|
committer | allen <allen@4451c3c6-1034-4891-99ea-21147727ccdf> | 2000-07-12 11:50:27 +0000 |
commit | 5009fdaf68af56e6241b08ca7e9da53bd2bd6172 (patch) | |
tree | 2877659b595d98d14dfee7b7bc5be1f1a16178b7 /src | |
parent | 020b175c9d88d9b858447b26ff55863a4841de7a (diff) |
Beta 8 name changes
git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyF77/trunk@55 4451c3c6-1034-4891-99ea-21147727ccdf
Diffstat (limited to 'src')
-rw-r--r-- | src/WaveToy.F77 | 22 |
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 |