c----------------------------------------------------------------------
	subroutine RNTGR2(n,r0,f,fint)
c simply integrates a function from 0 to infinity on n+1 uniformly spaced 
c points of y=1/(1+r/r0), producing the integral at all points inbetween.
c
c author: Kieron Burke, 1.29.99
c     in: n - number of gridpoints
c         r0 - parameter for the used y grid
c         f - vector of function values
c    out: fint - vector with integral values for all points inbetween 0 and
c                infinity
c  calls: SNTGR2
	implicit real*8(a-h,o-z)
	parameter(m=1000000)
	dimension f(0:n),fint(0:n)