1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
//===================================================
// Allan CORNET - INRIA - 2008
// dummy test
//===================================================
#include <math.h>
#include "stack-c.h"
//===================================================
int interf_template_A0(char *fname)
{
int n1=1,m1=1,l1=0;
int iValue = 0;
CheckRhs(0,0);
CheckLhs(1,1);
CreateVar(1, "i", &m1, &n1 ,&l1);
*istk(l1)= iValue;
LhsVar(1) = Rhs + 1;
return 0;
}
//===================================================
int interf_template_B0(char *fname)
{
int n1=1,m1=1,l1=0;
int iValue = 0;
CheckRhs(0,0);
CheckLhs(1,1);
CreateVar(1, "i", &m1, &n1 ,&l1);
*istk(l1)= iValue;
LhsVar(1) = Rhs + 1;
return 0;
}
//===================================================
|
