150 |
C in con. grad solver. |
C in con. grad solver. |
151 |
C cg2dPreCondFreq :: Frequency for updating cg2d preconditioner |
C cg2dPreCondFreq :: Frequency for updating cg2d preconditioner |
152 |
C (non-linear free-surf.) |
C (non-linear free-surf.) |
153 |
|
C cg2dUseMinResSol :: =0 : use last-iteration/converged solution |
154 |
|
C =1 : use solver minimum-residual solution |
155 |
C cg3dMaxIters :: Maximum number of iterations in the |
C cg3dMaxIters :: Maximum number of iterations in the |
156 |
C three-dimensional con. grad solver. |
C three-dimensional con. grad solver. |
157 |
C cg3dChkResFreq :: Frequency with which to check residual |
C cg3dChkResFreq :: Frequency with which to check residual |
193 |
C and statistics ; higher -> more writing |
C and statistics ; higher -> more writing |
194 |
|
|
195 |
COMMON /PARM_I/ |
COMMON /PARM_I/ |
196 |
& cg2dMaxIters, cg2dChkResFreq, cg2dPreCondFreq, |
& cg2dMaxIters, cg2dChkResFreq, |
197 |
|
& cg2dPreCondFreq, cg2dUseMinResSol, |
198 |
& cg3dMaxIters, cg3dChkResFreq, |
& cg3dMaxIters, cg3dChkResFreq, |
199 |
& printResidualFreq, |
& printResidualFreq, |
200 |
& nIter0, nTimeSteps, nEndIter, |
& nIter0, nTimeSteps, nEndIter, |
213 |
INTEGER cg2dMaxIters |
INTEGER cg2dMaxIters |
214 |
INTEGER cg2dChkResFreq |
INTEGER cg2dChkResFreq |
215 |
INTEGER cg2dPreCondFreq |
INTEGER cg2dPreCondFreq |
216 |
|
INTEGER cg2dUseMinResSol |
217 |
INTEGER cg3dMaxIters |
INTEGER cg3dMaxIters |
218 |
INTEGER cg3dChkResFreq |
INTEGER cg3dChkResFreq |
219 |
INTEGER printResidualFreq |
INTEGER printResidualFreq |