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