Bitwise 'AND' over two integer of kind 8
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer(kind=8), | intent(in) | :: | a | |||
integer(kind=8), | intent(in) | :: | b |
function int8_and_int8(a, b) result(r)
!< Bitwise 'AND' over two integer of kind 8
implicit none
integer(kind=8), intent(in) :: a
integer(kind=8), intent(in) :: b
integer(kind=8) :: r
r = iand(a, b)
end function int8_and_int8