gpamela/gpgar/xalgdata.inc

*
* $Id$
*
* $Log$
*
*
* xalgdata.inc
*
*CMZ :  3.00/00 02/05/2001  20.42.25  by  Unknown
*-- Author :
*-----------------------------------------------------------------------
*   ALGDAT - Common block containing the executable statements for the
*            evaluation of symbolic expressions.
*   VARIABLES : INS(I, . ) : List of instructions, the first element is
*                            a register address (in case of a normal
*                            operation) or a function descriptor, the
*                            second is the operator, the third an addres
*                            and the fourth the address of the result.
*               NINS       : Number of instructions in INS.
*               REG(I)     : Contents of register I, REG(0)=0, REG(-1)=1
*                            and REG(-2)=2, REG(-3)=pi.
*               NREG       : Number of registers in use.
*               EXEC(I)    : .TRUE. if instruction I is to be executed.
*               NERR       : Number of errors since last call to ALGPRE.
*               NAERR      : Individual error counts.
*               NRES       : Number of independent results.
*               ALGENT(I,.): Instruction list entry refernce table.
*                            1: reference no, 2: in use 0/1, 3: can be
*                            executed 0/1, 4: sequential 0/1, 5: first
*                            instruction, 6: no of instructions, 7: no
*                            of variables, 8: first constant, 9: no of
*                            constants, 10: no of results.
*               ARGREF(I,1): Modification flag for arguments,
*                            0: modifiable global variable,
*                            1: modifiable non-global variable,
*                            2: non-modifiable global variable,
*                            3: non-modifiable non-global variable.
*               ARGREF(I,2): Origin of each argument.
*               NALGE      : Number of entries in use in ALGENT.
*               ISYNCH     : 0: no check, 1: algebra, 2: procedure
*               LIGUND     : Ignore exponential underflow
*   (Last changed on  3/ 6/97.)
*-----------------------------------------------------------------------
1	cafagna	3.1	*
2			* $Id$
3			*
4			* $Log$
5			*
6			*
7			* xalgdata.inc
8			*
9			*CMZ : 3.00/00 02/05/2001 20.42.25 by Unknown
10			*-- Author :
11			*-----------------------------------------------------------------------
12			* ALGDAT - Common block containing the executable statements for the
13			* evaluation of symbolic expressions.
14			* VARIABLES : INS(I, . ) : List of instructions, the first element is
15			* a register address (in case of a normal
16			* operation) or a function descriptor, the
17			* second is the operator, the third an addres
18			* and the fourth the address of the result.
19			* NINS : Number of instructions in INS.
20			* REG(I) : Contents of register I, REG(0)=0, REG(-1)=1
21			* and REG(-2)=2, REG(-3)=pi.
22			* NREG : Number of registers in use.
23			* EXEC(I) : .TRUE. if instruction I is to be executed.
24			* NERR : Number of errors since last call to ALGPRE.
25			* NAERR : Individual error counts.
26			* NRES : Number of independent results.
27			* ALGENT(I,.): Instruction list entry refernce table.
28			* 1: reference no, 2: in use 0/1, 3: can be
29			* executed 0/1, 4: sequential 0/1, 5: first
30			* instruction, 6: no of instructions, 7: no
31			* of variables, 8: first constant, 9: no of
32			* constants, 10: no of results.
33			* ARGREF(I,1): Modification flag for arguments,
34			* 0: modifiable global variable,
35			* 1: modifiable non-global variable,
36			* 2: non-modifiable global variable,
37			* 3: non-modifiable non-global variable.
38			* ARGREF(I,2): Origin of each argument.
39			* NALGE : Number of entries in use in ALGENT.
40			* ISYNCH : 0: no check, 1: algebra, 2: procedure
41			* LIGUND : Ignore exponential underflow
42			* (Last changed on 3/ 6/97.)
43			*-----------------------------------------------------------------------