X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/c81c99a491282f76757c2673961e3cdee6853539..b7dc075d2c3bdf2b384cb8897d16a4c0aa8ab0f7:/teshsuite/smpi/mpich-test/topol/cartc.f90

diff --git a/teshsuite/smpi/mpich-test/topol/cartc.f90 b/teshsuite/smpi/mpich-test/topol/cartc.f90
deleted file mode 100644
index 6544a1bfe9..0000000000
--- a/teshsuite/smpi/mpich-test/topol/cartc.f90
+++ /dev/null
@@ -1,21 +0,0 @@
-program topology
-  
-     implicit none
-     include "mpif.h"
-     integer, parameter :: Ndim=2
-     integer :: Rang, Nprocs, Comm, info
-     integer, dimension(Ndim) :: Dims
-     logical, dimension(Ndim) :: Period
-     logical                  :: Reorder=.FALSE.
-
-     Period(:) = .FALSE.
-     CALL MPI_INIT(info)
-     CALL MPI_COMM_RANK( MPI_COMM_WORLD, rang, info )
-     CALL MPI_COMM_SIZE( MPI_COMM_WORLD, Nprocs, info )
-     Dims(:) = 0
-     CALL MPI_DIMS_CREATE( Nprocs, Ndim, Dims, info )
-     CALL MPI_CART_CREATE( MPI_COMM_WORLD, Ndim, Dims, Period, Reorder, &
-                           Comm, info )
-     print *, "Rang : ",rang," New Comm cart : ",Comm
-     call MPI_FINALIZE(info)
-end program topology