diff options
Diffstat (limited to 'src/nuc_eos/readtable.F90')
-rw-r--r-- | src/nuc_eos/readtable.F90 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/nuc_eos/readtable.F90 b/src/nuc_eos/readtable.F90 index 4d16d2d..b865b39 100644 --- a/src/nuc_eos/readtable.F90 +++ b/src/nuc_eos/readtable.F90 @@ -42,7 +42,7 @@ subroutine nuc_eos_readtable(eos_filename) call h5dclose_f(dset_id,error) if(error.ne.0) then - stop "Could not read EOS table file" + call CCTK_WARN (0, "Could not read EOS table file") endif dims1(1)=1 @@ -51,7 +51,7 @@ subroutine nuc_eos_readtable(eos_filename) call h5dclose_f(dset_id,error) if(error.ne.0) then - stop "Could not read EOS table file" + call CCTK_WARN (0, "Could not read EOS table file") endif dims1(1)=1 @@ -60,7 +60,7 @@ subroutine nuc_eos_readtable(eos_filename) call h5dclose_f(dset_id,error) if(error.ne.0) then - stop "Could not read EOS table file" + call CCTK_WARN (0, "Could not read EOS table file") endif ! write(message,"(a25,1P3i5)") "We have nrho ntemp nye: ", nrho,ntemp,nye @@ -213,7 +213,7 @@ subroutine nuc_eos_readtable(eos_filename) accerr=accerr+error if(accerr.ne.0) then - stop "Problem reading EOS table file" + call CCTK_WARN (0, "Problem reading EOS table file") endif call h5fclose_f (file_id,error) |