Fix a problem noted by Paul Kapinos: MPI_COMM_SET_ERRHANDLER and

MPI_WIN_SET_ERRHANDLER had their MPI handle parameters marked as INOUT
instead of IN, thereby disallowing passing pre-defined handles through
because they are constants (e.g., MPI_COMM_WORLD).  This wasn't really
a problem for MPI_WIN_SET_ERRHANDLER since there are no predefined
windows, but it wasn't right.

This commit was SVN r23098.

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-2009 Cisco Systems, Inc.  All rights reserved.
+# Copyright (c) 2006-2010 Cisco Systems, Inc.  All rights reserved.
 # $COPYRIGHT$
 # 
 # Additional copyrights may follow
@@ -1667,7 +1667,7 @@ output_49() {
     cat <<EOF
 
 subroutine ${procedure}(comm, errhandler, ierr)
-  integer, intent(inout) :: comm
+  integer, intent(in) :: comm
   integer, intent(in) :: errhandler
   integer, intent(out) :: ierr
 end subroutine ${procedure}
@@ -9121,7 +9121,7 @@ output_267() {
     cat <<EOF
 
 subroutine ${procedure}(win, errhandler, ierr)
-  integer, intent(inout) :: win
+  integer, intent(in) :: win
   integer, intent(in) :: errhandler
   integer, intent(out) :: ierr
 end subroutine ${procedure}