MAN page from openSUSE Leap 42 blas-man-3.5.0-9.1.noarch.rpm
cdotu.f
Section: LAPACK (3)
Updated: Fri Nov 4 2016
Index NAME
cdotu.f -
SYNOPSIS
Functions/Subroutines
complex function CDOTU (N, CX, INCX, CY, INCY)
CDOTU
Function/Subroutine Documentation
complex function CDOTU (integer N, complex, dimension(*) CX, integer INCX, complex, dimension(*) CY, integer INCY)
CDOTU
Purpose:
CDOTU forms the dot product of two vectors.
Author:
- Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.
Date:
- November 2011
Further Details:
jack dongarra, linpack, 3/11/78. modified 12/3/93, array(1) declarations changed to array(*)
Definition at line 52 of file cdotu.f.
52 *53 * -- Reference BLAS level1 routine (version 3.4.0) --54 * -- Reference BLAS is a software package provided by Univ. of Tennessee, --55 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--56 * November 201157 *58 * .. Scalar Arguments ..59 INTEGER incx,incy,n60 * ..61 * .. Array Arguments ..62 COMPLEX cx(*),cy(*)63 * ..64 *65 * =====================================================================66 *67 * .. Local Scalars ..68 COMPLEX ctemp69 INTEGER i,ix,iy70 * ..71 ctemp = (0.0,0.0)72 cdotu = (0.0,0.0)73 IF (n.LE.0) RETURN74 IF (incx.EQ.1 .AND. incy.EQ.1) THEN75 *76 * code for both increments equal to 177 *78 DO i = 1,n79 ctemp = ctemp + cx(i)*cy(i)80 END DO81 ELSE82 *83 * code for unequal increments or equal increments84 * not equal to 185 *86 ix = 187 iy = 188 IF (incx.LT.0) ix = (-n+1)*incx + 189 IF (incy.LT.0) iy = (-n+1)*incy + 190 DO i = 1,n91 ctemp = ctemp + cx(ix)*cy(iy)92 ix = ix + incx93 iy = iy + incy94 END DO95 END IF96 cdotu = ctemp97 RETURN
Author
Generated automatically by Doxygen for LAPACK from the source code.
Index
- NAME
- SYNOPSIS
- Functions/Subroutines
- Function/Subroutine Documentation
- complex function CDOTU (integer N, complex, dimension(*) CX, integer INCX, complex, dimension(*) CY, integer INCY)
- Author
This document was created byman2html,using the manual pages.
