| 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 |
162 |
ADMTLM_DSVD |
& maxnev=15, maxncv=30, |
|
./pkg/admtlm/admtlm_dsvd.F |
172 |
ADMTLM_DSVD |
& v(ldv,maxncv), u(ldu, maxnev), |
|
./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 |
175 |
ADMTLM_DSVD |
logical select(maxncv) |
|
./pkg/admtlm/admtlm_dsvd.F |
314 |
ADMTLM_DSVD |
else if ( ncv .gt. maxncv ) then |
|
./pkg/admtlm/admtlm_dsvd.F |
643 |
ADMTLM_DSVD |
call DMOUT(6, nconv, 2, s, maxncv, -6, |