Cocal: /home/uryu/Cocal_svn_checkinout/Cocal/code/Analysis/Module/def_emfield

00001 module def_emfield_cartesian
00002   use phys_constant, only : long
00003   implicit none
00004   real(long), pointer  ::  vaca(:,:,:), alvaca(:,:,:)
00005   real(long), pointer  ::  vaxdca(:,:,:), vaydca(:,:,:), vazdca(:,:,:)
00006   real(long), pointer  ::  vaxuca(:,:,:), vayuca(:,:,:), vazuca(:,:,:)
00007   real(long), pointer  ::  jtdca(:,:,:),jxdca(:,:,:),jydca(:,:,:),jzdca(:,:,:)
00008   real(long), pointer  ::  jtuca(:,:,:),jxuca(:,:,:),jyuca(:,:,:),jzuca(:,:,:)
00009 end module def_emfield_cartesian

/home/uryu/Cocal_svn_checkinout/Cocal/code/Analysis/Module/def_emfield_cartesian.f90