C
C-----------------------------------------------------------------------------
C
C Program:	T H M S T S
C
C Author:	Jan H. Belgraver
C
C Date:		25-MAY-82
C
C Version:	V1.1	16-SEP-85
C
C Purpose:	Test program for function CHMSTS. 
C		Converts time in H, M and S into seconds.
C		ISEC = CHMSTS (IH, IM, IS)
C
C Calls to:	CHMSTS, CSTHMS
C
C LUNs:		5	TI:	I/O
C
C Building:	FOR	THMSTS
C		BLD	THMSTS
C
C Modified by:	Jan H. Belgraver	16-SEP-85	JB01	V1.1
C		Test also CSTHMS
C-----------------------------------------------------------------------------
C

C
C
	PROGRAM		T H M S T S
C
C
	INTEGER*2	ITIM(3)

	INTEGER*4	CHMSTS, ISEC

10	WRITE	(5,101)
101	FORMAT	(/'$Enter time in HH MM SS',T25,': ')
	READ	(5,102,END=999,ERR=10) NB, ITIM
102	FORMAT	(Q, I2,2(1X,I2))
	IF	(NB .EQ. 0) GOTO 999


	ISEC	= CHMSTS (ITIM(1), ITIM(2), ITIM(3) )
	WRITE	(5,105)	ISEC
105	FORMAT	(/' Time in seconds',T25,': ',I6)

	CALL	CSTHMS	(ISEC, ITIM(1), ITIM(2), ITIM(3))
	WRITE	(5,103)	ITIM
103	FORMAT	(/' Back to HH:MM:SS', T25, ': ', 3(I2,1X) )

	GOTO 10

999	STOP	'ABORTED'

	END