C -- CNVT.FOR C C -- CONVERSION ROUTINE OCTAL (ASCII) TO BINARY. C SUBROUTINE CNVT(ARG,N,IARG,IER) LOGICAL*1 ARG(1),K0,KBL DATA K0/"60/ DATA KBL/"40/ IARG=0 IER=0 DO 10 I=1,N IDG=ARG(I)-K0 IF((IDG.LT.0).OR.(IDG.GT.7))GOTO 20 IARG=(IARG*8).OR.IDG 10 CONTINUE 15 RETURN 20 IF(ARG(I).EQ.KBL)GOTO 15 IER=1 RETURN END