*
* $Id: bktgdatq.inc,v 1.1.1.1 1996/03/04 16:12:58 mclareni Exp $
*
* $Log: bktgdatq.inc,v $
* Revision 1.1.1.1  1996/03/04 16:12:58  mclareni
* Dzdoc/Zebpack
*
*
#ifndef CERNLIB_DZDOC_BKTGDATQ_INC
#define CERNLIB_DZDOC_BKTGDATQ_INC
*
*
* bktgdatq.inc
*
      CHARACTER CBKTAC(ITGIDQ)*2
      DIMENSION IBKTAC(NBKACQ,ITGIDQ)
 
C--               AUthor
      DATA CBKTAC(ITGAUQ)        / 'AU'   /
      DATA IBKTAC(MBKASQ,ITGAUQ) / ISGENQ /
      DATA IBKTAC(MBKAGQ,ITGAUQ) / IBKANQ /
      DATA IBKTAC(MBKARQ,ITGAUQ) / IBKANQ /
      DATA IBKTAC(MBKAHQ,ITGAUQ) / IBKANQ /
C--               BIt (status)
      DATA CBKTAC(ITGBIQ)        / 'BI'   /
      DATA IBKTAC(MBKASQ,ITGBIQ) / ISBITQ /
      DATA IBKTAC(MBKAGQ,ITGBIQ) / IBKANQ /
      DATA IBKTAC(MBKARQ,ITGBIQ) / IBKAYQ /
      DATA IBKTAC(MBKAHQ,ITGBIQ) / IBKAYQ /
C--               CHoice section
      DATA CBKTAC(ITGCHQ)        / 'CH'   /
      DATA IBKTAC(MBKASQ,ITGCHQ) / ISCHOQ /
      DATA IBKTAC(MBKAGQ,ITGCHQ) / IBKASQ /
      DATA IBKTAC(MBKARQ,ITGCHQ) / IBKANQ /
      DATA IBKTAC(MBKAHQ,ITGCHQ) / IBKANQ /
C--               DAta section
      DATA CBKTAC(ITGDAQ)        / 'DA'   /
      DATA IBKTAC(MBKASQ,ITGDAQ) / ISDATQ /
      DATA IBKTAC(MBKAGQ,ITGDAQ) / IBKANQ /
      DATA IBKTAC(MBKARQ,ITGDAQ) / IBKAYQ /
      DATA IBKTAC(MBKAHQ,ITGDAQ) / IBKAYQ /
C--               Division
      DATA CBKTAC(ITGDVQ)        / 'DV'   /
      DATA IBKTAC(MBKASQ,ITGDVQ) / ISGENQ /
      DATA IBKTAC(MBKAGQ,ITGDVQ) /      2 /
      DATA IBKTAC(MBKARQ,ITGDVQ) / IBKANQ /
      DATA IBKTAC(MBKAHQ,ITGDVQ) / IBKAYQ /
C--               LInk section
      DATA CBKTAC(ITGLIQ)        / 'LI'   /
      DATA IBKTAC(MBKASQ,ITGLIQ) / ISLINQ /
      DATA IBKTAC(MBKAGQ,ITGLIQ) / IBKANQ /
      DATA IBKTAC(MBKARQ,ITGLIQ) / IBKAYQ /
      DATA IBKTAC(MBKAHQ,ITGLIQ) / IBKAYQ /
C--               RLink section
      DATA CBKTAC(ITGRLQ)        / 'RL'   /
      DATA IBKTAC(MBKASQ,ITGRLQ) / ISRLIQ /
      DATA IBKTAC(MBKAGQ,ITGRLQ) / IBKANQ /
      DATA IBKTAC(MBKARQ,ITGRLQ) / IBKAYQ /
      DATA IBKTAC(MBKAHQ,ITGRLQ) / IBKAYQ /
C--               Numerical Identifier
      DATA CBKTAC(ITGNIQ)        / 'NI'   /
      DATA IBKTAC(MBKASQ,ITGNIQ) / ISGENQ /
      DATA IBKTAC(MBKAGQ,ITGNIQ) / IBKAMQ /
      DATA IBKTAC(MBKARQ,ITGNIQ) / IBKANQ /
      DATA IBKTAC(MBKAHQ,ITGNIQ) / IBKANQ /
C--               Number of Data words
      DATA CBKTAC(ITGNDQ)        / 'ND'   /
      DATA IBKTAC(MBKASQ,ITGNDQ) / ISGENQ /
      DATA IBKTAC(MBKAGQ,ITGNDQ) / IBKAMQ /
      DATA IBKTAC(MBKARQ,ITGNDQ) / IBKANQ /
      DATA IBKTAC(MBKAHQ,ITGNDQ) / IBKANQ /
C--               Total Number of Links
      DATA CBKTAC(ITGNLQ)        / 'NL'   /
      DATA IBKTAC(MBKASQ,ITGNLQ) / ISGENQ /
      DATA IBKTAC(MBKAGQ,ITGNLQ) / IBKAMQ /
      DATA IBKTAC(MBKARQ,ITGNLQ) / IBKANQ /
      DATA IBKTAC(MBKAHQ,ITGNLQ) / IBKANQ /
C--               Number of Structural links
      DATA CBKTAC(ITGNSQ)        / 'NS'   /
      DATA IBKTAC(MBKASQ,ITGNSQ) / ISGENQ /
      DATA IBKTAC(MBKAGQ,ITGNSQ) / IBKAMQ /
      DATA IBKTAC(MBKARQ,ITGNSQ) / IBKANQ /
      DATA IBKTAC(MBKAHQ,ITGNSQ) / IBKANQ /
C--               NeXt link
      DATA CBKTAC(ITGNXQ)        / 'NX'   /
      DATA IBKTAC(MBKASQ,ITGNXQ) / ISGENQ /
      DATA IBKTAC(MBKAGQ,ITGNXQ) /      1 /
      DATA IBKTAC(MBKARQ,ITGNXQ) / IBKANQ /
      DATA IBKTAC(MBKAHQ,ITGNXQ) / IBKAYQ /
C--               ORigin link
      DATA CBKTAC(ITGORQ)        / 'OR'   /
      DATA IBKTAC(MBKASQ,ITGORQ) / ISGENQ /
      DATA IBKTAC(MBKAGQ,ITGORQ) /      1 /
      DATA IBKTAC(MBKARQ,ITGORQ) / IBKANQ /
      DATA IBKTAC(MBKAHQ,ITGORQ) / IBKAYQ /
C--               REpetition section
      DATA CBKTAC(ITGREQ)        / 'RE'   /
      DATA IBKTAC(MBKASQ,ITGREQ) / ISREPQ /
      DATA IBKTAC(MBKAGQ,ITGREQ) / IBKAMQ /
      DATA IBKTAC(MBKARQ,ITGREQ) / IBKAYQ /
      DATA IBKTAC(MBKAHQ,ITGREQ) / IBKAYQ /
C--               STore
      DATA CBKTAC(ITGSTQ)        / 'ST'   /
      DATA IBKTAC(MBKASQ,ITGSTQ) / ISGENQ /
      DATA IBKTAC(MBKAGQ,ITGSTQ) /      2 /
      DATA IBKTAC(MBKARQ,ITGSTQ) / IBKANQ /
      DATA IBKTAC(MBKAHQ,ITGSTQ) / IBKAYQ /
C--               UP link
      DATA CBKTAC(ITGUPQ)        / 'UP'   /
      DATA IBKTAC(MBKASQ,ITGUPQ) / ISGENQ /
      DATA IBKTAC(MBKAGQ,ITGUPQ) /      1 /
      DATA IBKTAC(MBKARQ,ITGUPQ) / IBKANQ /
      DATA IBKTAC(MBKAHQ,ITGUPQ) / IBKAYQ /
C--               VErsion
      DATA CBKTAC(ITGVEQ)        / 'VE'   /
      DATA IBKTAC(MBKASQ,ITGVEQ) / ISGENQ /
      DATA IBKTAC(MBKAGQ,ITGVEQ) / IBKANQ /
      DATA IBKTAC(MBKARQ,ITGVEQ) / IBKANQ /
      DATA IBKTAC(MBKAHQ,ITGVEQ) / IBKANQ /
C--               NZERO number of data words preset to 0
      DATA CBKTAC(ITGNZQ)        / 'NZ'   /
      DATA IBKTAC(MBKASQ,ITGNZQ) / ISGENQ /
      DATA IBKTAC(MBKAGQ,ITGNZQ) / IBKAMQ /
      DATA IBKTAC(MBKARQ,ITGNZQ) / IBKANQ /
      DATA IBKTAC(MBKAHQ,ITGNZQ) / IBKANQ /
C--              IO characteristics
      DATA CBKTAC(ITGIOQ)        / 'IO'   /
      DATA IBKTAC(MBKASQ,ITGIOQ) / ISGENQ /
      DATA IBKTAC(MBKAGQ,ITGIOQ) / IBKANQ /
      DATA IBKTAC(MBKARQ,ITGIOQ) / IBKANQ /
      DATA IBKTAC(MBKAHQ,ITGIOQ) / IBKANQ /
C--               IDEM
      DATA CBKTAC(ITGIDQ)        / 'ID'   /
      DATA IBKTAC(MBKASQ,ITGIDQ) / ISGENQ /
      DATA IBKTAC(MBKAGQ,ITGIDQ) /      1 /
      DATA IBKTAC(MBKARQ,ITGIDQ) / IBKANQ /
      DATA IBKTAC(MBKAHQ,ITGIDQ) / IBKAYQ /
 

#endif
