diff options
Diffstat (limited to 'src/EOS_Omni_ColdEOSReadTable.F90')
-rw-r--r-- | src/EOS_Omni_ColdEOSReadTable.F90 | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/src/EOS_Omni_ColdEOSReadTable.F90 b/src/EOS_Omni_ColdEOSReadTable.F90 index faee59d..b4c1db1 100644 --- a/src/EOS_Omni_ColdEOSReadTable.F90 +++ b/src/EOS_Omni_ColdEOSReadTable.F90 @@ -31,7 +31,8 @@ subroutine EOS_Omni_ReadColdTable(CCTK_ARGUMENTS) if(.not.tablethere) then write(warnline,"(A10,A,A15)") "EOS file ", trim(adjustl(eosfilename)), " does not exist!" - call CCTK_WARN(0,warnline) + call CCTK_ERROR(warnline) + STOP endif ! read header @@ -39,12 +40,14 @@ subroutine EOS_Omni_ReadColdTable(CCTK_ARGUMENTS) read(667,"(A)") buffer1 ! check if okay if(.not. (trim(adjustl(buffer1)).eq."EoSType = Tabulated")) then - call CCTK_WARN(0,"Wrong EOS table format -- check header") + call CCTK_ERROR("Wrong EOS table format -- check header") + STOP endif ! now read number of rho entries read(667,"(A7,i7,A6,i6,A5,i6)") buffer1,lnrho,buffer2,lnye,buffer3,lntemp if(lnye.ne.1.or.lntemp.ne.1) then - call CCTK_WARN(0,"Wrong EOS table format -- cannot handle Nye!=1 or NT!=`") + call CCTK_ERROR("Wrong EOS table format -- cannot handle Nye!=1 or NT!=`") + STOP endif coldeos_nrho = lnrho @@ -80,7 +83,8 @@ subroutine EOS_Omni_ReadColdTable(CCTK_ARGUMENTS) ! make sure density is in log spacing read(667,"(A30)") buffer1 if(.not.(trim(adjustl(buffer1)).eq."RhoSpacing = Log")) then - call CCTK_WARN(0,"Density spacing not log? Check table format!") + call CCTK_ERROR("Density spacing not log? Check table format!") + STOP endif ! now read everything |