GNU Octave
4.0.0
A high-level interpreted language, primarily intended for numerical computations, mostly compatible with Matlab
Main Page
Namespaces
Classes
Files
File List
File Members
All
Classes
Namespaces
Files
Functions
Variables
Typedefs
Enumerations
Enumerator
Properties
Friends
Macros
Pages
liboctave
cruft
quadpack
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
xerror
subroutine xerror(MESSG, NMESSG, NERR, LEVEL)
Definition:
xerror.f:1
workspace_element::dimension
std::string dimension(void) const
Definition:
workspace-element.h:74
xerrwd
subroutine xerrwd(MSG, NMES, NERR, LEVEL, NI, I1, I2, NR, R1, R2)
Definition:
xerrwd.f:3
Generated on Thu Jun 4 2015 23:30:24 for GNU Octave by
1.8.8