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,6 +57,7 @@ EOF
 # equivalents
 
 start MPI_Wtick small
+if test "$output" = "1"; then
     cat <<EOF
 
 function MPI_Wtick()
@@ -64,9 +65,11 @@ function MPI_Wtick()
 end function MPI_Wtick
 
 EOF
+fi
 end MPI_Wtick
 
 start MPI_Wtime small
+if test "$output" = "1"; then
     cat <<EOF
 
 function MPI_Wtime()
@@ -74,6 +77,7 @@ function MPI_Wtime()
 end function MPI_Wtime
 
 EOF
+fi
 end MPI_Wtime
 
 #------------------------------------------------------------------------

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

@@ -653,6 +653,7 @@ allranks="0 $ranks"
 # equivalents
 
 start MPI_Wtick small
+if test "$output" = "1"; then
     cat <<EOF
 
 function MPI_Wtick()
@@ -660,9 +661,11 @@ function MPI_Wtick()
 end function MPI_Wtick
 
 EOF
+fi
 end MPI_Wtick
 
 start MPI_Wtime small
+if test "$output" = "1"; then
     cat <<EOF
 
 function MPI_Wtime()
@@ -670,6 +673,7 @@ function MPI_Wtime()
 end function MPI_Wtime
 
 EOF
+fi
 end MPI_Wtime
 
 #------------------------------------------------------------------------