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);
15 /* checking variable b */
16 GetRhsVar(2,"d",&m2,&n2,&l2);
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));