C..   INPUTC.FTN   BOHDEN K. CMAYLO  APR 81
C..
C.. ROUTINE BREAKS UP FREE FORMAT STRINGS BY COMMA OR BLANK
C..
	SUBROUTINE INPUTC(INPUT,IQ,IST,LST)
	BYTE INPUT(80),IBLANK,ICOMMA
	DATA IBLANK,ICOMMA/' ',','/
C.. CHECK FOR BIGGER THAN INPUT AND FOR FIRST NON BLANK
	LST=LST+2
	IF(LST.GT.IQ) GO TO 2
	DO 1 I=LST,IQ
	IF(INPUT(I).NE.IBLANK) GO TO 3
1	CONTINUE
C.. NO DATA LEFT
2	LST=-1
	RETURN
C.. DATA FOUND, TEST FOR END
3	IST=I
	DO 4 I=IST,IQ
	IF(INPUT(I).EQ.IBLANK.OR.INPUT(I).EQ.ICOMMA) GO TO 5
4	CONTINUE
C.. ALL DATA LEFT
	LST=IQ
	RETURN
C.. SOME DATA LEFT
5	LST=I-1
	RETURN
	END