00001 subroutine allocate_def_vector_x_mpt
00002 use def_vector_x_mpt
00003 use phys_constant, only : nmpt
00004 use grid_parameter, only : nrf, ntf, npf, nrg, ntg, npg
00005 use make_array_5d
00006 implicit none
00007 call alloc_array5d(vec_xg_, 0, nrg, 0, ntg, 0, npg, 1, 3, 1, nmpt)
00008 call alloc_array5d(vec_xf_, 0, nrf, 0, ntf, 0, npf, 1, 3, 1, nmpt)
00009 call alloc_array5d(hvec_xg_, 1, nrg, 1, ntg, 1, npg, 1, 3, 1, nmpt)
00010 call alloc_array5d(hvec_xf_, 1, nrf, 1, ntf, 1, npf, 1, 3, 1, nmpt)
00011 end subroutine allocate_def_vector_x_mpt
