Fix F90 interface for MPI_CART_CREATE. Thanks to Michal Charemza for

reporting the problem.

This commit was SVN r17395.

ompi/mpi/f90/scripts/mpi-f90-interfaces.h.sh

@@ -5,7 +5,7 @@
 #                         Corporation.  All rights reserved.
 # Copyright (c) 2004-2006 The Regents of the University of California.
 #                         All rights reserved.
-# Copyright (c) 2006-2007 Cisco Systems, Inc.  All rights reserved.
+# Copyright (c) 2006-2008 Cisco Systems, Inc.  All rights reserved.
 # $COPYRIGHT$
 # 
 # Additional copyrights may follow
@@ -1092,8 +1092,8 @@ subroutine ${procedure}(old_comm, ndims, dims, periods, reorder, &
   integer, intent(in) :: old_comm
   integer, intent(in) :: ndims
   integer, dimension(*), intent(in) :: dims
-  integer, dimension(*), intent(in) :: periods
+  logical, dimension(*), intent(in) :: periods
-  integer, intent(in) :: reorder
+  logical, intent(in) :: reorder
   integer, intent(out) :: comm_cart
   integer, intent(out) :: ierr
 end subroutine ${procedure}