From eb07ba51fa3e4f0943211ed3e95429e5171ab532 Mon Sep 17 00:00:00 2001 From: tradke Date: Wed, 21 Jan 2004 17:28:46 +0000 Subject: 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 --- src/D3_to_D2.F | 60 +++++++++++++++++++++++++++++----------------------------- 1 file 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 -- cgit v1.2.3