SUBROUTINE DTB(KP,II,JJ,KK,LL) COMMON/A/ IB(512,8) DIMENSION J(8) K=KP IF(K.GT.255) K=K-256 DO 1 IP=1,LL I=LL-IP J(IP)=K/(2**I) IF(J(IP)) 2,1,2 2 K=K-2**I 1 CONTINUE IA=0 IF(KK.NE.2.AND.LL.EQ.8) IA=4 4 DO 5 I=1,4 5 IB(II,I+JJ)=J(I+IA) RETURN END