| File |
Line number |
Procedure |
Code |
|
./pkg/admtlm/admtlm_dsvd.F |
159 |
ADMTLM_DSVD |
integer maxm, maxn, maxnev, maxncv, ldv, ldu |
|
./pkg/admtlm/admtlm_dsvd.F |
161 |
ADMTLM_DSVD |
parameter (maxm = Nx*Ny*(4*Nr+1), maxn=Nx*Ny*(4*Nr+1), |
|
./pkg/admtlm/admtlm_dsvd.F |
163 |
ADMTLM_DSVD |
& ldu = maxm, ldv=maxn ) |
|
./pkg/admtlm/admtlm_dsvd.F |
173 |
ADMTLM_DSVD |
& workl(maxncv*(maxncv+8)), workd(3*maxn), |
|
./pkg/admtlm/admtlm_dsvd.F |
174 |
ADMTLM_DSVD |
& s(maxncv,2), resid(maxn), ax(maxm) |
|
./pkg/admtlm/admtlm_dsvd.F |
207 |
ADMTLM_DSVD |
integer ipiv(maxn) |
|
./pkg/admtlm/admtlm_dsvd.F |
208 |
ADMTLM_DSVD |
integer phiwork(maxn) |
|
./pkg/admtlm/admtlm_dsvd.F |
211 |
ADMTLM_DSVD |
double precision phtmpin(maxn), phtmpout(maxn) |
|
./pkg/admtlm/admtlm_dsvd.F |
212 |
ADMTLM_DSVD |
double precision phxout(maxn) |
|
./pkg/admtlm/admtlm_dsvd.F |
213 |
ADMTLM_DSVD |
double precision tmpvec1(maxn), tmpvec2(maxn) |
|
./pkg/admtlm/admtlm_dsvd.F |
214 |
ADMTLM_DSVD |
double precision phrwork(3*maxn) |
|
./pkg/admtlm/admtlm_dsvd.F |
305 |
ADMTLM_DSVD |
if ( n .gt. maxn ) then |