00001 module def_matter_cartesian
00002 use phys_constant, only : long
00003 implicit none
00004 real(long), pointer :: emdca(:,:,:), utca(:,:,:)
00005 real(long), pointer :: vxca(:,:,:), vyca(:,:,:), vzca(:,:,:)
00006 end module def_matter_cartesian