subroutine dayoyr	(	integer	iyr,
		integer	imo,
		integer	idy,
		integer	ldy
	)