proc allReduceFloat32(sendbuf: ptr float32; recvbuf: ptr float32; count: cint): cint {.
    ...raises: [ValueError], tags: [], forbids: [].}

proc allReduceFloat64(sendbuf: ptr float64; recvbuf: ptr float64; count: cint): cint {.
    ...raises: [ValueError], tags: [], forbids: [].}

proc allReduceInt32(sendbuf: ptr int32; recvbuf: ptr int32; count: cint): cint {.
    ...raises: [ValueError], tags: [], forbids: [].}

proc allReduceInt64(sendbuf: ptr int64; recvbuf: ptr int64; count: cint): cint {.
    ...raises: [ValueError], tags: [], forbids: [].}

proc finalizeMPI(): cint {.importc: "MPI_Finalize", header: "mpi.h",
                           discardable, ...raises: [], tags: [], forbids: [].}

proc initMPI(argc: ptr cint; argv: ptr cstringArray): cint {.
    importc: "MPI_Init", header: "mpi.h", discardable, ...raises: [], tags: [],
    forbids: [].}

proc MPI_Allreduce(sendbuf: pointer; recvbuf: pointer; count: cint;
                   datatype: cint; op: cint; comm: cint): cint {.
    importc: "MPI_Allreduce", header: "mpi.h", discardable, ...raises: [],
    tags: [], forbids: [].}