From dc4a6098f02d4d2d13cdc680628eaa8f7a195d47 Mon Sep 17 00:00:00 2001 From: schnetter Date: Thu, 1 Apr 2004 10:51:54 +0000 Subject: 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 --- src/WaveToy.F90 | 12 ++++++------ 1 file 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 -- cgit v1.2.3