bstr_I2P Function

private elemental function bstr_I2P(n) result(bstr)

Arguments

Type IntentOptional AttributesName
integer(kind=I2P), intent(in) :: n

Real to be converted.

Return Value character(len=16)

Returned bit-string containing input number.

Description

Convert integer to string of bits.

Called By

proc~~bstr_i2p~~CalledByGraph proc~bstr_i2p bstr_I2P interface~bstr bstr interface~bstr->proc~bstr_i2p
Help

Source Code

  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.
  !---------------------------------------------------------------------------------------------------------------------------------
  integer(I2P), intent(in) :: n    !< Real to be converted.
  character(16)            :: bstr !< Returned bit-string containing input number.
  !---------------------------------------------------------------------------------------------------------------------------------

  !---------------------------------------------------------------------------------------------------------------------------------
  write(bstr, '(B16.16)') n
  return
  !---------------------------------------------------------------------------------------------------------------------------------
  endfunction bstr_I2P