Warning, /include/hepdb/hdboptd.inc is written in an unsupported language. File is not indexed.
0001 *
0002 * $Id$
0003 *
0004 * $Log$
0005 * Revision 1.1 1996/02/28 16:24:02 mclareni
0006 * Initial revision
0007 *
0008 *
0009 #ifndef CERNLIB_HEPDB_HDBOPTD_INC
0010 #define CERNLIB_HEPDB_HDBOPTD_INC
0011 *
0012 *
0013 * hdboptd.inc
0014 *
0015 DIMENSION IOPT(36)
0016 INTEGER IOPT
0017 EQUIVALENCE (IOPT(1),IOPTA),(IOPT(2),IOPTB),(IOPT(3),IOPTC),
0018 + (IOPT(4),IOPTD),(IOPT(5),IOPTE),(IOPT(6),IOPTF),
0019 + (IOPT(7),IOPTG),(IOPT(8),IOPTH),(IOPT(9),IOPTI),
0020 + (IOPT(10),IOPTJ),(IOPT(11),IOPTK),(IOPT(12),IOPTL),
0021 + (IOPT(13),IOPTM),(IOPT(14),IOPTN),(IOPT(15),IOPTO),
0022 + (IOPT(16),IOPTP),(IOPT(17),IOPTQ),(IOPT(18),IOPTR),
0023 + (IOPT(19),IOPTS),(IOPT(20),IOPTT),(IOPT(21),IOPTU),
0024 + (IOPT(22),IOPTV),(IOPT(23),IOPTW),(IOPT(24),IOPTX),
0025 + (IOPT(25),IOPTY),(IOPT(26),IOPTZ),(IOPT(27),IOPT1),
0026 + (IOPT(28),IOPT2),(IOPT(29),IOPT3),(IOPT(30),IOPT4),
0027 + (IOPT(31),IOPT5),(IOPT(32),IOPT6),(IOPT(33),IOPT7),
0028 + (IOPT(31),IOPT5),(IOPT(32),IOPT6),(IOPT(33),IOPT7),
0029 + (IOPT(34),IOPT8),(IOPT(35),IOPT9),(IOPT(36),IOPT0)
0030 CHARACTER*36 ALFNUM
0031 DATA ALFNUM/'ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890'/
0032
0033 #endif
