C -- DCNVT.FOR C C -- BINARY TO OCTAL ROUTINE C SUBROUTINE DCNVT(ARG,N,IARG) LOGICAL*1 ARG(1) DATA MASK/7/ I=IARG J=N DO 10 K=1,N ARG(J)=I.AND.MASK CALL RTR3(I,IR) I=IR J=J-1 10 CONTINUE RETURN END