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 — Получение количества аргументов командной строки

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