C	FUNCTION PICKS UP LINC-MODE NEGATIVES
	FUNCTION LNEG(I)
	IF (I) 10,20,20
 10	LNEG=I+1
	RETURN
 20	LNEG=I
	RETURN
	END