Lines Matching refs:s
52 INTEGER i, j, k, a, Ac, ai, s, e, nTasks, tF, maxnNo, ierr, local
83 s = rowPtr(Ac)
85 DO i=s, e
93 lhs%rowPtr(1,Ac) = s
218 s = lhs%cS(i)%ptr
219 e = s + lhs%cS(i)%n - 1
221 CALL MPI_RECV(part(s:e), lhs%cS(i)%n, mpint, i-1,
225 DO j=s, e
227 IF (part(j).NE.ltg(k) .OR. j.EQ.s) THEN
239 DO j=s, e
241 IF (part(j).NE.ltg(k) .OR. j.EQ.s) THEN
255 CALL MPI_SEND(ltg(s:e), lhs%cS(i)%n, mpint, i-1,