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	*
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	*-----------------------------------------------------------------------