File: mod.c

    1   /*
    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