File |
Line number |
Procedure |
Code |
./pkg/gmredi/gmredi_calc_eigs.F |
182 |
GMREDI_CALC_EIGS |
& vecs,Nr,work,Nr*Nr,info) |
./pkg/gmredi/gmredi_calc_eigs.F |
183 |
GMREDI_CALC_EIGS |
IF( info.LT.0 ) THEN |
./pkg/gmredi/gmredi_calc_eigs.F |
186 |
GMREDI_CALC_EIGS |
& '(',i,',',j,')', 'error code =',info |
./pkg/gmredi/gmredi_calc_eigs.F |
189 |
GMREDI_CALC_EIGS |
ELSEIF(info.GT.0 ) THEN |
./pkg/gmredi/gmredi_calc_eigs.F |
192 |
GMREDI_CALC_EIGS |
& '(',i,',',j,')', 'error code =',info |
./pkg/gmredi/gmredi_calc_eigs.F |
67 |
GMREDI_CALC_EIGS |
INTEGER info |
./pkg/admtlm/admtlm_dsvd.F |
181 |
ADMTLM_DSVD |
integer ido, m, n, nev, ncv, lworkl, info, ierr, |
./pkg/admtlm/admtlm_dsvd.F |
354 |
ADMTLM_DSVD |
info = 0 |
./pkg/admtlm/admtlm_dsvd.F |
405 |
ADMTLM_DSVD |
& lworkl, info ) |
./pkg/admtlm/admtlm_dsvd.F |
411 |
ADMTLM_DSVD |
& optimcycle, ido, info, ipntr(1) |
./pkg/admtlm/admtlm_dsvd.F |
506 |
ADMTLM_DSVD |
print *, 'ph-continue ', info, ierr |
./pkg/admtlm/admtlm_dsvd.F |
514 |
ADMTLM_DSVD |
if ( info .lt. 0 ) then |
./pkg/admtlm/admtlm_dsvd.F |
522 |
ADMTLM_DSVD |
print *, ' Error with _saupd, info = ', info |
./pkg/admtlm/admtlm_dsvd.F |
646 |
ADMTLM_DSVD |
if ( info .eq. 1) then |
./pkg/admtlm/admtlm_dsvd.F |
650 |
ADMTLM_DSVD |
else if ( info .eq. 3) then |