Thsi wrapper was not returning the right thing back to the fortran interface

This commit was SVN r2932.

src/mpi/f77/cart_create_f.c

@@ -68,6 +68,8 @@ void mpi_cart_create_f(MPI_Fint *old_comm, MPI_Fint *ndims, MPI_Fint *dims,
 					    OMPI_FINT_2_INT(*reorder),
 					    &c_comm2));
 
+    *comm_cart = MPI_Comm_c2f(c_comm2);
+
     OMPI_ARRAY_FINT_2_INT_CLEANUP(dims);
     OMPI_ARRAY_FINT_2_INT_CLEANUP(periods);
 }

src/mpi/f77/cart_sub_f.c

@@ -55,4 +55,7 @@ void mpi_cart_sub_f(MPI_Fint *comm, MPI_Fint *remain_dims,
     c_new_comm = MPI_Comm_f2c(*new_comm);
 
     *ierr = OMPI_INT_2_FINT(MPI_Cart_sub(c_comm, remain_dims, &c_new_comm));
+
+    *new_comm = MPI_Comm_c2f(c_new_comm);
+
 }