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
|
/*: Finds a few eigenvalues and eigenvectors at either end of the spectrum of a large sparse symmetric matrix. */
extern int v3p_netlib_dnlaso_(
void (*op)(v3p_netlib_integer v3p_netlib_const*,
v3p_netlib_integer v3p_netlib_const*,
v3p_netlib_doublereal v3p_netlib_const*,
v3p_netlib_doublereal*),
void (*iovect)(v3p_netlib_integer v3p_netlib_const*,
v3p_netlib_integer v3p_netlib_const*,
v3p_netlib_doublereal*,
v3p_netlib_integer v3p_netlib_const*,
v3p_netlib_integer v3p_netlib_const*),
v3p_netlib_integer v3p_netlib_const *n,
v3p_netlib_integer v3p_netlib_const *nval,
v3p_netlib_integer v3p_netlib_const *nfig,
v3p_netlib_integer v3p_netlib_const *nperm,
v3p_netlib_integer v3p_netlib_const *nmval,
v3p_netlib_doublereal *val,
v3p_netlib_integer v3p_netlib_const *nmvec,
v3p_netlib_doublereal *vec,
v3p_netlib_integer v3p_netlib_const *nblock,
v3p_netlib_integer v3p_netlib_const *maxop,
v3p_netlib_integer v3p_netlib_const *maxj,
v3p_netlib_doublereal *work,
v3p_netlib_integer *ind,
v3p_netlib_integer *ierr
);
extern int v3p_netlib_dnwla_(
void (*op)(v3p_netlib_integer*,
v3p_netlib_integer*,
v3p_netlib_doublereal*,
v3p_netlib_doublereal*),
void (*iovect)(v3p_netlib_integer*,
v3p_netlib_integer*,
v3p_netlib_doublereal*,
v3p_netlib_integer*,
v3p_netlib_integer*),
v3p_netlib_integer *n,
v3p_netlib_integer *nband,
v3p_netlib_integer *nval,
v3p_netlib_integer *nfig,
v3p_netlib_integer *nperm,
v3p_netlib_doublereal *val,
v3p_netlib_integer *nmvec,
v3p_netlib_doublereal *vec,
v3p_netlib_integer *nblock,
v3p_netlib_integer *maxop,
v3p_netlib_integer *maxj,
v3p_netlib_integer *nop,
v3p_netlib_doublereal *p1,
v3p_netlib_doublereal *p0,
v3p_netlib_doublereal *res,
v3p_netlib_doublereal *tau,
v3p_netlib_doublereal *otau,
v3p_netlib_doublereal *t,
v3p_netlib_doublereal *alp,
v3p_netlib_doublereal *bet,
v3p_netlib_doublereal *s,
v3p_netlib_doublereal *p2,
v3p_netlib_doublereal *bound,
v3p_netlib_doublereal *atemp,
v3p_netlib_doublereal *vtemp,
v3p_netlib_doublereal *d__,
v3p_netlib_integer *ind,
v3p_netlib_logical *small,
v3p_netlib_logical *raritz,
v3p_netlib_doublereal *delta,
v3p_netlib_doublereal *eps,
v3p_netlib_integer *ierr
);
|
