00001 module def_binary_parameter 00002 use phys_constant, only : long 00003 implicit none 00004 real(long) :: sepa, dis, mass_ratio 00005 end module def_binary_parameter