eps=1.
	do while(1+eps/2>1) ; eps=eps/2 ; end do

	tiny=1.
	do while(tiny/2>0) ; tiny=tiny/2 ; end do

	print *,'eps =',eps
	print *,'tiny=',tiny

	end