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); } }
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); } }
void check_main_maout(index_t *i1, index_t *i2) { Mcheck_main_maout(i1, i2); }
void check_main_maout(struct idx *i1, struct idx *i2) { Mcheck_main_maout(i1, i2); }