CALL ITWAS(CHAR,STRING,NCHRS,ICHR) -- This subroutine
 determines the location of the character CHAR in the string STRING.
 FCTR: IT
 
 CHAR - Character to be matched.
 STRING - String of characters to which matching is to be done.
 NCHRS - Number of characters in above string.
 ICHR - Position at which match occurs.  If no match is found, then
	ICHR is set equal to NCHRS+1.
 
 Note: No distinction is made between cases, i.e. "a" = "A".  An easy way
 to match a word can be done by:
 
 	LOGICAL*1 IN(80)
	READ(5,10) NIN, IN
 10	FORMAT(Q,80A1)
	IF( N .EQ. 0 ) GO TO 1100
	DO 1000 I=1,NIN
	CALL ITWAS( IN(I), 'AWORD', 5, ITIS )
 1000	IF( ITIS .NE. I ) GO TO 1100
 C
 C - MATCHES WORD.
	.
	.
	.
 C
 C - DOESN'T MATCH WORD.
 1100	CONTINUE
 
 The only restriction is that the letters in the word must be
 unique in that word.  A word can have a space in it.