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; 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;
} }