8.100 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