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