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.
Source Code
function encode_binary_dataarray6_rank1_R4P(u,v,w,x,y,z)result(code)!< Encode (Base64) a dataarray with 6 components of rank 1 (R4P).real(R4P),intent(in)::u(1:)!< U component.real(R4P),intent(in)::v(1:)!< V component.real(R4P),intent(in)::w(1:)!< W component.real(R4P),intent(in)::x(1:)!< X component.real(R4P),intent(in)::y(1:)!< Y component.real(R4P),intent(in)::z(1:)!< Z component.character(len=:),allocatable::code!< Encoded base64 dataarray.integer(I1P),allocatable::xyz(:)!< Packed data.integer(I4P)::nn!< Number of elements.integer(I4P)::n!< Counter.nn=size(x,dim=1)call pack_data(a1=[int(6*nn*BYR4P,I4P)],a2=[(u(n),v(n),w(n),x(n),y(n),z(n),n=1,nn)],packed=xyz)call b64_encode(n=xyz,code=code)endfunction encode_binary_dataarray6_rank1_R4P