SEARCH NEW RPMS DIRECTORIES ABOUT FAQ VARIOUS BLOG DONATE YUM REPOSITORY

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

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

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

CX

`          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

`          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

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

S

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

Author:

Univ. of Tennessee

Univ. of California Berkeley

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.