removing the mapping of newgroup before the group has been generated.

This commit was SVN r1286.

src/mpi/f77/group_difference_f.c

@@ -54,7 +54,6 @@ void mpi_group_difference_f(MPI_Fint *group1, MPI_Fint *group2, MPI_Fint *newgro
   /* Make the fortran to c representation conversion */
   c_group1 = MPI_Group_f2c(*group1);
   c_group2 = MPI_Group_f2c(*group2);
-  c_newgroup = MPI_Group_f2c(*newgroup);
   
   *ierr = MPI_Group_difference(c_group1, c_group2, &c_newgroup);
 

src/mpi/f77/group_excl_f.c

@@ -53,7 +53,6 @@ void mpi_group_excl_f(MPI_Fint *group, MPI_Fint *n, MPI_Fint *ranks, MPI_Fint *n
 
   /* Make the fortran to c representation conversion */
   c_group = MPI_Group_f2c(*group);
-  c_newgroup = MPI_Group_f2c(*newgroup);
   
   *ierr = MPI_Group_excl(c_group, *n, ranks, &c_newgroup);
 

src/mpi/f77/group_incl_f.c

@@ -54,7 +54,6 @@ void mpi_group_incl_f(MPI_Fint *group, MPI_Fint *n, MPI_Fint *ranks, MPI_Fint *n
 
     /* make the fortran to c representation conversion */
     c_group = MPI_Group_f2c(*group);
-    c_newgroup = MPI_Group_f2c(*newgroup);
 
     *ierr = MPI_Group_incl(c_group, *ranks, n, &c_newgroup);
 

src/mpi/f77/group_intersection_f.c

@@ -54,7 +54,6 @@ void mpi_group_intersection_f(MPI_Fint *group1, MPI_Fint *group2, MPI_Fint *newg
   /* Make the fortran to c representation conversion */
   c_group1 = MPI_Group_f2c(*group1);
   c_group2 = MPI_Group_f2c(*group2);
-  c_newgroup = MPI_Group_f2c(*newgroup);
   
   *ierr = MPI_Group_intersection(c_group1, c_group2, &c_newgroup);
 

src/mpi/f77/group_range_excl_f.c

@@ -53,7 +53,6 @@ void mpi_group_range_excl_f(MPI_Fint *group, MPI_Fint *n, MPI_Fint ranges[][3],
 
   /* Make the fortran to c representation conversion */
   c_group = MPI_Group_f2c(*group);
-  c_newgroup = MPI_Group_f2c(*newgroup);
   
   *ierr = MPI_Group_range_excl(c_group, *n, ranges, &c_newgroup);
 

src/mpi/f77/group_range_incl_f.c

@@ -53,7 +53,6 @@ void mpi_group_range_incl_f(MPI_Fint *group, MPI_Fint *n, MPI_Fint ranges[][3],
 
   /* Make the fortran to c representation conversion */
   c_group = MPI_Group_f2c(*group);
-  c_newgroup = MPI_Group_f2c(*newgroup);
   
   *ierr = MPI_Group_range_incl(c_group, *n, ranges, &c_newgroup);
 

src/mpi/f77/group_union_f.c

@@ -54,7 +54,6 @@ void mpi_group_union_f(MPI_Fint *group1, MPI_Fint *group2, MPI_Fint *newgroup, M
   /* Make the fortran to c representation conversion */
   c_group1 = MPI_Group_f2c(*group1);
   c_group2 = MPI_Group_f2c(*group2);
-  c_newgroup = MPI_Group_f2c(*newgroup);
   
   *ierr = MPI_Group_union(c_group1, c_group2, &c_newgroup);