File |
Line number |
Procedure |
Code |
./pkg/gmredi/gmredi_calc_eigs.F |
210 |
GMREDI_CALC_EIGS |
IF (eigval(m).EQ.eigR(k)) idx=k |
./pkg/gmredi/gmredi_calc_eigs.F |
213 |
GMREDI_CALC_EIGS |
IF(vecs(1,idx).LT.zeroRL) THEN |
./pkg/gmredi/gmredi_calc_eigs.F |
215 |
GMREDI_CALC_EIGS |
vec(m,i,j,k) = -vecs(k,idx) |
./pkg/gmredi/gmredi_calc_eigs.F |
219 |
GMREDI_CALC_EIGS |
vec(m,i,j,k) = vecs(k,idx) |
./pkg/gmredi/gmredi_calc_eigs.F |
68 |
GMREDI_CALC_EIGS |
INTEGER idx |
./pkg/streamice/streamice_cg_solve_petsc.F |
82 |
STREAMICE_CG_SOLVE_PETSC |
INTEGER n_dofs_cum_sum (0:nPx*nPy-1), idx(1) |