1 | call MPI_CART_CREATE(MPI_COMM_WORLD, |
2 | ndim,dims,periods, |
3 | reorder,comm2d,ierr) |
4 | CALL MPI_COMM_RANK( MPI_COMM_WORLD, |
5 | myrank, ierr ) |
6 | CALL MPI_CART_COORDS( MPI_COMM_WORLD, |
7 | myrank, 2, coords, ierr ) |
8 | CALL MPI_CART_SHIFT( comm2d, |
9 | 2, 1, nbrleft, nbrright, ierr ) |
10 | CALL MPI_CART_SHIFT( comm2d, |
11 | 1, 1, nbrbottom, nbrtop, ierr ) |