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