c----------------------------------------------------------------------
	subroutine gridsc(nmax,gr0,gr,grho)
c  The sunbroutine GRIDSC uses the uniform grid stored in gr to 
c  calculate the scaled grid rho=1/(1+r/r0)
c
c  author: Heiko Appel,  5.18.99
c      in: nmax - number of gridpoints
c          gr0 - parameter for y grid
c          gr  - uniform grid as input
c     out: grho - contains the y grid 
c   calls: --
	implicit real*8(a-h,o-z)
	real*8 gr(0:nmax),grho(0:nmax)
	real*8 gr0
	integer nmax