The itime_ subroutine returns the current time in a numerical form containing seconds, minutes, and hours in ITIME_STRUCT.
Subroutine
TYPE IAR SEQUENCE INTEGER(4) IHR INTEGER(4) IMIN INTEGER(4) ISEC END TYPE TYPE (IAR) ITIME_STRUCT