C PROGRAM OCTL.FT C --------------- C C C C C C OS/8 FORTRAN II INTEGER LOGICAL ARITHMETIC SUBROUTINES C ------------------------------------------------------- C C C C C PETER LEMKIN C NATIONAL INSTITUTES OF HEALTH C BETHESDA, MD 20014 C C C NOV 8, 1972 C REVISED DEC 4, 1972 C C ABSTRACT C -------- C THE OS/8 FORTRAN II SUBROUTINES "OCTL", "SHIFT", AND "ANDB" C LET THE FORTRAN USER PERFORM BIT MANIPULATION FROM FORTRAN C WITHOUT USING SABR CODE. C C C**PAGE C C C C C C C C OS/8 PROGRAM TO CONVERT DECIMAL TO OCTAL PRINT DIGITS C ------------------------------------------------------ C C SUBROUTINE OCTL(IN,N1,N2,N3,N4) C C C C C C C C INTRODUCTION C -------------- C "OCTL" CONVERTS THE INTEGER "IN" TO THE 4 DIGIT OCTAL C NUMBER (N1,N2,N3,N4) WHICH CAN BE PRINTED WITH A 4I1 FORMAT C SPECIFICATION. C C C C ARGUMENTS C --------- C 1. IN - THE INPUT INTEGER C 2. N1 - THE 1000 OCTAL DIGIT C 3. N2 - THE 100 OCTAL DIGIT C 4. N3 - THE 10 OCTAL DIGIT. C 5. N4 - THE 1 OCTAL DIGIT. C C C C C C SUBROUTINES USED C ---------------- C 1. SHIFT - BIT SHIFT C 2. ANDB - LOGICAL AND. C C C C DIMENSION M(4) DO 10 J=1,4 L=3*(J-1) CALL SHIFT(IN,K,L) CALL ANDB(K,KK,7) 10 M(5-J)=KK N1=M(1) N2=M(2) N3=M(3) N4=M(4) RETURN END