SUBROUTINE DAYTIM(ADAT,IDAY,ATIM)
C
C
C  COMPONENT:	DAYTIM
C
C  DATE:	28-JUN-79
C
C  AUTHOR:	GR JOHNSON
C		BATTELLE NORTHWEST
C		P O BOX 999
C		RICHLAND WA 99352
C
C  SOURCE:	FORTRAN IV-PLUS
C
C  CALLING SEQUENCE:
C
C		CALL DAYTIM(ADAT,IDAY,ATIM)
C
C		ADAT	= ARRAY TO RECEIVE THE 9-BYTE ASCII DATE.
C
C		IDAY	= VARIABLE TO RECEIVE AN INTEGER VALUE
C			  REPRESENTING THE CURRENT DAY-OF-WEEK.
C			  (1=SUN,2=MON,3=TUE,4=WED,5=THU,6=FRI,7=SAT)
C
C		ATIM	= ARRAY TO RECEIVE THE 8-BYTE ASCII TIME-OF-DAY.
C
C
C  DESCRIPTION:
C
C	"DAYTIM" RETURNS THE CURRENT DATE, TIME AND DAY-OF-WEEK.
C
C

C	E N T R Y   P O I N T
C
	BYTE	ADAT(9)
	INTEGER	IDAY
	BYTE	ATIM(8)
C
 10	CALL TODAY(IDAY)
	CALL DATE(ADAT)
	CALL TIME(ATIM)
	CALL TODAY(JDAY)
	IF(IDAY.NE.JDAY) GO TO 10
C
	RETURN
	END