	SUBROUTINE DATOUT(DATX,DAY1,MONTHX)
	IMPLICIT INTEGER(A-Z)
	INCLUDE 'WEEKLY.PRM'
	INTEGER MONTH(12)
	DOUBLE PRECISION DAY(7),DAYX
	DATA MONTH/'Jan','Feb','Mar','Apr','May','Jun','Jul'
	1,'Aug','Sep','Oct','Nov','Dec'/
	DATA DAY/'MONDAY','TUESDAY','WENDESDAY','THURSDAY',
	1'FRIDAY','SATURDAY','SUNDAY'/
	MONTHX = MONTH(PLTST(2))
	DAY1 = PLTST(3)
	RETURN
	END

