SUBROUTINE DTO(LD)
	COMMON/B/ LO(3)
	L=LD
	DO 1 IP=1,3
	I=3-IP
	LO(IP)=L/(8**I)
2	L=L-LO(IP)*(8**I)
1	CONTINUE
	RETURN
	END