← Back to branch summary

~ubuntu-branches/ubuntu/saucy/python-scipy/saucy

« back to all changes in this revision

Viewing changes to scipy/sandbox/arpack/arpack.pyf.src

  • Committer: Bazaar Package Importer
  • Author(s): Ondrej Certik
  • Date: 2008-06-16 22:58:01 UTC
  • mfrom: (2.1.24 intrepid)
  • Revision ID: james.westby@ubuntu.com-20080616225801-irdhrpcwiocfbcmt
Tags: 0.6.0-12
http://bugs.debian.org/489149
* The description updated to match the current SciPy (Closes: #489149).
* Standards-Version bumped to 3.8.0 (no action needed)
* Build-Depends: netcdf-dev changed to libnetcdf-dev

Show diffs side-by-side

added added

removed removed

Lines of Context:
scipy/sandbox/arpack/arpack.pyf.src
 
1
!    -*- f90 -*-
 
2
! Note: the context of this file is case sensitive.
 
3
 
 
4
python module _arpack ! in 
 
5
    <_rd=real,double precision>
 
6
    <_cd=complex,double complex>
 
7
    interface  ! in :_arpack
 
8
        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
 
9
            integer intent(in,out):: ido
 
10
            character*1 :: bmat
 
11
            integer optional,check(len(resid)>=n),depend(resid) :: n=len(resid)
 
12
            character*2 :: which
 
13
            integer :: nev
 
14
            <_rd> :: tol
 
15
            <_rd> dimension(n),intent(in,out) :: resid
 
16
            integer optional,check(shape(v,1)==ncv),depend(v) :: ncv=shape(v,1)
 
17
            <_rd> dimension(ldv,ncv),intent(in,out) :: v
 
18
            integer optional,check(shape(v,0)==ldv),depend(v) :: ldv=shape(v,0)
 
19
            integer dimension(11),intent(in,out) :: iparam
 
20
            integer dimension(11),intent(in,out) :: ipntr
 
21
            <_rd> dimension(3 * n),depend(n),intent(inout) :: workd
 
22
            <_rd> dimension(lworkl),intent(inout) :: workl
 
23
            integer optional,check(len(workl)>=lworkl),depend(workl) :: lworkl=len(workl)
 
24
            integer intent(in,out):: info
 
25
        end subroutine <s,d>saupd
 
26
 
 
27
        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
 
28
            logical :: rvec
 
29
            character :: howmny
 
30
            logical dimension(ncv) :: select
 
31
            <_rd> dimension(nev),intent(out),depend(nev) :: d
 
32
            <_rd> dimension(n,nev),intent(out),depend(nev) :: z
 
33
            integer optional,check(shape(z,0)==ldz),depend(z) :: ldz=shape(z,0)
 
34
            <_rd> :: sigma
 
35
            character :: bmat
 
36
            integer optional,check(len(resid)>=n),depend(resid) :: n=len(resid)
 
37
            character*2 :: which
 
38
            integer :: nev 
 
39
            <_rd> :: tol
 
40
            <_rd> dimension(n) :: resid
 
41
            integer optional,check(len(select)>=ncv),depend(select) :: ncv=len(select)
 
42
            <_rd> dimension(ldv,ncv),depend(ncv) :: v
 
43
            integer optional,check(shape(v,0)==ldv),depend(v) :: ldv=shape(v,0)
 
44
            integer dimension(7) :: iparam
 
45
            integer dimension(11) :: ipntr
 
46
            <_rd> dimension(2 * n),depend(n) :: workd
 
47
            <_rd> dimension(lworkl) :: workl
 
48
            integer optional,check(len(workl)>=lworkl),depend(workl) :: lworkl=len(workl)
 
49
            integer intent(in,out):: info
 
50
        end subroutine <s,d>seupd
 
51
 
 
52
        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
 
53
            integer intent(in,out):: ido
 
54
            character*1 :: bmat
 
55
            integer optional,check(len(resid)>=n),depend(resid) :: n=len(resid)
 
56
            character*2 :: which
 
57
            integer :: nev
 
58
            <_rd> :: tol
 
59
            <_rd> dimension(n),intent(in,out) :: resid
 
60
            integer optional,check(shape(v,1)==ncv),depend(v) :: ncv=shape(v,1)
 
61
            <_rd> dimension(ldv,ncv),intent(in,out) :: v
 
62
            integer optional,check(shape(v,0)==ldv),depend(v) :: ldv=shape(v,0)
 
63
            integer dimension(11),intent(in,out) :: iparam
 
64
            integer dimension(14),intent(in,out) :: ipntr
 
65
            <_rd> dimension(3 * n),depend(n),intent(inout) :: workd
 
66
            <_rd> dimension(lworkl),intent(inout) :: workl
 
67
            integer optional,check(len(workl)>=lworkl),depend(workl) :: lworkl=len(workl)
 
68
            integer intent(in,out):: info
 
69
        end subroutine <s,d>naupd
 
70
 
 
71
        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
 
72
            logical :: rvec
 
73
            character :: howmny
 
74
            logical dimension(ncv) :: select
 
75
            <_rd> dimension(nev + 1),depend(nev),intent(out) :: dr
 
76
            <_rd> dimension(nev + 1),depend(nev),intent(out) :: di
 
77
            <_rd> dimension(n,nev+1),depend(n,nev),intent(out) :: z
 
78
            integer optional,check(shape(z,0)==ldz),depend(z) :: ldz=shape(z,0)
 
79
            <_rd> :: sigmar
 
80
            <_rd> :: sigmai
 
81
            <_rd> dimension(3 * ncv),depend(ncv) :: workev
 
82
            character :: bmat
 
83
            integer optional,check(len(resid)>=n),depend(resid) :: n=len(resid)
 
84
            character*2 :: which
 
85
            integer :: nev
 
86
            <_rd> :: tol
 
87
            <_rd> dimension(n) :: resid
 
88
            integer optional,check(len(select)>=ncv),depend(select) :: ncv=len(select)
 
89
            <_rd> dimension(n,ncv),depend(n,ncv) :: v
 
90
            integer optional,check(shape(v,0)==ldv),depend(v) :: ldv=shape(v,0)
 
91
            integer dimension(11) :: iparam
 
92
            integer dimension(14) :: ipntr
 
93
            <_rd> dimension(3 * n),depend(n):: workd
 
94
            <_rd> dimension(lworkl) :: workl
 
95
            integer optional,check(len(workl)>=lworkl),depend(workl) :: lworkl=len(workl)
 
96
            integer intent(in,out):: info
 
97
        end subroutine <s,d>neupd
 
98
 
 
99
        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
 
100
            integer intent(in,out):: ido
 
101
            character*1 :: bmat
 
102
            integer optional,check(len(resid)>=n),depend(resid) :: n=len(resid)
 
103
            character*2 :: which
 
104
            integer :: nev
 
105
            <_rd> :: tol
 
106
            <_cd> dimension(n),intent(in,out) :: resid
 
107
            integer optional,check(shape(v,1)==ncv),depend(v) :: ncv=shape(v,1)
 
108
            <_cd> dimension(ldv,ncv),intent(in,out) :: v
 
109
            integer optional,check(shape(v,0)==ldv),depend(v) :: ldv=shape(v,0)
 
110
            integer dimension(11),intent(in,out) :: iparam
 
111
            integer dimension(14),intent(in,out) :: ipntr
 
112
            <_cd> dimension(3 * n),depend(n),intent(inout) :: workd
 
113
            <_cd> dimension(lworkl),intent(inout) :: workl
 
114
            integer optional,check(len(workl)>=lworkl),depend(workl) :: lworkl=len(workl)
 
115
            <_rd> dimension(ncv),depend(ncv),intent(inout) :: rwork
 
116
            integer intent(in,out):: info
 
117
        end subroutine <c,z>naupd
 
118
 
 
119
        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
 
120
            logical :: rvec
 
121
            character :: howmny
 
122
            logical dimension(ncv) :: select
 
123
            <_cd> dimension(nev),depend(nev),intent(out) :: d
 
124
            <_cd> dimension(n,nev), depend(nev),intent(out) :: z
 
125
            integer optional,check(shape(z,0)==ldz),depend(z) :: ldz=shape(z,0)
 
126
            <_cd> :: sigma
 
127
            <_cd> dimension(3 * ncv),depend(ncv) :: workev
 
128
            character :: bmat
 
129
            integer optional,check(len(resid)>=n),depend(resid) :: n=len(resid)
 
130
            character*2 :: which
 
131
            integer :: nev 
 
132
            <_rd> :: tol
 
133
            <_cd> dimension(n) :: resid
 
134
            integer optional,check(len(select)>=ncv),depend(select) :: ncv=len(select)
 
135
            <_cd> dimension(ldv,ncv),depend(ncv) :: v
 
136
            integer optional,check(shape(v,0)==ldv),depend(v) :: ldv=shape(v,0)
 
137
            integer dimension(11) :: iparam
 
138
            integer dimension(14) :: ipntr
 
139
            <_cd> dimension(3 * n),depend(n) :: workd
 
140
            <_cd> dimension(lworkl) :: workl
 
141
            integer optional,check(len(workl)>=lworkl),depend(workl) :: lworkl=len(workl)
 
142
            <_rd> dimension(ncv),depend(ncv) :: rwork
 
143
            integer intent(in,out):: info
 
144
        end subroutine <c,z>neupd
 
145
            integer :: logfil
 
146
            integer :: ndigit
 
147
            integer :: mgetv0
 
148
            integer :: msaupd
 
149
            integer :: msaup2
 
150
            integer :: msaitr
 
151
            integer :: mseigt
 
152
            integer :: msapps
 
153
            integer :: msgets
 
154
            integer :: mseupd
 
155
            integer :: mnaupd
 
156
            integer :: mnaup2
 
157
            integer :: mnaitr
 
158
            integer :: mneigh
 
159
            integer :: mnapps
 
160
            integer :: mngets
 
161
            integer :: mneupd
 
162
            integer :: mcaupd
 
163
            integer :: mcaup2
 
164
            integer :: mcaitr
 
165
            integer :: mceigh
 
166
            integer :: mcapps
 
167
            integer :: mcgets
 
168
            integer :: mceupd
 
169
            integer :: nopx
 
170
            integer :: nbx
 
171
            integer :: nrorth
 
172
            integer :: nitref
 
173
            integer :: nrstrt
 
174
            real :: tsaupd
 
175
            real :: tsaup2
 
176
            real :: tsaitr
 
177
            real :: tseigt
 
178
            real :: tsgets
 
179
            real :: tsapps
 
180
            real :: tsconv
 
181
            real :: tnaupd
 
182
            real :: tnaup2
 
183
            real :: tnaitr
 
184
            real :: tneigh
 
185
            real :: tngets
 
186
            real :: tnapps
 
187
            real :: tnconv
 
188
            real :: tcaupd
 
189
            real :: tcaup2
 
190
            real :: tcaitr
 
191
            real :: tceigh
 
192
            real :: tcgets
 
193
            real :: tcapps
 
194
            real :: tcconv
 
195
            real :: tmvopx
 
196
            real :: tmvbx
 
197
            real :: tgetv0
 
198
            real :: titref
 
199
            real :: trvec
 
200
            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
 
201
            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
 
202
 
 
203
    end interface 
 
204
end python module _arpack
 
205
 
 
206
! This file was auto-generated with f2py (version:2_3198).
 
207
! See http://cens.ioc.ee/projects/f2py2e/