Lines Matching refs:Ac
54 INTEGER i, j, a, b, d, Ac, faIn local
58 DO Ac=1, nNo
59 W(1,Ac) = Val(1,diagPtr(Ac))
62 DO Ac=1, nNo
63 d = diagPtr(Ac)
64 W(1,Ac) = Val(1,d)
65 W(2,Ac) = Val(4,d)
68 DO Ac=1, nNo
69 d = diagPtr(Ac)
70 W(1,Ac) = Val(1,d)
71 W(2,Ac) = Val(5,d)
72 W(3,Ac) = Val(9,d)
75 DO Ac=1, nNo
76 d = diagPtr(Ac)
77 W(1,Ac) = Val(1,d)
78 W(2,Ac) = Val(6,d)
79 W(3,Ac) = Val(11,d)
80 W(4,Ac) = Val(16,d)
83 DO Ac=1, nNo
84 d = diagPtr(Ac)
86 W(i,Ac) = Val(i*dof-dof+i,d)
93 DO Ac=1, nNo
94 d = diagPtr(Ac)
96 IF (W(i,Ac) .EQ. 0D0) THEN
97 W(i,Ac) = 1D0
109 Ac = face(faIn)%glob(a)
110 W(1:i,Ac) = W(1:i,Ac)*face(faIn)%val(1:i,a)
117 DO Ac=1, nNo
118 a = rowPtr(1,Ac)
119 b = rowPtr(2,Ac)
120 Val(1,a:b) = Val(1,a:b)*W(1,Ac)
123 DO Ac=1, nNo
124 a = rowPtr(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)
130 DO Ac=1, nNo
131 a = rowPtr(1,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)
138 DO Ac=1, nNo
139 a = rowPtr(1,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)
147 DO Ac=1, nNo
148 a = rowPtr(1,Ac)
149 b = rowPtr(2,Ac)
152 Val(j:i*dof,a:b) = Val(j:i*dof,a:b)*W(i,Ac)
159 DO Ac=1, nNo
160 DO i=rowPtr(1,Ac), rowPtr(2,Ac)
166 DO Ac=1, nNo
167 DO i=rowPtr(1,Ac), rowPtr(2,Ac)
174 DO Ac=1, nNo
175 DO i=rowPtr(1,Ac), rowPtr(2,Ac)
183 DO Ac=1, nNo
184 DO i=rowPtr(1,Ac), rowPtr(2,Ac)
193 DO Ac=1, nNo
194 DO i=rowPtr(1,Ac), rowPtr(2,Ac)
204 DO Ac=1, nNo
205 i = diagPtr(Ac)
215 Ac = face(faIn)%glob(a)
217 face(faIn)%valM(i,a) = face(faIn)%val(i,a)*W(i,Ac)