b64_decode_R4_a Subroutine

private pure subroutine b64_decode_R4_a(code, n)

Arguments

TypeIntentOptionalAttributesName
character, intent(in) :: code
real(kind=R4P), intent(out) :: n(1:)

Calls

proc~~b64_decode_r4_a~~CallsGraph proc~b64_decode_r4_a b64_decode_R4_a proc~decode_bits decode_bits proc~b64_decode_r4_a->proc~decode_bits

Called by

proc~~b64_decode_r4_a~~CalledByGraph proc~b64_decode_r4_a b64_decode_R4_a proc~b64_decode_up_a b64_decode_up_a proc~b64_decode_up_a->proc~b64_decode_r4_a interface~b64_decode b64_decode interface~b64_decode->proc~b64_decode_r4_a program~volatile_doctest~922 volatile_doctest program~volatile_doctest~922->interface~b64_decode program~volatile_doctest~938 volatile_doctest program~volatile_doctest~938->interface~b64_decode program~volatile_doctest~914 volatile_doctest program~volatile_doctest~914->interface~b64_decode program~volatile_doctest~1098 volatile_doctest program~volatile_doctest~1098->interface~b64_decode program~volatile_doctest~1114 volatile_doctest program~volatile_doctest~1114->interface~b64_decode program~volatile_doctest~1102 volatile_doctest program~volatile_doctest~1102->interface~b64_decode program~volatile_doctest~1109 volatile_doctest program~volatile_doctest~1109->interface~b64_decode proc~decode~2 decode proc~decode~2->interface~b64_decode program~volatile_doctest~340 volatile_doctest program~volatile_doctest~340->interface~b64_decode program~volatile_doctest~363 volatile_doctest program~volatile_doctest~363->interface~b64_decode program~volatile_doctest~523 volatile_doctest program~volatile_doctest~523->interface~b64_decode program~volatile_doctest~539 volatile_doctest program~volatile_doctest~539->interface~b64_decode program~volatile_doctest~909 volatile_doctest program~volatile_doctest~909->interface~b64_decode program~volatile_doctest~917 volatile_doctest program~volatile_doctest~917->interface~b64_decode program~volatile_doctest~925 volatile_doctest program~volatile_doctest~925->interface~b64_decode program~volatile_doctest~1093 volatile_doctest program~volatile_doctest~1093->interface~b64_decode program~volatile_doctest~336 volatile_doctest program~volatile_doctest~336->interface~b64_decode program~volatile_doctest~518 volatile_doctest program~volatile_doctest~518->interface~b64_decode program~volatile_doctest~534 volatile_doctest program~volatile_doctest~534->interface~b64_decode program~volatile_doctest~928 volatile_doctest program~volatile_doctest~928->interface~b64_decode program~volatile_doctest~1088 volatile_doctest program~volatile_doctest~1088->interface~b64_decode program~volatile_doctest~1096 volatile_doctest program~volatile_doctest~1096->interface~b64_decode program~volatile_doctest~346 volatile_doctest program~volatile_doctest~346->interface~b64_decode program~volatile_doctest~353 volatile_doctest program~volatile_doctest~353->interface~b64_decode program~volatile_doctest~513 volatile_doctest program~volatile_doctest~513->interface~b64_decode program~volatile_doctest~521 volatile_doctest program~volatile_doctest~521->interface~b64_decode program~volatile_doctest~915 volatile_doctest program~volatile_doctest~915->interface~b64_decode program~volatile_doctest~931 volatile_doctest program~volatile_doctest~931->interface~b64_decode program~volatile_doctest~939 volatile_doctest program~volatile_doctest~939->interface~b64_decode program~volatile_doctest~1091 volatile_doctest program~volatile_doctest~1091->interface~b64_decode program~volatile_doctest~1099 volatile_doctest program~volatile_doctest~1099->interface~b64_decode program~volatile_doctest~1115 volatile_doctest program~volatile_doctest~1115->interface~b64_decode interface~b64_decode_up b64_decode_up interface~b64_decode_up->proc~b64_decode_up_a interface~b64_decode_up->proc~b64_decode_up_a interface~b64_decode_up->interface~b64_decode_up interface~b64_decode_up->interface~b64_decode_up program~volatile_doctest~334 volatile_doctest program~volatile_doctest~334->interface~b64_decode program~volatile_doctest~341 volatile_doctest program~volatile_doctest~341->interface~b64_decode program~volatile_doctest~356 volatile_doctest program~volatile_doctest~356->interface~b64_decode program~volatile_doctest~364 volatile_doctest program~volatile_doctest~364->interface~b64_decode program~volatile_doctest~516 volatile_doctest program~volatile_doctest~516->interface~b64_decode program~volatile_doctest~524 volatile_doctest program~volatile_doctest~524->interface~b64_decode program~volatile_doctest~540 volatile_doctest program~volatile_doctest~540->interface~b64_decode program~volatile_doctest~1086 volatile_doctest program~volatile_doctest~1086->interface~b64_decode program~volatile_doctest~1094 volatile_doctest program~volatile_doctest~1094->interface~b64_decode program~volatile_doctest~511 volatile_doctest program~volatile_doctest~511->interface~b64_decode program~volatile_doctest~344 volatile_doctest program~volatile_doctest~344->interface~b64_decode program~volatile_doctest~519 volatile_doctest program~volatile_doctest~519->interface~b64_decode program~volatile_doctest~527 volatile_doctest program~volatile_doctest~527->interface~b64_decode program~volatile_doctest~921 volatile_doctest program~volatile_doctest~921->interface~b64_decode program~volatile_doctest~937 volatile_doctest program~volatile_doctest~937->interface~b64_decode program~volatile_doctest~1105 volatile_doctest program~volatile_doctest~1105->interface~b64_decode program~volatile_doctest~339 volatile_doctest program~volatile_doctest~339->interface~b64_decode program~volatile_doctest~347 volatile_doctest program~volatile_doctest~347->interface~b64_decode program~volatile_doctest~362 volatile_doctest program~volatile_doctest~362->interface~b64_decode program~volatile_doctest~530 volatile_doctest program~volatile_doctest~530->interface~b64_decode program~volatile_doctest~916 volatile_doctest program~volatile_doctest~916->interface~b64_decode program~volatile_doctest~932 volatile_doctest program~volatile_doctest~932->interface~b64_decode program~volatile_doctest~1092 volatile_doctest program~volatile_doctest~1092->interface~b64_decode program~volatile_doctest~1108 volatile_doctest program~volatile_doctest~1108->interface~b64_decode program~volatile_doctest~1116 volatile_doctest program~volatile_doctest~1116->interface~b64_decode proc~decode decode proc~decode->interface~b64_decode program~volatile_doctest~342 volatile_doctest program~volatile_doctest~342->interface~b64_decode program~volatile_doctest~350 volatile_doctest program~volatile_doctest~350->interface~b64_decode program~volatile_doctest~357 volatile_doctest program~volatile_doctest~357->interface~b64_decode program~volatile_doctest~517 volatile_doctest program~volatile_doctest~517->interface~b64_decode program~volatile_doctest~533 volatile_doctest program~volatile_doctest~533->interface~b64_decode program~volatile_doctest~541 volatile_doctest program~volatile_doctest~541->interface~b64_decode program~volatile_doctest~911 volatile_doctest program~volatile_doctest~911->interface~b64_decode program~volatile_doctest~919 volatile_doctest program~volatile_doctest~919->interface~b64_decode

Contents

Source Code


Source Code

   pure subroutine b64_decode_R4_a(code, n)
   !< Decode a base64 code into an array numbers (R4P).
   !<
   !<```fortran
   !< use befor64
   !< use penf
   !< real(R4P) :: array_R4(1:2)
   !< call b64_decode(code='AAAAAOF6AMI=',n=array_R4)
   !< print "(L1)", str(n=array_R4)==str(n=[0._R4P,-32.12_R4P])
   !<```
   !=> T <<<
   character(*), intent(in)  :: code    !< Encoded array.
   real(R4P),    intent(out) :: n(1:)   !< Array of numbers to be decoded.
   integer(I1P), allocatable :: nI1P(:) !< One byte integer array containing n.

   allocate(nI1P(1:size(n,dim=1)*BYR4P)) ; nI1P = 0_I1P
   call decode_bits(code=code,bits=nI1P)
   n = transfer(nI1P,n)
   endsubroutine b64_decode_R4_a