Initial revision
[scilab.git] / scilab_doc / intersci / myex.c
1 #include "stack-c.h"
2 /******************************************
3  * SCILAB function : calc, fin = 1
4  ******************************************/
5
6 int intscalc(fname)
7    char *fname;
8 {
9  int m1,n1,l1,un=1,l2;
10  CheckRhs(1,1);
11  CheckLhs(1,1);
12  /*  checking variable str */
13  GetRhsVar(1,"c",&m1,&n1,&l1);
14  /* cross variable size checking */
15  CreateVar(2,"i",&un,&un,&l2);/* named: a */
16  C2F(fcalc)(cstk(l1),istk(l2),&m1);
17  LhsVar(1)= 2;
18  return 0;
19 }
20 /******************************************
21  * SCILAB function : som, fin = 2
22  ******************************************/
23
24 int intssom(fname)
25    char *fname;
26 {
27  int m1,n1,l1,mn1,m2,n2,l2,mn2,un=1,mn3,l3;
28  CheckRhs(2,2);
29  CheckLhs(1,1);
30  /*  checking variable a */
31  GetRhsVar(1,"d",&m1,&n1,&l1);
32  CheckRow(1,m1,n1);
33  mn1=m1*n1;
34  /*  checking variable b */
35  GetRhsVar(2,"d",&m2,&n2,&l2);
36  CheckRow(2,m2,n2);
37  mn2=m2*n2;
38  /* cross variable size checking */
39  CheckDimProp(1,2,n1 != n2);
40  CreateVar(3,"d",(mn3=n1,&mn3),(un=1,&un),&l3);/* named: c */
41  C2F(csom)(&n1,stk(l1),stk(l2),stk(l3));
42  LhsVar(1)= 3;
43  return 0;
44 }