bstr_R4P Function

  1. penf_stringify.F90
  2. penf_stringify
  3. bstr_R4P

private elemental function bstr_R4P(n) result(bstr)

Arguments

TypeIntentOptionalAttributesName
real(kind=R4P), intent(in) :: n

Return Value character(len=32)


Called by

proc~~bstr_r4p~4~~CalledByGraph proc~bstr_r4p~4 bstr_R4P interface~bstr~4 bstr interface~bstr~4->proc~bstr_r4p~4

Contents

Source Code

bstr_R4P

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