Convert integer to string of bits.
It is assumed that I4P is represented by means of 32 bits, but this is not ensured in all architectures.
use penf
print "(A)", bstr(n=1_I4P)
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer(kind=I4P), | intent(in) | :: | n | Real to be converted. |
Returned bit-string containing input number.
elemental function bstr_I4P(n) result(bstr)
!< Convert integer to string of bits.
!<
!< @note It is assumed that I4P is represented by means of 32 bits, but this is not ensured in all architectures.
!<
!<```fortran
!< use penf
!< print "(A)", bstr(n=1_I4P)
!<```
!=> 00000000000000000000000000000001 <<<
integer(I4P), intent(in) :: n !< Real to be converted.
character(32) :: bstr !< Returned bit-string containing input number.
write(bstr, '(B32.32)') n
endfunction bstr_I4P