00001 module def_dvphi_mpt 00002 use phys_constant, only : nnmpt 00003 implicit none 00004 real(8) :: dphiu_(3,3,nnmpt) 00005 ! -- dphiu(a,b) = D_b\phi^a 00006 ! -- dphiu(1,2) = -1.0, dphiu(2,1) = 1.0 00007 end module def_dvphi_mpt