| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer(kind=I4P), | intent(in) | :: | u(1:) | |||
| integer(kind=I4P), | intent(in) | :: | v(1:) | |||
| integer(kind=I4P), | intent(in) | :: | w(1:) | |||
| integer(kind=I4P), | intent(in) | :: | x(1:) | |||
| integer(kind=I4P), | intent(in) | :: | y(1:) | |||
| integer(kind=I4P), | intent(in) | :: | z(1:) |
function encode_binary_dataarray6_rank1_I4P(u, v, w, x, y, z) result(code) !< Encode (Base64) a dataarray with 6 components of rank 1 (I4P). integer(I4P), intent(in) :: u(1:) !< U component. integer(I4P), intent(in) :: v(1:) !< V component. integer(I4P), intent(in) :: w(1:) !< W component. integer(I4P), intent(in) :: x(1:) !< X component. integer(I4P), intent(in) :: y(1:) !< Y component. integer(I4P), 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) xyz = transfer([int(6*nn*BYI4P, I4P), [(u(n), v(n), w(n), x(n), y(n), z(n), n=1, nn)]], xyz) call b64_encode(n=xyz, code=code) endfunction encode_binary_dataarray6_rank1_I4P