diff options
| author | eschnett <> | 2001-03-19 20:30:00 +0000 |
|---|---|---|
| committer | eschnett <> | 2001-03-19 20:30:00 +0000 |
| commit | fc0e7af205874d55377d18ffdb68555df2843d32 (patch) | |
| tree | ae2b89c76f3a3af299a8699833e391f42dddc05f /CarpetExtra/WaveToyF77 | |
| parent | 61b00f25a9820d71401ee6ec3188f6d7b0fa3412 (diff) | |
small
darcs-hash:20010319203034-f6438-ab6a4b4cd4ff91f151ade70f9b3e2a813ee0503b.gz
Diffstat (limited to 'CarpetExtra/WaveToyF77')
| -rw-r--r-- | CarpetExtra/WaveToyF77/src/WaveToy.F77 | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/CarpetExtra/WaveToyF77/src/WaveToy.F77 b/CarpetExtra/WaveToyF77/src/WaveToy.F77 index fd82abd2e..f5ae091a1 100644 --- a/CarpetExtra/WaveToyF77/src/WaveToy.F77 +++ b/CarpetExtra/WaveToyF77/src/WaveToy.F77 @@ -150,10 +150,9 @@ c ----------------------------------- else call CCTK_WARN (0, "No boundary condition selected") end if - -c$$$ if (ierr .lt. 0) then -c$$$ call CCTK_WARN (0, "Boundary conditions not applied - giving up!") -c$$$ end if + if (ierr .lt. 0) then + call CCTK_WARN (0, "Boundary conditions not applied - giving up!") + end if c Apply the symmetry boundary conditions on any coordinate axes c ------------------------------------------------------------- |