Warning, /include/dzdoc/bktgparq.inc is written in an unsupported language. File is not indexed.
0001 *
0002 * $Id$
0003 *
0004 * $Log$
0005 * Revision 1.1 1996/03/04 16:12:57 mclareni
0006 * Initial revision
0007 *
0008 *
0009 #ifndef CERNLIB_DZDOC_BKTGPARQ_INC
0010 #define CERNLIB_DZDOC_BKTGPARQ_INC
0011 *
0012 * Description of the bank tag parameters bank parser
0013 *
0014 * bktgparq.inc
0015 *
0016
0017
0018 C-- Description of the action flags
0019
0020 C- Code for NO entry
0021 PARAMETER (IBKANQ = -1)
0022 C- Code for YES entry
0023 PARAMETER (IBKAYQ = -2)
0024 C- Flag for numeric tag field
0025 PARAMETER (IBKAMQ = -3)
0026 C- Flag for special decoding(CHOICE tag)
0027 PARAMETER (IBKASQ = -9)
0028
0029 C-- Description of the action fields
0030
0031 C- Offset of state information
0032 PARAMETER (MBKASQ = 1)
0033 C- Offset of tag flag (1,2 words , numeric)
0034 PARAMETER (MBKAGQ = MBKASQ+1)
0035 C- Offset of repetition flag
0036 PARAMETER (MBKARQ = MBKAGQ+1)
0037 C- Offset of choice flag
0038 PARAMETER (MBKAHQ = MBKARQ+1)
0039 C- Number of action fields
0040 PARAMETER (NBKACQ = MBKAHQ)
0041
0042 C---- Identifiers of various card tags
0043
0044 C-- AUthor
0045 PARAMETER (ITGAUQ = 1)
0046 C-- BIt (status)
0047 PARAMETER (ITGBIQ = ITGAUQ+1)
0048 C-- CHoice section
0049 PARAMETER (ITGCHQ = ITGBIQ+1)
0050 C-- DAta section
0051 PARAMETER (ITGDAQ = ITGCHQ+1)
0052 C-- Division
0053 PARAMETER (ITGDVQ = ITGDAQ+1)
0054 C-- LInk section
0055 PARAMETER (ITGLIQ = ITGDVQ+1)
0056 C-- RLink section
0057 PARAMETER (ITGRLQ = ITGLIQ+1)
0058 C-- Number of data words (ND)
0059 PARAMETER (ITGNDQ = ITGRLQ+1)
0060 C-- Total Number of Links (NL)
0061 PARAMETER (ITGNLQ = ITGNDQ+1)
0062 C-- Number of Structural links (NS)
0063 PARAMETER (ITGNSQ = ITGNLQ+1)
0064 C-- NeXt link
0065 PARAMETER (ITGNXQ = ITGNSQ+1)
0066 C-- ORigin link
0067 PARAMETER (ITGORQ = ITGNXQ+1)
0068 C-- REpetition section
0069 PARAMETER (ITGREQ = ITGORQ+1)
0070 C-- STore
0071 PARAMETER (ITGSTQ = ITGREQ+1)
0072 C-- UP link
0073 PARAMETER (ITGUPQ = ITGSTQ+1)
0074 C-- VErsion
0075 PARAMETER (ITGVEQ = ITGUPQ+1)
0076 C-- Entry
0077 PARAMETER (ITGENQ = ITGVEQ+1)
0078 C-- NZERO words to preset to zero
0079 PARAMETER (ITGNZQ = ITGENQ+1)
0080 C-- IO characteristics
0081 PARAMETER (ITGIOQ = ITGNZQ+1)
0082 C-- Numerical identifier
0083 PARAMETER (ITGNIQ = ITGIOQ+1)
0084 C-- IDem qualifier
0085 PARAMETER (ITGIDQ = ITGNIQ+1)
0086 C-- Tag length for entry
0087 PARAMETER (NWTENQ = 2)
0088
0089
0090 #endif
