From 49006459ab6cc41f54be57af7eca0e73901aca7e Mon Sep 17 00:00:00 2001 From: schnetter Date: Thu, 1 Apr 2004 10:53:22 +0000 Subject: Remove terminating semicolons; they are not necessary in Fortran git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyF77/trunk@113 4451c3c6-1034-4891-99ea-21147727ccdf --- src/WaveToy.F77 | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/WaveToy.F77 b/src/WaveToy.F77 index b356753..0f08c09 100644 --- a/src/WaveToy.F77 +++ b/src/WaveToy.F77 @@ -122,22 +122,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 (CCTK_EQUALS(bound,"none")) then ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1, - $ "wavetoy::phi", "None"); + $ "wavetoy::phi", "None") end if if (ierr .lt. 0) then -- cgit v1.2.3