Convert real to string of bits.
It is assumed that R4P is represented by means of 32 bits, but this is not ensured in all architectures.
use penf
print "(A)", bstr(n=1._R4P)
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=R4P), | intent(in) | :: | n | Real to be converted. |
Returned bit-string containing input number.
elemental function bstr_R4P(n) result(bstr)
!< Convert real to string of bits.
!<
!< @note It is assumed that R4P is represented by means of 32 bits, but this is not ensured in all architectures.
!<
!<```fortran
!< use penf
!< print "(A)", bstr(n=1._R4P)
!<```
!=> 00000000000000001000000000111111 <<<
real(R4P), intent(in) :: n !< Real to be converted.
character(32) :: bstr !< Returned bit-string containing input number.
integer(I1P) :: buffer(4) !< Transfer buffer.
buffer = transfer(n, buffer)
write(bstr, '(4B8.8)') buffer
endfunction bstr_R4P