Lines Matching refs:numpe
128 if(numpe.gt.0 .and. myrank.ne.master)iverbose=0
268 if (numpe > 1) call MPI_BARRIER(MPI_COMM_WORLD, ierr)
648 if (numpe > 1) call MPI_BARRIER(MPI_COMM_WORLD, ierr)
656 if (numpe > 1) call MPI_BARRIER(MPI_COMM_WORLD, ierr)
672 if (numpe > 1) call MPI_BARRIER(MPI_COMM_WORLD, ierr)
677 if (numpe > 1) call MPI_BARRIER(MPI_COMM_WORLD, ierr)
700 if (numpe > 1) call MPI_BARRIER(MPI_COMM_WORLD, ierr)
713 if (numpe > 1) call MPI_BARRIER(MPI_COMM_WORLD, ierr)
723 if (numpe > 1) call MPI_BARRIER(MPI_COMM_WORLD, ierr)
729 if (numpe > 1) call MPI_BARRIER(MPI_COMM_WORLD, ierr)
766 if (numpe > 1) call MPI_BARRIER(MPI_COMM_WORLD, ierr)
781 if (numpe > 1) call MPI_BARRIER(MPI_COMM_WORLD, ierr)
808 if (numpe > 1) call MPI_BARRIER(MPI_COMM_WORLD, ierr)
821 if (numpe > 1) call MPI_BARRIER(MPI_COMM_WORLD, ierr)
841 if (numpe > 1) call MPI_BARRIER(MPI_COMM_WORLD, ierr)
1385 iv_totnodes = numpe/iv_rankpernode
1416 if(iv_rank(jj) .lt.0 .or. iv_rank(jj) .ge. numpe) then
1419 iv_rank(jj) = numpe-1
1765 if (numpe > 1) then