bit_size_R8P Function

private elemental function bit_size_R8P(i) result(bits)

Arguments

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

Real variable whose number of bits must be computed.

Return Value integer(kind=I1P)

Number of bits of r.

Description

Compute the number of bits of a real variable.

Called By

proc~~bit_size_r8p~~CalledByGraph proc~bit_size_r8p bit_size_R8P interface~bit_size bit_size interface~bit_size->proc~bit_size_r8p
Help

Variables

TypeVisibility AttributesNameInitial
integer(kind=I1P), public :: mold(1)

"Molding" dummy variable for bits counting.


Source Code

  elemental function bit_size_R8P(i) result(bits)
  !---------------------------------------------------------------------------------------------------------------------------------
  !< Compute the number of bits of a real variable.
  !---------------------------------------------------------------------------------------------------------------------------------
  real(R8P), intent(in) :: i       !< Real variable whose number of bits must be computed.
  integer(I1P)          :: bits    !< Number of bits of r.
  integer(I1P)          :: mold(1) !< "Molding" dummy variable for bits counting.
  !---------------------------------------------------------------------------------------------------------------------------------

  !---------------------------------------------------------------------------------------------------------------------------------
  bits = size(transfer(i, mold), dim=1, kind=I1P) * 8_I1P
  return
  !---------------------------------------------------------------------------------------------------------------------------------
  endfunction bit_size_R8P