[mpich2-commits] r7822 - mpich2/trunk/src/binding/f77

[chan at mcs.anl.gov]

Author: chan
Date: 2011-01-24 18:50:07 -0600 (Mon, 24 Jan 2011)
New Revision: 7822

Modified:
   mpich2/trunk/src/binding/f77/buildiface
Log:
Added MPI_DIST_GRAPH to mpif.h and Specified the REORDER argument in MPI_Dist_graph_create() and MPI_Dist_graph_create_adjacent() as LOGICAL in the wrapper library.  This is a bug revealed by test/mpi/f77/topo/dgraph_unwgtf.f.



Modified: mpich2/trunk/src/binding/f77/buildiface
===================================================================
--- mpich2/trunk/src/binding/f77/buildiface	2011-01-25 00:24:07 UTC (rev 7821)
+++ mpich2/trunk/src/binding/f77/buildiface	2011-01-25 00:50:07 UTC (rev 7822)
@@ -552,10 +552,13 @@
 		  'Register_datarep-3' => 'in:checkdatarep',
 # MPI-2.2 Functions
     'Op_commutative' => '2', 'Op_commutative-2' => 'out:logical',
-    'Dist_graph_create_adjacent' => '4:7',
-		 'Dist_graph_create_adjacent-4' => 'in:unweighted',
-		 'Dist_graph_create_adjacent-7' => 'in:unweighted',
-    'Dist_graph_create' => '6', 'Dist_graph_create-6' => 'in:unweighted',
+    'Dist_graph_create_adjacent' => '4:7:9',
+		'Dist_graph_create_adjacent-4' => 'in:unweighted',
+		'Dist_graph_create_adjacent-7' => 'in:unweighted',
+		'Dist_graph_create_adjacent-9' => 'in:logical',
+    'Dist_graph_create' => '6:8',
+		'Dist_graph_create-6' => 'in:unweighted',
+		'Dist_graph_create-8' => 'in:logical',
     'Dist_graph_neighbors_count' => '4',
 		'Dist_graph_neighbors_count-4' => 'out:logical',
     'Dist_graph_neighbors' => '4:7',
@@ -2392,7 +2395,7 @@
     }
     #
     # Topology types
-    foreach $key (GRAPH, CART) {
+    foreach $key (GRAPH, CART, DIST_GRAPH) {
 	&print_mpif_int( "MPI_$key" );
     }
     #