Developer Guide and Reference

ID 767251
Date 10/31/2024
Public
Document Table of Contents

GETTIM

Portability Subroutine: Returns the time.

Module

USE IFPORT

CALL GETTIM (ihr, imin, isec, i100th)

ihr

(Output) INTEGER(4) or INTEGER(2). Hour (0-23).

imin

(Output) INTEGER(4) or INTEGER(2). Minute (0-59).

isec

(Output) INTEGER(4) or INTEGER(2). Second (0-59).

i100th

(Output) INTEGER(4) or INTEGER(2). Hundredths of a second (0-99).

All arguments must be of the same integer kind, that is, all must be INTEGER(2) or all must be INTEGER(4).

If INTEGER(2) arguments are passed, you must specify USE IFPORT.

Example

See the example in GETDAT.