Lines Matching refs:b
54 INTEGER i, j, a, b, d, Ac, faIn local
119 b = rowPtr(2,Ac)
120 Val(1,a:b) = Val(1,a:b)*W(1,Ac)
125 b = rowPtr(2,Ac)
126 Val(1:2,a:b) = Val(1:2,a:b)*W(1,Ac)
127 Val(3:4,a:b) = Val(3:4,a:b)*W(2,Ac)
132 b = rowPtr(2,Ac)
133 Val(1:3,a:b) = Val(1:3,a:b)*W(1,Ac)
134 Val(4:6,a:b) = Val(4:6,a:b)*W(2,Ac)
135 Val(7:9,a:b) = Val(7:9,a:b)*W(3,Ac)
140 b = rowPtr(2,Ac)
141 Val(1:4,a:b) = Val(1:4,a:b)*W(1,Ac)
142 Val(5:8,a:b) = Val(5:8,a:b)*W(2,Ac)
143 Val(9:12,a:b) = Val(9:12,a:b)*W(3,Ac)
144 Val(13:16,a:b) = Val(13:16,a:b)*W(4,Ac)
149 b = rowPtr(2,Ac)
152 Val(j:i*dof,a:b) = Val(j:i*dof,a:b)*W(i,Ac)
196 DO b=1, dof
197 j = dof*(dof-1) + b
198 Val(b:j:dof,i) = Val(b:j:dof,i)*W(b,a)
207 b = (a-1)*dof + a
208 IF (Val(b,i) .EQ. 0D0) Val(b,i) = 1D0