2call disp
%show(
"indexF"); \
3call disp
%show( indexF ); \
4call disp
%show(
"indexT"); \
5call disp
%show( indexT ); \
6call disp
%show(
"From"); \
7call disp
%show( From ); \
10call disp
%show(
"call setCopyIndexed(From, To, indexF, indexT)"); \
12call disp
%show(
"From"); \
13call disp
%show( From ); \
14call disp
%show(
"To"); \
28 integer(IK),
allocatable :: i, indexF(:), indexT(:)
30 type(display_type) :: disp
34 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
35 call disp%show(
"!Copy a string of characters of arbitrary kind in arbitrary orders.")
36 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
45 character(:, SK),
allocatable :: From, To
48 call disp%show(
"From = ALPHA_UPPER_STR_SK")
50 call disp%show(
"To = ALPHA_LOWER_STR_SK")
52 call disp%show(
"indexF = getRange(1, len(From)); indexT = getRange(len(To), 1, -1)")
58 call disp%show(
"From = ALPHA_UPPER_STR_SK")
60 call disp%show(
"To = ALPHA_LOWER_STR_SK")
62 call disp%show(
"indexF = getRange(1, len(From), 2); indexT = getRange(len(To), 1, -2)")
68 call disp%show(
"From = ALPHA_UPPER_STR_SK")
70 call disp%show(
"To = ALPHA_LOWER_STR_SK")
72 call disp%show(
"indexF = getRange(1, len(From), 2); indexT = getRange(len(To), 1, -2)")
78 call disp%show(
"From = ALPHA_STR_SK")
80 call disp%show(
"To = ALPHA_LOWER_STR_SK")
82 call disp%show(
"indexF = getRange(1, len(From), 4); indexT = getRange(1, len(To), 2)")
90 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
91 call disp%show(
"!Copy array of strings of the same length of arbitrary kind in arbitrary order.")
92 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
101 character(
1, SK),
allocatable :: From(:), To(:)
104 call disp%show(
"From = ALPHA_UPPER_VEC_SK")
106 call disp%show(
"To = ALPHA_LOWER_VEC_SK")
108 call disp%show(
"indexF = getRange(1, size(From), 2); indexT = getRange(size(To), 1, -2)")
114 call disp%show(
"From = ALPHA_LOWER_VEC_SK")
116 call disp%show(
"To = ALPHA_LOWER_VEC_SK")
118 call disp%show(
"indexF = getRange(1, size(From), 2); indexT = getRange(size(To), 1, -2)")
124 call disp%show(
"From = ALPHA_VEC_SK")
126 call disp%show(
"To = ALPHA_LOWER_VEC_SK")
128 call disp%show(
"indexF = getRange(1, size(From), 4); indexT = getRange(1, size(To), 2)")
136 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
137 call disp%show(
"!Copy array of integer values of arbitrary kind in arbitrary orders.")
138 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
143 integer,
allocatable :: From(:), To(:)
146 call disp%show(
"From = [1, 2, 3, 4, 5]")
147 From
= [
1,
2,
3,
4,
5]
148 call disp%show(
"To = [(huge(0), i = 1, 9)]")
149 To
= [(
huge(
0), i
= 1,
9)]
150 call disp%show(
"indexF = getRange(1, size(From)); indexT = getRange(1, size(To), 2)")
156 call disp%show(
"From = [1, 2, 3, 4, 5]")
157 From
= [
1,
2,
3,
4,
5]
158 call disp%show(
"To = [(huge(0), i = 1, 9)]")
159 To
= [(
huge(
0), i
= 1,
9)]
160 call disp%show(
"indexF = getRange(1, size(From)); indexT = getRange(size(To), 1, -2)")
168 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
169 call disp%show(
"!Copy array of logical values of arbitrary kind in arbitrary orders.")
170 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
175 logical,
allocatable :: From(:), To(:)
178 call disp%show(
"From = [.true., .true., .true., .true., .true.]")
179 From
= [
.true.,
.true.,
.true.,
.true.,
.true.]
180 call disp%show(
"To = [(.false., i = 1, 9)]")
181 To
= [(
.false., i
= 1,
9)]
182 call disp%show(
"indexF = getRange(1, size(From)); indexT = getRange(1, size(To), 2)")
190 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
191 call disp%show(
"!Copy array of complex values of arbitrary kind in arbitrary orders.")
192 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
197 real,
allocatable :: From(:), To(:)
200 call disp%show(
"From = cmplx([1, 2, 3, 4, 5], -[1, 2, 3, 4, 5])")
201 From
= cmplx([
1,
2,
3,
4,
5],
-[
1,
2,
3,
4,
5])
202 call disp%show(
"To = cmplx([(huge(0), i = 1, 9)], -[(huge(0), i = 1, 9)])")
203 To
= cmplx([(
huge(
0), i
= 1,
9)],
-[(
huge(
0), i
= 1,
9)])
204 call disp%show(
"indexF = getRange(1, size(From)); indexT = getRange(1, size(To), 2)")
210 call disp%show(
"From = cmplx([1, 2, 3, 4, 5], -[1, 2, 3, 4, 5])")
211 From
= cmplx([
1,
2,
3,
4,
5],
-[
1,
2,
3,
4,
5])
212 call disp%show(
"To = cmplx([(huge(0), i = 1, 9)], -[(huge(0), i = 1, 9)])")
213 To
= cmplx([(
huge(
0), i
= 1,
9)],
-[(
huge(
0), i
= 1,
9)])
214 call disp%show(
"indexF = getRange(1, size(From)); indexT = getRange(size(To), 1, -2)")
222 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
223 call disp%show(
"!Copy array of real values of arbitrary kind in arbitrary orders.")
224 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
229 real,
allocatable :: From(:), To(:)
232 call disp%show(
"From = [1, 2, 3, 4, 5]")
233 From
= [
1,
2,
3,
4,
5]
234 call disp%show(
"To = [(huge(0), i = 1, 9)]")
235 To
= [(
huge(
0), i
= 1,
9)]
236 call disp%show(
"indexF = getRange(1, size(From)); indexT = getRange(1, size(To), 2)")
242 call disp%show(
"From = [1, 2, 3, 4, 5]")
243 From
= [
1,
2,
3,
4,
5]
244 call disp%show(
"To = [(huge(0), i = 1, 9)]")
245 To
= [(
huge(
0), i
= 1,
9)]
246 call disp%show(
"indexF = getRange(1, size(From)); indexT = getRange(size(To), 1, -2)")
Generate minimally-spaced character, integer, real sequences or sequences at fixed intervals of size ...
Generate and return an output array whose elements are the reversed-order elements of the input array...
Generate and return a scalar or a contiguous array of rank 1 of length s1 of randomly uniformly distr...
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 procedures and generic interfaces for generating ranges of discrete character,...
This module contains procedures and generic interfaces for reversing the order of elements in arrays ...
This module contains classes and procedures for computing various statistical quantities related to t...
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 LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
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...
This module contains the uncommon and hardly representable ASCII characters as well as procedures for...
character(*, SK), parameter ALPHA_UPPER_STR_SK
The constant scalar of type character of default kind SK containing the ASCII uppercase English lette...
character(*, SK), parameter ALPHA_STR_SK
The constant scalar of type character of default kind SK containing the ASCII uppercase and lowercase...
character(1, SK), dimension(*), parameter ALPHA_UPPER_VEC_SK
The constant array of type character of default kind SK containing the uppercase English letters.
character(1, SK), dimension(*), parameter ALPHA_LOWER_VEC_SK
The constant array of type character of default kind SK containing the lowercase English letters.
character(*, SK), parameter ALPHA_LOWER_STR_SK
The constant scalar of type character of default kind SK containing the ASCII lowercase English lette...
character(1, SK), dimension(*), parameter ALPHA_VEC_SK
The constant array of type character of default kind SK containing the ASCII uppercase and lowercase ...
Generate and return an object of type display_type.
11+1,
+2,
+3,
+4,
+5,
+6,
+7,
+8,
+9,
+10,
+11,
+12,
+13,
+14,
+15,
+16,
+17,
+18,
+19,
+20,
+21,
+22,
+23,
+24,
+25,
+26
13+26,
+25,
+24,
+23,
+22,
+21,
+20,
+19,
+18,
+17,
+16,
+15,
+14,
+13,
+12,
+11,
+10,
+9,
+8,
+7,
+6,
+5,
+4,
+3,
+2,
+1
15ABCDEFGHIJKLMNOPQRSTUVWXYZ
17abcdefghijklmnopqrstuvwxyz
20ABCDEFGHIJKLMNOPQRSTUVWXYZ
22ZYXWVUTSRQPONMLKJIHGFEDCBA
29+1,
+3,
+5,
+7,
+9,
+11,
+13,
+15,
+17,
+19,
+21,
+23,
+25
31+26,
+24,
+22,
+20,
+18,
+16,
+14,
+12,
+10,
+8,
+6,
+4,
+2
33ABCDEFGHIJKLMNOPQRSTUVWXYZ
35abcdefghijklmnopqrstuvwxyz
38ABCDEFGHIJKLMNOPQRSTUVWXYZ
40aYcWeUgSiQkOmMoKqIsGuEwCyA
47+1,
+3,
+5,
+7,
+9,
+11,
+13,
+15,
+17,
+19,
+21,
+23,
+25
49+26,
+24,
+22,
+20,
+18,
+16,
+14,
+12,
+10,
+8,
+6,
+4,
+2
51ABCDEFGHIJKLMNOPQRSTUVWXYZ
53abcdefghijklmnopqrstuvwxyz
56ABCDEFGHIJKLMNOPQRSTUVWXYZ
58aYcWeUgSiQkOmMoKqIsGuEwCyA
65+1,
+5,
+9,
+13,
+17,
+21,
+25,
+29,
+33,
+37,
+41,
+45,
+49
67+1,
+3,
+5,
+7,
+9,
+11,
+13,
+15,
+17,
+19,
+21,
+23,
+25
69ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz
71abcdefghijklmnopqrstuvwxyz
74ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz
76AbEdIfMhQjUlYncpgrktovsxwz
88+1,
+3,
+5,
+7,
+9,
+11,
+13,
+15,
+17,
+19,
+21,
+23,
+25
90+26,
+24,
+22,
+20,
+18,
+16,
+14,
+12,
+10,
+8,
+6,
+4,
+2
92A, B, C, D, E, F, G, H, I, J, K, L, M, N, O, P, Q, R, S, T, U, V, W, X, Y, Z
94a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x, y, z
97A, B, C, D, E, F, G, H, I, J, K, L, M, N, O, P, Q, R, S, T, U, V, W, X, Y, Z
99a, Y, c, W, e, U, g, S, i, Q, k, O, m, M, o, K, q, I, s, G, u, E, w, C, y, A
106+1,
+3,
+5,
+7,
+9,
+11,
+13,
+15,
+17,
+19,
+21,
+23,
+25
108+26,
+24,
+22,
+20,
+18,
+16,
+14,
+12,
+10,
+8,
+6,
+4,
+2
110a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x, y, z
112a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x, y, z
115a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x, y, z
117a, y, c, w, e, u, g, s, i, q, k, o, m, m, o, k, q, i, s, g, u, e, w, c, y, a
124+1,
+5,
+9,
+13,
+17,
+21,
+25,
+29,
+33,
+37,
+41,
+45,
+49
126+1,
+3,
+5,
+7,
+9,
+11,
+13,
+15,
+17,
+19,
+21,
+23,
+25
128A, B, C, D, E, F, G, H, I, J, K, L, M, N, O, P, Q, R, S, T, U, V, W, X, Y, Z, a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x, y, z
130a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x, y, z
133A, B, C, D, E, F, G, H, I, J, K, L, M, N, O, P, Q, R, S, T, U, V, W, X, Y, Z, a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x, y, z
135A, b, E, d, I, f, M, h, Q, j, U, l, Y, n, c, p, g, r, k, t, o, v, s, x, w, z
143From
= [
1,
2,
3,
4,
5]
144To
= [(
huge(
0), i
= 1,
9)]
153+2147483647,
+2147483647,
+2147483647,
+2147483647,
+2147483647,
+2147483647,
+2147483647,
+2147483647,
+2147483647
158+1,
+2147483647,
+2,
+2147483647,
+3,
+2147483647,
+4,
+2147483647,
+5
161From
= [
1,
2,
3,
4,
5]
162To
= [(
huge(
0), i
= 1,
9)]
171+2147483647,
+2147483647,
+2147483647,
+2147483647,
+2147483647,
+2147483647,
+2147483647,
+2147483647,
+2147483647
176+5,
+2147483647,
+4,
+2147483647,
+3,
+2147483647,
+2,
+2147483647,
+1
184From
= [
.true.,
.true.,
.true.,
.true.,
.true.]
185To
= [(
.false., i
= 1,
9)]
194F, F, F, F, F, F, F, F, F
199T, F, T, F, T, F, T, F, T
207From
= cmplx([
1,
2,
3,
4,
5],
-[
1,
2,
3,
4,
5])
208To
= cmplx([(
huge(
0), i
= 1,
9)],
-[(
huge(
0), i
= 1,
9)])
215+1.00000000,
+2.00000000,
+3.00000000,
+4.00000000,
+5.00000000
217+0.214748365E+10,
+0.214748365E+10,
+0.214748365E+10,
+0.214748365E+10,
+0.214748365E+10,
+0.214748365E+10,
+0.214748365E+10,
+0.214748365E+10,
+0.214748365E+10
220+1.00000000,
+2.00000000,
+3.00000000,
+4.00000000,
+5.00000000
222+1.00000000,
+0.214748365E+10,
+2.00000000,
+0.214748365E+10,
+3.00000000,
+0.214748365E+10,
+4.00000000,
+0.214748365E+10,
+5.00000000
225From
= cmplx([
1,
2,
3,
4,
5],
-[
1,
2,
3,
4,
5])
226To
= cmplx([(
huge(
0), i
= 1,
9)],
-[(
huge(
0), i
= 1,
9)])
233+1.00000000,
+2.00000000,
+3.00000000,
+4.00000000,
+5.00000000
235+0.214748365E+10,
+0.214748365E+10,
+0.214748365E+10,
+0.214748365E+10,
+0.214748365E+10,
+0.214748365E+10,
+0.214748365E+10,
+0.214748365E+10,
+0.214748365E+10
238+1.00000000,
+2.00000000,
+3.00000000,
+4.00000000,
+5.00000000
240+5.00000000,
+0.214748365E+10,
+4.00000000,
+0.214748365E+10,
+3.00000000,
+0.214748365E+10,
+2.00000000,
+0.214748365E+10,
+1.00000000
248From
= [
1,
2,
3,
4,
5]
249To
= [(
huge(
0), i
= 1,
9)]
256+1.00000000,
+2.00000000,
+3.00000000,
+4.00000000,
+5.00000000
258+0.214748365E+10,
+0.214748365E+10,
+0.214748365E+10,
+0.214748365E+10,
+0.214748365E+10,
+0.214748365E+10,
+0.214748365E+10,
+0.214748365E+10,
+0.214748365E+10
261+1.00000000,
+2.00000000,
+3.00000000,
+4.00000000,
+5.00000000
263+1.00000000,
+0.214748365E+10,
+2.00000000,
+0.214748365E+10,
+3.00000000,
+0.214748365E+10,
+4.00000000,
+0.214748365E+10,
+5.00000000
266From
= [
1,
2,
3,
4,
5]
267To
= [(
huge(
0), i
= 1,
9)]
274+1.00000000,
+2.00000000,
+3.00000000,
+4.00000000,
+5.00000000
276+0.214748365E+10,
+0.214748365E+10,
+0.214748365E+10,
+0.214748365E+10,
+0.214748365E+10,
+0.214748365E+10,
+0.214748365E+10,
+0.214748365E+10,
+0.214748365E+10
279+1.00000000,
+2.00000000,
+3.00000000,
+4.00000000,
+5.00000000
281+5.00000000,
+0.214748365E+10,
+4.00000000,
+0.214748365E+10,
+3.00000000,
+0.214748365E+10,
+2.00000000,
+0.214748365E+10,
+1.00000000