14 integer(IK) :: count, itry, ntry
= 10
15 type(display_type) :: disp
19 character(:),
allocatable :: array
23 call disp%show(
"count = getUnifRand(4, 10)")
25 call disp%show(
"array = getUnifRand(repeat('A', count), repeat('Z', count)) ! generate random array for illustration.")
26 array
= getUnifRand(
repeat(
'A', count),
repeat(
'Z', count))
28 call disp%show( array, deliml
= SK_
"""" )
29 call disp%show(
"call setShuffled(array)")
32 call disp%show( array, deliml
= SK_
"""" )
35 call disp%show(
"count = getUnifRand(0, len(array))")
39 call disp%show(
"call setShuffled(array, count) ! draw randomly only `count` elements without replacement.")
42 call disp%show( array, deliml
= SK_
"""" )
48 character(
2),
allocatable :: array(:)
52 call disp%show(
"count = getUnifRand(4, 10)")
54 call disp%show(
"array = getUnifRand('AA', 'ZZ', count) ! generate random array for illustration.")
57 call disp%show( array, deliml
= SK_
"""" )
58 call disp%show(
"call setShuffled(array)")
61 call disp%show( array, deliml
= SK_
"""" )
64 call disp%show(
"count = getUnifRand(0, size(array))")
68 call disp%show(
"call setShuffled(array, count) ! draw randomly only `count` elements without replacement.")
71 call disp%show( array, deliml
= SK_
"""" )
77 integer,
allocatable :: array(:)
81 call disp%show(
"count = getUnifRand(4, 10)")
83 call disp%show(
"array = getUnifRand(0, 9, count) ! generate random array for illustration.")
87 call disp%show(
"call setShuffled(array)")
93 call disp%show(
"count = getUnifRand(0, size(array))")
97 call disp%show(
"call setShuffled(array, count) ! draw randomly only `count` elements without replacement.")
106 logical,
allocatable :: array(:)
110 call disp%show(
"count = getUnifRand(4, 10)")
112 call disp%show(
"array = getUnifRand(.false., .true., count) ! generate random array for illustration.")
116 call disp%show(
"call setShuffled(array)")
122 call disp%show(
"count = getUnifRand(0, size(array))")
126 call disp%show(
"call setShuffled(array, count) ! draw randomly only `count` elements without replacement.")
135 complex,
allocatable :: array(:)
139 call disp%show(
"count = getUnifRand(4, 10)")
141 call disp%show(
"array = getUnifRand((0., 0.), (1., 1.), count) ! generate random array for illustration.")
145 call disp%show(
"call setShuffled(array)")
151 call disp%show(
"count = getUnifRand(0, size(array))")
155 call disp%show(
"call setShuffled(array, count) ! draw randomly only `count` elements without replacement.")
164 real,
allocatable :: array(:)
168 call disp%show(
"count = getUnifRand(4, 10)")
170 call disp%show(
"array = getUnifRand(0., 1., count) ! generate random array for illustration.")
174 call disp%show(
"call setShuffled(array)")
180 call disp%show(
"count = getUnifRand(0, size(array))")
184 call disp%show(
"call setShuffled(array, count) ! draw randomly only `count` elements without replacement.")
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 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.
3array
= getUnifRand(
repeat(
'A', count),
repeat(
'Z', count))
18array
= getUnifRand(
repeat(
'A', count),
repeat(
'Z', count))
33array
= getUnifRand(
repeat(
'A', count),
repeat(
'Z', count))
48array
= getUnifRand(
repeat(
'A', count),
repeat(
'Z', count))
63array
= getUnifRand(
repeat(
'A', count),
repeat(
'Z', count))
78array
= getUnifRand(
repeat(
'A', count),
repeat(
'Z', count))
93array
= getUnifRand(
repeat(
'A', count),
repeat(
'Z', count))
108array
= getUnifRand(
repeat(
'A', count),
repeat(
'Z', count))
123array
= getUnifRand(
repeat(
'A', count),
repeat(
'Z', count))
138array
= getUnifRand(
repeat(
'A', count),
repeat(
'Z', count))
155"MQ",
"LM",
"NM",
"YW",
"UW",
"ZX"
158"NM",
"MQ",
"LM",
"YW",
"ZX",
"UW"
165"MQ",
"UW",
"NM",
"ZX",
"YW",
"LM"
170"MJ",
"IM",
"HH",
"GQ",
"RW",
"OI",
"XY",
"QG",
"AI",
"TW"
173"XY",
"QG",
"AI",
"IM",
"RW",
"HH",
"OI",
"TW",
"GQ",
"MJ"
180"RW",
"QG",
"AI",
"XY",
"GQ",
"HH",
"TW",
"OI",
"IM",
"MJ"
185"JP",
"PJ",
"KL",
"ZI",
"UY"
188"UY",
"JP",
"KL",
"ZI",
"PJ"
195"UY",
"JP",
"KL",
"ZI",
"PJ"
200"RF",
"JD",
"YV",
"BW",
"EH",
"ZR",
"IU"
203"IU",
"YV",
"JD",
"RF",
"BW",
"EH",
"ZR"
210"IU",
"YV",
"JD",
"RF",
"BW",
"EH",
"ZR"
215"CF",
"HK",
"QD",
"AA",
"RA",
"NL",
"KX"
218"RA",
"KX",
"NL",
"AA",
"QD",
"CF",
"HK"
225"NL",
"RA",
"QD",
"AA",
"KX",
"CF",
"HK"
230"ZY",
"SI",
"UW",
"VQ"
233"VQ",
"ZY",
"UW",
"SI"
240"UW",
"VQ",
"ZY",
"SI"
245"NS",
"UJ",
"DZ",
"KB",
"XO",
"KQ",
"ZT"
248"ZT",
"DZ",
"XO",
"KB",
"NS",
"UJ",
"KQ"
255"KQ",
"ZT",
"UJ",
"XO",
"KB",
"NS",
"DZ"
260"PS",
"WF",
"WS",
"MV"
263"PS",
"MV",
"WS",
"WF"
270"PS",
"WS",
"WF",
"MV"
275"UL",
"KC",
"LX",
"NY",
"KQ",
"DZ",
"YJ"
278"YJ",
"DZ",
"LX",
"UL",
"KQ",
"KC",
"NY"
285"LX",
"YJ",
"DZ",
"UL",
"KQ",
"KC",
"NY"
290"VV",
"TK",
"CZ",
"PV",
"XZ",
"CR",
"JQ",
"CT",
"PP",
"ML"
293"TK",
"VV",
"PP",
"ML",
"CT",
"PV",
"JQ",
"CZ",
"CR",
"XZ"
300"JQ",
"XZ",
"CT",
"ML",
"PP",
"PV",
"TK",
"CZ",
"CR",
"VV"
305+0,
+6,
+8,
+4,
+4,
+5
308+0,
+8,
+4,
+5,
+4,
+6
315+5,
+4,
+4,
+0,
+8,
+6
320+3,
+4,
+0,
+2,
+9,
+9,
+0,
+8
323+9,
+4,
+3,
+0,
+8,
+9,
+2,
+0
330+0,
+2,
+3,
+0,
+8,
+9,
+4,
+9
335+6,
+1,
+0,
+7,
+4,
+0,
+3
338+0,
+1,
+0,
+4,
+3,
+7,
+6
345+1,
+0,
+0,
+4,
+3,
+7,
+6
365+4,
+9,
+2,
+6,
+3,
+0,
+7,
+6,
+5,
+0
368+4,
+3,
+6,
+7,
+2,
+0,
+0,
+6,
+5,
+9
375+7,
+5,
+9,
+0,
+6,
+0,
+4,
+6,
+3,
+2
395+9,
+8,
+9,
+7,
+4,
+2,
+1,
+5,
+4,
+1
398+9,
+8,
+9,
+5,
+7,
+1,
+4,
+2,
+4,
+1
405+9,
+8,
+7,
+9,
+2,
+1,
+4,
+5,
+4,
+1
410+9,
+5,
+0,
+1,
+4,
+7,
+2,
+8,
+3
413+1,
+3,
+9,
+8,
+7,
+4,
+0,
+2,
+5
420+3,
+1,
+9,
+8,
+7,
+4,
+0,
+2,
+5
440+0,
+0,
+4,
+1,
+0,
+9,
+9
443+9,
+4,
+0,
+0,
+9,
+1,
+0
450+0,
+0,
+9,
+0,
+9,
+1,
+4
455F, T, T, F, F, F, F, T, T, T
458T, F, F, T, F, F, T, T, F, T
465F, T, F, T, F, F, F, T, T, T
500F, F, T, F, F, F, F, F, F, T
503F, F, T, F, T, F, F, F, F, F
510T, F, F, F, F, F, F, T, F, F
545T, T, T, F, F, F, F, F, T
548T, F, F, T, T, F, T, F, F
555T, T, F, F, F, F, F, T, T
560F, F, T, F, F, F, F, T, T
563F, T, F, F, F, F, T, F, T
570T, F, F, F, F, F, F, T, T
575T, F, F, T, F, F, F, F
578F, F, F, F, F, F, T, T
585F, T, F, T, F, F, F, F
590F, T, T, T, T, T, T, F, T, T
593T, T, T, T, T, T, T, T, F, F
600T, T, F, T, T, T, T, F, T, T
605(
+0.436752260,
+0.864646554), (
+0.230730534,
+0.425182283), (
+0.814001560,
+0.442059100), (
+0.444332123,
+0.290883362)
608(
+0.814001560,
+0.442059100), (
+0.444332123,
+0.290883362), (
+0.436752260,
+0.864646554), (
+0.230730534,
+0.425182283)
615(
+0.814001560,
+0.442059100), (
+0.444332123,
+0.290883362), (
+0.436752260,
+0.864646554), (
+0.230730534,
+0.425182283)
620(
+0.861353099,
+0.747174025E-2), (
+0.348273218,
+0.684502125), (
+0.747303307,
+0.792214870), (
+0.644806921,
+0.698512018), (
+0.166459262,
+0.176850021), (
+0.803857982,
+0.891407371), (
+0.507101536,
+0.928894281), (
+0.815713406,
+0.174106717), (
+0.852883697,
+0.357592285)
623(
+0.348273218,
+0.684502125), (
+0.803857982,
+0.891407371), (
+0.861353099,
+0.747174025E-2), (
+0.507101536,
+0.928894281), (
+0.747303307,
+0.792214870), (
+0.852883697,
+0.357592285), (
+0.815713406,
+0.174106717), (
+0.644806921,
+0.698512018), (
+0.166459262,
+0.176850021)
630(
+0.348273218,
+0.684502125), (
+0.852883697,
+0.357592285), (
+0.644806921,
+0.698512018), (
+0.861353099,
+0.747174025E-2), (
+0.815713406,
+0.174106717), (
+0.747303307,
+0.792214870), (
+0.803857982,
+0.891407371), (
+0.507101536,
+0.928894281), (
+0.166459262,
+0.176850021)
635(
+0.107371569,
+0.703265786), (
+0.101469278,
+0.876941442), (
+0.194487691,
+0.751997471), (
+0.137122273,
+0.394758642), (
+0.264947772,
+0.847061455), (
+0.566821873,
+0.473952889E-1)
638(
+0.264947772,
+0.847061455), (
+0.194487691,
+0.751997471), (
+0.137122273,
+0.394758642), (
+0.566821873,
+0.473952889E-1), (
+0.107371569,
+0.703265786), (
+0.101469278,
+0.876941442)
645(
+0.264947772,
+0.847061455), (
+0.194487691,
+0.751997471), (
+0.107371569,
+0.703265786), (
+0.101469278,
+0.876941442), (
+0.137122273,
+0.394758642), (
+0.566821873,
+0.473952889E-1)
650(
+0.256351829E-1,
+0.716567695), (
+0.276463032E-1,
+0.529498458E-1), (
+0.300198376,
+0.600129008), (
+0.280550122E-1,
+0.538336635E-1), (
+0.980688632,
+0.209396183), (
+0.961735249E-1,
+0.823585868)
653(
+0.256351829E-1,
+0.716567695), (
+0.280550122E-1,
+0.538336635E-1), (
+0.980688632,
+0.209396183), (
+0.300198376,
+0.600129008), (
+0.276463032E-1,
+0.529498458E-1), (
+0.961735249E-1,
+0.823585868)
660(
+0.276463032E-1,
+0.529498458E-1), (
+0.280550122E-1,
+0.538336635E-1), (
+0.961735249E-1,
+0.823585868), (
+0.300198376,
+0.600129008), (
+0.980688632,
+0.209396183), (
+0.256351829E-1,
+0.716567695)
665(
+0.727105319,
+0.672922194), (
+0.132682681,
+0.714335263), (
+0.295108557E-2,
+0.834554672), (
+0.194413841,
+0.738694012), (
+0.369099975,
+0.403415143), (
+0.143700063,
+0.389058352), (
+0.710275888,
+0.997240603), (
+0.709012270,
+0.392126381), (
+0.872498572,
+0.506014109), (
+0.434137642,
+0.822100520)
668(
+0.727105319,
+0.672922194), (
+0.872498572,
+0.506014109), (
+0.434137642,
+0.822100520), (
+0.295108557E-2,
+0.834554672), (
+0.710275888,
+0.997240603), (
+0.194413841,
+0.738694012), (
+0.132682681,
+0.714335263), (
+0.143700063,
+0.389058352), (
+0.709012270,
+0.392126381), (
+0.369099975,
+0.403415143)
675(
+0.872498572,
+0.506014109), (
+0.295108557E-2,
+0.834554672), (
+0.434137642,
+0.822100520), (
+0.143700063,
+0.389058352), (
+0.710275888,
+0.997240603), (
+0.194413841,
+0.738694012), (
+0.132682681,
+0.714335263), (
+0.727105319,
+0.672922194), (
+0.709012270,
+0.392126381), (
+0.369099975,
+0.403415143)
680(
+0.192036867,
+0.948875129), (
+0.925847352,
+0.796131253), (
+0.976293385,
+0.837785006E-1), (
+0.993737340,
+0.306888998), (
+0.773734093,
+0.146443784), (
+0.126544058,
+0.674064159), (
+0.702100992,
+0.640640795), (
+0.126393139,
+0.818153262)
683(
+0.925847352,
+0.796131253), (
+0.773734093,
+0.146443784), (
+0.126544058,
+0.674064159), (
+0.993737340,
+0.306888998), (
+0.702100992,
+0.640640795), (
+0.976293385,
+0.837785006E-1), (
+0.192036867,
+0.948875129), (
+0.126393139,
+0.818153262)
690(
+0.925847352,
+0.796131253), (
+0.773734093,
+0.146443784), (
+0.126544058,
+0.674064159), (
+0.993737340,
+0.306888998), (
+0.702100992,
+0.640640795), (
+0.976293385,
+0.837785006E-1), (
+0.192036867,
+0.948875129), (
+0.126393139,
+0.818153262)
695(
+0.131507218,
+0.553814769E-1), (
+0.848066509,
+0.900226235), (
+0.528705180,
+0.330166280), (
+0.804381669,
+0.684949756), (
+0.377502143,
+0.751099169)
698(
+0.848066509,
+0.900226235), (
+0.804381669,
+0.684949756), (
+0.528705180,
+0.330166280), (
+0.131507218,
+0.553814769E-1), (
+0.377502143,
+0.751099169)
705(
+0.377502143,
+0.751099169), (
+0.528705180,
+0.330166280), (
+0.804381669,
+0.684949756), (
+0.131507218,
+0.553814769E-1), (
+0.848066509,
+0.900226235)
710(
+0.338859379,
+0.300899982), (
+0.765851498,
+0.935467482E-1), (
+0.268614352,
+0.598528981), (
+0.959184766,
+0.863937855), (
+0.635663331,
+0.591544151), (
+0.926930904E-1,
+0.550715327E-1), (
+0.454681098,
+0.474696577), (
+0.939585686,
+0.402558744), (
+0.400727987,
+0.378519952)
713(
+0.926930904E-1,
+0.550715327E-1), (
+0.635663331,
+0.591544151), (
+0.765851498,
+0.935467482E-1), (
+0.959184766,
+0.863937855), (
+0.454681098,
+0.474696577), (
+0.939585686,
+0.402558744), (
+0.268614352,
+0.598528981), (
+0.400727987,
+0.378519952), (
+0.338859379,
+0.300899982)
720(
+0.926930904E-1,
+0.550715327E-1), (
+0.635663331,
+0.591544151), (
+0.765851498,
+0.935467482E-1), (
+0.959184766,
+0.863937855), (
+0.454681098,
+0.474696577), (
+0.939585686,
+0.402558744), (
+0.268614352,
+0.598528981), (
+0.400727987,
+0.378519952), (
+0.338859379,
+0.300899982)
725(
+0.727919161,
+0.360418260), (
+0.480832696,
+0.836469054), (
+0.230586767,
+0.721777678), (
+0.361201584,
+0.479918420), (
+0.615686119,
+0.797400892), (
+0.811865926E-1,
+0.193309307), (
+0.540059388,
+0.780780911), (
+0.848075986,
+0.482283771), (
+0.713712215,
+0.773829937)
728(
+0.713712215,
+0.773829937), (
+0.361201584,
+0.479918420), (
+0.615686119,
+0.797400892), (
+0.811865926E-1,
+0.193309307), (
+0.480832696,
+0.836469054), (
+0.727919161,
+0.360418260), (
+0.230586767,
+0.721777678), (
+0.848075986,
+0.482283771), (
+0.540059388,
+0.780780911)
735(
+0.230586767,
+0.721777678), (
+0.713712215,
+0.773829937), (
+0.727919161,
+0.360418260), (
+0.480832696,
+0.836469054), (
+0.811865926E-1,
+0.193309307), (
+0.615686119,
+0.797400892), (
+0.540059388,
+0.780780911), (
+0.361201584,
+0.479918420), (
+0.848075986,
+0.482283771)
740(
+0.605166793,
+0.377059460), (
+0.230063677,
+0.919241369), (
+0.348728061,
+0.777194679), (
+0.293236554,
+0.375318170), (
+0.325257063,
+0.543065071E-1), (
+0.440193713,
+0.589546323), (
+0.489738822,
+0.691102743), (
+0.983887315E-1,
+0.304551661), (
+0.348990917,
+0.803229392)
743(
+0.440193713,
+0.589546323), (
+0.983887315E-1,
+0.304551661), (
+0.489738822,
+0.691102743), (
+0.325257063,
+0.543065071E-1), (
+0.230063677,
+0.919241369), (
+0.293236554,
+0.375318170), (
+0.348990917,
+0.803229392), (
+0.348728061,
+0.777194679), (
+0.605166793,
+0.377059460)
750(
+0.605166793,
+0.377059460), (
+0.325257063,
+0.543065071E-1), (
+0.348990917,
+0.803229392), (
+0.230063677,
+0.919241369), (
+0.983887315E-1,
+0.304551661), (
+0.440193713,
+0.589546323), (
+0.348728061,
+0.777194679), (
+0.293236554,
+0.375318170), (
+0.489738822,
+0.691102743)
755+0.146108627,
+0.986324549E-1,
+0.539454162,
+0.178430676E-1,
+0.458063543,
+0.411617756E-1,
+0.987006426E-1
758+0.146108627,
+0.987006426E-1,
+0.178430676E-1,
+0.411617756E-1,
+0.458063543,
+0.539454162,
+0.986324549E-1
765+0.146108627,
+0.987006426E-1,
+0.178430676E-1,
+0.411617756E-1,
+0.458063543,
+0.539454162,
+0.986324549E-1
770+0.604183018,
+0.370403588,
+0.693266869,
+0.133645236,
+0.872526765,
+0.587605774,
+0.973545492,
+0.452180505E-1,
+0.736671984,
+0.361829102
773+0.973545492,
+0.587605774,
+0.370403588,
+0.604183018,
+0.133645236,
+0.736671984,
+0.872526765,
+0.361829102,
+0.693266869,
+0.452180505E-1
780+0.872526765,
+0.736671984,
+0.361829102,
+0.604183018,
+0.973545492,
+0.370403588,
+0.587605774,
+0.133645236,
+0.693266869,
+0.452180505E-1
785+0.394615769,
+0.173176050,
+0.398525000,
+0.865791619,
+0.793991685,
+0.762933254,
+0.805762649,
+0.335887015,
+0.624660075,
+0.865457475
788+0.865457475,
+0.173176050,
+0.805762649,
+0.865791619,
+0.335887015,
+0.398525000,
+0.762933254,
+0.793991685,
+0.394615769,
+0.624660075
795+0.173176050,
+0.793991685,
+0.398525000,
+0.394615769,
+0.335887015,
+0.805762649,
+0.762933254,
+0.865457475,
+0.865791619,
+0.624660075
800+0.971485138,
+0.865462601,
+0.626599491,
+0.353945136,
+0.351888001,
+0.956479609
803+0.626599491,
+0.351888001,
+0.353945136,
+0.865462601,
+0.956479609,
+0.971485138
810+0.626599491,
+0.351888001,
+0.353945136,
+0.865462601,
+0.956479609,
+0.971485138
815+0.554434121,
+0.651458085,
+0.257741809,
+0.200004339,
+0.318135619E-1,
+0.155763209
818+0.257741809,
+0.318135619E-1,
+0.155763209,
+0.554434121,
+0.200004339,
+0.651458085
825+0.155763209,
+0.257741809,
+0.318135619E-1,
+0.554434121,
+0.200004339,
+0.651458085
830+0.495083809,
+0.907926857,
+0.459842741,
+0.236649871,
+0.444451571E-1
833+0.459842741,
+0.907926857,
+0.444451571E-1,
+0.495083809,
+0.236649871
840+0.459842741,
+0.907926857,
+0.444451571E-1,
+0.495083809,
+0.236649871
845+0.285302520,
+0.470177531,
+0.575239778,
+0.768365562,
+0.789437830,
+0.863053858,
+0.449626386,
+0.463843286
848+0.449626386,
+0.470177531,
+0.575239778,
+0.863053858,
+0.285302520,
+0.463843286,
+0.768365562,
+0.789437830
855+0.768365562,
+0.470177531,
+0.575239778,
+0.863053858,
+0.285302520,
+0.463843286,
+0.449626386,
+0.789437830
860+0.519394875E-2,
+0.406711102E-1,
+0.401417553,
+0.565746546,
+0.255318165,
+0.649720430E-1,
+0.931977272,
+0.452402055
863+0.406711102E-1,
+0.931977272,
+0.565746546,
+0.649720430E-1,
+0.401417553,
+0.255318165,
+0.452402055,
+0.519394875E-2
870+0.255318165,
+0.649720430E-1,
+0.565746546,
+0.519394875E-2,
+0.931977272,
+0.452402055,
+0.406711102E-1,
+0.401417553
875+0.307157636,
+0.917962074,
+0.595843017,
+0.989279747,
+0.164972603,
+0.434939325,
+0.751385450,
+0.460086405,
+0.827225566,
+0.772785842
878+0.772785842,
+0.460086405,
+0.164972603,
+0.434939325,
+0.827225566,
+0.595843017,
+0.989279747,
+0.751385450,
+0.307157636,
+0.917962074
885+0.460086405,
+0.917962074,
+0.772785842,
+0.595843017,
+0.164972603,
+0.307157636,
+0.434939325,
+0.751385450,
+0.989279747,
+0.827225566
890+0.911157012,
+0.831626773,
+0.671796799E-1,
+0.419997215,
+0.589807034E-1,
+0.289500296
893+0.911157012,
+0.671796799E-1,
+0.419997215,
+0.289500296,
+0.589807034E-1,
+0.831626773
900+0.911157012,
+0.671796799E-1,
+0.589807034E-1,
+0.419997215,
+0.831626773,
+0.289500296