1
1

Uncommenting some stuff .... these functions are now implemented

This commit was SVN r1050.
Этот коммит содержится в:
Prabhanjan Kambadur 2004-04-16 22:27:44 +00:00
родитель 304ed5b454
Коммит 18ea956075
2 изменённых файлов: 4 добавлений и 10 удалений

Просмотреть файл

@ -33,8 +33,8 @@ int topo_base_cart_create (MPI_Comm old_comm,
MPI_Comm newcomm;
#if 0
MPI_Group newgroup;
int rank;
#endif
int rank;
int size;
int nprocs;
int err;
@ -123,10 +123,8 @@ int topo_base_cart_create (MPI_Comm old_comm,
return err;
}
#if 0
err = lam_cart_coords (newcomm, rank,
err = newcomm->c_topo.topo_cart_coords (newcomm, rank,
ndims, newcomm->c_topo_comm->mtc_coords);
#endif
if (err != MPI_SUCCESS) {
return err;
}

Просмотреть файл

@ -30,9 +30,7 @@ int topo_base_cart_sub (MPI_Comm comm,
int key;
int colfactor;
int keyfactor;
#if 0
int rank;
#endif
int ndim;
int dim;
int allfalse;
@ -122,10 +120,8 @@ int topo_base_cart_sub (MPI_Comm comm,
if (errcode != MPI_SUCCESS) {
return errcode;
}
#if 0
errcode = lam_cart_coords (newcomm, rank,
ndim, newcomm->c_topo_comm->mtc_coords);
#endif
errcode = newcomm->c_topo.topo_cart_coords (newcomm, rank,
ndim, newcomm->c_topo_comm->mtc_coords);
if (errcode != MPI_SUCCESS) {
return errcode;
}