include/ntuple/c_pcmask.h

0001 /*
0002  *  pcmask.h  --
0003  *  Map the /PCMASK/ and /PCMAS2/ common blocks
0004  *
0005  *  Original: 11-Nov-1994 11:26
0006  *
0007  *  Author:   Maarten Ballintijn <Maarten.Ballintijn@cern.ch>
0008  *
0009  *  $Id$
0010  *
0011  *  $Log$
0012  *  Revision 1.3  1999/06/28 15:08:34  couet
0013  *  - use now cfortran.h in $CVSCOSRC
0014  *
0015  *  Revision 1.2  1996/04/23 18:37:51  maartenb
0016  *  - Add RCS keywords
0017  *
0018  *
0019  */
0020
0021 #ifndef CERN_PCMASK
0022 #define CERN_PCMASK
0023
0024 #include    <cfortran/cfortran.h>
0025
0026 #define     MASDIM  9
0027
0028 typedef struct {
0029     int lmask;
0030     int lmbuf;
0031     int lm;
0032     int imsk[MASDIM];
0033     int imrd;
0034     int mbit[MASDIM];
0035     int mbitd;
0036     int numd;
0037     int nbuffd;
0038     int nbuffr;
0039     int nbuff[MASDIM];
0040     int idec;
0041     int lrec;
0042     int nbmask;
0043 } pcmask_def;
0044
0045 #define PCMASK  COMMON_BLOCK(PCMASK,pcmask)
0046
0047 COMMON_BLOCK_DEF(pcmask_def,PCMASK);
0048
0049 typedef struct {
0050     char    chmask[20][32];
0051 } pcmas2_def;
0052
0053 #define PCMAS2  COMMON_BLOCK(PCMAS2,pcmas2)
0054
0055 COMMON_BLOCK_DEF(pcmas2_def,PCMAS2);
0056
0057 #endif  /*  CERN_PCMASK */