Use the converted value instead of calling the macro again.

This commit was SVN r28701.

ompi/mpi/fortran/mpif-h/cart_create_f.c

@@ -79,7 +79,7 @@ void ompi_cart_create_f(MPI_Fint *old_comm, MPI_Fint *ndims, MPI_Fint *dims,
     OMPI_ARRAY_FINT_2_INT(dims, size);
     OMPI_ARRAY_LOGICAL_2_INT(periods, size);
 
-    c_ierr = MPI_Cart_create(c_comm1, OMPI_FINT_2_INT(*ndims),
+    c_ierr = MPI_Cart_create(c_comm1, size,
                              OMPI_ARRAY_NAME_CONVERT(dims),
                              OMPI_LOGICAL_ARRAY_NAME_CONVERT(periods),
                              OMPI_LOGICAL_2_INT(*reorder),

ompi/mpi/fortran/mpif-h/cart_get_f.c

@@ -81,7 +81,7 @@ void ompi_cart_get_f(MPI_Fint *comm, MPI_Fint *maxdims, MPI_Fint *dims,
     OMPI_ARRAY_LOGICAL_2_INT_ALLOC(periods, size);
 
     c_ierr = MPI_Cart_get(c_comm,
-                          OMPI_FINT_2_INT(*maxdims), 
+                          size, 
                           OMPI_ARRAY_NAME_CONVERT(dims),
                           OMPI_LOGICAL_ARRAY_NAME_CONVERT(periods),
                           OMPI_ARRAY_NAME_CONVERT(coords));

ompi/mpi/fortran/mpif-h/cart_map_f.c

@@ -80,7 +80,7 @@ void ompi_cart_map_f(MPI_Fint *comm, MPI_Fint *ndims, MPI_Fint *dims,
     OMPI_ARRAY_LOGICAL_2_INT(periods, size);
 
     c_ierr = MPI_Cart_map(c_comm, 
-                          OMPI_FINT_2_INT(*ndims),
+                          size,
                           OMPI_ARRAY_NAME_CONVERT(dims),
                           OMPI_LOGICAL_ARRAY_NAME_CONVERT(periods),
                           OMPI_SINGLE_NAME_CONVERT(newrank));