File |
Line number |
Procedure |
Code |
./pkg/gmredi/gmredi_calc_eigs.F |
321 |
GMREDI_CALC_EIGS |
vecint(m,i,j) = zeroRL |
./pkg/gmredi/gmredi_calc_eigs.F |
329 |
GMREDI_CALC_EIGS |
vecint(m,i,j) = vecint(m,i,j) + hfac(i,j,k)*vec(m,i,j,k)*drF(k) |
./pkg/gmredi/gmredi_calc_eigs.F |
337 |
GMREDI_CALC_EIGS |
vecint(m,i,j) = vecint(m,i,j)/(-rlow(i,j)+small) |
./pkg/gmredi/gmredi_calc_eigs.F |
345 |
GMREDI_CALC_EIGS |
vec(m,i,j,k) = vec(m,i,j,k) - vecint(m,i,j) |
./pkg/gmredi/gmredi_calc_eigs.F |
356 |
GMREDI_CALC_EIGS |
vecint(m,i,j) = zeroRL |
./pkg/gmredi/gmredi_calc_eigs.F |
365 |
GMREDI_CALC_EIGS |
vecint(m,i,j) = vecint(m,i,j) + |
./pkg/gmredi/gmredi_calc_eigs.F |
376 |
GMREDI_CALC_EIGS |
vecint(m,i,j) = SQRT(vecint(m,i,j)) |
./pkg/gmredi/gmredi_calc_eigs.F |
385 |
GMREDI_CALC_EIGS |
vec(m,i,j,k) = vec(m,i,j,k)/(vecint(m,i,j)+small) |
./pkg/gmredi/gmredi_calc_eigs.F |
94 |
GMREDI_CALC_EIGS |
_RL vecint(nmodes,1-Olx:sNx+Olx,1-Oly:sNy+Oly) |