Symbol Description Uses
eigR Real component of all the eigenvalues in a water column 6


File Line number Procedure Code
./pkg/gmredi/gmredi_calc_eigs.F 181 GMREDI_CALC_EIGS 
          CALL DGEEV('N','V',Nr,array,Nr,eigR,eigI,dummy,1,
./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 73 GMREDI_CALC_EIGS 
      _RL eigR(Nr),eigI(Nr),vecs(Nr,Nr),dummy(1,Nr),work(Nr*Nr)