diff options
| author | schnetter <schnetter@daab82bb-f315-4ad1-b6d0-9353ff8b6e27> | 2004-04-01 10:51:54 +0000 |
|---|---|---|
| committer | schnetter <schnetter@daab82bb-f315-4ad1-b6d0-9353ff8b6e27> | 2004-04-01 10:51:54 +0000 |
| commit | dc4a6098f02d4d2d13cdc680628eaa8f7a195d47 (patch) | |
| tree | 5e52b2b3d52aa00238eb3240fc6ca98f6c14bf39 | |
| parent | 82310087f5b63fec565f7b8392585a79e1b4c0e7 (diff) | |
Remove terminating semicolons; they are not necessary in Fortran
git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyFreeF90/trunk@68 daab82bb-f315-4ad1-b6d0-9353ff8b6e27
| -rw-r--r-- | src/WaveToy.F90 | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/WaveToy.F90 b/src/WaveToy.F90 index f6d16de..da4080a 100644 --- a/src/WaveToy.F90 +++ b/src/WaveToy.F90 @@ -125,22 +125,22 @@ subroutine WaveToyFreeF90_Boundaries(CCTK_ARGUMENTS) 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 (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 |