Go to the source code of this file.
subroutine zrotg |
( |
complex*16 |
CA, |
|
|
complex*16 |
CB, |
|
|
double precision |
C, |
|
|
complex*16 |
S |
|
) |
| |
ZROTG
- Purpose:
ZROTG determines a double complex Givens rotation.
- Author
- Univ. of Tennessee
-
Univ. of California Berkeley
-
Univ. of Colorado Denver
-
NAG Ltd.
- Date
- November 2011
Definition at line 41 of file zrotg.f.
56 DOUBLE PRECISION norm,scale
59 INTRINSIC cdabs,dcmplx,dconjg,dsqrt
61 IF (cdabs(ca).EQ.0.0d0)
THEN
66 scale = cdabs(ca) + cdabs(cb)
67 norm = scale*dsqrt((cdabs(ca/dcmplx(scale,0.0d0)))**2+
68 $ (cdabs(cb/dcmplx(scale,0.0d0)))**2)
71 s = alpha*dconjg(cb)/norm