C if (datatype .ne. MPI_INTEGER) then
C print *, 'Invalid datatype (',datatype,') passed to user_op()'
C return
C if (datatype .ne. MPI_INTEGER) then
C print *, 'Invalid datatype (',datatype,') passed to user_op()'
C return
integer ierr, errs
integer count, sumop, vin(65000), vout(65000), i, size
integer comm
integer ierr, errs
integer count, sumop, vin(65000), vout(65000), i, size
integer comm
- call mpi_allreduce( vin, vout, count, MPI_INTEGER, sumop,
+ call mpi_allreduce( vin, vout, count, MPI_INTEGER, sumop,