SUBROUTINE TIMER(IFLAG,TIMES)
C
C	SUBROUTINE TO SUPPLY THE TIME OF DAY AND/OR THE
C	ELAPSED TIME OF AN EVENT.
C
C	IFLAG = 0 RETURN TIME OF DAY AND RESET ELAPSED CLOCK TO ZERO
C	IFLAG = 1 RETURN ELAPSED TIME SINCE LAST RESET
C
C	TIMES ARE RETURNED IN A 2 ELEMENT REAL ARRAY - TIMES
C	THE OUTPUT IS IN 'A' FORMAT 2A4 AS FOLLOWS:
C		HH:MM:SS
C
	CHARACTER*8 TIMES
	INTEGER HH,SS
	IF (IFLAG.EQ.0) THEN
	   T1 = SECNDS(0.)			! Reset clock
	   TIMES = ' 0: 0: 0'			! Return zero time
	ELSE
	   T1 = SECNDS(T1)			! Get elapsed time
	   HH = T1/3600.			! Convert to HH:MM:SS
	   MM = AMOD(T1,3600.)/60.
	   SS = AMOD(T1,60.)+0.5
	   ENCODE(8,1,TIMES) HH,MM,SS
1	   FORMAT (I2,':',I2,':',I2)
	ENDIF
	RETURN
	END