9.16 AND — Побитовое логическое И

Описание:

Побитовое логическое AND.

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

Стандарт:

Расширение GNU

Класс:

Функция

Синтаксис:

RESULT = AND(I, J)

Аргументы:

I	Тип должен быть либо скалярным INTEGER типом, либо скалярным LOGICAL типом, либо константой-бозовой-литеральной.
J	Тип должен быть таким же, как тип I, или константой-бозовой-литеральной. I и J не должны быть одновременно константами-бозовыми-литеральными. Если I или J является константой-бозовой-литеральной, то другой аргумент должен быть скалярным INTEGER.

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

Тип возвращаемого значения — либо скалярный INTEGER тип, либо скалярный LOGICAL тип. Если параметры типа kind различаются, то тип меньшего kind неявно преобразуется в тип большего kind, и возвращаемое значение имеет больший kind. Константа-бозовая-литеральная преобразуется в INTEGER с параметром kind типа другого аргумента, как если бы был выполнен вызов INT.

Пример:

PROGRAM test_and
  LOGICAL :: T = .TRUE., F = .FALSE.
  INTEGER :: a, b
  DATA a / Z'F' /, b / Z'3' /

  WRITE (*,*) AND(T, T), AND(T, F), AND(F, T), AND(F, F)
  WRITE (*,*) AND(a, b)
END PROGRAM

См. также:

Элементарная функция Fortran 95: IAND