byte_size_R4P Function

  1. penf.F90
  2. penf_b_size
  3. byte_size_R4P

private elemental function byte_size_R4P(i) result(bytes)

Arguments

Type IntentOptional AttributesName
real(kind=R4P), 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.

Called By

proc~~byte_size_r4p~~CalledByGraph proc~byte_size_r4p byte_size_R4P interface~byte_size byte_size interface~byte_size->proc~byte_size_r4p proc~b64_decode_string_a b64_decode_string_a proc~b64_decode_string_a->interface~byte_size proc~b64_decode_string b64_decode_string proc~b64_decode_string->interface~byte_size proc~b64_encode_string b64_encode_string proc~b64_encode_string->interface~byte_size proc~b64_encode_string_a b64_encode_string_a proc~b64_encode_string_a->interface~byte_size proc~b64_decode_up_a b64_decode_up_a proc~b64_decode_up_a->proc~b64_decode_string_a interface~b64_decode_up b64_decode_up interface~b64_decode_up->proc~b64_decode_up_a interface~b64_decode_up->proc~b64_decode_up_a interface~b64_decode_up->interface~b64_decode_up interface~b64_decode b64_decode interface~b64_decode->proc~b64_decode_string_a interface~b64_decode->proc~b64_decode_string proc~decode decode proc~decode->interface~b64_decode proc~autotest autotest proc~autotest->interface~b64_decode interface~b64_encode b64_encode proc~autotest->interface~b64_encode proc~b64_decode_up b64_decode_up proc~b64_decode_up->proc~b64_decode_string proc~b64_encode_up b64_encode_up proc~b64_encode_up->proc~b64_encode_string interface~b64_encode->proc~b64_encode_string interface~b64_encode->proc~b64_encode_string_a proc~encode encode proc~encode->interface~b64_encode proc~b64_encode_up_a b64_encode_up_a proc~b64_encode_up_a->proc~b64_encode_string_a interface~b64_encode_up b64_encode_up interface~b64_encode_up->proc~b64_encode_up_a interface~b64_encode_up->proc~b64_encode_up_a interface~b64_encode_up->interface~b64_encode_up
Help

Source Code

  elemental function byte_size_R4P(i) result(bytes)
  !---------------------------------------------------------------------------------------------------------------------------------
  !< Compute the number of bytes of a real variable.
  !---------------------------------------------------------------------------------------------------------------------------------
  real(R4P), 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_R4P