Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer(kind=I1P), | intent(in) | :: | u(1:) | |||
integer(kind=I1P), | intent(in) | :: | v(1:) | |||
integer(kind=I1P), | intent(in) | :: | w(1:) | |||
integer(kind=I1P), | intent(in) | :: | x(1:) | |||
integer(kind=I1P), | intent(in) | :: | y(1:) | |||
integer(kind=I1P), | intent(in) | :: | z(1:) |
function encode_binary_dataarray6_rank1_I1P(u, v, w, x, y, z) result(code) !< Encode (Base64) a dataarray with 6 components of rank 1 (I1P). integer(I1P), intent(in) :: u(1:) !< U component. integer(I1P), intent(in) :: v(1:) !< V component. integer(I1P), intent(in) :: w(1:) !< W component. integer(I1P), intent(in) :: x(1:) !< X component. integer(I1P), intent(in) :: y(1:) !< Y component. integer(I1P), 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*BYI1P, 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_I1P