subroutine cdotcsub	(	integer	n,
		complex, dimension(*)	x,
		integer	incx,
		complex, dimension(*)	y,
		integer	incy,
		complex	dotc
	)

Definition at line 7 of file cdotcsub.f.

c
      external cdotc
      complex cdotc,dotc
      integer n,incx,incy
      complex x(*),y(*)
c
      dotc=cdotc(n,x,incx,y,incy)
      return

Here is the call graph for this function: