9.118 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

Далее: GETGID, Предыдущее: GETENV, Вверх: Внутренние процедуры [Оглавление][Индекс]