"	SUBROUTINE FNDFRST (STRING, IPNT)KC_TITLE  FNDFRST  Subroutine to find first non-blank character in a string.C_ARGUMENTS8	CHARACTER*(*) STRING ! [I]  String of ASCII characters.@	INTEGER IPNT	     ! [O]  Position of first non blank character.KC_DESCRIPTION Searches a character string searching for the first non blankNC character in the string, and returning that position to the calling routine.C	C_CALLS 08C_HISTORY  R.Gurule  85Jan28  USGS  Flagstaff, AZ. 86001C_END	CHARACTER*1 SPACE	DATA SPACE/' '/	LENGTH=LEN(STRING)	DO 100 I=1,LENGTH		  IPNT=I$	  IF(STRING(I:I).NE.SPACE)GO TO 110  100	  CONTINUE  110   CONTINUE	RETURN	END