LOGICAL FUNCTION SETENVVAR( LNAME, VALUE )
CHARACTER*(*) LNAME
CHARACTER*(*) VALUE
Use C standard library function putenv() instead.
SETENVVARsets the environment variable namedLNAMEtoVALUE. ReturnsTRUEon success,FALSEon failure (which may be caused by not being able to allocate environment space).See also environment-variable access routines
ENVDBLE,
ENVINT,
ENVREAL,
ENVSTR,
ENVYN, and
NAMEVAL.
LNAMEandVALUEhave length at most the current system-dependent limit. (NOTE: POSIX says that environment variables may have lengths of up to at least 256.).LNAMEdoes not have any embedded blanks (enviromnent variables whose names have embedded blanks are currently permitted but inaccessible under UNIX.). The current version ofSETENVVARdoes not check for this effect.
...
CHARACER*16 NAME
CHARACTER*256 VALUE
...
LOGICAL SETENVVAR
EXTERNAL SETENVVAR
...
NAME = 'FOO'
VALUE = 'Whatever value I want "FOO" to have'
IF ( .NOT. SETENVVAR( NAME, VALUE ) ) THEN
!! process the error: this operation failed.
...
END IF
...
To: Models-3/EDSS I/O API: The Help Pages