Lines Matching refs:aNodes
56 INTEGER, ALLOCATABLE :: aNodes(:,:), gtlPtr(:), ltg(:), local
105 ALLOCATE(aNodes(maxnNo,nTasks), part(maxnNo), sCount(nTasks),
116 CALL MPI_ALLGATHERV(part, maxnNo, mpint, aNodes, sCount, disp,
129 Ac = aNodes(a,i)
133 IF (aNodes(ai,tF) .NE. 0) THEN
134 IF (i .GT. tF) aNodes(ai,tF) = 0
136 aNodes(a,i) = 0
139 aNodes(a,i) = 0
154 Ac = aNodes(a,i)
158 IF (i.GT.tF .OR. aNodes(ai,tF).NE.0) THEN
161 aNodes(ai,tF) = 0
187 DEALLOCATE(aNodes, part, gtlPtr, sCount, disp)