16 integer(IK) :: count, itry, ntry
= 10
17 type(display_type) :: disp
22 character(:),
allocatable :: start, stop, change
26 call disp%show(
"count = getChoice([1, 2]); start = 'A'; stop = 'A'; step = getChoice([-1, 1])")
30 call disp%show(
"change = getChange(count, start, stop, step)")
31 change
= getChange(count, start, stop, step)
33 call disp%show( change, deliml
= SK_
"""" )
39 call disp%show(
"count = getUnifRand(1, 10); start = 'A'; stop = 'F'; step = 1")
40 count
= getUnifRand(
1,
10); start
= 'A';
stop = 'F'; step
= 1
43 call disp%show(
"change = getChange(count, start, stop, step)")
44 change
= getChange(count, start, stop, step)
46 call disp%show( change, deliml
= SK_
"""" )
49 call disp%show(
"count = getUnifRand(1, 6); start = 'F'; stop = 'A'; step = -1")
50 count
= getUnifRand(
1,
6); start
= 'F';
stop = 'A'; step
= -1
53 call disp%show(
"change = getChange(count, start, stop, step, unique = .true._LK)")
54 change
= getChange(count, start, stop, step, unique
= .true._LK)
56 call disp%show( change, deliml
= SK_
"""" )
59 call disp%show(
"count = getUnifRand(5, 10); start = 'A'; stop = 'z'; step = 3")
60 count
= getUnifRand(
5,
10); start
= 'A';
stop = 'z'; step
= 3
63 call disp%show(
"change = getChange(count, start, stop, step, unique = .true._LK)")
64 change
= getChange(count, start, stop, step, unique
= .true._LK)
66 call disp%show( change, deliml
= SK_
"""" )
74 integer(IKG),
allocatable :: start, stop, change(:)
78 call disp%show(
"count = getUnifRand(1, 10); start = 0; stop = 9; step = 1")
79 count
= getUnifRand(
1,
10); start
= 0;
stop = 9; step
= 1
82 call disp%show(
"change = getChange(count, start, stop, step)")
83 change
= getChange(count, start, stop, step)
85 call disp%show( change, deliml
= SK_
"""" )
88 call disp%show(
"count = getUnifRand(5, 10); start = 9; stop = -9; step = -2")
89 count
= getUnifRand(
5,
10); start
= 9;
stop = -9; step
= -2
92 call disp%show(
"change = getChange(count, start, stop, step, unique = .true._LK)")
93 change
= getChange(count, start, stop, step, unique
= .true._LK)
95 call disp%show( change, deliml
= SK_
"""" )
98 call disp%show(
"count = getUnifRand(5, 15); start = 5; stop = 1; step = -2")
99 count
= getUnifRand(
5,
15); start
= 5;
stop = 1; step
= -2
102 call disp%show(
"change = getChange(count, start, stop, step, unique = .false._LK)")
103 change
= getChange(count, start, stop, step, unique
= .false._LK)
105 call disp%show( change, deliml
= SK_
"""" )
Select a single (or multiple) element(s) from the input array of intrinsic type of arbitrary kind ran...
Generate minimally-spaced character, integer, real sequences or sequences at fixed intervals of size ...
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 selecting uniformly-distributed or arbitra...
This module contains procedures and generic interfaces for generating ranges of discrete character,...
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 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.
5change
= getChange(count, start, stop, step)
12change
= getChange(count, start, stop, step)
16count
= getUnifRand(
1,
10); start
= 'A';
stop = 'F'; step
= 1
19change
= getChange(count, start, stop, step)
23count
= getUnifRand(
1,
6); start
= 'F';
stop = 'A'; step
= -1
26change
= getChange(count, start, stop, step, unique
= .true._LK)
30count
= getUnifRand(
5,
10); start
= 'A';
stop = 'z'; step
= 3
33change
= getChange(count, start, stop, step, unique
= .true._LK)
37count
= getUnifRand(
1,
10); start
= 'A';
stop = 'F'; step
= 1
40change
= getChange(count, start, stop, step)
44count
= getUnifRand(
1,
6); start
= 'F';
stop = 'A'; step
= -1
47change
= getChange(count, start, stop, step, unique
= .true._LK)
51count
= getUnifRand(
5,
10); start
= 'A';
stop = 'z'; step
= 3
54change
= getChange(count, start, stop, step, unique
= .true._LK)
58count
= getUnifRand(
1,
10); start
= 'A';
stop = 'F'; step
= 1
61change
= getChange(count, start, stop, step)
65count
= getUnifRand(
1,
6); start
= 'F';
stop = 'A'; step
= -1
68change
= getChange(count, start, stop, step, unique
= .true._LK)
72count
= getUnifRand(
5,
10); start
= 'A';
stop = 'z'; step
= 3
75change
= getChange(count, start, stop, step, unique
= .true._LK)
79count
= getUnifRand(
1,
10); start
= 'A';
stop = 'F'; step
= 1
82change
= getChange(count, start, stop, step)
86count
= getUnifRand(
1,
6); start
= 'F';
stop = 'A'; step
= -1
89change
= getChange(count, start, stop, step, unique
= .true._LK)
93count
= getUnifRand(
5,
10); start
= 'A';
stop = 'z'; step
= 3
96change
= getChange(count, start, stop, step, unique
= .true._LK)
100count
= getUnifRand(
1,
10); start
= 'A';
stop = 'F'; step
= 1
103change
= getChange(count, start, stop, step)
107count
= getUnifRand(
1,
6); start
= 'F';
stop = 'A'; step
= -1
110change
= getChange(count, start, stop, step, unique
= .true._LK)
114count
= getUnifRand(
5,
10); start
= 'A';
stop = 'z'; step
= 3
117change
= getChange(count, start, stop, step, unique
= .true._LK)
121count
= getUnifRand(
1,
10); start
= 'A';
stop = 'F'; step
= 1
124change
= getChange(count, start, stop, step)
128count
= getUnifRand(
1,
6); start
= 'F';
stop = 'A'; step
= -1
131change
= getChange(count, start, stop, step, unique
= .true._LK)
135count
= getUnifRand(
5,
10); start
= 'A';
stop = 'z'; step
= 3
138change
= getChange(count, start, stop, step, unique
= .true._LK)
142count
= getUnifRand(
1,
10); start
= 'A';
stop = 'F'; step
= 1
145change
= getChange(count, start, stop, step)
149count
= getUnifRand(
1,
6); start
= 'F';
stop = 'A'; step
= -1
152change
= getChange(count, start, stop, step, unique
= .true._LK)
156count
= getUnifRand(
5,
10); start
= 'A';
stop = 'z'; step
= 3
159change
= getChange(count, start, stop, step, unique
= .true._LK)
163count
= getUnifRand(
1,
10); start
= 'A';
stop = 'F'; step
= 1
166change
= getChange(count, start, stop, step)
170count
= getUnifRand(
1,
6); start
= 'F';
stop = 'A'; step
= -1
173change
= getChange(count, start, stop, step, unique
= .true._LK)
177count
= getUnifRand(
5,
10); start
= 'A';
stop = 'z'; step
= 3
180change
= getChange(count, start, stop, step, unique
= .true._LK)
184count
= getUnifRand(
1,
10); start
= 'A';
stop = 'F'; step
= 1
187change
= getChange(count, start, stop, step)
191count
= getUnifRand(
1,
6); start
= 'F';
stop = 'A'; step
= -1
194change
= getChange(count, start, stop, step, unique
= .true._LK)
198count
= getUnifRand(
5,
10); start
= 'A';
stop = 'z'; step
= 3
201change
= getChange(count, start, stop, step, unique
= .true._LK)
205count
= getUnifRand(
1,
10); start
= 'A';
stop = 'F'; step
= 1
208change
= getChange(count, start, stop, step)
212count
= getUnifRand(
1,
6); start
= 'F';
stop = 'A'; step
= -1
215change
= getChange(count, start, stop, step, unique
= .true._LK)
219count
= getUnifRand(
5,
10); start
= 'A';
stop = 'z'; step
= 3
222change
= getChange(count, start, stop, step, unique
= .true._LK)
226count
= getUnifRand(
1,
10); start
= 0;
stop = 9; step
= 1
229change
= getChange(count, start, stop, step)
233count
= getUnifRand(
5,
10); start
= 9;
stop = -9; step
= -2
236change
= getChange(count, start, stop, step, unique
= .true._LK)
238"-9",
"+1",
"+9",
"+5",
"-5",
"+3",
"-3",
"+7",
"-1",
"-7"
240count
= getUnifRand(
5,
15); start
= 5;
stop = 1; step
= -2
243change
= getChange(count, start, stop, step, unique
= .false._LK)
245"+1",
"+5",
"+3",
"+1",
"+1",
"+3",
"+5",
"+3",
"+5",
"+3",
"+3",
"+1"
247count
= getUnifRand(
1,
10); start
= 0;
stop = 9; step
= 1
250change
= getChange(count, start, stop, step)
252"+6",
"+6",
"+9",
"+1",
"+6"
254count
= getUnifRand(
5,
10); start
= 9;
stop = -9; step
= -2
257change
= getChange(count, start, stop, step, unique
= .true._LK)
259"+5",
"+1",
"-7",
"+9",
"-3",
"-5",
"-1",
"-9",
"+7"
261count
= getUnifRand(
5,
15); start
= 5;
stop = 1; step
= -2
264change
= getChange(count, start, stop, step, unique
= .false._LK)
266"+3",
"+3",
"+5",
"+1",
"+5",
"+5",
"+1",
"+1",
"+5",
"+5",
"+1",
"+1"
268count
= getUnifRand(
1,
10); start
= 0;
stop = 9; step
= 1
271change
= getChange(count, start, stop, step)
273"+0",
"+3",
"+0",
"+2",
"+8",
"+2",
"+4"
275count
= getUnifRand(
5,
10); start
= 9;
stop = -9; step
= -2
278change
= getChange(count, start, stop, step, unique
= .true._LK)
280"+5",
"-1",
"+3",
"-9",
"+1",
"-5",
"+7",
"-3",
"+9",
"-7"
282count
= getUnifRand(
5,
15); start
= 5;
stop = 1; step
= -2
285change
= getChange(count, start, stop, step, unique
= .false._LK)
287"+5",
"+3",
"+3",
"+5",
"+1",
"+3",
"+3",
"+3",
"+5",
"+1",
"+1"
289count
= getUnifRand(
1,
10); start
= 0;
stop = 9; step
= 1
292change
= getChange(count, start, stop, step)
294"+1",
"+1",
"+1",
"+9",
"+4",
"+9",
"+1",
"+0",
"+5"
296count
= getUnifRand(
5,
10); start
= 9;
stop = -9; step
= -2
299change
= getChange(count, start, stop, step, unique
= .true._LK)
301"+9",
"-5",
"-9",
"-3",
"-1",
"+3"
303count
= getUnifRand(
5,
15); start
= 5;
stop = 1; step
= -2
306change
= getChange(count, start, stop, step, unique
= .false._LK)
308"+5",
"+5",
"+3",
"+1",
"+1",
"+5",
"+3",
"+5",
"+5",
"+1"
310count
= getUnifRand(
1,
10); start
= 0;
stop = 9; step
= 1
313change
= getChange(count, start, stop, step)
317count
= getUnifRand(
5,
10); start
= 9;
stop = -9; step
= -2
320change
= getChange(count, start, stop, step, unique
= .true._LK)
322"+9",
"-9",
"+7",
"+3",
"-1",
"-5",
"-3",
"+1"
324count
= getUnifRand(
5,
15); start
= 5;
stop = 1; step
= -2
327change
= getChange(count, start, stop, step, unique
= .false._LK)
329"+5",
"+3",
"+5",
"+3",
"+5",
"+3",
"+5",
"+1",
"+1",
"+1",
"+5",
"+1",
"+3"
331count
= getUnifRand(
1,
10); start
= 0;
stop = 9; step
= 1
334change
= getChange(count, start, stop, step)
336"+5",
"+0",
"+3",
"+3",
"+2",
"+4",
"+8"
338count
= getUnifRand(
5,
10); start
= 9;
stop = -9; step
= -2
341change
= getChange(count, start, stop, step, unique
= .true._LK)
343"-5",
"+7",
"-9",
"-3",
"+3"
345count
= getUnifRand(
5,
15); start
= 5;
stop = 1; step
= -2
348change
= getChange(count, start, stop, step, unique
= .false._LK)
350"+1",
"+1",
"+1",
"+1",
"+5",
"+3",
"+1",
"+3",
"+1",
"+1",
"+5"
352count
= getUnifRand(
1,
10); start
= 0;
stop = 9; step
= 1
355change
= getChange(count, start, stop, step)
357"+3",
"+9",
"+7",
"+7",
"+8",
"+2",
"+0"
359count
= getUnifRand(
5,
10); start
= 9;
stop = -9; step
= -2
362change
= getChange(count, start, stop, step, unique
= .true._LK)
364"+5",
"+3",
"-3",
"+1",
"+7",
"-7"
366count
= getUnifRand(
5,
15); start
= 5;
stop = 1; step
= -2
369change
= getChange(count, start, stop, step, unique
= .false._LK)
371"+5",
"+5",
"+5",
"+3",
"+5",
"+1"
373count
= getUnifRand(
1,
10); start
= 0;
stop = 9; step
= 1
376change
= getChange(count, start, stop, step)
378"+2",
"+4",
"+8",
"+6",
"+3",
"+6",
"+2",
"+3"
380count
= getUnifRand(
5,
10); start
= 9;
stop = -9; step
= -2
383change
= getChange(count, start, stop, step, unique
= .true._LK)
385"-7",
"-9",
"+1",
"+3",
"+9",
"+5"
387count
= getUnifRand(
5,
15); start
= 5;
stop = 1; step
= -2
390change
= getChange(count, start, stop, step, unique
= .false._LK)
392"+3",
"+3",
"+3",
"+1",
"+1",
"+3",
"+3",
"+3",
"+3",
"+1",
"+1",
"+5"
394count
= getUnifRand(
1,
10); start
= 0;
stop = 9; step
= 1
397change
= getChange(count, start, stop, step)
401count
= getUnifRand(
5,
10); start
= 9;
stop = -9; step
= -2
404change
= getChange(count, start, stop, step, unique
= .true._LK)
406"+5",
"-1",
"+3",
"+1",
"+9",
"-7",
"-5"
408count
= getUnifRand(
5,
15); start
= 5;
stop = 1; step
= -2
411change
= getChange(count, start, stop, step, unique
= .false._LK)
413"+1",
"+3",
"+1",
"+1",
"+5",
"+3",
"+3",
"+3",
"+1",
"+3",
"+3"
415count
= getUnifRand(
1,
10); start
= 0;
stop = 9; step
= 1
418change
= getChange(count, start, stop, step)
420"+5",
"+0",
"+3",
"+4"
422count
= getUnifRand(
5,
10); start
= 9;
stop = -9; step
= -2
425change
= getChange(count, start, stop, step, unique
= .true._LK)
427"+1",
"-1",
"-3",
"+3",
"-5",
"-7",
"+5",
"+7"
429count
= getUnifRand(
5,
15); start
= 5;
stop = 1; step
= -2
432change
= getChange(count, start, stop, step, unique
= .false._LK)
434"+5",
"+1",
"+5",
"+5",
"+1",
"+5",
"+3",
"+1",
"+1",
"+5",
"+1",
"+1",
"+5",
"+3",
"+5"