include/ntuple/c_hcdire.h

0001 /*
0002  *  hcdire.h  --
0003  *  Map the /HCDIRN/, /HCDIRC/ and /HCFILE/ common
0004  *
0005  *  Original:  3-Apr-1995 14:05
0006  *
0007  *  Author:   Maarten Ballintijn <Maarten.Ballintijn@cern.ch>
0008  *
0009  *  $Id$
0010  *
0011  *  $Log$
0012  *  Revision 1.3  1999/06/28 15:08:24  couet
0013  *  - use now cfortran.h in $CVSCOSRC
0014  *
0015  *  Revision 1.2  1996/04/23 18:37:43  maartenb
0016  *  - Add RCS keywords
0017  *
0018  *
0019  */
0020
0021 #ifndef CERN_HCDIRE
0022 #define CERN_HCDIRE
0023
0024 #include    <cfortran/cfortran.h>
0025
0026
0027 #define NLPATM  100
0028 #define MXFILES 50
0029
0030
0031 typedef struct {
0032     int nlcdir;
0033     int nlndir;
0034     int nlpat;
0035     int icdir;
0036     int nchtop;
0037     int ichtop[MXFILES];
0038     int ichtyp[MXFILES];
0039     int ichlun[MXFILES];
0040 } hcdirn_def;
0041
0042 #define HCDIRN COMMON_BLOCK(HCDIRN,hcdirn)
0043 COMMON_BLOCK_DEF(hcdirn_def,HCDIRN);
0044
0045
0046 typedef struct {
0047     char    chcdir[NLPATM][16];
0048     char    chndir[NLPATM][16];
0049     char    chpat[NLPATM][16];
0050     char    chtop[NLPATM][16];
0051 } hcdirc_def;
0052
0053 #define HCDIRC COMMON_BLOCK(HCDIRC,hcdirc)
0054 COMMON_BLOCK_DEF(hcdirc_def,HCDIRC);
0055
0056
0057 typedef struct {
0058     char    hfname[MXFILES][80];
0059 } hcfile_def;
0060
0061 #define HCFILE COMMON_BLOCK(HCFILE,hcfile)
0062 COMMON_BLOCK_DEF(hcfile_def,HCFILE);
0063
0064
0065 #endif  /*  CERN_HCDIRE */