Searched refs:aNodes (Results 1 – 1 of 1) sorted by relevance
| /phasta/svLS/ |
| H A D | LHS.f | 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
[all …]
|