share/odepack/fortran/iumach.f

   1 *DECK IUMACH
   2       INTEGER FUNCTION IUMACH()
   3 C***BEGIN PROLOGUE  IUMACH
   4 C***PURPOSE  Provide standard output unit number.
   5 C***CATEGORY  R1
   6 C***TYPE      INTEGER (IUMACH-I)
   7 C***KEYWORDS  MACHINE CONSTANTS
   8 C***AUTHOR  Hindmarsh, Alan C., (LLNL)
   9 C***DESCRIPTION
  10 C *Usage:
  11 C        INTEGER  LOUT, IUMACH
  12 C        LOUT = IUMACH()
  13 C
  14 C *Function Return Values:
  15 C     LOUT : the standard logical unit for Fortran output.
  16 C
  17 C***REFERENCES  (NONE)
  18 C***ROUTINES CALLED  (NONE)
  19 C***REVISION HISTORY  (YYMMDD)
  20 C   930915  DATE WRITTEN
  21 C   930922  Made user-callable, and other cosmetic changes. (FNF)
  22 C***END PROLOGUE  IUMACH
  23 C
  24 C*Internal Notes:
  25 C  The built-in value of 6 is standard on a wide range of Fortran
  26 C  systems.  This may be machine-dependent.
  27 C**End
  28 C***FIRST EXECUTABLE STATEMENT  IUMACH
  29       IUMACH = 6
  30 C
  31       RETURN
  32 C----------------------- End of Function IUMACH ------------------------
  33       END