2 /******************************************
3 * SCILAB function : ext1c, fin = 1
4 ******************************************/
6 int intsext1c(char *fname)
8 int m1, n1, l1, mn1, m2, n2, l2, mn2, un = 1, mn3, l3;
11 /* checking variable a */
12 GetRhsVar(1, "d", &m1, &n1, &l1);
13 CheckVector(1, m1, n1);
15 /* checking variable b */
16 GetRhsVar(2, "d", &m2, &n2, &l2);
17 CheckVector(2, m2, n2);
19 /* cross variable size checking */
20 CheckDimProp(1, 2, m1 * n1 != m2 * n2);
21 CreateVar(3, "d", (un = 1, &un), (mn3 = mn1, &mn3), &l3); /* named: c */
22 C2F(ext1c)(&mn1, stk(l1), stk(l2), stk(l3));