ompi/mpi/f90/scripts/mpi_wtick_f90.f90.sh

   1 #! /bin/sh
   2
   3 #
   4 # Copyright (c) 2004-2006 The Trustees of Indiana University and Indiana
   5 #                         University Research and Technology
   6 #                         Corporation.  All rights reserved.
   7 # Copyright (c) 2004-2005 The Regents of the University of California.
   8 #                         All rights reserved.
   9 # Copyright (c) 2006      Cisco Systems, Inc.  All rights reserved.
  10 # $COPYRIGHT$
  11 #
  12 # Additional copyrights may follow
  13 #
  14 # $HEADER$
  15 #
  16
  17 # This flie was not generated by XML scripts; it was written by hand.
  18 # It may be generated someday, but at this point, it was simpler to
  19 # just write it by hand.
  20
  21 . "$1/fortran_kinds.sh"
  22
  23 # This entire file is only generated in small or larger modules.  So
  24 # if we're not at least small, bail now.
  25
  26 check_size small
  27 if test "$output" = "0"; then
  28     exit 0
  29 fi
  30
  31 # Ok, we should continue.
  32
  33 cat <<EOF
  34
  35 function MPI_Wtick()
  36   implicit none
  37   double precision :: MPI_Wtick, foo
  38   call MPI_Wtick_f90(foo)
  39   MPI_Wtick = foo
  40 end function MPI_Wtick
  41
  42 EOF
  43