/* Copyright 1994-2003 The MathWorks, Inc.
 *
 * File: rt_matmultrr_sgl.c     $Revision: 1.3.4.2 $
 *
 * Abstract:
 *      Real-Time Workshop support routine for matrix multiplication.
 *      Complex multiplied by real, single precision float operands
 *
 */

#include "rtlibsrc.h"

/*
 * Function: rt_MatMultCR_Sgl
 * Abstract:
 *      2-input matrix multiply function
 *      Input 1: Complex, single-precision
 *      Input 2: Real, single-precision
 */
#ifdef CREAL_T
void rt_MatMultCR_Sgl(creal32_T       *y,
                      const creal32_T *A,
                      const real32_T  *B,
                      const int       dims[3])
{
  int k;
  for(k=dims[2]; k-- > 0; ) {
    const creal32_T *A1 = A;
    int i;
    for(i=dims[0]; i-- > 0; ) {
      const creal32_T *A2 = A1++;
      const real32_T *B1 = B;
      creal32_T acc;
      int j;
      acc.re = (real32_T)0.0;
      acc.im = (real32_T)0.0;
      for(j=dims[1]; j-- > 0; ) {
        acc.re += A2->re * *B1;
        acc.im += A2->im * *B1++;
        A2 += dims[0];
      }
      *y++ = acc;
    }
    B += dims[1];
  }
}
#endif
/* [EOF] rt_matmultcr_sgl.c */