blob: 5a9c588f58fec74401b2e70b85183ce004f85603 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
/*@@
@file EOS_GIF_Scalars.F90
@date Mon Mar 14 17:39:50 2005
@author Ian Hawke
@desc
Constants for the EOS routines.
@enddesc
@@*/
#include "cctk.h"
module EOS_GIF_Scalars
implicit none
CCTK_REAL :: eos_if_gamma_local
CCTK_REAL :: mean_molecular_weight_local
CCTK_REAL :: k_boltzmann
end module EOS_GIF_Scalars
|