00001 ! --- Computation of the radial green's function hgfn. --- 00002 ! ________________________________________________________ 00003 module radial_green_fn_grav_bhex_dd_mpt 00004 use phys_constant, only : long 00005 use grid_parameter, only : nrg, nlg, rgin, rgout 00006 use coordinate_grav_r, only : rg, rginv, hrg, hrginv 00007 use make_array_3d 00008 implicit none 00009 real(long), pointer :: hgfn_dd_(:,:,:,:), gfnsf_dd_(:,:,:,:) 00010 end module radial_green_fn_grav_bhex_dd_mpt