LOGICAL FUNCTION BLANK(STRING,BLCHAR) C C Function to see if entire STRING (null terminated) contains C just the blank character BLCHAR. Set to if so. C IMPLICIT INTEGER (A-Z) BYTE STRING(1),BLCHAR(1) C BLANK = .TRUE. I = 1 5 IF (STRING(I).EQ.0) RETURN IF (STRING(I).NE.BLCHAR(1)) THEN BLANK = .FALSE. RETURN ELSE I = I+1 GO TO 5 ENDIF END