Lines Matching refs:acold
7 subroutine itrSetup ( y, acold ) argument
11 real*8 y(nshg,ndof), acold(nshg,ndof) local
44 y=y-(one-alfi)*Delt(1)*acold
65 subroutine itrPredict (yold, y, acold, ac, uold, u, iBC) argument
71 & acold(nshg,ndof), uold(nshg,nsd) local
78 ac = acold * fct
84 & Delt(itseq)*Delt(itseq)*acold(:,isd)
91 y = yold + (one - gami)/Dtgl * acold
96 y = yold+alfi*Delt(itseq)*acold
97 ac = acold
105 ac = acold*fct2+(y-yold)*fct3
209 subroutine itrYAlpha ( uold, yold, acold, argument
216 real*8 yold(nshg,ndof), acold(nshg,ndof), local
227 acAlpha(:,1:3) = acold(:,1:3)
228 & + almi * (ac(:,1:3) - acold(:,1:3))
243 acAlpha(:,5:ndof ) = acold(:,5:ndof)
244 & + almi * (ac(:,5:ndof) - acold(:,5:ndof))
255 subroutine itrUpdate( yold, acold, uold, argument
262 real*8 yold(nshg,ndof), acold(nshg,ndof), local
284 acold = ac