Warning, /include/cspack/czoptd.inc is written in an unsupported language. File is not indexed.
0001 *
0002 * $Id$
0003 *
0004 * $Log$
0005 * Revision 1.1 1996/03/08 15:44:17 mclareni
0006 * Initial revision
0007 *
0008 *
0009 #ifndef CERNLIB_CSPACK_CZOPTD_INC
0010 #define CERNLIB_CSPACK_CZOPTD_INC
0011 *
0012 *
0013 * czoptd.inc
0014 *
0015 #if !defined(CERNLIB_LINUX)
0016 DIMENSION IOPT(26)
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)
0026 CHARACTER*26 ALFBET
0027 CHARACTER*(*) CHOPT
0028 DATA ALFBET/'ABCDEFGHIJKLMNOPQRSTUVWXYZ'/
0029 *
0030 #endif
0031 #if defined(CERNLIB_LINUX)
0032 DIMENSION IOPT(26)
0033 EQUIVALENCE (IOPT(1),IOPTA),(IOPT(2),IOPTB),(IOPT(3),IOPTC),
0034 + (IOPT(4),IOPTD),(IOPT(5),IOPTE),(IOPT(6),IOPTF),
0035 + (IOPT(7),IOPTG),(IOPT(8),IOPTH),(IOPT(9),IOPTI),
0036 + (IOPT(10),IOPTJ),(IOPT(11),IOPTK),(IOPT(12),IOPTL),
0037 + (IOPT(13),IOPTM),(IOPT(14),IOPTN),(IOPT(15),IOPTO),
0038 + (IOPT(16),IOPTP),(IOPT(17),IOPTQ),(IOPT(18),IOPTR),
0039 + (IOPT(19),IOPTS),(IOPT(20),IOPTT),(IOPT(21),IOPTU),
0040 + (IOPT(22),IOPTV),(IOPT(23),IOPTW),(IOPT(24),IOPTX),
0041 + (IOPT(25),IOPTY),(IOPT(26),IOPTZ)
0042 CHARACTER*26 ALFBET
0043 CHARACTER*(*) CHOPT
0044 PARAMETER (ALFBET='ABCDEFGHIJKLMNOPQRSTUVWXYZ')
0045 *
0046 #endif
0047
0048 #endif
