Bitwise 'OR' over two integer of kind 4
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer(kind=4), | intent(in) | :: | a | |||
integer(kind=4), | intent(in) | :: | b |
function int4_or_int4(a, b) result(r)
!< Bitwise 'OR' over two integer of kind 4
implicit none
integer(kind=4), intent(in) :: a
integer(kind=4), intent(in) :: b
integer(kind=4) :: r
r = ior(a, b)
end function int4_or_int4