1SLARTG(1) LAPACK auxiliary routine (version 3.2) SLARTG(1)
2
3
4
6 SLARTG - generate a plane rotation so that [ CS SN ]
7
9 SUBROUTINE SLARTG( F, G, CS, SN, R )
10
11 REAL CS, F, G, R, SN
12
14 SLARTG generate a plane rotation so that
15 [ -SN CS ] [ G ] [ 0 ]
16 This is a slower, more accurate version of the BLAS1 routine SROTG,
17 with the following other differences:
18 F and G are unchanged on return.
19 If G=0, then CS=1 and SN=0.
20 If F=0 and (G .ne. 0), then CS=0 and SN=1 without doing any
21 floating point operations (saves work in SBDSQR when
22 there are zeros on the diagonal).
23 If F exceeds G in magnitude, CS will be positive.
24
26 F (input) REAL
27 The first component of vector to be rotated.
28
29 G (input) REAL
30 The second component of vector to be rotated.
31
32 CS (output) REAL
33 The cosine of the rotation.
34
35 SN (output) REAL
36 The sine of the rotation.
37
38 R (output) REAL
39 The nonzero component of the rotated vector. This version has
40 a few statements commented out for thread safety (machine
41 parameters are computed on each entry). 10 feb 03, SJH.
42
43
44
45 LAPACK auxiliary routine (versionNo3v.e2m)ber 2008 SLARTG(1)