File: log10.c1 /* 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 |