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