Warning, /include/hbook/hcdire.inc is written in an unsupported language. File is not indexed.
0001 *
0002 * $Id$
0003 *
0004 * $Log$
0005 * Revision 1.2 2003/02/07 12:13:37 couet
0006 * - The size of the HFNAME character string has been increased to 128. It
0007 * was 80 before. 80 was not long enough to support long file names one
0008 * can get using CASTOR files in a CHAIN command. The HFNAME length is now
0009 * defined as the parameter LENHFN.
0010 *
0011 * Revision 1.1.1.1 1996/01/16 17:07:51 mclareni
0012 * First import
0013 *
0014 *
0015 #ifndef CERNLIB_HBOOK_HCDIRE_INC
0016 #define CERNLIB_HBOOK_HCDIRE_INC
0017 *
0018 *
0019 * hcdire.inc
0020 *
0021 *CMZ : 4.20/03 28/07/93 09.33.32 by Rene Brun
0022 *-- Author :
0023 PARAMETER (NLPATM=100, MXFILES=50, LENHFN=256)
0024 COMMON /HCDIRN/NLCDIR,NLNDIR,NLPAT,ICDIR,NCHTOP,ICHTOP(MXFILES)
0025 + ,ICHTYP(MXFILES),ICHLUN(MXFILES)
0026 CHARACTER*16 CHNDIR, CHCDIR, CHPAT ,CHTOP
0027 COMMON /HCDIRC/CHCDIR(NLPATM),CHNDIR(NLPATM),CHPAT(NLPATM)
0028 + ,CHTOP(NLPATM)
0029 CHARACTER*(LENHFN) HFNAME
0030 COMMON /HCFILE/HFNAME(MXFILES)
0031 *
0032
0033 #endif
