byte_size_R16P Function

private elemental function byte_size_R16P(i) result(bytes)

Arguments

Type IntentOptional AttributesName
real(kind=R16P), intent(in) :: i

Real variable whose number of bytes must be computed.

Return Value integer(kind=I1P)

Number of bytes of r.

Description

Compute the number of bytes of a real variable.


Source Code

  elemental function byte_size_R16P(i) result(bytes)
  !---------------------------------------------------------------------------------------------------------------------------------
  !< Compute the number of bytes of a real variable.
  !---------------------------------------------------------------------------------------------------------------------------------
  real(R16P), intent(in) :: i     !< Real variable whose number of bytes must be computed.
  integer(I1P)           :: bytes !< Number of bytes of r.
  !---------------------------------------------------------------------------------------------------------------------------------

  !---------------------------------------------------------------------------------------------------------------------------------
  bytes = bit_size(i)/8_I1P
  return
  !---------------------------------------------------------------------------------------------------------------------------------
  endfunction byte_size_R16P