1 files changed, 26 insertions, 0 deletions
diff --git a/src/EOS_GIF_Setup.F90 b/src/EOS_GIF_Setup.F90
new file mode 100755
index 0000000..5b5d56f
--- /dev/null
+++ b/src/EOS_GIF_Setup.F90
@@ -0,0 +1,26 @@
+ /*@@
+   @file      EOS_GIF_Setup.F90
+   @date      Mon Mar 14 17:41:20 2005
+   @author    Ian Hawke
+   @desc 
+   Setup the scalar variables
+   @enddesc 
+ @@*/
+
+#include "cctk.h"
+#include "cctk_Arguments.h"
+#include "cctk_Parameters.h"
+
+subroutine EOS_GIF_Setup()
+
+  USE EOS_GIF_Scalars
+
+  implicit none
+
+  DECLARE_CCTK_PARAMETERS
+
+  eos_if_gamma_local = eos_ideal_fluid_gamma
+  mean_molecular_weight_local = mean_molecular_weight
+  k_boltzmann = 1.d80
+  
+end subroutine EOS_GIF_Setup