Lines Matching refs:res
1 subroutine bc3Res (y, iBC, BC, res, iper, ilwork) argument
25 & res(nshg,nflow), ilwork(nlwork),
31 res(:,5) = res(:,5) + BC(:,1)*Rgas* res(:,1) !IDEAL GAS ASSUMED
32 res(:,1) = zero
46 res(:,2) = res(:,2) -y(:,1)*res(:,1)
47 res(:,3) = res(:,3) -y(:,2)*res(:,1)
48 res(:,4) = res(:,4) -y(:,3)*res(:,1)
49 res(:,5) = res(:,5) -
51 & + pt5 * ( y(:,1)**2 + y(:,2)**2 + y(:,3)**2))*res(:,1)
52 res(:,1) = zero
56 res(:,1) = zero
79 res(:,3) = res(:,3) - BC(:,4) * res(:,2)
80 res(:,4) = res(:,4) - BC(:,5) * res(:,2)
81 res(:,2) = zero
87 res(:,2) = res(:,2) - BC(:,4) * res(:,3)
88 res(:,4) = res(:,4) - BC(:,5) * res(:,3)
89 res(:,3) = zero
95 res(:,4) = res(:,4) - BC(:,4) * res(:,2) - BC(:,6) * res(:,3)
96 res(:,2) = zero
97 res(:,3) = zero
103 res(:,2) = res(:,2) - BC(:,4) * res(:,4)
104 res(:,3) = res(:,3) - BC(:,5) * res(:,4)
105 res(:,4) = zero
111 res(:,3) = res(:,3) - BC(:,4) * res(:,2) - BC(:,6) * res(:,4)
112 res(:,2) = zero
113 res(:,4) = zero
119 res(:,2) = res(:,2) - BC(:,4) * res(:,3) - BC(:,6) * res(:,4)
120 res(:,3) = zero
121 res(:,4) = zero
127 res(:,2) = zero
128 res(:,3) = zero
129 res(:,4) = zero
136 res(:,1) = zero
137 res(:,2) = zero
138 res(:,3) = zero
139 res(:,4) = zero
140 res(:,5) = zero ! added to correspond to genscale (Elaine)
144 res(:,2) = zero
145 res(:,3) = zero
146 res(:,4) = zero
147 res(:,5) = zero ! added to correspond to genscale (Elaine)
153 where (btest(iBC,1)) res(:,5) = zero
160 res(i,:) = res(i,:) + res(j,:)
161 res(j,:) = zero
190 res(isgbeg:isgend,:) = zero