Lines Matching refs:y
6 subroutine itrSetup ( y, acold ) argument
10 real*8 y(nshg,ndof), acold(nshg,ndof) local
32 & y=y-(one-alfi)*Delt(1)*CFLfl(1)*acold
57 & y, ac ) argument
62 & y(nshg,ndof), ac(nshg,ndof) local
71 y = yold
79 y = yold+alfi/Dtgl*acold*(one-gami)
80 call itrBC (y, ac, iBC, BC, iper,ilwork)
83 call genscale(y, x, iBC)
92 y = yold+alfi/Dtgl*acold
93 call itrBC (y, ac, iBC, BC, iper,ilwork)
96 call genscale(y, x, iBC)
108 y = yold+fct1*(yold-y)
109 call itrBC (y, ac, iBC, BC, iper,ilwork)
112 call genscale(y, x, iBC)
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
140 y(:,1:3) = y(:,1:3) - Dy(:,2:4)
141 y(:,4) = y(:,4) - Dy(:,1)
142 y(:,5) = y(:,5) - Dy(:,5)
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
163 y(:,is) = y(:,is) - Dyt(:)
167 ac(:,is)= acold(:,is)*fct1+(y(:,is)-yold(:,is))*fct2
177 & y, ac ) argument
182 & y(nshg,ndof), ac(nshg,ndof) local
188 y(:,6) = y(:,7)
194 & + (y(:,6)-yold(:,6))*Dtgl/gami
200 & + (y(:,1:nflow)-yold(:,1:nflow))*fct3
201 yold(:,6) = y(:,7)
207 yold = yold + (y-yold)*fct3