Lines Matching refs:a
52 INTEGER i, j, k, a, Ac, ai, s, e, nTasks, tF, maxnNo, ierr, local
86 a = colPtr(i)
87 IF (Ac .EQ. a) THEN
120 DO a=1, nNo
121 Ac = gNodes(a)
122 gtlPtr(Ac) = a
128 DO a=1, maxnNo
129 Ac = aNodes(a,i)
136 aNodes(a,i) = 0
139 aNodes(a,i) = 0
153 DO a=1, maxnNo
154 Ac = aNodes(a,i)
178 DO a=1, nNo
179 Ac = ltg(a)
180 gtlPtr(Ac) = a
182 DO a=1, nNo
183 Ac = gNodes(a)
184 lhs%map(a) = gtlPtr(Ac)
189 DO a=1, nNo
190 Ac = lhs%map(a)
191 lhs%rowPtr(1,Ac) = rowPtr(a)
192 lhs%rowPtr(2,Ac) = rowPtr(a+1) - 1
201 a = lhs%colPtr(i)
202 IF (Ac .EQ. a) THEN
234 a = lhs%cS(i)%nBl
235 ALLOCATE(lhs%cS(i)%blPtr(a), lhs%cS(i)%blN(a))
238 a = 0
242 a = a + 1
243 lhs%cS(i)%blN(a) = 1
246 lhs%cS(i)%blPtr(a) = k
251 lhs%cS(i)%blN(a) = lhs%cS(i)%blN(a) + 1