Warning, /include/ffread/cfread.inc is written in an unsupported language. File is not indexed.
0001 *
0002 * $Id$
0003 *
0004 * $Log$
0005 * Revision 1.1 1996/03/08 11:50:40 mclareni
0006 * Initial revision
0007 *
0008 *
0009 #ifndef CERNLIB_FFREAD_CFREAD_INC
0010 #define CERNLIB_FFREAD_CFREAD_INC
0011 *
0012 *
0013 * cfread.inc
0014 *
0015 #include "ffread/ffparm.inc"
0016 COMMON /CFREAD/ NWORDS, NCHKEY, NWDKEY, NKEYS, MAXKEY,
0017 * NOFLEN, NOFTYP, NOFKEY,
0018 * LINPUT, LUNIN, LUNOUT,
0019 * ISTACK, LUNS(LSTACK),
0020 * IFFOPT(8), KEYOPT(3),
0021 * IWORDS(NCSIZE)
0022 #if defined(CERNLIB_SAVE)
0023 #include "ffread/cfreadsv.inc"
0024 #endif
0025 PARAMETER (NOFLOC = 0)
0026 C
0027 C Common CFREAD contains all information FFREAD knows about.
0028 C The variables contain the following:
0029 C
0030 C NWORDS - # of words available in array IWORDS for key storage
0031 C
0032 C NCHKEY - # of characters per key - default is four
0033 C NWDKEY - # of words per key
0034 C NKEYS - # of keys currently defined
0035 C MAXKEY - maximum # of keys IWORDS will hold, considering NCHKEY and NWORDS
0036 C
0037 C (NOFLOC)- offset for storage of addresses in IWORDS
0038 C (This is declared a parameter, as it is implicitly 0.)
0039 C NOFLEN - ditto for array lengths
0040 C NOFTYP - ditto for type field
0041 C NOFKEY - ditto for keys
0042 C
0043 C LINPUT - # of significant characters on data card
0044 C LUNIN - unit number for reading
0045 C LUNOUT - unit number for output
0046 C
0047 C IFFOPT - character options for FFGET/FFSET
0048 C KEYOPT - character options for FFKEY
0049 C
0050 C ISTACK - stack pointer into LUNS()
0051 C LUNS() - stack for reading from files
0052 C
0053 C IWORDS - storage for keys, value locations, their length, and their type.
0054 C
0055
0056 #endif
