hms_current_hms Subroutine

public subroutine hms_current_hms(h, m, s, mm)

HMS_CURRENT_HMS returns the current HMS time as integers.

Example:

If the current time is 9:45:54.872 AM, then

H = 9 M = 45 S = 54 MM = 872

Licensing:

This code is distributed under the GNU LGPL license.

Modified:

26 February 2005

Author:

John Burkardt

Parameters:

Output, integer ( kind = 4 ) H, M, S, MM, the current hour, minute, second, and thousandths of a second.

Arguments

Type IntentOptional AttributesName
integer(kind=4) :: h
integer(kind=4) :: m
integer(kind=4) :: s
integer(kind=4) :: mm

Called by

proc~~hms_current_hms~~CalledByGraph proc~hms_current_hms hms_current_hms proc~hms_delta_print hms_delta_print proc~hms_delta_print->proc~hms_current_hms

Contents

None