Decode unlimited polymorphic variable from base64.
This is an interface for decoding both scalar and array.
b64_init
must be called at first. The
global variable is_b64_initialized
can be used to check the status of the initialization.For a practical example see the autotest
procedure.
real(R8P):: decoded ! scalar to be decoded ... call b64_decode_up(code='AAAAAAAA8D8=',up=decoded)
integer(I8P):: decoded(1:4) ! array to be decoded ... call b64_decode_up(code='FwAAAAAAAABEAQAAAAAAABBwhAEAAAAAAgAAAAAAAAA=',up=decoded)
pack_data
procedure.Decode unlimited polymorphic variable from base64.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
character(len=*), | intent(in) | :: | code | Encoded array. |
||
class(*), | intent(out) | :: | up(1:) | Unlimited polymorphic variable to be decoded. |
Decode an unlimited polymorphic array from base64.