C..   RIDCHA.FTN   BOHDEN K. CMAYLO   NOV 81
C..
C..  ROUTINE GETS RID OF RANGE OF CHARACTERS
C..
	SUBROUTINE RIDCHA(INARR,INNUMB,INGE,INLE)
C..
C..	THIS ROUTINE REPLACES A RANGE OF STUFF BY BLANKS
C..
	BYTE INARR(1),INLE,INGE,IBLANK
	DATA IBLANK/' '/
C..
	NUMBER=INNUMB
C..	TRANSFER FOR - (GET RID OF EVERYTHING BUT)
	IF(INNUMB.LT.0) GO TO 50
C..  GET RID OF RANGE
	DO 1 I=1,NUMBER
	IF(INARR(I).GE.INGE.AND.INARR(I).LE.INLE) INARR(I)=IBLANK
1	CONTINUE
	RETURN
50	CONTINUE
	NUMBER=-NUMBER
C..  GET RID OF EVERYTHING BUT
	DO 2 I=1,NUMBER
	IF(INARR(I).LT.INGE.OR.INARR(I).GT.INLE) INARR(I)=IBLANK
2	CONTINUE
	RETURN
	END