File |
Line number |
Procedure |
Code |
./pkg/admtlm/admtlm_dsvd.F |
161 |
ADMTLM_DSVD |
parameter ( maxnev=15, maxncv=30, ldu = maxm, ldv=maxn ) |
./pkg/admtlm/admtlm_dsvd.F |
171 |
ADMTLM_DSVD |
& workl(maxncv*(maxncv+8)), workd(3*maxn), |
./pkg/admtlm/admtlm_dsvd.F |
172 |
ADMTLM_DSVD |
& s(maxncv,2), resid(maxn), ax(maxm) |
./pkg/admtlm/admtlm_dsvd.F |
205 |
ADMTLM_DSVD |
integer ipiv(maxn) |
./pkg/admtlm/admtlm_dsvd.F |
206 |
ADMTLM_DSVD |
integer phiwork(maxn) |
./pkg/admtlm/admtlm_dsvd.F |
209 |
ADMTLM_DSVD |
double precision phtmpin(maxn), phtmpout(maxn) |
./pkg/admtlm/admtlm_dsvd.F |
210 |
ADMTLM_DSVD |
double precision phxout(maxn) |
./pkg/admtlm/admtlm_dsvd.F |
211 |
ADMTLM_DSVD |
double precision tmpvec1(maxn), tmpvec2(maxn) |
./pkg/admtlm/admtlm_dsvd.F |
212 |
ADMTLM_DSVD |
double precision phrwork(3*maxn) |
./pkg/admtlm/admtlm_dsvd.F |
303 |
ADMTLM_DSVD |
if ( n .gt. maxn ) then |
./pkg/ctrl/ctrl.h |
231 |
NO PROCEDURE |
integer maxm, maxn |
./pkg/ctrl/ctrl.h |
232 |
NO PROCEDURE |
parameter ( maxm = Nx*Ny*(4*Nr+1), maxn=Nx*Ny*(4*Nr+1) ) |
./pkg/ctrl/ctrl.h |
238 |
NO PROCEDURE |
double precision phtmpadmtlm(maxn) |