diff options
| author | allen <allen@daab82bb-f315-4ad1-b6d0-9353ff8b6e27> | 2000-05-10 11:56:18 +0000 |
|---|---|---|
| committer | allen <allen@daab82bb-f315-4ad1-b6d0-9353ff8b6e27> | 2000-05-10 11:56:18 +0000 |
| commit | 582028ec9bb2a7d509f2a93fec560d4b918e5611 (patch) | |
| tree | 949cf9849731dd533e5294aaea987e848d02093d | |
| parent | 6ba63f74aff5e48f8eb0d2dfde1053bbe3412d66 (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/WaveToyFreeF90/trunk@19 daab82bb-f315-4ad1-b6d0-9353ff8b6e27
| -rw-r--r-- | src/InitSymBound.F90 | 5 | ||||
| -rw-r--r-- | src/WaveToy.F90 | 8 |
2 files changed, 7 insertions, 6 deletions
diff --git a/src/InitSymBound.F90 b/src/InitSymBound.F90 index 2e8be89..8822a73 100644 --- a/src/InitSymBound.F90 +++ b/src/InitSymBound.F90 @@ -30,9 +30,10 @@ subroutine WaveToyFreeF90_InitSymBound(CCTK_ARGUMENTS) implicit none 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 WaveToyFreeF90_InitSymbound diff --git a/src/WaveToy.F90 b/src/WaveToy.F90 index 58e337f..c4e1f87 100644 --- a/src/WaveToy.F90 +++ b/src/WaveToy.F90 @@ -48,14 +48,14 @@ subroutine WaveToyFreeF90_Evolution(CCTK_ARGUMENTS) CCTK_REAL :: dx2i,dy2i,dz2i CCTK_REAL :: factor - + ! Set up shorthands ! ----------------- dx = CCTK_DELTA_SPACE(1) dy = CCTK_DELTA_SPACE(2) dz = CCTK_DELTA_SPACE(3) dt = CCTK_DELTA_TIME - + dx2 = dx*dx dy2 = dy*dy dz2 = dz*dz @@ -101,7 +101,7 @@ end subroutine WaveToyFreeF90_Evolution @desc Boundary conditions for the wave equation @enddesc - @calls FlatBC,RadiativeBC + @calls CartSymGH,FlatBC,RadiativeBC @calledby @history @@ -122,7 +122,7 @@ subroutine WaveToyFreeF90_Boundaries(CCTK_ARGUMENTS) 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") |