include/ntuple/c_hcflag.h

0001 /*
0002  *  hcflag.h  --
0003  *  Map the /HCFLAG/ common block
0004  *
0005  *  Original:  7-Nov-1994 16:20
0006  *
0007  *  Author:   Maarten Ballintijn <Maarten.Ballintijn@cern.ch>
0008  *
0009  *  $Id$
0010  *
0011  *  $Log$
0012  *  Revision 1.3  1999/06/28 15:08:25  couet
0013  *  - use now cfortran.h in $CVSCOSRC
0014  *
0015  *  Revision 1.2  1996/04/23 18:37:44  maartenb
0016  *  - Add RCS keywords
0017  *
0018  *
0019  */
0020
0021 #ifndef CERN_HCFLAG
0022 #define CERN_HCFLAG
0023
0024 #include    <cfortran/cfortran.h>
0025
0026
0027 typedef struct {
0028     int id;
0029     int idbadd;
0030     int lid;
0031     int idlast;
0032     int idhold;
0033     int nbit;
0034     int nbitch;
0035     int nchar;
0036     int nrhist;
0037     int ierr;
0038     int nv;
0039 } hcflag_def;
0040
0041 #define HCFLAG COMMON_BLOCK(HCFLAG,hcflag)
0042
0043 COMMON_BLOCK_DEF(hcflag_def,HCFLAG);
0044
0045
0046 #endif  /*  CERN_HCFLAG */