LOGICAL*1 FUNCTION CHECK_EOLN()
	IMPLICIT NONE
C
C   Module:	CHECK_EOLN
C
C   Original:	George H. Walrod III
C
C   Purpose:	To Skip Spaces, Tabs and Check End of Line
C
C   Arguments:
C		None
C
C   Corrected Modification:
C		None
C   Notes:
C		None
C
*

	CHARACTER
     +		AUTO_SKIP*2  /' 	'/	! Auto Skip

*
	INCLUDE	'WATCHREC.INC'
*
	CHECK_EOLN = .false.

	DO WHILE ((RECORD_PTR .le. INPUT_LEN) .and.
     +	   (INDEX(AUTO_SKIP,RECORD(RECORD_PTR:RECORD_PTR)) .ne. 0))
	  RECORD_PTR = RECORD_PTR + 1
	 END DO

	IF (RECORD_PTR .gt. INPUT_LEN) CHECK_EOLN = .true.
	RETURN
	END