00001 module def_peos_parameter 00002 use phys_constant !nnpeos 00003 implicit none 00004 real(8) :: abc(0:nnpeos), abi(0:nnpeos), rhoi(0:nnpeos), 00005 qi(0:nnpeos), hi(0:nnpeos) 00006 real(8) :: rhocgs(0:nnpeos), abccgs(0:nnpeos) 00007 real(8) :: rhoini_cgs, rhoini_gcm1, emdini_gcm1 !used in TOV solver 00008 integer :: nphase 00009 end module def_peos_parameter