subroutine ddotsub	(	integer	n,
		double precision, dimension(*)	x,
		integer	incx,
		double precision, dimension(*)	y,
		integer	incy,
		double precision	dot
	)

Definition at line 7 of file ddotsub.f.

c
      external ddot
      double precision ddot
      integer n,incx,incy
      double precision x(*),y(*),dot
c
      dot=ddot(n,x,incx,y,incy)
      return

Here is the call graph for this function: