File: sqrt.c

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