GNU Octave  9.1.0
A high-level interpreted language, primarily intended for numerical computations, mostly compatible with Matlab
xerror.f
Go to the documentation of this file.
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  CHARACTER*(*) MESSG
37  INTEGER NMESSG, NERR, LEVEL
38  CALL xerrwd(messg,nmessg,nerr,level,0,0,0,0,0.0d0,0.0d0)
39  RETURN
40  END
subroutine xerror(MESSG, NMESSG, NERR, LEVEL)
Definition: xerror.f:2
subroutine xerrwd(MSG, NMES, NERR, LEVEL, NI, I1, I2, NR, R1, R2)
Definition: xerrwd.f:4