00001 subroutine copy_def_bh_parameter_to_mpt(impt)
00002 use def_bh_parameter_mpt
00003 use def_bh_parameter
00004 implicit none
00005 integer :: i, impt
00006
00007 i=0
00008 i=i+1; def_bh_param_real_(i,impt) = ome_bh
00009 i=i+1; def_bh_param_real_(i,impt) = spin_bh
00010 i=i+1; def_bh_param_real_(i,impt) = alph_bh
00011 i=i+1; def_bh_param_real_(i,impt) = psi_bh
00012 i=i+1; def_bh_param_real_(i,impt) = th_spin_bh_deg
00013 i=i+1; def_bh_param_real_(i,impt) = phi_spin_bh_deg
00014 i=i+1; def_bh_param_real_(i,impt) = th_spin_bh
00015 i=i+1; def_bh_param_real_(i,impt) = phi_spin_bh
00016 i=i+1; def_bh_param_real_(i,impt) = rgin_deform
00017
00018 i=i+1; def_bh_param_real_(i,impt) = mass_pBH
00019 i=i+1; def_bh_param_real_(i,impt) = mom_pBH(1)
00020 i=i+1; def_bh_param_real_(i,impt) = mom_pBH(2)
00021 i=i+1; def_bh_param_real_(i,impt) = mom_pBH(3)
00022 i=i+1; def_bh_param_real_(i,impt) = spin_pBH(1)
00023 i=i+1; def_bh_param_real_(i,impt) = spin_pBH(2)
00024 i=i+1; def_bh_param_real_(i,impt) = spin_pBH(3)
00025
00026 i=0
00027 i=i+1; def_bh_param_char2_(i,impt) = bh_bctype
00028 i=i+1; def_bh_param_char2_(i,impt) = bh_sptype
00029 i=i+1; def_bh_param_char2_(i,impt) = bh_soltype
00030
00031 end subroutine copy_def_bh_parameter_to_mpt
