subroutinemake_boolpureprivate
pure subroutine make_bool(truth, v)
Make a bool value.
Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
| truth | logical | in | the truth | |
| v | type(value_t) | out | the value |
Source
Show the code
pure subroutine make_bool(truth, v)
logical, intent(in) :: truth !! the truth
type(value_t), intent(out) :: v !! the value
v%kind = V_BOOL
v%number = merge(1, 0, truth)
end subroutine make_bool