[Commits] [svn:einsteintoolkit] EOS_Omni/trunk/src/nuc_eos/ (Rev. 80)

[schnetter at cct.lsu.edu]

User: eschnett
Date: 2013/03/28 09:31 AM

Modified:
 /trunk/src/nuc_eos/
  linterp_many.F90

Log:
 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.

File Changes:

Directory: /trunk/src/nuc_eos/
==============================

File [modified]: linterp_many.F90
Delta lines: +8 -6
===================================================================
--- trunk/src/nuc_eos/linterp_many.F90	2013-03-23 20:27:23 UTC (rev 79)
+++ trunk/src/nuc_eos/linterp_many.F90	2013-03-28 14:31:06 UTC (rev 80)
@@ -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 
 !