8.98 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