share/odepack/fortran/xsetun.f

   1 *DECK XSETUN
   2       SUBROUTINE XSETUN (LUN)
   3 C***BEGIN PROLOGUE  XSETUN
   4 C***PURPOSE  Reset the logical unit number for error messages.
   5 C***CATEGORY  R3B
   6 C***TYPE      ALL (XSETUN-A)
   7 C***KEYWORDS  ERROR CONTROL
   8 C***DESCRIPTION
   9 C
  10 C   XSETUN sets the logical unit number for error messages to LUN.
  11 C
  12 C***AUTHOR  Hindmarsh, Alan C., (LLNL)
  13 C***SEE ALSO  XERRWD, XERRWV
  14 C***REFERENCES  (NONE)
  15 C***ROUTINES CALLED  IXSAV
  16 C***REVISION HISTORY  (YYMMDD)
  17 C   921118  DATE WRITTEN
  18 C   930329  Added SLATEC format prologue. (FNF)
  19 C   930407  Corrected SEE ALSO section. (FNF)
  20 C   930922  Made user-callable, and other cosmetic changes. (FNF)
  21 C***END PROLOGUE  XSETUN
  22 C
  23 C Subroutines called by XSETUN.. None
  24 C Function routine called by XSETUN.. IXSAV
  25 C-----------------------------------------------------------------------
  26 C**End
  27       INTEGER LUN, JUNK, IXSAV
  28 C
  29 C***FIRST EXECUTABLE STATEMENT  XSETUN
  30       IF (LUN .GT. 0) JUNK = IXSAV (1,LUN,.TRUE.)
  31       RETURN
  32 C----------------------- End of Subroutine XSETUN ----------------------
  33       END