Lines Matching refs:res
1 subroutine bc3Res ( iBC, BC, res, iper, ilwork) argument
24 & res(nshg,nflow), ilwork(nlwork),
29 call bc3per(iBC, res, iper, ilwork, nflow)
34 res(:,4) = zero
56 res(:,2) = res(:,2) - BC(:,4) * res(:,1)
57 res(:,3) = res(:,3) - BC(:,5) * res(:,1)
58 res(:,1) = zero
64 res(:,1) = res(:,1) - BC(:,4) * res(:,2)
65 res(:,3) = res(:,3) - BC(:,5) * res(:,2)
66 res(:,2) = zero
72 res(:,3) = res(:,3) - BC(:,4) * res(:,1) - BC(:,6) * res(:,2)
73 res(:,1) = zero
74 res(:,2) = zero
80 res(:,1) = res(:,1) - BC(:,4) * res(:,3)
81 res(:,2) = res(:,2) - BC(:,5) * res(:,3)
82 res(:,3) = zero
88 res(:,2) = res(:,2) - BC(:,4) * res(:,1) - BC(:,6) * res(:,3)
89 res(:,1) = zero
90 res(:,3) = zero
96 res(:,1) = res(:,1) - BC(:,4) * res(:,2) - BC(:,6) * res(:,3)
97 res(:,2) = zero
98 res(:,3) = zero
104 res(:,1) = zero
105 res(:,2) = zero
106 res(:,3) = zero
113 res(:,1) = zero
114 res(:,2) = zero
115 res(:,3) = zero
116 res(:,4) = zero
120 res(:,1) = zero
121 res(:,2) = zero
122 res(:,3) = zero
137 subroutine bc3ResSclr (iBC, res, iper, ilwork) argument
142 & res(nshg), ilwork(nlwork),
150 where (btest(iBC,1)) res(:) = zero
156 where (btest(iBC,is)) res(:) = zero
161 call bc3per(iBC, res, iper, ilwork, 1)