Lines Matching refs:y
1 subroutine itrdrv (y, ac, uold, x, argument
45 dimension y(nshg,ndof), ac(nshg,ndof),
148 yold = y
197 ybar(:,1:ndof) = y(:,1:ndof)
199 ybar(:,ndof+idof) = y(:,idof)*y(:,idof)
201 ybar(:,ndof+6) = y(:,1)*y(:,2)
202 ybar(:,ndof+7) = y(:,1)*y(:,3)
203 ybar(:,ndof+8) = y(:,2)*y(:,3)
252 call itrSetup ( y, acold)
342 yold(:,6:ndof)=y(:,6:ndof)*tdecay
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,
538 y(:,6) = yold(:,6) + (y(:,6)-yold(:,6))/alfi
539 y(:,7) = y(:,6)
540 yold(:,7) = y(:,7)
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)
599 call tnanq(y, 5, 'y_updbc')
602 call genscale(y, x, iBC)
608 call itrCorrectSclr ( y, ac, yold, acold,
616 & + (y(:,7)-yold(:,7))*fct3
620 y(:,7) = yold(:,7)
626 call solvecon (y, x, iBC, BC,
631 call itrBCSclr ( y, ac, iBC, BC, iper, ilwork)
651 call itrUpdate( yold, acold, y, ac)