subroutinemake_intpureprivate
pure subroutine make_int(number, v)
Make an integer value.
Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
| number | integer | in | the integer | |
| v | type(value_t) | out | the value |
Source
Show the code
pure subroutine make_int(number, v)
integer, intent(in) :: number !! the integer
type(value_t), intent(out) :: v !! the value
v%kind = V_INT
v%number = number
end subroutine make_int