Warning, /include/dzdoc/bkwrp.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:58 mclareni
0006 * Initial revision
0007 *
0008 *
0009 #ifndef CERNLIB_DZDOC_BKWRP_INC
0010 #define CERNLIB_DZDOC_BKWRP_INC
0011 *
0012 *
0013 * bkwrp.inc
0014 *
0015 PARAMETER (LNCARD=80 , LNCAR4=LNCARD/4)
0016 CHARACTER CARD*(LNCARD)
0017 COMMON /DZDINC/ CARD
0018
0019 PARAMETER (IRLVMQ = 10)
0020
0021 C-- DESCRIPTION OF COMMON DZDTYP
0022 C- ============================
0023
0024 C-- Common DZDTYP contains the decoded information corresponding to
0025 C-- one "CARD" image in variable CARD. Is contains also the back-up
0026 C-- i.e. the old valus of the status flags to treat continuation info
0027
0028 C-- VARIABLE DESCRIPTION
0029 C- ======== ===========
0030 C ISTATE Code of state for last valid card ID
0031 C IDTAG Code of character identification of card
0032 C ICONT Card is continuation of previous one
0033 C ISLASH Flag set when last character of CARD is '/'
0034 C This character is used to generate a line feed
0035 C for multi-line entries
0036 C IISLSH Value of ISLASH for previous CARD
0037 C IREPLV Repetition level
0038 C IREPLO Old repetition level
0039 C ISCHLO Old CHOICE section flag
0040 C IDEMTX Hollerith code for text as previous entry (DZDINI)
0041 C IILFLF Hollerith code for line feed (DZDINI)
0042 C INUM1 First number if number interpretation possible
0043 C IHNUM1 Vector containing the Hollerith representation
0044 C of the first number field (if non-numeric)
0045 C INUM1 then contains -16* number of words used
0046 C INUM2 Second number if number interpretation possible
0047 C IHNUM2 Vector containing the Hollerith representation
0048 C of the second number field (if non-numeric)
0049 C INUM2 then contains -16* number of words used
0050 C NBNKS Number of bank descriptors present
0051 C NHTAG Number of characters in the tag field of the card
0052 C This field can also correspond to a declared
0053 C numeric field with a non-numeric entry
0054 C NWTAG Number of 4-byte machine words needed for the tag
0055 C IHTAG Vector containing the Hollerith representation
0056 C of the tag field of the card
0057 C NHTXT Number of characters in the text field of the card
0058 C NWTAG Number of 4-byte machine words needed for the text
0059 C IHTAG Vector containing the Hollerith representation
0060 C of the text field of the card
0061
0062 COMMON/DZDTYP/ISTATE,IDTAG,ICONT,ISLASH,IISLSH,IREPLV,IREPLO,
0063 X IDEMTX,IILFLF,INUM1,IHNUM1(LNCAR4),INUM2,IHNUM2(LNCAR4),
0064 X NBNKS,NHTAG,NWTAG,IHTAG(LNCAR4),NHTXT,NWTXT,IHTXT(LNCAR4)
0065
0066 #include "dzdoc/dzdocc.inc"
0067
0068 #include "zebra/mqsys.inc"
0069 #include "zebra/qequ.inc"
0070 #include "zebra/mzcn.inc"
0071
0072 #endif
