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

Описание:

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

Этот встроенный процедурный модуль предоставляется для обратной совместимости с GNU Fortran 77. В новом коде программисты должны рассмотреть использование встроенной функции GET_COMMAND_ARGUMENT, определённой стандартом Fortran 2003.

Стандарт:

Расширение GNU

Класс:

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

Синтаксис:

CALL GETARG(POS, VALUE)

Аргументы:

POS	Должен быть типа INTEGER и не шире, чем стандартный целочисленный тип; POS \geq 0
VALUE	Должен быть типа CHARACTER и стандартного размера.
VALUE	Должен быть типа CHARACTER.

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

После того, как GETARG завершит выполнение, аргумент VALUE содержит POS-й аргумент командной строки. Если VALUE не может вместить аргумент, он усекается до длины VALUE. Если указано меньше, чем POS аргументов в командной строке, VALUE заполняется пробелами. Если POS = 0, VALUE устанавливается в имя программы (на системах, которые поддерживают эту функцию).

Пример:

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

  DO i = 1, iargc()
    CALL getarg(i, arg)
    WRITE (*,*) arg
  END DO
END PROGRAM

См. также:

Функция совместимости GNU Fortran 77: IARGC

Функции и подпрограммы Fortran 2003: GET_COMMAND, GET_COMMAND_ARGUMENT, COMMAND_ARGUMENT_COUNT