9.215 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