00001 subroutine copy_def_bh_parameter_from_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; ome_bh = def_bh_param_real_(i,impt)
00009 i=i+1; spin_bh = def_bh_param_real_(i,impt)
00010 i=i+1; alph_bh = def_bh_param_real_(i,impt)
00011 i=i+1; psi_bh = def_bh_param_real_(i,impt)
00012 i=i+1; th_spin_bh_deg = def_bh_param_real_(i,impt)
00013 i=i+1; phi_spin_bh_deg = def_bh_param_real_(i,impt)
00014 i=i+1; th_spin_bh = def_bh_param_real_(i,impt)
00015 i=i+1; phi_spin_bh = def_bh_param_real_(i,impt)
00016 i=i+1; rgin_deform = def_bh_param_real_(i,impt)
00017
00018 i=i+1; mass_pBH = def_bh_param_real_(i,impt)
00019 i=i+1; mom_pBH(1) = def_bh_param_real_(i,impt)
00020 i=i+1; mom_pBH(2) = def_bh_param_real_(i,impt)
00021 i=i+1; mom_pBH(3) = def_bh_param_real_(i,impt)
00022 i=i+1; spin_pBH(1) = def_bh_param_real_(i,impt)
00023 i=i+1; spin_pBH(2) = def_bh_param_real_(i,impt)
00024 i=i+1; spin_pBH(3) = def_bh_param_real_(i,impt)
00025
00026 i=0
00027 i=i+1; bh_bctype = def_bh_param_char2_(i,impt)
00028 i=i+1; bh_sptype = def_bh_param_char2_(i,impt)
00029 i=i+1; bh_soltype = def_bh_param_char2_(i,impt)
00030
00031 end subroutine copy_def_bh_parameter_from_mpt
