00001 subroutine copy_def_vector_bh_to_mpt(impt)
00002 use grid_parameter, only : ntg, npg
00003 use def_vector_bh
00004 use def_vector_bh_mpt
00005 use copy_array_3dto4d_mpt
00006 implicit none
00007 integer :: impt
00008
00009 call copy_array3dto4d_mpt(impt, vec_bh_cm_xg, vec_bh_cm_xg_, 0,ntg,0,npg,1,3)
00010 call copy_array3dto4d_mpt(impt,hvec_bh_cm_xg, hvec_bh_cm_xg_, 1,ntg,1,npg,1,3)
00011 call copy_array3dto4d_mpt(impt, vec_bh_cm_phig, vec_bh_cm_phig_, 0,ntg,0,npg,1,3)
00012 call copy_array3dto4d_mpt(impt,hvec_bh_cm_phig, hvec_bh_cm_phig_, 1,ntg,1,npg,1,3)
00013 call copy_array3dto4d_mpt(impt, vec_bh_cbh_xg, vec_bh_cbh_xg_, 0,ntg,0,npg,1,3)
00014 call copy_array3dto4d_mpt(impt,hvec_bh_cbh_xg, hvec_bh_cbh_xg_, 1,ntg,1,npg,1,3)
00015 call copy_array3dto4d_mpt(impt, vec_bh_cbh_phig, vec_bh_cbh_phig_, 0,ntg,0,npg,1,3)
00016 call copy_array3dto4d_mpt(impt,hvec_bh_cbh_phig,hvec_bh_cbh_phig_, 1,ntg,1,npg,1,3)
00017 call copy_array3dto4d_mpt(impt, vec_bh_cbh_spin, vec_bh_cbh_spin_, 0,ntg,0,npg,1,3)
00018 call copy_array3dto4d_mpt(impt,hvec_bh_cbh_spin,hvec_bh_cbh_spin_, 1,ntg,1,npg,1,3)
00019
00020 end subroutine copy_def_vector_bh_to_mpt
