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
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
|
! -*- f90 -*-
! Note: the context of this file is case sensitive.
python module _arpack ! in
<_rd=real,double precision>
<_cd=complex,double complex>
interface ! in :_arpack
subroutine <s,d>saupd(ido,bmat,n,which,nev,tol,resid,ncv,v,ldv,iparam,ipntr,workd,workl,lworkl,info) ! in :_arpack:src/ssaupd.f
threadsafe ! it's not really threadsafe, but we use a lock on the Python side, so keeping GIL is not needed
integer intent(in,out):: ido
character*1 :: bmat
integer optional,check(len(resid)>=n),depend(resid) :: n=len(resid)
character*2 :: which
integer :: nev
<_rd>, intent(in,out) :: tol
<_rd> dimension(n),intent(in,out) :: resid
integer optional,check(shape(v,1)==ncv),depend(v) :: ncv=shape(v,1)
<_rd> dimension(ldv,ncv),intent(in,out) :: v
integer optional,check(shape(v,0)==ldv),depend(v) :: ldv=shape(v,0)
integer dimension(11),intent(in,out) :: iparam
integer dimension(11),intent(in,out) :: ipntr
<_rd> dimension(3 * n),depend(n),intent(inout) :: workd
<_rd> dimension(lworkl),intent(inout) :: workl
integer optional,check(len(workl)>=lworkl),depend(workl) :: lworkl=len(workl)
integer intent(in,out):: info
end subroutine <s,d>saupd
subroutine <s,d>seupd(rvec,howmny,select,d,z,ldz,sigma,bmat,n,which,nev,tol,resid,ncv,v,ldv,iparam,ipntr,workd,workl,lworkl,info) ! in :_arpack:src/sseupd.f
threadsafe ! it's not really threadsafe, but we use a lock on the Python side, so keeping GIL is not needed
logical :: rvec
character :: howmny
logical dimension(ncv) :: select
<_rd> dimension(nev),intent(out),depend(nev) :: d
<_rd> dimension(n,nev),intent(out),depend(n,nev) :: z
integer optional,check(shape(z,0)==ldz),depend(z) :: ldz=shape(z,0)
<_rd> :: sigma
character :: bmat
integer optional,check(len(resid)>=n),depend(resid) :: n=len(resid)
character*2 :: which
integer :: nev
<_rd> :: tol
<_rd> dimension(n) :: resid
integer optional,check(len(select)>=ncv),depend(select) :: ncv=len(select)
<_rd> dimension(ldv,ncv),depend(ncv) :: v
integer optional,check(shape(v,0)==ldv),depend(v) :: ldv=shape(v,0)
integer dimension(7) :: iparam
integer dimension(11) :: ipntr
<_rd> dimension(2 * n),depend(n) :: workd
<_rd> dimension(lworkl) :: workl
integer optional,check(len(workl)>=lworkl),depend(workl) :: lworkl=len(workl)
integer intent(in,out):: info
end subroutine <s,d>seupd
subroutine <s,d>naupd(ido,bmat,n,which,nev,tol,resid,ncv,v,ldv,iparam,ipntr,workd,workl,lworkl,info) ! in :_arpack:src/snaupd.f
threadsafe ! it's not really threadsafe, but we use a lock on the Python side, so keeping GIL is not needed
integer intent(in,out):: ido
character*1 :: bmat
integer optional,check(len(resid)>=n),depend(resid) :: n=len(resid)
character*2 :: which
integer :: nev
<_rd>, intent(in,out) :: tol
<_rd> dimension(n),intent(in,out) :: resid
integer optional,check(shape(v,1)==ncv),depend(v) :: ncv=shape(v,1)
<_rd> dimension(ldv,ncv),intent(in,out) :: v
integer optional,check(shape(v,0)==ldv),depend(v) :: ldv=shape(v,0)
integer dimension(11),intent(in,out) :: iparam
integer dimension(14),intent(in,out) :: ipntr
<_rd> dimension(3 * n),depend(n),intent(inout) :: workd
<_rd> dimension(lworkl),intent(inout) :: workl
integer optional,check(len(workl)>=lworkl),depend(workl) :: lworkl=len(workl)
integer intent(in,out):: info
end subroutine <s,d>naupd
subroutine <s,d>neupd(rvec,howmny,select,dr,di,z,ldz,sigmar,sigmai,workev,bmat,n,which,nev,tol,resid,ncv,v,ldv,iparam,ipntr,workd,workl,lworkl,info) ! in ARPACK/SRC/sneupd.f
threadsafe ! it's not really threadsafe, but we use a lock on the Python side, so keeping GIL is not needed
logical :: rvec
character :: howmny
logical dimension(ncv) :: select
<_rd> dimension(nev + 1),depend(nev),intent(out) :: dr
<_rd> dimension(nev + 1),depend(nev),intent(out) :: di
<_rd> dimension(n,nev+1),depend(n,nev),intent(out) :: z
integer optional,check(shape(z,0)==ldz),depend(z) :: ldz=shape(z,0)
<_rd> :: sigmar
<_rd> :: sigmai
<_rd> dimension(3 * ncv),depend(ncv) :: workev
character :: bmat
integer optional,check(len(resid)>=n),depend(resid) :: n=len(resid)
character*2 :: which
integer :: nev
<_rd> :: tol
<_rd> dimension(n) :: resid
integer optional,check(len(select)>=ncv),depend(select) :: ncv=len(select)
<_rd> dimension(n,ncv),depend(n,ncv) :: v
integer optional,check(shape(v,0)==ldv),depend(v) :: ldv=shape(v,0)
integer dimension(11) :: iparam
integer dimension(14) :: ipntr
<_rd> dimension(3 * n),depend(n):: workd
<_rd> dimension(lworkl) :: workl
integer optional,check(len(workl)>=lworkl),depend(workl) :: lworkl=len(workl)
integer intent(in,out):: info
end subroutine <s,d>neupd
subroutine <c,z>naupd(ido,bmat,n,which,nev,tol,resid,ncv,v,ldv,iparam,ipntr,workd,workl,lworkl,rwork,info) ! in :_arpack:src/snaupd.f
threadsafe ! it's not really threadsafe, but we use a lock on the Python side, so keeping GIL is not needed
integer intent(in,out):: ido
character*1 :: bmat
integer optional,check(len(resid)>=n),depend(resid) :: n=len(resid)
character*2 :: which
integer :: nev
<_rd>, intent(in,out) :: tol
<_cd> dimension(n),intent(in,out) :: resid
integer optional,check(shape(v,1)==ncv),depend(v) :: ncv=shape(v,1)
<_cd> dimension(ldv,ncv),intent(in,out) :: v
integer optional,check(shape(v,0)==ldv),depend(v) :: ldv=shape(v,0)
integer dimension(11),intent(in,out) :: iparam
integer dimension(14),intent(in,out) :: ipntr
<_cd> dimension(3 * n),depend(n),intent(inout) :: workd
<_cd> dimension(lworkl),intent(inout) :: workl
integer optional,check(len(workl)>=lworkl),depend(workl) :: lworkl=len(workl)
<_rd> dimension(ncv),depend(ncv),intent(inout) :: rwork
integer intent(in,out):: info
end subroutine <c,z>naupd
subroutine <c,z>neupd(rvec,howmny,select,d,z,ldz,sigma,workev,bmat,n,which,nev,tol,resid,ncv,v,ldv,iparam,ipntr,workd,workl,lworkl,rwork,info) ! in :_arpack:src/sneupd.f
threadsafe ! it's not really threadsafe, but we use a lock on the Python side, so keeping GIL is not needed
logical :: rvec
character :: howmny
logical dimension(ncv) :: select
<_cd> dimension(nev),depend(nev),intent(out) :: d
<_cd> dimension(n,nev), depend(n,nev),intent(out) :: z
integer optional,check(shape(z,0)==ldz),depend(z) :: ldz=shape(z,0)
<_cd> :: sigma
<_cd> dimension(3 * ncv),depend(ncv) :: workev
character :: bmat
integer optional,check(len(resid)>=n),depend(resid) :: n=len(resid)
character*2 :: which
integer :: nev
<_rd> :: tol
<_cd> dimension(n) :: resid
integer optional,check(len(select)>=ncv),depend(select) :: ncv=len(select)
<_cd> dimension(ldv,ncv),depend(ncv) :: v
integer optional,check(shape(v,0)==ldv),depend(v) :: ldv=shape(v,0)
integer dimension(11) :: iparam
integer dimension(14) :: ipntr
<_cd> dimension(3 * n),depend(n) :: workd
<_cd> dimension(lworkl) :: workl
integer optional,check(len(workl)>=lworkl),depend(workl) :: lworkl=len(workl)
<_rd> dimension(ncv),depend(ncv) :: rwork
integer intent(in,out):: info
end subroutine <c,z>neupd
integer :: logfil
integer :: ndigit
integer :: mgetv0
integer :: msaupd
integer :: msaup2
integer :: msaitr
integer :: mseigt
integer :: msapps
integer :: msgets
integer :: mseupd
integer :: mnaupd
integer :: mnaup2
integer :: mnaitr
integer :: mneigh
integer :: mnapps
integer :: mngets
integer :: mneupd
integer :: mcaupd
integer :: mcaup2
integer :: mcaitr
integer :: mceigh
integer :: mcapps
integer :: mcgets
integer :: mceupd
integer :: nopx
integer :: nbx
integer :: nrorth
integer :: nitref
integer :: nrstrt
real :: tsaupd
real :: tsaup2
real :: tsaitr
real :: tseigt
real :: tsgets
real :: tsapps
real :: tsconv
real :: tnaupd
real :: tnaup2
real :: tnaitr
real :: tneigh
real :: tngets
real :: tnapps
real :: tnconv
real :: tcaupd
real :: tcaup2
real :: tcaitr
real :: tceigh
real :: tcgets
real :: tcapps
real :: tcconv
real :: tmvopx
real :: tmvbx
real :: tgetv0
real :: titref
real :: trvec
common /debug/ logfil,ndigit,mgetv0,msaupd,msaup2,msaitr,mseigt,msapps,msgets,mseupd,mnaupd,mnaup2,mnaitr,mneigh,mnapps,mngets,mneupd,mcaupd,mcaup2,mcaitr,mceigh,mcapps,mcgets,mceupd
common /timing/ nopx,nbx,nrorth,nitref,nrstrt,tsaupd,tsaup2,tsaitr,tseigt,tsgets,tsapps,tsconv,tnaupd,tnaup2,tnaitr,tneigh,tngets,tnapps,tnconv,tcaupd,tcaup2,tcaitr,tceigh,tcgets,tcapps,tcconv,tmvopx,tmvbx,tgetv0,titref,trvec
end interface
end python module _arpack
! This file was auto-generated with f2py (version:2_3198).
! See http://cens.ioc.ee/projects/f2py2e/
|
