bstr_R4P Function

private elemental function bstr_R4P(n) result(bstr)

Arguments

Type IntentOptional Attributes Name
real(kind=R4P), intent(in) :: n

Return Value character(len=32)


Called by

proc~~bstr_r4p~~CalledByGraph proc~bstr_r4p bstr_R4P interface~bstr bstr interface~bstr->proc~bstr_r4p program~volatile_doctest~1024 volatile_doctest program~volatile_doctest~1024->interface~bstr program~volatile_doctest~1028 volatile_doctest program~volatile_doctest~1028->interface~bstr program~volatile_doctest~1040 volatile_doctest program~volatile_doctest~1040->interface~bstr program~volatile_doctest~1056 volatile_doctest program~volatile_doctest~1056->interface~bstr program~volatile_doctest~1076 volatile_doctest program~volatile_doctest~1076->interface~bstr program~volatile_doctest~1081 volatile_doctest program~volatile_doctest~1081->interface~bstr program~volatile_doctest~115 volatile_doctest program~volatile_doctest~115->interface~bstr program~volatile_doctest~1183 volatile_doctest program~volatile_doctest~1183->interface~bstr program~volatile_doctest~119 volatile_doctest program~volatile_doctest~119->interface~bstr program~volatile_doctest~1259 volatile_doctest program~volatile_doctest~1259->interface~bstr program~volatile_doctest~1384 volatile_doctest program~volatile_doctest~1384->interface~bstr program~volatile_doctest~1420 volatile_doctest program~volatile_doctest~1420->interface~bstr program~volatile_doctest~1421 volatile_doctest program~volatile_doctest~1421->interface~bstr program~volatile_doctest~1460 volatile_doctest program~volatile_doctest~1460->interface~bstr program~volatile_doctest~151 volatile_doctest program~volatile_doctest~151->interface~bstr program~volatile_doctest~1525 volatile_doctest program~volatile_doctest~1525->interface~bstr program~volatile_doctest~1553 volatile_doctest program~volatile_doctest~1553->interface~bstr program~volatile_doctest~1558 volatile_doctest program~volatile_doctest~1558->interface~bstr program~volatile_doctest~1591 volatile_doctest program~volatile_doctest~1591->interface~bstr program~volatile_doctest~1687 volatile_doctest program~volatile_doctest~1687->interface~bstr program~volatile_doctest~1702 volatile_doctest program~volatile_doctest~1702->interface~bstr program~volatile_doctest~1738 volatile_doctest program~volatile_doctest~1738->interface~bstr program~volatile_doctest~1743 volatile_doctest program~volatile_doctest~1743->interface~bstr program~volatile_doctest~1749 volatile_doctest program~volatile_doctest~1749->interface~bstr program~volatile_doctest~1807 volatile_doctest program~volatile_doctest~1807->interface~bstr program~volatile_doctest~1826 volatile_doctest program~volatile_doctest~1826->interface~bstr program~volatile_doctest~1857 volatile_doctest program~volatile_doctest~1857->interface~bstr program~volatile_doctest~1864 volatile_doctest program~volatile_doctest~1864->interface~bstr program~volatile_doctest~261 volatile_doctest program~volatile_doctest~261->interface~bstr program~volatile_doctest~274 volatile_doctest program~volatile_doctest~274->interface~bstr program~volatile_doctest~389 volatile_doctest program~volatile_doctest~389->interface~bstr program~volatile_doctest~439 volatile_doctest program~volatile_doctest~439->interface~bstr program~volatile_doctest~444 volatile_doctest program~volatile_doctest~444->interface~bstr program~volatile_doctest~471 volatile_doctest program~volatile_doctest~471->interface~bstr program~volatile_doctest~485 volatile_doctest program~volatile_doctest~485->interface~bstr program~volatile_doctest~486 volatile_doctest program~volatile_doctest~486->interface~bstr program~volatile_doctest~515 volatile_doctest program~volatile_doctest~515->interface~bstr program~volatile_doctest~549 volatile_doctest program~volatile_doctest~549->interface~bstr program~volatile_doctest~573 volatile_doctest program~volatile_doctest~573->interface~bstr program~volatile_doctest~579 volatile_doctest program~volatile_doctest~579->interface~bstr program~volatile_doctest~595 volatile_doctest program~volatile_doctest~595->interface~bstr program~volatile_doctest~638 volatile_doctest program~volatile_doctest~638->interface~bstr program~volatile_doctest~65 volatile_doctest program~volatile_doctest~65->interface~bstr program~volatile_doctest~813 volatile_doctest program~volatile_doctest~813->interface~bstr program~volatile_doctest~818 volatile_doctest program~volatile_doctest~818->interface~bstr program~volatile_doctest~827 volatile_doctest program~volatile_doctest~827->interface~bstr program~volatile_doctest~922 volatile_doctest program~volatile_doctest~922->interface~bstr program~volatile_doctest~930 volatile_doctest program~volatile_doctest~930->interface~bstr program~volatile_doctest~975 volatile_doctest program~volatile_doctest~975->interface~bstr

Source Code

   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