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

Описание:

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

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

Стандарт:

Расширение GNU

Класс:

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

Синтаксис:

CALL GETARG(POS, VALUE)

Аргументы:

POS	Должен быть типа INTEGER и не шире, чем стандартный целочисленный тип; POS \geq 0
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