Warning, /include/dzdoc/bktgdatq.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_BKTGDATQ_INC
0010 #define CERNLIB_DZDOC_BKTGDATQ_INC
0011 *
0012 *
0013 * bktgdatq.inc
0014 *
0015 CHARACTER CBKTAC(ITGIDQ)*2
0016 DIMENSION IBKTAC(NBKACQ,ITGIDQ)
0017
0018 C-- AUthor
0019 DATA CBKTAC(ITGAUQ) / 'AU' /
0020 DATA IBKTAC(MBKASQ,ITGAUQ) / ISGENQ /
0021 DATA IBKTAC(MBKAGQ,ITGAUQ) / IBKANQ /
0022 DATA IBKTAC(MBKARQ,ITGAUQ) / IBKANQ /
0023 DATA IBKTAC(MBKAHQ,ITGAUQ) / IBKANQ /
0024 C-- BIt (status)
0025 DATA CBKTAC(ITGBIQ) / 'BI' /
0026 DATA IBKTAC(MBKASQ,ITGBIQ) / ISBITQ /
0027 DATA IBKTAC(MBKAGQ,ITGBIQ) / IBKANQ /
0028 DATA IBKTAC(MBKARQ,ITGBIQ) / IBKAYQ /
0029 DATA IBKTAC(MBKAHQ,ITGBIQ) / IBKAYQ /
0030 C-- CHoice section
0031 DATA CBKTAC(ITGCHQ) / 'CH' /
0032 DATA IBKTAC(MBKASQ,ITGCHQ) / ISCHOQ /
0033 DATA IBKTAC(MBKAGQ,ITGCHQ) / IBKASQ /
0034 DATA IBKTAC(MBKARQ,ITGCHQ) / IBKANQ /
0035 DATA IBKTAC(MBKAHQ,ITGCHQ) / IBKANQ /
0036 C-- DAta section
0037 DATA CBKTAC(ITGDAQ) / 'DA' /
0038 DATA IBKTAC(MBKASQ,ITGDAQ) / ISDATQ /
0039 DATA IBKTAC(MBKAGQ,ITGDAQ) / IBKANQ /
0040 DATA IBKTAC(MBKARQ,ITGDAQ) / IBKAYQ /
0041 DATA IBKTAC(MBKAHQ,ITGDAQ) / IBKAYQ /
0042 C-- Division
0043 DATA CBKTAC(ITGDVQ) / 'DV' /
0044 DATA IBKTAC(MBKASQ,ITGDVQ) / ISGENQ /
0045 DATA IBKTAC(MBKAGQ,ITGDVQ) / 2 /
0046 DATA IBKTAC(MBKARQ,ITGDVQ) / IBKANQ /
0047 DATA IBKTAC(MBKAHQ,ITGDVQ) / IBKAYQ /
0048 C-- LInk section
0049 DATA CBKTAC(ITGLIQ) / 'LI' /
0050 DATA IBKTAC(MBKASQ,ITGLIQ) / ISLINQ /
0051 DATA IBKTAC(MBKAGQ,ITGLIQ) / IBKANQ /
0052 DATA IBKTAC(MBKARQ,ITGLIQ) / IBKAYQ /
0053 DATA IBKTAC(MBKAHQ,ITGLIQ) / IBKAYQ /
0054 C-- RLink section
0055 DATA CBKTAC(ITGRLQ) / 'RL' /
0056 DATA IBKTAC(MBKASQ,ITGRLQ) / ISRLIQ /
0057 DATA IBKTAC(MBKAGQ,ITGRLQ) / IBKANQ /
0058 DATA IBKTAC(MBKARQ,ITGRLQ) / IBKAYQ /
0059 DATA IBKTAC(MBKAHQ,ITGRLQ) / IBKAYQ /
0060 C-- Numerical Identifier
0061 DATA CBKTAC(ITGNIQ) / 'NI' /
0062 DATA IBKTAC(MBKASQ,ITGNIQ) / ISGENQ /
0063 DATA IBKTAC(MBKAGQ,ITGNIQ) / IBKAMQ /
0064 DATA IBKTAC(MBKARQ,ITGNIQ) / IBKANQ /
0065 DATA IBKTAC(MBKAHQ,ITGNIQ) / IBKANQ /
0066 C-- Number of Data words
0067 DATA CBKTAC(ITGNDQ) / 'ND' /
0068 DATA IBKTAC(MBKASQ,ITGNDQ) / ISGENQ /
0069 DATA IBKTAC(MBKAGQ,ITGNDQ) / IBKAMQ /
0070 DATA IBKTAC(MBKARQ,ITGNDQ) / IBKANQ /
0071 DATA IBKTAC(MBKAHQ,ITGNDQ) / IBKANQ /
0072 C-- Total Number of Links
0073 DATA CBKTAC(ITGNLQ) / 'NL' /
0074 DATA IBKTAC(MBKASQ,ITGNLQ) / ISGENQ /
0075 DATA IBKTAC(MBKAGQ,ITGNLQ) / IBKAMQ /
0076 DATA IBKTAC(MBKARQ,ITGNLQ) / IBKANQ /
0077 DATA IBKTAC(MBKAHQ,ITGNLQ) / IBKANQ /
0078 C-- Number of Structural links
0079 DATA CBKTAC(ITGNSQ) / 'NS' /
0080 DATA IBKTAC(MBKASQ,ITGNSQ) / ISGENQ /
0081 DATA IBKTAC(MBKAGQ,ITGNSQ) / IBKAMQ /
0082 DATA IBKTAC(MBKARQ,ITGNSQ) / IBKANQ /
0083 DATA IBKTAC(MBKAHQ,ITGNSQ) / IBKANQ /
0084 C-- NeXt link
0085 DATA CBKTAC(ITGNXQ) / 'NX' /
0086 DATA IBKTAC(MBKASQ,ITGNXQ) / ISGENQ /
0087 DATA IBKTAC(MBKAGQ,ITGNXQ) / 1 /
0088 DATA IBKTAC(MBKARQ,ITGNXQ) / IBKANQ /
0089 DATA IBKTAC(MBKAHQ,ITGNXQ) / IBKAYQ /
0090 C-- ORigin link
0091 DATA CBKTAC(ITGORQ) / 'OR' /
0092 DATA IBKTAC(MBKASQ,ITGORQ) / ISGENQ /
0093 DATA IBKTAC(MBKAGQ,ITGORQ) / 1 /
0094 DATA IBKTAC(MBKARQ,ITGORQ) / IBKANQ /
0095 DATA IBKTAC(MBKAHQ,ITGORQ) / IBKAYQ /
0096 C-- REpetition section
0097 DATA CBKTAC(ITGREQ) / 'RE' /
0098 DATA IBKTAC(MBKASQ,ITGREQ) / ISREPQ /
0099 DATA IBKTAC(MBKAGQ,ITGREQ) / IBKAMQ /
0100 DATA IBKTAC(MBKARQ,ITGREQ) / IBKAYQ /
0101 DATA IBKTAC(MBKAHQ,ITGREQ) / IBKAYQ /
0102 C-- STore
0103 DATA CBKTAC(ITGSTQ) / 'ST' /
0104 DATA IBKTAC(MBKASQ,ITGSTQ) / ISGENQ /
0105 DATA IBKTAC(MBKAGQ,ITGSTQ) / 2 /
0106 DATA IBKTAC(MBKARQ,ITGSTQ) / IBKANQ /
0107 DATA IBKTAC(MBKAHQ,ITGSTQ) / IBKAYQ /
0108 C-- UP link
0109 DATA CBKTAC(ITGUPQ) / 'UP' /
0110 DATA IBKTAC(MBKASQ,ITGUPQ) / ISGENQ /
0111 DATA IBKTAC(MBKAGQ,ITGUPQ) / 1 /
0112 DATA IBKTAC(MBKARQ,ITGUPQ) / IBKANQ /
0113 DATA IBKTAC(MBKAHQ,ITGUPQ) / IBKAYQ /
0114 C-- VErsion
0115 DATA CBKTAC(ITGVEQ) / 'VE' /
0116 DATA IBKTAC(MBKASQ,ITGVEQ) / ISGENQ /
0117 DATA IBKTAC(MBKAGQ,ITGVEQ) / IBKANQ /
0118 DATA IBKTAC(MBKARQ,ITGVEQ) / IBKANQ /
0119 DATA IBKTAC(MBKAHQ,ITGVEQ) / IBKANQ /
0120 C-- NZERO number of data words preset to 0
0121 DATA CBKTAC(ITGNZQ) / 'NZ' /
0122 DATA IBKTAC(MBKASQ,ITGNZQ) / ISGENQ /
0123 DATA IBKTAC(MBKAGQ,ITGNZQ) / IBKAMQ /
0124 DATA IBKTAC(MBKARQ,ITGNZQ) / IBKANQ /
0125 DATA IBKTAC(MBKAHQ,ITGNZQ) / IBKANQ /
0126 C-- IO characteristics
0127 DATA CBKTAC(ITGIOQ) / 'IO' /
0128 DATA IBKTAC(MBKASQ,ITGIOQ) / ISGENQ /
0129 DATA IBKTAC(MBKAGQ,ITGIOQ) / IBKANQ /
0130 DATA IBKTAC(MBKARQ,ITGIOQ) / IBKANQ /
0131 DATA IBKTAC(MBKAHQ,ITGIOQ) / IBKANQ /
0132 C-- IDEM
0133 DATA CBKTAC(ITGIDQ) / 'ID' /
0134 DATA IBKTAC(MBKASQ,ITGIDQ) / ISGENQ /
0135 DATA IBKTAC(MBKAGQ,ITGIDQ) / 1 /
0136 DATA IBKTAC(MBKARQ,ITGIDQ) / IBKANQ /
0137 DATA IBKTAC(MBKAHQ,ITGIDQ) / IBKAYQ /
0138
0139
0140 #endif
