PDP-10 Archive: 43,50437/wdayid.for from decuslib10-06

Trailing-Edge - PDP-10 Archives - decuslib10-06 - 43,50437/wdayid.for

There are no other files named wdayid.for in the archive.

	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