SUBROUTINE GICHR(STR,CHR,IND)
	LOGICAL*1 STR(2),CHR
	INTEGER*2 IND
C BEGIN
	CALL LENSTR(STR,LEN)
	DO 1000 I=1,LEN
	IF(STR(I).NE.CHR)GO TO 1000
	IND=I
	RETURN
1000	CONTINUE
	IND=0
	END