c----------------------------------------------------------------------
	function STDNTGRL(n,f)
c  simply integrates a function from 0 to 1 on n+1 uniformly
c  spaced points.
c
c  author: ?
c      in: n - number of gripoints
c          f - vector with function values
c     out: return value of function: integral value of f between 0 and 1
c   calls: --
	implicit real*8(a-h,o-z)
	dimension f(0:n)