	function jdate(shf)
c	implicit undefined(a-z)
	real*8 jdate,shf
	jdate=(shf+9.466848d8)/86400.0d0+2433282.5d0
	return
	end
