share/odepack/fortran/xsetf.f

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