PROGRAM editnear

c	Edits near2.out

	CHARACTER*120	line

	OPEN (unit=1, form='FORMATTED', status='OLD', readonly,
	1	file='near2.edit.2')
	OPEN (unit=2, form='FORMATTED', status='UNKNOWN', 
	1	file='near2.edit',carriagecontrol='LIST')

	DO WHILE (.TRUE.)
1	  READ (1, 1000, end=9) line
1000	  FORMAT (4a)
	  ll = length(line)

	  IF (line(18:20) .NE. 'WAT' .AND. line(72:72) .EQ. '.') THEN
	    READ (line(67:74), 1001) dd
1001	    FORMAT (f8.2)
	    IF (dd .GT. 3.6) GOTO 1
	  endIF

	  IF (ll .GE. 10) THEN
	    WRITE (2, 1000) line(1:ll), '	', '	'
	  ELSE
	    WRITE (2, 1000) line(1:ll)
	  endIF
	endDO

9	CLOSE (unit=1)
	CLOSE (unit=2)
	end

        INTEGER FUNCTION length(line)

        CHARACTER*120   line

        DO i = 85,1,-1
          IF (line(i:i) .NE. ' ') goto 9
        endDO

9       length = i

        return
        end