00001module def_matter_parameter
00002 use phys_constant, only : long
00003 implicit none00004real(long) :: pinx, emdc
00005real(long) :: 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