Warning, /include/dzdoc/linout.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_LINOUT_INC
0010 #define CERNLIB_DZDOC_LINOUT_INC
0011 *
0012 *
0013 * linout.inc
0014 *
0015 C-- Parameters and commons defining the output line
0016
0017 C-- Output vector
0018 PARAMETER (NOUTQ=80)
0019 CHARACTER COUT*(NOUTQ)
0020 C-- Definition of fields on output line
0021 PARAMETER (IOTAGQ=12,IOENTQ=21,NOENTQ=NOUTQ-IOENTQ+1)
0022 PARAMETER (INDENQ=2,NENTIQ=10)
0023
0024 COMMON/CDLINE/COUT
0025 COMMON/IDLINE/IEWORK,IFLOPT(26),INLINE,INSERT,NOUTF,NWHOLL
0026 C-- Description of the variables in common CDLINE and IDLINE
0027 C Identifier Description
0028 C ========== ===========
0029 C COUT Character variable representing the output line
0030 C IEWORK Pointer to the last position occupied in the work
0031 C variable CWORK (Subr. DZDLIN)
0032 C IFLOPT (26) Integer array with value non-zero for each option
0033 C set (used by DZDOCO and DZDOCS for transmitting the
0034 C options to its daughter routines)
0035 C INLINE Offset of the start of the information in COUT
0036 C INSERT Pointer to the current text field being treated in
0037 C the ZEBRA bank
0038 C NOUTF Number of columns available on the output line
0039 C to contain the text information
0040 C NWHOLL Number of words in the ZEBRA bank containing the
0041 C text information and remaining to be treated
0042
0043 #endif
