00001 module def_vector_x_mpt
00002   use phys_constant, only : long
00003   implicit none
00004   real(long), pointer :: vec_xf_(:,:,:,:,:), vec_xg_(:,:,:,:,:)
00005   real(long), pointer :: hvec_xf_(:,:,:,:,:), hvec_xg_(:,:,:,:,:)
00006 end module def_vector_x_mpt