FUNCTION KINPUT(MODE,IERR)
C	KINPUT EQUALS FINPUT ROUNDED TO INTEGER
	R=FINPUT(MODE,IERR)
	IF (R) 10,20,30
10	K=R-0.5
	GO TO 40
20	K=0
	GO TO 40
30	K=R+0.5
40	KINPUT=K
	RETURN
	END