GNU Octave  3.8.0
A high-level interpreted language, primarily intended for numerical computations, mostly compatible with Matlab
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Properties Friends Macros Pages
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  dimension messg(nmessg)
37  CALL xerrwd(messg,nmessg,nerr,level,0,0,0,0,0.,0.)
38  RETURN
39  END