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 |
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, iptrkey |
& itdkey, idynkey, igmkey, iptrkey |
127 |
|
|
128 |
c ================================================================ |
c ================================================================ |
129 |
c END OF HEADER TAMC |
c END OF HEADER TAMC |