CHARACTER CDATE*9, CTIME*8, MACHINE*10, TIN*80, UFILEIN*120,
     1	          UFILEOUT*120, HOMEDIR*120, CURRENT*120, TRANFILE*120
        COMMON /DTF/    CDATE, CTIME, MACHINE, TIN, UFILEIN, UFILEOUT,
     1		        HOMEDIR, CURRENT, TRANFILE