C*	STBLK - STRIP BLANKS
C
	SUBROUTINE STBLK (BF, BT, NCH)
C	WHERE
C		BF	- FROM VECTOR
C		BT	- TO VECTOR
C		NCH	- NUMBER OF CHARACTERS
C
C	STRIP BLANKS FROM BF AND MOVE TO BT
C	BF AND BT MAY BE THE SAME VECTOR.
C
C
C
C-
	BYTE BT(1), BF(1)
C
	IF (NCH .LE. 0) GO TO 400
	J = 1
	DO 100 I=1, NCH
	IF (BF(I) .EQ. ' ') GO TO 100
	BT(J) = BF(I)
	J = J + 1
 100	CONTINUE
C
	IF (J .GT. NCH) GO TO 400
	DO 200 I=J, NCH
 200	BT(I) = ' '
C
 400	RETURN
	END