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.
function encode_binary_dataarray1_rank3_I1P(x)result(code)!< Encode (Base64) a dataarray with 1 components of rank 3 (I1P).integer(I1P),intent(in)::x(1:,1:,1:)!< Data variablecharacter(len=:),allocatable::code!< Encoded base64 dataarray.integer(I1P),allocatable::xp(:)!< Packed data.integer(I4P)::nn!< Number of elements.nn=size(x,dim=1)*size(x,dim=2)*size(x,dim=3)call pack_data(a1=[int(nn*BYI1P,I4P)],a2=reshape(x,[nn]),packed=xp)call b64_encode(n=xp,code=code)endfunction encode_binary_dataarray1_rank3_I1P