Searched refs:maxnNo (Results 1 – 1 of 1) sorted by relevance
| /phasta/svLS/ |
| H A D | LHS.f | 52 INTEGER i, j, k, a, Ac, ai, s, e, nTasks, tF, maxnNo, ierr, local
103 CALL MPI_ALLREDUCE (nNo, maxnNo, 1, mpint, MPI_MAX, comm, ierr)
105 ALLOCATE(aNodes(maxnNo,nTasks), part(maxnNo), sCount(nTasks),
112 disp(i) = (i-1)*maxnNo
113 sCount(i) = maxnNo
116 CALL MPI_ALLGATHERV(part, maxnNo, mpint, aNodes, sCount, disp,
128 DO a=1, maxnNo
153 DO a=1, maxnNo
|