File: diag.c

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