Intel® Fortran Compiler Classic and Intel® Fortran Compiler Developer Guide and Reference

ID 767251
Date 11/07/2023
Public

A newer version of this document is available. Customers should click here to go to the newest version.

Document Table of Contents

SETDAT

Portability Function: Sets the system date. This function is only available on Windows* and Linux* systems.

Module

USE IFPORT

result = SETDAT (iyr, imon, iday)

iyr

(Input) INTEGER(2) or INTEGER(4). Year ( xxxxAD).

imon

(Input) INTEGER(2) or INTEGER(4). Month (1-12).

iday

(Input) INTEGER(2) or INTEGER(4). Day of the month (1-31).

Results

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

Actual arguments of the function SETDAT can be any valid INTEGER(2) or INTEGER(4) expression.

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.

Refer to your operating system documentation for the range of permitted dates.

NOTE:

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

Example

 USE IFPORT
 LOGICAL(4) success
 success = SETDAT(INT2(1997+1), INT2(2*3), INT2(30))
 END

See Also