Lines Matching refs:solinc
117 subroutine itrCorrect ( y, ac, u, solinc ,iBC) argument
122 & u(nshg,nsd), solinc(nshg,4) local
128 y(:,1:3) = y(:,1:3) + fct1 * solinc(:,1:3)
129 y(:,4 ) = y(:,4 ) + fct2 * solinc(:,4 )
130 ac(:,1:3) = ac(:,1:3) + solinc(:,1:3)
135 & Delt(itseq)*Delt(itseq)*betai*solinc(:,isd)
148 subroutine itrCorrectSclr ( y, ac, solinc ) argument
153 & solinc(nshg) local
157 y(:,is) = y(:,is) + fct1 * solinc(:)
158 ac(:,is) = ac(:,is) + solinc(:)
168 subroutine itrCorrectSclrPos ( y, ac, solinc ) argument
173 & solinc(nshg), posinc(nshg) local
177 call itrCorrectSclr( y, ac, solinc)
195 posinc = max(updFct*updFct2*solinc,c1*y(:,is))