Encode an unlimited polymorphic array to base64.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(*), | intent(in) | :: | up(1:) | Unlimited polymorphic variable to be encoded. |
||
| character(len=:), | intent(out), | allocatable | :: | code | Encoded array. |
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed arrows point from an interface to procedures which implement that interface. This could include the module procedures in a generic interface or the implementation in a submodule of an interface in a parent module.
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed arrows point from an interface to procedures which implement that interface. This could include the module procedures in a generic interface or the implementation in a submodule of an interface in a parent module.
pure subroutine b64_encode_up_a(up, code)
!---------------------------------------------------------------------------------------------------------------------------------
!< Encode an unlimited polymorphic array to base64.
!---------------------------------------------------------------------------------------------------------------------------------
class(*), intent(in) :: up(1:) !< Unlimited polymorphic variable to be encoded.
character(len=:), allocatable, intent(out) :: code !< Encoded array.
!---------------------------------------------------------------------------------------------------------------------------------
!---------------------------------------------------------------------------------------------------------------------------------
select type(up)
type is(real(R8P))
call b64_encode_R8_a(n=up,code=code)
type is(real(R4P))
call b64_encode_R4_a(n=up,code=code)
type is(integer(I8P))
call b64_encode_I8_a(n=up,code=code)
type is(integer(I4P))
call b64_encode_I4_a(n=up,code=code)
type is(integer(I2P))
call b64_encode_I2_a(n=up,code=code)
type is(integer(I1P))
call b64_encode_I1_a(n=up,code=code)
type is(character(*))
call b64_encode_string_a(s=up,code=code)
endselect
return
!---------------------------------------------------------------------------------------------------------------------------------
endsubroutine b64_encode_up_a