Searched refs:maxvID (Results 1 – 1 of 1) sorted by relevance
63 integer :: maxvID(numpe),maxvIDout(numpe) local708 maxvID(:)=0 !only maxvID(1:irankN) should have non-zero entries at the end of the program712 maxvID(ifileN)=max(maxvID(ifileN),intvID)719 if (maxvID(i) .ne. 0) then728 call MPI_ALLREDUCE (maxvID, maxvIDout, irankN,