diff options
Diffstat (limited to 'src/nuc_eos/linterp_many.F90')
-rw-r--r-- | src/nuc_eos/linterp_many.F90 | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/nuc_eos/linterp_many.F90 b/src/nuc_eos/linterp_many.F90 index 05d9c7a..d0ddb08 100644 --- a/src/nuc_eos/linterp_many.F90 +++ b/src/nuc_eos/linterp_many.F90 @@ -1,3 +1,5 @@ +#include "cctk.h" + 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_WARN(0, '***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 ! |