Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | hms |
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