include/ntuple/c_pccsel.h

0001 /*
0002  *  c_pccsel.h  --
0003  *  Map the /PCCSEL/ and /PCCSE2/ commonblocks
0004  *
0005  *  Original: 15-May-1996 11:06
0006  *
0007  *  Author:   Maarten Ballintijn <Maarten.Ballintijn@cern.ch>
0008  *
0009  *  $Id$
0010  *
0011  *  $Log$
0012  *  Revision 1.2  1999/06/28 15:08:33  couet
0013  *  - use now cfortran.h in $CVSCOSRC
0014  *
0015  *  Revision 1.1  1996/05/15 13:11:37  maartenb
0016  *  - Fix the CSELECT command.
0017  *
0018  *
0019  *
0020  */
0021
0022 #ifndef CERN_C_PCCSEL
0023 #define CERN_C_PCCSEL
0024
0025 #include    <cfortran/cfortran.h>
0026
0027
0028 typedef struct {
0029     int ioptcs[5];
0030     int csize;
0031 } pccsel_def;
0032
0033 #define ioptcr  ioptcs[0]
0034 #define ioptcb  ioptcs[1]
0035 #define ioptcm  ioptcs[2]
0036 #define ioptcc  ioptcs[3]
0037 #define ioptcn  ioptcs[4]
0038
0039 #define PCCSEL  COMMON_BLOCK(PCCSEL,pccsel)
0040
0041 COMMON_BLOCK_DEF(pccsel_def,PCCSEL);
0042
0043
0044 typedef struct {
0045     char    chcsel[80];
0046     char    csopt[8];
0047 } pccse2_def;
0048
0049 #define PCCSE2  COMMON_BLOCK(PCCSE2,pccse2)
0050
0051 COMMON_BLOCK_DEF(pccse2_def,PCCSE2);
0052
0053
0054 #endif  /*  CERN_C_PCCSEL   */