Searched refs:getinfo (Results 1 – 1 of 1) sorted by relevance
54 integer, allocatable :: getinfo(:) local829 allocate(getinfo(numpe))830 getinfo(:) = 0834 call mpi_gather(ifill, 1, MPI_INT, getinfo, 1, MPI_INT, 903 ifill = getinfo(irM+1)1048 if (getinfo(i) .gt. 0) then1054 deallocate(getinfo)