00001 module def_dvphi 00002 implicit none 00003 real(8) :: dphiu(3,3) 00004 ! -- dphiu(a,b) = D_b\phi^a 00005 ! -- dphiu(1,2) = -1.0, dphiu(2,1) = 1.0 00006 end module def_dvphi