Feed one byte: 1 for true, 0 for false.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer(kind=int32), | intent(inout) | :: | state | |||
| logical, | intent(in) | :: | value |
Value to encode. |
pure subroutine feed_logical(state, value) !! Feed one byte: 1 for true, 0 for false. integer(int32), intent(inout) :: state logical, intent(in) :: value !! Value to encode. if (value) then call feed_integer(state, 1_int64, 1_default_int) else call feed_integer(state, 0_int64, 1_default_int) end if end subroutine feed_logical