Back to home page

EIC code displayed by LXR

 
 

    


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

0001 /*
0002  *  c_pcmatw.h  --
0003  *  Map the /PCMATW/ common
0004  *
0005  *  Original: 12-Dec-1995 11:27
0006  *
0007  *  Author:   Maarten Ballintijn <Maarten.Ballintijn@cern.ch>
0008  *
0009  *  $Id$
0010  *
0011  *  $Log$
0012  *  Revision 1.3  1999/06/28 15:08:36  couet
0013  *  - use now cfortran.h in $CVSCOSRC
0014  *
0015  *  Revision 1.2  1996/04/23 18:37:52  maartenb
0016  *  - Add RCS keywords
0017  *
0018  *
0019  */
0020 
0021 #ifndef CERN_C_PCMATW
0022 #define CERN_C_PCMATW
0023 
0024 #include    <cfortran/cfortran.h>
0025 
0026 #define MAX_OUTSTR  512
0027 
0028 
0029 typedef struct {
0030     char    outstr[MAX_OUTSTR][32];
0031 } pcmatw_def;
0032 
0033 
0034 #define PCMATW COMMON_BLOCK(PCMATW,pcmatw)
0035 COMMON_BLOCK_DEF(pcmatw_def,PCMATW);
0036 
0037 #endif  /*  CERN_C_PCMATW   */