b64_encode_R8_a Subroutine

  1. befor64.F90
  2. befor64
  3. b64_encode_R8_a

private pure subroutine b64_encode_R8_a(n, code)

Arguments

Type IntentOptional AttributesName
real(kind=R8P), intent(in) :: n(1:)

Array of numbers to be encoded.
character(len=:), intent(out), allocatable:: code

Encoded array.

Description

Encode array numbers to base64 (R8P).

Calls

proc~~b64_encode_r8_a~~CallsGraph proc~b64_encode_r8_a b64_encode_R8_a proc~encode_bits encode_bits proc~b64_encode_r8_a->proc~encode_bits
Help

Called By

proc~~b64_encode_r8_a~~CalledByGraph proc~b64_encode_r8_a b64_encode_R8_a proc~b64_encode_up_a b64_encode_up_a proc~b64_encode_up_a->proc~b64_encode_r8_a interface~b64_encode_up b64_encode_up interface~b64_encode_up->proc~b64_encode_up_a interface~b64_encode_up->proc~b64_encode_up_a interface~b64_encode_up->interface~b64_encode_up interface~b64_encode b64_encode interface~b64_encode->proc~b64_encode_r8_a 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 ('=').
integer(kind=I8P), public :: ns

Size of n.

Source Code

  pure subroutine b64_encode_R8_a(n, code)
  !---------------------------------------------------------------------------------------------------------------------------------
  !< Encode array numbers to base64 (R8P).
  !---------------------------------------------------------------------------------------------------------------------------------
  real(R8P),                     intent(in)  :: n(1:)   !< Array of numbers to be encoded.
  character(len=:), allocatable, intent(out) :: code    !< Encoded array.
  integer(I1P),     allocatable              :: nI1P(:) !< One byte integer array containing n.
  integer(I4P)                               :: padd    !< Number of padding characters ('=').
  integer(I8P)                               :: ns      !< Size of n.
  !---------------------------------------------------------------------------------------------------------------------------------

  !---------------------------------------------------------------------------------------------------------------------------------
  ns = size(n,dim=1)
  allocate(nI1P(1:((ns*BYR8P+2)/3)*3)) ; nI1P = 0_I1P
  code = repeat(' ',((ns*BYR8P+2)/3)*4)
  nI1P = transfer(n,nI1P)
  padd = mod((ns*BYR8P),3_I8P) ; if (padd>0_I4P) padd = 3_I4P - padd
  call encode_bits(bits=nI1P,padd=padd,code=code)
  return
  !---------------------------------------------------------------------------------------------------------------------------------
  endsubroutine b64_encode_R8_a