Lines Matching refs:yold
56 subroutine itrPredict ( yold, acold, argument
61 real*8 yold(nshg,ndof), acold(nshg,ndof), local
71 y = yold
79 y = yold+alfi/Dtgl*acold*(one-gami)
92 y = yold+alfi/Dtgl*acold
108 y = yold+fct1*(yold-y)
114 ac = acold*fct2+(y-yold)*fct3
128 subroutine itrCorrect ( y, ac,yold, acold,Dy) argument
133 real*8 yold(nshg,ndof), acold(nshg,ndof) local
146 ac= acold*fct1+(y-yold)*fct2
155 subroutine itrCorrectSclr (y, ac, yold, acold, Dyt) argument
160 real*8 yold(nshg,ndof), acold(nshg,ndof) local
167 ac(:,is)= acold(:,is)*fct1+(y(:,is)-yold(:,is))*fct2
176 subroutine itrUpdate( yold, acold, argument
181 real*8 yold(nshg,ndof), acold(nshg,ndof), local
194 & + (y(:,6)-yold(:,6))*Dtgl/gami
199 yold(:,1:nflow) = yold(:,1:nflow)
200 & + (y(:,1:nflow)-yold(:,1:nflow))*fct3
201 yold(:,6) = y(:,7)
207 yold = yold + (y-yold)*fct3