From 9a679644c25580be5418ab286ef7f0b74087bbc9 Mon Sep 17 00:00:00 2001
From: Jeff Squyres <jsquyres@cisco.com>
Date: Thu, 22 Jun 2006 13:20:01 +0000
Subject: [PATCH] Arf.  Don't output the body of the WTICK or WTIME functions
 in the module header if we're not doing small.

This commit was SVN r10475.
---
 ompi/mpi/f90/scripts/mpi-f90-interfaces.h.sh | 8 ++++++--
 ompi/mpi/f90/xml/chasm-mpi.i.f90.xsl         | 8 ++++++--
 2 files changed, 12 insertions(+), 4 deletions(-)

diff --git a/ompi/mpi/f90/scripts/mpi-f90-interfaces.h.sh b/ompi/mpi/f90/scripts/mpi-f90-interfaces.h.sh
index b7164344d9..15fb52c9d8 100755
--- a/ompi/mpi/f90/scripts/mpi-f90-interfaces.h.sh
+++ b/ompi/mpi/f90/scripts/mpi-f90-interfaces.h.sh
@@ -57,23 +57,27 @@ EOF
 # equivalents
 
 start MPI_Wtick small
-cat <<EOF
+if test "$output" = "1"; then
+    cat <<EOF
 
 function MPI_Wtick()
     double precision MPI_Wtick
 end function MPI_Wtick
 
 EOF
+fi
 end MPI_Wtick
 
 start MPI_Wtime small
-cat <<EOF
+if test "$output" = "1"; then
+    cat <<EOF
 
 function MPI_Wtime()
     double precision MPI_Wtime
 end function MPI_Wtime
 
 EOF
+fi
 end MPI_Wtime
 
 #------------------------------------------------------------------------
diff --git a/ompi/mpi/f90/xml/chasm-mpi.i.f90.xsl b/ompi/mpi/f90/xml/chasm-mpi.i.f90.xsl
index e6a12168e1..4c5a9e0b22 100644
--- a/ompi/mpi/f90/xml/chasm-mpi.i.f90.xsl
+++ b/ompi/mpi/f90/xml/chasm-mpi.i.f90.xsl
@@ -653,23 +653,27 @@ allranks="0 $ranks"
 # equivalents
 
 start MPI_Wtick small
-cat <<EOF
+if test "$output" = "1"; then
+    cat <<EOF
 
 function MPI_Wtick()
     double precision MPI_Wtick
 end function MPI_Wtick
 
 EOF
+fi
 end MPI_Wtick
 
 start MPI_Wtime small
-cat <<EOF
+if test "$output" = "1"; then
+    cat <<EOF
 
 function MPI_Wtime()
     double precision MPI_Wtime
 end function MPI_Wtime
 
 EOF
+fi
 end MPI_Wtime
 
 #------------------------------------------------------------------------