9.47 BTEST — Функция проверки бита

Описание:

BTEST(I,POS) возвращает логическое значение .TRUE. , если бит в позиции POS в I установлен. Счёт бит начинается с 0.

Стандарт:

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

Класс:

Элементарная функция

Синтаксис:

RESULT = BTEST(I, POS)

Аргументы:

I	Тип должен быть INTEGER.
POS	Тип должен быть INTEGER.

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

Возвращаемое значение имеет тип LOGICAL

Пример:

program test_btest
    integer :: i = 32768 + 1024 + 64
    integer :: pos
    logical :: bool
    do pos=0,16
        bool = btest(i, pos) 
        print *, pos, bool
    end do
end program test_btest