Lines Matching refs:BC
1 subroutine genBC1 (BCtmp, iBC, BC) argument
27 & BC(nshg,ndofBC),tmpbc(4)
34 where (btest(iBC,5+isclr)) BC(:,6+isclr) = BCtmp(:,12+isclr)
39 where (btest(iBC,0)) BC(:,1) = BCtmp(:,1) ! density
40 where (btest(iBC,1)) BC(:,2) = BCtmp(:,2) ! temperature
41 where (btest(iBC,2)) BC(:,1) = BCtmp(:,3) ! pressure
47 BC(:,3) = tmp * BCtmp(:,7) / BCtmp(:,4)
48 BC(:,4) = BCtmp(:,5) / BCtmp(:,4)
49 BC(:,5) = BCtmp(:,6) / BCtmp(:,4)
56 BC(:,3) = tmp * BCtmp(:,7) / BCtmp(:,5)
57 BC(:,4) = BCtmp(:,4) / BCtmp(:,5)
58 BC(:,5) = BCtmp(:,6) / BCtmp(:,5)
96 BC(:,3) = BCtmp(:, 7) / BCtmp(:, 4)
97 BC(:,4) = BCtmp(:, 6) / BCtmp(:, 4)
104 BC(:,5) = BCtmp(:,11) / BCtmp(:, 9)
105 BC(:,6) = BCtmp(:,10) / BCtmp(:, 9)
113 BC(:,3) = tmp * BCtmp(:,7) / BCtmp(:,6)
114 BC(:,4) = BCtmp(:,4) / BCtmp(:,6)
115 BC(:,5) = BCtmp(:,5) / BCtmp(:,6)
155 BC(:,3) = BCtmp(:, 7) / BCtmp(:, 4)
156 BC(:,4) = BCtmp(:, 5) / BCtmp(:, 4)
163 BC(:,5) = BCtmp(:,11) / BCtmp(:,10)
164 BC(:,6) = BCtmp(:, 9) / BCtmp(:,10)
204 BC(:,3) = BCtmp(:, 7) / BCtmp(:, 5)
205 BC(:,4) = BCtmp(:, 4) / BCtmp(:, 5)
212 BC(:,5) = BCtmp(:,11) / BCtmp(:,10)
213 BC(:,6) = BCtmp(:, 8) / BCtmp(:,10)
221 BC(:,3) = BCtmp(:,7) * BCtmp(:,4)
222 BC(:,4) = BCtmp(:,7) * BCtmp(:,5)
223 BC(:,5) = BCtmp(:,7) * BCtmp(:,6)