diff options
author | cott <cott@8e189c6b-2ab8-4400-aa02-70a9cfce18b9> | 2010-10-24 14:06:52 +0000 |
---|---|---|
committer | cott <cott@8e189c6b-2ab8-4400-aa02-70a9cfce18b9> | 2010-10-24 14:06:52 +0000 |
commit | 5621733be96b97235891c5da5e1aaa52967058c3 (patch) | |
tree | 11f840e137111193f641e553600c86e7cebc310c /src/EOS_Omni_SingleVarCalls.F90 | |
parent | 7449c12a9f5976d5d9eff74ea4a43741a64e8cb3 (diff) |
* add capability allowing to read in finite-T EOS tables.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEOS/EOS_Omni/EOS_Omni@11 8e189c6b-2ab8-4400-aa02-70a9cfce18b9
Diffstat (limited to 'src/EOS_Omni_SingleVarCalls.F90')
-rw-r--r-- | src/EOS_Omni_SingleVarCalls.F90 | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/EOS_Omni_SingleVarCalls.F90 b/src/EOS_Omni_SingleVarCalls.F90 index 73daa55..217c8f3 100644 --- a/src/EOS_Omni_SingleVarCalls.F90 +++ b/src/EOS_Omni_SingleVarCalls.F90 @@ -84,6 +84,13 @@ subroutine EOS_Omni_EOS_Press(eoskey,keytemp,rf_precision,npoints,& press(i) = hybrid_p_poly + hybrid_p_th enddo +!!! case (4) +!!! +!!! do i=1,npoints +!!! +!!! enddo + + case DEFAULT write(warnstring,*) "eoskey ",eoskey," not implemented!" call CCTK_WARN(0,warnstring) |