1SLASQ5(1)           LAPACK auxiliary routine (version 3.1)           SLASQ5(1)
2
3
4

NAME

6       SLASQ5  -  one  dqds  transform in ping-pong form, one version for IEEE
7       machines another for non IEEE machines
8

SYNOPSIS

10       SUBROUTINE SLASQ5( I0, N0, Z, PP, TAU, DMIN, DMIN1,  DMIN2,  DN,  DNM1,
11                          DNM2, IEEE )
12
13           LOGICAL        IEEE
14
15           INTEGER        I0, N0, PP
16
17           REAL           DMIN, DMIN1, DMIN2, DN, DNM1, DNM2, TAU
18
19           REAL           Z( * )
20

PURPOSE

22       SLASQ5  computes  one dqds transform in ping-pong form, one version for
23       IEEE machines another for non IEEE machines.
24
25

ARGUMENTS

27       I0    (input) INTEGER
28             First index.
29
30       N0    (input) INTEGER
31             Last index.
32
33       Z     (input) REAL array, dimension ( 4*N )
34             Z holds the qd array. EMIN is stored in Z(4*N0) to avoid an extra
35             argument.
36
37       PP    (input) INTEGER
38             PP=0 for ping, PP=1 for pong.
39
40       TAU   (input) REAL
41             This is the shift.
42
43       DMIN  (output) REAL
44             Minimum value of d.
45
46             DMIN1 (output) REAL Minimum value of d, excluding D( N0 ).
47
48             DMIN2  (output) REAL Minimum value of d, excluding D( N0 ) and D(
49             N0-1 ).
50
51       DN    (output) REAL
52             d(N0), the last value of d.
53
54       DNM1  (output) REAL
55             d(N0-1).
56
57       DNM2  (output) REAL
58             d(N0-2).
59
60       IEEE  (input) LOGICAL
61             Flag for IEEE or non IEEE arithmetic.
62
63
64
65 LAPACK auxiliary routine (versionNo3v.e1m)ber 2006                       SLASQ5(1)