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

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

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

	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