hms_2_s Function

public function hms_2_s(hms)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: hms

Return Value integer


Source Code

  integer function hms_2_s(hms)
    integer, intent(in) :: hms
    integer :: h, m, s

    h = hms/10000
    m = mod(hms, 10000)/100
    s = mod(hms, 100)

    hms_2_s = h*3600 + m*60 + s

  end function hms_2_s