b64_decode_string Subroutine

  1. befor64.F90
  2. befor64
  3. b64_decode_string

private elemental subroutine b64_decode_string(code, s)

Arguments

Type IntentOptional AttributesName
character(len=*), intent(in) :: code

Encoded scalar.
character(len=*), intent(out) :: s

String to be decoded.

Description

Decode a base64 code into a scalar string.

Calls

proc~~b64_decode_string~~CallsGraph proc~b64_decode_string b64_decode_string interface~byte_size byte_size proc~b64_decode_string->interface~byte_size proc~decode_bits decode_bits proc~b64_decode_string->proc~decode_bits proc~byte_size_i8p byte_size_I8P interface~byte_size->proc~byte_size_i8p proc~byte_size_i4p byte_size_I4P interface~byte_size->proc~byte_size_i4p proc~byte_size_chr byte_size_chr interface~byte_size->proc~byte_size_chr proc~byte_size_r4p byte_size_R4P interface~byte_size->proc~byte_size_r4p proc~byte_size_r8p byte_size_R8P interface~byte_size->proc~byte_size_r8p proc~byte_size_i2p byte_size_I2P interface~byte_size->proc~byte_size_i2p proc~byte_size_i1p byte_size_I1P interface~byte_size->proc~byte_size_i1p
Help

Called By

proc~~b64_decode_string~~CalledByGraph proc~b64_decode_string b64_decode_string proc~b64_decode_up b64_decode_up proc~b64_decode_up->proc~b64_decode_string interface~b64_decode b64_decode interface~b64_decode->proc~b64_decode_string proc~decode decode proc~decode->interface~b64_decode proc~autotest autotest proc~autotest->interface~b64_decode
Help

Variables

TypeVisibility AttributesNameInitial
integer(kind=I1P), public, allocatable:: nI1P(:)

One byte integer array containing n.

Source Code

  elemental subroutine b64_decode_string(code, s)
  !---------------------------------------------------------------------------------------------------------------------------------
  !< Decode a base64 code into a scalar string.
  !---------------------------------------------------------------------------------------------------------------------------------
  character(*), intent(in)  :: code    !< Encoded scalar.
  character(*), intent(out) :: s       !< String to be decoded.
  integer(I1P), allocatable :: nI1P(:) !< One byte integer array containing n.
  !---------------------------------------------------------------------------------------------------------------------------------

  !---------------------------------------------------------------------------------------------------------------------------------
  allocate(nI1P(1:byte_size(s))) ; nI1P = 0_I1P
  call decode_bits(code=code,bits=nI1P)
  s = transfer(nI1P,s)
  return
  !---------------------------------------------------------------------------------------------------------------------------------
  endsubroutine b64_decode_string