9.217 PRESENT — Определить, указан ли дополнительный фиктивный аргумент

Описание:

Определяет, присутствует ли дополнительный фиктивный аргумент.

Стандарт:

Fortran 95 и более поздние версии

Класс:

Функция запроса

Синтаксис:

RESULT = PRESENT(A)

Аргументы:

A	Может быть любого типа и может быть указателем, скалярным или массивом, или фиктивной процедурой. Должен быть именем дополнительного фиктивного аргумента, доступного в текущем подпрограмме или функции.

Значение возврата:

Возвращает TRUE , если дополнительный аргумент A присутствует, или FALSE в противном случае.

Пример:

PROGRAM test_present
  WRITE(*,*) f(), f(42)      ! "F T"
CONTAINS
  LOGICAL FUNCTION f(x)
    INTEGER, INTENT(IN), OPTIONAL :: x
    f = PRESENT(x)
  END FUNCTION
END PROGRAM