/home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine_mpatch/adjust_copy_trpPunc_from_mpt.f90
Go to the documentation of this file.00001 subroutine adjust_copy_trpPunc_from_mpt(niq,msec_x_oold) 00002 use phys_constant, only : long, nmpt 00003 use def_bh_parameter, only : mom_pBH, mass_pBH 00004 use def_binary_parameter, only : dis 00005 implicit none 00006 integer :: niq 00007 real(long) :: msec_x_oold(niq) 00008 ! 00009 call copy_def_bh_parameter_from_mpt(1) 00010 msec_x_oold(1) = mom_pBH(2) 00011 call copy_def_binary_parameter_from_mpt(1) 00012 msec_x_oold(2) = dis 00013 ! call copy_def_bh_parameter_from_mpt(2) 00014 ! msec_x_oold(2) = mom_pBH(2) 00015 call copy_def_bh_parameter_from_mpt(2) 00016 msec_x_oold(3) = mass_pBH 00017 call copy_def_bh_parameter_from_mpt(nmpt) 00018 call copy_def_binary_parameter_from_mpt(nmpt) 00019 call copy_def_quantities_bh_from_mpt(nmpt) 00020 ! 00021 end subroutine adjust_copy_trpPunc_from_mpt
