File: log10.c

    1   /*
    2    * log10.c
    3    *
    4    * Code generation for function 'log10'
    5    *
    6    */
    7   
    8   /* Include files */
    9   #include "rt_nonfinite.h"
   10   #include "gjbf.h"
   11   #include "log10.h"
   12   #include "error1.h"
   13   #include "blas.h"
   14   
   15   /* Variable Definitions */
   16   static emlrtRSInfo md_emlrtRSI = { 13, "log10",
   17     "C:\\Program Files\\MATLAB\\R2016a\\toolbox\\eml\\lib\\matlab\\elfun\\log10.m"
   18   };
   19   
   20   /* Function Definitions */
   21   void b_log10(const emlrtStack *sp, real_T x[16])
   22   {
   23     boolean_T p;
   24     int32_T k;
   25     emlrtStack st;
   26     st.prev = sp;
   27     st.tls = sp->tls;
   28     p = false;
   29     for (k = 0; k < 16; k++) {
   30       if (p || (x[k] < 0.0)) {
   31         p = true;
   32       } else {
   33         p = false;
   34       }
   35     }
   36   
   37     if (p) {
   38       st.site = &md_emlrtRSI;
   39       y_error(&st);
   40     }
   41   
   42     for (k = 0; k < 16; k++) {
   43       x[k] = muDoubleScalarLog10(x[k]);
   44     }
   45   }
   46   
   47   /* End of code generation (log10.c) */
   48