	subroutine ylev(y,ny,nymin,y0,y1)
        dimension y(1) 
	y(1)=y0
	do n=1,ny
	y(n)=y1*(n+nymin-2)+y0
	end do
	return
	end
