version 1.7, 2011/07/22 07:38:02
|
version 1.8, 2011/11/21 20:37:08
|
Line 1
|
Line 1
|
|
*> \brief \b ZDROT |
|
* |
|
* =========== DOCUMENTATION =========== |
|
* |
|
* Online html documentation available at |
|
* http://www.netlib.org/lapack/explore-html/ |
|
* |
|
* Definition: |
|
* =========== |
|
* |
|
* SUBROUTINE ZDROT( N, CX, INCX, CY, INCY, C, S ) |
|
* |
|
* .. Scalar Arguments .. |
|
* INTEGER INCX, INCY, N |
|
* DOUBLE PRECISION C, S |
|
* .. |
|
* .. Array Arguments .. |
|
* COMPLEX*16 CX( * ), CY( * ) |
|
* .. |
|
* |
|
* |
|
*> \par Purpose: |
|
* ============= |
|
*> |
|
*> \verbatim |
|
*> |
|
*> 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. |
|
*> \endverbatim |
|
* |
|
* Arguments: |
|
* ========== |
|
* |
|
*> \param[in] N |
|
*> \verbatim |
|
*> N is INTEGER |
|
*> On entry, N specifies the order of the vectors cx and cy. |
|
*> N must be at least zero. |
|
*> \endverbatim |
|
*> |
|
*> \param[in,out] CX |
|
*> \verbatim |
|
*> CX is COMPLEX*16 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. |
|
*> \endverbatim |
|
*> |
|
*> \param[in] INCX |
|
*> \verbatim |
|
*> INCX is INTEGER |
|
*> On entry, INCX specifies the increment for the elements of |
|
*> CX. INCX must not be zero. |
|
*> \endverbatim |
|
*> |
|
*> \param[in,out] CY |
|
*> \verbatim |
|
*> CY is COMPLEX*16 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. |
|
*> \endverbatim |
|
*> |
|
*> \param[in] INCY |
|
*> \verbatim |
|
*> INCY is INTEGER |
|
*> On entry, INCY specifies the increment for the elements of |
|
*> CY. INCY must not be zero. |
|
*> \endverbatim |
|
*> |
|
*> \param[in] C |
|
*> \verbatim |
|
*> C is DOUBLE PRECISION |
|
*> On entry, C specifies the cosine, cos. |
|
*> \endverbatim |
|
*> |
|
*> \param[in] S |
|
*> \verbatim |
|
*> S is DOUBLE PRECISION |
|
*> On entry, S specifies the sine, sin. |
|
*> \endverbatim |
|
* |
|
* Authors: |
|
* ======== |
|
* |
|
*> \author Univ. of Tennessee |
|
*> \author Univ. of California Berkeley |
|
*> \author Univ. of Colorado Denver |
|
*> \author NAG Ltd. |
|
* |
|
*> \date November 2011 |
|
* |
|
*> \ingroup complex16_blas_level1 |
|
* |
|
* ===================================================================== |
SUBROUTINE ZDROT( N, CX, INCX, CY, INCY, C, S ) |
SUBROUTINE ZDROT( N, CX, INCX, CY, INCY, C, S ) |
* |
* |
|
* -- Reference BLAS level1 routine (version 3.4.0) -- |
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, -- |
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
|
* November 2011 |
|
* |
* .. Scalar Arguments .. |
* .. Scalar Arguments .. |
INTEGER INCX, INCY, N |
INTEGER INCX, INCY, N |
DOUBLE PRECISION C, S |
DOUBLE PRECISION C, S |
Line 8
|
Line 111
|
COMPLEX*16 CX( * ), CY( * ) |
COMPLEX*16 CX( * ), CY( * ) |
* .. |
* .. |
* |
* |
* Purpose |
|
* ======= |
|
* |
|
* 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. |
|
* |
|
* Arguments |
|
* ========== |
|
* |
|
* N (input) INTEGER |
|
* On entry, N specifies the order of the vectors cx and cy. |
|
* N must be at least zero. |
|
* Unchanged on exit. |
|
* |
|
* CX (input) COMPLEX*16 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 (input) INTEGER |
|
* On entry, INCX specifies the increment for the elements of |
|
* CX. INCX must not be zero. |
|
* Unchanged on exit. |
|
* |
|
* CY (input) COMPLEX*16 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 (input) INTEGER |
|
* On entry, INCY specifies the increment for the elements of |
|
* CY. INCY must not be zero. |
|
* Unchanged on exit. |
|
* |
|
* C (input) DOUBLE PRECISION |
|
* On entry, C specifies the cosine, cos. |
|
* Unchanged on exit. |
|
* |
|
* S (input) DOUBLE PRECISION |
|
* On entry, S specifies the sine, sin. |
|
* Unchanged on exit. |
|
* |
|
* ===================================================================== |
* ===================================================================== |
* |
* |
* .. Local Scalars .. |
* .. Local Scalars .. |