MAN page from openSUSE Leap 42 blas-man-3.5.0-9.1.noarch.rpm
csscal.f
Section: LAPACK (3)
Updated: Fri Nov 4 2016
Index NAME
csscal.f -
SYNOPSIS
Functions/Subroutines
subroutine CSSCAL (N, SA, CX, INCX)
CSSCAL
Function/Subroutine Documentation
subroutine CSSCAL (integer N, real SA, complex, dimension(*) CX, integer INCX)
CSSCAL
Purpose:
CSSCAL scales a complex vector by a real constant.
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 3/93 to return if incx .le. 0. modified 12/3/93, array(1) declarations changed to array(*)
Definition at line 54 of file csscal.f.
54 *55 * -- Reference BLAS level1 routine (version 3.4.0) --56 * -- Reference BLAS is a software package provided by Univ. of Tennessee, --57 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--58 * November 201159 *60 * .. Scalar Arguments ..61 REAL sa62 INTEGER incx,n63 * ..64 * .. Array Arguments ..65 COMPLEX cx(*)66 * ..67 *68 * =====================================================================69 *70 * .. Local Scalars ..71 INTEGER i,nincx72 * ..73 * .. Intrinsic Functions ..74 INTRINSIC aimag,cmplx,real75 * ..76 IF (n.LE.0 .OR. incx.LE.0) RETURN77 IF (incx.EQ.1) THEN78 *79 * code for increment equal to 180 *81 DO i = 1,n82 cx(i) = cmplx(sa*REAL(CX(I)),sa*aimag(cx(i)))83 END DO84 ELSE85 *86 * code for increment not equal to 187 *88 nincx = n*incx89 DO i = 1,nincx,incx90 cx(i) = cmplx(sa*REAL(CX(I)),sa*aimag(cx(i)))91 END DO92 END IF93 RETURN
Author
Generated automatically by Doxygen for LAPACK from the source code.
Index
- NAME
- SYNOPSIS
- Functions/Subroutines
- Function/Subroutine Documentation
- subroutine CSSCAL (integer N, real SA, complex, dimension(*) CX, integer INCX)
- Author
This document was created byman2html,using the manual pages.
