1.1 --- a/ompi/mpi/f90/scripts/mpi-f90-interfaces.h.sh	Thu Jun 22 13:21:18 2006 +0000
     1.2 +++ b/ompi/mpi/f90/scripts/mpi-f90-interfaces.h.sh	Thu Jun 22 13:31:05 2006 +0000
     1.3 @@ -57,23 +57,27 @@
     1.4  # equivalents
     1.5  
     1.6  start MPI_Wtick small
     1.7 -cat <<EOF
     1.8 +if test "$output" = "1"; then
     1.9 +    cat <<EOF
    1.10  
    1.11  function MPI_Wtick()
    1.12      double precision MPI_Wtick
    1.13  end function MPI_Wtick
    1.14  
    1.15  EOF
    1.16 +fi
    1.17  end MPI_Wtick
    1.18  
    1.19  start MPI_Wtime small
    1.20 -cat <<EOF
    1.21 +if test "$output" = "1"; then
    1.22 +    cat <<EOF
    1.23  
    1.24  function MPI_Wtime()
    1.25      double precision MPI_Wtime
    1.26  end function MPI_Wtime
    1.27  
    1.28  EOF
    1.29 +fi
    1.30  end MPI_Wtime
    1.31  
    1.32  #------------------------------------------------------------------------

     2.1 --- a/ompi/mpi/f90/xml/chasm-mpi.i.f90.xsl	Thu Jun 22 13:21:18 2006 +0000
     2.2 +++ b/ompi/mpi/f90/xml/chasm-mpi.i.f90.xsl	Thu Jun 22 13:31:05 2006 +0000
     2.3 @@ -653,23 +653,27 @@
     2.4  # equivalents
     2.5  
     2.6  start MPI_Wtick small
     2.7 -cat <<EOF
     2.8 +if test "$output" = "1"; then
     2.9 +    cat <<EOF
    2.10  
    2.11  function MPI_Wtick()
    2.12      double precision MPI_Wtick
    2.13  end function MPI_Wtick
    2.14  
    2.15  EOF
    2.16 +fi
    2.17  end MPI_Wtick
    2.18  
    2.19  start MPI_Wtime small
    2.20 -cat <<EOF
    2.21 +if test "$output" = "1"; then
    2.22 +    cat <<EOF
    2.23  
    2.24  function MPI_Wtime()
    2.25      double precision MPI_Wtime
    2.26  end function MPI_Wtime
    2.27  
    2.28  EOF
    2.29 +fi
    2.30  end MPI_Wtime
    2.31  
    2.32  #------------------------------------------------------------------------