Back to home page

EIC code displayed by LXR

 
 

    


File indexing completed on 2025-02-21 10:05:28

0001 /*
0002  *  hcbits.h  --
0003  *  Map the /HCBITS/ common
0004  *
0005  *  Original:  3-Apr-1995 11:15
0006  *
0007  *  Author:   Maarten Ballintijn <Maarten.Ballintijn@cern.ch>
0008  *
0009  *  $Id$
0010  *
0011  *  $Log$
0012  *  Revision 1.3  1999/06/28 15:08:21  couet
0013  *  - use now cfortran.h in $CVSCOSRC
0014  *
0015  *  Revision 1.2  1996/04/23 18:37:41  maartenb
0016  *  - Add RCS keywords
0017  *
0018  *
0019  */
0020 
0021 #ifndef CERN_HCBITS
0022 #define CERN_HCBITS
0023 
0024 #include        <cfortran/cfortran.h>
0025 
0026 
0027 typedef struct {
0028     int i1;
0029     int i2;
0030     int i3;
0031     int i4;
0032     int i5;
0033     int i6;
0034     int i7;
0035     int i8;
0036     int i9;
0037     int i10;
0038     int i11;
0039     int i12;
0040     int i13;
0041     int i14;
0042     int i15;
0043     int i16;
0044     int i17;
0045     int i18;
0046     int i19;
0047     int i20;
0048     int i21;
0049     int i22;
0050     int i23;
0051     int i24;
0052     int i25;
0053     int i26;
0054     int i27;
0055     int i28;
0056     int i29;
0057     int i30;
0058     int i31;
0059     int i32;
0060     int i33;
0061     int i34;
0062     int i35;
0063     int i123;
0064     int i230;
0065 } hcbits_def;
0066 
0067 #define HCBITS COMMON_BLOCK(HCBITS,hcbits)
0068 COMMON_BLOCK_DEF(hcbits_def,HCBITS);
0069 
0070 #endif  /*  CERN_HCBITS */