INTEGER*4 I
1	write(5,1000)
1000	FORMAT('$Enter floating point number ')
	READ(5,*) A
	CALL	FIX2(A,I)
	CALL	FLOT2(I,B)
	WRITE(5,*) A,I,B
	GO TO 1
	END