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

@@ -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
 
 #------------------------------------------------------------------------

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
 
 #------------------------------------------------------------------------