subroutinezaxpy(integerN,complex*16ZA,complex*16,dimension(*)ZX,integerINCX,complex*16,dimension(*)ZY,integerINCY)ZAXPYPurpose:
ZAXPY constant times a vector plus a vector.
ParametersN
N is INTEGER
number of elements in input vector(s)
ZA
ZA is COMPLEX*16
On entry, ZA specifies the scalar alpha.
ZX
ZX is COMPLEX*16 array, dimension ( 1 + ( N - 1 )*abs( INCX ) )
INCX
INCX is INTEGER
storage spacing between elements of ZX
ZY
ZY is COMPLEX*16 array, dimension ( 1 + ( N - 1 )*abs( INCY ) )
INCY
INCY is INTEGER
storage spacing between elements of ZY
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.
FurtherDetails:
jack dongarra, 3/11/78.
modified 12/3/93, array(1) declarations changed to array(*)
subroutinezcopy(integerN,complex*16,dimension(*)ZX,integerINCX,complex*16,dimension(*)ZY,integerINCY)ZCOPYPurpose:
ZCOPY copies a vector, x, to a vector, y.
ParametersN
N is INTEGER
number of elements in input vector(s)
ZX
ZX is COMPLEX*16 array, dimension ( 1 + ( N - 1 )*abs( INCX ) )
INCX
INCX is INTEGER
storage spacing between elements of ZX
ZY
ZY is COMPLEX*16 array, dimension ( 1 + ( N - 1 )*abs( INCY ) )
INCY
INCY is INTEGER
storage spacing between elements of ZY
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.
FurtherDetails:
jack dongarra, linpack, 4/11/78.
modified 12/3/93, array(1) declarations changed to array(*)
complex*16functionzdotc(integerN,complex*16,dimension(*)ZX,integerINCX,complex*16,dimension(*)ZY,integerINCY)ZDOTCPurpose:
ZDOTC forms the dot product of two complex vectors
ZDOTC = X^H * Y
ParametersN
N is INTEGER
number of elements in input vector(s)
ZX
ZX is COMPLEX*16 array, dimension ( 1 + ( N - 1 )*abs( INCX ) )
INCX
INCX is INTEGER
storage spacing between elements of ZX
ZY
ZY is COMPLEX*16 array, dimension ( 1 + ( N - 1 )*abs( INCY ) )
INCY
INCY is INTEGER
storage spacing between elements of ZY
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.
FurtherDetails:
jack dongarra, 3/11/78.
modified 12/3/93, array(1) declarations changed to array(*)
complex*16functionzdotu(integerN,complex*16,dimension(*)ZX,integerINCX,complex*16,dimension(*)ZY,integerINCY)ZDOTUPurpose:
ZDOTU forms the dot product of two complex vectors
ZDOTU = X^T * Y
ParametersN
N is INTEGER
number of elements in input vector(s)
ZX
ZX is COMPLEX*16 array, dimension ( 1 + ( N - 1 )*abs( INCX ) )
INCX
INCX is INTEGER
storage spacing between elements of ZX
ZY
ZY is COMPLEX*16 array, dimension ( 1 + ( N - 1 )*abs( INCY ) )
INCY
INCY is INTEGER
storage spacing between elements of ZY
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.
FurtherDetails:
jack dongarra, 3/11/78.
modified 12/3/93, array(1) declarations changed to array(*)
subroutinezdrot(integerN,complex*16,dimension(*)ZX,integerINCX,complex*16,dimension(*)ZY,integerINCY,doubleprecisionC,doubleprecisionS)ZDROTPurpose:
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.
ZX
ZX is COMPLEX*16 array, dimension at least
( 1 + ( N - 1 )*abs( INCX ) ).
Before entry, the incremented array ZX must contain the n
element vector cx. On exit, ZX is overwritten by the updated
vector cx.
INCX
INCX is INTEGER
On entry, INCX specifies the increment for the elements of
ZX. INCX must not be zero.
ZY
ZY is COMPLEX*16 array, dimension at least
( 1 + ( N - 1 )*abs( INCY ) ).
Before entry, the incremented array ZY must contain the n
element vector cy. On exit, ZY is overwritten by the updated
vector cy.
INCY
INCY is INTEGER
On entry, INCY specifies the increment for the elements of
ZY. INCY must not be zero.
C
C is DOUBLE PRECISION
On entry, C specifies the cosine, cos.
S
S is DOUBLE PRECISION
On entry, S specifies the sine, sin.
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.
subroutinezdscal(integerN,doubleprecisionDA,complex*16,dimension(*)ZX,integerINCX)ZDSCALPurpose:
ZDSCAL scales a vector by a constant.
ParametersN
N is INTEGER
number of elements in input vector(s)
DA
DA is DOUBLE PRECISION
On entry, DA specifies the scalar alpha.
ZX
ZX is COMPLEX*16 array, dimension ( 1 + ( N - 1 )*abs( INCX ) )
INCX
INCX is INTEGER
storage spacing between elements of ZX
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.
FurtherDetails:
jack dongarra, 3/11/78.
modified 3/93 to return if incx .le. 0.
modified 12/3/93, array(1) declarations changed to array(*)
subroutinezscal(integerN,complex*16ZA,complex*16,dimension(*)ZX,integerINCX)ZSCALPurpose:
ZSCAL scales a vector by a constant.
ParametersN
N is INTEGER
number of elements in input vector(s)
ZA
ZA is COMPLEX*16
On entry, ZA specifies the scalar alpha.
ZX
ZX is COMPLEX*16 array, dimension ( 1 + ( N - 1 )*abs( INCX ) )
INCX
INCX is INTEGER
storage spacing between elements of ZX
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.
FurtherDetails:
jack dongarra, 3/11/78.
modified 3/93 to return if incx .le. 0.
modified 12/3/93, array(1) declarations changed to array(*)
subroutinezswap(integerN,complex*16,dimension(*)ZX,integerINCX,complex*16,dimension(*)ZY,integerINCY)ZSWAPPurpose:
ZSWAP interchanges two vectors.
ParametersN
N is INTEGER
number of elements in input vector(s)
ZX
ZX is COMPLEX*16 array, dimension ( 1 + ( N - 1 )*abs( INCX ) )
INCX
INCX is INTEGER
storage spacing between elements of ZX
ZY
ZY is COMPLEX*16 array, dimension ( 1 + ( N - 1 )*abs( INCY ) )
INCY
INCY is INTEGER
storage spacing between elements of ZY
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.
FurtherDetails:
jack dongarra, 3/11/78.
modified 12/3/93, array(1) declarations changed to array(*)
Install Now
PNG Icons
