From 4ee157b3669f94462540ddc841f484543ec09d7d Mon Sep 17 00:00:00 2001
From: Craig E Rasmussen <rasmus@cas.uoregon.edu>
Date: Tue, 30 Nov 2004 05:53:26 +0000
Subject: [PATCH] Added aliases to parameter names where needed as some F77
 dummy variable names differed from those in mpi.h.

This commit was SVN r3671.
---
 src/mpi/f90/xml/mpi.h.xml | 21 +++++++++++----------
 1 file changed, 11 insertions(+), 10 deletions(-)

diff --git a/src/mpi/f90/xml/mpi.h.xml b/src/mpi/f90/xml/mpi.h.xml
index 3a22074579..c49ee4b839 100644
--- a/src/mpi/f90/xml/mpi.h.xml
+++ b/src/mpi/f90/xml/mpi.h.xml
@@ -181,7 +181,7 @@
 
       <!-- ARGUMENT : string -->
       <arg name="string" intent="in">
-        <type kind="ptr" >
+        <type kind="ptr" alias="len">
           <indirect depth="1" kind="pointer">
             <type kind="int" ikind="char" >
             </type>
@@ -1769,7 +1769,7 @@
       </arg>
 
       <!-- ARGUMENT : erhandler -->
-      <arg name="erhandler" intent="out">
+      <arg name="erhandler" intent="out" alias="errhandler">
         <type kind="ptr" >
           <indirect depth="1" kind="pointer">
             <type kind="usertype" usertype="MPI_Errhandler" >
@@ -1798,7 +1798,7 @@
 
       <!-- ARGUMENT : comm_name -->
       <arg name="comm_name" intent="out">
-        <type kind="ptr" >
+        <type kind="ptr" alias="name_len">
           <indirect depth="1" kind="pointer">
             <type kind="int" ikind="char" >
             </type>
@@ -2005,8 +2005,9 @@
       </arg>
 
       <!-- ARGUMENT : comm_name -->
+
       <arg name="comm_name" intent="in">
-        <type kind="ptr" >
+        <type kind="ptr" alias="name_len">
           <indirect depth="1" kind="pointer">
             <type kind="int" ikind="char" >
             </type>
@@ -2606,7 +2607,7 @@
     <method name="MPI_File_get_errhandler" kind="final">
 
       <!-- ARGUMENT : file -->
-      <arg name="file" intent="in">
+      <arg name="file" intent="in" alias="fh">
         <type kind="usertype" usertype="MPI_File" >
         </type>
       </arg>
@@ -3888,7 +3889,7 @@
     <method name="MPI_File_set_errhandler" kind="final">
 
       <!-- ARGUMENT : file -->
-      <arg name="file" intent="in">
+      <arg name="file" intent="in" alias="fh">
         <type kind="usertype" usertype="MPI_File" >
         </type>
       </arg>
@@ -5166,7 +5167,7 @@
       </arg>
 
       <!-- ARGUMENT : newrank -->
-      <arg name="newrank" intent="out">
+      <arg name="newrank" intent="out" alias="nrank">
         <type kind="ptr" >
           <indirect depth="1" kind="pointer">
             <type kind="int" ikind="int" >
@@ -6334,7 +6335,7 @@
       </arg>
 
       <!-- ARGUMENT : newintercomm -->
-      <arg name="newintercomm" intent="out">
+      <arg name="newintercomm" intent="out" alias="newintracomm">
         <type kind="ptr" >
           <indirect depth="1" kind="pointer">
             <type kind="usertype" usertype="MPI_Comm" >
@@ -9992,7 +9993,7 @@
 
       <!-- ARGUMENT : type_name -->
       <arg name="type_name" intent="in">
-        <type kind="ptr" >
+        <type kind="ptr" alias="name_len">
           <indirect depth="1" kind="pointer">
             <type kind="int" ikind="char" >
             </type>
@@ -11040,7 +11041,7 @@
 
       <!-- ARGUMENT : win_name -->
       <arg name="win_name" intent="in">
-        <type kind="ptr" >
+        <type kind="ptr" alias="name_len">
           <indirect depth="1" kind="pointer">
             <type kind="int" ikind="char" >
             </type>