Back to home page

EIC code displayed by LXR

 
 

    


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

0001 /*
0002  *  pntold.h  --
0003  *  Map the /PNTOLD/ common
0004  *
0005  *  Original:  3-Apr-1995 11:53
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:53  maartenb
0016  *  - Add RCS keywords
0017  *
0018  *
0019  */
0020 
0021 #ifndef CERN_PNTOLD
0022 #define CERN_PNTOLD
0023 
0024 #include    <cfortran/cfortran.h>
0025 
0026 typedef struct {
0027     int ntold;
0028 } pntold_def;
0029 
0030 #define PNTOLD COMMON_BLOCK(PNTOLD,pntold)
0031 COMMON_BLOCK_DEF(pntold_def,PNTOLD);
0032 
0033 
0034 #endif  /*  CERN_PNTOLD */