Lines Matching refs:ac
65 subroutine itrPredict (yold, y, acold, ac, uold, u, iBC) argument
69 real*8 y(nshg,ndof), ac(nshg,ndof), local
78 ac = acold * fct
92 ac = 0.0
97 ac = acold
105 ac = acold*fct2+(y-yold)*fct3
117 subroutine itrCorrect ( y, ac, u, solinc ,iBC) argument
121 real*8 y(nshg,ndof), ac(nshg,ndof), local
130 ac(:,1:3) = ac(:,1:3) + solinc(:,1:3)
148 subroutine itrCorrectSclr ( y, ac, solinc ) argument
152 real*8 y(nshg,ndof), ac(nshg,ndof), local
158 ac(:,is) = ac(:,is) + solinc(:)
168 subroutine itrCorrectSclrPos ( y, ac, solinc ) argument
172 real*8 y(nshg,ndof), ac(nshg,ndof), local
177 call itrCorrectSclr( y, ac, solinc)
197 ac(:,is) = ac(:,is) + posinc(:)
210 & u, y, ac, argument
217 & y(nshg,ndof), ac(nshg,ndof), local
228 & + almi * (ac(:,1:3) - acold(:,1:3))
244 & + almi * (ac(:,5:ndof) - acold(:,5:ndof))
256 & y, ac, u ) argument
263 & y(nshg,ndof), ac(nshg,ndof), local
278 ac(:,7)=zero
284 acold = ac