File: except.c

package info (click to toggle)
emoslib 2%3A4.5.9-11
  • links: PTS, VCS
  • area: main
  • in suites: trixie
  • size: 356,680 kB
  • sloc: fortran: 93,146; ansic: 27,963; sh: 7,598; f90: 5,215; perl: 604; cpp: 305; makefile: 89; python: 53
file content (24 lines) | stat: -rw-r--r-- 651 bytes parent folder | download | duplicates (5)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
/**
 * Copyright 1981-2016 ECMWF.
 *
 * This software is licensed under the terms of the Apache Licence 
 * Version 2.0 which can be obtained at http://www.apache.org/licenses/LICENSE-2.0.
 *
 * In applying this licence, ECMWF does not waive the privileges and immunities 
 * granted to it by virtue of its status as an intergovernmental organisation 
 * nor does it submit to any jurisdiction.
 */

#ifdef ENABLE_FLOATING_POINT_EXCEPTIONS
#define _GNU_SOURCE
#include <fenv.h>
int feenableexcept(int excepts);
#endif

void except_()
{
#ifdef ENABLE_FLOATING_POINT_EXCEPTIONS
    feenableexcept(FE_ALL_EXCEPT & ~FE_INEXACT & ~FE_UNDERFLOW);
#endif
}