| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_calc_eigs.F |
200 |
GMREDI_CALC_EIGS |
eigval(m) = -HUGE(zeroRL) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
204 |
GMREDI_CALC_EIGS |
eigval(0) = MAX(eigval(0),eigR(k)) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
208 |
GMREDI_CALC_EIGS |
IF (eigR(k).LT.eigval(m-1)) THEN |
|
./pkg/gmredi/gmredi_calc_eigs.F |
209 |
GMREDI_CALC_EIGS |
eigval(m) = MAX(eigval(m),eigR(k)) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
210 |
GMREDI_CALC_EIGS |
IF (eigval(m).EQ.eigR(k)) idx=k |
|
./pkg/gmredi/gmredi_calc_eigs.F |
223 |
GMREDI_CALC_EIGS |
val(i,j) = eigval(1) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
75 |
GMREDI_CALC_EIGS |
_RL eigval(0:nmodes) |