diff options
| author | allen <allen@4451c3c6-1034-4891-99ea-21147727ccdf> | 2000-05-10 11:56:17 +0000 |
|---|---|---|
| committer | allen <allen@4451c3c6-1034-4891-99ea-21147727ccdf> | 2000-05-10 11:56:17 +0000 |
| commit | 020b175c9d88d9b858447b26ff55863a4841de7a (patch) | |
| tree | 2f4c194e205951e352531b1d66adbe934ec14f1e | |
| parent | 7f8bdd51e07ac3e7bdd3b3f229c482d0e9efdfd6 (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/WaveToyF77/trunk@53 4451c3c6-1034-4891-99ea-21147727ccdf
| -rw-r--r-- | src/InitSymBound.F77 | 3 | ||||
| -rw-r--r-- | src/WaveToy.F77 | 6 |
2 files changed, 5 insertions, 4 deletions
diff --git a/src/InitSymBound.F77 b/src/InitSymBound.F77 index cf5c2b4..9cc9271 100644 --- a/src/InitSymBound.F77 +++ b/src/InitSymBound.F77 @@ -33,13 +33,14 @@ INTEGER one PARAMETER (one = 1) + INTEGER ierr INTEGER sym(3) sym(1) = one sym(2) = one sym(3) = one - call SetCartSymmetry(cctkGH, sym,'wavetoy::phi') + call SetCartSymVN(ierr, cctkGH, sym,'wavetoy::phi') return end diff --git a/src/WaveToy.F77 b/src/WaveToy.F77 index 4a363a5..cb5092f 100644 --- a/src/WaveToy.F77 +++ b/src/WaveToy.F77 @@ -100,7 +100,7 @@ c ---------------- @desc Boundary conditions for the wave equation @enddesc - @calls CartSymBCGroup,FlatBC,RadiativeBC + @calls CartSymGN,FlatBC,RadiativeBC @history @endhistory @@ -130,13 +130,13 @@ c Local declarations c Set the stencil width c --------------------- - sw(1)=1 + sw(1)=1 sw(2)=1 sw(3)=1 c Apply the symmetry boundary conditions on any coordinate axes c ------------------------------------------------------------- - call CartSymBCGroup(ierr,cctkGH,"wavetoy::scalarevolve") + call CartSymGN(ierr,cctkGH,"wavetoy::scalarevolve") c Apply the outer boundary conditions c ----------------------------------- |