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

csrot.f

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

NAME

csrot.f -

SYNOPSIS

Functions/Subroutines

subroutine CSROT (N, CX, INCX, CY, INCY, C, S)
CSROT

Function/Subroutine Documentation

subroutine CSROT (integer N, complex, dimension( * ) CX, integer INCX, complex, dimension( * ) CY, integer INCY, real C, real S)

CSROT

Purpose:

 CSROT applies a plane rotation, where the cos and sin (c and s) are real and the vectors cx and cy are complex. jack dongarra, linpack, 3/11/78.

Parameters:

          N is INTEGER           On entry, N specifies the order of the vectors cx and cy.           N must be at least zero.

          CX is COMPLEX array, dimension at least           ( 1 + ( N - 1 )*abs( INCX ) ).           Before entry, the incremented array CX must contain the n           element vector cx. On exit, CX is overwritten by the updated           vector cx.

INCX

          INCX is INTEGER           On entry, INCX specifies the increment for the elements of           CX. INCX must not be zero.

          CY is COMPLEX array, dimension at least           ( 1 + ( N - 1 )*abs( INCY ) ).           Before entry, the incremented array CY must contain the n           element vector cy. On exit, CY is overwritten by the updated           vector cy.

INCY

          INCY is INTEGER           On entry, INCY specifies the increment for the elements of           CY. INCY must not be zero.

          C is REAL           On entry, C specifies the cosine, cos.

          S is REAL           On entry, S specifies the sine, sin.

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

: November 2011

Definition at line 100 of file csrot.f.

100 *101 *  -- Reference BLAS level1 routine (version 3.4.0) --102 *  -- Reference BLAS is a software package provided by Univ. of Tennessee,    --103 *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--104 *     November 2011105 *106 *     .. Scalar Arguments ..107       INTEGER           incx, incy, n108       REAL              c, s109 *     ..110 *     .. Array Arguments ..111       COMPLEX           cx( * ), cy( * )112 *     ..113 *114 *  =====================================================================115 *116 *     .. Local Scalars ..117       INTEGER           i, ix, iy118       COMPLEX           ctemp119 *     ..120 *     .. Executable Statements ..121 *122       IF( n.LE.0 )123      $   RETURN124       IF( incx.EQ.1 .AND. incy.EQ.1 ) THEN125 *126 *        code for both increments equal to 1127 *128          DO i = 1, n129             ctemp = c*cx( i ) + s*cy( i )130             cy( i ) = c*cy( i ) - s*cx( i )131             cx( i ) = ctemp132          END DO133       ELSE134 *135 *        code for unequal increments or equal increments not equal136 *          to 1137 *138          ix = 1139          iy = 1140          IF( incx.LT.0 )141      $      ix = ( -n+1 )*incx + 1142          IF( incy.LT.0 )143      $      iy = ( -n+1 )*incy + 1144          DO i = 1, n145             ctemp = c*cx( ix ) + s*cy( iy )146             cy( iy ) = c*cy( iy ) - s*cx( ix )147             cx( ix ) = ctemp148             ix = ix + incx149             iy = iy + incy150          END DO151       END IF152       RETURN

Author

Generated automatically by Doxygen for LAPACK from the source code.

Index

NAME

SYNOPSIS

Functions/Subroutines

Function/Subroutine Documentation

subroutine CSROT (integer N, complex, dimension( * ) CX, integer INCX, complex, dimension( * ) CY, integer INCY, real C, real S)

Author

This document was created byman2html,using the manual pages.