00001 module def_vector_bh_mpt
00002 use phys_constant, only : long
00003 implicit none
00004 real(long), pointer :: vec_bh_cm_xg_(:,:,:,:), vec_bh_cm_phig_(:,:,:,:)
00005 real(long), pointer :: hvec_bh_cm_xg_(:,:,:,:), hvec_bh_cm_phig_(:,:,:,:)
00006 real(long), pointer :: vec_bh_cbh_xg_(:,:,:,:), vec_bh_cbh_phig_(:,:,:,:)
00007 real(long), pointer :: hvec_bh_cbh_xg_(:,:,:,:),hvec_bh_cbh_phig_(:,:,:,:)
00008 real(long), pointer :: vec_bh_cbh_spin_(:,:,:,:)
00009 real(long), pointer :: hvec_bh_cbh_spin_(:,:,:,:)
00010 end module def_vector_bh_mpt
