Removed incorrect semicolons after the last statement in an if block.

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/Extract/trunk@91 5301f0c2-dbc4-4cee-b2f5-8d7afba4d129

1 files changed, 30 insertions, 30 deletions

diff --git a/src/D3_to_D2.F b/src/D3_to_D2.F
index 112cee7..73a41a8 100644
--- a/src/D3_to_D2.F
+++ b/src/D3_to_D2.F
@@ -201,9 +201,9 @@ c      print*,out_arrays
      $                            num_arrays, out_array_type_codes, out_arrays)
 c      print*,'1 done'
       if (ierror < 0) then
-        call CCTK_WARN (1, "interpolator call returned an error code");
+        call CCTK_WARN (1, "interpolator call returned an error code")
         write(error_code,'(a7,i13)') 'code = ',ierror
-        call CCTK_WARN (1, error_code );
+        call CCTK_WARN (1, error_code )
       endif
 
 
@@ -229,9 +229,9 @@ c         print*,out_arrays(1)
      $                               1, out_array_type_codes, out_arrays(1))
 c         print*,'2 done'
          if (ierror < 0) then
-           call CCTK_WARN (1, "interpolator call returned an error code");
+           call CCTK_WARN (1, "interpolator call returned an error code")
            write(error_code,'(a7,i13)') 'code = ',ierror
-           call CCTK_WARN (1, error_code );
+           call CCTK_WARN (1, error_code )
          endif
       end if
 
@@ -253,9 +253,9 @@ c      print*,out_arrays(1)
      $                            1, out_array_type_codes, out_arrays(1))
 c      print*,'5 done'
       if (ierror < 0) then
-        call CCTK_WARN (1, "interpolator call returned an error code");
+        call CCTK_WARN (1, "interpolator call returned an error code")
         write(error_code,'(a7,i13)') 'code = ',ierror
-        call CCTK_WARN (1, error_code );
+        call CCTK_WARN (1, error_code )
       endif
 
       CALL met_rad_der(origin,Dx,Dy,Dz,x,y,z,gxy,Extract_temp3d)
@@ -272,9 +272,9 @@ c      print*,out_arrays(1)
      $                            1, out_array_type_codes, out_arrays(1))
 c      print*,'6 done'
       if (ierror < 0) then
-        call CCTK_WARN (1, "interpolator call returned an error code");
+        call CCTK_WARN (1, "interpolator call returned an error code")
         write(error_code,'(a7,i13)') 'code = ',ierror
-        call CCTK_WARN (1, error_code );
+        call CCTK_WARN (1, error_code )
       endif
 
       CALL met_rad_der(origin,Dx,Dy,Dz,x,y,z,gxz,Extract_temp3d)
@@ -291,9 +291,9 @@ c      print*,out_arrays(1)
      $                            1, out_array_type_codes, out_arrays(1))
 c      print*,'7 done'
       if (ierror < 0) then
-        call CCTK_WARN (1, "interpolator call returned an error code");
+        call CCTK_WARN (1, "interpolator call returned an error code")
         write(error_code,'(a7,i13)') 'code = ',ierror
-        call CCTK_WARN (1, error_code );
+        call CCTK_WARN (1, error_code )
       endif
 
       CALL met_rad_der(origin,Dx,Dy,Dz,x,y,z,gyy,Extract_temp3d)
@@ -306,9 +306,9 @@ c      print*,'7 done'
      $                            1, in_array_indices(1),
      $                            1, out_array_type_codes, out_arrays(1))
       if (ierror < 0) then
-        call CCTK_WARN (1, "interpolator call returned an error code");
+        call CCTK_WARN (1, "interpolator call returned an error code")
         write(error_code,'(a7,i13)') 'code = ',ierror
-        call CCTK_WARN (1, error_code );
+        call CCTK_WARN (1, error_code )
       endif
 
       CALL met_rad_der(origin,Dx,Dy,Dz,x,y,z,gyz,Extract_temp3d)
@@ -325,9 +325,9 @@ c      print*,out_arrays(1)
      $                            1, out_array_type_codes, out_arrays(1))
 c      print*,'8 done'
       if (ierror < 0) then
-        call CCTK_WARN (1, "interpolator call returned an error code");
+        call CCTK_WARN (1, "interpolator call returned an error code")
         write(error_code,'(a7,i13)') 'code = ',ierror
-        call CCTK_WARN (1, error_code );
+        call CCTK_WARN (1, error_code )
       endif
 
       CALL met_rad_der(origin,Dx,Dy,Dz,x,y,z,gzz,Extract_temp3d)
@@ -344,9 +344,9 @@ c      print*,out_arrays(1)
      $                            1, out_array_type_codes, out_arrays(1))
 c      print*,'9 done'
       if (ierror < 0) then
-        call CCTK_WARN (1, "interpolator call returned an error code");
+        call CCTK_WARN (1, "interpolator call returned an error code")
         write(error_code,'(a7,i13)') 'code = ',ierror
-        call CCTK_WARN (1, error_code );
+        call CCTK_WARN (1, error_code )
       endif
 
 
@@ -373,9 +373,9 @@ c         print*,out_arrays(1)
      $                               1, out_array_type_codes, out_arrays(1))
 c         print*,'11 done'
          if (ierror < 0) then
-           call CCTK_WARN (1, "interpolator call returned an error code");
+           call CCTK_WARN (1, "interpolator call returned an error code")
            write(error_code,'(a7,i13)') 'code = ',ierror
-           call CCTK_WARN (1, error_code );
+           call CCTK_WARN (1, error_code )
          endif
       END IF
 
@@ -408,9 +408,9 @@ c         print*,out_arrays(1)
      $                               1, out_array_type_codes, out_arrays(1))
 c         print*,'13 done'
          if (ierror < 0) then
-           call CCTK_WARN (1, "interpolator call returned an error code");
+           call CCTK_WARN (1, "interpolator call returned an error code")
            write(error_code,'(a7,i13)') 'code = ',ierror
-           call CCTK_WARN (1, error_code );
+           call CCTK_WARN (1, error_code )
          endif
 
 c         print*,'14'
@@ -433,9 +433,9 @@ c         print*,out_arrays(1)
      $                               1, out_array_type_codes, out_arrays(1))
 c         print*,'15 done'
          if (ierror < 0) then
-           call CCTK_WARN (1, "interpolator call returned an error code");
+           call CCTK_WARN (1, "interpolator call returned an error code")
            write(error_code,'(a7,i13)') 'code = ',ierror
-           call CCTK_WARN (1, error_code );
+           call CCTK_WARN (1, error_code )
          endif
 
 c         print*,'16'
@@ -458,9 +458,9 @@ c         print*,out_arrays(1)
      $                               1, out_array_type_codes, out_arrays(1))
 c         print*,'17 done'
          if (ierror < 0) then
-           call CCTK_WARN (1, "interpolator call returned an error code");
+           call CCTK_WARN (1, "interpolator call returned an error code")
            write(error_code,'(a7,i13)') 'code = ',ierror
-           call CCTK_WARN (1, error_code );
+           call CCTK_WARN (1, error_code )
          endif
       END IF
 
@@ -488,9 +488,9 @@ c         print*,out_arrays(1)
      $                               1, out_array_type_codes, out_arrays(1))
 c         print*,'19 done'
          if (ierror < 0) then
-           call CCTK_WARN (1, "interpolator call returned an error code");
+           call CCTK_WARN (1, "interpolator call returned an error code")
            write(error_code,'(a7,i13)') 'code = ',ierror
-           call CCTK_WARN (1, error_code );
+           call CCTK_WARN (1, error_code )
          endif
 
 c         print*,'20'
@@ -513,9 +513,9 @@ c         print*,out_arrays(1)
      $                               1, out_array_type_codes, out_arrays(1))
 c         print*,'21 done'
          if (ierror < 0) then
-           call CCTK_WARN (1, "interpolator call returned an error code");
+           call CCTK_WARN (1, "interpolator call returned an error code")
            write(error_code,'(a7,i13)') 'code = ',ierror
-           call CCTK_WARN (1, error_code );
+           call CCTK_WARN (1, error_code )
          endif
 
 c         print*,'22'
@@ -538,9 +538,9 @@ c         print*,out_arrays(1)
      $                               1, out_array_type_codes, out_arrays(1))
 c         print*,'23 done'
          if (ierror < 0) then
-           call CCTK_WARN (1, "interpolator call returned an error code");
+           call CCTK_WARN (1, "interpolator call returned an error code")
            write(error_code,'(a7,i13)') 'code = ',ierror
-           call CCTK_WARN (1, error_code );
+           call CCTK_WARN (1, error_code )
          endif
 
       END IF