5 integer, parameter :: Ndim=2
6 integer :: Rang, Nprocs, Comm, info
7 integer, dimension(Ndim) :: Dims
8 logical, dimension(Ndim) :: Period
9 logical :: Reorder=.FALSE.
13 CALL MPI_COMM_RANK( MPI_COMM_WORLD, rang, info )
14 CALL MPI_COMM_SIZE( MPI_COMM_WORLD, Nprocs, info )
16 CALL MPI_DIMS_CREATE( Nprocs, Ndim, Dims, info )
17 CALL MPI_CART_CREATE( MPI_COMM_WORLD, Ndim, Dims, Period, Reorder, &
19 print *, "Rang : ",rang," New Comm cart : ",Comm
20 call MPI_FINALIZE(info)