8.126 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

© Free Software Foundation
Licensed under the GNU Free Documentation License, Version 1.3.
https://gcc.gnu.org/onlinedocs/gcc-13.3.0/gfortran/GET_005fENVIRONMENT_005fVARIABLE.html