Intel® Fortran Libraries Reference

Descriptions of the Library Routines 2Actual arguments of the function SETDAT can be any valid INTEGER(2) or INTEGER(4)expression.Refer to your operating system documentation for the range of permitted dates.CompatibilityCONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIBSee Also: “GETDAT”, “GETTIM”, “SETTIM”ExampleUSE IFPORTLOGICAL(4) successsuccess = SETDAT(INT2(1997+1), INT2(2*3), INT2(30))ENDSETENVQQPortability Function: Sets the value of an existing environment variable, or adds and sets a newenvironment variable.Module: USE IFPORTSyntaxresult = SETENVQQ (varname = value)varname = value(Input) Character*(*). String containing both the name and the value of the variable to be added ormodified. Must be in the form: varname = value, where varname is the name of an environmentvariable and value is the value being assigned to it.Results:The result is of type LOGICAL(4). The result is .TRUE. if successful; otherwise, .FALSE..Environment variables define the environment in which a program executes. For example, the LIBenvironment variable defines the default search path for libraries to be linked with a program.SETENVQQ deletes any terminating blanks in the string. Although the equal sign (=) is an illegalcharacter within an environment value, you can use it to terminate value so that trailing blanks arepreserved. For example, the string PATH= = sets value to ''.You can use SETENVQQ to remove an existing variable by giving a variable name followed by anequal sign with no value. For example, LIB= removes the variable LIB from the list ofenvironment variables. If you specify a value for a variable that already exists, its value ischanged. If the variable does not exist, it is created.2-397