00001
00002
00003 module legendre_fn_grav_mpt
00004 use phys_constant, only : long
00005 implicit none
00006 Real(long), pointer :: plmg_(:,:,:,:), hplmg_(:,:,:,:)
00007 Real(long), pointer :: facnmg_(:,:,:), epsig_(:,:)
00008 end module legendre_fn_grav_mpt