Back to home page

EIC code displayed by LXR

 
 

    


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

0001 /*
0002  *  c_pcaddr.h  --
0003  *  Map the /PCADDR/ common
0004  *
0005  *  Original: 11-Dec-1995 18:13
0006  *
0007  *  Author:   Maarten Ballintijn <Maarten.Ballintijn@cern.ch>
0008  *
0009  *  $Id$
0010  *
0011  *  $Log$
0012  *  Revision 1.3  1999/06/28 15:08:31  couet
0013  *  - use now cfortran.h in $CVSCOSRC
0014  *
0015  *  Revision 1.2  1996/04/23 18:37:51  maartenb
0016  *  - Add RCS keywords
0017  *
0018  *
0019  */
0020 
0021 #ifndef CERN_C_PCADDR
0022 #define CERN_C_PCADDR
0023 
0024 #include    <cfortran/cfortran.h>
0025 
0026 
0027 typedef struct {
0028     int jmpant;
0029     int jmlab;
0030     int jmrow;
0031     int jmchain;
0032     int jntwini;
0033     int jntwchk;
0034     int jmhist;
0035 } pcaddr_def; 
0036 
0037 
0038 #define PCADDR COMMON_BLOCK(PCADDR,pcaddr)
0039 COMMON_BLOCK_DEF(pcaddr_def,PCADDR);
0040 
0041 #endif  /*  CERN_C_PCADDR   */