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
libinterp
corefcn
matherr.c
Go to the documentation of this file.
1
/*
2
3
Copyright (C) 1997-2015 John W. Eaton
4
5
This file is part of Octave.
6
7
Octave is free software; you can redistribute it and/or modify it
8
under the terms of the GNU General Public License as published by the
9
Free Software Foundation; either version 3 of the License, or (at your
10
option) any later version.
11
12
Octave is distributed in the hope that it will be useful, but WITHOUT
13
ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
14
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
15
for more details.
16
17
You should have received a copy of the GNU General Public License
18
along with Octave; see the file COPYING. If not, see
19
<http://www.gnu.org/licenses/>.
20
21
*/
22
23
#ifdef HAVE_CONFIG_H
24
#include <config.h>
25
#endif
26
27
#if defined (EXCEPTION_IN_MATH)
28
29
#include "
lo-math.h
"
30
31
int
32
matherr (
struct
exception *
x
)
33
{
34
/* Possibly print our own message someday. Should probably be
35
user-switchable. */
36
37
switch
(x->type)
38
{
39
case
DOMAIN:
40
case
SING:
41
case
OVERFLOW:
42
case
UNDERFLOW:
43
case
TLOSS:
44
case
PLOSS:
45
default
:
46
break
;
47
}
48
49
/* But don't print the system message. */
50
51
return
1;
52
}
53
#endif
lo-math.h
x
F77_RET_T const double * x
Definition:
__pchip_deriv__.cc:38
Generated on Thu Jun 4 2015 23:30:14 for GNU Octave by
1.8.8