sdsdotsub.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	sdsdotsub (n, sb, x, incx, y, incy, dot)

Function/Subroutine Documentation

sdsdotsub()

subroutine sdsdotsub	(	integer	n,
		real	sb,
		real, dimension(*)	x,
		integer	incx,
		real, dimension(*)	y,
		integer	incy,
		real	dot )

Definition at line 6 of file sdsdotsub.f.

c
      external sdsdot
      real sb,sdsdot,dot
      integer n,incx,incy
      real x(*),y(*)
c
      dot=sdsdot(n,sb,x,incx,y,incy)
      return