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 /src/InitSymBound.F90 | |
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
Diffstat (limited to 'src/InitSymBound.F90')
-rw-r--r-- | src/InitSymBound.F90 | 5 |
1 files changed, 3 insertions, 2 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 |