include/ntuple/c_hcntpaw.h

0001 /*
0002  *  hcntpaw.h  --
0003  *  Map the /PAWCR8/, /PAWCR4/, and /PAWC32/ commons
0004  *
0005  *  Original: 18-Jan-1995 23:08
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:46  maartenb
0016  *  - Add RCS keywords
0017  *
0018  *
0019  */
0020
0021 #ifndef CERN_HCNTPAW
0022 #define CERN_HCNTPAW
0023
0024 #include    <cfortran/cfortran.h>
0025
0026
0027 typedef struct {
0028     double  rvar8[1000];
0029 } pawcr8_def;
0030
0031 #define PAWCR8 COMMON_BLOCK(PAWCR8,pawcr8)
0032 COMMON_BLOCK_DEF(pawcr8_def,PAWCR8);
0033
0034
0035 typedef struct {
0036     float   rvar4[50007];
0037 } pawcr4_def;
0038
0039 #define PAWCR4 COMMON_BLOCK(PAWCR4,pawcr4)
0040 COMMON_BLOCK_DEF(pawcr4_def,PAWCR4);
0041
0042
0043 typedef struct {
0044     char    cvar32[1000][32];
0045 } pawc32_def;
0046
0047 #define PAWC32 COMMON_BLOCK(PAWC32,pawc32)
0048 COMMON_BLOCK_DEF(pawc32_def,PAWC32);
0049
0050
0051 #endif  /*  CERN_HCNTPAW    */