9.117 GET_ENVIRONMENT_VARIABLE — Получение переменной окружения

Описание:

Получение значения (VALUE) переменной окружения (NAME).

Обратите внимание, что GET_ENVIRONMENT_VARIABLE не обязательно является потокобезопасным. Пользователь несёт ответственность за обеспечение того, чтобы окружение не обновлялось одновременно с вызовом GET_ENVIRONMENT_VARIABLE внутреннего объекта.

Стандарт:

Fortran 2003 и более поздние версии

Класс:

Подпрограмма

Синтаксис:

CALL GET_ENVIRONMENT_VARIABLE(NAME[, VALUE, LENGTH, STATUS, TRIM_NAME)

Аргументы:

NAME	Должна быть скалярным типом CHARACTER и стандартного размера.
VALUE	(Необязательно) Должна быть скалярным типом CHARACTER и стандартного размера.
LENGTH	(Необязательно) Должна быть скалярным типом INTEGER и стандартного размера.
STATUS	(Необязательно) Должна быть скалярным типом INTEGER и стандартного размера.
TRIM_NAME	(Необязательно) Должна быть скалярным типом LOGICAL и стандартного размера.

Возвращаемое значение:

Сохраняет значение NAME в VALUE. Если VALUE недостаточно велик для хранения данных, он усекается. Если NAME не задано, VALUE будет заполнен пробелами. Аргумент LENGTH содержит необходимую длину для хранения переменной окружения NAME или ноль, если она не существует. STATUS равен -1, если VALUE присутствует, но слишком короткий для переменной окружения; он равен 1, если переменная окружения не существует, и 2, если процессор не поддерживает переменные окружения; во всех остальных случаях STATUS равен нулю. Если TRIM_NAME присутствует со значением .FALSE., хвостовые пробелы в NAME имеют значение; в противном случае они не являются частью имени переменной окружения.

Пример:

PROGRAM test_getenv
  CHARACTER(len=255) :: homedir
  CALL get_environment_variable("HOME", homedir)
  WRITE (*,*) TRIM(homedir)
END PROGRAM