bctor_R4P Function

  1. penf_stringify.F90
  2. penf_stringify
  3. bctor_R4P

private elemental function bctor_R4P(bstr, knd) result(n)

Convert bit-string to real.

 use penf
 print FR4P, bcton('00000000000000001000000000111111', knd=1._R4P)

Arguments

TypeIntentOptionalAttributesName
character, intent(in) :: bstr

String containing input number.
real(kind=R4P), intent(in) :: knd

Number kind.

Return Value real(kind=R4P)

Number returned.


Called by

proc~~bctor_r4p~~CalledByGraph proc~bctor_r4p bctor_R4P interface~bcton bcton interface~bcton->proc~bctor_r4p program~volatile_doctest volatile_doctest program~volatile_doctest->interface~bcton program~volatile_doctest~35 volatile_doctest program~volatile_doctest~35->interface~bcton program~volatile_doctest~37 volatile_doctest program~volatile_doctest~37->interface~bcton program~volatile_doctest~13 volatile_doctest program~volatile_doctest~13->interface~bcton program~volatile_doctest~26 volatile_doctest program~volatile_doctest~26->interface~bcton program~volatile_doctest~82 volatile_doctest program~volatile_doctest~82->interface~bcton program~volatile_doctest~90 volatile_doctest program~volatile_doctest~90->interface~bcton

Contents

Source Code

bctor_R4P

Source Code

   elemental function bctor_R4P(bstr, knd) result(n)
   !< Convert bit-string to real.
   !<
   !<```fortran
   !< use penf
   !< print FR4P, bcton('00000000000000001000000000111111', knd=1._R4P)
   !<```
   !=> 0.100000E+01 <<<
   character(*), intent(in) :: bstr      !< String containing input number.
   real(R4P),    intent(in) :: knd       !< Number kind.
   real(R4P)                :: n         !< Number returned.
   integer(I1P)             :: buffer(4) !< Transfer buffer.

   read(bstr, '(4B8.8)') buffer
   n = transfer(buffer, n)
   endfunction bctor_R4P