File: mod.c1 /* 2 * mod.c 3 * 4 * Code generation for function 'mod' 5 * 6 */ 7 8 /* Include files */ 9 #include "rt_nonfinite.h" 10 #include "gjbf.h" 11 #include "mod.h" 12 #include "blas.h" 13 14 /* Function Definitions */ 15 real_T b_mod(real_T x, real_T y) 16 { 17 real_T r; 18 if (y == 0.0) { 19 r = x; 20 } else if (y == muDoubleScalarFloor(y)) { 21 r = x - muDoubleScalarFloor(x / y) * y; 22 } else { 23 r = x / y; 24 if (muDoubleScalarAbs(r - muDoubleScalarRound(r)) <= 2.2204460492503131E-16 * 25 muDoubleScalarAbs(r)) { 26 r = 0.0; 27 } else { 28 r = (r - muDoubleScalarFloor(r)) * y; 29 } 30 } 31 32 return r; 33 } 34 35 /* End of code generation (mod.c) */ 36 |