ikey = (act1 + 1) + act2*max1
ikey = 1
kkey = (ikey-1)*Nr + k
lockey_1 = (ikey-1)*Nr + k
icg2dkey = (ikey-1)*numItersMax + it2d
integer key, ikey
common /tamckeys/ key, ikey
ikey = (act3 + 1) + act4*max3