/* * A cross-platform way of providing access to gsl_ieee_env_setup * from Fortran on any system MITgcm runs on currently. */ #ifdef USE_GSL_IEEE #include #include void fgsl_ieee_env_setup () { gsl_ieee_env_setup (); } void fgsl_ieee_env_setup_ () { gsl_ieee_env_setup (); } void fgsl_ieee_env_setup__ () { gsl_ieee_env_setup (); } void FGSL_IEEE_ENV_SETUP () { gsl_ieee_env_setup (); } #endif