File: dlasq4.l

package info (click to toggle)
lapack 3.0.20000531a-28
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 61,920 kB
  • ctags: 46,200
  • sloc: fortran: 584,835; perl: 8,226; makefile: 2,331; awk: 71; sh: 45
file content (88 lines) | stat: -rwxr-xr-x 1,430 bytes parent folder | download | duplicates (4)
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
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
.TH DLASQ4 l "15 June 2000" "LAPACK version 3.0" ")"
.SH NAME
DLASQ4 - compute an approximation TAU to the smallest eigenvalue using values of d from the previous transform
.SH SYNOPSIS
.TP 19
SUBROUTINE DLASQ4(
I0, N0, Z, PP, N0IN, DMIN, DMIN1, DMIN2, DN,
DN1, DN2, TAU, TTYPE )
.TP 19
.ti +4
INTEGER
I0, N0, N0IN, PP, TTYPE
.TP 19
.ti +4
DOUBLE
PRECISION DMIN, DMIN1, DMIN2, DN, DN1, DN2, TAU
.TP 19
.ti +4
DOUBLE
PRECISION Z( * )
.SH PURPOSE
DLASQ4 computes an approximation TAU to the smallest eigenvalue using values of d from the previous transform. 
I0    (input) INTEGER
.br
      First index.
.br

N0    (input) INTEGER
.br
      Last index.
.br

Z     (input) DOUBLE PRECISION array, dimension ( 4*N )
.br
      Z holds the qd array.
.br

PP    (input) INTEGER
.br
      PP=0 for ping, PP=1 for pong.
.br

NOIN  (input) INTEGER
.br
      The value of N0 at start of EIGTEST.
.br

DMIN  (input) DOUBLE PRECISION
.br
      Minimum value of d.
.br

DMIN1 (input) DOUBLE PRECISION
.br
      Minimum value of d, excluding D( N0 ).
.br

DMIN2 (input) DOUBLE PRECISION
.br
      Minimum value of d, excluding D( N0 ) and D( N0-1 ).

DN    (input) DOUBLE PRECISION
.br
      d(N)
.br

DN1   (input) DOUBLE PRECISION
.br
      d(N-1)
.br

DN2   (input) DOUBLE PRECISION
.br
      d(N-2)
.br

TAU   (output) DOUBLE PRECISION
.br
      This is the shift.
.br

TTYPE (output) INTEGER
.br
      Shift type.
.br

.SH FURTHER DETAILS