	
	call lib$day(x,0)

	print *, x
