00001 ! --- Computation of the radial green's function hgfn. ---00002 ! ________________________________________________________00003module radial_green_fn_grav_mpt
00004 use phys_constant, only : long
00005 implicit none00006real(long), pointer :: hgfn_(:,:,:,:), gfnsf_(:,:,:,:)
00007 end module radial_green_fn_grav_mpt