| File |
Line number |
Procedure |
Code |
|
./pkg/admtlm/admtlm_dsvd.F |
159 |
ADMTLM_DSVD |
integer maxnev, maxncv, ldv, ldu |
|
./pkg/admtlm/admtlm_dsvd.F |
161 |
ADMTLM_DSVD |
parameter ( maxnev=15, maxncv=30, ldu = maxm, ldv=maxn ) |
|
./pkg/admtlm/admtlm_dsvd.F |
170 |
ADMTLM_DSVD |
& v(ldv,maxncv), u(ldu, maxnev), |
|
./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 |
173 |
ADMTLM_DSVD |
logical select(maxncv) |
|
./pkg/admtlm/admtlm_dsvd.F |
312 |
ADMTLM_DSVD |
else if ( ncv .gt. maxncv ) then |
|
./pkg/admtlm/admtlm_dsvd.F |
638 |
ADMTLM_DSVD |
call DMOUT(6, nconv, 2, s, maxncv, -6, |