include/ntuple/c_hcunit.h

0001 /*
0002  *  c_hcunit.h  --
0003  *  Map the /HCUNIT/ common
0004  *
0005  *  Original: 19-Mar-1996 12:09
0006  *
0007  *  Author:   Maarten Ballintijn <Maarten.Ballintijn@cern.ch>
0008  *
0009  *  $Id$
0010  *
0011  *  $Log$
0012  *  Revision 1.3  1999/06/28 15:08:27  couet
0013  *  - use now cfortran.h in $CVSCOSRC
0014  *
0015  *  Revision 1.2  1996/04/23 18:37:48  maartenb
0016  *  - Add RCS keywords
0017  *
0018  *
0019  */
0020
0021 #ifndef CERN_HCUNIT
0022 #define CERN_HCUNIT
0023
0024 #include    <cfortran/cfortran.h>
0025
0026
0027 typedef struct {
0028     int lout;
0029     int lerr;
0030     int linfit;
0031 } hcunit_def;
0032
0033 #define HCUNIT  COMMON_BLOCK(HCUNIT,hcunit)
0034 COMMON_BLOCK_DEF(hcunit_def,HCUNIT);
0035
0036 #endif  /*  CERN_HCUNIT */