00001 C-----------------------------------------------------------------------
00002 C Include file for PARSER. This file must be kept with PARSER.FOR.
00003 C It defines some symbolic constants that PARSER and its subsidiary
00004 C routines use.
00005 C.......................................................................
00006 C Define Token types and values
00007 C
00008 INTEGER NT_BEG , NT_STOP , NT_EOS ,
00009 X NT_ADDOP , NT_MULOP , NT_EXPOP ,
00010 X NT_OPEN , NT_CLOSE , NT_COMMA ,
00011 X NT_NUMBER, NT_FUNC , NT_ERROR , NT_SYMBOL
00012 C
00013 REAL*8 VT_PLUS , VT_MINUS , VT_SLASH ,
00014 X VT_STAR , VT_STARS
00015 C
00016 PARAMETER( NT_BEG = 1000 , NT_STOP = 1999 , NT_EOS = 1000 ,
00017 X NT_ADDOP = 1001 , NT_MULOP = 1002 , NT_EXPOP = 1003 ,
00018 X NT_OPEN = 1004 , NT_CLOSE = 1005 , NT_COMMA = 1006 ,
00019 X NT_NUMBER= 1007 , NT_FUNC = 1008 , NT_ERROR = 1999 ,
00020 X NT_SYMBOL= 1009 ,
00021 X
00022 X VT_PLUS = 1.D0 , VT_MINUS = 2.D0 , VT_SLASH = 2.D0 ,
00023 X VT_STAR = 1.D0 , VT_STARS = 1.D0 )
00024 C.......................................................................
00025 C Define the Nonterminals
00026 C
00027 INTEGER NN_BEG , NN_STOP , NN_END ,
00028 X NN_E4 , NN_E6 , NN_E8 ,
00029 X NN_E9 , NN_ARGTL
00030 C
00031 PARAMETER ( NN_BEG = 2000 , NN_STOP = 2999 , NN_END = 2000 ,
00032 X NN_E4 = 2001 , NN_E6 = 2002 , NN_E8 = 2003 ,
00033 X NN_E9 = 2004 , NN_ARGTL = 2005 )
00034 C.......................................................................
00035 C Define the Opcodes
00036 C
00037 INTEGER NC_BEG , NC_STOP , NC_ADD ,
00038 X NC_SUB , NC_MUL , NC_DIV ,
00039 X NC_POWER , NC_MINUS , NC_FUNC
00040 C
00041 PARAMETER ( NC_BEG = 3000 , NC_STOP = 4999 , NC_ADD = 3001 ,
00042 X NC_SUB = 3002 , NC_MUL = 3003 , NC_DIV = 3004 ,
00043 X NC_POWER = 3005 , NC_MINUS = 3006 , NC_FUNC = 4000 )
00044 C.......................................................................
00045 C Define Function names, etc.
00046 C
00047 INTEGER NUM_FUNC
00048 PARAMETER ( NUM_FUNC = 99 )
00049 C
00050 CHARACTER*32 C_FUNCNAME(NUM_FUNC+1)
00051 INTEGER N_FUNCARGS(NUM_FUNC)
00052 C
00053 DATA C_FUNCNAME /
00054 X 'SIN' , 'COS' , 'TAN' , 'ASIN' , 'ACOS' , 'ATAN' , 'ATAN2',
00055 X 'SINH' , 'COSH' , 'TANH' , 'ASINH' , 'ACOSH' , 'ATANH' , 'EXP' ,
00056 X 'LOG' , 'LOG10', 'ABS' , 'INT' , 'SQRT' , 'MAX' , 'MIN' ,
00057 X 'AI' , 'DAI' , 'I0' , 'I1' , 'J0' , 'J1' , 'K0' ,
00058 X 'K1' , 'Y0' , 'Y1' , 'BI' , 'DBI' , 'ERF' , 'ERFC' ,
00059 X 'GAMMA', 'QG' , 'QGINV', 'BELL2' , 'RECT' , 'STEP' , 'BOOL' ,
00060 X 'AND' , 'OR' , 'MOFN' , 'ASTEP' , 'SIND' , 'COSD' , 'TAND' ,
00061 X 'MEDIAN',
00062 X 'FICO_T2P' , 'FICO_P2T' , 'FICO_T2Z' ,
00063 X 'FITT_T2P' , 'FITT_P2T' , 'FITT_T2Z' ,
00064 X 'FIFT_T2P' , 'FIFT_P2T' , 'FIFT_T2Z' ,
00065 X 'FIZT_T2P' , 'FIZT_P2T' , 'FIZT_T2Z' ,
00066 X 'FICT_T2P' , 'FICT_P2T' , 'FICT_T2Z' ,
00067 X 'FIBT_T2P' , 'FIBT_P2T' , 'FIBT_T2Z' ,
00068 X 'FIBN_T2P' , 'FIBN_P2T' , 'FIBN_T2Z' ,
00069 X 'FIGT_T2P' , 'FIGT_P2T' , 'FIGT_T2Z' ,
00070 X 'FIPT_T2P' , 'FIPT_P2T' , 'FIPT_T2Z' ,
00071 X
00072 X 'ZTONE' , 'LMODE' , 'HMODE' ,
00073 X 'GRAN' , 'URAN' , 'IRAN' , 'ERAN' , 'LRAN' ,
00074 X
00075 X 'ORSTAT', 'TENT' , 'MAD' ,
00076 X 'ARGMAX', 'ARGNUM',
00077 X
00078 X 'NOTZERO' , 'ISZERO' , 'EQUALS' , 'ISPOSITIVE' , 'ISNEGATIVE' ,
00079 X
00080 X 'MEAN' , 'STDEV' , 'SEM' , 'PLEG' ,
00081 X
00082 X 'DUMMY' /
00083 C
00084 DATA N_FUNCARGS / 6*1, 2, 12*1, 2*2, 21*1, 3*-1, 2, 3*1, -1,
00085 X 3*4, 3*2, 3*3, 3*1, 3*2, 3*3, 3*3, 3*3, 3*2 ,
00086 X 1 , -1,-1 , 2 , 1 , 1 , 1 , 1 , -1 ,1 , -1 ,
00087 X -1,-1 , 1,1,2,1,1 , -1,-1,-1 , 2 /
00088 C-----------------------------------------------------------------------
