include/ntuple/c_hcbook.h

0001 /*
0002  *  hcbook.h  --
0003  *  Map the /PAWC/ and /HCBOOK/ commons
0004  *
0005  *  Original:  3-Apr-1995 12:02
0006  *
0007  *  Author:   Maarten Ballintijn <Maarten.Ballintijn@cern.ch>
0008  *
0009  *  $Id$
0010  *
0011  *  $Log$
0012  *  Revision 1.5  1999/06/28 15:08:21  couet
0013  *  - use now cfortran.h in $CVSCOSRC
0014  *
0015  *  Revision 1.4  1996/04/23 18:37:42  maartenb
0016  *  - Add RCS keywords
0017  *
0018  *
0019  */
0020
0021 #ifndef CERN_HCBOOK
0022 #define CERN_HCBOOK
0023 #include    <cfortran/cfortran.h>
0024
0025
0026 typedef struct {
0027     int npaw;
0028     int ixpawc;
0029     int ihdiv;
0030     int ixhigz;
0031     int ixku;
0032     float   fenc[5];
0033     union   {
0034             int _lmain;
0035             int _lq[1];
0036         } lq_base;
0037     int dummy_filler[7];
0038     union   {
0039             float   _q[1];
0040             int _iq[1];
0041         } iq_base;
0042     float   hcv[9981];
0043 } pawc_def;
0044
0045 #define lmain   lq_base._lmain
0046 #define lq_eqv  lq_base._lq
0047
0048 #define q_eqv   iq_base._q
0049 #define iq_eqv  iq_base._iq
0050
0051 #define PAWC COMMON_BLOCK(PAWC,pawc)
0052 COMMON_BLOCK_DEF(pawc_def,PAWC);
0053
0054
0055 typedef struct {
0056     int hversn;
0057     int ihwork;
0058     int lhbook;
0059     int lhplot;
0060     int lgtit;
0061     int lhwork;
0062     int lcdir;
0063     int lsdir;
0064     int lids;
0065     int ltab;
0066     int lcid;
0067     int lcont;
0068     int lscat;
0069     int lprox;
0070     int lproy;
0071     int lslix;
0072     int lsliy;
0073     int lbanx;
0074     int lbany;
0075     int lprx;
0076     int lpry;
0077     int lfix;
0078     int llid;
0079     int lr1;
0080     int lr2;
0081     int lname;
0082     int lchar;
0083     int lint;
0084     int lreal;
0085     int lblok;
0086     int llblk;
0087     int lbufm;
0088     int lbuf;
0089     int ltmpm;
0090     int ltmp;
0091     int ltmp1;
0092     int lhplip;
0093     int lhdum[9];
0094     int lhfit;
0095     int lfunc;
0096     int lhfco;
0097     int lhfna;
0098     int lcidn;
0099 } hcbook_def;
0100
0101 #define HCBOOK COMMON_BLOCK(HCBOOK,hcbook)
0102 COMMON_BLOCK_DEF(hcbook_def,HCBOOK);
0103
0104 #include    "c_hck.h"
0105
0106 #endif  /*  CERN_HCBOOK */