예제 #1
0
void error_handler(MPI_Comm *communicator, int *error_code, ...) {
    MPI_Comm *new_comm = malloc(sizeof(MPI_Comm));

    MPIX_Comm_revoke(comm_all);
    MPIX_Comm_shrink(comm_all, new_comm);

    MPI_Comm_free(&comm_all);

    comm_all = *new_comm;
}
예제 #2
0
FORT_DLL_SPEC void FORT_CALL mpix_comm_revoke_ ( MPI_Fint *v1, MPI_Fint *ierr ){
    *ierr = MPIX_Comm_revoke( (MPI_Comm)(*v1) );
}