42 #ifdef notcompilethisfile
45 void hit_topCommitInternal(
HitTopology *topo, MPI_Comm oldComm) {
46 MPI_Comm *newCom = (MPI_Comm *)malloc(
sizeof( MPI_Comm ) );
48 int ok = MPI_Comm_split( oldComm, topo->
active, topo->linearRank, newCom );
51 topo->
pTopology.lowLevel = (
void *)newCom;
55 void hit_topFreeInternal(
HitTopology *topo, MPI_Comm *oldComm) {
56 int ok = MPI_Comm_free( (MPI_Comm *)topo->
pTopology.lowLevel );
59 topo->
pTopology.lowLevel = (
void *)MPI_COMM_NULL;
65 void hit_comTypeStructInternal(
HitType * newType,
int count, ...){
85 lengths[i] = va_arg(ap,
int);
98 for(i=1; i<count; i++){
100 MPI_Type_size(types[i-1],&size);
101 displacements[i] = displacements[i-1] + (
HitAint) lengths[i-1] * size ;
104 MPI_Type_create_struct(count, lengths, displacements, types, newType);
105 MPI_Type_commit(newType);
#define hit_mpiTestError(ok, cad)
#define hit_malloc(ptr, type, nmemb)