c *** Common file DTCXIDTATE for dummy IDATE subroutine of DTC program

	integer xim, xid, xiy, xibgyr	! Month, day, year (yy), year (yyyy)
	common /xidate/ xim, xid, xiy, xibgyr

c *** End DTCXIDATE.INC
