8.193 POPPAR — Чётность числа установленных битов

Описание:

POPPAR(I) возвращает чётность целого числа I, т. е. чётность числа установленных битов ('1' битов) в двоичном представлении I. Она равна 0, если I имеет чётное число установленных битов, и 1 при нечётном числе битов '1'.

Стандарт:

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

Класс:

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

Синтаксис:

RESULT = POPPAR(I)

Аргументы:

I	Должен быть типа INTEGER.

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

Значение возврата имеет тип INTEGER и стандартный целочисленный тип.

См. также:

POPCNT, LEADZ, TRAILZ

Пример:

program test_population
  print *, popcnt(127),       poppar(127)
  print *, popcnt(huge(0_4)), poppar(huge(0_4))
  print *, popcnt(huge(0_8)), poppar(huge(0_8))
end program test_population