File: sqrt.c1 /* 2 * sqrt.c 3 * 4 * Code generation for function 'sqrt' 5 * 6 */ 7 8 /* Include files */ 9 #include "rt_nonfinite.h" 10 #include "gjbf.h" 11 #include "sqrt.h" 12 #include "error1.h" 13 #include "gjbf_data.h" 14 #include "blas.h" 15 16 /* Function Definitions */ 17 void b_sqrt(const emlrtStack *sp, real_T x[16]) 18 { 19 boolean_T p; 20 int32_T k; 21 emlrtStack st; 22 st.prev = sp; 23 st.tls = sp->tls; 24 p = false; 25 for (k = 0; k < 16; k++) { 26 if (p || (x[k] < 0.0)) { 27 p = true; 28 } else { 29 p = false; 30 } 31 } 32 33 if (p) { 34 st.site = &ac_emlrtRSI; 35 w_error(&st); 36 } 37 38 for (k = 0; k < 16; k++) { 39 x[k] = muDoubleScalarSqrt(x[k]); 40 } 41 } 42 43 /* End of code generation (sqrt.c) */ 44 |