Lines Matching refs:y
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
69 real*8 y(nshg,ndof), ac(nshg,ndof), local
77 y = yold
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
117 subroutine itrCorrect ( y, ac, u, solinc ,iBC) argument
121 real*8 y(nshg,ndof), ac(nshg,ndof), local
128 y(:,1:3) = y(:,1:3) + fct1 * solinc(:,1:3)
129 y(:,4 ) = y(:,4 ) + fct2 * solinc(:,4 )
148 subroutine itrCorrectSclr ( y, ac, solinc ) argument
152 real*8 y(nshg,ndof), ac(nshg,ndof), local
157 y(:,is) = y(:,is) + fct1 * solinc(:)
168 subroutine itrCorrectSclrPos ( y, ac, solinc ) argument
172 real*8 y(nshg,ndof), ac(nshg,ndof), local
177 call itrCorrectSclr( y, ac, solinc)
195 posinc = max(updFct*updFct2*solinc,c1*y(:,is))
196 y(:,is) = y(:,is) + fct1 * posinc(:)
210 & u, y, ac, argument
217 & y(nshg,ndof), ac(nshg,ndof), local
225 & + alfi * (y(:,1:3) - yold(:,1:3))
230 yAlpha (:,4 ) = y(:,4)
242 & + alfi * (y(:,5:ndof) - yold(:,5:ndof))
256 & y, ac, u ) argument
263 & y(nshg,ndof), ac(nshg,ndof), local
277 y(:,6) = y(:,7) ! will need to also fix the yold ac etc.?????
283 yold = y