27 character(len=*),
dimension(:),
allocatable,
intent(inout) :: buf
28 integer,
dimension(1),
intent(in) :: sizes
29 logical,
intent(in),
optional :: initialize
35 if (
present(initialize)) init = initialize
37 if (
allocated(buf))
then
40 allocate(buf(sizes(1)))
56 character(len=*),
dimension(:,:),
allocatable,
intent(inout) :: buf
57 integer,
dimension(2),
intent(in) :: sizes
58 logical,
intent(in),
optional :: initialize
64 if (
present(initialize)) init = initialize
66 if (
allocated(buf))
then
69 allocate(buf(sizes(1), sizes(2)))
74 do c = 1, len(buf(i,j))
87 character(len=*),
dimension(:,:,:),
allocatable,
intent(inout) :: buf
88 integer,
dimension(3),
intent(in) :: sizes
89 logical,
intent(in),
optional :: initialize
95 if (
present(initialize)) init = initialize
97 if (
allocated(buf))
then
100 allocate(buf(sizes(1), sizes(2), sizes(3)))
106 do c = 1, len(buf(i,j,k))
107 buf(i,j,k)(c:c) =
" "
120 character(len=*),
dimension(:,:,:,:),
allocatable,
intent(inout) :: buf
121 integer,
dimension(4),
intent(in) :: sizes
122 logical,
intent(in),
optional :: initialize
125 integer :: i, j, k, l, c
128 if (
present(initialize)) init = initialize
130 if (
allocated(buf))
then
133 allocate(buf(sizes(1), sizes(2), sizes(3), sizes(4)))
140 do c = 1, len(buf(i,j,k,l))
141 buf(i,j,k,l)(c:c) =
" "
154 character(len=*),
dimension(:,:,:,:,:),
allocatable,
intent(inout) :: buf
155 integer,
dimension(5),
intent(in) :: sizes
156 logical,
intent(in),
optional :: initialize
159 integer :: i, j, k, l, m, c
162 if (
present(initialize)) init = initialize
164 if (
allocated(buf))
then
167 allocate(buf(sizes(1), sizes(2), sizes(3), sizes(4), sizes(5)))
175 do c = 1, len(buf(i,j,k,l,m))
176 buf(i,j,k,l,m)(c:c) =
" "
190 character(len=*),
dimension(:,:,:,:,:,:),
allocatable,
intent(inout) :: buf
191 integer,
dimension(6),
intent(in) :: sizes
192 logical,
intent(in),
optional :: initialize
195 integer :: i, j, k, l, m, n, c
198 if (
present(initialize)) init = initialize
200 if (
allocated(buf))
then
203 allocate(buf(sizes(1), sizes(2), sizes(3), sizes(4), sizes(5), sizes(6)))
212 do c = 1, len(buf(i,j,k,l,m,n))
213 buf(i,j,k,l,m,n)(c:c) =
" "
subroutine allocate_array_char_5d(buf, sizes, initialize)
Allocate character arrays using an input array of sizes.
subroutine allocate_array_char_3d(buf, sizes, initialize)
Allocate character arrays using an input array of sizes.
subroutine allocate_array_char_4d(buf, sizes, initialize)
Allocate character arrays using an input array of sizes.
subroutine allocate_array_char_6d(buf, sizes, initialize)
Allocate character arrays using an input array of sizes.
subroutine allocate_array_char_1d(buf, sizes, initialize)
Allocate character arrays using an input array of sizes.
subroutine allocate_array_char_2d(buf, sizes, initialize)
Allocate character arrays using an input array of sizes.