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