diff options
author | eschnett <eschnett@8e189c6b-2ab8-4400-aa02-70a9cfce18b9> | 2013-03-28 14:31:06 +0000 |
---|---|---|
committer | eschnett <eschnett@8e189c6b-2ab8-4400-aa02-70a9cfce18b9> | 2013-03-28 14:31:06 +0000 |
commit | 8377b46906465efb0ffe5992454b360187281d7e (patch) | |
tree | 527c36bb9f2d652320ed2ea8d28674007ecc766a | |
parent | c16b69c8789baabd6f2fc3a9263c5e009b99a908 (diff) |
Replace stop statements by calls to CCTK_ERROR
Stop statements are deprecated in Fortran, and can only take integer
arguments (not strings). The IBM compiler insists on this. Calling
CCTK_ERROR is a simple work-around in Cactus.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEOS/EOS_Omni/trunk@80 8e189c6b-2ab8-4400-aa02-70a9cfce18b9
-rw-r--r-- | src/nuc_eos/linterp_many.F90 | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/src/nuc_eos/linterp_many.F90 b/src/nuc_eos/linterp_many.F90 index 42b819f..1fe5983 100644 --- a/src/nuc_eos/linterp_many.F90 +++ b/src/nuc_eos/linterp_many.F90 @@ -1,3 +1,5 @@ +#define CCTK_ERROR(msg) CCTK_Error(__LINE__,__FORTRANFILE__,"EOS_Omni",msg) + SUBROUTINE intp3d_many ( x, y, z, f, kt, ft, nx, ny, nz, nvars, xt, yt, zt) ! implicit none @@ -43,7 +45,7 @@ real*8 dx,dy,dz,dxi,dyi,dzi,dxyi,dxzi,dyzi,dxyzi integer n,ix,iy,iz - IF (kt .GT. ktx) STOP'***KTX**' + IF (kt .GT. ktx) call CCTK_ERROR('***KTX**') ! ! !------ determine spacing parameters of (equidistant!!!) table @@ -65,7 +67,7 @@ ! !------- loop over all points to be interpolated ! - dO n = 1, kt + do n = 1, kt ! !------- determine location in (equidistant!!!) table ! @@ -170,7 +172,7 @@ real*8 dx,dy,dz,dxi,dyi,dzi,dxyi,dxzi,dyzi,dxyzi integer n,ix,iy,iz - IF (kt .GT. ktx) STOP'***KTX**' + IF (kt .GT. ktx) call CCTK_ERROR('***KTX**') ! ! !------ determine spacing parameters of (equidistant!!!) table @@ -192,7 +194,7 @@ ! !------- loop over all points to be interpolated ! - dO n = 1, kt + do n = 1, kt ! !------- determine location in (equidistant!!!) table ! @@ -293,7 +295,7 @@ real*8 dx,dy,dz,dxi,dyi,dzi,dxyi,dxzi,dyzi,dxyzi integer n,ix,iy,iz - IF (kt .GT. ktx) STOP'***KTX**' + IF (kt .GT. ktx) call CCTK_ERROR('***KTX**') ! ! !------ determine spacing parameters of (equidistant!!!) table @@ -315,7 +317,7 @@ ! !------- loop over all points to be interpolated ! - dO n = 1, kt + do n = 1, kt ! !------- determine location in (equidistant!!!) table ! |