Lines Matching refs:yold
65 subroutine itrPredict (yold, y, acold, ac, uold, u, iBC) argument
70 & u(nshg,nsd), yold(nshg,ndof), local
77 y = yold
82 u(:,isd) = uold(:,isd) + Delt(itseq)*yold(:,isd) +
91 y = yold + (one - gami)/Dtgl * acold
96 y = yold+alfi*Delt(itseq)*acold
104 y = yold+fct1*(yold-y)
105 ac = acold*fct2+(y-yold)*fct3
209 subroutine itrYAlpha ( uold, yold, acold, argument
216 real*8 yold(nshg,ndof), acold(nshg,ndof), local
224 yAlpha (:,1:3) = yold(:,1:3)
225 & + alfi * (y(:,1:3) - yold(:,1:3))
241 yAlpha (:,5:ndof ) = yold(:,5:ndof)
242 & + alfi * (y(:,5:ndof) - yold(:,5:ndof))
255 subroutine itrUpdate( yold, acold, uold, argument
262 real*8 yold(nshg,ndof), acold(nshg,ndof), local
283 yold = y