bctor_R8P Function

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

Convert bit-string to real.

 use penf
 print FR8P, bcton('0000000000000000000000000000000000000000000000001111000000111111', knd=1._R8P)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: bstr

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

Number kind.

Return Value real(kind=R8P)

Number returned.


Called by

proc~~bctor_r8p~~CalledByGraph proc~bctor_r8p bctor_R8P interface~bcton bcton interface~bcton->proc~bctor_r8p program~volatile_doctest~110 volatile_doctest program~volatile_doctest~110->interface~bcton program~volatile_doctest~132 volatile_doctest program~volatile_doctest~132->interface~bcton program~volatile_doctest~15 volatile_doctest program~volatile_doctest~15->interface~bcton program~volatile_doctest~169 volatile_doctest program~volatile_doctest~169->interface~bcton program~volatile_doctest~175 volatile_doctest program~volatile_doctest~175->interface~bcton program~volatile_doctest~53 volatile_doctest program~volatile_doctest~53->interface~bcton program~volatile_doctest~94 volatile_doctest program~volatile_doctest~94->interface~bcton

Source Code

   elemental function bctor_R8P(bstr, knd) result(n)
   !< Convert bit-string to real.
   !<
   !<```fortran
   !< use penf
   !< print FR8P, bcton('0000000000000000000000000000000000000000000000001111000000111111', knd=1._R8P)
   !<```
   !=> 0.100000000000000E+001 <<<
   character(*), intent(in) :: bstr      !< String containing input number.
   real(R8P),    intent(in) :: knd       !< Number kind.
   real(R8P)                :: n         !< Number returned.
   integer(I1P)             :: buffer(8) !< Transfer buffer.

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