Lines Matching refs:res
1 subroutine bc3Diag (iBC, BC, res) argument
23 & res(nshg,4)
28 res(:,4) = zero
50 res(:,2) = res(:,2) - BC(:,4) * res(:,1)
51 res(:,3) = res(:,3) - BC(:,5) * res(:,1)
52 res(:,1) = zero
58 res(:,1) = res(:,1) - BC(:,4) * res(:,2)
59 res(:,3) = res(:,3) - BC(:,5) * res(:,2)
60 res(:,2) = zero
66 res(:,3) = res(:,3) - BC(:,4) * res(:,1) - BC(:,6) * res(:,2)
67 res(:,1) = zero
68 res(:,2) = zero
74 res(:,1) = res(:,1) - BC(:,4) * res(:,3)
75 res(:,2) = res(:,2) - BC(:,5) * res(:,3)
76 res(:,3) = zero
82 res(:,2) = res(:,2) - BC(:,4) * res(:,1) - BC(:,6) * res(:,3)
83 res(:,1) = zero
84 res(:,3) = zero
90 res(:,1) = res(:,1) - BC(:,4) * res(:,2) - BC(:,6) * res(:,3)
91 res(:,2) = zero
92 res(:,3) = zero
98 res(:,1) = zero
99 res(:,2) = zero
100 res(:,3) = zero
107 res(:,1) = zero
108 res(:,2) = zero
109 res(:,3) = zero
110 res(:,4) = zero
114 res(:,1) = zero
115 res(:,2) = zero
116 res(:,3) = zero
126 subroutine bc3SclrDiag (iBC, res) argument
148 & res(nshg)
155 res = zero
163 res = zero