Go to the source code of this file.
subroutine crotg |
( |
complex |
CA, |
|
|
complex |
CB, |
|
|
real |
C, |
|
|
complex |
S |
|
) |
| |
CROTG
- Purpose:
CROTG determines a 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 crotg.f.
59 INTRINSIC cabs,conjg,sqrt
61 IF (cabs(ca).EQ.0.)
THEN
66 scale = cabs(ca) + cabs(cb)
67 norm = scale*sqrt((cabs(ca/scale))**2+ (cabs(cb/scale))**2)
70 s = alpha*conjg(cb)/norm