sasumsub.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	sasumsub (n, x, incx, asum)

Function/Subroutine Documentation

sasumsub()

subroutine sasumsub	(	integer	n,
		real, dimension(*)	x,
		integer	incx,
		real	asum
	)

Definition at line 6 of file sasumsub.f.

c
      external sasum
      real sasum,asum
      integer n,incx
      real x(*)
c
      asum=sasum(n,x,incx)
      return