C C C----------------------------------------------------------------------------- C C FUNCTION: CHMSTS C C AUTHOR: Jan H. Belgraver C C DATE: 25-MAY-82 C C PURPOSE: Modified from program HMSTOS. C Function converting time in H, M and S into seconds. C C ARGUMENTS: C I IH - hours C I IM - minutes C I IS - seconds C O CHMSTS - seconds (Integer*4) C C----------------------------------------------------------------------------- C C C C FUNCTION CHMSTS (IH, IM, IS) C C INTEGER*4 CHMSTS, ISEC ISEC = IH ISEC = ISEC*3600 + IM*60 + IS CHMSTS = ISEC RETURN END