00001 module def_vector_bh
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 contains
00011 subroutine allocate_vector_bh
00012 use grid_parameter, only : ntg, npg
00013 use make_array_3d
00014 implicit none
00015 call alloc_array3d( vec_bh_cm_xg, 0, ntg, 0, npg, 1, 3)
00016 call alloc_array3d(hvec_bh_cm_xg, 1, ntg, 1, npg, 1, 3)
00017 call alloc_array3d( vec_bh_cm_phig, 0, ntg, 0, npg, 1, 3)
00018 call alloc_array3d(hvec_bh_cm_phig, 1, ntg, 1, npg, 1, 3)
00019 call alloc_array3d( vec_bh_cbh_xg, 0, ntg, 0, npg, 1, 3)
00020 call alloc_array3d(hvec_bh_cbh_xg, 1, ntg, 1, npg, 1, 3)
00021 call alloc_array3d( vec_bh_cbh_phig, 0, ntg, 0, npg, 1, 3)
00022 call alloc_array3d(hvec_bh_cbh_phig, 1, ntg, 1, npg, 1, 3)
00023 call alloc_array3d( vec_bh_cbh_spin, 0, ntg, 0, npg, 1, 3)
00024 call alloc_array3d(hvec_bh_cbh_spin, 1, ntg, 1, npg, 1, 3)
00025 end subroutine allocate_vector_bh
00026 end module def_vector_bh
