8.123 GET_COMMAND_ARGUMENT — Получение аргументов командной строки

Описание:

Извлекает NUMBER-й аргумент, переданный в командной строке при вызове содержащей программы.

Стандарт:

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

Класс:

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

Синтаксис:

CALL GET_COMMAND_ARGUMENT(NUMBER [, VALUE, LENGTH, STATUS])

Аргументы:

NUMBER	Должен быть скалярным типом INTEGER и стандартного размера, NUMBER \geq 0
VALUE	(Необязательно) Должен быть скалярным типом CHARACTER и стандартного размера.
LENGTH	(Необязательно) Должен быть скалярным типом INTEGER и стандартного размера.
STATUS	(Необязательно) Должен быть скалярным типом INTEGER и стандартного размера.

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

После того, как GET_COMMAND_ARGUMENT вернётся, аргумент VALUE содержит NUMBER-й аргумент командной строки. Если VALUE не может вместить аргумент, он усекается до длины VALUE. Если в командной строке указано меньше NUMBER аргументов, VALUE будет заполнен пробелами. Если NUMBER = 0, VALUE устанавливается в имя программы (на системах, которые поддерживают эту функцию). Аргумент LENGTH содержит длину NUMBER-го аргумента командной строки. Если извлечение аргумента завершается неудачно, STATUS — положительное число; если VALUE содержит усечённый аргумент командной строки, STATUS — -1; в противном случае STATUS — ноль.

Пример:

PROGRAM test_get_command_argument
  INTEGER :: i
  CHARACTER(len=32) :: arg

  i = 0
  DO
    CALL get_command_argument(i, arg)
    IF (LEN_TRIM(arg) == 0) EXIT

    WRITE (*,*) TRIM(arg)
    i = i+1
  END DO
END PROGRAM

См. также:

GET_COMMAND, COMMAND_ARGUMENT_COUNT