diff options
Diffstat (limited to 'src/nuc_eos')
-rw-r--r-- | src/nuc_eos/readtable.F90 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/nuc_eos/readtable.F90 b/src/nuc_eos/readtable.F90 index 41f8159..d8ae2bc 100644 --- a/src/nuc_eos/readtable.F90 +++ b/src/nuc_eos/readtable.F90 @@ -1,4 +1,4 @@ -subroutine readtable(eos_filename) +subroutine nuc_eos_readtable(eos_filename) ! This routine reads the table and initializes ! all variables in the module. @@ -21,7 +21,7 @@ subroutine readtable(eos_filename) real*8 buffer1,buffer2,buffer3,buffer4 accerr=0 - write(*,*) "Reading Ott EOS Table" + write(*,*) "Reading Nuclear EOS Table" call h5open_f(error) @@ -229,6 +229,6 @@ subroutine readtable(eos_filename) write(6,*) "Done reading eos tables" -end subroutine readtable +end subroutine nuc_eos_readtable |