C..   RIDBLK.FTN   BOHDEN K. CMAYLO   APR 81
C..
C..  ROUTINE SQUEEZES OUT BLANKS
C..
	SUBROUTINE RIDBLK(INPUT,IQ)
	BYTE INPUT(IQ),IBLANK
	DATA IBLANK/' '/
	J=0
	DO 1 I=1,IQ
	IF(INPUT(I).EQ.IBLANK) GO TO 1
	J=J+1
	INPUT(J)=INPUT(I)
1	CONTINUE
	IF(J.EQ.IQ) RETURN
	J=J+1
	DO 2 I=J,IQ
	INPUT(I)=IBLANK
2	CONTINUE
	RETURN
	END