source: lmdz_wrf/trunk/WRFV3/share/setfeenv.c @ 1531

Last change on this file since 1531 was 1, checked in by lfita, 10 years ago
  • -- --- Opening of the WRF+LMDZ coupling repository --- -- -

WRF: version v3.3
LMDZ: version v1818

More details in:

File size: 547 bytes
Line 
1#ifndef CRAY
2# ifdef NOUNDERSCORE
3#      define SETFEENV setfeenv
4# else
5#   ifdef F2CSTYLE
6#      define SETFEENV setfeenv__
7#   else
8#      define SETFEENV setfeenv_
9#   endif
10# endif
11#endif
12
13#include <fenv.h>
14#include <stdio.h>
15
16void SETFEENV()
17{
18  fenv_t envp;
19  int stat;
20#ifdef _OPENMP
21
22  stat = fegetenv(&envp);
23/*
24  if (fesetenv(&envp) != 0) {
25     perror("Error getting fp env");
26  }
27*/
28
29#pragma omp parallel shared(envp)
30{
31  stat = fesetenv(&envp);
32/*
33  if (fesetenv(&envp) != 0) {
34     perror("Error setting fp env");
35  }
36*/
37}
38#endif
39}
Note: See TracBrowser for help on using the repository browser.