From 42ff46b7b574822abd2dce21a3284e0454289057 Mon Sep 17 00:00:00 2001
From: schnetter <schnetter@f80f6fb6-8356-4fd4-90bc-d84ad503c100>
Date: Thu, 1 Apr 2004 10:52:33 +0000
Subject: 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
---
 src/WaveToy.F | 12 ++++++------
 1 file 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
-- 
cgit v1.2.3