Changed to use procedure alias (when names too long).

This commit was SVN r10145.

ompi/mpi/f90/xml/chasm-mpi.f90.sh.xsl

@@ -112,11 +112,29 @@
 
     <xsl:text>
 output() {
-    procedure=$1
+    procedure=$1</xsl:text>
+
+  <xsl:choose>
+
+    <xsl:when test="@alias != ''">
+    <xsl:text>
+    rank=$3
+    type=$5
+    proc="$2$3D$4"
+</xsl:text>
+    </xsl:when>
+
+    <xsl:otherwise>
+    <xsl:text>
     rank=$2
     type=$4
     proc="$1$2D$3"
+</xsl:text>
+    </xsl:otherwise>
 
+  </xsl:choose>
+
+    <xsl:text>
     cat &lt;&lt;EOF
 
 </xsl:text>
@@ -141,9 +159,15 @@ do
 </xsl:text>
 
     <xsl:text>  output </xsl:text> <xsl:value-of select="@name"/>
+    <xsl:if test="@alias != ''">
+      <xsl:text> </xsl:text>  <xsl:value-of select="@alias"/>
+    </xsl:if>
     <xsl:text> ${rank} CH "character${dim}"</xsl:text>
     <xsl:value-of select="$nl"/>
     <xsl:text>  output </xsl:text> <xsl:value-of select="@name"/>
+    <xsl:if test="@alias != ''">
+      <xsl:text> </xsl:text>  <xsl:value-of select="@alias"/>
+    </xsl:if>
     <xsl:text> ${rank} L "logical${dim}"</xsl:text>
     <xsl:value-of select="$nl"/>
 
@@ -152,6 +176,9 @@ do
     <xsl:text>  do</xsl:text>
     <xsl:value-of select="$nl"/>
     <xsl:text>    output </xsl:text> <xsl:value-of select="@name"/>
+    <xsl:if test="@alias != ''">
+      <xsl:text> </xsl:text>  <xsl:value-of select="@alias"/>
+    </xsl:if>
     <xsl:text> ${rank} I${kind} "integer*${kind}${dim}"</xsl:text>
     <xsl:value-of select="$nl"/>
     <xsl:text>  done</xsl:text>
@@ -162,6 +189,9 @@ do
     <xsl:text>  do</xsl:text>
     <xsl:value-of select="$nl"/>
     <xsl:text>    output </xsl:text> <xsl:value-of select="@name"/>
+    <xsl:if test="@alias != ''">
+      <xsl:text> </xsl:text>  <xsl:value-of select="@alias"/>
+    </xsl:if>
     <xsl:text> ${rank} R${kind} "real*${kind}${dim}"</xsl:text>
     <xsl:value-of select="$nl"/>
     <xsl:text>  done</xsl:text>
@@ -172,6 +202,9 @@ do
     <xsl:text>  do</xsl:text>
     <xsl:value-of select="$nl"/>
     <xsl:text>    output </xsl:text> <xsl:value-of select="@name"/>
+    <xsl:if test="@alias != ''">
+      <xsl:text> </xsl:text>  <xsl:value-of select="@alias"/>
+    </xsl:if>
     <xsl:text> ${rank} C${kind} "complex*${kind}${dim}"</xsl:text>
     <xsl:value-of select="$nl"/>
     <xsl:text>  done</xsl:text>

ompi/mpi/f90/xml/mpi.h.xml

@@ -3683,8 +3683,10 @@
     
     <!-- 
       -  METHOD: int MPI_File_read_ordered_begin(MPI_File, void *, int, MPI_Datatype) C
+      - name shortened to keep character count down
       -->
-    <method name="MPI_File_read_ordered_begin" kind="final" template="yes">
+    <method name="MPI_File_read_ordered_begin" kind="final" template="yes"
+            alias="MPI_File_read_ord_begin">
 
       <!-- ARGUMENT : fh -->
       <arg name="fh" intent="inout">
@@ -4327,8 +4329,10 @@
     
     <!-- 
       -  METHOD: int MPI_File_write_at_all_begin(MPI_File, int64_t, void *, int, MPI_Datatype) C
+      - name shortened to keep character count down
       -->
-    <method name="MPI_File_write_at_all_begin" kind="final" template="yes">
+    <method name="MPI_File_write_at_all_begin" kind="final" template="yes"
+            alias="MPI_File_wr_at_all_begin">
 
       <!-- ARGUMENT : fh -->
       <arg name="fh" intent="inout">