thorns for general eos interface (moved from Whisky_Dev repositories)

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEOS/EOSG_Hybrid/trunk@2 0a999221-0efe-4d2d-b270-2ec6803ffb49

1 files changed, 40 insertions, 0 deletions

diff --git a/src/EOS_GeneralHybrid_Setup.F90 b/src/EOS_GeneralHybrid_Setup.F90
new file mode 100755
index 0000000..1bb8439
--- /dev/null
+++ b/src/EOS_GeneralHybrid_Setup.F90
@@ -0,0 +1,40 @@
+ /*@@
+   @file      EOS_GeneralHybrid_Setup.F90
+   @date      
+   @author    Ian Hawke, Christian D. Ott
+   @desc 
+   Startup for EOS_Hybrid. 
+   @enddesc 
+ @@*/
+
+#include "cctk.h"
+#include "cctk_Parameters.h"
+
+ /*@@
+   @routine    EOS_GeneralHybrid_Setup
+   @date       
+   @author     Ian Hawkem, Christian d. Ott
+   @desc 
+   Setup EOS_HybridScalars
+   @enddesc 
+   @calls     
+   @calledby   
+   @history 
+ 
+   @endhistory 
+@@*/
+
+subroutine EOS_GeneralHybrid_Setup()
+
+  USE EOS_GP_Scalars
+  USE EOS_GeneralHybrid_Scalars
+
+  implicit none
+
+  DECLARE_CCTK_PARAMETERS
+  
+  
+  eos_k_supernuclear_cgs = eos_k_cgs * (rho_nuc * rho_geom_factor_inv)** &
+       (eos_gamma - eos_gamma_supernuclear)
+
+end subroutine EOS_GeneralHybrid_Setup