call MPI_CART_CREATE(MPI_COMM_WORLD, |
ndim,dims,periods, |
reorder,comm2d,ierr) |
CALL MPI_COMM_RANK( MPI_COMM_WORLD, |
myrank, ierr ) |
CALL MPI_CART_COORDS( MPI_COMM_WORLD, |
myrank, 2, coords, ierr ) |
CALL MPI_CART_SHIFT( comm2d, |
2, 1, nbrleft, nbrright, ierr ) |
CALL MPI_CART_SHIFT( comm2d, |
1, 1, nbrbottom, nbrtop, ierr ) |