Lines Matching refs:Ac
52 INTEGER i, j, k, a, Ac, ai, s, e, nTasks, tF, maxnNo, ierr, local
82 DO Ac=1, nNo
83 s = rowPtr(Ac)
84 e = rowPtr(Ac+1) - 1
87 IF (Ac .EQ. a) THEN
88 lhs%diagPtr(Ac) = i
93 lhs%rowPtr(1,Ac) = s
94 lhs%rowPtr(2,Ac) = e
96 lhs%map(Ac) = Ac
121 Ac = gNodes(a)
122 gtlPtr(Ac) = a
129 Ac = aNodes(a,i)
130 IF (Ac .EQ. 0) EXIT
131 ai = gtlPtr(Ac)
154 Ac = aNodes(a,i)
155 IF (Ac .NE. 0) THEN
157 ai = gtlPtr(Ac)
159 ltg(j) = Ac
179 Ac = ltg(a)
180 gtlPtr(Ac) = a
183 Ac = gNodes(a)
184 lhs%map(a) = gtlPtr(Ac)
190 Ac = lhs%map(a)
191 lhs%rowPtr(1,Ac) = rowPtr(a)
192 lhs%rowPtr(2,Ac) = rowPtr(a+1) - 1
199 DO Ac=1, nNo
200 DO i=lhs%rowPtr(1,Ac), lhs%rowPtr(2,Ac)
202 IF (Ac .EQ. a) THEN
203 lhs%diagPtr(Ac) = i