22function stringify_1d_(arr, fmt)
23 real(STRING_UTILS_KIND_),
dimension(:),
intent(in) :: arr
24 character(*),
intent(in),
optional :: fmt
25 character(:),
allocatable :: STRINGIFY_1D_
31 stringify_1d_ =
"[" // string(arr(1), fmt)
37 stringify_1d_ = stringify_1d_ //
", " // string(arr(i), fmt)
40 stringify_1d_ = stringify_1d_ //
"]"
45function stringify_2d_(arr, fmt)
46 real(STRING_UTILS_KIND_),
dimension(:,:),
intent(in) :: arr
47 character(*),
intent(in),
optional :: fmt
48 character(:),
allocatable :: STRINGIFY_2D_
54 stringify_2d_ =
"[" // stringify_1d_(arr(:,1), fmt)
60 stringify_2d_ = stringify_2d_ //
", " // stringify_1d_(arr(:,i), fmt)
63 stringify_2d_ = stringify_2d_ //
"]"
68function stringify_3d_(arr, fmt)
69 real(STRING_UTILS_KIND_),
dimension(:,:,:),
intent(in) :: arr
70 character(*),
intent(in),
optional :: fmt
71 character(:),
allocatable :: STRINGIFY_3D_
77 stringify_3d_ =
"[" // stringify_2d_(arr(:,:,1), fmt)
83 stringify_3d_ = stringify_3d_ //
", " // stringify_2d_(arr(:,:,i), fmt)
86 stringify_3d_ = stringify_3d_ //
"]"