00001 module def_qeos_parameter
00002 use phys_constant
00003 implicit none
00004 real(8) :: abc(0:nnqeos), abi(0:nnqeos), rhoi(0:nnqeos),
00005 qi(0:nnqeos), hi(0:nnqeos)
00006 real(8) :: abccgs(0:nnqeos)
00007 real(8) :: abcene(0:nnqeos), abiene(0:nnqeos), abch(0:nnqeos), abih(0:nnqeos)
00008 real(8) :: abchdot(0:nnqeos), abihdot(0:nnqeos)
00009 real(8) :: rhoini_cgs, rhoini_gcm1, emdini_gcm1
00010 real(8) :: eneini_cgs, eneini_gcm1
00011 real(8) :: rhosurf_cgs, rhosurf_gcm1, hsurf_gcm1
00012 real(8) :: eneconst_cgs, eneconst_gcm1
00013 real(8) :: enesurf_cgs, enesurf_gcm1
00014 real(8) :: aq
00015 integer :: nphase
00016 end module def_qeos_parameter