00001 module def_binary_parameter_mpt 00002 use phys_constant, only : long, nnmpt 00003 implicit none 00004 real(long) :: sepa_(nnmpt), dis_(nnmpt), mass_ratio_(nnmpt) 00005 end module def_binary_parameter_mpt