diff options
| author | schnetter <schnetter@f80f6fb6-8356-4fd4-90bc-d84ad503c100> | 2004-04-01 10:52:33 +0000 |
|---|---|---|
| committer | schnetter <schnetter@f80f6fb6-8356-4fd4-90bc-d84ad503c100> | 2004-04-01 10:52:33 +0000 |
| commit | 42ff46b7b574822abd2dce21a3284e0454289057 (patch) | |
| tree | f1cd26c5ac0d3e3f7dc80f37be24347d335932a1 | |
| parent | 420a7eee2430873825220428e09b29858569fb63 (diff) | |
Remove terminating semicolons; they are not necessary in Fortran
git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyF90/trunk@95 f80f6fb6-8356-4fd4-90bc-d84ad503c100
| -rw-r--r-- | src/WaveToy.F | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/WaveToy.F b/src/WaveToy.F index fbb72f2..fb73cca 100644 --- a/src/WaveToy.F +++ b/src/WaveToy.F @@ -121,22 +121,22 @@ c default arguments are used, so an invalid table handle of -1 can c be passed if (CCTK_EQUALS(bound,"flat")) then ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1, - $ "wavetoy::phi", "Flat"); + $ "wavetoy::phi", "Flat") else if (CCTK_EQUALS(bound,"static")) then ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1, - $ "wavetoy::phi", "Static"); + $ "wavetoy::phi", "Static") else if (CCTK_EQUALS(bound,"radiation")) then ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1, - $ "wavetoy::phi", "Radiation"); + $ "wavetoy::phi", "Radiation") else if (CCTK_EQUALS(bound,"robin")) then ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1, - $ "wavetoy::phi", "Robin"); + $ "wavetoy::phi", "Robin") else if (CCTK_EQUALS(bound,"zero")) then ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1, - $ "wavetoy::phi", "Scalar"); + $ "wavetoy::phi", "Scalar") else if (.NOT. CCTK_EQUALS(bound,"none")) then ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1, - $ "wavetoy::phi", "None"); + $ "wavetoy::phi", "None") end if if (ierr < 0) then |