Lines Matching refs:u
65 subroutine itrPredict (yold, y, acold, ac, uold, u, iBC) argument
70 & u(nshg,nsd), yold(nshg,ndof), local
82 u(:,isd) = uold(:,isd) + Delt(itseq)*yold(:,isd) +
117 subroutine itrCorrect ( y, ac, u, solinc ,iBC) argument
122 & u(nshg,nsd), solinc(nshg,4) local
134 u(:,isd) = u(:,isd) +
210 & u, y, ac,
219 & u(nshg,nsd), uold(nshg,nsd), local
233 & + alfi * (u(:,1:3) - uold(:,1:3))
256 & y, ac, u )
264 & u(nshg,nsd), uold(nshg,nsd) local
285 if(ideformwall.eq.1) uold = u