C
C
C-----------------------------------------------------------------------------
C
C	SUBROUTINE:	C S T H M S
C
C	AUTHOR:		Jan H. Belgraver
C
C	DATE:		25-MAY-82
C
C	VERSION:	1.1	20-APR-83
C
C	MODIFIED BY:	Jan H. Belgraver	20-APR-83	JB01	V1.1
C			Added this documentation header.
C
C	PURPOSE:	Converts seconds into integer values for 
C			hours, minutes and seconds.
C
C	DESCRIPTION:	
C
C	BATCH:		No
C
C	INPUT FILES:	None
C
C	OUTPUT FILES:	None
C
C	LUNS:		None
C
C	EVENT FLAGS:	None
C
C	CALL:		CALL	CSTHMS	(ISEC, IH, IM, IS)
C
C	ARGUMENTS:	NAME		DESCRIPTOIN
C	    I		ISEC	Seconds (I*4)
C	    O		IH	Hours
C	    O		IM	Minutes
C	    O		IS	Seconds
C
C	CALLS TO:	None
C
C	PARAMETERS:	NAME		DESCRIPTION
C
C	BUILDING:	None
C
C-----------------------------------------------------------------------------
C
C

C
C
	SUBROUTINE	CSTHMS	(ISEC, IH, IM, IS)
C
C
	INTEGER*4	ISEC


	IRESTH	= MOD	(ISEC, 3600)
	IH	= (ISEC - IRESTH) / 3600

	IRESTM	= MOD	(IRESTH, 60)
	IM	= (IRESTH - IRESTM) / 60

	IS	= IRESTM


	RETURN
	END