b64_encode_I2 Subroutine

  1. befor64.F90
  2. befor64
  3. b64_encode_I2

private pure subroutine b64_encode_I2(n, code)

Arguments

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

Number to be encoded.
character(len=:), intent(out), allocatable:: code

Encoded scalar.

Description

Encode scalar number to base64 (I2P).

Calls

proc~~b64_encode_i2~~CallsGraph proc~b64_encode_i2 b64_encode_I2 proc~encode_bits encode_bits proc~b64_encode_i2->proc~encode_bits
Help

Called By

proc~~b64_encode_i2~~CalledByGraph proc~b64_encode_i2 b64_encode_I2 proc~b64_encode_up b64_encode_up proc~b64_encode_up->proc~b64_encode_i2 interface~b64_encode b64_encode interface~b64_encode->proc~b64_encode_i2 proc~autotest autotest proc~autotest->interface~b64_encode proc~encode encode proc~encode->interface~b64_encode
Help

Variables

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

One byte integer array containing n.
integer(kind=I4P), public :: padd

Number of padding characters ('=').

Source Code

  pure subroutine b64_encode_I2(n, code)
  !---------------------------------------------------------------------------------------------------------------------------------
  !< Encode scalar number to base64 (I2P).
  !---------------------------------------------------------------------------------------------------------------------------------
  integer(I2P),                  intent(in)  :: n       !< Number to be encoded.
  character(len=:), allocatable, intent(out) :: code    !< Encoded scalar.
  integer(I1P),     allocatable              :: nI1P(:) !< One byte integer array containing n.
  integer(I4P)                               :: padd    !< Number of padding characters ('=').
  !---------------------------------------------------------------------------------------------------------------------------------

  !---------------------------------------------------------------------------------------------------------------------------------
  allocate(nI1P(1:((BYI2P+2)/3)*3)) ; nI1P = 0_I1P
  code = repeat(' ',((BYI2P+2)/3)*4)
  nI1P = transfer(n,nI1P)
  padd = mod((BYI2P),3_I2P) ; if (padd>0_I4P) padd = 3_I4P - padd
  call encode_bits(bits=nI1P,padd=padd,code=code)
  return
  !---------------------------------------------------------------------------------------------------------------------------------
  endsubroutine b64_encode_I2