diff options
| author | allen <allen@f80f6fb6-8356-4fd4-90bc-d84ad503c100> | 2000-05-10 11:56:17 +0000 |
|---|---|---|
| committer | allen <allen@f80f6fb6-8356-4fd4-90bc-d84ad503c100> | 2000-05-10 11:56:17 +0000 |
| commit | 9f7f2c282ac2c2f3521c022a84c7f12a2f073030 (patch) | |
| tree | 94f4f33ef06fc7f4d173d7b1fe7acfaf75565989 | |
| parent | cd6e782f0bb52b722771bcd165a9e85fd333845a (diff) | |
New names for macros calling fortran from C
Fixing names of deprecated symmetry boundary condition routines which
will be removed now
git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyF90/trunk@45 f80f6fb6-8356-4fd4-90bc-d84ad503c100
| -rw-r--r-- | src/InitSymBound.F | 3 | ||||
| -rw-r--r-- | src/WaveToy.F | 2 |
2 files changed, 3 insertions, 2 deletions
diff --git a/src/InitSymBound.F b/src/InitSymBound.F index 912f0e2..d077848 100644 --- a/src/InitSymBound.F +++ b/src/InitSymBound.F @@ -31,9 +31,10 @@ DECLARE_CCTK_ARGUMENTS + INTEGER :: ierr INTEGER, DIMENSION(3) :: sym = 1 - call SetCartSymmetry(cctkGH, sym, 'wavetoy::phi') + call SetCartSymVN(ierr, cctkGH, sym, 'wavetoy::phi') end subroutine WaveToyF90_InitSymbound diff --git a/src/WaveToy.F b/src/WaveToy.F index 59d52ca..b234128 100644 --- a/src/WaveToy.F +++ b/src/WaveToy.F @@ -117,7 +117,7 @@ CCTK_REAL,parameter :: zero = 0.0 CCTK_REAL,parameter :: one = 1.0 - call CartSymBCGroup(ierr,cctkGH,"wavetoy::scalarevolve") + call CartSymGN(ierr,cctkGH,"wavetoy::scalarevolve") if (CCTK_EQUALS(bound,"flat")) then call FlatBCVar(ierr,cctkGH,sw,"wavetoy::phi") |