From d499ffdbc9ce118902d0ad9a7a21d301f9575b4b Mon Sep 17 00:00:00 2001
From: Craig E Rasmussen <rasmus@cas.uoregon.edu>
Date: Tue, 14 Dec 2004 05:41:42 +0000
Subject: [PATCH] Removed optional from ierr declaration.  This was needed to
 get the string length parameter to come out correctly (for C interfaces with
 char*).

This commit was SVN r3804.
---
 src/mpi/f90/xml/chasm-mpi-test.f90.xsl | 2 +-
 src/mpi/f90/xml/chasm-mpi.f90.xsl      | 4 ++--
 src/mpi/f90/xml/chasm-mpi.i.f90.xsl    | 4 ++--
 3 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/mpi/f90/xml/chasm-mpi-test.f90.xsl b/src/mpi/f90/xml/chasm-mpi-test.f90.xsl
index 2342e4ff36..e51cff53d7 100644
--- a/src/mpi/f90/xml/chasm-mpi-test.f90.xsl
+++ b/src/mpi/f90/xml/chasm-mpi-test.f90.xsl
@@ -119,7 +119,7 @@ do
 
     <xsl:for-each select="return[1]">
       <xsl:if test="@name = 'ierr'">
-       <xsl:text>    echo "  integer, intent(out), optional :: ierr"</xsl:text>
+       <xsl:text>    echo "  integer, intent(out) :: ierr"</xsl:text>
       </xsl:if>
     </xsl:for-each>
 
diff --git a/src/mpi/f90/xml/chasm-mpi.f90.xsl b/src/mpi/f90/xml/chasm-mpi.f90.xsl
index b9ed0228d2..4c8e8c83e9 100644
--- a/src/mpi/f90/xml/chasm-mpi.f90.xsl
+++ b/src/mpi/f90/xml/chasm-mpi.f90.xsl
@@ -122,7 +122,7 @@
 
     <xsl:for-each select="return[1]">
       <xsl:if test="@name = 'ierr'">
-       <xsl:text>echo "  integer, intent(out), optional :: ierr"</xsl:text>
+       <xsl:text>echo "  integer, intent(out) :: ierr"</xsl:text>
       </xsl:if>
     </xsl:for-each>
 
@@ -169,7 +169,7 @@ do
 
     <xsl:for-each select="return[1]">
       <xsl:if test="@name = 'ierr'">
-       <xsl:text>    echo "  integer, intent(out), optional :: ierr"</xsl:text>
+       <xsl:text>    echo "  integer, intent(out) :: ierr"</xsl:text>
       </xsl:if>
     </xsl:for-each>
     <xsl:value-of select="$nl"/>
diff --git a/src/mpi/f90/xml/chasm-mpi.i.f90.xsl b/src/mpi/f90/xml/chasm-mpi.i.f90.xsl
index 98c9d5cf6c..fb0452259a 100644
--- a/src/mpi/f90/xml/chasm-mpi.i.f90.xsl
+++ b/src/mpi/f90/xml/chasm-mpi.i.f90.xsl
@@ -134,7 +134,7 @@
 
     <xsl:for-each select="return[1]">
       <xsl:if test="@name = 'ierr'">
-       <xsl:text>echo "  integer, intent(out), optional :: ierr"</xsl:text>
+       <xsl:text>echo "  integer, intent(out) :: ierr"</xsl:text>
       </xsl:if>
     </xsl:for-each>
 
@@ -181,7 +181,7 @@ do
 
     <xsl:for-each select="return[1]">
       <xsl:if test="@name = 'ierr'">
-       <xsl:text>    echo "  integer, intent(out), optional :: ierr"</xsl:text>
+       <xsl:text>    echo "  integer, intent(out) :: ierr"</xsl:text>
       </xsl:if>
     </xsl:for-each>