wrfv2_fire/share/setfeenv.c

   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
  16 void 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 }