633
633
MPIUNI_TMP = (void*)(MPIUNI_INTPTR) (comm2),\
636
#define MPI_Comm_split(comm,color,key,newcomm) MPI_SUCCESS
636
#define MPI_Comm_split(comm,color,key,newcomm) MPI_Comm_dup(comm,newcomm)
637
637
#define MPI_Comm_test_inter(comm,flag) (*(flag)=1,MPI_SUCCESS)
638
638
#define MPI_Comm_remote_size(comm,size) (*(size)=1,MPI_SUCCESS)
639
639
#define MPI_Comm_remote_group(comm,group) MPI_SUCCESS