1SLASQ6(1)LAPACK routine (version 3.2) SLASQ6(1)
2
3
4
6 SLASQ6 - computes one dqd (shift equal to zero) transform in ping-pong
7 form, with protection against underflow and overflow
8
10 SUBROUTINE SLASQ6( I0, N0, Z, PP, DMIN, DMIN1, DMIN2, DN, DNM1, DNM2 )
11
12 INTEGER I0, N0, PP
13
14 REAL DMIN, DMIN1, DMIN2, DN, DNM1, DNM2
15
16 REAL Z( * )
17
19 SLASQ6 computes one dqd (shift equal to zero) transform in ping-pong
20 form, with protection against underflow and overflow.
21
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. EMIN is stored in Z(4*N0) to avoid an extra
31 argument.
32
33 PP (input) INTEGER
34 PP=0 for ping, PP=1 for pong.
35
36 DMIN (output) REAL
37 Minimum value of d. DMIN1 (output) REAL Minimum value of d,
38 excluding D( N0 ). DMIN2 (output) REAL Minimum value of d,
39 excluding D( N0 ) and D( N0-1 ).
40
41 DN (output) REAL
42 d(N0), the last value of d.
43
44 DNM1 (output) REAL
45 d(N0-1).
46
47 DNM2 (output) REAL
48 d(N0-2).
49
50
51
52 LAPACK routine (version 3.2) November 2008 SLASQ6(1)