include/ntuple/c_pawchn.h

0001 /*
0002  *  pawchn.h  --
0003  *  Map the /PAWCHN/, /PAWCHC/, /PAWCH2/ and /PAWCH3/ commons
0004  *
0005  *  Original:  3-Apr-1995 11:56
0006  *
0007  *  Author:   Maarten Ballintijn <Maarten.Ballintijn@cern.ch>
0008  *
0009  *  $Id$
0010  *
0011  *  $Log$
0012  *  Revision 1.3  1999/06/28 15:08:28  couet
0013  *  - use now cfortran.h in $CVSCOSRC
0014  *
0015  *  Revision 1.2  1996/04/23 18:37:49  maartenb
0016  *  - Add RCS keywords
0017  *
0018  *
0019  */
0020
0021 #ifndef CERN_PAWCHN
0022 #define CERN_PAWCHN
0023
0024 #include    <cfortran/cfortran.h>
0025
0026
0027 typedef struct {
0028     int chain;
0029     int nchevt;
0030     int ichevt;
0031 } pawchn_def;
0032
0033 #define PAWCHN COMMON_BLOCK(PAWCHN,pawchn)
0034 COMMON_BLOCK_DEF(pawchn_def,PAWCHN);
0035
0036
0037 typedef struct {
0038     char    cfile[128];
0039 } pawchc_def;
0040
0041 #define PAWCHC COMMON_BLOCK(PAWCHC,pawchc)
0042 COMMON_BLOCK_DEF(pawchc_def,PAWCHC);
0043
0044
0045 typedef struct {
0046     char    curchn[80];
0047 } pawch2_def;
0048
0049 #define PAWCH2 COMMON_BLOCK(PAWCH2,pawch2)
0050 COMMON_BLOCK_DEF(pawch2_def,PAWCH2);
0051
0052
0053 typedef struct {
0054     int chnxmt;
0055 } pawch3_def;
0056
0057 #define PAWCH3 COMMON_BLOCK(PAWCH3,pawch3)
0058 COMMON_BLOCK_DEF(pawch3_def,PAWCH3);
0059
0060
0061 #endif  /*  CERN_PAWCHN */