Lines Matching refs:BC
1 subroutine bc3Res (y, iBC, BC, res, iper, ilwork) argument
24 & BC(nshg,ndofBC),
31 res(:,5) = res(:,5) + BC(:,1)*Rgas* res(:,1) !IDEAL GAS ASSUMED
79 res(:,3) = res(:,3) - BC(:,4) * res(:,2)
80 res(:,4) = res(:,4) - BC(:,5) * res(:,2)
87 res(:,2) = res(:,2) - BC(:,4) * res(:,3)
88 res(:,4) = res(:,4) - BC(:,5) * res(:,3)
95 res(:,4) = res(:,4) - BC(:,4) * res(:,2) - BC(:,6) * res(:,3)
103 res(:,2) = res(:,2) - BC(:,4) * res(:,4)
104 res(:,3) = res(:,3) - BC(:,5) * res(:,4)
111 res(:,3) = res(:,3) - BC(:,4) * res(:,2) - BC(:,6) * res(:,4)
119 res(:,2) = res(:,2) - BC(:,4) * res(:,3) - BC(:,6) * res(:,4)
207 subroutine bc3ResSclr (y, iBC, BC, rest, argument
231 & BC(nshg,ndofBC),