Symbol Description Uses
eigval Vector containing the eigenvalues 9


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)