Uncommenting some stuff .... these functions are now implemented
This commit was SVN r1050.
Этот коммит содержится в:
родитель
304ed5b454
Коммит
18ea956075
@ -33,8 +33,8 @@ int topo_base_cart_create (MPI_Comm old_comm,
|
|||||||
MPI_Comm newcomm;
|
MPI_Comm newcomm;
|
||||||
#if 0
|
#if 0
|
||||||
MPI_Group newgroup;
|
MPI_Group newgroup;
|
||||||
int rank;
|
|
||||||
#endif
|
#endif
|
||||||
|
int rank;
|
||||||
int size;
|
int size;
|
||||||
int nprocs;
|
int nprocs;
|
||||||
int err;
|
int err;
|
||||||
@ -123,10 +123,8 @@ int topo_base_cart_create (MPI_Comm old_comm,
|
|||||||
return err;
|
return err;
|
||||||
}
|
}
|
||||||
|
|
||||||
#if 0
|
err = newcomm->c_topo.topo_cart_coords (newcomm, rank,
|
||||||
err = lam_cart_coords (newcomm, rank,
|
|
||||||
ndims, newcomm->c_topo_comm->mtc_coords);
|
ndims, newcomm->c_topo_comm->mtc_coords);
|
||||||
#endif
|
|
||||||
if (err != MPI_SUCCESS) {
|
if (err != MPI_SUCCESS) {
|
||||||
return err;
|
return err;
|
||||||
}
|
}
|
||||||
|
@ -30,9 +30,7 @@ int topo_base_cart_sub (MPI_Comm comm,
|
|||||||
int key;
|
int key;
|
||||||
int colfactor;
|
int colfactor;
|
||||||
int keyfactor;
|
int keyfactor;
|
||||||
#if 0
|
|
||||||
int rank;
|
int rank;
|
||||||
#endif
|
|
||||||
int ndim;
|
int ndim;
|
||||||
int dim;
|
int dim;
|
||||||
int allfalse;
|
int allfalse;
|
||||||
@ -122,10 +120,8 @@ int topo_base_cart_sub (MPI_Comm comm,
|
|||||||
if (errcode != MPI_SUCCESS) {
|
if (errcode != MPI_SUCCESS) {
|
||||||
return errcode;
|
return errcode;
|
||||||
}
|
}
|
||||||
#if 0
|
errcode = newcomm->c_topo.topo_cart_coords (newcomm, rank,
|
||||||
errcode = lam_cart_coords (newcomm, rank,
|
ndim, newcomm->c_topo_comm->mtc_coords);
|
||||||
ndim, newcomm->c_topo_comm->mtc_coords);
|
|
||||||
#endif
|
|
||||||
if (errcode != MPI_SUCCESS) {
|
if (errcode != MPI_SUCCESS) {
|
||||||
return errcode;
|
return errcode;
|
||||||
}
|
}
|
||||||
|
Загрузка…
x
Ссылка в новой задаче
Block a user