File: slasq4.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,310 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 SLASQ4 l "15 June 2000" "LAPACK version 3.0" ")"
.SH NAME
SLASQ4 - compute an approximation TAU to the smallest eigenvalue using values of d from the previous transform
.SH SYNOPSIS
.TP 19
SUBROUTINE SLASQ4(
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
REAL
DMIN, DMIN1, DMIN2, DN, DN1, DN2, TAU
.TP 19
.ti +4
REAL
Z( * )
.SH PURPOSE
SLASQ4 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) REAL 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) REAL
.br
      Minimum value of d.
.br

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

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

DN    (input) REAL
.br
      d(N)
.br

DN1   (input) REAL
.br
      d(N-1)
.br

DN2   (input) REAL
.br
      d(N-2)
.br

TAU   (output) REAL
.br
      This is the shift.
.br

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

.SH FURTHER DETAILS