parameter(MPI_BYTE=1)
parameter(MPI_CHARACTER=2)
- parameter(MPI_LOGICAL=3)
+ parameter(MPI_LOGICAL=18)
parameter(MPI_INT=4)
parameter(MPI_INTEGER=4)
parameter(MPI_INTEGER1=5)
MPI_COMM_WORLD->add_f();
MPI_BYTE->add_f(); // MPI_BYTE
MPI_CHAR->add_f(); // MPI_CHARACTER
+ MPI_C_BOOL->add_f(); // MPI_LOGICAL
if (sizeof(void*) == 8) {
- MPI_C_BOOL->add_f(); // MPI_LOGICAL
MPI_INT->add_f(); // MPI_INTEGER
} else {
- MPI_C_BOOL->add_f(); // MPI_LOGICAL
MPI_LONG->add_f(); // MPI_INTEGER
}
MPI_INT8_T->add_f(); // MPI_INTEGER1