00001 module integrability_fnc_MHD
00002 use phys_constant, only : long
00003 implicit none
00004 real(long) :: MHDfnc_PSI, MHDfnc_dPSI, MHDfnc_d2PSI
00005 real(long) :: MHDfnc_At, MHDfnc_dAt, MHDfnc_d2At
00006 real(long) :: MHDfnc_Lambda, MHDfnc_dLambda
00007 real(long) :: MHDfnc_Lambda_t
00008 real(long) :: MHDfnc_Lambda_phi, MHDfnc_dLambda_phi
00009 real(long) :: MHDpar_apsi, MHDidx_p, MHDpar_a, MHDidx_k
00010 real(long) :: MHDpar_charge, MHDidx_q
00011 real(long) :: MHDpar_Lc, MHDidx_s
00012 end module integrability_fnc_MHD
