Exemplo n.º 1
0
void check_main_maout_any(index_t *i1, index_t *i2)
{
    if (idx_emptyp(i2))
    {
        if (i1->ndim != i2->ndim)
            lush_error(rterr_not_same_dim);
        Mcheck_main_maout(i1, i2);
    }
    else
    {
        size_t n1=1, n2=1;
        for (int i=0; i<i1->ndim; i++)
            n1 *= i1->dim[i];
        for (int i=0; i<i2->ndim; i++)
            n2 *= i2->dim[i];
        if (n1 != n2)
            lush_error(rterr_not_same_dim);
    }
}
Exemplo n.º 2
0
void 
check_main_maout_any(struct idx *i1, struct idx *i2)
{
  if (i2->flags & IDF_UNSIZED)
    {
      if (i1->ndim != i2->ndim)
        run_time_error(rterr_not_same_dim);
      Mcheck_main_maout(i1, i2);
    }
  else
    {
      int i, n1=1, n2=1;
      for (i=0; i<i1->ndim; i++)
        n1 *= i1->dim[i];
      for (i=0; i<i2->ndim; i++)
        n2 *= i2->dim[i];
      if (n1 != n2)
        run_time_error(rterr_not_same_dim);
    }
}
Exemplo n.º 3
0
void check_main_maout(index_t *i1, index_t *i2)
{
    Mcheck_main_maout(i1, i2);
}
Exemplo n.º 4
0
void 
check_main_maout(struct idx *i1, struct idx *i2)
{
  Mcheck_main_maout(i1, i2);
}