00001 module def_matter_parameter_mpt 00002 use phys_constant, only : long 00003 implicit none 00004 real(long), pointer :: pinx_(:), emdc_(:) 00005 real(long), pointer :: ome_(:), ber_(:), radi_(:) 00006 ! ome is the angular velocity \Omega, 00007 ! ber is the injection energy \epsilon, 00008 ! radi is the radius of the star. 00009 end module def_matter_parameter_mpt