Lines Matching refs:cS
76 2 lhs%map(nNo), lhs%cS(nTasks), lhs%face(nFaces))
145 lhs%cS(1)%ptr = 1
147 lhs%cS(i)%n = 0
148 lhs%cS(i)%ptr = j
150 lhs%cS(i)%ptr = lhs%cS(i-1)%ptr + lhs%cS(i-1)%n
156 lhs%cS(i)%n = lhs%cS(i)%n + 1
167 lhs%cS(i)%tag = nTasks*i + tF
169 lhs%cS(i)%tag = nTasks*tF + i
171 IF (lhs%cS(i)%n .EQ. 0) lhs%cS(i)%tag = 0
174 lhs%cS(tF)%tag = 0
175 lhs%mynNo = lhs%cS(tF)%ptr + lhs%cS(tF)%n - 1
211 i = lhs%cS(i)%ptr + lhs%cS(i)%n - 1
216 lhs%cS(i)%nBl = 0
217 IF (lhs%cS(i)%tag .NE. 0) THEN
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,
222 2 lhs%cS(i)%tag, comm, stat, ierr)
228 lhs%cS(i)%nBl = lhs%cS(i)%nBl + 1
229 DO k=1, lhs%cS(tF)%ptr
234 a = lhs%cS(i)%nBl
235 ALLOCATE(lhs%cS(i)%blPtr(a), lhs%cS(i)%blN(a))
243 lhs%cS(i)%blN(a) = 1
244 DO k=1, lhs%cS(tF)%ptr
246 lhs%cS(i)%blPtr(a) = k
251 lhs%cS(i)%blN(a) = lhs%cS(i)%blN(a) + 1
255 CALL MPI_SEND(ltg(s:e), lhs%cS(i)%n, mpint, i-1,
256 2 lhs%cS(i)%tag, comm, stat, ierr)
288 IF (ALLOCATED(lhs%cS(i)%blPtr)) THEN
289 DEALLOCATE(lhs%cS(i)%blPtr, lhs%cS(i)%blN)
299 DEALLOCATE (lhs%colPtr, lhs%rowPtr, lhs%diagPtr, lhs%map, lhs%cS,