/*
 * rdivide.c
 *
 * Code generation for function 'rdivide'
 *
 * C source code generated on: Wed Aug 26 14:59:33 2015
 *
 */

/* Include files */
#include "rt_nonfinite.h"
#include "Select_Ground_Motions.h"
#include "rdivide.h"
#include "Select_Ground_Motions_emxutil.h"
#include "Select_Ground_Motions_mexutil.h"

/* Variable Definitions */
static emlrtRSInfo qm_emlrtRSI = { 13, "rdivide",
  "/usr/local/MATLAB/R2013a/toolbox/eml/lib/matlab/ops/rdivide.m" };

static emlrtMCInfo ic_emlrtMCI = { 14, 5, "rdivide",
  "/usr/local/MATLAB/R2013a/toolbox/eml/lib/matlab/ops/rdivide.m" };

static emlrtMCInfo jc_emlrtMCI = { 13, 15, "rdivide",
  "/usr/local/MATLAB/R2013a/toolbox/eml/lib/matlab/ops/rdivide.m" };

static emlrtRTEInfo xc_emlrtRTEI = { 1, 14, "rdivide",
  "/usr/local/MATLAB/R2013a/toolbox/eml/lib/matlab/ops/rdivide.m" };

/* Function Definitions */
void rdivide(const emxArray_real_T *x, const emxArray_real_T *y, emxArray_real_T
             *z)
{
  boolean_T p;
  boolean_T b_p;
  int32_T i;
  boolean_T exitg1;
  const mxArray *b_y;
  static const int32_T iv62[2] = { 1, 15 };

  const mxArray *m21;
  char_T cv83[15];
  static const char_T cv84[15] = { 'M', 'A', 'T', 'L', 'A', 'B', ':', 'd', 'i',
    'm', 'a', 'g', 'r', 'e', 'e' };

  int32_T loop_ub;
  p = FALSE;
  b_p = TRUE;
  i = 0;
  exitg1 = FALSE;
  while ((exitg1 == FALSE) && (i < 2)) {
    if (!(x->size[i] == y->size[i])) {
      b_p = FALSE;
      exitg1 = TRUE;
    } else {
      i++;
    }
  }

  if (!b_p) {
  } else {
    p = TRUE;
  }

  if (p) {
  } else {
    emlrtPushRtStackR2012b(&qm_emlrtRSI, emlrtRootTLSGlobal);
    b_y = NULL;
    m21 = mxCreateCharArray(2, iv62);
    for (i = 0; i < 15; i++) {
      cv83[i] = cv84[i];
    }

    emlrtInitCharArrayR2013a(emlrtRootTLSGlobal, 15, m21, cv83);
    emlrtAssign(&b_y, m21);
    error(message(b_y, &ic_emlrtMCI), &jc_emlrtMCI);
    emlrtPopRtStackR2012b(&qm_emlrtRSI, emlrtRootTLSGlobal);
  }

  i = z->size[0] * z->size[1];
  z->size[0] = 1;
  z->size[1] = x->size[1];
  emxEnsureCapacity((emxArray__common *)z, i, (int32_T)sizeof(real_T),
                    &xc_emlrtRTEI);
  loop_ub = x->size[0] * x->size[1];
  for (i = 0; i < loop_ub; i++) {
    z->data[i] = x->data[i] / y->data[i];
  }
}

/* End of code generation (rdivide.c) */