itime_ サブルーチンは、秒、分、時間が入った数値形式で現在の時刻を ITIME_STRUCT に戻します。
例
TYPE IAR SEQUENCE INTEGER(4) IHR INTEGER(4) IMIN INTEGER(4) ISEC END TYPE TYPE (IAR) ITIME_STRUCT CALL itime_(ITIME_STRUCT)