b64_decode_string Subroutine

  1. befor64.F90
  2. befor64
  3. b64_decode_string

private elemental subroutine b64_decode_string(code, s)

Arguments

TypeIntentOptionalAttributesName
character, intent(in) :: code
character, intent(out) :: s

Calls

proc~~b64_decode_string~3~~CallsGraph proc~b64_decode_string~3 b64_decode_string interface~byte_size byte_size proc~b64_decode_string~3->interface~byte_size proc~decode_bits~3 decode_bits proc~b64_decode_string~3->proc~decode_bits~3 proc~byte_size_i1p byte_size_I1P interface~byte_size->proc~byte_size_i1p proc~byte_size_r4p byte_size_R4P interface~byte_size->proc~byte_size_r4p proc~byte_size_i4p byte_size_I4P interface~byte_size->proc~byte_size_i4p proc~byte_size_i8p byte_size_I8P interface~byte_size->proc~byte_size_i8p 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_chr byte_size_chr interface~byte_size->proc~byte_size_chr

Called by

proc~~b64_decode_string~3~~CalledByGraph proc~b64_decode_string~3 b64_decode_string proc~b64_decode_up~3 b64_decode_up proc~b64_decode_up~3->proc~b64_decode_string~3 interface~b64_decode~3 b64_decode interface~b64_decode~3->proc~b64_decode_string~3

Contents

Source Code

b64_decode_string

Source Code

   elemental subroutine b64_decode_string(code, s)
   !< Decode a base64 code into a scalar string.
   !<
   !<```fortran
   !< use befor64
   !< use penf
   !< character(:), allocatable :: code64
   !< code64 = repeat(' ',5)
   !< call b64_decode(code='aGVsbG8=',s=code64)
   !< print "(L1)", code64=='hello'
   !<```
   !=> T <<<
   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)
   endsubroutine b64_decode_string