Lines Matching refs:ac
57 & y, ac ) argument
62 & y(nshg,ndof), ac(nshg,ndof) local
72 ac = acold*(one-almi/gami)
80 call itrBC (y, ac, iBC, BC, iper,ilwork)
85 ac = acold*(one-almi)
93 call itrBC (y, ac, iBC, BC, iper,ilwork)
98 ac = acold
109 call itrBC (y, ac, iBC, BC, iper,ilwork)
114 ac = acold*fct2+(y-yold)*fct3
128 subroutine itrCorrect ( y, ac,yold, acold,Dy) argument
132 real*8 y(nshg,ndof), ac(nshg,ndof), Dy(nshg,nflow) local
146 ac= acold*fct1+(y-yold)*fct2
155 subroutine itrCorrectSclr (y, ac, yold, acold, Dyt) argument
159 real*8 y(nshg,ndof), ac(nshg,ndof), Dyt(nshg) local
167 ac(:,is)= acold(:,is)*fct1+(y(:,is)-yold(:,is))*fct2
177 & y, ac ) argument
182 & y(nshg,ndof), ac(nshg,ndof) local
198 & + (ac(:,1:nflow)-acold(:,1:nflow))*fct2
206 acold = acold + (ac-acold)*fct2