[bb82c03] | 1 | // |
---|
[6e991d6] | 2 | // Cforall Version 1.0.0 Copyright (C) 2016 University of Waterloo |
---|
| 3 | // |
---|
| 4 | // The contents of this file are covered under the licence agreement in the |
---|
| 5 | // file "LICENCE" distributed with Cforall. |
---|
| 6 | // |
---|
[bb82c03] | 7 | // math -- |
---|
| 8 | // |
---|
[6e991d6] | 9 | // Author : Peter A. Buhr |
---|
| 10 | // Created On : Mon Apr 18 23:37:04 2016 |
---|
| 11 | // Last Modified By : Peter A. Buhr |
---|
[a1edafa] | 12 | // Last Modified On : Fri Jul 21 17:03:13 2017 |
---|
| 13 | // Update Count : 101 |
---|
[bb82c03] | 14 | // |
---|
[17e5e2b] | 15 | |
---|
[53a6c2a] | 16 | #pragma once |
---|
[17e5e2b] | 17 | |
---|
[dab7ac7] | 18 | #include <math.h> |
---|
| 19 | #include <complex.h> |
---|
[6e991d6] | 20 | |
---|
[dab7ac7] | 21 | static inline float ?%?( float x, float y ) { return fmodf( x, y ); } |
---|
| 22 | static inline float fmod( float x, float y ) { return fmodf( x, y ); } |
---|
| 23 | static inline double ?%?( double x, double y ) { return fmod( x, y ); } |
---|
[dc5376a] | 24 | // extern "C" { double fmod( double, double ); } |
---|
[dab7ac7] | 25 | static inline long double ?%?( long double x, long double y ) { return fmodl( x, y ); } |
---|
| 26 | static inline long double fmod( long double x, long double y ) { return fmodl( x, y ); } |
---|
[6e991d6] | 27 | |
---|
[dab7ac7] | 28 | static inline float remainder( float x, float y ) { return remainderf( x, y ); } |
---|
[dc5376a] | 29 | // extern "C" { double remainder( double, double ); } |
---|
[dab7ac7] | 30 | static inline long double remainder( long double x, long double y ) { return remainderl( x, y ); } |
---|
| 31 | |
---|
| 32 | static inline float remquo( float x, float y, int * quo ) { return remquof( x, y, quo ); } |
---|
| 33 | // extern "C" { double remquo( double x, double y, int * quo ); } |
---|
| 34 | static inline long double remquo( long double x, long double y, int * quo ) { return remquol( x, y, quo ); } |
---|
| 35 | static inline [ int, float ] remquo( float x, float y ) { int quo; x = remquof( x, y, &quo ); return [ quo, x ]; } |
---|
| 36 | static inline [ int, double ] remquo( double x, double y ) { int quo; x = remquo( x, y, &quo ); return [ quo, x ]; } |
---|
| 37 | static inline [ int, long double ] remquo( long double x, long double y ) { int quo; x = remquol( x, y, &quo ); return [ quo, x ]; } |
---|
| 38 | |
---|
| 39 | // alternative name for remquo |
---|
| 40 | static inline float div( float x, float y, int * quo ) { return remquof( x, y, quo ); } |
---|
| 41 | static inline double div( double x, double y, int * quo ) { return remquo( x, y, quo ); } |
---|
| 42 | static inline long double div( long double x, long double y, int * quo ) { return remquol( x, y, quo ); } |
---|
| 43 | static inline [ int, float ] div( float x, float y ) { int quo; x = remquof( x, y, &quo ); return [ quo, x ]; } |
---|
| 44 | static inline [ int, double ] div( double x, double y ) { int quo; x = remquo( x, y, &quo ); return [ quo, x ]; } |
---|
| 45 | static inline [ int, long double ] div( long double x, long double y ) { int quo; x = remquol( x, y, &quo ); return [ quo, x ]; } |
---|
| 46 | |
---|
| 47 | static inline float fma( float x, float y, float z ) { return fmaf( x, y, z ); } |
---|
[dc5376a] | 48 | // extern "C" { double fma( double, double, double ); } |
---|
[dab7ac7] | 49 | static inline long double fma( long double x, long double y, long double z ) { return fmal( x, y, z ); } |
---|
[6e991d6] | 50 | |
---|
[dab7ac7] | 51 | static inline float fdim( float x, float y ) { return fdimf( x, y ); } |
---|
[dc5376a] | 52 | // extern "C" { double fdim( double, double ); } |
---|
[dab7ac7] | 53 | static inline long double fdim( long double x, long double y ) { return fdiml( x, y ); } |
---|
[6e991d6] | 54 | |
---|
[dab7ac7] | 55 | static inline float nan( const char * tag ) { return nanf( tag ); } |
---|
[dc5376a] | 56 | // extern "C" { double nan( const char * ); } |
---|
[dab7ac7] | 57 | static inline long double nan( const char * tag ) { return nanl( tag ); } |
---|
[6e991d6] | 58 | |
---|
[dc5376a] | 59 | //---------------------- Exponential ---------------------- |
---|
[6e991d6] | 60 | |
---|
[dab7ac7] | 61 | static inline float exp( float x ) { return expf( x ); } |
---|
[dc5376a] | 62 | // extern "C" { double exp( double ); } |
---|
[dab7ac7] | 63 | static inline long double exp( long double x ) { return expl( x ); } |
---|
| 64 | static inline float _Complex exp( float _Complex x ) { return cexpf( x ); } |
---|
| 65 | static inline double _Complex exp( double _Complex x ) { return cexp( x ); } |
---|
| 66 | static inline long double _Complex exp( long double _Complex x ) { return cexpl( x ); } |
---|
[6e991d6] | 67 | |
---|
[dab7ac7] | 68 | static inline float exp2( float x ) { return exp2f( x ); } |
---|
[dc5376a] | 69 | // extern "C" { double exp2( double ); } |
---|
[dab7ac7] | 70 | static inline long double exp2( long double x ) { return exp2l( x ); } |
---|
| 71 | //static inline float _Complex exp2( float _Complex x ) { return cexp2f( x ); } |
---|
| 72 | //static inline double _Complex exp2( double _Complex x ) { return cexp2( x ); } |
---|
| 73 | //static inline long double _Complex exp2( long double _Complex x ) { return cexp2l( x ); } |
---|
[dc5376a] | 74 | |
---|
[dab7ac7] | 75 | static inline float expm1( float x ) { return expm1f( x ); } |
---|
[dc5376a] | 76 | // extern "C" { double expm1( double ); } |
---|
[dab7ac7] | 77 | static inline long double expm1( long double x ) { return expm1l( x ); } |
---|
[dc5376a] | 78 | |
---|
[dab7ac7] | 79 | static inline float pow( float x, float y ) { return powf( x, y ); } |
---|
| 80 | // extern "C" { double pow( double, double ); } |
---|
| 81 | static inline long double pow( long double x, long double y ) { return powl( x, y ); } |
---|
| 82 | static inline float _Complex pow( float _Complex x, float _Complex y ) { return cpowf( x, y ); } |
---|
| 83 | static inline double _Complex pow( double _Complex x, double _Complex y ) { return cpow( x, y ); } |
---|
| 84 | static inline long double _Complex pow( long double _Complex x, long double _Complex y ) { return cpowl( x, y ); } |
---|
| 85 | |
---|
| 86 | //---------------------- Logarithm ---------------------- |
---|
| 87 | |
---|
| 88 | static inline float log( float x ) { return logf( x ); } |
---|
[dc5376a] | 89 | // extern "C" { double log( double ); } |
---|
[dab7ac7] | 90 | static inline long double log( long double x ) { return logl( x ); } |
---|
| 91 | static inline float _Complex log( float _Complex x ) { return clogf( x ); } |
---|
| 92 | static inline double _Complex log( double _Complex x ) { return clog( x ); } |
---|
| 93 | static inline long double _Complex log( long double _Complex x ) { return clogl( x ); } |
---|
[6e991d6] | 94 | |
---|
[dab7ac7] | 95 | static inline float log2( float x ) { return log2f( x ); } |
---|
[dc5376a] | 96 | // extern "C" { double log2( double ); } |
---|
[dab7ac7] | 97 | static inline long double log2( long double x ) { return log2l( x ); } |
---|
| 98 | // static inline float _Complex log2( float _Complex x ) { return clog2f( x ); } |
---|
| 99 | // static inline double _Complex log2( double _Complex x ) { return clog2( x ); } |
---|
| 100 | // static inline long double _Complex log2( long double _Complex x ) { return clog2l( x ); } |
---|
[dc5376a] | 101 | |
---|
[dab7ac7] | 102 | static inline float log10( float x ) { return log10f( x ); } |
---|
[dc5376a] | 103 | // extern "C" { double log10( double ); } |
---|
[dab7ac7] | 104 | static inline long double log10( long double x ) { return log10l( x ); } |
---|
| 105 | // static inline float _Complex log10( float _Complex x ) { return clog10f( x ); } |
---|
| 106 | // static inline double _Complex log10( double _Complex x ) { return clog10( x ); } |
---|
| 107 | // static inline long double _Complex log10( long double _Complex x ) { return clog10l( x ); } |
---|
[dc5376a] | 108 | |
---|
[dab7ac7] | 109 | static inline float log1p( float x ) { return log1pf( x ); } |
---|
[dc5376a] | 110 | // extern "C" { double log1p( double ); } |
---|
[dab7ac7] | 111 | static inline long double log1p( long double x ) { return log1pl( x ); } |
---|
[dc5376a] | 112 | |
---|
[dab7ac7] | 113 | static inline int ilogb( float x ) { return ilogbf( x ); } |
---|
[dc5376a] | 114 | // extern "C" { int ilogb( double ); } |
---|
[dab7ac7] | 115 | static inline int ilogb( long double x ) { return ilogbl( x ); } |
---|
[dc5376a] | 116 | |
---|
[dab7ac7] | 117 | static inline float logb( float x ) { return logbf( x ); } |
---|
[dc5376a] | 118 | // extern "C" { double logb( double ); } |
---|
[dab7ac7] | 119 | static inline long double logb( long double x ) { return logbl( x ); } |
---|
[6e991d6] | 120 | |
---|
[dab7ac7] | 121 | static inline float sqrt( float x ) { return sqrtf( x ); } |
---|
[dc5376a] | 122 | // extern "C" { double sqrt( double ); } |
---|
[dab7ac7] | 123 | static inline long double sqrt( long double x ) { return sqrtl( x ); } |
---|
| 124 | static inline float _Complex sqrt( float _Complex x ) { return csqrtf( x ); } |
---|
| 125 | static inline double _Complex sqrt( double _Complex x ) { return csqrt( x ); } |
---|
| 126 | static inline long double _Complex sqrt( long double _Complex x ) { return csqrtl( x ); } |
---|
[6e991d6] | 127 | |
---|
[dab7ac7] | 128 | static inline float cbrt( float x ) { return cbrtf( x ); } |
---|
[dc5376a] | 129 | // extern "C" { double cbrt( double ); } |
---|
[dab7ac7] | 130 | static inline long double cbrt( long double x ) { return cbrtl( x ); } |
---|
[6e991d6] | 131 | |
---|
[dab7ac7] | 132 | static inline float hypot( float x, float y ) { return hypotf( x, y ); } |
---|
[dc5376a] | 133 | // extern "C" { double hypot( double, double ); } |
---|
[dab7ac7] | 134 | static inline long double hypot( long double x, long double y ) { return hypotl( x, y ); } |
---|
[6e991d6] | 135 | |
---|
[dc5376a] | 136 | //---------------------- Trigonometric ---------------------- |
---|
[6e991d6] | 137 | |
---|
[dab7ac7] | 138 | static inline float sin( float x ) { return sinf( x ); } |
---|
[dc5376a] | 139 | // extern "C" { double sin( double ); } |
---|
[dab7ac7] | 140 | static inline long double sin( long double x ) { return sinl( x ); } |
---|
| 141 | static inline float _Complex sin( float _Complex x ) { return csinf( x ); } |
---|
| 142 | static inline double _Complex sin( double _Complex x ) { return csin( x ); } |
---|
| 143 | static inline long double _Complex sin( long double _Complex x ) { return csinl( x ); } |
---|
[6e991d6] | 144 | |
---|
[dab7ac7] | 145 | static inline float cos( float x ) { return cosf( x ); } |
---|
[dc5376a] | 146 | // extern "C" { double cos( double ); } |
---|
[dab7ac7] | 147 | static inline long double cos( long double x ) { return cosl( x ); } |
---|
| 148 | static inline float _Complex cos( float _Complex x ) { return ccosf( x ); } |
---|
| 149 | static inline double _Complex cos( double _Complex x ) { return ccos( x ); } |
---|
| 150 | static inline long double _Complex cos( long double _Complex x ) { return ccosl( x ); } |
---|
[6e991d6] | 151 | |
---|
[dab7ac7] | 152 | static inline float tan( float x ) { return tanf( x ); } |
---|
[dc5376a] | 153 | // extern "C" { double tan( double ); } |
---|
[dab7ac7] | 154 | static inline long double tan( long double x ) { return tanl( x ); } |
---|
| 155 | static inline float _Complex tan( float _Complex x ) { return ctanf( x ); } |
---|
| 156 | static inline double _Complex tan( double _Complex x ) { return ctan( x ); } |
---|
| 157 | static inline long double _Complex tan( long double _Complex x ) { return ctanl( x ); } |
---|
[6e991d6] | 158 | |
---|
[dab7ac7] | 159 | static inline float asin( float x ) { return asinf( x ); } |
---|
[dc5376a] | 160 | // extern "C" { double asin( double ); } |
---|
[dab7ac7] | 161 | static inline long double asin( long double x ) { return asinl( x ); } |
---|
| 162 | static inline float _Complex asin( float _Complex x ) { return casinf( x ); } |
---|
| 163 | static inline double _Complex asin( double _Complex x ) { return casin( x ); } |
---|
| 164 | static inline long double _Complex asin( long double _Complex x ) { return casinl( x ); } |
---|
[6e991d6] | 165 | |
---|
[dab7ac7] | 166 | static inline float acos( float x ) { return acosf( x ); } |
---|
[dc5376a] | 167 | // extern "C" { double acos( double ); } |
---|
[dab7ac7] | 168 | static inline long double acos( long double x ) { return acosl( x ); } |
---|
| 169 | static inline float _Complex acos( float _Complex x ) { return cacosf( x ); } |
---|
| 170 | static inline double _Complex acos( double _Complex x ) { return cacos( x ); } |
---|
| 171 | static inline long double _Complex acos( long double _Complex x ) { return cacosl( x ); } |
---|
[6e991d6] | 172 | |
---|
[dab7ac7] | 173 | static inline float atan( float x ) { return atanf( x ); } |
---|
[dc5376a] | 174 | // extern "C" { double atan( double ); } |
---|
[dab7ac7] | 175 | static inline long double atan( long double x ) { return atanl( x ); } |
---|
| 176 | static inline float _Complex atan( float _Complex x ) { return catanf( x ); } |
---|
| 177 | static inline double _Complex atan( double _Complex x ) { return catan( x ); } |
---|
| 178 | static inline long double _Complex atan( long double _Complex x ) { return catanl( x ); } |
---|
[6e991d6] | 179 | |
---|
[dab7ac7] | 180 | static inline float atan2( float x, float y ) { return atan2f( x, y ); } |
---|
[8884112] | 181 | // extern "C" { double atan2( double, double ); } |
---|
[dab7ac7] | 182 | static inline long double atan2( long double x, long double y ) { return atan2l( x, y ); } |
---|
[6e991d6] | 183 | |
---|
[dab7ac7] | 184 | // alternative name for atan2 |
---|
| 185 | static inline float atan( float x, float y ) { return atan2f( x, y ); } |
---|
| 186 | static inline double atan( double x, double y ) { return atan2( x, y ); } |
---|
| 187 | static inline long double atan( long double x, long double y ) { return atan2l( x, y ); } |
---|
[6e991d6] | 188 | |
---|
[dc5376a] | 189 | //---------------------- Hyperbolic ---------------------- |
---|
[6e991d6] | 190 | |
---|
[dab7ac7] | 191 | static inline float sinh( float x ) { return sinhf( x ); } |
---|
[dc5376a] | 192 | // extern "C" { double sinh( double ); } |
---|
[dab7ac7] | 193 | static inline long double sinh( long double x ) { return sinhl( x ); } |
---|
| 194 | static inline float _Complex sinh( float _Complex x ) { return csinhf( x ); } |
---|
| 195 | static inline double _Complex sinh( double _Complex x ) { return csinh( x ); } |
---|
| 196 | static inline long double _Complex sinh( long double _Complex x ) { return csinhl( x ); } |
---|
[6e991d6] | 197 | |
---|
[dab7ac7] | 198 | static inline float cosh( float x ) { return coshf( x ); } |
---|
[dc5376a] | 199 | // extern "C" { double cosh( double ); } |
---|
[dab7ac7] | 200 | static inline long double cosh( long double x ) { return coshl( x ); } |
---|
| 201 | static inline float _Complex cosh( float _Complex x ) { return ccoshf( x ); } |
---|
| 202 | static inline double _Complex cosh( double _Complex x ) { return ccosh( x ); } |
---|
| 203 | static inline long double _Complex cosh( long double _Complex x ) { return ccoshl( x ); } |
---|
[6e991d6] | 204 | |
---|
[dab7ac7] | 205 | static inline float tanh( float x ) { return tanhf( x ); } |
---|
[dc5376a] | 206 | // extern "C" { double tanh( double ); } |
---|
[dab7ac7] | 207 | static inline long double tanh( long double x ) { return tanhl( x ); } |
---|
| 208 | static inline float _Complex tanh( float _Complex x ) { return ctanhf( x ); } |
---|
| 209 | static inline double _Complex tanh( double _Complex x ) { return ctanh( x ); } |
---|
| 210 | static inline long double _Complex tanh( long double _Complex x ) { return ctanhl( x ); } |
---|
[6e991d6] | 211 | |
---|
[dab7ac7] | 212 | static inline float asinh( float x ) { return asinhf( x ); } |
---|
[dc5376a] | 213 | // extern "C" { double asinh( double ); } |
---|
[dab7ac7] | 214 | static inline long double asinh( long double x ) { return asinhl( x ); } |
---|
| 215 | static inline float _Complex asinh( float _Complex x ) { return casinhf( x ); } |
---|
| 216 | static inline double _Complex asinh( double _Complex x ) { return casinh( x ); } |
---|
| 217 | static inline long double _Complex asinh( long double _Complex x ) { return casinhl( x ); } |
---|
[dc5376a] | 218 | |
---|
[dab7ac7] | 219 | static inline float acosh( float x ) { return acoshf( x ); } |
---|
[dc5376a] | 220 | // extern "C" { double acosh( double ); } |
---|
[dab7ac7] | 221 | static inline long double acosh( long double x ) { return acoshl( x ); } |
---|
| 222 | static inline float _Complex acosh( float _Complex x ) { return cacoshf( x ); } |
---|
| 223 | static inline double _Complex acosh( double _Complex x ) { return cacosh( x ); } |
---|
| 224 | static inline long double _Complex acosh( long double _Complex x ) { return cacoshl( x ); } |
---|
[dc5376a] | 225 | |
---|
[dab7ac7] | 226 | static inline float atanh( float x ) { return atanhf( x ); } |
---|
[dc5376a] | 227 | // extern "C" { double atanh( double ); } |
---|
[dab7ac7] | 228 | static inline long double atanh( long double x ) { return atanhl( x ); } |
---|
| 229 | static inline float _Complex atanh( float _Complex x ) { return catanhf( x ); } |
---|
| 230 | static inline double _Complex atanh( double _Complex x ) { return catanh( x ); } |
---|
| 231 | static inline long double _Complex atanh( long double _Complex x ) { return catanhl( x ); } |
---|
[dc5376a] | 232 | |
---|
| 233 | //---------------------- Error / Gamma ---------------------- |
---|
| 234 | |
---|
[dab7ac7] | 235 | static inline float erf( float x ) { return erff( x ); } |
---|
[dc5376a] | 236 | // extern "C" { double erf( double ); } |
---|
[dab7ac7] | 237 | static inline long double erf( long double x ) { return erfl( x ); } |
---|
[dc5376a] | 238 | // float _Complex erf( float _Complex ); |
---|
| 239 | // double _Complex erf( double _Complex ); |
---|
| 240 | // long double _Complex erf( long double _Complex ); |
---|
| 241 | |
---|
[dab7ac7] | 242 | static inline float erfc( float x ) { return erfcf( x ); } |
---|
[dc5376a] | 243 | // extern "C" { double erfc( double ); } |
---|
[dab7ac7] | 244 | static inline long double erfc( long double x ) { return erfcl( x ); } |
---|
[dc5376a] | 245 | // float _Complex erfc( float _Complex ); |
---|
| 246 | // double _Complex erfc( double _Complex ); |
---|
| 247 | // long double _Complex erfc( long double _Complex ); |
---|
[6e991d6] | 248 | |
---|
[dab7ac7] | 249 | static inline float lgamma( float x ) { return lgammaf( x ); } |
---|
[dc5376a] | 250 | // extern "C" { double lgamma( double ); } |
---|
[dab7ac7] | 251 | static inline long double lgamma( long double x ) { return lgammal( x ); } |
---|
| 252 | static inline float lgamma( float x, int * sign ) { return lgammaf_r( x, sign ); } |
---|
| 253 | static inline double lgamma( double x, int * sign ) { return lgamma_r( x, sign ); } |
---|
| 254 | static inline long double lgamma( long double x, int * sign ) { return lgammal_r( x, sign ); } |
---|
[dc5376a] | 255 | |
---|
[dab7ac7] | 256 | static inline float tgamma( float x ) { return tgammaf( x ); } |
---|
[dc5376a] | 257 | // extern "C" { double tgamma( double ); } |
---|
[dab7ac7] | 258 | static inline long double tgamma( long double x ) { return tgammal( x ); } |
---|
[6e991d6] | 259 | |
---|
[dc5376a] | 260 | //---------------------- Nearest Integer ---------------------- |
---|
| 261 | |
---|
[dab7ac7] | 262 | static inline float floor( float x ) { return floorf( x ); } |
---|
[dc5376a] | 263 | // extern "C" { double floor( double ); } |
---|
[dab7ac7] | 264 | static inline long double floor( long double x ) { return floorl( x ); } |
---|
[dc5376a] | 265 | |
---|
[dab7ac7] | 266 | static inline float ceil( float x ) { return ceilf( x ); } |
---|
[dc5376a] | 267 | // extern "C" { double ceil( double ); } |
---|
[dab7ac7] | 268 | static inline long double ceil( long double x ) { return ceill( x ); } |
---|
[dc5376a] | 269 | |
---|
[dab7ac7] | 270 | static inline float trunc( float x ) { return truncf( x ); } |
---|
[dc5376a] | 271 | // extern "C" { double trunc( double ); } |
---|
[dab7ac7] | 272 | static inline long double trunc( long double x ) { return truncl( x ); } |
---|
| 273 | |
---|
| 274 | static inline float rint( float x ) { return rintf( x ); } |
---|
| 275 | // extern "C" { double rint( double x ); } |
---|
| 276 | static inline long double rint( long double x ) { return rintl( x ); } |
---|
| 277 | static inline long int rint( float x ) { return lrintf( x ); } |
---|
| 278 | static inline long int rint( double x ) { return lrint( x ); } |
---|
| 279 | static inline long int rint( long double x ) { return lrintl( x ); } |
---|
| 280 | static inline long long int rint( float x ) { return llrintf( x ); } |
---|
| 281 | static inline long long int rint( double x ) { return llrint( x ); } |
---|
| 282 | static inline long long int rint( long double x ) { return llrintl( x ); } |
---|
| 283 | |
---|
| 284 | static inline long int lrint( float x ) { return lrintf( x ); } |
---|
[dc5376a] | 285 | // extern "C" { long int lrint( double ); } |
---|
[dab7ac7] | 286 | static inline long int lrint( long double x ) { return lrintl( x ); } |
---|
| 287 | static inline long long int llrint( float x ) { return llrintf( x ); } |
---|
[dc5376a] | 288 | // extern "C" { long long int llrint( double ); } |
---|
[dab7ac7] | 289 | static inline long long int llrint( long double x ) { return llrintl( x ); } |
---|
[6e991d6] | 290 | |
---|
[dab7ac7] | 291 | static inline float nearbyint( float x ) { return nearbyintf( x ); } |
---|
[dc5376a] | 292 | // extern "C" { double nearbyint( double ); } |
---|
[dab7ac7] | 293 | static inline long double nearbyint( long double x ) { return nearbyintl( x ); } |
---|
| 294 | |
---|
| 295 | static inline float round( float x ) { return roundf( x ); } |
---|
| 296 | // extern "C" { double round( double x ); } |
---|
| 297 | static inline long double round( long double x ) { return roundl( x ); } |
---|
| 298 | static inline long int round( float x ) { return lroundf( x ); } |
---|
| 299 | static inline long int round( double x ) { return lround( x ); } |
---|
| 300 | static inline long int round( long double x ) { return lroundl( x ); } |
---|
| 301 | static inline long long int round( float x ) { return llroundf( x ); } |
---|
| 302 | static inline long long int round( double x ) { return llround( x ); } |
---|
| 303 | static inline long long int round( long double x ) { return llroundl( x ); } |
---|
| 304 | |
---|
| 305 | static inline long int lround( float x ) { return lroundf( x ); } |
---|
[dc5376a] | 306 | // extern "C" { long int lround( double ); } |
---|
[dab7ac7] | 307 | static inline long int lround( long double x ) { return lroundl( x ); } |
---|
| 308 | static inline long long int llround( float x ) { return llroundf( x ); } |
---|
[dc5376a] | 309 | // extern "C" { long long int llround( double ); } |
---|
[dab7ac7] | 310 | static inline long long int llround( long double x ) { return llroundl( x ); } |
---|
[6e991d6] | 311 | |
---|
[dc5376a] | 312 | //---------------------- Manipulation ---------------------- |
---|
[6e991d6] | 313 | |
---|
[dab7ac7] | 314 | static inline float copysign( float x, float y ) { return copysignf( x, y ); } |
---|
[dc5376a] | 315 | // extern "C" { double copysign( double, double ); } |
---|
[dab7ac7] | 316 | static inline long double copysign( long double x, long double y ) { return copysignl( x, y ); } |
---|
[6e991d6] | 317 | |
---|
[dab7ac7] | 318 | static inline float frexp( float x, int * ip ) { return frexpf( x, ip ); } |
---|
[dc5376a] | 319 | // extern "C" { double frexp( double, int * ); } |
---|
[dab7ac7] | 320 | static inline long double frexp( long double x, int * ip ) { return frexpl( x, ip ); } |
---|
[6e991d6] | 321 | |
---|
[dab7ac7] | 322 | static inline float ldexp( float x, int exp2 ) { return ldexpf( x, exp2 ); } |
---|
[dc5376a] | 323 | // extern "C" { double ldexp( double, int ); } |
---|
[dab7ac7] | 324 | static inline long double ldexp( long double x, int exp2 ) { return ldexpl( x, exp2 ); } |
---|
[6e991d6] | 325 | |
---|
[dab7ac7] | 326 | static inline [ float, float ] modf( float x ) { float i; x = modff( x, &i ); return [ i, x ]; } |
---|
| 327 | static inline float modf( float x, float * i ) { return modff( x, i ); } |
---|
| 328 | static inline [ double, double ] modf( double x ) { double i; x = modf( x, &i ); return [ i, x ]; } |
---|
[dc5376a] | 329 | // extern "C" { double modf( double, double * ); } |
---|
[dab7ac7] | 330 | static inline [ long double, long double ] modf( long double x ) { long double i; x = modfl( x, &i ); return [ i, x ]; } |
---|
| 331 | static inline long double modf( long double x, long double * i ) { return modfl( x, i ); } |
---|
[6e991d6] | 332 | |
---|
[dab7ac7] | 333 | static inline float nextafter( float x, float y ) { return nextafterf( x, y ); } |
---|
[dc5376a] | 334 | // extern "C" { double nextafter( double, double ); } |
---|
[dab7ac7] | 335 | static inline long double nextafter( long double x, long double y ) { return nextafterl( x, y ); } |
---|
[6e991d6] | 336 | |
---|
[dab7ac7] | 337 | static inline float nexttoward( float x, long double y ) { return nexttowardf( x, y ); } |
---|
[dc5376a] | 338 | // extern "C" { double nexttoward( double, long double ); } |
---|
[dab7ac7] | 339 | static inline long double nexttoward( long double x, long double y ) { return nexttowardl( x, y ); } |
---|
[6e991d6] | 340 | |
---|
[dab7ac7] | 341 | static inline float scalbn( float x, int exp ) { return scalbnf( x, exp ); } |
---|
[dc5376a] | 342 | // extern "C" { double scalbn( double, int ); } |
---|
[dab7ac7] | 343 | static inline long double scalbn( long double x, int exp ) { return scalbnl( x, exp ); } |
---|
| 344 | static inline float scalbn( float x, long int exp ) { return scalblnf( x, exp ); } |
---|
| 345 | static inline double scalbn( double x, long int exp ) { return scalbln( x, exp ); } |
---|
| 346 | static inline long double scalbn( long double x, long int exp ) { return scalblnl( x, exp ); } |
---|
[6e991d6] | 347 | |
---|
[dab7ac7] | 348 | static inline float scalbln( float x, long int exp ) { return scalblnf( x, exp ); } |
---|
[dc5376a] | 349 | // extern "C" { double scalbln( double, long int ); } |
---|
[dab7ac7] | 350 | static inline long double scalbln( long double x, long int exp ) { return scalblnl( x, exp ); } |
---|
[6e991d6] | 351 | |
---|
| 352 | // Local Variables: // |
---|
| 353 | // mode: c // |
---|
| 354 | // tab-width: 4 // |
---|
| 355 | // End: // |
---|