subroutinecaxpy(integerN,complexCA,complex,dimension(*)CX,integerINCX,complex,dimension(*)CY,integerINCY)CAXPYPurpose:
CAXPY constant times a vector plus a vector.
ParametersN
N is INTEGER
number of elements in input vector(s)
CA
CA is COMPLEX
On entry, CA specifies the scalar alpha.
CX
CX is COMPLEX array, dimension ( 1 + ( N - 1 )*abs( INCX ) )
INCX
INCX is INTEGER
storage spacing between elements of CX
CY
CY is COMPLEX array, dimension ( 1 + ( N - 1 )*abs( INCY ) )
INCY
INCY is INTEGER
storage spacing between elements of CY
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.
FurtherDetails:
jack dongarra, linpack, 3/11/78.
modified 12/3/93, array(1) declarations changed to array(*)
subroutineccopy(integerN,complex,dimension(*)CX,integerINCX,complex,dimension(*)CY,integerINCY)CCOPYPurpose:
CCOPY copies a vector x to a vector y.
ParametersN
N is INTEGER
number of elements in input vector(s)
CX
CX is COMPLEX array, dimension ( 1 + ( N - 1 )*abs( INCX ) )
INCX
INCX is INTEGER
storage spacing between elements of CX
CY
CY is COMPLEX array, dimension ( 1 + ( N - 1 )*abs( INCY ) )
INCY
INCY is INTEGER
storage spacing between elements of CY
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.
FurtherDetails:
jack dongarra, linpack, 3/11/78.
modified 12/3/93, array(1) declarations changed to array(*)
complexfunctioncdotc(integerN,complex,dimension(*)CX,integerINCX,complex,dimension(*)CY,integerINCY)CDOTCPurpose:
CDOTC forms the dot product of two complex vectors
CDOTC = X^H * Y
ParametersN
N is INTEGER
number of elements in input vector(s)
CX
CX is COMPLEX array, dimension ( 1 + ( N - 1 )*abs( INCX ) )
INCX
INCX is INTEGER
storage spacing between elements of CX
CY
CY is COMPLEX array, dimension ( 1 + ( N - 1 )*abs( INCY ) )
INCY
INCY is INTEGER
storage spacing between elements of CY
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.
FurtherDetails:
jack dongarra, linpack, 3/11/78.
modified 12/3/93, array(1) declarations changed to array(*)
complexfunctioncdotu(integerN,complex,dimension(*)CX,integerINCX,complex,dimension(*)CY,integerINCY)CDOTUPurpose:
CDOTU forms the dot product of two complex vectors
CDOTU = X^T * Y
ParametersN
N is INTEGER
number of elements in input vector(s)
CX
CX is COMPLEX array, dimension ( 1 + ( N - 1 )*abs( INCX ) )
INCX
INCX is INTEGER
storage spacing between elements of CX
CY
CY is COMPLEX array, dimension ( 1 + ( N - 1 )*abs( INCY ) )
INCY
INCY is INTEGER
storage spacing between elements of CY
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.
FurtherDetails:
jack dongarra, linpack, 3/11/78.
modified 12/3/93, array(1) declarations changed to array(*)
subroutinecscal(integerN,complexCA,complex,dimension(*)CX,integerINCX)CSCALPurpose:
CSCAL scales a vector by a constant.
ParametersN
N is INTEGER
number of elements in input vector(s)
CA
CA is COMPLEX
On entry, CA specifies the scalar alpha.
CX
CX is COMPLEX array, dimension ( 1 + ( N - 1 )*abs( INCX ) )
INCX
INCX is INTEGER
storage spacing between elements of CX
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.
FurtherDetails:
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(*)
subroutinecsrot(integerN,complex,dimension(*)CX,integerINCX,complex,dimension(*)CY,integerINCY,realC,realS)CSROTPurpose:
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.
ParametersN
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.
subroutinecsscal(integerN,realSA,complex,dimension(*)CX,integerINCX)CSSCALPurpose:
CSSCAL scales a complex vector by a real constant.
ParametersN
N is INTEGER
number of elements in input vector(s)
SA
SA is REAL
On entry, SA specifies the scalar alpha.
CX
CX is COMPLEX array, dimension ( 1 + ( N - 1 )*abs( INCX ) )
INCX
INCX is INTEGER
storage spacing between elements of CX
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.
FurtherDetails:
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(*)
subroutinecswap(integerN,complex,dimension(*)CX,integerINCX,complex,dimension(*)CY,integerINCY)CSWAPPurpose:
CSWAP interchanges two vectors.
ParametersN
N is INTEGER
number of elements in input vector(s)
CX
CX is COMPLEX array, dimension ( 1 + ( N - 1 )*abs( INCX ) )
INCX
INCX is INTEGER
storage spacing between elements of CX
CY
CY is COMPLEX array, dimension ( 1 + ( N - 1 )*abs( INCY ) )
INCY
INCY is INTEGER
storage spacing between elements of CY
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.
FurtherDetails:
jack dongarra, linpack, 3/11/78.
modified 12/3/93, array(1) declarations changed to array(*)
Install Now
PNG Icons
