8.195 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