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