1ZLARTG(1) LAPACK auxiliary routine (version 3.1) ZLARTG(1)
2
3
4
6 ZLARTG - a plane rotation so that [ CS SN ] [ F ] [ R ] [ __ ]
7
9 SUBROUTINE ZLARTG( F, G, CS, SN, R )
10
11 DOUBLE PRECISION CS
12
13 COMPLEX*16 F, G, R, SN
14
16 ZLARTG generates a plane rotation so that
17 [ -SN CS ] [ G ] [ 0 ]
18
19 This is a faster version of the BLAS1 routine ZROTG, except for the
20 following differences:
21 F and G are unchanged on return.
22 If G=0, then CS=1 and SN=0.
23 If F=0, then CS=0 and SN is chosen so that R is real.
24
25
27 F (input) COMPLEX*16
28 The first component of vector to be rotated.
29
30 G (input) COMPLEX*16
31 The second component of vector to be rotated.
32
33 CS (output) DOUBLE PRECISION
34 The cosine of the rotation.
35
36 SN (output) COMPLEX*16
37 The sine of the rotation.
38
39 R (output) COMPLEX*16
40 The nonzero component of the rotated vector.
41
43 3-5-96 - Modified with a new algorithm by W. Kahan and J. Demmel
44
45 This version has a few statements commented out for thread safety
46 (machine parameters are computed on each entry). 10 feb 03, SJH.
47
48
49
50
51 LAPACK auxiliary routine (versionNo3v.e1m)ber 2006 ZLARTG(1)