C..   STRCHK.FTN   BOHDEN K. CMAYLO   NOV 81
C..
C..	ROUTINE CHECKS STRING FOR SUBSTRING
	SUBROUTINE STRCHK(IN,LEN,INALL,ISIZE,IOK)
	BYTE IN(1),INALL(1)
C..  SET TO NO FOUND
	IOK=0
	IF(LEN.GT.ISIZE) RETURN
	DO 1 I=1,ISIZE
C..  CHECK FOR FIRST CHARACTER
	IF(IN(1).NE.INALL(I)) GO TO 1
C..  FOUND, SEE IF ONLY ONE CHARACTER
	IF(LEN.EQ.1) GO TO 3
C..  CHECK FOR REST OF STRING
	DO 2 J=2,LEN
	ISIZE2=I+J-1
	IF(ISIZE2.GT.ISIZE) RETURN
	IF(IN(J).NE.INALL(ISIZE2)) GO TO 1
2	CONTINUE
C..  FOUND, SET TO IOK = CHARACTER POSITION
3	IOK=I
	RETURN
1	CONTINUE
C..  NOT FOUND, RETURN EMPTY
	RETURN
	END