6       subroutine drvAllreduce ( eachproc, result, m )  argument
11       dimension eachproc(m), result(m)
21          call MPI_ALLREDUCE ( eachproc, result, m, 
29          result = eachproc
39       subroutine drvAllreducesclr ( eachproc, result )   argument
52          call MPI_ALLREDUCE ( eachproc, result, 1,
60          result = eachproc
70       subroutine drvAllreduceMaxInt ( eachproc, result )  argument
75       integer :: eachproc, result  local
85          call MPI_ALLREDUCE ( eachproc, result, 1,
93          result = eachproc