diff options
author | knarf <knarf@e0339e42-4067-4b95-aae0-d9cd08a24254> | 2010-01-12 20:51:22 +0000 |
---|---|---|
committer | knarf <knarf@e0339e42-4067-4b95-aae0-d9cd08a24254> | 2010-01-12 20:51:22 +0000 |
commit | f7ba48cd52e5ba7243700c04f09c99a439dfdf24 (patch) | |
tree | 8c6744c4ed0876197f633fc1f5870b0d817385ec /src/EOS_Polytrope_Scalars.F | |
parent | 886431f9a8e9e0d8da17692161377649aaf0b028 (diff) |
move development of EOS_Polytrope and EOS_Hybrid from Whisky to Cactus
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEOS/EOS_Polytrope/trunk@2 e0339e42-4067-4b95-aae0-d9cd08a24254
Diffstat (limited to 'src/EOS_Polytrope_Scalars.F')
-rw-r--r-- | src/EOS_Polytrope_Scalars.F | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/src/EOS_Polytrope_Scalars.F b/src/EOS_Polytrope_Scalars.F new file mode 100644 index 0000000..7675aae --- /dev/null +++ b/src/EOS_Polytrope_Scalars.F @@ -0,0 +1,21 @@ + /*@@ + @file EOS_Polytrope_Scalars.F + @date Mon Aug 26 12:03:33 2002 + @author Ian Hawke + @desc + Constants for EOS routines + @enddesc + @@*/ + +#include "cctk.h" + + module EOS_Polytrope_Scalars + + implicit none + + CCTK_REAL :: p_geom_factor, rho_geom_factor, + . rho_geom_factor_inv, eos_k_cgs + + CCTK_REAL :: m_solar_geom, m_solar_cgs, c_cgs, G_cgs + + end module EOS_Polytrope_Scalars |