00001 *DECK XSETF 00002 SUBROUTINE XSETF (KONTRL) 00003 C***BEGIN PROLOGUE XSETF 00004 C***PURPOSE Set the error control flag. 00005 C***LIBRARY SLATEC (XERROR) 00006 C***CATEGORY R3A 00007 C***TYPE ALL (XSETF-A) 00008 C***KEYWORDS ERROR, XERROR 00009 C***AUTHOR Jones, R. E., (SNLA) 00010 C***DESCRIPTION 00011 C 00012 C Abstract 00013 C XSETF sets the error control flag value to KONTRL. 00014 C (KONTRL is an input parameter only.) 00015 C The following table shows how each message is treated, 00016 C depending on the values of KONTRL and LEVEL. (See XERMSG 00017 C for description of LEVEL.) 00018 C 00019 C If KONTRL is zero or negative, no information other than the 00020 C message itself (including numeric values, if any) will be 00021 C printed. If KONTRL is positive, introductory messages, 00022 C trace-backs, etc., will be printed in addition to the message. 00023 C 00024 C ABS(KONTRL) 00025 C LEVEL 0 1 2 00026 C value 00027 C 2 fatal fatal fatal 00028 C 00029 C 1 not printed printed fatal 00030 C 00031 C 0 not printed printed printed 00032 C 00033 C -1 not printed printed printed 00034 C only only 00035 C once once 00036 C 00037 C***REFERENCES R. E. Jones and D. K. Kahaner, XERROR, the SLATEC 00038 C Error-handling Package, SAND82-0800, Sandia 00039 C Laboratories, 1982. 00040 C***ROUTINES CALLED J4SAVE, XERMSG 00041 C***REVISION HISTORY (YYMMDD) 00042 C 790801 DATE WRITTEN 00043 C 890531 Changed all specific intrinsics to generic. (WRB) 00044 C 890531 REVISION DATE from Version 3.2 00045 C 891214 Prologue converted to Version 4.0 format. (BAB) 00046 C 900510 Change call to XERRWV to XERMSG. (RWC) 00047 C 920501 Reformatted the REFERENCES section. (WRB) 00048 C***END PROLOGUE XSETF 00049 CHARACTER *8 XERN1 00050 C***FIRST EXECUTABLE STATEMENT XSETF 00051 IF (ABS(KONTRL) .GT. 2) THEN 00052 WRITE (XERN1, '(I8)') KONTRL 00053 CALL XERMSG ('SLATEC', 'XSETF', 00054 * 'INVALID ARGUMENT = ' // XERN1, 1, 2) 00055 RETURN 00056 ENDIF 00057 C 00058 JUNK = J4SAVE(2,KONTRL,.TRUE.) 00059 RETURN 00060 END
1.7.1
