ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
pm_arrayRefine::setRefined Interface Reference

Generate a refined version of the input array where the sequentially unweighted entries along the specified dimension of array are skipped every skip to create a refined weighted output array of size rsize.
More...

Detailed Description

Generate a refined version of the input array where the sequentially unweighted entries along the specified dimension of array are skipped every skip to create a refined weighted output array of size rsize.

Parameters
[in,out]array: The input/output contiguous array of shape (:) or (:,:) of either
  1. type character of kind any supported by the processor (e.g., SK, SKA, SKD , or SKU) or
  2. type integer of kind any supported by the processor (e.g., IK, IK8, IK16, IK32, or IK64) or
  3. type logical of kind any supported by the processor (e.g., LK) or
  4. type complex of kind any supported by the processor (e.g., CK, CK32, CK64, or CK128) or
  5. type real of kind any supported by the processor (e.g., RK, RK32, RK64, or RK128)
or scalar character of kind any supported by the processor (e.g., SK, SKA, SKD , or SKU).
On input, it contains the elements to be refined.
On output, the first rsize entries of array contain the condensed elements of the original input array, such that no two adjacent entries in array from entry 1 to entry rsize are duplicates.
[in]dim: The input scalar of type integer of default kind IK representing the axis of array(:,:) along which array must be refined.
(optional, it must be present if and only if array is of shape (:,:).)
[in,out]weight: The input/output vector of
  1. type integer of default kind IK,
of size size(array, dim) containing the weights of individual elements of the input array.
On output, the first rsize elements of weight are written with the new refined weights of the corresponding elements in the output array.
[in]skip: The input scalar of type integer of default kind IK representing the number of elements to skip in the input sequence.
[out]rsize: The output scalar of type integer of default kind IK such that,
  1. weight(1:rsize) contains the weights of the refined elements of the input array, and
  2. array(1:rsize) or array(:,1:rsize) or array(1:rsize,:) contains the refined elements of the input array.


Possible calling interfaces ⛓

use pm_arrayRefine, only: setRefined
call setRefined(array, weight(:), rsize) ! scalar character objects.
call setRefined(array(:), weight(:), rsize) ! all intrinsic array objects.
call setRefined(array(:,:), dim, weight(:), rsize) ! all intrinsic array objects.
!
pm_arrayRefine::setRefined
Generate a refined version of the input array where the sequentially unweighted entries along the spe...
Definition: pm_arrayRefine.F90:1018
pm_arrayRefine
This module contains procedures and generic interfaces for refining (thinning) (weighted) arrays of a...
Definition: pm_arrayRefine.F90:60
Warning
The condition 0 < skip must hold.
The condition dim == 1 .or. dim == 2 must hold.
The condition size(weight) == size(array) must hold when array is rank 1.
The condition size(weight) == size(array, dim) must hold when array is rank 2.
These conditions are verified only if the library is built with the preprocessor macro CHECK_ENABLED=1.
The pure procedure(s) documented herein become impure when the ParaMonte library is compiled with preprocessor macro CHECK_ENABLED=1.
By default, these procedures are pure in release build and impure in debug and testing builds.
Note
See pm_arrayCopy for refining unweighted strings and arrays.
See also
setRefined
getCompact
getVerbose
pm_arrayCopy


Example usage ⛓

1program example
2
3 use pm_arrayVerbose, only: getVerbose
4 use pm_arrayRefine, only: setRefined
5 use pm_arrayChoice, only: getChoice
6 use pm_distUnif, only: getUnifRand
7 use pm_distBern, only: isHead
8 use pm_kind, only: SK, IK, LK
9 use pm_io, only: display_type
10
11 implicit none
12
13 type(display_type) :: disp
14 integer(IK) :: rsize, nsam, itry, ntry = 10
15 disp = display_type(file = "main.out.F90")
16
17 call disp%skip()
18 call disp%show("!%%%%%%%%%%%%%%%%%")
19 call disp%show("! Refine 1D array.")
20 call disp%show("!%%%%%%%%%%%%%%%%%")
21 call disp%skip()
22
23 block
24
25 block
26 use pm_kind, only: TKG => SK ! all kinds are supported.
27 character(:,TKG), allocatable :: array, arref
28 integer(IK), allocatable :: weight(:), weiref(:)
29 integer(IK) :: skip
30 do itry = 1, ntry
31 call disp%show("nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)")
32 nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
33 call disp%show("nsam")
34 call disp%show( nsam )
35 call disp%show("skip")
36 call disp%show( skip )
37 call disp%show("weight = getUnifRand(-1, 9, nsam)")
38 weight = getUnifRand(-1, 9, nsam)
39 call disp%show("weight")
40 call disp%show( weight )
41 call disp%show("array = getUnifRand(repeat('A', nsam), repeat('Z', nsam))")
42 array = getUnifRand(repeat('A', nsam), repeat('Z', nsam))
43 call disp%show("array")
44 call disp%show( array , deliml = TKG_"""" )
45 call disp%show("getVerbose(array, weight, sum(weight, mask = weight > 0))")
46 call disp%show( getVerbose(array, weight, sum(weight, mask = weight > 0)) , deliml = TKG_"""" )
47 call disp%show("arref = array")
48 arref = array
49 call disp%show("weiref = weight")
50 weiref = weight
51 call disp%show("call setRefined(arref, weiref, skip, rsize)")
52 call setRefined(arref, weiref, skip, rsize)
53 call disp%show("rsize")
54 call disp%show( rsize )
55 call disp%show("weiref(1:rsize)")
56 call disp%show( weiref(1:rsize) )
57 call disp%show("arref")
58 call disp%show( arref , deliml = TKG_"""" )
59 call disp%skip()
60 end do
61 end block
62
63 block
64 use pm_kind, only: TKG => SK ! all kinds are supported.
65 character(2,TKG), allocatable :: array(:), arref(:)
66 integer(IK), allocatable :: weight(:), weiref(:)
67 integer(IK) :: skip
68 do itry = 1, ntry
69 call disp%show("nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)")
70 nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
71 call disp%show("nsam")
72 call disp%show( nsam )
73 call disp%show("skip")
74 call disp%show( skip )
75 call disp%show("weight = getUnifRand(-1, 9, nsam)")
76 weight = getUnifRand(-1, 9, nsam)
77 call disp%show("weight")
78 call disp%show( weight )
79 call disp%show("array = getUnifRand('AA', 'ZZ', nsam)")
80 array = getUnifRand('AA', 'ZZ', nsam)
81 call disp%show("array")
82 call disp%show( array , deliml = TKG_"""" )
83 call disp%show("getVerbose(array, weight, sum(weight, mask = weight > 0))")
84 call disp%show( getVerbose(array, weight, sum(weight, mask = weight > 0)) , deliml = TKG_"""" )
85 call disp%show("arref = array")
86 arref = array
87 call disp%show("weiref = weight")
88 weiref = weight
89 call disp%show("call setRefined(arref, weiref, skip, rsize)")
90 call setRefined(arref, weiref, skip, rsize)
91 call disp%show("rsize")
92 call disp%show( rsize )
93 call disp%show("weiref(1:rsize)")
94 call disp%show( weiref(1:rsize) )
95 call disp%show("arref")
96 call disp%show( arref , deliml = TKG_"""" )
97 call disp%skip()
98 end do
99 end block
100
101 block
102 use pm_kind, only: TKG => IK ! all kinds are supported.
103 integer(TKG), allocatable :: array(:), arref(:)
104 integer(IK), allocatable :: weight(:), weiref(:)
105 integer(IK) :: skip
106 do itry = 1, ntry
107 call disp%show("nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)")
108 nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
109 call disp%show("nsam")
110 call disp%show( nsam )
111 call disp%show("skip")
112 call disp%show( skip )
113 call disp%show("weight = getUnifRand(-1, 9, nsam)")
114 weight = getUnifRand(-1, 9, nsam)
115 call disp%show("weight")
116 call disp%show( weight )
117 call disp%show("array = getUnifRand(0, 9, nsam)")
118 array = getUnifRand(0, 9, nsam)
119 call disp%show("array")
120 call disp%show( array )
121 call disp%show("getVerbose(array, weight, sum(weight, mask = weight > 0))")
122 call disp%show( getVerbose(array, weight, sum(weight, mask = weight > 0)) )
123 call disp%show("arref = array")
124 arref = array
125 call disp%show("weiref = weight")
126 weiref = weight
127 call disp%show("call setRefined(arref, weiref, skip, rsize)")
128 call setRefined(arref, weiref, skip, rsize)
129 call disp%show("rsize")
130 call disp%show( rsize )
131 call disp%show("weiref(1:rsize)")
132 call disp%show( weiref(1:rsize) )
133 call disp%show("arref(1:rsize)")
134 call disp%show( arref(1:rsize) )
135 call disp%skip()
136 end do
137 end block
138
139 block
140 use pm_kind, only: TKG => LK ! all kinds are supported.
141 logical(TKG), allocatable :: array(:), arref(:)
142 integer(IK), allocatable :: weight(:), weiref(:)
143 integer(IK) :: skip
144 do itry = 1, ntry
145 call disp%show("nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)")
146 nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
147 call disp%show("nsam")
148 call disp%show( nsam )
149 call disp%show("skip")
150 call disp%show( skip )
151 call disp%show("weight = getUnifRand(-1, 9, nsam)")
152 weight = getUnifRand(-1, 9, nsam)
153 call disp%show("weight")
154 call disp%show( weight )
155 call disp%show("array = getUnifRand(.false., .true., nsam)")
156 array = getUnifRand(.false., .true., nsam)
157 call disp%show("array")
158 call disp%show( array )
159 call disp%show("getVerbose(array, weight, sum(weight, mask = weight > 0))")
160 call disp%show( getVerbose(array, weight, sum(weight, mask = weight > 0)) )
161 call disp%show("arref = array")
162 arref = array
163 call disp%show("weiref = weight")
164 weiref = weight
165 call disp%show("call setRefined(arref, weiref, skip, rsize)")
166 call setRefined(arref, weiref, skip, rsize)
167 call disp%show("rsize")
168 call disp%show( rsize )
169 call disp%show("weiref(1:rsize)")
170 call disp%show( weiref(1:rsize) )
171 call disp%show("arref(1:rsize)")
172 call disp%show( arref(1:rsize) )
173 call disp%skip()
174 end do
175 end block
176
177 block
178 use pm_kind, only: TKG => CKS ! all kinds are supported.
179 complex(TKG), allocatable :: array(:), arref(:)
180 integer(IK), allocatable :: weight(:), weiref(:)
181 integer(IK) :: skip
182 do itry = 1, ntry
183 call disp%show("nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)")
184 nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
185 call disp%show("nsam")
186 call disp%show( nsam )
187 call disp%show("skip")
188 call disp%show( skip )
189 call disp%show("weight = getUnifRand(-1, 9, nsam)")
190 weight = getUnifRand(-1, 9, nsam)
191 call disp%show("weight")
192 call disp%show( weight )
193 call disp%show("array = cmplx(getUnifRand(0, 9, nsam), getUnifRand(0, 9, nsam), TKG)")
194 array = cmplx(getUnifRand(0, 9, nsam), getUnifRand(0, 9, nsam), TKG)
195 call disp%show("array")
196 call disp%show( array )
197 call disp%show("getVerbose(array, weight, sum(weight, mask = weight > 0))")
198 call disp%show( getVerbose(array, weight, sum(weight, mask = weight > 0)) )
199 call disp%show("arref = array")
200 arref = array
201 call disp%show("weiref = weight")
202 weiref = weight
203 call disp%show("call setRefined(arref, weiref, skip, rsize)")
204 call setRefined(arref, weiref, skip, rsize)
205 call disp%show("rsize")
206 call disp%show( rsize )
207 call disp%show("weiref(1:rsize)")
208 call disp%show( weiref(1:rsize) )
209 call disp%show("arref(1:rsize)")
210 call disp%show( arref(1:rsize) )
211 call disp%skip()
212 end do
213 end block
214
215 block
216 use pm_kind, only: TKG => RKS ! all kinds are supported.
217 real(TKG), allocatable :: array(:), arref(:)
218 integer(IK), allocatable :: weight(:), weiref(:)
219 integer(IK) :: skip
220 do itry = 1, ntry
221 call disp%show("nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)")
222 nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
223 call disp%show("nsam")
224 call disp%show( nsam )
225 call disp%show("skip")
226 call disp%show( skip )
227 call disp%show("weight = getUnifRand(-1, 9, nsam)")
228 weight = getUnifRand(-1, 9, nsam)
229 call disp%show("weight")
230 call disp%show( weight )
231 call disp%show("array = getUnifRand(0, 9, nsam)")
232 array = getUnifRand(0, 9, nsam)
233 call disp%show("array")
234 call disp%show( array )
235 call disp%show("getVerbose(array, weight, sum(weight, mask = weight > 0))")
236 call disp%show( getVerbose(array, weight, sum(weight, mask = weight > 0)) )
237 call disp%show("arref = array")
238 arref = array
239 call disp%show("weiref = weight")
240 weiref = weight
241 call disp%show("call setRefined(arref, weiref, skip, rsize)")
242 call setRefined(arref, weiref, skip, rsize)
243 call disp%show("rsize")
244 call disp%show( rsize )
245 call disp%show("weiref(1:rsize)")
246 call disp%show( weiref(1:rsize) )
247 call disp%show("arref(1:rsize)")
248 call disp%show( arref(1:rsize) )
249 call disp%skip()
250 end do
251 end block
252
253 end block
254
255 call disp%skip()
256 call disp%show("!%%%%%%%%%%%%%%%%%")
257 call disp%show("! Refine 2D array.")
258 call disp%show("!%%%%%%%%%%%%%%%%%")
259 call disp%skip()
260
261 block
262
263 integer(IK) :: dim, ndim
264
265 block
266 use pm_kind, only: TKG => SK ! all kinds are supported.
267 character(2,TKG), allocatable :: array(:,:), arref(:,:)
268 integer(IK), allocatable :: weight(:), weiref(:)
269 integer(IK) :: skip
270 do itry = 1, ntry
271 call disp%show("dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)")
272 dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
273 call disp%show("[dim, ndim, nsam]")
274 call disp%show( [dim, ndim, nsam] )
275 call disp%show("skip")
276 call disp%show( skip )
277 call disp%show("weight = getUnifRand(-1, 9, nsam)")
278 weight = getUnifRand(-1, 9, nsam)
279 call disp%show("weight")
280 call disp%show( weight )
281 call disp%show("array = getUnifRand('AA', 'ZZ', ndim, nsam)")
282 array = getUnifRand('AA', 'ZZ', ndim, nsam)
283 call disp%show("array")
284 call disp%show( array , deliml = TKG_"""" )
285 call disp%show("getVerbose(array, weight, sum(weight, mask = weight > 0), dim)")
286 call disp%show( getVerbose(array, weight, sum(weight, mask = weight > 0), dim) , deliml = TKG_"""" )
287 call disp%show("arref = array")
288 arref = array
289 call disp%show("weiref = weight")
290 weiref = weight
291 call disp%show("call setRefined(arref, dim, weiref, skip, rsize)")
292 call setRefined(arref, dim, weiref, skip, rsize)
293 call disp%show("rsize")
294 call disp%show( rsize )
295 call disp%show("weiref(1:rsize)")
296 call disp%show( weiref(1:rsize) )
297 call disp%show("arref(:, 1:rsize)")
298 call disp%show( arref(:, 1:rsize) , deliml = TKG_"""" )
299 call disp%show("weiref = weight")
300 weiref = weight
301 call disp%show("arref = transpose(array)")
302 arref = transpose(array)
303 call disp%show("call setRefined(arref, 3_IK - dim, weiref, skip, rsize)")
304 call setRefined(arref, 3_IK - dim, weiref, skip, rsize)
305 call disp%show("rsize")
306 call disp%show( rsize )
307 call disp%show("weiref(1:rsize)")
308 call disp%show( weiref(1:rsize) )
309 call disp%show("arref(1:rsize, :)")
310 call disp%show( arref(1:rsize, :) , deliml = TKG_"""" )
311 call disp%skip()
312 end do
313 end block
314
315 block
316 use pm_kind, only: TKG => IK ! all kinds are supported.
317 integer(TKG), allocatable :: array(:,:), arref(:,:)
318 integer(IK), allocatable :: weight(:), weiref(:)
319 integer(IK) :: skip
320 do itry = 1, ntry
321 call disp%show("dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)")
322 dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
323 call disp%show("[dim, ndim, nsam]")
324 call disp%show( [dim, ndim, nsam] )
325 call disp%show("skip")
326 call disp%show( skip )
327 call disp%show("weight = getUnifRand(-1, 9, nsam)")
328 weight = getUnifRand(-1, 9, nsam)
329 call disp%show("weight")
330 call disp%show( weight )
331 call disp%show("array = getUnifRand(0, 9, ndim, nsam)")
332 array = getUnifRand(0, 9, ndim, nsam)
333 call disp%show("array")
334 call disp%show( array )
335 call disp%show("getVerbose(array, weight, sum(weight, mask = weight > 0), dim)")
336 call disp%show( getVerbose(array, weight, sum(weight, mask = weight > 0), dim) )
337 call disp%show("arref = array")
338 arref = array
339 call disp%show("weiref = weight")
340 weiref = weight
341 call disp%show("call setRefined(arref, dim, weiref, skip, rsize)")
342 call setRefined(arref, dim, weiref, skip, rsize)
343 call disp%show("rsize")
344 call disp%show( rsize )
345 call disp%show("weiref(1:rsize)")
346 call disp%show( weiref(1:rsize) )
347 call disp%show("arref(:, 1:rsize)")
348 call disp%show( arref(:, 1:rsize) )
349 call disp%show("weiref = weight")
350 weiref = weight
351 call disp%show("arref = transpose(array)")
352 arref = transpose(array)
353 call disp%show("call setRefined(arref, 3_IK - dim, weiref, skip, rsize)")
354 call setRefined(arref, 3_IK - dim, weiref, skip, rsize)
355 call disp%show("rsize")
356 call disp%show( rsize )
357 call disp%show("weiref(1:rsize)")
358 call disp%show( weiref(1:rsize) )
359 call disp%show("arref(1:rsize, :)")
360 call disp%show( arref(1:rsize, :) )
361 call disp%skip()
362 end do
363 end block
364
365 block
366 use pm_kind, only: TKG => LK ! all kinds are supported.
367 logical(TKG), allocatable :: array(:,:), arref(:,:)
368 integer(IK), allocatable :: weight(:), weiref(:)
369 integer(IK) :: skip
370 do itry = 1, ntry
371 call disp%show("dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)")
372 dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
373 call disp%show("[dim, ndim, nsam]")
374 call disp%show( [dim, ndim, nsam] )
375 call disp%show("skip")
376 call disp%show( skip )
377 call disp%show("weight = getUnifRand(-1, 9, nsam)")
378 weight = getUnifRand(-1, 9, nsam)
379 call disp%show("weight")
380 call disp%show( weight )
381 call disp%show("array = getUnifRand(.false., .true., ndim, nsam)")
382 array = getUnifRand(.false., .true., ndim, nsam)
383 call disp%show("array")
384 call disp%show( array )
385 call disp%show("getVerbose(array, weight, sum(weight, mask = weight > 0), dim)")
386 call disp%show( getVerbose(array, weight, sum(weight, mask = weight > 0), dim) )
387 call disp%show("arref = array")
388 arref = array
389 call disp%show("weiref = weight")
390 weiref = weight
391 call disp%show("call setRefined(arref, dim, weiref, skip, rsize)")
392 call setRefined(arref, dim, weiref, skip, rsize)
393 call disp%show("rsize")
394 call disp%show( rsize )
395 call disp%show("weiref(1:rsize)")
396 call disp%show( weiref(1:rsize) )
397 call disp%show("arref(:, 1:rsize)")
398 call disp%show( arref(:, 1:rsize) )
399 call disp%show("weiref = weight")
400 weiref = weight
401 call disp%show("arref = transpose(array)")
402 arref = transpose(array)
403 call disp%show("call setRefined(arref, 3_IK - dim, weiref, skip, rsize)")
404 call setRefined(arref, 3_IK - dim, weiref, skip, rsize)
405 call disp%show("rsize")
406 call disp%show( rsize )
407 call disp%show("weiref(1:rsize)")
408 call disp%show( weiref(1:rsize) )
409 call disp%show("arref(1:rsize, :)")
410 call disp%show( arref(1:rsize, :) )
411 call disp%skip()
412 end do
413 end block
414
415 block
416 use pm_kind, only: TKG => CKS ! all kinds are supported.
417 complex(TKG), allocatable :: array(:,:), arref(:,:)
418 integer(IK), allocatable :: weight(:), weiref(:)
419 integer(IK) :: skip
420 do itry = 1, ntry
421 call disp%show("dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)")
422 dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
423 call disp%show("[dim, ndim, nsam]")
424 call disp%show( [dim, ndim, nsam] )
425 call disp%show("skip")
426 call disp%show( skip )
427 call disp%show("weight = getUnifRand(-1, 9, nsam)")
428 weight = getUnifRand(-1, 9, nsam)
429 call disp%show("weight")
430 call disp%show( weight )
431 call disp%show("array = cmplx(getUnifRand(0, 9, ndim, nsam), getUnifRand(0, 9, ndim, nsam), TKG)")
432 array = cmplx(getUnifRand(0, 9, ndim, nsam), getUnifRand(0, 9, ndim, nsam), TKG)
433 call disp%show("array")
434 call disp%show( array )
435 call disp%show("getVerbose(array, weight, sum(weight, mask = weight > 0), dim)")
436 call disp%show( getVerbose(array, weight, sum(weight, mask = weight > 0), dim) )
437 call disp%show("arref = array")
438 arref = array
439 call disp%show("weiref = weight")
440 weiref = weight
441 call disp%show("call setRefined(arref, dim, weiref, skip, rsize)")
442 call setRefined(arref, dim, weiref, skip, rsize)
443 call disp%show("rsize")
444 call disp%show( rsize )
445 call disp%show("weiref(1:rsize)")
446 call disp%show( weiref(1:rsize) )
447 call disp%show("arref(:, 1:rsize)")
448 call disp%show( arref(:, 1:rsize) )
449 call disp%show("weiref = weight")
450 weiref = weight
451 call disp%show("arref = transpose(array)")
452 arref = transpose(array)
453 call disp%show("call setRefined(arref, 3_IK - dim, weiref, skip, rsize)")
454 call setRefined(arref, 3_IK - dim, weiref, skip, rsize)
455 call disp%show("rsize")
456 call disp%show( rsize )
457 call disp%show("weiref(1:rsize)")
458 call disp%show( weiref(1:rsize) )
459 call disp%show("arref(1:rsize, :)")
460 call disp%show( arref(1:rsize, :) )
461 call disp%skip()
462 end do
463 end block
464
465 block
466 use pm_kind, only: TKG => RKS ! all kinds are supported.
467 real(TKG), allocatable :: array(:,:), arref(:,:)
468 integer(IK), allocatable :: weight(:), weiref(:)
469 integer(IK) :: skip
470 do itry = 1, ntry
471 call disp%show("dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)")
472 dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
473 call disp%show("[dim, ndim, nsam]")
474 call disp%show( [dim, ndim, nsam] )
475 call disp%show("skip")
476 call disp%show( skip )
477 call disp%show("weight = getUnifRand(-1, 9, nsam)")
478 weight = getUnifRand(-1, 9, nsam)
479 call disp%show("weight")
480 call disp%show( weight )
481 call disp%show("array = getUnifRand(0, 9, ndim, nsam)")
482 array = getUnifRand(0, 9, ndim, nsam)
483 call disp%show("array")
484 call disp%show( array )
485 call disp%show("getVerbose(array, weight, sum(weight, mask = weight > 0), dim)")
486 call disp%show( getVerbose(array, weight, sum(weight, mask = weight > 0), dim) )
487 call disp%show("arref = array")
488 arref = array
489 call disp%show("weiref = weight")
490 weiref = weight
491 call disp%show("call setRefined(arref, dim, weiref, skip, rsize)")
492 call setRefined(arref, dim, weiref, skip, rsize)
493 call disp%show("rsize")
494 call disp%show( rsize )
495 call disp%show("weiref(1:rsize)")
496 call disp%show( weiref(1:rsize) )
497 call disp%show("arref(:, 1:rsize)")
498 call disp%show( arref(:, 1:rsize) )
499 call disp%show("weiref = weight")
500 weiref = weight
501 call disp%show("arref = transpose(array)")
502 arref = transpose(array)
503 call disp%show("call setRefined(arref, 3_IK - dim, weiref, skip, rsize)")
504 call setRefined(arref, 3_IK - dim, weiref, skip, rsize)
505 call disp%show("rsize")
506 call disp%show( rsize )
507 call disp%show("weiref(1:rsize)")
508 call disp%show( weiref(1:rsize) )
509 call disp%show("arref(1:rsize, :)")
510 call disp%show( arref(1:rsize, :) )
511 call disp%skip()
512 end do
513 end block
514
515 end block
516
517end program example
pm_arrayChoice::getChoice
Select a single (or multiple) element(s) from the input array of intrinsic type of arbitrary kind ran...
Definition: pm_arrayChoice.F90:137
pm_arrayVerbose::getVerbose
Generate an equally-weighted (verbose or flattened) array of the input weighted array of rank 1 or 2.
Definition: pm_arrayVerbose.F90:142
pm_distBern::isHead
Generate and return a scalar (or a vector of length size or an array of the same shape as the input p...
Definition: pm_distBern.F90:160
pm_distUnif::getUnifRand
Generate and return a scalar or a contiguous array of rank 1 of length s1 of randomly uniformly distr...
Definition: pm_distUnif.F90:4150
pm_io::show
This is a generic method of the derived type display_type with pass attribute.
Definition: pm_io.F90:11726
pm_io::skip
This is a generic method of the derived type display_type with pass attribute.
Definition: pm_io.F90:11508
pm_arrayChoice
This module contains procedures and generic interfaces for selecting uniformly-distributed or arbitra...
Definition: pm_arrayChoice.F90:38
pm_arrayVerbose
This module contains procedures and generic interfaces for flattening (duplicating the elements of) a...
Definition: pm_arrayVerbose.F90:38
pm_distBern
This module contains classes and procedures for generating Bernoulli-distributed random numbers.
Definition: pm_distBern.F90:39
pm_distUnif
This module contains classes and procedures for computing various statistical quantities related to t...
Definition: pm_distUnif.F90:274
pm_io
This module contains classes and procedures for input/output (IO) or generic display operations on st...
Definition: pm_io.F90:252
pm_io::disp
type(display_type) disp
This is a scalar module variable an object of type display_type for general display.
Definition: pm_io.F90:11393
pm_kind
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:268
pm_kind::LK
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:541
pm_kind::CKS
integer, parameter CKS
The single-precision complex kind in Fortran mode. On most platforms, this is a 32-bit real kind.
Definition: pm_kind.F90:570
pm_kind::IK
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:540
pm_kind::SK
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
Definition: pm_kind.F90:539
pm_kind::RKS
integer, parameter RKS
The single-precision real kind in Fortran mode. On most platforms, this is an 32-bit real kind.
Definition: pm_kind.F90:567
pm_io::display_type
Generate and return an object of type display_type.
Definition: pm_io.F90:10282

Example Unix compile command via Intel ifort compiler ⛓
1#!/usr/bin/env sh
2rm main.exe
3ifort -fpp -standard-semantics -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte* -o main.exe
4./main.exe

Example Windows Batch compile command via Intel ifort compiler ⛓
1del main.exe
2set PATH=..\..\..\lib;%PATH%
3ifort /fpp /standard-semantics /O3 /I:..\..\..\include main.F90 ..\..\..\lib\libparamonte*.lib /exe:main.exe
4main.exe

Example Unix / MinGW compile command via GNU gfortran compiler ⛓
1#!/usr/bin/env sh
2rm main.exe
3gfortran -cpp -ffree-line-length-none -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte* -o main.exe
4./main.exe

Example output ⛓
1
2!%%%%%%%%%%%%%%%%%
3! Refine 1D array.
4!%%%%%%%%%%%%%%%%%
5
6nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
7nsam
8+0
9skip
10+4
11weight = getUnifRand(-1, 9, nsam)
12weight
13
14array = getUnifRand(repeat('A', nsam), repeat('Z', nsam))
15array
16""
17getVerbose(array, weight, sum(weight, mask = weight > 0))
18""
19arref = array
20weiref = weight
21call setRefined(arref, weiref, skip, rsize)
22rsize
23+0
24weiref(1:rsize)
25
26arref
27""
28
29nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
30nsam
31+5
32skip
33+1
34weight = getUnifRand(-1, 9, nsam)
35weight
36+8, +7, +6, +9, +5
37array = getUnifRand(repeat('A', nsam), repeat('Z', nsam))
38array
39"SZJJW"
40getVerbose(array, weight, sum(weight, mask = weight > 0))
41"SSSSSSSSZZZZZZZJJJJJJJJJJJJJJJWWWWW"
42arref = array
43weiref = weight
44call setRefined(arref, weiref, skip, rsize)
45rsize
46+5
47weiref(1:rsize)
48+8, +7, +6, +9, +5
49arref
50"SZJJW"
51
52nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
53nsam
54+5
55skip
56+3
57weight = getUnifRand(-1, 9, nsam)
58weight
59+1, +1, +8, +5, +4
60array = getUnifRand(repeat('A', nsam), repeat('Z', nsam))
61array
62"EYNXF"
63getVerbose(array, weight, sum(weight, mask = weight > 0))
64"EYNNNNNNNNXXXXXFFFF"
65arref = array
66weiref = weight
67call setRefined(arref, weiref, skip, rsize)
68rsize
69+3
70weiref(1:rsize)
71+3, +2, +1
72arref
73"NXFXF"
74
75nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
76nsam
77+6
78skip
79+4
80weight = getUnifRand(-1, 9, nsam)
81weight
82-1, +9, -1, +9, +2, +2
83array = getUnifRand(repeat('A', nsam), repeat('Z', nsam))
84array
85"DNSYSJ"
86getVerbose(array, weight, sum(weight, mask = weight > 0))
87"NNNNNNNNNYYYYYYYYYSSJJ"
88arref = array
89weiref = weight
90call setRefined(arref, weiref, skip, rsize)
91rsize
92+3
93weiref(1:rsize)
94+2, +2, +1
95arref
96"NYSYSJ"
97
98nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
99nsam
100+8
101skip
102+4
103weight = getUnifRand(-1, 9, nsam)
104weight
105+8, +3, +0, +0, +2, +8, +8, +1
106array = getUnifRand(repeat('A', nsam), repeat('Z', nsam))
107array
108"JLGPKXFY"
109getVerbose(array, weight, sum(weight, mask = weight > 0))
110"JJJJJJJJLLLKKXXXXXXXXFFFFFFFFY"
111arref = array
112weiref = weight
113call setRefined(arref, weiref, skip, rsize)
114rsize
115+4
116weiref(1:rsize)
117+2, +1, +2, +2
118arref
119"JKXFKXFY"
120
121nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
122nsam
123+0
124skip
125+2
126weight = getUnifRand(-1, 9, nsam)
127weight
128
129array = getUnifRand(repeat('A', nsam), repeat('Z', nsam))
130array
131""
132getVerbose(array, weight, sum(weight, mask = weight > 0))
133""
134arref = array
135weiref = weight
136call setRefined(arref, weiref, skip, rsize)
137rsize
138+0
139weiref(1:rsize)
140
141arref
142""
143
144nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
145nsam
146+0
147skip
148+2
149weight = getUnifRand(-1, 9, nsam)
150weight
151
152array = getUnifRand(repeat('A', nsam), repeat('Z', nsam))
153array
154""
155getVerbose(array, weight, sum(weight, mask = weight > 0))
156""
157arref = array
158weiref = weight
159call setRefined(arref, weiref, skip, rsize)
160rsize
161+0
162weiref(1:rsize)
163
164arref
165""
166
167nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
168nsam
169+5
170skip
171+3
172weight = getUnifRand(-1, 9, nsam)
173weight
174-1, +8, +6, +1, +1
175array = getUnifRand(repeat('A', nsam), repeat('Z', nsam))
176array
177"PHGDE"
178getVerbose(array, weight, sum(weight, mask = weight > 0))
179"HHHHHHHHGGGGGGDE"
180arref = array
181weiref = weight
182call setRefined(arref, weiref, skip, rsize)
183rsize
184+3
185weiref(1:rsize)
186+2, +2, +1
187arref
188"HGDDE"
189
190nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
191nsam
192+7
193skip
194+1
195weight = getUnifRand(-1, 9, nsam)
196weight
197+4, +6, +7, -1, +0, +0, +5
198array = getUnifRand(repeat('A', nsam), repeat('Z', nsam))
199array
200"TFBJPKG"
201getVerbose(array, weight, sum(weight, mask = weight > 0))
202"TTTTFFFFFFBBBBBBBGGGGG"
203arref = array
204weiref = weight
205call setRefined(arref, weiref, skip, rsize)
206rsize
207+4
208weiref(1:rsize)
209+4, +6, +7, +5
210arref
211"TFBGPKG"
212
213nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
214nsam
215+4
216skip
217+2
218weight = getUnifRand(-1, 9, nsam)
219weight
220+4, -1, -1, +1
221array = getUnifRand(repeat('A', nsam), repeat('Z', nsam))
222array
223"BMCV"
224getVerbose(array, weight, sum(weight, mask = weight > 0))
225"BBBBV"
226arref = array
227weiref = weight
228call setRefined(arref, weiref, skip, rsize)
229rsize
230+1
231weiref(1:rsize)
232+2
233arref
234"BMCV"
235
236nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
237nsam
238+7
239skip
240+1
241weight = getUnifRand(-1, 9, nsam)
242weight
243+0, +6, +2, +2, +6, +8, +3
244array = getUnifRand('AA', 'ZZ', nsam)
245array
246"UV", "KL", "PB", "JR", "NB", "KS", "IE"
247getVerbose(array, weight, sum(weight, mask = weight > 0))
248"KL", "KL", "KL", "KL", "KL", "KL", "PB", "PB", "JR", "JR", "NB", "NB", "NB", "NB", "NB", "NB", "KS", "KS", "KS", "KS", "KS", "KS", "KS", "KS", "IE", "IE", "IE"
249arref = array
250weiref = weight
251call setRefined(arref, weiref, skip, rsize)
252rsize
253+6
254weiref(1:rsize)
255+6, +2, +2, +6, +8, +3
256arref
257"KL", "PB", "JR", "NB", "KS", "IE", "IE"
258
259nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
260nsam
261+8
262skip
263+2
264weight = getUnifRand(-1, 9, nsam)
265weight
266-1, +8, +0, +3, +3, +8, +2, +5
267array = getUnifRand('AA', 'ZZ', nsam)
268array
269"ZG", "GE", "SX", "QP", "UC", "CY", "CA", "CT"
270getVerbose(array, weight, sum(weight, mask = weight > 0))
271"GE", "GE", "GE", "GE", "GE", "GE", "GE", "GE", "QP", "QP", "QP", "UC", "UC", "UC", "CY", "CY", "CY", "CY", "CY", "CY", "CY", "CY", "CA", "CA", "CT", "CT", "CT", "CT", "CT"
272arref = array
273weiref = weight
274call setRefined(arref, weiref, skip, rsize)
275rsize
276+6
277weiref(1:rsize)
278+4, +1, +2, +4, +1, +2
279arref
280"GE", "QP", "UC", "CY", "CA", "CT", "CA", "CT"
281
282nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
283nsam
284+8
285skip
286+2
287weight = getUnifRand(-1, 9, nsam)
288weight
289-1, +8, +5, +4, +6, +4, +9, +6
290array = getUnifRand('AA', 'ZZ', nsam)
291array
292"TZ", "OE", "XO", "GF", "GQ", "FM", "OK", "ZB"
293getVerbose(array, weight, sum(weight, mask = weight > 0))
294"OE", "OE", "OE", "OE", "OE", "OE", "OE", "OE", "XO", "XO", "XO", "XO", "XO", "GF", "GF", "GF", "GF", "GQ", "GQ", "GQ", "GQ", "GQ", "GQ", "FM", "FM", "FM", "FM", "OK", "OK", "OK", "OK", "OK", "OK", "OK", "OK", "OK", "ZB", "ZB", "ZB", "ZB", "ZB", "ZB"
295arref = array
296weiref = weight
297call setRefined(arref, weiref, skip, rsize)
298rsize
299+7
300weiref(1:rsize)
301+4, +2, +2, +3, +2, +5, +3
302arref
303"OE", "XO", "GF", "GQ", "FM", "OK", "ZB", "ZB"
304
305nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
306nsam
307+0
308skip
309+3
310weight = getUnifRand(-1, 9, nsam)
311weight
312
313array = getUnifRand('AA', 'ZZ', nsam)
314array
315
316getVerbose(array, weight, sum(weight, mask = weight > 0))
317
318arref = array
319weiref = weight
320call setRefined(arref, weiref, skip, rsize)
321rsize
322+0
323weiref(1:rsize)
324
325arref
326
327
328nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
329nsam
330+7
331skip
332+3
333weight = getUnifRand(-1, 9, nsam)
334weight
335+0, +3, +6, +2, +1, +7, +0
336array = getUnifRand('AA', 'ZZ', nsam)
337array
338"FH", "XC", "IU", "OT", "YF", "IA", "LE"
339getVerbose(array, weight, sum(weight, mask = weight > 0))
340"XC", "XC", "XC", "IU", "IU", "IU", "IU", "IU", "IU", "OT", "OT", "YF", "IA", "IA", "IA", "IA", "IA", "IA", "IA"
341arref = array
342weiref = weight
343call setRefined(arref, weiref, skip, rsize)
344rsize
345+4
346weiref(1:rsize)
347+1, +2, +1, +2
348arref
349"XC", "IU", "YF", "IA", "YF", "IA", "LE"
350
351nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
352nsam
353+5
354skip
355+3
356weight = getUnifRand(-1, 9, nsam)
357weight
358+4, +8, +1, +8, +5
359array = getUnifRand('AA', 'ZZ', nsam)
360array
361"HA", "OP", "UZ", "MC", "CM"
362getVerbose(array, weight, sum(weight, mask = weight > 0))
363"HA", "HA", "HA", "HA", "OP", "OP", "OP", "OP", "OP", "OP", "OP", "OP", "UZ", "MC", "MC", "MC", "MC", "MC", "MC", "MC", "MC", "CM", "CM", "CM", "CM", "CM"
364arref = array
365weiref = weight
366call setRefined(arref, weiref, skip, rsize)
367rsize
368+4
369weiref(1:rsize)
370+1, +3, +3, +1
371arref
372"HA", "OP", "MC", "CM", "CM"
373
374nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
375nsam
376+9
377skip
378+2
379weight = getUnifRand(-1, 9, nsam)
380weight
381+6, +9, +2, +4, +6, -1, -1, +6, +3
382array = getUnifRand('AA', 'ZZ', nsam)
383array
384"BO", "DI", "RO", "LF", "HG", "JS", "TK", "YB", "BC"
385getVerbose(array, weight, sum(weight, mask = weight > 0))
386"BO", "BO", "BO", "BO", "BO", "BO", "DI", "DI", "DI", "DI", "DI", "DI", "DI", "DI", "DI", "RO", "RO", "LF", "LF", "LF", "LF", "HG", "HG", "HG", "HG", "HG", "HG", "YB", "YB", "YB", "YB", "YB", "YB", "BC", "BC", "BC"
387arref = array
388weiref = weight
389call setRefined(arref, weiref, skip, rsize)
390rsize
391+7
392weiref(1:rsize)
393+3, +4, +1, +2, +3, +3, +2
394arref
395"BO", "DI", "RO", "LF", "HG", "YB", "BC", "YB", "BC"
396
397nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
398nsam
399+2
400skip
401+1
402weight = getUnifRand(-1, 9, nsam)
403weight
404+0, +5
405array = getUnifRand('AA', 'ZZ', nsam)
406array
407"GS", "KU"
408getVerbose(array, weight, sum(weight, mask = weight > 0))
409"KU", "KU", "KU", "KU", "KU"
410arref = array
411weiref = weight
412call setRefined(arref, weiref, skip, rsize)
413rsize
414+1
415weiref(1:rsize)
416+5
417arref
418"KU", "KU"
419
420nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
421nsam
422+1
423skip
424+1
425weight = getUnifRand(-1, 9, nsam)
426weight
427+2
428array = getUnifRand('AA', 'ZZ', nsam)
429array
430"UB"
431getVerbose(array, weight, sum(weight, mask = weight > 0))
432"UB", "UB"
433arref = array
434weiref = weight
435call setRefined(arref, weiref, skip, rsize)
436rsize
437+1
438weiref(1:rsize)
439+2
440arref
441"UB"
442
443nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
444nsam
445+7
446skip
447+2
448weight = getUnifRand(-1, 9, nsam)
449weight
450+4, +4, -1, +8, +7, +3, +5
451array = getUnifRand('AA', 'ZZ', nsam)
452array
453"NO", "KF", "TM", "SB", "PI", "QA", "WZ"
454getVerbose(array, weight, sum(weight, mask = weight > 0))
455"NO", "NO", "NO", "NO", "KF", "KF", "KF", "KF", "SB", "SB", "SB", "SB", "SB", "SB", "SB", "SB", "PI", "PI", "PI", "PI", "PI", "PI", "PI", "QA", "QA", "QA", "WZ", "WZ", "WZ", "WZ", "WZ"
456arref = array
457weiref = weight
458call setRefined(arref, weiref, skip, rsize)
459rsize
460+6
461weiref(1:rsize)
462+2, +2, +4, +3, +2, +2
463arref
464"NO", "KF", "SB", "PI", "QA", "WZ", "WZ"
465
466nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
467nsam
468+4
469skip
470+4
471weight = getUnifRand(-1, 9, nsam)
472weight
473-1, +9, +2, +7
474array = getUnifRand(0, 9, nsam)
475array
476+3, +9, +7, +4
477getVerbose(array, weight, sum(weight, mask = weight > 0))
478+9, +9, +9, +9, +9, +9, +9, +9, +9, +7, +7, +4, +4, +4, +4, +4, +4, +4
479arref = array
480weiref = weight
481call setRefined(arref, weiref, skip, rsize)
482rsize
483+2
484weiref(1:rsize)
485+2, +2
486arref(1:rsize)
487+9, +4
488
489nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
490nsam
491+6
492skip
493+1
494weight = getUnifRand(-1, 9, nsam)
495weight
496+6, +8, +8, +8, +8, +5
497array = getUnifRand(0, 9, nsam)
498array
499+5, +6, +2, +2, +3, +2
500getVerbose(array, weight, sum(weight, mask = weight > 0))
501+5, +5, +5, +5, +5, +5, +6, +6, +6, +6, +6, +6, +6, +6, +2, +2, +2, +2, +2, +2, +2, +2, +2, +2, +2, +2, +2, +2, +2, +2, +3, +3, +3, +3, +3, +3, +3, +3, +2, +2, +2, +2, +2
502arref = array
503weiref = weight
504call setRefined(arref, weiref, skip, rsize)
505rsize
506+6
507weiref(1:rsize)
508+6, +8, +8, +8, +8, +5
509arref(1:rsize)
510+5, +6, +2, +2, +3, +2
511
512nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
513nsam
514+1
515skip
516+1
517weight = getUnifRand(-1, 9, nsam)
518weight
519-1
520array = getUnifRand(0, 9, nsam)
521array
522+5
523getVerbose(array, weight, sum(weight, mask = weight > 0))
524
525arref = array
526weiref = weight
527call setRefined(arref, weiref, skip, rsize)
528rsize
529+0
530weiref(1:rsize)
531
532arref(1:rsize)
533
534
535nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
536nsam
537+7
538skip
539+3
540weight = getUnifRand(-1, 9, nsam)
541weight
542+6, +9, +5, +3, +7, +9, +0
543array = getUnifRand(0, 9, nsam)
544array
545+3, +8, +4, +3, +8, +7, +1
546getVerbose(array, weight, sum(weight, mask = weight > 0))
547+3, +3, +3, +3, +3, +3, +8, +8, +8, +8, +8, +8, +8, +8, +8, +4, +4, +4, +4, +4, +3, +3, +3, +8, +8, +8, +8, +8, +8, +8, +7, +7, +7, +7, +7, +7, +7, +7, +7
548arref = array
549weiref = weight
550call setRefined(arref, weiref, skip, rsize)
551rsize
552+6
553weiref(1:rsize)
554+2, +3, +1, +1, +3, +3
555arref(1:rsize)
556+3, +8, +4, +3, +8, +7
557
558nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
559nsam
560+0
561skip
562+4
563weight = getUnifRand(-1, 9, nsam)
564weight
565
566array = getUnifRand(0, 9, nsam)
567array
568
569getVerbose(array, weight, sum(weight, mask = weight > 0))
570
571arref = array
572weiref = weight
573call setRefined(arref, weiref, skip, rsize)
574rsize
575+0
576weiref(1:rsize)
577
578arref(1:rsize)
579
580
581nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
582nsam
583+6
584skip
585+2
586weight = getUnifRand(-1, 9, nsam)
587weight
588+4, +4, +0, +6, +4, +4
589array = getUnifRand(0, 9, nsam)
590array
591+9, +9, +8, +4, +7, +9
592getVerbose(array, weight, sum(weight, mask = weight > 0))
593+9, +9, +9, +9, +9, +9, +9, +9, +4, +4, +4, +4, +4, +4, +7, +7, +7, +7, +9, +9, +9, +9
594arref = array
595weiref = weight
596call setRefined(arref, weiref, skip, rsize)
597rsize
598+5
599weiref(1:rsize)
600+2, +2, +3, +2, +2
601arref(1:rsize)
602+9, +9, +4, +7, +9
603
604nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
605nsam
606+4
607skip
608+3
609weight = getUnifRand(-1, 9, nsam)
610weight
611+3, +1, +4, +2
612array = getUnifRand(0, 9, nsam)
613array
614+0, +1, +6, +4
615getVerbose(array, weight, sum(weight, mask = weight > 0))
616+0, +0, +0, +1, +6, +6, +6, +6, +4, +4
617arref = array
618weiref = weight
619call setRefined(arref, weiref, skip, rsize)
620rsize
621+3
622weiref(1:rsize)
623+1, +1, +1
624arref(1:rsize)
625+0, +6, +4
626
627nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
628nsam
629+2
630skip
631+1
632weight = getUnifRand(-1, 9, nsam)
633weight
634+1, +1
635array = getUnifRand(0, 9, nsam)
636array
637+8, +1
638getVerbose(array, weight, sum(weight, mask = weight > 0))
639+8, +1
640arref = array
641weiref = weight
642call setRefined(arref, weiref, skip, rsize)
643rsize
644+2
645weiref(1:rsize)
646+1, +1
647arref(1:rsize)
648+8, +1
649
650nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
651nsam
652+4
653skip
654+2
655weight = getUnifRand(-1, 9, nsam)
656weight
657+2, +9, +6, -1
658array = getUnifRand(0, 9, nsam)
659array
660+1, +1, +1, +9
661getVerbose(array, weight, sum(weight, mask = weight > 0))
662+1, +1, +1, +1, +1, +1, +1, +1, +1, +1, +1, +1, +1, +1, +1, +1, +1
663arref = array
664weiref = weight
665call setRefined(arref, weiref, skip, rsize)
666rsize
667+3
668weiref(1:rsize)
669+1, +4, +3
670arref(1:rsize)
671+1, +1, +1
672
673nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
674nsam
675+8
676skip
677+4
678weight = getUnifRand(-1, 9, nsam)
679weight
680+7, +4, +6, +7, +9, +2, +3, +9
681array = getUnifRand(0, 9, nsam)
682array
683+5, +9, +2, +3, +1, +3, +9, +4
684getVerbose(array, weight, sum(weight, mask = weight > 0))
685+5, +5, +5, +5, +5, +5, +5, +9, +9, +9, +9, +2, +2, +2, +2, +2, +2, +3, +3, +3, +3, +3, +3, +3, +1, +1, +1, +1, +1, +1, +1, +1, +1, +3, +3, +9, +9, +9, +4, +4, +4, +4, +4, +4, +4, +4, +4
686arref = array
687weiref = weight
688call setRefined(arref, weiref, skip, rsize)
689rsize
690+7
691weiref(1:rsize)
692+1, +1, +2, +2, +2, +1, +2
693arref(1:rsize)
694+5, +9, +2, +3, +1, +9, +4
695
696nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
697nsam
698+8
699skip
700+1
701weight = getUnifRand(-1, 9, nsam)
702weight
703+9, +1, +9, +1, +9, -1, +7, +7
704array = getUnifRand(.false., .true., nsam)
705array
706T, F, T, F, F, T, T, F
707getVerbose(array, weight, sum(weight, mask = weight > 0))
708T, T, T, T, T, T, T, T, T, F, T, T, T, T, T, T, T, T, T, F, F, F, F, F, F, F, F, F, F, T, T, T, T, T, T, T, F, F, F, F, F, F, F
709arref = array
710weiref = weight
711call setRefined(arref, weiref, skip, rsize)
712rsize
713+7
714weiref(1:rsize)
715+9, +1, +9, +1, +9, +7, +7
716arref(1:rsize)
717T, F, T, F, F, T, F
718
719nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
720nsam
721+0
722skip
723+3
724weight = getUnifRand(-1, 9, nsam)
725weight
726
727array = getUnifRand(.false., .true., nsam)
728array
729
730getVerbose(array, weight, sum(weight, mask = weight > 0))
731
732arref = array
733weiref = weight
734call setRefined(arref, weiref, skip, rsize)
735rsize
736+0
737weiref(1:rsize)
738
739arref(1:rsize)
740
741
742nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
743nsam
744+6
745skip
746+4
747weight = getUnifRand(-1, 9, nsam)
748weight
749+4, +6, +2, +6, -1, +8
750array = getUnifRand(.false., .true., nsam)
751array
752T, T, T, F, T, T
753getVerbose(array, weight, sum(weight, mask = weight > 0))
754T, T, T, T, T, T, T, T, T, T, T, T, F, F, F, F, F, F, T, T, T, T, T, T, T, T
755arref = array
756weiref = weight
757call setRefined(arref, weiref, skip, rsize)
758rsize
759+5
760weiref(1:rsize)
761+1, +1, +1, +1, +2
762arref(1:rsize)
763T, T, T, F, T
764
765nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
766nsam
767+0
768skip
769+2
770weight = getUnifRand(-1, 9, nsam)
771weight
772
773array = getUnifRand(.false., .true., nsam)
774array
775
776getVerbose(array, weight, sum(weight, mask = weight > 0))
777
778arref = array
779weiref = weight
780call setRefined(arref, weiref, skip, rsize)
781rsize
782+0
783weiref(1:rsize)
784
785arref(1:rsize)
786
787
788nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
789nsam
790+2
791skip
792+4
793weight = getUnifRand(-1, 9, nsam)
794weight
795+1, +9
796array = getUnifRand(.false., .true., nsam)
797array
798F, F
799getVerbose(array, weight, sum(weight, mask = weight > 0))
800F, F, F, F, F, F, F, F, F, F
801arref = array
802weiref = weight
803call setRefined(arref, weiref, skip, rsize)
804rsize
805+1
806weiref(1:rsize)
807+2
808arref(1:rsize)
809F
810
811nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
812nsam
813+5
814skip
815+2
816weight = getUnifRand(-1, 9, nsam)
817weight
818+0, -1, +6, -1, +4
819array = getUnifRand(.false., .true., nsam)
820array
821T, F, F, F, T
822getVerbose(array, weight, sum(weight, mask = weight > 0))
823F, F, F, F, F, F, T, T, T, T
824arref = array
825weiref = weight
826call setRefined(arref, weiref, skip, rsize)
827rsize
828+2
829weiref(1:rsize)
830+3, +2
831arref(1:rsize)
832F, T
833
834nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
835nsam
836+6
837skip
838+1
839weight = getUnifRand(-1, 9, nsam)
840weight
841+7, +2, +7, +7, +9, +2
842array = getUnifRand(.false., .true., nsam)
843array
844T, T, T, T, T, T
845getVerbose(array, weight, sum(weight, mask = weight > 0))
846T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
847arref = array
848weiref = weight
849call setRefined(arref, weiref, skip, rsize)
850rsize
851+6
852weiref(1:rsize)
853+7, +2, +7, +7, +9, +2
854arref(1:rsize)
855T, T, T, T, T, T
856
857nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
858nsam
859+7
860skip
861+2
862weight = getUnifRand(-1, 9, nsam)
863weight
864+0, +7, +9, +3, +2, +3, +0
865array = getUnifRand(.false., .true., nsam)
866array
867T, F, T, F, T, T, F
868getVerbose(array, weight, sum(weight, mask = weight > 0))
869F, F, F, F, F, F, F, T, T, T, T, T, T, T, T, T, F, F, F, T, T, T, T, T
870arref = array
871weiref = weight
872call setRefined(arref, weiref, skip, rsize)
873rsize
874+5
875weiref(1:rsize)
876+3, +5, +1, +1, +2
877arref(1:rsize)
878F, T, F, T, T
879
880nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
881nsam
882+3
883skip
884+1
885weight = getUnifRand(-1, 9, nsam)
886weight
887-1, +2, +0
888array = getUnifRand(.false., .true., nsam)
889array
890T, T, F
891getVerbose(array, weight, sum(weight, mask = weight > 0))
892T, T
893arref = array
894weiref = weight
895call setRefined(arref, weiref, skip, rsize)
896rsize
897+1
898weiref(1:rsize)
899+2
900arref(1:rsize)
901T
902
903nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
904nsam
905+2
906skip
907+2
908weight = getUnifRand(-1, 9, nsam)
909weight
910+1, +5
911array = getUnifRand(.false., .true., nsam)
912array
913T, F
914getVerbose(array, weight, sum(weight, mask = weight > 0))
915T, F, F, F, F, F
916arref = array
917weiref = weight
918call setRefined(arref, weiref, skip, rsize)
919rsize
920+1
921weiref(1:rsize)
922+3
923arref(1:rsize)
924F
925
926nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
927nsam
928+3
929skip
930+3
931weight = getUnifRand(-1, 9, nsam)
932weight
933-1, +8, +3
934array = cmplx(getUnifRand(0, 9, nsam), getUnifRand(0, 9, nsam), TKG)
935array
936(+0.00000000, +9.00000000), (+0.00000000, +9.00000000), (+5.00000000, +6.00000000)
937getVerbose(array, weight, sum(weight, mask = weight > 0))
938(+0.00000000, +9.00000000), (+0.00000000, +9.00000000), (+0.00000000, +9.00000000), (+0.00000000, +9.00000000), (+0.00000000, +9.00000000), (+0.00000000, +9.00000000), (+0.00000000, +9.00000000), (+0.00000000, +9.00000000), (+5.00000000, +6.00000000), (+5.00000000, +6.00000000), (+5.00000000, +6.00000000)
939arref = array
940weiref = weight
941call setRefined(arref, weiref, skip, rsize)
942rsize
943+2
944weiref(1:rsize)
945+2, +1
946arref(1:rsize)
947(+0.00000000, +9.00000000), (+5.00000000, +6.00000000)
948
949nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
950nsam
951+8
952skip
953+3
954weight = getUnifRand(-1, 9, nsam)
955weight
956+6, -1, +0, -1, +6, +7, -1, +6
957array = cmplx(getUnifRand(0, 9, nsam), getUnifRand(0, 9, nsam), TKG)
958array
959(+8.00000000, +9.00000000), (+0.00000000, +2.00000000), (+4.00000000, +4.00000000), (+4.00000000, +2.00000000), (+4.00000000, +2.00000000), (+4.00000000, +5.00000000), (+3.00000000, +3.00000000), (+6.00000000, +3.00000000)
960getVerbose(array, weight, sum(weight, mask = weight > 0))
961(+8.00000000, +9.00000000), (+8.00000000, +9.00000000), (+8.00000000, +9.00000000), (+8.00000000, +9.00000000), (+8.00000000, +9.00000000), (+8.00000000, +9.00000000), (+4.00000000, +2.00000000), (+4.00000000, +2.00000000), (+4.00000000, +2.00000000), (+4.00000000, +2.00000000), (+4.00000000, +2.00000000), (+4.00000000, +2.00000000), (+4.00000000, +5.00000000), (+4.00000000, +5.00000000), (+4.00000000, +5.00000000), (+4.00000000, +5.00000000), (+4.00000000, +5.00000000), (+4.00000000, +5.00000000), (+4.00000000, +5.00000000), (+6.00000000, +3.00000000), (+6.00000000, +3.00000000), (+6.00000000, +3.00000000), (+6.00000000, +3.00000000), (+6.00000000, +3.00000000), (+6.00000000, +3.00000000)
962arref = array
963weiref = weight
964call setRefined(arref, weiref, skip, rsize)
965rsize
966+4
967weiref(1:rsize)
968+2, +2, +2, +2
969arref(1:rsize)
970(+8.00000000, +9.00000000), (+4.00000000, +2.00000000), (+4.00000000, +5.00000000), (+6.00000000, +3.00000000)
971
972nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
973nsam
974+0
975skip
976+1
977weight = getUnifRand(-1, 9, nsam)
978weight
979
980array = cmplx(getUnifRand(0, 9, nsam), getUnifRand(0, 9, nsam), TKG)
981array
982
983getVerbose(array, weight, sum(weight, mask = weight > 0))
984
985arref = array
986weiref = weight
987call setRefined(arref, weiref, skip, rsize)
988rsize
989+0
990weiref(1:rsize)
991
992arref(1:rsize)
993
994
995nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
996nsam
997+1
998skip
999+2
1000weight = getUnifRand(-1, 9, nsam)
1001weight
1002+9
1003array = cmplx(getUnifRand(0, 9, nsam), getUnifRand(0, 9, nsam), TKG)
1004array
1005(+7.00000000, +6.00000000)
1006getVerbose(array, weight, sum(weight, mask = weight > 0))
1007(+7.00000000, +6.00000000), (+7.00000000, +6.00000000), (+7.00000000, +6.00000000), (+7.00000000, +6.00000000), (+7.00000000, +6.00000000), (+7.00000000, +6.00000000), (+7.00000000, +6.00000000), (+7.00000000, +6.00000000), (+7.00000000, +6.00000000)
1008arref = array
1009weiref = weight
1010call setRefined(arref, weiref, skip, rsize)
1011rsize
1012+1
1013weiref(1:rsize)
1014+4
1015arref(1:rsize)
1016(+7.00000000, +6.00000000)
1017
1018nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1019nsam
1020+3
1021skip
1022+4
1023weight = getUnifRand(-1, 9, nsam)
1024weight
1025+8, +1, +5
1026array = cmplx(getUnifRand(0, 9, nsam), getUnifRand(0, 9, nsam), TKG)
1027array
1028(+4.00000000, +5.00000000), (+4.00000000, +1.00000000), (+8.00000000, +2.00000000)
1029getVerbose(array, weight, sum(weight, mask = weight > 0))
1030(+4.00000000, +5.00000000), (+4.00000000, +5.00000000), (+4.00000000, +5.00000000), (+4.00000000, +5.00000000), (+4.00000000, +5.00000000), (+4.00000000, +5.00000000), (+4.00000000, +5.00000000), (+4.00000000, +5.00000000), (+4.00000000, +1.00000000), (+8.00000000, +2.00000000), (+8.00000000, +2.00000000), (+8.00000000, +2.00000000), (+8.00000000, +2.00000000), (+8.00000000, +2.00000000)
1031arref = array
1032weiref = weight
1033call setRefined(arref, weiref, skip, rsize)
1034rsize
1035+2
1036weiref(1:rsize)
1037+2, +1
1038arref(1:rsize)
1039(+4.00000000, +5.00000000), (+8.00000000, +2.00000000)
1040
1041nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1042nsam
1043+2
1044skip
1045+3
1046weight = getUnifRand(-1, 9, nsam)
1047weight
1048-1, +2
1049array = cmplx(getUnifRand(0, 9, nsam), getUnifRand(0, 9, nsam), TKG)
1050array
1051(+0.00000000, +8.00000000), (+6.00000000, +3.00000000)
1052getVerbose(array, weight, sum(weight, mask = weight > 0))
1053(+6.00000000, +3.00000000), (+6.00000000, +3.00000000)
1054arref = array
1055weiref = weight
1056call setRefined(arref, weiref, skip, rsize)
1057rsize
1058+0
1059weiref(1:rsize)
1060
1061arref(1:rsize)
1062
1063
1064nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1065nsam
1066+2
1067skip
1068+4
1069weight = getUnifRand(-1, 9, nsam)
1070weight
1071+2, +2
1072array = cmplx(getUnifRand(0, 9, nsam), getUnifRand(0, 9, nsam), TKG)
1073array
1074(+8.00000000, +7.00000000), (+2.00000000, +0.00000000)
1075getVerbose(array, weight, sum(weight, mask = weight > 0))
1076(+8.00000000, +7.00000000), (+8.00000000, +7.00000000), (+2.00000000, +0.00000000), (+2.00000000, +0.00000000)
1077arref = array
1078weiref = weight
1079call setRefined(arref, weiref, skip, rsize)
1080rsize
1081+1
1082weiref(1:rsize)
1083+1
1084arref(1:rsize)
1085(+2.00000000, +0.00000000)
1086
1087nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1088nsam
1089+1
1090skip
1091+2
1092weight = getUnifRand(-1, 9, nsam)
1093weight
1094-1
1095array = cmplx(getUnifRand(0, 9, nsam), getUnifRand(0, 9, nsam), TKG)
1096array
1097(+3.00000000, +8.00000000)
1098getVerbose(array, weight, sum(weight, mask = weight > 0))
1099
1100arref = array
1101weiref = weight
1102call setRefined(arref, weiref, skip, rsize)
1103rsize
1104+0
1105weiref(1:rsize)
1106
1107arref(1:rsize)
1108
1109
1110nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1111nsam
1112+0
1113skip
1114+2
1115weight = getUnifRand(-1, 9, nsam)
1116weight
1117
1118array = cmplx(getUnifRand(0, 9, nsam), getUnifRand(0, 9, nsam), TKG)
1119array
1120
1121getVerbose(array, weight, sum(weight, mask = weight > 0))
1122
1123arref = array
1124weiref = weight
1125call setRefined(arref, weiref, skip, rsize)
1126rsize
1127+0
1128weiref(1:rsize)
1129
1130arref(1:rsize)
1131
1132
1133nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1134nsam
1135+6
1136skip
1137+1
1138weight = getUnifRand(-1, 9, nsam)
1139weight
1140+1, +0, +5, +7, +3, +9
1141array = cmplx(getUnifRand(0, 9, nsam), getUnifRand(0, 9, nsam), TKG)
1142array
1143(+4.00000000, +2.00000000), (+3.00000000, +1.00000000), (+2.00000000, +2.00000000), (+3.00000000, +1.00000000), (+2.00000000, +9.00000000), (+5.00000000, +1.00000000)
1144getVerbose(array, weight, sum(weight, mask = weight > 0))
1145(+4.00000000, +2.00000000), (+2.00000000, +2.00000000), (+2.00000000, +2.00000000), (+2.00000000, +2.00000000), (+2.00000000, +2.00000000), (+2.00000000, +2.00000000), (+3.00000000, +1.00000000), (+3.00000000, +1.00000000), (+3.00000000, +1.00000000), (+3.00000000, +1.00000000), (+3.00000000, +1.00000000), (+3.00000000, +1.00000000), (+3.00000000, +1.00000000), (+2.00000000, +9.00000000), (+2.00000000, +9.00000000), (+2.00000000, +9.00000000), (+5.00000000, +1.00000000), (+5.00000000, +1.00000000), (+5.00000000, +1.00000000), (+5.00000000, +1.00000000), (+5.00000000, +1.00000000), (+5.00000000, +1.00000000), (+5.00000000, +1.00000000), (+5.00000000, +1.00000000), (+5.00000000, +1.00000000)
1146arref = array
1147weiref = weight
1148call setRefined(arref, weiref, skip, rsize)
1149rsize
1150+5
1151weiref(1:rsize)
1152+1, +5, +7, +3, +9
1153arref(1:rsize)
1154(+4.00000000, +2.00000000), (+2.00000000, +2.00000000), (+3.00000000, +1.00000000), (+2.00000000, +9.00000000), (+5.00000000, +1.00000000)
1155
1156nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1157nsam
1158+1
1159skip
1160+1
1161weight = getUnifRand(-1, 9, nsam)
1162weight
1163+1
1164array = getUnifRand(0, 9, nsam)
1165array
1166+2.00000000
1167getVerbose(array, weight, sum(weight, mask = weight > 0))
1168+2.00000000
1169arref = array
1170weiref = weight
1171call setRefined(arref, weiref, skip, rsize)
1172rsize
1173+1
1174weiref(1:rsize)
1175+1
1176arref(1:rsize)
1177+2.00000000
1178
1179nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1180nsam
1181+9
1182skip
1183+4
1184weight = getUnifRand(-1, 9, nsam)
1185weight
1186+0, +5, +4, +5, +9, +5, +7, +8, +2
1187array = getUnifRand(0, 9, nsam)
1188array
1189+5.00000000, +4.00000000, +8.00000000, +7.00000000, +5.00000000, +1.00000000, +7.00000000, +5.00000000, +0.00000000
1190getVerbose(array, weight, sum(weight, mask = weight > 0))
1191+4.00000000, +4.00000000, +4.00000000, +4.00000000, +4.00000000, +8.00000000, +8.00000000, +8.00000000, +8.00000000, +7.00000000, +7.00000000, +7.00000000, +7.00000000, +7.00000000, +5.00000000, +5.00000000, +5.00000000, +5.00000000, +5.00000000, +5.00000000, +5.00000000, +5.00000000, +5.00000000, +1.00000000, +1.00000000, +1.00000000, +1.00000000, +1.00000000, +7.00000000, +7.00000000, +7.00000000, +7.00000000, +7.00000000, +7.00000000, +7.00000000, +5.00000000, +5.00000000, +5.00000000, +5.00000000, +5.00000000, +5.00000000, +5.00000000, +5.00000000, +0.00000000, +0.00000000
1192arref = array
1193weiref = weight
1194call setRefined(arref, weiref, skip, rsize)
1195rsize
1196+8
1197weiref(1:rsize)
1198+1, +1, +1, +2, +2, +1, +2, +1
1199arref(1:rsize)
1200+4.00000000, +8.00000000, +7.00000000, +5.00000000, +1.00000000, +7.00000000, +5.00000000, +0.00000000
1201
1202nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1203nsam
1204+3
1205skip
1206+4
1207weight = getUnifRand(-1, 9, nsam)
1208weight
1209+9, +8, +3
1210array = getUnifRand(0, 9, nsam)
1211array
1212+5.00000000, +3.00000000, +8.00000000
1213getVerbose(array, weight, sum(weight, mask = weight > 0))
1214+5.00000000, +5.00000000, +5.00000000, +5.00000000, +5.00000000, +5.00000000, +5.00000000, +5.00000000, +5.00000000, +3.00000000, +3.00000000, +3.00000000, +3.00000000, +3.00000000, +3.00000000, +3.00000000, +3.00000000, +8.00000000, +8.00000000, +8.00000000
1215arref = array
1216weiref = weight
1217call setRefined(arref, weiref, skip, rsize)
1218rsize
1219+3
1220weiref(1:rsize)
1221+2, +2, +1
1222arref(1:rsize)
1223+5.00000000, +3.00000000, +8.00000000
1224
1225nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1226nsam
1227+7
1228skip
1229+2
1230weight = getUnifRand(-1, 9, nsam)
1231weight
1232+8, +4, +3, +6, -1, +1, +7
1233array = getUnifRand(0, 9, nsam)
1234array
1235+3.00000000, +8.00000000, +5.00000000, +4.00000000, +4.00000000, +7.00000000, +1.00000000
1236getVerbose(array, weight, sum(weight, mask = weight > 0))
1237+3.00000000, +3.00000000, +3.00000000, +3.00000000, +3.00000000, +3.00000000, +3.00000000, +3.00000000, +8.00000000, +8.00000000, +8.00000000, +8.00000000, +5.00000000, +5.00000000, +5.00000000, +4.00000000, +4.00000000, +4.00000000, +4.00000000, +4.00000000, +4.00000000, +7.00000000, +1.00000000, +1.00000000, +1.00000000, +1.00000000, +1.00000000, +1.00000000, +1.00000000
1238arref = array
1239weiref = weight
1240call setRefined(arref, weiref, skip, rsize)
1241rsize
1242+6
1243weiref(1:rsize)
1244+4, +2, +1, +3, +1, +3
1245arref(1:rsize)
1246+3.00000000, +8.00000000, +5.00000000, +4.00000000, +7.00000000, +1.00000000
1247
1248nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1249nsam
1250+1
1251skip
1252+3
1253weight = getUnifRand(-1, 9, nsam)
1254weight
1255+3
1256array = getUnifRand(0, 9, nsam)
1257array
1258+9.00000000
1259getVerbose(array, weight, sum(weight, mask = weight > 0))
1260+9.00000000, +9.00000000, +9.00000000
1261arref = array
1262weiref = weight
1263call setRefined(arref, weiref, skip, rsize)
1264rsize
1265+1
1266weiref(1:rsize)
1267+1
1268arref(1:rsize)
1269+9.00000000
1270
1271nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1272nsam
1273+7
1274skip
1275+3
1276weight = getUnifRand(-1, 9, nsam)
1277weight
1278+4, +3, +5, +8, +3, +3, +9
1279array = getUnifRand(0, 9, nsam)
1280array
1281+0.00000000, +4.00000000, +7.00000000, +5.00000000, +5.00000000, +4.00000000, +1.00000000
1282getVerbose(array, weight, sum(weight, mask = weight > 0))
1283+0.00000000, +0.00000000, +0.00000000, +0.00000000, +4.00000000, +4.00000000, +4.00000000, +7.00000000, +7.00000000, +7.00000000, +7.00000000, +7.00000000, +5.00000000, +5.00000000, +5.00000000, +5.00000000, +5.00000000, +5.00000000, +5.00000000, +5.00000000, +5.00000000, +5.00000000, +5.00000000, +4.00000000, +4.00000000, +4.00000000, +1.00000000, +1.00000000, +1.00000000, +1.00000000, +1.00000000, +1.00000000, +1.00000000, +1.00000000, +1.00000000
1284arref = array
1285weiref = weight
1286call setRefined(arref, weiref, skip, rsize)
1287rsize
1288+7
1289weiref(1:rsize)
1290+1, +1, +2, +2, +1, +1, +3
1291arref(1:rsize)
1292+0.00000000, +4.00000000, +7.00000000, +5.00000000, +5.00000000, +4.00000000, +1.00000000
1293
1294nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1295nsam
1296+9
1297skip
1298+3
1299weight = getUnifRand(-1, 9, nsam)
1300weight
1301+2, +2, +2, +4, +9, +7, +3, +2, +3
1302array = getUnifRand(0, 9, nsam)
1303array
1304+8.00000000, +2.00000000, +7.00000000, +3.00000000, +8.00000000, +1.00000000, +1.00000000, +8.00000000, +0.00000000
1305getVerbose(array, weight, sum(weight, mask = weight > 0))
1306+8.00000000, +8.00000000, +2.00000000, +2.00000000, +7.00000000, +7.00000000, +3.00000000, +3.00000000, +3.00000000, +3.00000000, +8.00000000, +8.00000000, +8.00000000, +8.00000000, +8.00000000, +8.00000000, +8.00000000, +8.00000000, +8.00000000, +1.00000000, +1.00000000, +1.00000000, +1.00000000, +1.00000000, +1.00000000, +1.00000000, +1.00000000, +1.00000000, +1.00000000, +8.00000000, +8.00000000, +0.00000000, +0.00000000, +0.00000000
1307arref = array
1308weiref = weight
1309call setRefined(arref, weiref, skip, rsize)
1310rsize
1311+8
1312weiref(1:rsize)
1313+1, +1, +1, +3, +2, +1, +1, +1
1314arref(1:rsize)
1315+2.00000000, +7.00000000, +3.00000000, +8.00000000, +1.00000000, +1.00000000, +8.00000000, +0.00000000
1316
1317nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1318nsam
1319+5
1320skip
1321+4
1322weight = getUnifRand(-1, 9, nsam)
1323weight
1324+1, -1, +6, +0, +2
1325array = getUnifRand(0, 9, nsam)
1326array
1327+6.00000000, +2.00000000, +5.00000000, +0.00000000, +0.00000000
1328getVerbose(array, weight, sum(weight, mask = weight > 0))
1329+6.00000000, +5.00000000, +5.00000000, +5.00000000, +5.00000000, +5.00000000, +5.00000000, +0.00000000, +0.00000000
1330arref = array
1331weiref = weight
1332call setRefined(arref, weiref, skip, rsize)
1333rsize
1334+2
1335weiref(1:rsize)
1336+1, +1
1337arref(1:rsize)
1338+5.00000000, +0.00000000
1339
1340nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1341nsam
1342+6
1343skip
1344+1
1345weight = getUnifRand(-1, 9, nsam)
1346weight
1347+9, +7, +9, +8, +4, +9
1348array = getUnifRand(0, 9, nsam)
1349array
1350+8.00000000, +9.00000000, +0.00000000, +2.00000000, +5.00000000, +3.00000000
1351getVerbose(array, weight, sum(weight, mask = weight > 0))
1352+8.00000000, +8.00000000, +8.00000000, +8.00000000, +8.00000000, +8.00000000, +8.00000000, +8.00000000, +8.00000000, +9.00000000, +9.00000000, +9.00000000, +9.00000000, +9.00000000, +9.00000000, +9.00000000, +0.00000000, +0.00000000, +0.00000000, +0.00000000, +0.00000000, +0.00000000, +0.00000000, +0.00000000, +0.00000000, +2.00000000, +2.00000000, +2.00000000, +2.00000000, +2.00000000, +2.00000000, +2.00000000, +2.00000000, +5.00000000, +5.00000000, +5.00000000, +5.00000000, +3.00000000, +3.00000000, +3.00000000, +3.00000000, +3.00000000, +3.00000000, +3.00000000, +3.00000000, +3.00000000
1353arref = array
1354weiref = weight
1355call setRefined(arref, weiref, skip, rsize)
1356rsize
1357+6
1358weiref(1:rsize)
1359+9, +7, +9, +8, +4, +9
1360arref(1:rsize)
1361+8.00000000, +9.00000000, +0.00000000, +2.00000000, +5.00000000, +3.00000000
1362
1363nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1364nsam
1365+6
1366skip
1367+1
1368weight = getUnifRand(-1, 9, nsam)
1369weight
1370+3, +2, +1, +3, +1, +1
1371array = getUnifRand(0, 9, nsam)
1372array
1373+0.00000000, +4.00000000, +5.00000000, +2.00000000, +9.00000000, +8.00000000
1374getVerbose(array, weight, sum(weight, mask = weight > 0))
1375+0.00000000, +0.00000000, +0.00000000, +4.00000000, +4.00000000, +5.00000000, +2.00000000, +2.00000000, +2.00000000, +9.00000000, +8.00000000
1376arref = array
1377weiref = weight
1378call setRefined(arref, weiref, skip, rsize)
1379rsize
1380+6
1381weiref(1:rsize)
1382+3, +2, +1, +3, +1, +1
1383arref(1:rsize)
1384+0.00000000, +4.00000000, +5.00000000, +2.00000000, +9.00000000, +8.00000000
1385
1386
1387!%%%%%%%%%%%%%%%%%
1388! Refine 2D array.
1389!%%%%%%%%%%%%%%%%%
1390
1391dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1392[dim, ndim, nsam]
1393+2, +1, +0
1394skip
1395+2
1396weight = getUnifRand(-1, 9, nsam)
1397weight
1398
1399array = getUnifRand('AA', 'ZZ', ndim, nsam)
1400array
1401
1402getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
1403
1404arref = array
1405weiref = weight
1406call setRefined(arref, dim, weiref, skip, rsize)
1407rsize
1408+0
1409weiref(1:rsize)
1410
1411arref(:, 1:rsize)
1412
1413weiref = weight
1414arref = transpose(array)
1415call setRefined(arref, 3_IK - dim, weiref, skip, rsize)
1416rsize
1417+0
1418weiref(1:rsize)
1419
1420arref(1:rsize, :)
1421
1422dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1423[dim, ndim, nsam]
1424+2, +3, +8
1425skip
1426+3
1427weight = getUnifRand(-1, 9, nsam)
1428weight
1429+4, +3, +5, +0, +5, +1, -1, +0
1430array = getUnifRand('AA', 'ZZ', ndim, nsam)
1431array
1432"YF", "TS", "OZ", "AH", "SM", "OM", "MC", "RU"
1433"LN", "PG", "NC", "SU", "ND", "UH", "JD", "JD"
1434"JZ", "RX", "WD", "EC", "DE", "IV", "ZA", "NY"
1435getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
1436"YF", "YF", "YF", "YF", "TS", "TS", "TS", "OZ", "OZ", "OZ", "OZ", "OZ", "SM", "SM", "SM", "SM", "SM", "OM"
1437"LN", "LN", "LN", "LN", "PG", "PG", "PG", "NC", "NC", "NC", "NC", "NC", "ND", "ND", "ND", "ND", "ND", "UH"
1438"JZ", "JZ", "JZ", "JZ", "RX", "RX", "RX", "WD", "WD", "WD", "WD", "WD", "DE", "DE", "DE", "DE", "DE", "IV"
1439arref = array
1440weiref = weight
1441call setRefined(arref, dim, weiref, skip, rsize)
1442rsize
1443+5
1444weiref(1:rsize)
1445+1, +1, +2, +1, +1
1446arref(:, 1:rsize)
1447"YF", "TS", "OZ", "SM", "OM"
1448"LN", "PG", "NC", "ND", "UH"
1449"JZ", "RX", "WD", "DE", "IV"
1450weiref = weight
1451arref = transpose(array)
1452call setRefined(arref, 3_IK - dim, weiref, skip, rsize)
1453rsize
1454+5
1455weiref(1:rsize)
1456+1, +1, +2, +1, +1
1457arref(1:rsize, :)
1458"YF", "LN", "JZ"
1459"TS", "PG", "RX"
1460"OZ", "NC", "WD"
1461"SM", "ND", "DE"
1462"OM", "UH", "IV"
1463
1464dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1465[dim, ndim, nsam]
1466+2, +3, +0
1467skip
1468+3
1469weight = getUnifRand(-1, 9, nsam)
1470weight
1471
1472array = getUnifRand('AA', 'ZZ', ndim, nsam)
1473array
1474
1475
1476
1477getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
1478
1479
1480
1481arref = array
1482weiref = weight
1483call setRefined(arref, dim, weiref, skip, rsize)
1484rsize
1485+0
1486weiref(1:rsize)
1487
1488arref(:, 1:rsize)
1489
1490
1491
1492weiref = weight
1493arref = transpose(array)
1494call setRefined(arref, 3_IK - dim, weiref, skip, rsize)
1495rsize
1496+0
1497weiref(1:rsize)
1498
1499arref(1:rsize, :)
1500
1501dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1502[dim, ndim, nsam]
1503+2, +1, +1
1504skip
1505+3
1506weight = getUnifRand(-1, 9, nsam)
1507weight
1508+3
1509array = getUnifRand('AA', 'ZZ', ndim, nsam)
1510array
1511"GD"
1512getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
1513"GD", "GD", "GD"
1514arref = array
1515weiref = weight
1516call setRefined(arref, dim, weiref, skip, rsize)
1517rsize
1518+1
1519weiref(1:rsize)
1520+1
1521arref(:, 1:rsize)
1522"GD"
1523weiref = weight
1524arref = transpose(array)
1525call setRefined(arref, 3_IK - dim, weiref, skip, rsize)
1526rsize
1527+1
1528weiref(1:rsize)
1529+1
1530arref(1:rsize, :)
1531"GD"
1532
1533dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1534[dim, ndim, nsam]
1535+2, +3, +8
1536skip
1537+4
1538weight = getUnifRand(-1, 9, nsam)
1539weight
1540+7, +1, +1, +2, +9, +4, +5, +1
1541array = getUnifRand('AA', 'ZZ', ndim, nsam)
1542array
1543"ET", "NO", "ZS", "IG", "ZT", "YX", "BI", "YT"
1544"YD", "TZ", "PE", "AP", "HI", "KA", "MU", "GV"
1545"BH", "HY", "EV", "GC", "EB", "XH", "QL", "QZ"
1546getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
1547"ET", "ET", "ET", "ET", "ET", "ET", "ET", "NO", "ZS", "IG", "IG", "ZT", "ZT", "ZT", "ZT", "ZT", "ZT", "ZT", "ZT", "ZT", "YX", "YX", "YX", "YX", "BI", "BI", "BI", "BI", "BI", "YT"
1548"YD", "YD", "YD", "YD", "YD", "YD", "YD", "TZ", "PE", "AP", "AP", "HI", "HI", "HI", "HI", "HI", "HI", "HI", "HI", "HI", "KA", "KA", "KA", "KA", "MU", "MU", "MU", "MU", "MU", "GV"
1549"BH", "BH", "BH", "BH", "BH", "BH", "BH", "HY", "EV", "GC", "GC", "EB", "EB", "EB", "EB", "EB", "EB", "EB", "EB", "EB", "XH", "XH", "XH", "XH", "QL", "QL", "QL", "QL", "QL", "QZ"
1550arref = array
1551weiref = weight
1552call setRefined(arref, dim, weiref, skip, rsize)
1553rsize
1554+5
1555weiref(1:rsize)
1556+1, +1, +3, +1, +1
1557arref(:, 1:rsize)
1558"ET", "NO", "ZT", "YX", "BI"
1559"YD", "TZ", "HI", "KA", "MU"
1560"BH", "HY", "EB", "XH", "QL"
1561weiref = weight
1562arref = transpose(array)
1563call setRefined(arref, 3_IK - dim, weiref, skip, rsize)
1564rsize
1565+5
1566weiref(1:rsize)
1567+1, +1, +3, +1, +1
1568arref(1:rsize, :)
1569"ET", "YD", "BH"
1570"NO", "TZ", "HY"
1571"ZT", "HI", "EB"
1572"YX", "KA", "XH"
1573"BI", "MU", "QL"
1574
1575dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1576[dim, ndim, nsam]
1577+2, +0, +1
1578skip
1579+4
1580weight = getUnifRand(-1, 9, nsam)
1581weight
1582+8
1583array = getUnifRand('AA', 'ZZ', ndim, nsam)
1584array
1585getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
1586arref = array
1587weiref = weight
1588call setRefined(arref, dim, weiref, skip, rsize)
1589rsize
1590+0
1591weiref(1:rsize)
1592
1593arref(:, 1:rsize)
1594weiref = weight
1595arref = transpose(array)
1596call setRefined(arref, 3_IK - dim, weiref, skip, rsize)
1597rsize
1598+1
1599weiref(1:rsize)
1600+2
1601arref(1:rsize, :)
1602
1603
1604dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1605[dim, ndim, nsam]
1606+2, +0, +6
1607skip
1608+1
1609weight = getUnifRand(-1, 9, nsam)
1610weight
1611+6, +8, +5, +1, +6, +9
1612array = getUnifRand('AA', 'ZZ', ndim, nsam)
1613array
1614getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
1615arref = array
1616weiref = weight
1617call setRefined(arref, dim, weiref, skip, rsize)
1618rsize
1619+0
1620weiref(1:rsize)
1621
1622arref(:, 1:rsize)
1623weiref = weight
1624arref = transpose(array)
1625call setRefined(arref, 3_IK - dim, weiref, skip, rsize)
1626rsize
1627+6
1628weiref(1:rsize)
1629+6, +8, +5, +1, +6, +9
1630arref(1:rsize, :)
1631
1632
1633
1634
1635
1636
1637
1638dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1639[dim, ndim, nsam]
1640+2, +3, +2
1641skip
1642+2
1643weight = getUnifRand(-1, 9, nsam)
1644weight
1645+6, +3
1646array = getUnifRand('AA', 'ZZ', ndim, nsam)
1647array
1648"OD", "BI"
1649"VJ", "OM"
1650"JS", "YE"
1651getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
1652"OD", "OD", "OD", "OD", "OD", "OD", "BI", "BI", "BI"
1653"VJ", "VJ", "VJ", "VJ", "VJ", "VJ", "OM", "OM", "OM"
1654"JS", "JS", "JS", "JS", "JS", "JS", "YE", "YE", "YE"
1655arref = array
1656weiref = weight
1657call setRefined(arref, dim, weiref, skip, rsize)
1658rsize
1659+2
1660weiref(1:rsize)
1661+3, +1
1662arref(:, 1:rsize)
1663"OD", "BI"
1664"VJ", "OM"
1665"JS", "YE"
1666weiref = weight
1667arref = transpose(array)
1668call setRefined(arref, 3_IK - dim, weiref, skip, rsize)
1669rsize
1670+2
1671weiref(1:rsize)
1672+3, +1
1673arref(1:rsize, :)
1674"OD", "VJ", "JS"
1675"BI", "OM", "YE"
1676
1677dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1678[dim, ndim, nsam]
1679+2, +3, +1
1680skip
1681+2
1682weight = getUnifRand(-1, 9, nsam)
1683weight
1684+9
1685array = getUnifRand('AA', 'ZZ', ndim, nsam)
1686array
1687"TQ"
1688"JE"
1689"KE"
1690getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
1691"TQ", "TQ", "TQ", "TQ", "TQ", "TQ", "TQ", "TQ", "TQ"
1692"JE", "JE", "JE", "JE", "JE", "JE", "JE", "JE", "JE"
1693"KE", "KE", "KE", "KE", "KE", "KE", "KE", "KE", "KE"
1694arref = array
1695weiref = weight
1696call setRefined(arref, dim, weiref, skip, rsize)
1697rsize
1698+1
1699weiref(1:rsize)
1700+4
1701arref(:, 1:rsize)
1702"TQ"
1703"JE"
1704"KE"
1705weiref = weight
1706arref = transpose(array)
1707call setRefined(arref, 3_IK - dim, weiref, skip, rsize)
1708rsize
1709+1
1710weiref(1:rsize)
1711+4
1712arref(1:rsize, :)
1713"TQ", "JE", "KE"
1714
1715dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1716[dim, ndim, nsam]
1717+2, +1, +5
1718skip
1719+3
1720weight = getUnifRand(-1, 9, nsam)
1721weight
1722-1, +8, +2, +4, +4
1723array = getUnifRand('AA', 'ZZ', ndim, nsam)
1724array
1725"TM", "EZ", "XT", "JB", "EL"
1726getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
1727"EZ", "EZ", "EZ", "EZ", "EZ", "EZ", "EZ", "EZ", "XT", "XT", "JB", "JB", "JB", "JB", "EL", "EL", "EL", "EL"
1728arref = array
1729weiref = weight
1730call setRefined(arref, dim, weiref, skip, rsize)
1731rsize
1732+4
1733weiref(1:rsize)
1734+2, +1, +1, +2
1735arref(:, 1:rsize)
1736"EZ", "XT", "JB", "EL"
1737weiref = weight
1738arref = transpose(array)
1739call setRefined(arref, 3_IK - dim, weiref, skip, rsize)
1740rsize
1741+4
1742weiref(1:rsize)
1743+2, +1, +1, +2
1744arref(1:rsize, :)
1745"EZ"
1746"XT"
1747"JB"
1748"EL"
1749
1750dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1751[dim, ndim, nsam]
1752+2, +1, +7
1753skip
1754+3
1755weight = getUnifRand(-1, 9, nsam)
1756weight
1757+8, +1, +2, +9, +5, -1, +3
1758array = getUnifRand(0, 9, ndim, nsam)
1759array
1760+9, +9, +1, +4, +1, +2, +8
1761getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
1762+9, +9, +9, +9, +9, +9, +9, +9, +9, +1, +1, +4, +4, +4, +4, +4, +4, +4, +4, +4, +1, +1, +1, +1, +1, +8, +8, +8
1763arref = array
1764weiref = weight
1765call setRefined(arref, dim, weiref, skip, rsize)
1766rsize
1767+5
1768weiref(1:rsize)
1769+2, +1, +3, +2, +1
1770arref(:, 1:rsize)
1771+9, +9, +4, +1, +8
1772weiref = weight
1773arref = transpose(array)
1774call setRefined(arref, 3_IK - dim, weiref, skip, rsize)
1775rsize
1776+5
1777weiref(1:rsize)
1778+2, +1, +3, +2, +1
1779arref(1:rsize, :)
1780+9
1781+9
1782+4
1783+1
1784+8
1785
1786dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1787[dim, ndim, nsam]
1788+2, +3, +1
1789skip
1790+1
1791weight = getUnifRand(-1, 9, nsam)
1792weight
1793+4
1794array = getUnifRand(0, 9, ndim, nsam)
1795array
1796+6
1797+8
1798+2
1799getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
1800+6, +6, +6, +6
1801+8, +8, +8, +8
1802+2, +2, +2, +2
1803arref = array
1804weiref = weight
1805call setRefined(arref, dim, weiref, skip, rsize)
1806rsize
1807+1
1808weiref(1:rsize)
1809+4
1810arref(:, 1:rsize)
1811+6
1812+8
1813+2
1814weiref = weight
1815arref = transpose(array)
1816call setRefined(arref, 3_IK - dim, weiref, skip, rsize)
1817rsize
1818+1
1819weiref(1:rsize)
1820+4
1821arref(1:rsize, :)
1822+6, +8, +2
1823
1824dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1825[dim, ndim, nsam]
1826+2, +3, +9
1827skip
1828+2
1829weight = getUnifRand(-1, 9, nsam)
1830weight
1831+9, +8, -1, +8, +7, +1, +6, +2, +6
1832array = getUnifRand(0, 9, ndim, nsam)
1833array
1834+3, +4, +2, +1, +7, +1, +4, +4, +7
1835+5, +5, +4, +0, +4, +8, +6, +2, +4
1836+3, +0, +8, +7, +8, +2, +0, +8, +7
1837getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
1838+3, +3, +3, +3, +3, +3, +3, +3, +3, +4, +4, +4, +4, +4, +4, +4, +4, +1, +1, +1, +1, +1, +1, +1, +1, +7, +7, +7, +7, +7, +7, +7, +1, +4, +4, +4, +4, +4, +4, +4, +4, +7, +7, +7, +7, +7, +7
1839+5, +5, +5, +5, +5, +5, +5, +5, +5, +5, +5, +5, +5, +5, +5, +5, +5, +0, +0, +0, +0, +0, +0, +0, +0, +4, +4, +4, +4, +4, +4, +4, +8, +6, +6, +6, +6, +6, +6, +2, +2, +4, +4, +4, +4, +4, +4
1840+3, +3, +3, +3, +3, +3, +3, +3, +3, +0, +0, +0, +0, +0, +0, +0, +0, +7, +7, +7, +7, +7, +7, +7, +7, +8, +8, +8, +8, +8, +8, +8, +2, +0, +0, +0, +0, +0, +0, +8, +8, +7, +7, +7, +7, +7, +7
1841arref = array
1842weiref = weight
1843call setRefined(arref, dim, weiref, skip, rsize)
1844rsize
1845+7
1846weiref(1:rsize)
1847+4, +4, +4, +4, +3, +1, +3
1848arref(:, 1:rsize)
1849+3, +4, +1, +7, +4, +4, +7
1850+5, +5, +0, +4, +6, +2, +4
1851+3, +0, +7, +8, +0, +8, +7
1852weiref = weight
1853arref = transpose(array)
1854call setRefined(arref, 3_IK - dim, weiref, skip, rsize)
1855rsize
1856+7
1857weiref(1:rsize)
1858+4, +4, +4, +4, +3, +1, +3
1859arref(1:rsize, :)
1860+3, +5, +3
1861+4, +5, +0
1862+1, +0, +7
1863+7, +4, +8
1864+4, +6, +0
1865+4, +2, +8
1866+7, +4, +7
1867
1868dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1869[dim, ndim, nsam]
1870+2, +2, +6
1871skip
1872+3
1873weight = getUnifRand(-1, 9, nsam)
1874weight
1875+7, +7, +8, +0, +9, +1
1876array = getUnifRand(0, 9, ndim, nsam)
1877array
1878+6, +0, +9, +7, +1, +1
1879+4, +3, +6, +7, +3, +7
1880getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
1881+6, +6, +6, +6, +6, +6, +6, +0, +0, +0, +0, +0, +0, +0, +9, +9, +9, +9, +9, +9, +9, +9, +1, +1, +1, +1, +1, +1, +1, +1, +1, +1
1882+4, +4, +4, +4, +4, +4, +4, +3, +3, +3, +3, +3, +3, +3, +6, +6, +6, +6, +6, +6, +6, +6, +3, +3, +3, +3, +3, +3, +3, +3, +3, +7
1883arref = array
1884weiref = weight
1885call setRefined(arref, dim, weiref, skip, rsize)
1886rsize
1887+4
1888weiref(1:rsize)
1889+2, +2, +3, +3
1890arref(:, 1:rsize)
1891+6, +0, +9, +1
1892+4, +3, +6, +3
1893weiref = weight
1894arref = transpose(array)
1895call setRefined(arref, 3_IK - dim, weiref, skip, rsize)
1896rsize
1897+4
1898weiref(1:rsize)
1899+2, +2, +3, +3
1900arref(1:rsize, :)
1901+6, +4
1902+0, +3
1903+9, +6
1904+1, +3
1905
1906dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1907[dim, ndim, nsam]
1908+2, +3, +8
1909skip
1910+1
1911weight = getUnifRand(-1, 9, nsam)
1912weight
1913+8, +4, -1, +6, +4, +2, +1, +8
1914array = getUnifRand(0, 9, ndim, nsam)
1915array
1916+3, +2, +1, +3, +9, +5, +0, +5
1917+6, +1, +3, +4, +4, +7, +5, +7
1918+7, +8, +6, +1, +3, +0, +9, +8
1919getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
1920+3, +3, +3, +3, +3, +3, +3, +3, +2, +2, +2, +2, +3, +3, +3, +3, +3, +3, +9, +9, +9, +9, +5, +5, +0, +5, +5, +5, +5, +5, +5, +5, +5
1921+6, +6, +6, +6, +6, +6, +6, +6, +1, +1, +1, +1, +4, +4, +4, +4, +4, +4, +4, +4, +4, +4, +7, +7, +5, +7, +7, +7, +7, +7, +7, +7, +7
1922+7, +7, +7, +7, +7, +7, +7, +7, +8, +8, +8, +8, +1, +1, +1, +1, +1, +1, +3, +3, +3, +3, +0, +0, +9, +8, +8, +8, +8, +8, +8, +8, +8
1923arref = array
1924weiref = weight
1925call setRefined(arref, dim, weiref, skip, rsize)
1926rsize
1927+7
1928weiref(1:rsize)
1929+8, +4, +6, +4, +2, +1, +8
1930arref(:, 1:rsize)
1931+3, +2, +3, +9, +5, +0, +5
1932+6, +1, +4, +4, +7, +5, +7
1933+7, +8, +1, +3, +0, +9, +8
1934weiref = weight
1935arref = transpose(array)
1936call setRefined(arref, 3_IK - dim, weiref, skip, rsize)
1937rsize
1938+7
1939weiref(1:rsize)
1940+8, +4, +6, +4, +2, +1, +8
1941arref(1:rsize, :)
1942+3, +6, +7
1943+2, +1, +8
1944+3, +4, +1
1945+9, +4, +3
1946+5, +7, +0
1947+0, +5, +9
1948+5, +7, +8
1949
1950dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1951[dim, ndim, nsam]
1952+2, +1, +8
1953skip
1954+2
1955weight = getUnifRand(-1, 9, nsam)
1956weight
1957-1, +3, +6, +2, +8, +7, +4, +1
1958array = getUnifRand(0, 9, ndim, nsam)
1959array
1960+6, +5, +1, +0, +5, +5, +9, +1
1961getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
1962+5, +5, +5, +1, +1, +1, +1, +1, +1, +0, +0, +5, +5, +5, +5, +5, +5, +5, +5, +5, +5, +5, +5, +5, +5, +5, +9, +9, +9, +9, +1
1963arref = array
1964weiref = weight
1965call setRefined(arref, dim, weiref, skip, rsize)
1966rsize
1967+6
1968weiref(1:rsize)
1969+1, +3, +1, +4, +4, +2
1970arref(:, 1:rsize)
1971+5, +1, +0, +5, +5, +9
1972weiref = weight
1973arref = transpose(array)
1974call setRefined(arref, 3_IK - dim, weiref, skip, rsize)
1975rsize
1976+6
1977weiref(1:rsize)
1978+1, +3, +1, +4, +4, +2
1979arref(1:rsize, :)
1980+5
1981+1
1982+0
1983+5
1984+5
1985+9
1986
1987dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
1988[dim, ndim, nsam]
1989+2, +1, +5
1990skip
1991+2
1992weight = getUnifRand(-1, 9, nsam)
1993weight
1994+7, +7, +2, +3, +3
1995array = getUnifRand(0, 9, ndim, nsam)
1996array
1997+1, +9, +0, +0, +3
1998getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
1999+1, +1, +1, +1, +1, +1, +1, +9, +9, +9, +9, +9, +9, +9, +0, +0, +0, +0, +0, +3, +3, +3
2000arref = array
2001weiref = weight
2002call setRefined(arref, dim, weiref, skip, rsize)
2003rsize
2004+5
2005weiref(1:rsize)
2006+3, +4, +1, +1, +2
2007arref(:, 1:rsize)
2008+1, +9, +0, +0, +3
2009weiref = weight
2010arref = transpose(array)
2011call setRefined(arref, 3_IK - dim, weiref, skip, rsize)
2012rsize
2013+5
2014weiref(1:rsize)
2015+3, +4, +1, +1, +2
2016arref(1:rsize, :)
2017+1
2018+9
2019+0
2020+0
2021+3
2022
2023dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
2024[dim, ndim, nsam]
2025+2, +1, +1
2026skip
2027+1
2028weight = getUnifRand(-1, 9, nsam)
2029weight
2030+7
2031array = getUnifRand(0, 9, ndim, nsam)
2032array
2033+3
2034getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
2035+3, +3, +3, +3, +3, +3, +3
2036arref = array
2037weiref = weight
2038call setRefined(arref, dim, weiref, skip, rsize)
2039rsize
2040+1
2041weiref(1:rsize)
2042+7
2043arref(:, 1:rsize)
2044+3
2045weiref = weight
2046arref = transpose(array)
2047call setRefined(arref, 3_IK - dim, weiref, skip, rsize)
2048rsize
2049+1
2050weiref(1:rsize)
2051+7
2052arref(1:rsize, :)
2053+3
2054
2055dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
2056[dim, ndim, nsam]
2057+2, +0, +9
2058skip
2059+1
2060weight = getUnifRand(-1, 9, nsam)
2061weight
2062+6, +0, +8, +8, +7, +6, +6, +1, +6
2063array = getUnifRand(0, 9, ndim, nsam)
2064array
2065getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
2066arref = array
2067weiref = weight
2068call setRefined(arref, dim, weiref, skip, rsize)
2069rsize
2070+0
2071weiref(1:rsize)
2072
2073arref(:, 1:rsize)
2074weiref = weight
2075arref = transpose(array)
2076call setRefined(arref, 3_IK - dim, weiref, skip, rsize)
2077rsize
2078+8
2079weiref(1:rsize)
2080+6, +8, +8, +7, +6, +6, +1, +6
2081arref(1:rsize, :)
2082
2083
2084
2085
2086
2087
2088
2089
2090
2091dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
2092[dim, ndim, nsam]
2093+2, +3, +4
2094skip
2095+3
2096weight = getUnifRand(-1, 9, nsam)
2097weight
2098+5, +0, +9, +6
2099array = getUnifRand(0, 9, ndim, nsam)
2100array
2101+6, +6, +4, +4
2102+9, +1, +1, +5
2103+4, +6, +9, +9
2104getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
2105+6, +6, +6, +6, +6, +4, +4, +4, +4, +4, +4, +4, +4, +4, +4, +4, +4, +4, +4, +4
2106+9, +9, +9, +9, +9, +1, +1, +1, +1, +1, +1, +1, +1, +1, +5, +5, +5, +5, +5, +5
2107+4, +4, +4, +4, +4, +9, +9, +9, +9, +9, +9, +9, +9, +9, +9, +9, +9, +9, +9, +9
2108arref = array
2109weiref = weight
2110call setRefined(arref, dim, weiref, skip, rsize)
2111rsize
2112+3
2113weiref(1:rsize)
2114+1, +3, +2
2115arref(:, 1:rsize)
2116+6, +4, +4
2117+9, +1, +5
2118+4, +9, +9
2119weiref = weight
2120arref = transpose(array)
2121call setRefined(arref, 3_IK - dim, weiref, skip, rsize)
2122rsize
2123+3
2124weiref(1:rsize)
2125+1, +3, +2
2126arref(1:rsize, :)
2127+6, +9, +4
2128+4, +1, +9
2129+4, +5, +9
2130
2131dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
2132[dim, ndim, nsam]
2133+2, +2, +0
2134skip
2135+4
2136weight = getUnifRand(-1, 9, nsam)
2137weight
2138
2139array = getUnifRand(.false., .true., ndim, nsam)
2140array
2141
2142
2143getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
2144
2145
2146arref = array
2147weiref = weight
2148call setRefined(arref, dim, weiref, skip, rsize)
2149rsize
2150+0
2151weiref(1:rsize)
2152
2153arref(:, 1:rsize)
2154
2155
2156weiref = weight
2157arref = transpose(array)
2158call setRefined(arref, 3_IK - dim, weiref, skip, rsize)
2159rsize
2160+0
2161weiref(1:rsize)
2162
2163arref(1:rsize, :)
2164
2165dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
2166[dim, ndim, nsam]
2167+2, +1, +5
2168skip
2169+1
2170weight = getUnifRand(-1, 9, nsam)
2171weight
2172+9, +5, +1, +4, -1
2173array = getUnifRand(.false., .true., ndim, nsam)
2174array
2175T, F, F, T, F
2176getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
2177T, T, T, T, T, T, T, T, T, F, F, F, F, F, F, T, T, T, T
2178arref = array
2179weiref = weight
2180call setRefined(arref, dim, weiref, skip, rsize)
2181rsize
2182+4
2183weiref(1:rsize)
2184+9, +5, +1, +4
2185arref(:, 1:rsize)
2186T, F, F, T
2187weiref = weight
2188arref = transpose(array)
2189call setRefined(arref, 3_IK - dim, weiref, skip, rsize)
2190rsize
2191+4
2192weiref(1:rsize)
2193+9, +5, +1, +4
2194arref(1:rsize, :)
2195T
2196F
2197F
2198T
2199
2200dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
2201[dim, ndim, nsam]
2202+2, +0, +1
2203skip
2204+1
2205weight = getUnifRand(-1, 9, nsam)
2206weight
2207+2
2208array = getUnifRand(.false., .true., ndim, nsam)
2209array
2210getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
2211arref = array
2212weiref = weight
2213call setRefined(arref, dim, weiref, skip, rsize)
2214rsize
2215+0
2216weiref(1:rsize)
2217
2218arref(:, 1:rsize)
2219weiref = weight
2220arref = transpose(array)
2221call setRefined(arref, 3_IK - dim, weiref, skip, rsize)
2222rsize
2223+1
2224weiref(1:rsize)
2225+2
2226arref(1:rsize, :)
2227
2228
2229dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
2230[dim, ndim, nsam]
2231+2, +2, +3
2232skip
2233+4
2234weight = getUnifRand(-1, 9, nsam)
2235weight
2236+3, +1, +3
2237array = getUnifRand(.false., .true., ndim, nsam)
2238array
2239F, F, T
2240F, T, F
2241getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
2242F, F, F, F, T, T, T
2243F, F, F, T, F, F, F
2244arref = array
2245weiref = weight
2246call setRefined(arref, dim, weiref, skip, rsize)
2247rsize
2248+1
2249weiref(1:rsize)
2250+1
2251arref(:, 1:rsize)
2252F
2253T
2254weiref = weight
2255arref = transpose(array)
2256call setRefined(arref, 3_IK - dim, weiref, skip, rsize)
2257rsize
2258+1
2259weiref(1:rsize)
2260+1
2261arref(1:rsize, :)
2262F, T
2263
2264dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
2265[dim, ndim, nsam]
2266+2, +2, +8
2267skip
2268+4
2269weight = getUnifRand(-1, 9, nsam)
2270weight
2271+9, +2, +9, +8, +0, +7, +0, +3
2272array = getUnifRand(.false., .true., ndim, nsam)
2273array
2274T, T, T, T, T, F, F, F
2275T, F, F, F, T, T, F, T
2276getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
2277T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, F, F, F, F, F, F, F, F, F, F
2278T, T, T, T, T, T, T, T, T, F, F, F, F, F, F, F, F, F, F, F, F, F, F, F, F, F, F, F, T, T, T, T, T, T, T, T, T, T
2279arref = array
2280weiref = weight
2281call setRefined(arref, dim, weiref, skip, rsize)
2282rsize
2283+5
2284weiref(1:rsize)
2285+2, +3, +2, +1, +1
2286arref(:, 1:rsize)
2287T, T, T, F, F
2288T, F, F, T, T
2289weiref = weight
2290arref = transpose(array)
2291call setRefined(arref, 3_IK - dim, weiref, skip, rsize)
2292rsize
2293+5
2294weiref(1:rsize)
2295+2, +3, +2, +1, +1
2296arref(1:rsize, :)
2297T, T
2298T, F
2299T, F
2300F, T
2301F, T
2302
2303dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
2304[dim, ndim, nsam]
2305+2, +2, +9
2306skip
2307+3
2308weight = getUnifRand(-1, 9, nsam)
2309weight
2310+5, +9, +6, +2, +5, +7, +7, +4, +6
2311array = getUnifRand(.false., .true., ndim, nsam)
2312array
2313F, T, F, F, T, T, F, F, F
2314T, F, T, T, F, F, F, F, F
2315getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
2316F, F, F, F, F, T, T, T, T, T, T, T, T, T, F, F, F, F, F, F, F, F, T, T, T, T, T, T, T, T, T, T, T, T, F, F, F, F, F, F, F, F, F, F, F, F, F, F, F, F, F
2317T, T, T, T, T, F, F, F, F, F, F, F, F, F, T, T, T, T, T, T, T, T, F, F, F, F, F, F, F, F, F, F, F, F, F, F, F, F, F, F, F, F, F, F, F, F, F, F, F, F, F
2318arref = array
2319weiref = weight
2320call setRefined(arref, dim, weiref, skip, rsize)
2321rsize
2322+9
2323weiref(1:rsize)
2324+1, +3, +2, +1, +2, +2, +2, +2, +2
2325arref(:, 1:rsize)
2326F, T, F, F, T, T, F, F, F
2327T, F, T, T, F, F, F, F, F
2328weiref = weight
2329arref = transpose(array)
2330call setRefined(arref, 3_IK - dim, weiref, skip, rsize)
2331rsize
2332+9
2333weiref(1:rsize)
2334+1, +3, +2, +1, +2, +2, +2, +2, +2
2335arref(1:rsize, :)
2336F, T
2337T, F
2338F, T
2339F, T
2340T, F
2341T, F
2342F, F
2343F, F
2344F, F
2345
2346dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
2347[dim, ndim, nsam]
2348+2, +1, +2
2349skip
2350+2
2351weight = getUnifRand(-1, 9, nsam)
2352weight
2353+9, +7
2354array = getUnifRand(.false., .true., ndim, nsam)
2355array
2356F, T
2357getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
2358F, F, F, F, F, F, F, F, F, T, T, T, T, T, T, T
2359arref = array
2360weiref = weight
2361call setRefined(arref, dim, weiref, skip, rsize)
2362rsize
2363+2
2364weiref(1:rsize)
2365+4, +4
2366arref(:, 1:rsize)
2367F, T
2368weiref = weight
2369arref = transpose(array)
2370call setRefined(arref, 3_IK - dim, weiref, skip, rsize)
2371rsize
2372+2
2373weiref(1:rsize)
2374+4, +4
2375arref(1:rsize, :)
2376F
2377T
2378
2379dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
2380[dim, ndim, nsam]
2381+2, +3, +1
2382skip
2383+1
2384weight = getUnifRand(-1, 9, nsam)
2385weight
2386-1
2387array = getUnifRand(.false., .true., ndim, nsam)
2388array
2389F
2390T
2391T
2392getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
2393
2394
2395
2396arref = array
2397weiref = weight
2398call setRefined(arref, dim, weiref, skip, rsize)
2399rsize
2400+0
2401weiref(1:rsize)
2402
2403arref(:, 1:rsize)
2404
2405
2406
2407weiref = weight
2408arref = transpose(array)
2409call setRefined(arref, 3_IK - dim, weiref, skip, rsize)
2410rsize
2411+0
2412weiref(1:rsize)
2413
2414arref(1:rsize, :)
2415
2416dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
2417[dim, ndim, nsam]
2418+2, +0, +3
2419skip
2420+4
2421weight = getUnifRand(-1, 9, nsam)
2422weight
2423+7, +9, +4
2424array = getUnifRand(.false., .true., ndim, nsam)
2425array
2426getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
2427arref = array
2428weiref = weight
2429call setRefined(arref, dim, weiref, skip, rsize)
2430rsize
2431+0
2432weiref(1:rsize)
2433
2434arref(:, 1:rsize)
2435weiref = weight
2436arref = transpose(array)
2437call setRefined(arref, 3_IK - dim, weiref, skip, rsize)
2438rsize
2439+3
2440weiref(1:rsize)
2441+1, +3, +1
2442arref(1:rsize, :)
2443
2444
2445
2446
2447dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
2448[dim, ndim, nsam]
2449+2, +0, +9
2450skip
2451+3
2452weight = getUnifRand(-1, 9, nsam)
2453weight
2454+1, +3, +4, +7, +6, +4, +9, +2, +2
2455array = getUnifRand(.false., .true., ndim, nsam)
2456array
2457getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
2458arref = array
2459weiref = weight
2460call setRefined(arref, dim, weiref, skip, rsize)
2461rsize
2462+0
2463weiref(1:rsize)
2464
2465arref(:, 1:rsize)
2466weiref = weight
2467arref = transpose(array)
2468call setRefined(arref, 3_IK - dim, weiref, skip, rsize)
2469rsize
2470+7
2471weiref(1:rsize)
2472+1, +1, +3, +2, +1, +3, +1
2473arref(1:rsize, :)
2474
2475
2476
2477
2478
2479
2480
2481
2482dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
2483[dim, ndim, nsam]
2484+2, +1, +8
2485skip
2486+2
2487weight = getUnifRand(-1, 9, nsam)
2488weight
2489+1, -1, +3, +2, +3, +4, +4, +9
2490array = cmplx(getUnifRand(0, 9, ndim, nsam), getUnifRand(0, 9, ndim, nsam), TKG)
2491array
2492(+3.00000000, +5.00000000), (+2.00000000, +2.00000000), (+2.00000000, +2.00000000), (+9.00000000, +7.00000000), (+6.00000000, +0.00000000), (+4.00000000, +6.00000000), (+3.00000000, +0.00000000), (+2.00000000, +4.00000000)
2493getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
2494(+3.00000000, +5.00000000), (+2.00000000, +2.00000000), (+2.00000000, +2.00000000), (+2.00000000, +2.00000000), (+9.00000000, +7.00000000), (+9.00000000, +7.00000000), (+6.00000000, +0.00000000), (+6.00000000, +0.00000000), (+6.00000000, +0.00000000), (+4.00000000, +6.00000000), (+4.00000000, +6.00000000), (+4.00000000, +6.00000000), (+4.00000000, +6.00000000), (+3.00000000, +0.00000000), (+3.00000000, +0.00000000), (+3.00000000, +0.00000000), (+3.00000000, +0.00000000), (+2.00000000, +4.00000000), (+2.00000000, +4.00000000), (+2.00000000, +4.00000000), (+2.00000000, +4.00000000), (+2.00000000, +4.00000000), (+2.00000000, +4.00000000), (+2.00000000, +4.00000000), (+2.00000000, +4.00000000), (+2.00000000, +4.00000000)
2495arref = array
2496weiref = weight
2497call setRefined(arref, dim, weiref, skip, rsize)
2498rsize
2499+6
2500weiref(1:rsize)
2501+2, +1, +1, +2, +2, +5
2502arref(:, 1:rsize)
2503(+2.00000000, +2.00000000), (+9.00000000, +7.00000000), (+6.00000000, +0.00000000), (+4.00000000, +6.00000000), (+3.00000000, +0.00000000), (+2.00000000, +4.00000000)
2504weiref = weight
2505arref = transpose(array)
2506call setRefined(arref, 3_IK - dim, weiref, skip, rsize)
2507rsize
2508+6
2509weiref(1:rsize)
2510+2, +1, +1, +2, +2, +5
2511arref(1:rsize, :)
2512(+2.00000000, +2.00000000)
2513(+9.00000000, +7.00000000)
2514(+6.00000000, +0.00000000)
2515(+4.00000000, +6.00000000)
2516(+3.00000000, +0.00000000)
2517(+2.00000000, +4.00000000)
2518
2519dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
2520[dim, ndim, nsam]
2521+2, +3, +7
2522skip
2523+2
2524weight = getUnifRand(-1, 9, nsam)
2525weight
2526+6, -1, -1, +9, +9, +4, +1
2527array = cmplx(getUnifRand(0, 9, ndim, nsam), getUnifRand(0, 9, ndim, nsam), TKG)
2528array
2529(+5.00000000, +5.00000000), (+4.00000000, +9.00000000), (+1.00000000, +1.00000000), (+4.00000000, +1.00000000), (+1.00000000, +0.00000000), (+2.00000000, +3.00000000), (+0.00000000, +4.00000000)
2530(+3.00000000, +8.00000000), (+3.00000000, +2.00000000), (+1.00000000, +5.00000000), (+0.00000000, +0.00000000), (+8.00000000, +3.00000000), (+9.00000000, +7.00000000), (+7.00000000, +6.00000000)
2531(+5.00000000, +3.00000000), (+9.00000000, +5.00000000), (+9.00000000, +5.00000000), (+5.00000000, +8.00000000), (+2.00000000, +4.00000000), (+9.00000000, +3.00000000), (+5.00000000, +3.00000000)
2532getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
2533(+5.00000000, +5.00000000), (+5.00000000, +5.00000000), (+5.00000000, +5.00000000), (+5.00000000, +5.00000000), (+5.00000000, +5.00000000), (+5.00000000, +5.00000000), (+4.00000000, +1.00000000), (+4.00000000, +1.00000000), (+4.00000000, +1.00000000), (+4.00000000, +1.00000000), (+4.00000000, +1.00000000), (+4.00000000, +1.00000000), (+4.00000000, +1.00000000), (+4.00000000, +1.00000000), (+4.00000000, +1.00000000), (+1.00000000, +0.00000000), (+1.00000000, +0.00000000), (+1.00000000, +0.00000000), (+1.00000000, +0.00000000), (+1.00000000, +0.00000000), (+1.00000000, +0.00000000), (+1.00000000, +0.00000000), (+1.00000000, +0.00000000), (+1.00000000, +0.00000000), (+2.00000000, +3.00000000), (+2.00000000, +3.00000000), (+2.00000000, +3.00000000), (+2.00000000, +3.00000000), (+0.00000000, +4.00000000)
2534(+3.00000000, +8.00000000), (+3.00000000, +8.00000000), (+3.00000000, +8.00000000), (+3.00000000, +8.00000000), (+3.00000000, +8.00000000), (+3.00000000, +8.00000000), (+0.00000000, +0.00000000), (+0.00000000, +0.00000000), (+0.00000000, +0.00000000), (+0.00000000, +0.00000000), (+0.00000000, +0.00000000), (+0.00000000, +0.00000000), (+0.00000000, +0.00000000), (+0.00000000, +0.00000000), (+0.00000000, +0.00000000), (+8.00000000, +3.00000000), (+8.00000000, +3.00000000), (+8.00000000, +3.00000000), (+8.00000000, +3.00000000), (+8.00000000, +3.00000000), (+8.00000000, +3.00000000), (+8.00000000, +3.00000000), (+8.00000000, +3.00000000), (+8.00000000, +3.00000000), (+9.00000000, +7.00000000), (+9.00000000, +7.00000000), (+9.00000000, +7.00000000), (+9.00000000, +7.00000000), (+7.00000000, +6.00000000)
2535(+5.00000000, +3.00000000), (+5.00000000, +3.00000000), (+5.00000000, +3.00000000), (+5.00000000, +3.00000000), (+5.00000000, +3.00000000), (+5.00000000, +3.00000000), (+5.00000000, +8.00000000), (+5.00000000, +8.00000000), (+5.00000000, +8.00000000), (+5.00000000, +8.00000000), (+5.00000000, +8.00000000), (+5.00000000, +8.00000000), (+5.00000000, +8.00000000), (+5.00000000, +8.00000000), (+5.00000000, +8.00000000), (+2.00000000, +4.00000000), (+2.00000000, +4.00000000), (+2.00000000, +4.00000000), (+2.00000000, +4.00000000), (+2.00000000, +4.00000000), (+2.00000000, +4.00000000), (+2.00000000, +4.00000000), (+2.00000000, +4.00000000), (+2.00000000, +4.00000000), (+9.00000000, +3.00000000), (+9.00000000, +3.00000000), (+9.00000000, +3.00000000), (+9.00000000, +3.00000000), (+5.00000000, +3.00000000)
2536arref = array
2537weiref = weight
2538call setRefined(arref, dim, weiref, skip, rsize)
2539rsize
2540+4
2541weiref(1:rsize)
2542+3, +4, +5, +2
2543arref(:, 1:rsize)
2544(+5.00000000, +5.00000000), (+4.00000000, +1.00000000), (+1.00000000, +0.00000000), (+2.00000000, +3.00000000)
2545(+3.00000000, +8.00000000), (+0.00000000, +0.00000000), (+8.00000000, +3.00000000), (+9.00000000, +7.00000000)
2546(+5.00000000, +3.00000000), (+5.00000000, +8.00000000), (+2.00000000, +4.00000000), (+9.00000000, +3.00000000)
2547weiref = weight
2548arref = transpose(array)
2549call setRefined(arref, 3_IK - dim, weiref, skip, rsize)
2550rsize
2551+4
2552weiref(1:rsize)
2553+3, +4, +5, +2
2554arref(1:rsize, :)
2555(+5.00000000, +5.00000000), (+3.00000000, +8.00000000), (+5.00000000, +3.00000000)
2556(+4.00000000, +1.00000000), (+0.00000000, +0.00000000), (+5.00000000, +8.00000000)
2557(+1.00000000, +0.00000000), (+8.00000000, +3.00000000), (+2.00000000, +4.00000000)
2558(+2.00000000, +3.00000000), (+9.00000000, +7.00000000), (+9.00000000, +3.00000000)
2559
2560dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
2561[dim, ndim, nsam]
2562+2, +1, +5
2563skip
2564+4
2565weight = getUnifRand(-1, 9, nsam)
2566weight
2567+8, +0, +1, +8, +0
2568array = cmplx(getUnifRand(0, 9, ndim, nsam), getUnifRand(0, 9, ndim, nsam), TKG)
2569array
2570(+4.00000000, +7.00000000), (+4.00000000, +5.00000000), (+1.00000000, +0.00000000), (+4.00000000, +2.00000000), (+2.00000000, +6.00000000)
2571getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
2572(+4.00000000, +7.00000000), (+4.00000000, +7.00000000), (+4.00000000, +7.00000000), (+4.00000000, +7.00000000), (+4.00000000, +7.00000000), (+4.00000000, +7.00000000), (+4.00000000, +7.00000000), (+4.00000000, +7.00000000), (+1.00000000, +0.00000000), (+4.00000000, +2.00000000), (+4.00000000, +2.00000000), (+4.00000000, +2.00000000), (+4.00000000, +2.00000000), (+4.00000000, +2.00000000), (+4.00000000, +2.00000000), (+4.00000000, +2.00000000), (+4.00000000, +2.00000000)
2573arref = array
2574weiref = weight
2575call setRefined(arref, dim, weiref, skip, rsize)
2576rsize
2577+2
2578weiref(1:rsize)
2579+2, +2
2580arref(:, 1:rsize)
2581(+4.00000000, +7.00000000), (+4.00000000, +2.00000000)
2582weiref = weight
2583arref = transpose(array)
2584call setRefined(arref, 3_IK - dim, weiref, skip, rsize)
2585rsize
2586+2
2587weiref(1:rsize)
2588+2, +2
2589arref(1:rsize, :)
2590(+4.00000000, +7.00000000)
2591(+4.00000000, +2.00000000)
2592
2593dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
2594[dim, ndim, nsam]
2595+2, +2, +9
2596skip
2597+1
2598weight = getUnifRand(-1, 9, nsam)
2599weight
2600+4, +4, -1, +6, +8, +2, +3, +6, +1
2601array = cmplx(getUnifRand(0, 9, ndim, nsam), getUnifRand(0, 9, ndim, nsam), TKG)
2602array
2603(+9.00000000, +1.00000000), (+0.00000000, +2.00000000), (+2.00000000, +4.00000000), (+2.00000000, +5.00000000), (+0.00000000, +0.00000000), (+8.00000000, +2.00000000), (+6.00000000, +9.00000000), (+6.00000000, +1.00000000), (+3.00000000, +7.00000000)
2604(+4.00000000, +0.00000000), (+0.00000000, +2.00000000), (+0.00000000, +9.00000000), (+5.00000000, +1.00000000), (+5.00000000, +9.00000000), (+6.00000000, +7.00000000), (+5.00000000, +3.00000000), (+9.00000000, +1.00000000), (+4.00000000, +8.00000000)
2605getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
2606(+9.00000000, +1.00000000), (+9.00000000, +1.00000000), (+9.00000000, +1.00000000), (+9.00000000, +1.00000000), (+0.00000000, +2.00000000), (+0.00000000, +2.00000000), (+0.00000000, +2.00000000), (+0.00000000, +2.00000000), (+2.00000000, +5.00000000), (+2.00000000, +5.00000000), (+2.00000000, +5.00000000), (+2.00000000, +5.00000000), (+2.00000000, +5.00000000), (+2.00000000, +5.00000000), (+0.00000000, +0.00000000), (+0.00000000, +0.00000000), (+0.00000000, +0.00000000), (+0.00000000, +0.00000000), (+0.00000000, +0.00000000), (+0.00000000, +0.00000000), (+0.00000000, +0.00000000), (+0.00000000, +0.00000000), (+8.00000000, +2.00000000), (+8.00000000, +2.00000000), (+6.00000000, +9.00000000), (+6.00000000, +9.00000000), (+6.00000000, +9.00000000), (+6.00000000, +1.00000000), (+6.00000000, +1.00000000), (+6.00000000, +1.00000000), (+6.00000000, +1.00000000), (+6.00000000, +1.00000000), (+6.00000000, +1.00000000), (+3.00000000, +7.00000000)
2607(+4.00000000, +0.00000000), (+4.00000000, +0.00000000), (+4.00000000, +0.00000000), (+4.00000000, +0.00000000), (+0.00000000, +2.00000000), (+0.00000000, +2.00000000), (+0.00000000, +2.00000000), (+0.00000000, +2.00000000), (+5.00000000, +1.00000000), (+5.00000000, +1.00000000), (+5.00000000, +1.00000000), (+5.00000000, +1.00000000), (+5.00000000, +1.00000000), (+5.00000000, +1.00000000), (+5.00000000, +9.00000000), (+5.00000000, +9.00000000), (+5.00000000, +9.00000000), (+5.00000000, +9.00000000), (+5.00000000, +9.00000000), (+5.00000000, +9.00000000), (+5.00000000, +9.00000000), (+5.00000000, +9.00000000), (+6.00000000, +7.00000000), (+6.00000000, +7.00000000), (+5.00000000, +3.00000000), (+5.00000000, +3.00000000), (+5.00000000, +3.00000000), (+9.00000000, +1.00000000), (+9.00000000, +1.00000000), (+9.00000000, +1.00000000), (+9.00000000, +1.00000000), (+9.00000000, +1.00000000), (+9.00000000, +1.00000000), (+4.00000000, +8.00000000)
2608arref = array
2609weiref = weight
2610call setRefined(arref, dim, weiref, skip, rsize)
2611rsize
2612+8
2613weiref(1:rsize)
2614+4, +4, +6, +8, +2, +3, +6, +1
2615arref(:, 1:rsize)
2616(+9.00000000, +1.00000000), (+0.00000000, +2.00000000), (+2.00000000, +5.00000000), (+0.00000000, +0.00000000), (+8.00000000, +2.00000000), (+6.00000000, +9.00000000), (+6.00000000, +1.00000000), (+3.00000000, +7.00000000)
2617(+4.00000000, +0.00000000), (+0.00000000, +2.00000000), (+5.00000000, +1.00000000), (+5.00000000, +9.00000000), (+6.00000000, +7.00000000), (+5.00000000, +3.00000000), (+9.00000000, +1.00000000), (+4.00000000, +8.00000000)
2618weiref = weight
2619arref = transpose(array)
2620call setRefined(arref, 3_IK - dim, weiref, skip, rsize)
2621rsize
2622+8
2623weiref(1:rsize)
2624+4, +4, +6, +8, +2, +3, +6, +1
2625arref(1:rsize, :)
2626(+9.00000000, +1.00000000), (+4.00000000, +0.00000000)
2627(+0.00000000, +2.00000000), (+0.00000000, +2.00000000)
2628(+2.00000000, +5.00000000), (+5.00000000, +1.00000000)
2629(+0.00000000, +0.00000000), (+5.00000000, +9.00000000)
2630(+8.00000000, +2.00000000), (+6.00000000, +7.00000000)
2631(+6.00000000, +9.00000000), (+5.00000000, +3.00000000)
2632(+6.00000000, +1.00000000), (+9.00000000, +1.00000000)
2633(+3.00000000, +7.00000000), (+4.00000000, +8.00000000)
2634
2635dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
2636[dim, ndim, nsam]
2637+2, +1, +8
2638skip
2639+3
2640weight = getUnifRand(-1, 9, nsam)
2641weight
2642-1, +2, +4, +5, +7, +3, +6, +3
2643array = cmplx(getUnifRand(0, 9, ndim, nsam), getUnifRand(0, 9, ndim, nsam), TKG)
2644array
2645(+9.00000000, +5.00000000), (+3.00000000, +9.00000000), (+3.00000000, +7.00000000), (+3.00000000, +4.00000000), (+5.00000000, +0.00000000), (+4.00000000, +4.00000000), (+7.00000000, +6.00000000), (+7.00000000, +0.00000000)
2646getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
2647(+3.00000000, +9.00000000), (+3.00000000, +9.00000000), (+3.00000000, +7.00000000), (+3.00000000, +7.00000000), (+3.00000000, +7.00000000), (+3.00000000, +7.00000000), (+3.00000000, +4.00000000), (+3.00000000, +4.00000000), (+3.00000000, +4.00000000), (+3.00000000, +4.00000000), (+3.00000000, +4.00000000), (+5.00000000, +0.00000000), (+5.00000000, +0.00000000), (+5.00000000, +0.00000000), (+5.00000000, +0.00000000), (+5.00000000, +0.00000000), (+5.00000000, +0.00000000), (+5.00000000, +0.00000000), (+4.00000000, +4.00000000), (+4.00000000, +4.00000000), (+4.00000000, +4.00000000), (+7.00000000, +6.00000000), (+7.00000000, +6.00000000), (+7.00000000, +6.00000000), (+7.00000000, +6.00000000), (+7.00000000, +6.00000000), (+7.00000000, +6.00000000), (+7.00000000, +0.00000000), (+7.00000000, +0.00000000), (+7.00000000, +0.00000000)
2648arref = array
2649weiref = weight
2650call setRefined(arref, dim, weiref, skip, rsize)
2651rsize
2652+6
2653weiref(1:rsize)
2654+2, +1, +3, +1, +2, +1
2655arref(:, 1:rsize)
2656(+3.00000000, +7.00000000), (+3.00000000, +4.00000000), (+5.00000000, +0.00000000), (+4.00000000, +4.00000000), (+7.00000000, +6.00000000), (+7.00000000, +0.00000000)
2657weiref = weight
2658arref = transpose(array)
2659call setRefined(arref, 3_IK - dim, weiref, skip, rsize)
2660rsize
2661+6
2662weiref(1:rsize)
2663+2, +1, +3, +1, +2, +1
2664arref(1:rsize, :)
2665(+3.00000000, +7.00000000)
2666(+3.00000000, +4.00000000)
2667(+5.00000000, +0.00000000)
2668(+4.00000000, +4.00000000)
2669(+7.00000000, +6.00000000)
2670(+7.00000000, +0.00000000)
2671
2672dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
2673[dim, ndim, nsam]
2674+2, +3, +0
2675skip
2676+2
2677weight = getUnifRand(-1, 9, nsam)
2678weight
2679
2680array = cmplx(getUnifRand(0, 9, ndim, nsam), getUnifRand(0, 9, ndim, nsam), TKG)
2681array
2682
2683
2684
2685getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
2686
2687
2688
2689arref = array
2690weiref = weight
2691call setRefined(arref, dim, weiref, skip, rsize)
2692rsize
2693+0
2694weiref(1:rsize)
2695
2696arref(:, 1:rsize)
2697
2698
2699
2700weiref = weight
2701arref = transpose(array)
2702call setRefined(arref, 3_IK - dim, weiref, skip, rsize)
2703rsize
2704+0
2705weiref(1:rsize)
2706
2707arref(1:rsize, :)
2708
2709dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
2710[dim, ndim, nsam]
2711+2, +3, +4
2712skip
2713+1
2714weight = getUnifRand(-1, 9, nsam)
2715weight
2716+8, +6, +7, +3
2717array = cmplx(getUnifRand(0, 9, ndim, nsam), getUnifRand(0, 9, ndim, nsam), TKG)
2718array
2719(+9.00000000, +4.00000000), (+8.00000000, +0.00000000), (+3.00000000, +0.00000000), (+0.00000000, +7.00000000)
2720(+1.00000000, +4.00000000), (+3.00000000, +0.00000000), (+9.00000000, +0.00000000), (+9.00000000, +2.00000000)
2721(+4.00000000, +7.00000000), (+4.00000000, +6.00000000), (+8.00000000, +8.00000000), (+8.00000000, +6.00000000)
2722getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
2723(+9.00000000, +4.00000000), (+9.00000000, +4.00000000), (+9.00000000, +4.00000000), (+9.00000000, +4.00000000), (+9.00000000, +4.00000000), (+9.00000000, +4.00000000), (+9.00000000, +4.00000000), (+9.00000000, +4.00000000), (+8.00000000, +0.00000000), (+8.00000000, +0.00000000), (+8.00000000, +0.00000000), (+8.00000000, +0.00000000), (+8.00000000, +0.00000000), (+8.00000000, +0.00000000), (+3.00000000, +0.00000000), (+3.00000000, +0.00000000), (+3.00000000, +0.00000000), (+3.00000000, +0.00000000), (+3.00000000, +0.00000000), (+3.00000000, +0.00000000), (+3.00000000, +0.00000000), (+0.00000000, +7.00000000), (+0.00000000, +7.00000000), (+0.00000000, +7.00000000)
2724(+1.00000000, +4.00000000), (+1.00000000, +4.00000000), (+1.00000000, +4.00000000), (+1.00000000, +4.00000000), (+1.00000000, +4.00000000), (+1.00000000, +4.00000000), (+1.00000000, +4.00000000), (+1.00000000, +4.00000000), (+3.00000000, +0.00000000), (+3.00000000, +0.00000000), (+3.00000000, +0.00000000), (+3.00000000, +0.00000000), (+3.00000000, +0.00000000), (+3.00000000, +0.00000000), (+9.00000000, +0.00000000), (+9.00000000, +0.00000000), (+9.00000000, +0.00000000), (+9.00000000, +0.00000000), (+9.00000000, +0.00000000), (+9.00000000, +0.00000000), (+9.00000000, +0.00000000), (+9.00000000, +2.00000000), (+9.00000000, +2.00000000), (+9.00000000, +2.00000000)
2725(+4.00000000, +7.00000000), (+4.00000000, +7.00000000), (+4.00000000, +7.00000000), (+4.00000000, +7.00000000), (+4.00000000, +7.00000000), (+4.00000000, +7.00000000), (+4.00000000, +7.00000000), (+4.00000000, +7.00000000), (+4.00000000, +6.00000000), (+4.00000000, +6.00000000), (+4.00000000, +6.00000000), (+4.00000000, +6.00000000), (+4.00000000, +6.00000000), (+4.00000000, +6.00000000), (+8.00000000, +8.00000000), (+8.00000000, +8.00000000), (+8.00000000, +8.00000000), (+8.00000000, +8.00000000), (+8.00000000, +8.00000000), (+8.00000000, +8.00000000), (+8.00000000, +8.00000000), (+8.00000000, +6.00000000), (+8.00000000, +6.00000000), (+8.00000000, +6.00000000)
2726arref = array
2727weiref = weight
2728call setRefined(arref, dim, weiref, skip, rsize)
2729rsize
2730+4
2731weiref(1:rsize)
2732+8, +6, +7, +3
2733arref(:, 1:rsize)
2734(+9.00000000, +4.00000000), (+8.00000000, +0.00000000), (+3.00000000, +0.00000000), (+0.00000000, +7.00000000)
2735(+1.00000000, +4.00000000), (+3.00000000, +0.00000000), (+9.00000000, +0.00000000), (+9.00000000, +2.00000000)
2736(+4.00000000, +7.00000000), (+4.00000000, +6.00000000), (+8.00000000, +8.00000000), (+8.00000000, +6.00000000)
2737weiref = weight
2738arref = transpose(array)
2739call setRefined(arref, 3_IK - dim, weiref, skip, rsize)
2740rsize
2741+4
2742weiref(1:rsize)
2743+8, +6, +7, +3
2744arref(1:rsize, :)
2745(+9.00000000, +4.00000000), (+1.00000000, +4.00000000), (+4.00000000, +7.00000000)
2746(+8.00000000, +0.00000000), (+3.00000000, +0.00000000), (+4.00000000, +6.00000000)
2747(+3.00000000, +0.00000000), (+9.00000000, +0.00000000), (+8.00000000, +8.00000000)
2748(+0.00000000, +7.00000000), (+9.00000000, +2.00000000), (+8.00000000, +6.00000000)
2749
2750dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
2751[dim, ndim, nsam]
2752+2, +1, +9
2753skip
2754+4
2755weight = getUnifRand(-1, 9, nsam)
2756weight
2757+7, +6, +1, +4, -1, +8, +6, +2, -1
2758array = cmplx(getUnifRand(0, 9, ndim, nsam), getUnifRand(0, 9, ndim, nsam), TKG)
2759array
2760(+3.00000000, +1.00000000), (+7.00000000, +3.00000000), (+0.00000000, +1.00000000), (+4.00000000, +4.00000000), (+4.00000000, +9.00000000), (+4.00000000, +1.00000000), (+4.00000000, +6.00000000), (+0.00000000, +4.00000000), (+0.00000000, +3.00000000)
2761getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
2762(+3.00000000, +1.00000000), (+3.00000000, +1.00000000), (+3.00000000, +1.00000000), (+3.00000000, +1.00000000), (+3.00000000, +1.00000000), (+3.00000000, +1.00000000), (+3.00000000, +1.00000000), (+7.00000000, +3.00000000), (+7.00000000, +3.00000000), (+7.00000000, +3.00000000), (+7.00000000, +3.00000000), (+7.00000000, +3.00000000), (+7.00000000, +3.00000000), (+0.00000000, +1.00000000), (+4.00000000, +4.00000000), (+4.00000000, +4.00000000), (+4.00000000, +4.00000000), (+4.00000000, +4.00000000), (+4.00000000, +1.00000000), (+4.00000000, +1.00000000), (+4.00000000, +1.00000000), (+4.00000000, +1.00000000), (+4.00000000, +1.00000000), (+4.00000000, +1.00000000), (+4.00000000, +1.00000000), (+4.00000000, +1.00000000), (+4.00000000, +6.00000000), (+4.00000000, +6.00000000), (+4.00000000, +6.00000000), (+4.00000000, +6.00000000), (+4.00000000, +6.00000000), (+4.00000000, +6.00000000), (+0.00000000, +4.00000000), (+0.00000000, +4.00000000)
2763arref = array
2764weiref = weight
2765call setRefined(arref, dim, weiref, skip, rsize)
2766rsize
2767+5
2768weiref(1:rsize)
2769+1, +2, +1, +2, +2
2770arref(:, 1:rsize)
2771(+3.00000000, +1.00000000), (+7.00000000, +3.00000000), (+4.00000000, +4.00000000), (+4.00000000, +1.00000000), (+4.00000000, +6.00000000)
2772weiref = weight
2773arref = transpose(array)
2774call setRefined(arref, 3_IK - dim, weiref, skip, rsize)
2775rsize
2776+5
2777weiref(1:rsize)
2778+1, +2, +1, +2, +2
2779arref(1:rsize, :)
2780(+3.00000000, +1.00000000)
2781(+7.00000000, +3.00000000)
2782(+4.00000000, +4.00000000)
2783(+4.00000000, +1.00000000)
2784(+4.00000000, +6.00000000)
2785
2786dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
2787[dim, ndim, nsam]
2788+2, +2, +0
2789skip
2790+4
2791weight = getUnifRand(-1, 9, nsam)
2792weight
2793
2794array = cmplx(getUnifRand(0, 9, ndim, nsam), getUnifRand(0, 9, ndim, nsam), TKG)
2795array
2796
2797
2798getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
2799
2800
2801arref = array
2802weiref = weight
2803call setRefined(arref, dim, weiref, skip, rsize)
2804rsize
2805+0
2806weiref(1:rsize)
2807
2808arref(:, 1:rsize)
2809
2810
2811weiref = weight
2812arref = transpose(array)
2813call setRefined(arref, 3_IK - dim, weiref, skip, rsize)
2814rsize
2815+0
2816weiref(1:rsize)
2817
2818arref(1:rsize, :)
2819
2820dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
2821[dim, ndim, nsam]
2822+2, +2, +5
2823skip
2824+1
2825weight = getUnifRand(-1, 9, nsam)
2826weight
2827+6, +4, +0, +8, +0
2828array = cmplx(getUnifRand(0, 9, ndim, nsam), getUnifRand(0, 9, ndim, nsam), TKG)
2829array
2830(+0.00000000, +0.00000000), (+0.00000000, +2.00000000), (+4.00000000, +4.00000000), (+1.00000000, +0.00000000), (+4.00000000, +5.00000000)
2831(+5.00000000, +2.00000000), (+8.00000000, +4.00000000), (+7.00000000, +3.00000000), (+7.00000000, +1.00000000), (+5.00000000, +0.00000000)
2832getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
2833(+0.00000000, +0.00000000), (+0.00000000, +0.00000000), (+0.00000000, +0.00000000), (+0.00000000, +0.00000000), (+0.00000000, +0.00000000), (+0.00000000, +0.00000000), (+0.00000000, +2.00000000), (+0.00000000, +2.00000000), (+0.00000000, +2.00000000), (+0.00000000, +2.00000000), (+1.00000000, +0.00000000), (+1.00000000, +0.00000000), (+1.00000000, +0.00000000), (+1.00000000, +0.00000000), (+1.00000000, +0.00000000), (+1.00000000, +0.00000000), (+1.00000000, +0.00000000), (+1.00000000, +0.00000000)
2834(+5.00000000, +2.00000000), (+5.00000000, +2.00000000), (+5.00000000, +2.00000000), (+5.00000000, +2.00000000), (+5.00000000, +2.00000000), (+5.00000000, +2.00000000), (+8.00000000, +4.00000000), (+8.00000000, +4.00000000), (+8.00000000, +4.00000000), (+8.00000000, +4.00000000), (+7.00000000, +1.00000000), (+7.00000000, +1.00000000), (+7.00000000, +1.00000000), (+7.00000000, +1.00000000), (+7.00000000, +1.00000000), (+7.00000000, +1.00000000), (+7.00000000, +1.00000000), (+7.00000000, +1.00000000)
2835arref = array
2836weiref = weight
2837call setRefined(arref, dim, weiref, skip, rsize)
2838rsize
2839+3
2840weiref(1:rsize)
2841+6, +4, +8
2842arref(:, 1:rsize)
2843(+0.00000000, +0.00000000), (+0.00000000, +2.00000000), (+1.00000000, +0.00000000)
2844(+5.00000000, +2.00000000), (+8.00000000, +4.00000000), (+7.00000000, +1.00000000)
2845weiref = weight
2846arref = transpose(array)
2847call setRefined(arref, 3_IK - dim, weiref, skip, rsize)
2848rsize
2849+3
2850weiref(1:rsize)
2851+6, +4, +8
2852arref(1:rsize, :)
2853(+0.00000000, +0.00000000), (+5.00000000, +2.00000000)
2854(+0.00000000, +2.00000000), (+8.00000000, +4.00000000)
2855(+1.00000000, +0.00000000), (+7.00000000, +1.00000000)
2856
2857dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
2858[dim, ndim, nsam]
2859+2, +0, +8
2860skip
2861+3
2862weight = getUnifRand(-1, 9, nsam)
2863weight
2864+2, +7, +8, +1, +6, +8, +4, +4
2865array = getUnifRand(0, 9, ndim, nsam)
2866array
2867getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
2868arref = array
2869weiref = weight
2870call setRefined(arref, dim, weiref, skip, rsize)
2871rsize
2872+0
2873weiref(1:rsize)
2874
2875arref(:, 1:rsize)
2876weiref = weight
2877arref = transpose(array)
2878call setRefined(arref, 3_IK - dim, weiref, skip, rsize)
2879rsize
2880+7
2881weiref(1:rsize)
2882+3, +2, +1, +2, +2, +2, +1
2883arref(1:rsize, :)
2884
2885
2886
2887
2888
2889
2890
2891
2892dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
2893[dim, ndim, nsam]
2894+2, +1, +9
2895skip
2896+2
2897weight = getUnifRand(-1, 9, nsam)
2898weight
2899+6, +2, -1, +6, +4, +3, +1, +8, +5
2900array = getUnifRand(0, 9, ndim, nsam)
2901array
2902+5.00000000, +8.00000000, +9.00000000, +2.00000000, +2.00000000, +9.00000000, +7.00000000, +4.00000000, +0.00000000
2903getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
2904+5.00000000, +5.00000000, +5.00000000, +5.00000000, +5.00000000, +5.00000000, +8.00000000, +8.00000000, +2.00000000, +2.00000000, +2.00000000, +2.00000000, +2.00000000, +2.00000000, +2.00000000, +2.00000000, +2.00000000, +2.00000000, +9.00000000, +9.00000000, +9.00000000, +7.00000000, +4.00000000, +4.00000000, +4.00000000, +4.00000000, +4.00000000, +4.00000000, +4.00000000, +4.00000000, +0.00000000, +0.00000000, +0.00000000, +0.00000000, +0.00000000
2905arref = array
2906weiref = weight
2907call setRefined(arref, dim, weiref, skip, rsize)
2908rsize
2909+8
2910weiref(1:rsize)
2911+3, +1, +3, +2, +1, +1, +4, +2
2912arref(:, 1:rsize)
2913+5.00000000, +8.00000000, +2.00000000, +2.00000000, +9.00000000, +7.00000000, +4.00000000, +0.00000000
2914weiref = weight
2915arref = transpose(array)
2916call setRefined(arref, 3_IK - dim, weiref, skip, rsize)
2917rsize
2918+8
2919weiref(1:rsize)
2920+3, +1, +3, +2, +1, +1, +4, +2
2921arref(1:rsize, :)
2922+5.00000000
2923+8.00000000
2924+2.00000000
2925+2.00000000
2926+9.00000000
2927+7.00000000
2928+4.00000000
2929+0.00000000
2930
2931dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
2932[dim, ndim, nsam]
2933+2, +3, +3
2934skip
2935+3
2936weight = getUnifRand(-1, 9, nsam)
2937weight
2938+6, +5, +6
2939array = getUnifRand(0, 9, ndim, nsam)
2940array
2941+1.00000000, +8.00000000, +2.00000000
2942+3.00000000, +1.00000000, +8.00000000
2943+0.00000000, +9.00000000, +6.00000000
2944getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
2945+1.00000000, +1.00000000, +1.00000000, +1.00000000, +1.00000000, +1.00000000, +8.00000000, +8.00000000, +8.00000000, +8.00000000, +8.00000000, +2.00000000, +2.00000000, +2.00000000, +2.00000000, +2.00000000, +2.00000000
2946+3.00000000, +3.00000000, +3.00000000, +3.00000000, +3.00000000, +3.00000000, +1.00000000, +1.00000000, +1.00000000, +1.00000000, +1.00000000, +8.00000000, +8.00000000, +8.00000000, +8.00000000, +8.00000000, +8.00000000
2947+0.00000000, +0.00000000, +0.00000000, +0.00000000, +0.00000000, +0.00000000, +9.00000000, +9.00000000, +9.00000000, +9.00000000, +9.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000
2948arref = array
2949weiref = weight
2950call setRefined(arref, dim, weiref, skip, rsize)
2951rsize
2952+3
2953weiref(1:rsize)
2954+2, +1, +2
2955arref(:, 1:rsize)
2956+1.00000000, +8.00000000, +2.00000000
2957+3.00000000, +1.00000000, +8.00000000
2958+0.00000000, +9.00000000, +6.00000000
2959weiref = weight
2960arref = transpose(array)
2961call setRefined(arref, 3_IK - dim, weiref, skip, rsize)
2962rsize
2963+3
2964weiref(1:rsize)
2965+2, +1, +2
2966arref(1:rsize, :)
2967+1.00000000, +3.00000000, +0.00000000
2968+8.00000000, +1.00000000, +9.00000000
2969+2.00000000, +8.00000000, +6.00000000
2970
2971dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
2972[dim, ndim, nsam]
2973+2, +0, +5
2974skip
2975+4
2976weight = getUnifRand(-1, 9, nsam)
2977weight
2978+2, +4, +6, +3, +3
2979array = getUnifRand(0, 9, ndim, nsam)
2980array
2981getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
2982arref = array
2983weiref = weight
2984call setRefined(arref, dim, weiref, skip, rsize)
2985rsize
2986+0
2987weiref(1:rsize)
2988
2989arref(:, 1:rsize)
2990weiref = weight
2991arref = transpose(array)
2992call setRefined(arref, 3_IK - dim, weiref, skip, rsize)
2993rsize
2994+3
2995weiref(1:rsize)
2996+1, +2, +1
2997arref(1:rsize, :)
2998
2999
3000
3001
3002dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
3003[dim, ndim, nsam]
3004+2, +1, +6
3005skip
3006+4
3007weight = getUnifRand(-1, 9, nsam)
3008weight
3009+8, +1, -1, +1, +6, +9
3010array = getUnifRand(0, 9, ndim, nsam)
3011array
3012+7.00000000, +9.00000000, +1.00000000, +2.00000000, +2.00000000, +5.00000000
3013getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
3014+7.00000000, +7.00000000, +7.00000000, +7.00000000, +7.00000000, +7.00000000, +7.00000000, +7.00000000, +9.00000000, +2.00000000, +2.00000000, +2.00000000, +2.00000000, +2.00000000, +2.00000000, +2.00000000, +5.00000000, +5.00000000, +5.00000000, +5.00000000, +5.00000000, +5.00000000, +5.00000000, +5.00000000, +5.00000000
3015arref = array
3016weiref = weight
3017call setRefined(arref, dim, weiref, skip, rsize)
3018rsize
3019+3
3020weiref(1:rsize)
3021+2, +2, +2
3022arref(:, 1:rsize)
3023+7.00000000, +2.00000000, +5.00000000
3024weiref = weight
3025arref = transpose(array)
3026call setRefined(arref, 3_IK - dim, weiref, skip, rsize)
3027rsize
3028+3
3029weiref(1:rsize)
3030+2, +2, +2
3031arref(1:rsize, :)
3032+7.00000000
3033+2.00000000
3034+5.00000000
3035
3036dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
3037[dim, ndim, nsam]
3038+2, +3, +3
3039skip
3040+3
3041weight = getUnifRand(-1, 9, nsam)
3042weight
3043+1, +0, +9
3044array = getUnifRand(0, 9, ndim, nsam)
3045array
3046+1.00000000, +1.00000000, +9.00000000
3047+5.00000000, +9.00000000, +5.00000000
3048+4.00000000, +4.00000000, +7.00000000
3049getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
3050+1.00000000, +9.00000000, +9.00000000, +9.00000000, +9.00000000, +9.00000000, +9.00000000, +9.00000000, +9.00000000, +9.00000000
3051+5.00000000, +5.00000000, +5.00000000, +5.00000000, +5.00000000, +5.00000000, +5.00000000, +5.00000000, +5.00000000, +5.00000000
3052+4.00000000, +7.00000000, +7.00000000, +7.00000000, +7.00000000, +7.00000000, +7.00000000, +7.00000000, +7.00000000, +7.00000000
3053arref = array
3054weiref = weight
3055call setRefined(arref, dim, weiref, skip, rsize)
3056rsize
3057+1
3058weiref(1:rsize)
3059+3
3060arref(:, 1:rsize)
3061+9.00000000
3062+5.00000000
3063+7.00000000
3064weiref = weight
3065arref = transpose(array)
3066call setRefined(arref, 3_IK - dim, weiref, skip, rsize)
3067rsize
3068+1
3069weiref(1:rsize)
3070+3
3071arref(1:rsize, :)
3072+9.00000000, +5.00000000, +7.00000000
3073
3074dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
3075[dim, ndim, nsam]
3076+2, +1, +2
3077skip
3078+1
3079weight = getUnifRand(-1, 9, nsam)
3080weight
3081+2, +6
3082array = getUnifRand(0, 9, ndim, nsam)
3083array
3084+8.00000000, +6.00000000
3085getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
3086+8.00000000, +8.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000
3087arref = array
3088weiref = weight
3089call setRefined(arref, dim, weiref, skip, rsize)
3090rsize
3091+2
3092weiref(1:rsize)
3093+2, +6
3094arref(:, 1:rsize)
3095+8.00000000, +6.00000000
3096weiref = weight
3097arref = transpose(array)
3098call setRefined(arref, 3_IK - dim, weiref, skip, rsize)
3099rsize
3100+2
3101weiref(1:rsize)
3102+2, +6
3103arref(1:rsize, :)
3104+8.00000000
3105+6.00000000
3106
3107dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
3108[dim, ndim, nsam]
3109+2, +1, +7
3110skip
3111+3
3112weight = getUnifRand(-1, 9, nsam)
3113weight
3114+3, +5, +2, +8, +9, +0, +1
3115array = getUnifRand(0, 9, ndim, nsam)
3116array
3117+4.00000000, +5.00000000, +6.00000000, +7.00000000, +6.00000000, +4.00000000, +5.00000000
3118getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
3119+4.00000000, +4.00000000, +4.00000000, +5.00000000, +5.00000000, +5.00000000, +5.00000000, +5.00000000, +6.00000000, +6.00000000, +7.00000000, +7.00000000, +7.00000000, +7.00000000, +7.00000000, +7.00000000, +7.00000000, +7.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000, +6.00000000, +5.00000000
3120arref = array
3121weiref = weight
3122call setRefined(arref, dim, weiref, skip, rsize)
3123rsize
3124+5
3125weiref(1:rsize)
3126+1, +1, +1, +3, +3
3127arref(:, 1:rsize)
3128+4.00000000, +5.00000000, +6.00000000, +7.00000000, +6.00000000
3129weiref = weight
3130arref = transpose(array)
3131call setRefined(arref, 3_IK - dim, weiref, skip, rsize)
3132rsize
3133+5
3134weiref(1:rsize)
3135+1, +1, +1, +3, +3
3136arref(1:rsize, :)
3137+4.00000000
3138+5.00000000
3139+6.00000000
3140+7.00000000
3141+6.00000000
3142
3143dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
3144[dim, ndim, nsam]
3145+2, +0, +2
3146skip
3147+3
3148weight = getUnifRand(-1, 9, nsam)
3149weight
3150+9, +4
3151array = getUnifRand(0, 9, ndim, nsam)
3152array
3153getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
3154arref = array
3155weiref = weight
3156call setRefined(arref, dim, weiref, skip, rsize)
3157rsize
3158+0
3159weiref(1:rsize)
3160
3161arref(:, 1:rsize)
3162weiref = weight
3163arref = transpose(array)
3164call setRefined(arref, 3_IK - dim, weiref, skip, rsize)
3165rsize
3166+2
3167weiref(1:rsize)
3168+3, +1
3169arref(1:rsize, :)
3170
3171
3172
3173dim = 2; ndim = merge(0, getUnifRand(1, 3), isHead(.1)); nsam = getUnifRand(0, 9); skip = getUnifRand(1, 4)
3174[dim, ndim, nsam]
3175+2, +1, +6
3176skip
3177+1
3178weight = getUnifRand(-1, 9, nsam)
3179weight
3180+7, +7, +8, -1, +5, +9
3181array = getUnifRand(0, 9, ndim, nsam)
3182array
3183+3.00000000, +7.00000000, +0.00000000, +0.00000000, +7.00000000, +0.00000000
3184getVerbose(array, weight, sum(weight, mask = weight > 0), dim)
3185+3.00000000, +3.00000000, +3.00000000, +3.00000000, +3.00000000, +3.00000000, +3.00000000, +7.00000000, +7.00000000, +7.00000000, +7.00000000, +7.00000000, +7.00000000, +7.00000000, +0.00000000, +0.00000000, +0.00000000, +0.00000000, +0.00000000, +0.00000000, +0.00000000, +0.00000000, +7.00000000, +7.00000000, +7.00000000, +7.00000000, +7.00000000, +0.00000000, +0.00000000, +0.00000000, +0.00000000, +0.00000000, +0.00000000, +0.00000000, +0.00000000, +0.00000000
3186arref = array
3187weiref = weight
3188call setRefined(arref, dim, weiref, skip, rsize)
3189rsize
3190+5
3191weiref(1:rsize)
3192+7, +7, +8, +5, +9
3193arref(:, 1:rsize)
3194+3.00000000, +7.00000000, +0.00000000, +7.00000000, +0.00000000
3195weiref = weight
3196arref = transpose(array)
3197call setRefined(arref, 3_IK - dim, weiref, skip, rsize)
3198rsize
3199+5
3200weiref(1:rsize)
3201+7, +7, +8, +5, +9
3202arref(1:rsize, :)
3203+3.00000000
3204+7.00000000
3205+0.00000000
3206+7.00000000
3207+0.00000000
3208
3209
Test:
test_pm_arrayRefine


Final Remarks ⛓

If you believe this algorithm or its documentation can be improved, we appreciate your contribution and help to edit this page's documentation and source file on GitHub.
For details on the naming abbreviations, see this page.
For details on the naming conventions, see this page.
This software is distributed under the MIT license with additional terms outlined below.

  1. If you use any parts or concepts from this library to any extent, please acknowledge the usage by citing the relevant publications of the ParaMonte library.
  2. If you regenerate any parts/ideas from this library in a programming environment other than those currently supported by this ParaMonte library (i.e., other than C, C++, Fortran, MATLAB, Python, R), please also ask the end users to cite this original ParaMonte library.

This software is available to the public under a highly permissive license.
Help us justify its continued development and maintenance by acknowledging its benefit to society, distributing it, and contributing to it.

Copyright
Computational Data Science Lab
Author:
Amir Shahmoradi, Saturday 1:48 AM, August 20, 2016, Institute for Computational Engineering and Sciences, UT Austin, TX

Definition at line 1018 of file pm_arrayRefine.F90.

The documentation for this interface was generated from the following file: