Lines Matching refs:part
57 2 part(:), sCount(:), disp(:) local
105 ALLOCATE(aNodes(maxnNo,nTasks), part(maxnNo), sCount(nTasks),
108 part = 0
109 part(1:nNo) = gNodes
116 CALL MPI_ALLGATHERV(part, maxnNo, mpint, aNodes, sCount, disp,
187 DEALLOCATE(aNodes, part, gtlPtr, sCount, disp)
212 ALLOCATE(part(i))
221 CALL MPI_RECV(part(s:e), lhs%cS(i)%n, mpint, i-1,
227 IF (part(j).NE.ltg(k) .OR. j.EQ.s) THEN
230 IF (part(j) .EQ. ltg(k)) EXIT
241 IF (part(j).NE.ltg(k) .OR. j.EQ.s) THEN
245 IF (part(j) .EQ. ltg(k)) THEN
261 IF (ALLOCATED(part)) DEALLOCATE(part)