Fix some Fortran typos.

This commit was SVN r26709.

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

@@ -93,6 +93,6 @@ void ompi_graph_create_f(MPI_Fint *comm_old, MPI_Fint *nnodes,
         *comm_graph = MPI_Comm_c2f(c_comm_graph);
     }
 
-    OMPI_ARRAY_FINT_2_INT_CLEANUP(idx);
+    OMPI_ARRAY_FINT_2_INT_CLEANUP(indx);
     OMPI_ARRAY_FINT_2_INT_CLEANUP(edges);
 }

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

@@ -28,8 +28,8 @@
 #pragma weak pmpi_ireduce_scatter_block_ = ompi_ireduce_scatter_block_f
 #pragma weak pmpi_ireduce_scatter_block__ = ompi_ireduce_scatter_block_f
 
-#pragma weak PMPI_ireduce_scatter_block_f = ompi_ireduce_scatter_block_f
-#pragma weak PMPI_ireduce_scatter_block_f08 = ompi_ireduce_scatter_block_f
+#pragma weak PMPI_Ireduce_scatter_block_f = ompi_ireduce_scatter_block_f
+#pragma weak PMPI_Ireduce_scatter_block_f08 = ompi_ireduce_scatter_block_f
 #elif OMPI_PROFILE_LAYER
 OMPI_GENERATE_F77_BINDINGS (PMPI_IREDUCE_SCATTER_BLOCK,
                             pmpi_ireduce_scatter_block,
@@ -46,8 +46,8 @@ OMPI_GENERATE_F77_BINDINGS (PMPI_IREDUCE_SCATTER_BLOCK,
 #pragma weak mpi_ireduce_scatter_block_ = ompi_ireduce_scatter_block_f
 #pragma weak mpi_ireduce_scatter_block__ = ompi_ireduce_scatter_block_f
 
-#pragma weak MPI_ireduce_scatter_block_f = ompi_ireduce_scatter_block_f
-#pragma weak MPI_ireduce_scatter_block_f08 = ompi_ireduce_scatter_block_f
+#pragma weak MPI_Ireduce_scatter_block_f = ompi_ireduce_scatter_block_f
+#pragma weak MPI_Ireduce_scatter_block_f08 = ompi_ireduce_scatter_block_f
 #endif
 
 #if ! OPAL_HAVE_WEAK_SYMBOLS && ! OMPI_PROFILE_LAYER

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

@@ -28,8 +28,8 @@
 #pragma weak pmpi_reduce_scatter_block_ = ompi_reduce_scatter_block_f
 #pragma weak pmpi_reduce_scatter_block__ = ompi_reduce_scatter_block_f
 
-#pragma weak PMPI_reduce_scatter_block_f = ompi_reduce_scatter_block_f
-#pragma weak PMPI_reduce_scatter_block_f08 = ompi_reduce_scatter_block_f
+#pragma weak PMPI_Reduce_scatter_block_f = ompi_reduce_scatter_block_f
+#pragma weak PMPI_Reduce_scatter_block_f08 = ompi_reduce_scatter_block_f
 #elif OMPI_PROFILE_LAYER
 OMPI_GENERATE_F77_BINDINGS (PMPI_REDUCE_SCATTER_BLOCK,
                            pmpi_reduce_scatter_block,
@@ -46,8 +46,8 @@ OMPI_GENERATE_F77_BINDINGS (PMPI_REDUCE_SCATTER_BLOCK,
 #pragma weak mpi_reduce_scatter_block_ = ompi_reduce_scatter_block_f
 #pragma weak mpi_reduce_scatter_block__ = ompi_reduce_scatter_block_f
 
-#pragma weak MPI_reduce_scatter_block_f = ompi_reduce_scatter_block_f
-#pragma weak MPI_reduce_scatter_block_f08 = ompi_reduce_scatter_block_f
+#pragma weak MPI_Reduce_scatter_block_f = ompi_reduce_scatter_block_f
+#pragma weak MPI_Reduce_scatter_block_f08 = ompi_reduce_scatter_block_f
 #endif
 
 #if ! OPAL_HAVE_WEAK_SYMBOLS && ! OMPI_PROFILE_LAYER