Directory of image this file is from
This file as a plain text file

	SUBROUTINE OCTL(IN,N1,N2,N3,N4)
C CONVERTS THE INTEGER "IN" TO THE FOUR DIGIT OCTAL NUMBER N1,N2,N3,N4
C WHICH CAN BE PRINTED OUT WITH A 4I1-FORMAT
C FORTRAN II
C SR : SHIFT.FT / MASK.FT
	DIMENSION M(4)
	DO 1000 J=1,4
	L=3*(J-1)
	CALL SHIFT(IN,K,L)
	CALL MASK(K,KK,7)
1000	M(5-J)=KK
	N1=M(1)
	N2=M(2)
	N3=M(3)
	N4=M(4)
	RETURN
	END