60 |
#ifdef ALLOW_TAMC_CHECKPOINTING |
#ifdef ALLOW_TAMC_CHECKPOINTING |
61 |
|
|
62 |
integer nchklev_1 |
integer nchklev_1 |
63 |
parameter( nchklev_1 = 2 ) |
parameter( nchklev_1 = 1 ) |
64 |
integer nchklev_2 |
integer nchklev_2 |
65 |
parameter( nchklev_2 = 50 ) |
parameter( nchklev_2 = 50 ) |
66 |
integer nchklev_3 |
integer nchklev_3 |
101 |
integer iloop_daily |
integer iloop_daily |
102 |
|
|
103 |
INTEGER isbyte |
INTEGER isbyte |
104 |
|
#ifdef ALLOW_TAMC_SINGLEPREC_COMLEV |
105 |
|
PARAMETER( isbyte = 4 ) |
106 |
|
#else |
107 |
PARAMETER( isbyte = 8 ) |
PARAMETER( isbyte = 8 ) |
108 |
|
#endif |
109 |
|
|
110 |
INTEGER maximpl |
INTEGER maximpl |
111 |
PARAMETER( maximpl = 6 ) |
PARAMETER( maximpl = 6 ) |
112 |
#ifdef ALLOW_PTRACERS |
#ifdef ALLOW_PTRACERS |
115 |
cph PARAMETER( maxpass = PTRACERS_num + 2 ) |
cph PARAMETER( maxpass = PTRACERS_num + 2 ) |
116 |
#else |
#else |
117 |
INTEGER maxpass |
INTEGER maxpass |
118 |
PARAMETER( maxpass = 3 ) |
PARAMETER( maxpass = 6 ) |
119 |
#endif |
#endif |
120 |
INTEGER maxcube |
INTEGER maxcube |
121 |
PARAMETER( maxcube = 3 ) |
PARAMETER( maxcube = 3 ) |
123 |
INTEGER act0, act1, act2, act3, act4 |
INTEGER act0, act1, act2, act3, act4 |
124 |
INTEGER max0, max1, max2, max3 |
INTEGER max0, max1, max2, max3 |
125 |
INTEGER iikey, kkey, passkey, igadkey, |
INTEGER iikey, kkey, passkey, igadkey, |
126 |
& itdkey, idynkey, igmkey, ikppkey |
& itdkey, idynkey, igmkey |
127 |
|
|
128 |
c ================================================================ |
c ================================================================ |
129 |
c END OF HEADER TAMC |
c END OF HEADER TAMC |