	SUBROUTINE WDAYID(WKDAY)
	IMPLICIT INTEGER(A-Z)
	INCLUDE 'WEEKLY.PRM'
	DIMENSION DAYX(7)
	DATA DAYX/'Mo','Tu','We','Th','Fr','Sa','Su'/
C
C	--GET DATE INFORMATION
C
	IYR = PLTST(1) !YEAR
	IMN = PLTST(2) !MONTH
	IDY = PLTST(3) !DAY
C
C	--GET DAY OF WEEK
C
	CALL CALDAY(IYR,IMN,IDY,I)
	IF (I .EQ. 0) I=7
	WKDAY = DAYX(I)
	RETURN
	END

