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