/home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine_mpatch/copy_def_binary_parameter_from_mpt.f90
Go to the documentation of this file.00001 subroutine copy_def_binary_parameter_from_mpt(impt) 00002 use def_binary_parameter 00003 use def_binary_parameter_mpt 00004 use copy_array_static_1dto0d_mpt 00005 implicit none 00006 integer :: impt 00007 ! 00008 call copy_arraystatic_1dto0d_mpt(impt, sepa_, sepa) 00009 call copy_arraystatic_1dto0d_mpt(impt, dis_, dis) 00010 call copy_arraystatic_1dto0d_mpt(impt, mass_ratio_, mass_ratio) 00011 ! 00012 end subroutine copy_def_binary_parameter_from_mpt
