diff options
author | allen <allen@4451c3c6-1034-4891-99ea-21147727ccdf> | 1999-09-27 15:43:19 +0000 |
---|---|---|
committer | allen <allen@4451c3c6-1034-4891-99ea-21147727ccdf> | 1999-09-27 15:43:19 +0000 |
commit | 0bfdaad90c504d90b02ffcaf9dfa0468e41cc1f6 (patch) | |
tree | 07d67c95532cebd9ef8ab2753d3d60035c6ddca1 /src | |
parent | b470d774c999ea84fb42676d41cbace98f118aee (diff) |
Restructuring a litte
git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyF77/trunk@31 4451c3c6-1034-4891-99ea-21147727ccdf
Diffstat (limited to 'src')
-rw-r--r-- | src/WaveToy.F77 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/WaveToy.F77 b/src/WaveToy.F77 index 63df689..53cd99f 100644 --- a/src/WaveToy.F77 +++ b/src/WaveToy.F77 @@ -108,7 +108,7 @@ c ----------------- @desc Boundary conditions for the wave equation @enddesc - @calls ApplySymmetry,ApplyFlatBC,ApplyRadiativeBC + @calls CartSymBCGroup,FlatBC,RadiativeBC @history @endhistory @@ -144,7 +144,7 @@ c --------------------- c Apply the symmetry boundary conditions on any coordinate axes c ------------------------------------------------------------- - call ApplySymmetry(cctkGH,"wavetoyf77::scalartmps") + call CartSymBCGroup(ierr,cctkGH,"wavetoyf77::scalartmps") c Apply the outer boundary conditions c ----------------------------------- |