File: diag.c1 /* 2 * diag.c 3 * 4 * Code generation for function 'diag' 5 * 6 */ 7 8 /* Include files */ 9 #include "rt_nonfinite.h" 10 #include "gjbf.h" 11 #include "diag.h" 12 #include "blas.h" 13 14 /* Function Definitions */ 15 void diag(const real_T v_data[], const int32_T v_size[2], real_T d_data[], 16 int32_T d_size[2]) 17 { 18 int32_T j; 19 int32_T i33; 20 d_size[0] = (int8_T)v_size[1]; 21 d_size[1] = (int8_T)v_size[1]; 22 j = (int8_T)v_size[1] * (int8_T)v_size[1]; 23 for (i33 = 0; i33 < j; i33++) { 24 d_data[i33] = 0.0; 25 } 26 27 for (j = 0; j + 1 <= v_size[1]; j++) { 28 d_data[j + d_size[0] * j] = v_data[j]; 29 } 30 } 31 32 /* End of code generation (diag.c) */ 33 |