SEARCH
NEW RPMS
DIRECTORIES
ABOUT
FAQ
VARIOUS
BLOG
DONATE


YUM REPOSITORY

 
 

MAN page from openSUSE Leap 15 blas-man-3.5.0-lp150.20.1.noarch.rpm

csrot.f

Section: LAPACK (3)
Updated: Thu Mar 29 2018
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

          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

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.