Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=R8P), | intent(in) | :: | i | Real variable whose number of bits must be computed. |
Number of bits of r.
Compute the number of bits of a real variable.
Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
integer(kind=I1P), | public | :: | mold(1) | "Molding" dummy variable for bits counting. |
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