eesupp/src/gsl_ieee_env.c

4a8ea014e3 Cons*0001 /*
379dd6c9e4 Jean*0002  *
4a8ea014e3 Cons*0003  * A cross-platform way of providing access to gsl_ieee_env_setup
                0004  * from Fortran on any system MITgcm runs on currently.
                0005  */
                0006
                0007 #ifdef USE_GSL_IEEE
                0008 #include <gsl/gsl_math.h>
                0009 #include <gsl/gsl_ieee_utils.h>
                0010
                0011 void fgsl_ieee_env_setup ()
                0012 {
                0013   gsl_ieee_env_setup ();
                0014 }
                0015
                0016 void fgsl_ieee_env_setup_ ()
                0017 {
                0018   gsl_ieee_env_setup ();
                0019 }
                0020
                0021 void fgsl_ieee_env_setup__ ()
                0022 {
                0023   gsl_ieee_env_setup ();
                0024 }
                0025
                0026 void FGSL_IEEE_ENV_SETUP ()
                0027 {
                0028   gsl_ieee_env_setup ();
                0029 }
                0030 #endif