Lines Matching refs:ac
1 subroutine itrdrv (y, ac, uold, x, argument
45 dimension y(nshg,ndof), ac(nshg,ndof),
149 acold = ac
154 if(BC_enable) call itrBC (yold, ac, iBC, BC, iper, ilwork)
236 call itrBCsclr(yold,ac,iBC,BC,iper,ilwork)
303 call itrBC (yold, ac, iBC, BC, iper, ilwork)
305 call itrBCsclr(yold,ac,iBC,BC,iper,ilwork)
398 call itrPredict( yold, acold, y, ac )
399 call itrBC (y, ac, iBC, BC, iper, ilwork)
403 call itrBCSclr (y, ac, iBC, BC, iper, ilwork)
462 call SolGMRp (y, ac, yold,
477 call SolGMRs (y, ac, yold,
496 call SolMFG (y, ac, yold,
515 call SolGMRe (y, ac, yold,
541 ac(:,7) = zero
543 call itrBCSclr (y, ac, iBC, BC, iper, ilwork)
562 call SolGMRpSclr(y, ac,
575 call SolGMRSclr(y, ac, yold,
597 call itrCorrect ( y, ac, yold, acold, solinc)
598 call itrBC (y, ac, iBC, BC, iper, ilwork)
608 call itrCorrectSclr ( y, ac, yold, acold,
614 & + (ac(:,7)-acold(:,7))*fct2
619 ac(:,7) = acold(:,7)*(one-almi/gami)
621 ac(:,7) = zero
631 call itrBCSclr ( y, ac, iBC, BC, iper, ilwork)
651 call itrUpdate( yold, acold, y, ac)