13 character(:, SK),
allocatable :: str_SK , strCentered_SK
14 character(
2, SK),
allocatable :: Array_SK(:), ArrayCentered_SK(:)
15 logical(LK) ,
allocatable :: Array_LK(:), ArrayCentered_LK(:)
16 integer(IK) ,
allocatable :: Array_IK(:), ArrayCentered_IK(:)
17 complex(CK) ,
allocatable :: Array_CK(:), ArrayCentered_CK(:)
18 real(RK) ,
allocatable :: Array_RK(:), ArrayCentered_RK(:)
20 type(display_type) :: disp
25 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
26 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
27 call disp%show(
"! Expand and center an array to a new larger size.")
28 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
29 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
35 allocate(Array_SK(
3:
8), source
= [SK_
"AA", SK_
"BB", SK_
"CC", SK_
"DD", SK_
"EE", SK_
"FF"])
36 allocate(Array_IK(
3:
8),
source = [
1_IK,
2_IK,
3_IK,
4_IK,
5_IK,
6_IK])
37 allocate(Array_LK(
3:
8),
source = [
.true._LK,
.true._LK,
.true._LK,
.true._LK,
.true._LK,
.true._LK])
38 allocate(Array_CK(
3:
8),
source = [(
1._CK,
-1._CK), (
2._CK,
-2._CK), (
3._CK,
-3._CK), (
4._CK,
-4._CK), (
5._CK,
-5._CK), (
6._CK,
-6._CK)])
39 allocate(Array_RK(
3:
8),
source = [
1._RK,
2._RK,
3._RK,
4._RK,
5._RK,
6._RK])
42 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%")
43 call disp%show(
"! Center character scalar.")
44 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%")
49 call disp%show( str_SK, deliml
= SK_
"""" )
52 call disp%show(
"allocate(character(8,SK) :: strCentered_SK)")
53 allocate(
character(
8,SK) :: strCentered_SK)
54 call disp%show(
"call setCentered(strCentered_SK, str_SK, fill = SK_'-')")
55 call setCentered(strCentered_SK, str_SK, fill
= SK_
'-')
57 call disp%show( strCentered_SK , deliml
= SK_
"""" )
60 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%")
61 call disp%show(
"! Center character array.")
62 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%")
67 call disp%show( Array_SK, deliml
= SK_
"""" )
68 call disp%show(
"allocate(character(2,SK) :: ArrayCentered_SK(8))")
69 allocate(
character(
2,SK) :: ArrayCentered_SK(
8))
70 call disp%show(
"call setCentered(ArrayCentered_SK, Array_SK, fill = SK_'%%')")
71 call setCentered(ArrayCentered_SK, Array_SK, fill
= SK_
'%%')
73 call disp%show( ArrayCentered_SK, deliml
= SK_
"""" )
76 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%")
77 call disp%show(
"! Center logical array.")
78 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%")
84 call disp%show(
"allocate(ArrayCentered_LK(8))")
85 allocate(ArrayCentered_LK(
8))
86 call disp%show(
"call setCentered(ArrayCentered_LK, Array_LK, fill = .false._LK)")
87 call setCentered(ArrayCentered_LK, Array_LK, fill
= .false._LK)
92 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%")
93 call disp%show(
"! Center integer array.")
94 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%")
100 call disp%show(
"allocate(ArrayCentered_IK(8))")
101 allocate(ArrayCentered_IK(
8))
102 call disp%show(
"call setCentered(ArrayCentered_IK, Array_IK, fill = -9999_IK)")
103 call setCentered(ArrayCentered_IK, Array_IK, fill
= -9999_IK)
108 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%")
109 call disp%show(
"! Center complex array.")
110 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%")
116 call disp%show(
"allocate(ArrayCentered_CK(8))")
117 allocate(ArrayCentered_CK(
8))
118 call disp%show(
"call setCentered(ArrayCentered_CK, Array_CK, fill = (-999._CK,-999._CK))")
119 call setCentered(ArrayCentered_CK, Array_CK, fill
= (
-999._CK,
-999._CK))
124 call disp%show(
"!%%%%%%%%%%%%%%%%%%%")
125 call disp%show(
"! Center real array.")
126 call disp%show(
"!%%%%%%%%%%%%%%%%%%%")
132 call disp%show(
"allocate(ArrayCentered_RK(8))")
133 allocate(ArrayCentered_RK(
8))
134 call disp%show(
"call setCentered(ArrayCentered_RK, Array_RK, fill = 0._RK)")
135 call setCentered(ArrayCentered_RK, Array_RK, fill
= 0._RK)
141 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
142 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
143 call disp%show(
"! Shrink an array to a new smaller size. Note that fill has no effect because the array shrinks.")
144 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
145 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
148 deallocate(Array_SK);
allocate(Array_SK(
3:
8), source
= [SK_
"AA", SK_
"BB", SK_
"CC", SK_
"DD", SK_
"EE", SK_
"FF"])
149 deallocate(Array_IK);
allocate(Array_IK(
3:
8),
source = [
1_IK,
2_IK,
3_IK,
4_IK,
5_IK,
6_IK])
150 deallocate(Array_LK);
allocate(Array_LK(
3:
8),
source = [
.true._LK,
.true._LK,
.true._LK,
.true._LK,
.true._LK,
.true._LK])
151 deallocate(Array_CK);
allocate(Array_CK(
3:
8),
source = [(
1._CK,
-1._CK), (
2._CK,
-2._CK), (
3._CK,
-3._CK), (
4._CK,
-4._CK), (
5._CK,
-5._CK), (
6._CK,
-6._CK)])
152 deallocate(Array_RK);
allocate(Array_RK(
3:
8),
source = [
1._RK,
2._RK,
3._RK,
4._RK,
5._RK,
6._RK])
155 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%")
156 call disp%show(
"! Center character scalar.")
157 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%")
163 call disp%show( str_SK, deliml
= SK_
"""" )
164 call disp%show(
"allocate(character(3,SK) :: strCentered_SK)")
165 allocate(
character(
3,SK) :: strCentered_SK)
166 call disp%show(
"call setCentered(strCentered_SK, str_SK, fill = '~')")
167 call setCentered(strCentered_SK, str_SK, fill
= '~')
169 call disp%show( strCentered_SK , deliml
= SK_
"""" )
172 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%")
173 call disp%show(
"! Center character array.")
174 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%")
179 call disp%show( Array_SK, deliml
= SK_
"""" )
180 call disp%show(
"allocate(character(2,SK) :: ArrayCentered_SK(3))")
181 allocate(
character(
2,SK) :: ArrayCentered_SK(
3))
182 call disp%show(
"call setCentered(ArrayCentered_SK, Array_SK, fill = '**')")
183 call setCentered(ArrayCentered_SK, Array_SK, fill
= '**')
185 call disp%show( ArrayCentered_SK, deliml
= SK_
"""" )
188 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%")
189 call disp%show(
"! Center logical array.")
190 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%")
196 call disp%show(
"allocate(ArrayCentered_LK(3))")
197 allocate(ArrayCentered_LK(
3))
198 call disp%show(
"call setCentered(ArrayCentered_LK, Array_LK, fill = .false._LK)")
199 call setCentered(ArrayCentered_LK, Array_LK, fill
= .false._LK)
204 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%")
205 call disp%show(
"! Center integer array.")
206 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%")
212 call disp%show(
"allocate(ArrayCentered_IK(3))")
213 allocate(ArrayCentered_IK(
3))
214 call disp%show(
"call setCentered(ArrayCentered_IK, Array_IK, fill = 0_IK)")
215 call setCentered(ArrayCentered_IK, Array_IK, fill
= 0_IK)
220 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%")
221 call disp%show(
"! Center complex array.")
222 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%")
228 call disp%show(
"allocate(ArrayCentered_CK(3))")
229 allocate(ArrayCentered_CK(
3))
230 call disp%show(
"call setCentered(ArrayCentered_CK, Array_CK, fill = (0._CK, 0._CK))")
231 call setCentered(ArrayCentered_CK, Array_CK, fill
= (
0._CK,
0._CK))
236 call disp%show(
"!%%%%%%%%%%%%%%%%%%%")
237 call disp%show(
"! Center real array.")
238 call disp%show(
"!%%%%%%%%%%%%%%%%%%%")
244 call disp%show(
"allocate(ArrayCentered_RK(3))")
245 allocate(ArrayCentered_RK(
3))
246 call disp%show(
"call setCentered(ArrayCentered_RK, Array_RK, fill = +0._RK)")
247 call setCentered(ArrayCentered_RK, Array_RK, fill
= +0._RK)
252 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
253 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
254 call disp%show(
"! Example of perfect array centering.")
255 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
256 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
262 call disp%show( str_SK, deliml
= SK_
"""" )
263 call disp%show(
"allocate(character(7,SK) :: strCentered_SK)")
264 allocate(
character(
7,SK) :: strCentered_SK)
265 call disp%show(
"call setCentered(strCentered_SK, str_SK, fill = SK_'-')")
266 call setCentered(strCentered_SK, str_SK, fill
= SK_
'-')
268 call disp%show( strCentered_SK, deliml
= SK_
"""" )
274 call disp%show( str_SK, deliml
= SK_
"""" )
275 call disp%show(
"allocate(character(1,SK) :: strCentered_SK)")
276 allocate(
character(
1,SK) :: strCentered_SK)
277 call disp%show(
"call setCentered(strCentered_SK, str_SK, fill = SK_'-')")
278 call setCentered(strCentered_SK, str_SK, fill
= SK_
'-')
280 call disp%show( strCentered_SK, deliml
= SK_
"""" )
286 call disp%show( str_SK, deliml
= SK_
"""" )
287 call disp%show(
"allocate(character(6,SK) :: strCentered_SK)")
288 allocate(
character(
6,SK) :: strCentered_SK)
289 call disp%show(
"call setCentered(strCentered_SK, str_SK, fill = SK_'-')")
290 call setCentered(strCentered_SK, str_SK, fill
= SK_
'-')
292 call disp%show( strCentered_SK, deliml
= SK_
"""" )
296 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
297 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
298 call disp%show(
"! Example of imperfect array centering.")
299 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
300 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
306 call disp%show( str_SK, deliml
= SK_
"""" )
307 call disp%show(
"allocate(character(6,SK) :: strCentered_SK)")
308 allocate(
character(
6,SK) :: strCentered_SK)
309 call disp%show(
"call setCentered(strCentered_SK, str_SK, fill = SK_'-')")
310 call setCentered(strCentered_SK, str_SK, fill
= SK_
'-')
312 call disp%show( strCentered_SK , deliml
= SK_
"""" )
318 call disp%show( str_SK, deliml
= SK_
"""" )
319 call disp%show(
"allocate(character(2,SK) :: strCentered_SK)")
320 allocate(
character(
2,SK) :: strCentered_SK)
321 call disp%show(
"call setCentered(strCentered_SK, str_SK, fill = SK_'-')")
322 call setCentered(strCentered_SK, str_SK, fill
= SK_
'-')
324 call disp%show( strCentered_SK , deliml
= SK_
"""" )
330 call disp%show( str_SK, deliml
= SK_
"""" )
331 call disp%show(
"allocate(character(3,SK) :: strCentered_SK)")
332 allocate(
character(
3,SK) :: strCentered_SK)
333 call disp%show(
"call setCentered(strCentered_SK, str_SK, fill = SK_'-')")
334 call setCentered(strCentered_SK, str_SK, fill
= SK_
'-')
336 call disp%show( strCentered_SK , deliml
= SK_
"""" )
342 call disp%show( str_SK, deliml
= SK_
"""" )
343 call disp%show(
"allocate(character(1,SK) :: strCentered_SK)")
344 allocate(
character(
1,SK) :: strCentered_SK)
345 call disp%show(
"call setCentered(strCentered_SK, str_SK, fill = SK_'-')")
346 call setCentered(strCentered_SK, str_SK, fill
= SK_
'-')
348 call disp%show( strCentered_SK , deliml
= SK_
"""" )
352 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
353 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
354 call disp%show(
"! Centering array contents within a given size, padded by left and right margins.")
355 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
356 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
360 str_SK
= SK_
"In God We Trust"
362 call disp%show( str_SK , deliml
= SK_
"""" )
363 call disp%show(
"allocate(character(45+4+4,SK) :: strCentered_SK)")
364 allocate(
character(
45+4+4,SK) :: strCentered_SK)
365 call disp%show(
"call setCentered(strCentered_SK, str_SK, fill = SK_' ', lmsize = 4_IK, rmsize = 4_IK, lmfill = SK_'*', rmfill = SK_'*')")
366 call setCentered(strCentered_SK, str_SK, fill
= SK_
' ', lmsize
= 4_IK, rmsize
= 4_IK, lmfill
= SK_
'*', rmfill
= SK_
'*')
368 call disp%show( strCentered_SK , deliml
= SK_
"""" )
374 call disp%show( str_SK, deliml
= SK_
"""" )
375 call disp%show(
"allocate(character(8+3+5,SK) :: strCentered_SK)")
376 allocate(
character(
8+3+5,SK) :: strCentered_SK)
377 call disp%show(
"call setCentered(strCentered_SK, str_SK, lmsize = 3_IK, rmsize = 5_IK, fill = SK_'-', lmfill = SK_'*', rmfill = SK_'+')")
378 call setCentered(strCentered_SK, str_SK, lmsize
= 3_IK, rmsize
= 5_IK, fill
= SK_
'-', lmfill
= SK_
'*', rmfill
= SK_
'+')
380 call disp%show( strCentered_SK , deliml
= SK_
"""" )
386 call disp%show( str_SK, deliml
= SK_
"""" )
387 call disp%show(
"allocate(character(2+3+5,SK) :: strCentered_SK)")
388 allocate(
character(
2+3+5,SK) :: strCentered_SK)
389 call disp%show(
"call setCentered(strCentered_SK, str_SK, lmsize = 3_IK, rmsize = 5_IK, fill = SK_'-', lmfill = SK_'*', rmfill = SK_'+')")
390 call setCentered(strCentered_SK, str_SK, lmsize
= 3_IK, rmsize
= 5_IK, fill
= SK_
'-', lmfill
= SK_
'*', rmfill
= SK_
'+')
392 call disp%show( strCentered_SK , deliml
= SK_
"""" )
396 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
397 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
398 call disp%show(
"! Call to center() preserves the array lower bound.")
399 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
400 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
404 deallocate(Array_IK);
allocate(Array_IK(
-6:
-1),
source = [
1_IK,
2_IK,
3_IK,
4_IK,
5_IK,
6_IK])
408 call disp%show(
"allocate(ArrayCentered_IK(10 + 3 + 5))")
409 allocate(ArrayCentered_IK(
10 + 3 + 5))
410 call disp%show(
"call setCentered(ArrayCentered_IK, Array_IK, lmsize = 3_IK, rmsize = 5_IK, fill = +0_IK, lmfill = -huge(0_IK), rmfill = +huge(0_IK))")
411 call setCentered(ArrayCentered_IK, Array_IK, lmsize
= 3_IK, rmsize
= 5_IK, fill
= +0_IK, lmfill
= -huge(
0_IK), rmfill
= +huge(
0_IK))
418 if (
allocated( strCentered_SK))
deallocate( strCentered_SK)
419 if (
allocated(ArrayCentered_SK))
deallocate(ArrayCentered_SK)
420 if (
allocated(ArrayCentered_IK))
deallocate(ArrayCentered_IK)
421 if (
allocated(ArrayCentered_RK))
deallocate(ArrayCentered_RK)
422 if (
allocated(ArrayCentered_CK))
deallocate(ArrayCentered_CK)
423 if (
allocated(ArrayCentered_LK))
deallocate(ArrayCentered_LK)
This is a generic method of the derived type display_type with pass attribute.
This is a generic method of the derived type display_type with pass attribute.
This module contains classes and procedures for input/output (IO) or generic display operations on st...
type(display_type) disp
This is a scalar module variable an object of type display_type for general display.
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
integer, parameter RK
The default real kind in the ParaMonte library: real64 in Fortran, c_double in C-Fortran Interoperati...
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
integer, parameter CK
The default complex kind in the ParaMonte library: real64 in Fortran, c_double_complex in C-Fortran I...
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
Generate and return an object of type display_type.
17allocate(
character(
8,SK) :: strCentered_SK)
18call setCentered(strCentered_SK, str_SK, fill
= SK_
'-')
27"AA",
"BB",
"CC",
"DD",
"EE",
"FF"
28allocate(
character(
2,SK) :: ArrayCentered_SK(
8))
29call setCentered(ArrayCentered_SK, Array_SK, fill
= SK_
'%%')
31"%%",
"AA",
"BB",
"CC",
"DD",
"EE",
"FF",
"%%"
39allocate(ArrayCentered_LK(
8))
40call setCentered(ArrayCentered_LK, Array_LK, fill
= .false._LK)
50allocate(ArrayCentered_IK(
8))
51call setCentered(ArrayCentered_IK, Array_IK, fill
= -9999_IK)
53-9999,
+1,
+2,
+3,
+4,
+5,
+6,
-9999
60(
+1.0000000000000000,
-1.0000000000000000), (
+2.0000000000000000,
-2.0000000000000000), (
+3.0000000000000000,
-3.0000000000000000), (
+4.0000000000000000,
-4.0000000000000000), (
+5.0000000000000000,
-5.0000000000000000), (
+6.0000000000000000,
-6.0000000000000000)
61allocate(ArrayCentered_CK(
8))
62call setCentered(ArrayCentered_CK, Array_CK, fill
= (
-999._CK,
-999._CK))
64(
-999.00000000000000,
-999.00000000000000), (
+1.0000000000000000,
-1.0000000000000000), (
+2.0000000000000000,
-2.0000000000000000), (
+3.0000000000000000,
-3.0000000000000000), (
+4.0000000000000000,
-4.0000000000000000), (
+5.0000000000000000,
-5.0000000000000000), (
+6.0000000000000000,
-6.0000000000000000), (
-999.00000000000000,
-999.00000000000000)
71+1.0000000000000000,
+2.0000000000000000,
+3.0000000000000000,
+4.0000000000000000,
+5.0000000000000000,
+6.0000000000000000
72allocate(ArrayCentered_RK(
8))
73call setCentered(ArrayCentered_RK, Array_RK, fill
= 0._RK)
75+0.0000000000000000,
+1.0000000000000000,
+2.0000000000000000,
+3.0000000000000000,
+4.0000000000000000,
+5.0000000000000000,
+6.0000000000000000,
+0.0000000000000000
90allocate(
character(
3,SK) :: strCentered_SK)
100"AA",
"BB",
"CC",
"DD",
"EE",
"FF"
101allocate(
character(
2,SK) :: ArrayCentered_SK(
3))
102call setCentered(ArrayCentered_SK, Array_SK, fill
= '**')
112allocate(ArrayCentered_LK(
3))
113call setCentered(ArrayCentered_LK, Array_LK, fill
= .false._LK)
122+1,
+2,
+3,
+4,
+5,
+6
123allocate(ArrayCentered_IK(
3))
124call setCentered(ArrayCentered_IK, Array_IK, fill
= 0_IK)
133(
+1.0000000000000000,
-1.0000000000000000), (
+2.0000000000000000,
-2.0000000000000000), (
+3.0000000000000000,
-3.0000000000000000), (
+4.0000000000000000,
-4.0000000000000000), (
+5.0000000000000000,
-5.0000000000000000), (
+6.0000000000000000,
-6.0000000000000000)
134allocate(ArrayCentered_CK(
3))
135call setCentered(ArrayCentered_CK, Array_CK, fill
= (
0._CK,
0._CK))
137(
+2.0000000000000000,
-2.0000000000000000), (
+3.0000000000000000,
-3.0000000000000000), (
+4.0000000000000000,
-4.0000000000000000)
144+1.0000000000000000,
+2.0000000000000000,
+3.0000000000000000,
+4.0000000000000000,
+5.0000000000000000,
+6.0000000000000000
145allocate(ArrayCentered_RK(
3))
146call setCentered(ArrayCentered_RK, Array_RK, fill
= +0._RK)
148+2.0000000000000000,
+3.0000000000000000,
+4.0000000000000000
158allocate(
character(
7,SK) :: strCentered_SK)
159call setCentered(strCentered_SK, str_SK, fill
= SK_
'-')
165allocate(
character(
1,SK) :: strCentered_SK)
166call setCentered(strCentered_SK, str_SK, fill
= SK_
'-')
172allocate(
character(
6,SK) :: strCentered_SK)
173call setCentered(strCentered_SK, str_SK, fill
= SK_
'-')
186allocate(
character(
6,SK) :: strCentered_SK)
187call setCentered(strCentered_SK, str_SK, fill
= SK_
'-')
193allocate(
character(
2,SK) :: strCentered_SK)
194call setCentered(strCentered_SK, str_SK, fill
= SK_
'-')
200allocate(
character(
3,SK) :: strCentered_SK)
201call setCentered(strCentered_SK, str_SK, fill
= SK_
'-')
207allocate(
character(
1,SK) :: strCentered_SK)
208call setCentered(strCentered_SK, str_SK, fill
= SK_
'-')
221allocate(
character(
45+4+4,SK) :: strCentered_SK)
222call setCentered(strCentered_SK, str_SK, fill
= SK_
' ', lmsize
= 4_IK, rmsize
= 4_IK, lmfill
= SK_
'*', rmfill
= SK_
'*')
224"**** In God We Trust ****"
228allocate(
character(
8+3+5,SK) :: strCentered_SK)
229call setCentered(strCentered_SK, str_SK, lmsize
= 3_IK, rmsize
= 5_IK, fill
= SK_
'-', lmfill
= SK_
'*', rmfill
= SK_
'+')
235allocate(
character(
2+3+5,SK) :: strCentered_SK)
236call setCentered(strCentered_SK, str_SK, lmsize
= 3_IK, rmsize
= 5_IK, fill
= SK_
'-', lmfill
= SK_
'*', rmfill
= SK_
'+')
248+1,
+2,
+3,
+4,
+5,
+6
249allocate(ArrayCentered_IK(
10 + 3 + 5))
250call setCentered(ArrayCentered_IK, Array_IK, lmsize
= 3_IK, rmsize
= 5_IK, fill
= +0_IK, lmfill
= -huge(
0_IK), rmfill
= +huge(
0_IK))
252-2147483647,
-2147483647,
-2147483647,
+0,
+0,
+1,
+2,
+3,
+4,
+5,
+6,
+0,
+0,
+2147483647,
+2147483647,
+2147483647,
+2147483647,
+2147483647