1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
|
.TH SLASQ5 l "15 June 2000" "LAPACK version 3.0" ")"
.SH NAME
SLASQ5 - compute one dqds transform in ping-pong form, one version for IEEE machines another for non IEEE machines
.SH SYNOPSIS
.TP 19
SUBROUTINE SLASQ5(
I0, N0, Z, PP, TAU, DMIN, DMIN1, DMIN2, DN,
DNM1, DNM2, IEEE )
.TP 19
.ti +4
LOGICAL
IEEE
.TP 19
.ti +4
INTEGER
I0, N0, PP
.TP 19
.ti +4
REAL
DMIN, DMIN1, DMIN2, DN, DNM1, DNM2, TAU
.TP 19
.ti +4
REAL
Z( * )
.SH PURPOSE
SLASQ5 computes one dqds transform in ping-pong form, one version for IEEE machines another for non IEEE machines.
.SH ARGUMENTS
.TP 6
I0 (input) INTEGER
First index.
.TP 6
N0 (input) INTEGER
Last index.
.TP 6
Z (input) REAL array, dimension ( 4*N )
Z holds the qd array. EMIN is stored in Z(4*N0) to avoid
an extra argument.
.TP 6
PP (input) INTEGER
PP=0 for ping, PP=1 for pong.
.TP 6
TAU (input) REAL
This is the shift.
.TP 6
DMIN (output) REAL
Minimum value of d.
DMIN1 (output) REAL
Minimum value of d, excluding D( N0 ).
DMIN2 (output) REAL
Minimum value of d, excluding D( N0 ) and D( N0-1 ).
.TP 6
DN (output) REAL
d(N0), the last value of d.
.TP 6
DNM1 (output) REAL
d(N0-1).
.TP 6
DNM2 (output) REAL
d(N0-2).
.TP 6
IEEE (input) LOGICAL
Flag for IEEE or non IEEE arithmetic.
|
