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