105 |
integer iloop_daily |
integer iloop_daily |
106 |
|
|
107 |
INTEGER isbyte |
INTEGER isbyte |
108 |
|
#ifdef ALLOW_TAMC_SINGLEPREC_COMLEV |
109 |
|
PARAMETER( isbyte = 4 ) |
110 |
|
#else |
111 |
PARAMETER( isbyte = 8 ) |
PARAMETER( isbyte = 8 ) |
112 |
|
#endif |
113 |
INTEGER maximpl |
INTEGER maximpl |
114 |
PARAMETER( maximpl = 6 ) |
PARAMETER( maximpl = 6 ) |
115 |
#ifdef ALLOW_PTRACERS |
#ifdef ALLOW_PTRACERS |
126 |
INTEGER act0, act1, act2, act3, act4 |
INTEGER act0, act1, act2, act3, act4 |
127 |
INTEGER max0, max1, max2, max3 |
INTEGER max0, max1, max2, max3 |
128 |
INTEGER iikey, kkey, passkey, igadkey, |
INTEGER iikey, kkey, passkey, igadkey, |
129 |
& itdkey, idynkey, igmkey, ikppkey |
& itdkey, idynkey, igmkey |
130 |
|
|
131 |
#ifdef ALLOW_DEPTH_CONTROL |
#ifdef ALLOW_DEPTH_CONTROL |
132 |
C Parameter that is needed for the tape complev_cg2d_iter |
C Parameter that is needed for the tape complev_cg2d_iter |