diff options
| author | cott <cott@8e189c6b-2ab8-4400-aa02-70a9cfce18b9> | 2010-12-05 01:19:33 +0000 |
|---|---|---|
| committer | cott <cott@8e189c6b-2ab8-4400-aa02-70a9cfce18b9> | 2010-12-05 01:19:33 +0000 |
| commit | 103849c13d919cc40a92cc03cae2210e9ab90fa7 (patch) | |
| tree | 898a8ff281109a8d69dc75c6dac15155458ebd9a | |
| parent | cb4a0f15f66ea5a14554dc2699a002a480e9e82a (diff) | |
* small fix
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEOS/EOS_Omni/trunk@28 8e189c6b-2ab8-4400-aa02-70a9cfce18b9
| -rw-r--r-- | src/nuc_eos/nuc_eos.F90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/nuc_eos/nuc_eos.F90 b/src/nuc_eos/nuc_eos.F90 index 51170d0..f537930 100644 --- a/src/nuc_eos/nuc_eos.F90 +++ b/src/nuc_eos/nuc_eos.F90 @@ -238,7 +238,7 @@ subroutine nuc_eos_short(xrho,xtemp,xye,xenr,xprs,xent,xcs2,xdedt,& keyerr = 0 -if(keytemp.eq.0) then + if(keytemp.eq.0) then !need to find temperature based on xeps call findtemp(lr,lt,y,leps,keyerrt,rfeps) if(keyerrt.ne.0) then |