diff options
-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 ----------------------------------- |