Lines Matching refs:a
54 INTEGER i, j, a, b, d, Ac, faIn local
108 DO a=1, face(faIn)%nNo
109 Ac = face(faIn)%glob(a)
110 W(1:i,Ac) = W(1:i,Ac)*face(faIn)%val(1:i,a)
118 a = rowPtr(1,Ac)
120 Val(1,a:b) = Val(1,a:b)*W(1,Ac)
124 a = rowPtr(1,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)
131 a = rowPtr(1,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)
139 a = rowPtr(1,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)
148 a = rowPtr(1,Ac)
152 Val(j:i*dof,a:b) = Val(j:i*dof,a:b)*W(i,Ac)
161 a = colPtr(i)
162 Val(1,i) = Val(1,i)*W(1,a)
168 a = colPtr(i)
169 Val(1:3:2,i) = Val(1:3:2,i)*W(1,a)
170 Val(2:4:2,i) = Val(2:4:2,i)*W(2,a)
176 a = colPtr(i)
177 Val(1:7:3,i) = Val(1:7:3,i)*W(1,a)
178 Val(2:8:3,i) = Val(2:8:3,i)*W(2,a)
179 Val(3:9:3,i) = Val(3:9:3,i)*W(3,a)
185 a = colPtr(i)
186 Val(1:13:4,i) = Val(1:13:4,i)*W(1,a)
187 Val(2:14:4,i) = Val(2:14:4,i)*W(2,a)
188 Val(3:15:4,i) = Val(3:15:4,i)*W(3,a)
189 Val(4:16:4,i) = Val(4:16:4,i)*W(4,a)
195 a = colPtr(i)
198 Val(b:j:dof,i) = Val(b:j:dof,i)*W(b,a)
206 DO a=1, dof
207 b = (a-1)*dof + a
214 DO a=1, face(faIn)%nNo
215 Ac = face(faIn)%glob(a)
217 face(faIn)%valM(i,a) = face(faIn)%val(i,a)*W(i,Ac)