	SUBROUTINE SQUEEZ(A,LA,N1)
C	ROUTINE SQUEEZES OUT OF A ALL GROUPS OF N OR MORE BLANKS
C	LA IS LENGTH OF A
	CHARACTER A
	N=N1
	IF(N.LT.0) N=0
	IF(N.GT.LA) N=LA
	I=0
5	L=I+1
1	I=INDEX(A(L:LA),' ')
	IF(I.EQ.0) GOTO 6
	I=I+L-1
	DO 2 J=I,I+N-1
	IF(A(J:J).NE.' ') GOTO 5
2	CONTINUE
C	HAVE GROUP OF AT LEAST N BLANKS STARTING AT POSITION I
C	SEARCH FOR ADDITIONAL BLANKS IN THE GROUP
	M=I+N
3	IF(A(M:M).NE.' ') GOTO 4
	M=M+1
	IF(M.GT.LA) GOTO 6
	GOTO 3
4	A(I:LA)=A(M:LA) ! SQUEEZE OUT BLANK GROUP
	GOTO 5
6	RETURN
	END
