diff options
| author | eschnett <eschnett@8e189c6b-2ab8-4400-aa02-70a9cfce18b9> | 2011-01-26 16:14:37 +0000 |
|---|---|---|
| committer | eschnett <eschnett@8e189c6b-2ab8-4400-aa02-70a9cfce18b9> | 2011-01-26 16:14:37 +0000 |
| commit | ec654793d2f8efcd79bb8f28e670dc9ac65c0cbf (patch) | |
| tree | 0e07c192f6c6c7b85c1ad4482ccea7c5b3bf231f /src/nuc_eos/linterp.f | |
| parent | c600e27fcbb12ec2e406480154987cf7b37782b8 (diff) | |
Replace stop commands with calls to CCTK_WARN, since stop with a
string argument is not supported by all Fortran compilers.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEOS/EOS_Omni/trunk@33 8e189c6b-2ab8-4400-aa02-70a9cfce18b9
Diffstat (limited to 'src/nuc_eos/linterp.f')
| -rw-r--r-- | src/nuc_eos/linterp.f | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/nuc_eos/linterp.f b/src/nuc_eos/linterp.f index 282d090..600c11e 100644 --- a/src/nuc_eos/linterp.f +++ b/src/nuc_eos/linterp.f @@ -1,3 +1,5 @@ +#include "cctk.h" + SUBROUTINE intp3d ( x, y, z, f, kt, ft, nx, ny, nz, xt, yt, zt, . d1, d2, d3 ) c @@ -50,7 +52,7 @@ c double precision 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_WARN (0, '***KTX**') c c c------ determine spacing parameters of (equidistant!!!) table |