SETTIM

Portability Function: Sets the system time in your programs. This function is only available on Windows* and Linux* systems.

Module

USE IFPORT

result = SETTIM (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).

The result type is LOGICAL(4). The result is .TRUE. if the system time is changed; .FALSE. if no change is made.

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.

On Linux systems, you must have root privileges to execute this function.

 USE IFPORT
 LOGICAL(4) success
 success = SETTIM(INT2(21),INT2(53+3),&
                  INT2(14*2),INT2(88))
 END