Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=R8P), | intent(in) | :: | n | Real to be converted. |
Returned bit-string containing input number.
Convert real to string of bits.
elemental function bstr_R8P(n) result(bstr)
!---------------------------------------------------------------------------------------------------------------------------------
!< Convert real to string of bits.
!<
!< @note It is assumed that R8P is represented by means of 64 bits, but this is not ensured in all architectures.
!---------------------------------------------------------------------------------------------------------------------------------
real(R8P), intent(in) :: n !< Real to be converted.
character(64) :: bstr !< Returned bit-string containing input number.
!---------------------------------------------------------------------------------------------------------------------------------
!---------------------------------------------------------------------------------------------------------------------------------
write(bstr, '(B64.64)') n
return
!---------------------------------------------------------------------------------------------------------------------------------
endfunction bstr_R8P