File indexing completed on 2025-02-21 10:05:28
0001
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013
0014
0015
0016
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