C..   SPAN.FTN   BOHDEN K. CMAYLO   *
C..
	SUBROUTINE SPAN(IN,IST,LST,ISTCHA,LSTCHA,IST1,LST1)
C..
C..	THIS ROUTINE SPANS A STRING UNTIL IT FINDS A STRING BETWEE
C..	ISTCHA AND LSTCHA
C..
C..	BOHDEN K. CMAYLO   FEB 1981
C..
C..	INITIALIZE
C..
	BYTE IN(30),ISTCHA,LASCHA
	IST1=IST
	LST1=IST
C..
C..	SEE IF FIRST CHAR FOUND
C..
	DO 1 I=IST,LST
	IF(IN(I).EQ.ISTCHA) GO TO 2
1	CONTINUE
C..
C..	NO FOUND, SEE IF IST =1, IF SO, IGNORE ISTCHA
C..
	IF(IST.NE.1) GO TO 100
C..
C..	LOOK FOR SECOND CHAR
C..
2	I=I+1
	JJ=0
	DO 3 J=I,LST
	IF(IN(J).EQ.LASCHA) GO TO 4
	IF(JJ.EQ.0.AND.IN(J).EQ.' ') JJ=J
3	CONTINUE
C..
C.. NOT FOUND, SET TO FIRST BLANK FOUND, IF ANY
C..
	IF(JJ.EQ.0) GO TO 100
	J=JJ
C..
C..	TRANSFER VALUES TO PARAMETERS
C..
4	IST1=I
	LST1=J-1
100	RETURN
	END