1SLAZQ4(1) LAPACK auxiliary routine (version 3.1) SLAZQ4(1)
2
3
4
6 SLAZQ4 - an approximation TAU to the smallest eigenvalue using values
7 of d from the previous transform
8
10 SUBROUTINE SLAZQ4( I0, N0, Z, PP, N0IN, DMIN, DMIN1, DMIN2, DN, DN1,
11 DN2, TAU, TTYPE, G )
12
13 INTEGER I0, N0, N0IN, PP, TTYPE
14
15 REAL DMIN, DMIN1, DMIN2, DN, DN1, DN2, G, TAU
16
17 REAL Z( * )
18
20 SLAZQ4 computes an approximation TAU to the smallest eigenvalue using
21 values of d from the previous transform.
22
23 I0 (input) INTEGER
24 First index.
25
26 N0 (input) INTEGER
27 Last index.
28
29 Z (input) REAL array, dimension ( 4*N )
30 Z holds the qd array.
31
32 PP (input) INTEGER
33 PP=0 for ping, PP=1 for pong.
34
35 N0IN (input) INTEGER
36 The value of N0 at start of EIGTEST.
37
38 DMIN (input) REAL
39 Minimum value of d.
40
41 DMIN1 (input) REAL
42 Minimum value of d, excluding D( N0 ).
43
44 DMIN2 (input) REAL
45 Minimum value of d, excluding D( N0 ) and D( N0-1 ).
46
47 DN (input) REAL
48 d(N)
49
50 DN1 (input) REAL
51 d(N-1)
52
53 DN2 (input) REAL
54 d(N-2)
55
56 TAU (output) REAL
57 This is the shift.
58
59 TTYPE (output) INTEGER
60 Shift type.
61
62 G (input/output) REAL
63 G is passed as an argument in order to save its value between
64 calls to SLAZQ4
65
66
68 This is a thread safe version of SLASQ4, which passes G through the
69 argument list in place of declaring G in a SAVE statment.
70
71
72
73
74 LAPACK auxiliary routine (versionNo3v.e1m)ber 2006 SLAZQ4(1)