File |
Line number |
Procedure |
Code |
./model/src/cg2d.F |
216 |
CG2D |
DO 10 it2d=1, numIters |
./model/src/cg2d.F |
331 |
CG2D |
actualIts = it2d |
./model/src/cg2d.F |
339 |
CG2D |
IF ( MOD( it2d-1, printResidualFreq ).EQ.0 ) THEN |
./model/src/cg2d.F |
341 |
CG2D |
& ' cg2d: iter=', it2d, ' ; resid.= ', SQRT(err_sq) |
./model/src/cg2d.F |
350 |
CG2D |
nIterMin = it2d |
./model/src/cg2d.F |
91 |
CG2D |
INTEGER i, j, it2d |
./model/src/cg2d_ex0.F |
200 |
CG2D_EX0 |
DO it2d=1, numIters |
./model/src/cg2d_ex0.F |
274 |
CG2D_EX0 |
actualIts(bi,bj) = it2d |
./model/src/cg2d_ex0.F |
277 |
CG2D_EX0 |
IF ( MOD( it2d-1, printResidualFreq ).EQ.0 ) THEN |
./model/src/cg2d_ex0.F |
279 |
CG2D_EX0 |
& bj, '): iter=', it2d, ' ; resid.= ', SQRT(errTile(bi,bj)) |
./model/src/cg2d_ex0.F |
288 |
CG2D_EX0 |
minResIter(bi,bj) = it2d |
./model/src/cg2d_ex0.F |
83 |
CG2D_EX0 |
INTEGER i, j, it2d |
./model/src/cg2d_nsa.F |
101 |
CG2D_NSA |
INTEGER i, j, it2d |
./model/src/cg2d_nsa.F |
237 |
CG2D_NSA |
DO it2d=1, numIters |
./model/src/cg2d_nsa.F |
245 |
CG2D_NSA |
icg2dkey = (ikey-1)*numItersMax + it2d |
./model/src/cg2d_nsa.F |
349 |
CG2D_NSA |
actualIts = it2d |
./model/src/cg2d_nsa.F |
353 |
CG2D_NSA |
IF ( MOD( it2d-1, printResidualFreq ).EQ.0 ) THEN |
./model/src/cg2d_nsa.F |
355 |
CG2D_NSA |
& ' cg2d: iter=', it2d, ' ; resid.= ', SQRT(err_sq) |
./model/src/cg2d_sr.F |
196 |
CG2D_SR |
it2d = 0 |
./model/src/cg2d_sr.F |
289 |
CG2D_SR |
DO 10 it2d=1, numIters-1 |
./model/src/cg2d_sr.F |
359 |
CG2D_SR |
IF ( MOD( it2d-1, printResidualFreq ).EQ.0 ) THEN |
./model/src/cg2d_sr.F |
361 |
CG2D_SR |
& ' cg2d: iter=', it2d, ' ; resid.= ', SQRT(err_sq) |
./model/src/cg2d_sr.F |
370 |
CG2D_SR |
nIterMin = it2d |
./model/src/cg2d_sr.F |
451 |
CG2D_SR |
numIters = it2d |
./model/src/cg2d_sr.F |
97 |
CG2D_SR |
INTEGER i, j, it2d |
./pkg/diagnostics/diag_cg2d.F |
204 |
DIAG_CG2D |
it2d = 0 |
./pkg/diagnostics/diag_cg2d.F |
207 |
DIAG_CG2D |
nIterMin = it2d |
./pkg/diagnostics/diag_cg2d.F |
215 |
DIAG_CG2D |
& ' iter=', it2d, ' ; resid.=', err, ' ; sumRHS=', sumRHS |
./pkg/diagnostics/diag_cg2d.F |
231 |
DIAG_CG2D |
DO 10 it2d=1, numIters |
./pkg/diagnostics/diag_cg2d.F |
312 |
DIAG_CG2D |
IF ( MOD( it2d-1, printResidFrq ).EQ.0 ) THEN |
./pkg/diagnostics/diag_cg2d.F |
314 |
DIAG_CG2D |
& ' diag_cg2d: iter=', it2d, ' ; resid.=', err |
./pkg/diagnostics/diag_cg2d.F |
323 |
DIAG_CG2D |
nIterMin = it2d |
./pkg/diagnostics/diag_cg2d.F |
338 |
DIAG_CG2D |
WRITE(sufx,'(I10.10)') it2d |
./pkg/diagnostics/diag_cg2d.F |
347 |
DIAG_CG2D |
it2d = numIters |
./pkg/diagnostics/diag_cg2d.F |
352 |
DIAG_CG2D |
numIters = it2d |
./pkg/diagnostics/diag_cg2d.F |
81 |
DIAG_CG2D |
INTEGER i, j, it2d |