File: isfinite.c1 /* 2 * isfinite.c 3 * 4 * Code generation for function 'isfinite' 5 * 6 */ 7 8 /* Include files */ 9 #include "rt_nonfinite.h" 10 #include "gjbf.h" 11 #include "isfinite.h" 12 #include "blas.h" 13 14 /* Function Definitions */ 15 void b_isfinite(const real_T x[14112], boolean_T b[14112]) 16 { 17 int32_T i3; 18 for (i3 = 0; i3 < 14112; i3++) { 19 b[i3] = ((!muDoubleScalarIsInf(x[i3])) && (!muDoubleScalarIsNaN(x[i3]))); 20 } 21 } 22 23 boolean_T c_isfinite(real_T x) 24 { 25 return (!muDoubleScalarIsInf(x)) && (!muDoubleScalarIsNaN(x)); 26 } 27 28 void d_isfinite(const real_T x[3], boolean_T b[3]) 29 { 30 int32_T i; 31 for (i = 0; i < 3; i++) { 32 b[i] = ((!muDoubleScalarIsInf(x[i])) && (!muDoubleScalarIsNaN(x[i]))); 33 } 34 } 35 36 void e_isfinite(const real_T x[48], boolean_T b[48]) 37 { 38 int32_T i7; 39 for (i7 = 0; i7 < 48; i7++) { 40 b[i7] = ((!muDoubleScalarIsInf(x[i7])) && (!muDoubleScalarIsNaN(x[i7]))); 41 } 42 } 43 44 void f_isfinite(const real_T x[320], boolean_T b[320]) 45 { 46 int32_T i15; 47 for (i15 = 0; i15 < 320; i15++) { 48 b[i15] = ((!muDoubleScalarIsInf(x[i15])) && (!muDoubleScalarIsNaN(x[i15]))); 49 } 50 } 51 52 void g_isfinite(const emxArray_real_T *x, boolean_T b_data[], int32_T b_size[2]) 53 { 54 int32_T loop_ub; 55 int32_T i19; 56 boolean_T tmp_data[14112]; 57 b_size[0] = x->size[0]; 58 loop_ub = x->size[0] * x->size[1]; 59 for (i19 = 0; i19 < loop_ub; i19++) { 60 b_data[i19] = muDoubleScalarIsInf(x->data[i19]); 61 } 62 63 loop_ub = x->size[0] * x->size[1]; 64 for (i19 = 0; i19 < loop_ub; i19++) { 65 tmp_data[i19] = muDoubleScalarIsNaN(x->data[i19]); 66 } 67 68 b_size[1] = 16; 69 loop_ub = b_size[0] << 4; 70 for (i19 = 0; i19 < loop_ub; i19++) { 71 b_data[i19] = ((!b_data[i19]) && (!tmp_data[i19])); 72 } 73 } 74 75 void h_isfinite(const real_T x_data[], const int32_T x_size[1], boolean_T 76 b_data[], int32_T b_size[1]) 77 { 78 int32_T loop_ub; 79 int32_T i21; 80 boolean_T tmp_data[1764]; 81 b_size[0] = x_size[0]; 82 loop_ub = x_size[0]; 83 for (i21 = 0; i21 < loop_ub; i21++) { 84 b_data[i21] = muDoubleScalarIsInf(x_data[i21]); 85 } 86 87 loop_ub = x_size[0]; 88 for (i21 = 0; i21 < loop_ub; i21++) { 89 tmp_data[i21] = muDoubleScalarIsNaN(x_data[i21]); 90 } 91 92 loop_ub = x_size[0]; 93 for (i21 = 0; i21 < loop_ub; i21++) { 94 b_data[i21] = ((!b_data[i21]) && (!tmp_data[i21])); 95 } 96 } 97 98 /* End of code generation (isfinite.c) */ 99 |