SUBROUTINE DATES(MMDDYY)
C
C****** SUB DATES SETS 8 CHARACTER STRING WITH DATE ******
C
	USE DFPORT
	CHARACTER*8 MMDDYY
	MMDDYY = DATE()
	RETURN
	END