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; }
FORT_DLL_SPEC void FORT_CALL mpix_comm_revoke_ ( MPI_Fint *v1, MPI_Fint *ierr ){ *ierr = MPIX_Comm_revoke( (MPI_Comm)(*v1) ); }