include/ntuple/c_pawcom.h

0001 /*
0002  *  pawcom.h  --
0003  *  Map the /PAWCOM/ and /PAWCID/ commons
0004  *
0005  *  Original: 31-Mar-1995 17:06
0006  *
0007  *  Author:   Maarten Ballintijn <Maarten.Ballintijn@cern.ch>
0008  *
0009  *  $Id$
0010  *
0011  *  $Log$
0012  *  Revision 1.3  1999/06/28 15:08:29  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_PAWCOM
0022 #define CERN_PAWCOM
0023
0024 #include    <cfortran/cfortran.h>
0025
0026
0027 typedef struct {
0028     int id;
0029     int num;
0030     int jofset;
0031     int idold;
0032     int khrin;
0033 } pawcom_def;
0034
0035 #define PAWCOM COMMON_BLOCK(PAWCOM,pawcom)
0036 COMMON_BLOCK_DEF(pawcom_def,PAWCOM);
0037
0038
0039 typedef struct {
0040     char    chid[128];
0041     char    chcase[4];
0042 } pawcid_def;
0043
0044 #define PAWCID COMMON_BLOCK(PAWCID,pawcid)
0045 COMMON_BLOCK_DEF(pawcid_def,PAWCID);
0046
0047
0048 #endif  /*  CERN_PAWCOM */