FUNCTION IBLEN (BLINE) C DETERMINE THE LENGTH OF THE LINE AS TERMINATED BY A 0. C C BLINE THE INPUT LINE (MUST END WITH ZERO BYTE) C IMPLICIT BYTE (B), LOGICAL*1 (L) DIMENSION BLINE(1) IBLEN = 1 10 IF (BLINE(IBLEN) .EQ. 0) GOTO 20 IBLEN = IBLEN + 1 GOTO 10 20 IBLEN = IBLEN - 1 RETURN END