Add a few manual cleanups that were missed (i.e., this is the

''other'' direction, so to speak, compared to r24921).

This commit was SVN r24924.

The following SVN revision numbers were found above:
  r24921 --> open-mpi/ompi@bd96d028de

ompi/mpi/f77/cart_rank_f.c

@@ -9,6 +9,7 @@
  *                         University of Stuttgart.  All rights reserved.
  * Copyright (c) 2004-2005 The Regents of the University of California.
  *                         All rights reserved.
+ * Copyright (c) 2011 Cisco Systems, Inc.  All rights reserved.
  * $COPYRIGHT$
  * 
  * Additional copyrights may follow
@@ -76,4 +77,5 @@ void mpi_cart_rank_f(MPI_Fint *comm, MPI_Fint *coords, MPI_Fint *rank,
     if (MPI_SUCCESS == OMPI_FINT_2_INT(*ierr)) {
         OMPI_SINGLE_INT_2_FINT(rank);
     }
+    OMPI_ARRAY_FINT_2_INT_CLEANUP(coords);
 }

ompi/mpi/f77/gatherv_f.c

@@ -9,6 +9,7 @@
  *                         University of Stuttgart.  All rights reserved.
  * Copyright (c) 2004-2005 The Regents of the University of California.
  *                         All rights reserved.
+ * Copyright (c) 2011 Cisco Systems, Inc.  All rights reserved.
  * $COPYRIGHT$
  * 
  * Additional copyrights may follow
@@ -88,4 +89,6 @@ void mpi_gatherv_f(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype,
 					c_recvtype, 
 					OMPI_FINT_2_INT(*root),
 					c_comm));
+    OMPI_ARRAY_FINT_2_INT_CLEANUP(recvcounts);
+    OMPI_ARRAY_FINT_2_INT_CLEANUP(displs);
 }

ompi/mpi/f77/group_excl_f.c

@@ -9,6 +9,7 @@
  *                         University of Stuttgart.  All rights reserved.
  * Copyright (c) 2004-2005 The Regents of the University of California.
  *                         All rights reserved.
+ * Copyright (c) 2011 Cisco Systems, Inc.  All rights reserved.
  * $COPYRIGHT$
  * 
  * Additional copyrights may follow
@@ -78,4 +79,5 @@ void mpi_group_excl_f(MPI_Fint *group, MPI_Fint *n,
   if (MPI_SUCCESS == OMPI_FINT_2_INT(*ierr)) {
       *newgroup = c_newgroup->grp_f_to_c_index;
   }
+  OMPI_ARRAY_FINT_2_INT_CLEANUP(ranks);
 }

ompi/mpi/f77/group_incl_f.c

@@ -9,6 +9,7 @@
  *                         University of Stuttgart.  All rights reserved.
  * Copyright (c) 2004-2005 The Regents of the University of California.
  *                         All rights reserved.
+ * Copyright (c) 2011 Cisco Systems, Inc.  All rights reserved.
  * $COPYRIGHT$
  * 
  * Additional copyrights may follow
@@ -77,4 +78,5 @@ void mpi_group_incl_f(MPI_Fint *group, MPI_Fint *n, MPI_Fint *ranks, MPI_Fint *n
     if (MPI_SUCCESS == OMPI_FINT_2_INT(*ierr)) {
         *newgroup = c_newgroup->grp_f_to_c_index;
     }
+    OMPI_ARRAY_FINT_2_INT_CLEANUP(ranks);
 }

ompi/mpi/f77/reduce_scatter_f.c

@@ -9,6 +9,7 @@
  *                         University of Stuttgart.  All rights reserved.
  * Copyright (c) 2004-2005 The Regents of the University of California.
  *                         All rights reserved.
+ * Copyright (c) 2011 Cisco Systems, Inc.  All rights reserved.
  * $COPYRIGHT$
  * 
  * Additional copyrights may follow
@@ -82,4 +83,5 @@ void mpi_reduce_scatter_f(char *sendbuf, char *recvbuf,
     *ierr = OMPI_INT_2_FINT(MPI_Reduce_scatter(sendbuf, recvbuf,
 				       OMPI_ARRAY_NAME_CONVERT(recvcounts),
 				       c_type, c_op, c_comm));
+    OMPI_ARRAY_FINT_2_INT_CLEANUP(recvcounts);
 }