MAN page from openSUSE Leap 42 blas-man-3.5.0-9.1.noarch.rpm

cdotc.f

Section: LAPACK (3)
Updated: Fri Nov 4 2016
Index

NAME

cdotc.f -

SYNOPSIS

Functions/Subroutines

complex function CDOTC (N, CX, INCX, CY, INCY)
CDOTC

Function/Subroutine Documentation

complex function CDOTC (integer N, complex, dimension() CX, integer INCX, complex, dimension() CY, integer INCY)

CDOTC

Purpose:

    forms the dot product of two vectors, conjugating the first    vector.

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 53 of file cdotc.f.

53 *54 *  -- Reference BLAS level1 routine (version 3.4.0) --55 *  -- Reference BLAS is a software package provided by Univ. of Tennessee,    --56 *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--57 *     November 201158 *59 *     .. Scalar Arguments ..60       INTEGER incx,incy,n61 *     ..62 *     .. Array Arguments ..63       COMPLEX cx(*),cy(*)64 *     ..65 *66 *  =====================================================================67 *68 *     .. Local Scalars ..69       COMPLEX ctemp70       INTEGER i,ix,iy71 *     ..72 *     .. Intrinsic Functions ..73       INTRINSIC conjg74 *     ..75       ctemp = (0.0,0.0)76       cdotc = (0.0,0.0)77       IF (n.LE.0) RETURN78       IF (incx.EQ.1 .AND. incy.EQ.1) THEN79 *80 *        code for both increments equal to 181 *82          DO i = 1,n83             ctemp = ctemp + conjg(cx(i))*cy(i)84          END DO85       ELSE86 *87 *        code for unequal increments or equal increments88 *          not equal to 189 *90          ix = 191          iy = 192          IF (incx.LT.0) ix = (-n+1)*incx + 193          IF (incy.LT.0) iy = (-n+1)*incy + 194          DO i = 1,n95             ctemp = ctemp + conjg(cx(ix))*cy(iy)96             ix = ix + incx97             iy = iy + incy98          END DO99       END IF100       cdotc = ctemp101       RETURN

Author

Generated automatically by Doxygen for LAPACK from the source code.

Index

NAME

SYNOPSIS

Functions/Subroutines

Function/Subroutine Documentation

complex function CDOTC (integer N, complex, dimension(*) CX, integer INCX, complex, dimension(*) CY, integer INCY)

Author

This document was created byman2html,using the manual pages.