1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
c/*@@
c @file EOS_Ideal_Fluid_Startup.F
c @date December 1999
c @author Mark Miller
c @desc
c Startup for EOS_Ideal_Fluid
c @enddesc
c@@*/
#include "cctk.h"
c/*@@
c @routine EOS_Ideal_Fluid_Startup
c @date December 1999
c @author Mark Miller
c @desc
c
c @enddesc
c @calls EOS_RegisterMethod EOS_RegisterPressure EOS_RegisterSpecificInternalEnergy EOS_RegisterRestMassDens EOS_RegisterDPressByDRho EOS_RegisterDPressByDEps CCTK_WARN
c @calledby
c @history
c
c @endhistory
c@@*/
INTEGER FUNCTION EOS_Ideal_Fluid_Startup()
implicit none
integer handle,ierr
external EOS_Ideal_Fluid_Pressure
external EOS_Ideal_Fluid_SpecificIE
external EOS_Ideal_Fluid_RestMassDens
external EOS_Ideal_Fluid_DPressByDRho
external EOS_Ideal_Fluid_DPressByDEps
call EOS_RegisterMethod(handle,"Ideal_Fluid")
IF(handle .ge. 0) THEN
CALL EOS_RegisterPressure(ierr, handle, EOS_Ideal_Fluid_Pressure);
CALL EOS_RegisterSpecificIntEnergy(ierr, handle,
. EOS_Ideal_Fluid_SpecificIE);
CALL EOS_RegisterRestMassDens(ierr, handle,
. EOS_Ideal_Fluid_RestMassDens);
CALL EOS_RegisterDPressByDRho(ierr, handle,
. EOS_Ideal_Fluid_DPressByDRho);
CALL EOS_RegisterDPressByDEps(ierr, handle,
. EOS_Ideal_Fluid_DPressByDEps);
ELSE
call CCTK_WARN(0, "Unable to register an EOS method from fortran 8-(")
ENDIF
EOS_Ideal_Fluid_Startup = 0
end function EOS_Ideal_Fluid_Startup
|