|
2329
|
1 SUBROUTINE XERROR(MESSG,NMESSG,NERR,LEVEL) |
|
|
2 C |
|
|
3 C ABSTRACT |
|
|
4 C XERROR PROCESSES A DIAGNOSTIC MESSAGE, IN A MANNER |
|
|
5 C DETERMINED BY THE VALUE OF LEVEL AND THE CURRENT VALUE |
|
|
6 C OF THE LIBRARY ERROR CONTROL FLAG, KONTRL. |
|
|
7 C (SEE SUBROUTINE XSETF FOR DETAILS.) |
|
|
8 C |
|
|
9 C DESCRIPTION OF PARAMETERS |
|
|
10 C --INPUT-- |
|
|
11 C MESSG - THE HOLLERITH MESSAGE TO BE PROCESSED, CONTAINING |
|
|
12 C NO MORE THAN 72 CHARACTERS. |
|
|
13 C NMESSG- THE ACTUAL NUMBER OF CHARACTERS IN MESSG. |
|
|
14 C NERR - THE ERROR NUMBER ASSOCIATED WITH THIS MESSAGE. |
|
|
15 C NERR MUST NOT BE ZERO. |
|
|
16 C LEVEL - ERROR CATEGORY. |
|
|
17 C =2 MEANS THIS IS AN UNCONDITIONALLY FATAL ERROR. |
|
|
18 C =1 MEANS THIS IS A RECOVERABLE ERROR. (I.E., IT IS |
|
|
19 C NON-FATAL IF XSETF HAS BEEN APPROPRIATELY CALLED.) |
|
|
20 C =0 MEANS THIS IS A WARNING MESSAGE ONLY. |
|
|
21 C =-1 MEANS THIS IS A WARNING MESSAGE WHICH IS TO BE |
|
|
22 C PRINTED AT MOST ONCE, REGARDLESS OF HOW MANY |
|
|
23 C TIMES THIS CALL IS EXECUTED. |
|
|
24 C |
|
|
25 C EXAMPLES |
|
|
26 C CALL XERROR(23HSMOOTH -- NUM WAS ZERO.,23,1,2) |
|
|
27 C CALL XERROR(43HINTEG -- LESS THAN FULL ACCURACY ACHIEVED., |
|
|
28 C 43,2,1) |
|
|
29 C CALL XERROR(65HROOTER -- ACTUAL ZERO OF F FOUND BEFORE INTERVAL |
|
|
30 C 1 FULLY COLLAPSED.,65,3,0) |
|
|
31 C CALL XERROR(39HEXP -- UNDERFLOWS BEING SET TO ZERO.,39,1,-1) |
|
|
32 C |
|
|
33 C WRITTEN BY RON JONES, WITH SLATEC COMMON MATH LIBRARY SUBCOMMITTEE |
|
|
34 C LATEST REVISION --- 7 FEB 1979 |
|
|
35 C |
|
|
36 DIMENSION MESSG(NMESSG) |
|
4040
|
37 CALL XERRWD(MESSG,NMESSG,NERR,LEVEL,0,0,0,0,0.,0.) |
|
2329
|
38 RETURN |
|
|
39 END |
