00001 subroutine allocate_def_vector_bh_mpt
00002 use def_vector_bh_mpt
00003 use phys_constant, only : nmpt
00004 use grid_parameter, only : ntg, npg
00005 use make_array_4d
00006 implicit none
00007 call alloc_array4d( vec_bh_cm_xg_, 0,ntg, 0,npg, 1,3, 1,nmpt)
00008 call alloc_array4d(hvec_bh_cm_xg_, 1,ntg, 1,npg, 1,3, 1,nmpt)
00009 call alloc_array4d( vec_bh_cm_phig_, 0,ntg, 0,npg, 1,3, 1,nmpt)
00010 call alloc_array4d(hvec_bh_cm_phig_, 1,ntg, 1,npg, 1,3, 1,nmpt)
00011 call alloc_array4d( vec_bh_cbh_xg_, 0,ntg, 0,npg, 1,3, 1,nmpt)
00012 call alloc_array4d(hvec_bh_cbh_xg_, 1,ntg, 1,npg, 1,3, 1,nmpt)
00013 call alloc_array4d( vec_bh_cbh_phig_, 0,ntg, 0,npg, 1,3, 1,nmpt)
00014 call alloc_array4d(hvec_bh_cbh_phig_, 1,ntg, 1,npg, 1,3, 1,nmpt)
00015 call alloc_array4d( vec_bh_cbh_spin_, 0,ntg, 0,npg, 1,3, 1,nmpt)
00016 call alloc_array4d(hvec_bh_cbh_spin_, 1,ntg, 1,npg, 1,3, 1,nmpt)
00017 end subroutine allocate_def_vector_bh_mpt
