INTEGER*4 I,J
	DOUBLE PRECISION F
	DO 20 I = -70000,70000
	CALL	FLOT2(I,F)
	CALL	FIX2(F,J)
	IF( I .EQ. J .AND. I .EQ. F) GO TO 20
	WRITE(5,*) I,F,J
20	CONTINUE
	END