Line data Source code
1 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
2 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
3 : !!!! !!!!
4 : !!!! ParaMonte: Parallel Monte Carlo and Machine Learning Library. !!!!
5 : !!!! !!!!
6 : !!!! Copyright (C) 2012-present, The Computational Data Science Lab !!!!
7 : !!!! !!!!
8 : !!!! This file is part of the ParaMonte library. !!!!
9 : !!!! !!!!
10 : !!!! LICENSE !!!!
11 : !!!! !!!!
12 : !!!! https://github.com/cdslaborg/paramonte/blob/main/LICENSE.md !!!!
13 : !!!! !!!!
14 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
15 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
16 :
17 : !> \brief
18 : !> This file contains procedure implementations of [pm_arraySearch](@ref pm_arraySearch).
19 : !>
20 : !> \finmain
21 : !>
22 : !> \author
23 : !> \AmirShahmoradi, September 1, 2017, 12:00 AM, Institute for Computational Engineering and Sciences (ICES), The University of Texas at Austin
24 :
25 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26 :
27 : submodule (pm_arraySearch) routines ! LCOV_EXCL_LINE
28 :
29 : use pm_kind, only: LK
30 :
31 : #if CHECK_ENABLED
32 : use pm_err, only: getFine
33 : use pm_val2str, only: getStr
34 : use pm_err, only: setAsserted
35 : #define CHECK_ASSERTION(LINE,ASSERTION,MSG) \
36 : call setAsserted(ASSERTION,getFine(__FILE__,LINE)//MODULE_NAME//MSG);
37 : #else
38 : #define CHECK_ASSERTION(LINE,ASSERTION,MSG) continue;
39 : #endif
40 :
41 : implicit none
42 :
43 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
44 :
45 : contains
46 :
47 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
48 :
49 : #define getBin_ENABLED 1
50 :
51 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
52 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
53 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
54 :
55 : #define DefCom_ENABLED 1
56 :
57 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
58 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
59 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
60 :
61 : #define D0_D0_ENABLED 1
62 :
63 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
64 :
65 : #define SK_ENABLED 1
66 :
67 : #if SK5_ENABLED
68 : module procedure getBinDefCom_D0_D0_SK5
69 : use pm_kind, only: SKC => SK5
70 : #include "pm_arraySearch@routines.inc.F90"
71 : end procedure
72 : #endif
73 :
74 : #if SK4_ENABLED
75 : module procedure getBinDefCom_D0_D0_SK4
76 : use pm_kind, only: SKC => SK4
77 : #include "pm_arraySearch@routines.inc.F90"
78 : end procedure
79 : #endif
80 :
81 : #if SK3_ENABLED
82 : module procedure getBinDefCom_D0_D0_SK3
83 : use pm_kind, only: SKC => SK3
84 : #include "pm_arraySearch@routines.inc.F90"
85 : end procedure
86 : #endif
87 :
88 : #if SK2_ENABLED
89 : module procedure getBinDefCom_D0_D0_SK2
90 : use pm_kind, only: SKC => SK2
91 : #include "pm_arraySearch@routines.inc.F90"
92 : end procedure
93 : #endif
94 :
95 : #if SK1_ENABLED
96 13 : module procedure getBinDefCom_D0_D0_SK1
97 : use pm_kind, only: SKC => SK1
98 : #include "pm_arraySearch@routines.inc.F90"
99 : end procedure
100 : #endif
101 :
102 : #undef SK_ENABLED
103 :
104 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
105 :
106 : #undef D0_D0_ENABLED
107 :
108 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
109 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
110 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
111 :
112 : #define D1_D0_ENABLED 1
113 :
114 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
115 :
116 : #define SK_ENABLED 1
117 :
118 : #if SK5_ENABLED
119 : module procedure getBinDefCom_D1_D0_SK5
120 : use pm_kind, only: SKC => SK5
121 : #include "pm_arraySearch@routines.inc.F90"
122 : end procedure
123 : #endif
124 :
125 : #if SK4_ENABLED
126 : module procedure getBinDefCom_D1_D0_SK4
127 : use pm_kind, only: SKC => SK4
128 : #include "pm_arraySearch@routines.inc.F90"
129 : end procedure
130 : #endif
131 :
132 : #if SK3_ENABLED
133 : module procedure getBinDefCom_D1_D0_SK3
134 : use pm_kind, only: SKC => SK3
135 : #include "pm_arraySearch@routines.inc.F90"
136 : end procedure
137 : #endif
138 :
139 : #if SK2_ENABLED
140 : module procedure getBinDefCom_D1_D0_SK2
141 : use pm_kind, only: SKC => SK2
142 : #include "pm_arraySearch@routines.inc.F90"
143 : end procedure
144 : #endif
145 :
146 : #if SK1_ENABLED
147 9 : module procedure getBinDefCom_D1_D0_SK1
148 : use pm_kind, only: SKC => SK1
149 : #include "pm_arraySearch@routines.inc.F90"
150 : end procedure
151 : #endif
152 :
153 : #undef SK_ENABLED
154 :
155 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
156 :
157 : #define IK_ENABLED 1
158 :
159 : #if IK5_ENABLED
160 8 : module procedure getBinDefCom_D1_D0_IK5
161 : use pm_kind, only: IKC => IK5
162 : #include "pm_arraySearch@routines.inc.F90"
163 : end procedure
164 : #endif
165 :
166 : #if IK4_ENABLED
167 8 : module procedure getBinDefCom_D1_D0_IK4
168 : use pm_kind, only: IKC => IK4
169 : #include "pm_arraySearch@routines.inc.F90"
170 : end procedure
171 : #endif
172 :
173 : #if IK3_ENABLED
174 1282 : module procedure getBinDefCom_D1_D0_IK3
175 : use pm_kind, only: IKC => IK3
176 : #include "pm_arraySearch@routines.inc.F90"
177 : end procedure
178 : #endif
179 :
180 : #if IK2_ENABLED
181 8 : module procedure getBinDefCom_D1_D0_IK2
182 : use pm_kind, only: IKC => IK2
183 : #include "pm_arraySearch@routines.inc.F90"
184 : end procedure
185 : #endif
186 :
187 : #if IK1_ENABLED
188 8 : module procedure getBinDefCom_D1_D0_IK1
189 : use pm_kind, only: IKC => IK1
190 : #include "pm_arraySearch@routines.inc.F90"
191 : end procedure
192 : #endif
193 :
194 : #undef IK_ENABLED
195 :
196 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
197 :
198 : #define CK_ENABLED 1
199 :
200 : #if CK5_ENABLED
201 : module procedure getBinDefCom_D1_D0_CK5
202 : use pm_kind, only: CKC => CK5
203 : #include "pm_arraySearch@routines.inc.F90"
204 : end procedure
205 : #endif
206 :
207 : #if CK4_ENABLED
208 8 : module procedure getBinDefCom_D1_D0_CK4
209 : use pm_kind, only: CKC => CK4
210 : #include "pm_arraySearch@routines.inc.F90"
211 : end procedure
212 : #endif
213 :
214 : #if CK3_ENABLED
215 8 : module procedure getBinDefCom_D1_D0_CK3
216 : use pm_kind, only: CKC => CK3
217 : #include "pm_arraySearch@routines.inc.F90"
218 : end procedure
219 : #endif
220 :
221 : #if CK2_ENABLED
222 8 : module procedure getBinDefCom_D1_D0_CK2
223 : use pm_kind, only: CKC => CK2
224 : #include "pm_arraySearch@routines.inc.F90"
225 : end procedure
226 : #endif
227 :
228 : #if CK1_ENABLED
229 8 : module procedure getBinDefCom_D1_D0_CK1
230 : use pm_kind, only: CKC => CK1
231 : #include "pm_arraySearch@routines.inc.F90"
232 : end procedure
233 : #endif
234 :
235 : #undef CK_ENABLED
236 :
237 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
238 :
239 : #define RK_ENABLED 1
240 :
241 : #if RK5_ENABLED
242 : module procedure getBinDefCom_D1_D0_RK5
243 : use pm_kind, only: RKC => RK5
244 : #include "pm_arraySearch@routines.inc.F90"
245 : end procedure
246 : #endif
247 :
248 : #if RK4_ENABLED
249 428 : module procedure getBinDefCom_D1_D0_RK4
250 : use pm_kind, only: RKC => RK4
251 : #include "pm_arraySearch@routines.inc.F90"
252 : end procedure
253 : #endif
254 :
255 : #if RK3_ENABLED
256 428 : module procedure getBinDefCom_D1_D0_RK3
257 : use pm_kind, only: RKC => RK3
258 : #include "pm_arraySearch@routines.inc.F90"
259 : end procedure
260 : #endif
261 :
262 : #if RK2_ENABLED
263 51987 : module procedure getBinDefCom_D1_D0_RK2
264 : use pm_kind, only: RKC => RK2
265 : #include "pm_arraySearch@routines.inc.F90"
266 : end procedure
267 : #endif
268 :
269 : #if RK1_ENABLED
270 1429 : module procedure getBinDefCom_D1_D0_RK1
271 : use pm_kind, only: RKC => RK1
272 : #include "pm_arraySearch@routines.inc.F90"
273 : end procedure
274 : #endif
275 :
276 : #undef RK_ENABLED
277 :
278 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
279 :
280 : #undef D1_D0_ENABLED
281 :
282 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
283 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
284 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
285 :
286 : #undef DefCom_ENABLED
287 :
288 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
289 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
290 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
291 :
292 : #define CusCom_ENABLED 1
293 :
294 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
295 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
296 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
297 :
298 : #define D0_D0_ENABLED 1
299 :
300 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
301 :
302 : #define SK_ENABLED 1
303 :
304 : #if SK5_ENABLED
305 : module procedure getBinCusCom_D0_D0_SK5
306 : use pm_kind, only: SKC => SK5
307 : #include "pm_arraySearch@routines.inc.F90"
308 : end procedure
309 : #endif
310 :
311 : #if SK4_ENABLED
312 : module procedure getBinCusCom_D0_D0_SK4
313 : use pm_kind, only: SKC => SK4
314 : #include "pm_arraySearch@routines.inc.F90"
315 : end procedure
316 : #endif
317 :
318 : #if SK3_ENABLED
319 : module procedure getBinCusCom_D0_D0_SK3
320 : use pm_kind, only: SKC => SK3
321 : #include "pm_arraySearch@routines.inc.F90"
322 : end procedure
323 : #endif
324 :
325 : #if SK2_ENABLED
326 : module procedure getBinCusCom_D0_D0_SK2
327 : use pm_kind, only: SKC => SK2
328 : #include "pm_arraySearch@routines.inc.F90"
329 : end procedure
330 : #endif
331 :
332 : #if SK1_ENABLED
333 10 : module procedure getBinCusCom_D0_D0_SK1
334 : use pm_kind, only: SKC => SK1
335 : #include "pm_arraySearch@routines.inc.F90"
336 : end procedure
337 : #endif
338 :
339 : #undef SK_ENABLED
340 :
341 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
342 :
343 : #undef D0_D0_ENABLED
344 :
345 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
346 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
347 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
348 :
349 : #define D1_D0_ENABLED 1
350 :
351 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
352 :
353 : #define SK_ENABLED 1
354 :
355 : #if SK5_ENABLED
356 : module procedure getBinCusCom_D1_D0_SK5
357 : use pm_kind, only: SKC => SK5
358 : #include "pm_arraySearch@routines.inc.F90"
359 : end procedure
360 : #endif
361 :
362 : #if SK4_ENABLED
363 : module procedure getBinCusCom_D1_D0_SK4
364 : use pm_kind, only: SKC => SK4
365 : #include "pm_arraySearch@routines.inc.F90"
366 : end procedure
367 : #endif
368 :
369 : #if SK3_ENABLED
370 : module procedure getBinCusCom_D1_D0_SK3
371 : use pm_kind, only: SKC => SK3
372 : #include "pm_arraySearch@routines.inc.F90"
373 : end procedure
374 : #endif
375 :
376 : #if SK2_ENABLED
377 : module procedure getBinCusCom_D1_D0_SK2
378 : use pm_kind, only: SKC => SK2
379 : #include "pm_arraySearch@routines.inc.F90"
380 : end procedure
381 : #endif
382 :
383 : #if SK1_ENABLED
384 8 : module procedure getBinCusCom_D1_D0_SK1
385 : use pm_kind, only: SKC => SK1
386 : #include "pm_arraySearch@routines.inc.F90"
387 : end procedure
388 : #endif
389 :
390 : #undef SK_ENABLED
391 :
392 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
393 :
394 : #define IK_ENABLED 1
395 :
396 : #if IK5_ENABLED
397 8 : module procedure getBinCusCom_D1_D0_IK5
398 : use pm_kind, only: IKC => IK5
399 : #include "pm_arraySearch@routines.inc.F90"
400 : end procedure
401 : #endif
402 :
403 : #if IK4_ENABLED
404 8 : module procedure getBinCusCom_D1_D0_IK4
405 : use pm_kind, only: IKC => IK4
406 : #include "pm_arraySearch@routines.inc.F90"
407 : end procedure
408 : #endif
409 :
410 : #if IK3_ENABLED
411 9 : module procedure getBinCusCom_D1_D0_IK3
412 : use pm_kind, only: IKC => IK3
413 : #include "pm_arraySearch@routines.inc.F90"
414 : end procedure
415 : #endif
416 :
417 : #if IK2_ENABLED
418 8 : module procedure getBinCusCom_D1_D0_IK2
419 : use pm_kind, only: IKC => IK2
420 : #include "pm_arraySearch@routines.inc.F90"
421 : end procedure
422 : #endif
423 :
424 : #if IK1_ENABLED
425 8 : module procedure getBinCusCom_D1_D0_IK1
426 : use pm_kind, only: IKC => IK1
427 : #include "pm_arraySearch@routines.inc.F90"
428 : end procedure
429 : #endif
430 :
431 : #undef IK_ENABLED
432 :
433 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
434 :
435 : #define CK_ENABLED 1
436 :
437 : #if CK5_ENABLED
438 : module procedure getBinCusCom_D1_D0_CK5
439 : use pm_kind, only: CKC => CK5
440 : #include "pm_arraySearch@routines.inc.F90"
441 : end procedure
442 : #endif
443 :
444 : #if CK4_ENABLED
445 8 : module procedure getBinCusCom_D1_D0_CK4
446 : use pm_kind, only: CKC => CK4
447 : #include "pm_arraySearch@routines.inc.F90"
448 : end procedure
449 : #endif
450 :
451 : #if CK3_ENABLED
452 8 : module procedure getBinCusCom_D1_D0_CK3
453 : use pm_kind, only: CKC => CK3
454 : #include "pm_arraySearch@routines.inc.F90"
455 : end procedure
456 : #endif
457 :
458 : #if CK2_ENABLED
459 8 : module procedure getBinCusCom_D1_D0_CK2
460 : use pm_kind, only: CKC => CK2
461 : #include "pm_arraySearch@routines.inc.F90"
462 : end procedure
463 : #endif
464 :
465 : #if CK1_ENABLED
466 8 : module procedure getBinCusCom_D1_D0_CK1
467 : use pm_kind, only: CKC => CK1
468 : #include "pm_arraySearch@routines.inc.F90"
469 : end procedure
470 : #endif
471 :
472 : #undef CK_ENABLED
473 :
474 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
475 :
476 : #define RK_ENABLED 1
477 :
478 : #if RK5_ENABLED
479 : module procedure getBinCusCom_D1_D0_RK5
480 : use pm_kind, only: RKC => RK5
481 : #include "pm_arraySearch@routines.inc.F90"
482 : end procedure
483 : #endif
484 :
485 : #if RK4_ENABLED
486 8 : module procedure getBinCusCom_D1_D0_RK4
487 : use pm_kind, only: RKC => RK4
488 : #include "pm_arraySearch@routines.inc.F90"
489 : end procedure
490 : #endif
491 :
492 : #if RK3_ENABLED
493 8 : module procedure getBinCusCom_D1_D0_RK3
494 : use pm_kind, only: RKC => RK3
495 : #include "pm_arraySearch@routines.inc.F90"
496 : end procedure
497 : #endif
498 :
499 : #if RK2_ENABLED
500 9 : module procedure getBinCusCom_D1_D0_RK2
501 : use pm_kind, only: RKC => RK2
502 : #include "pm_arraySearch@routines.inc.F90"
503 : end procedure
504 : #endif
505 :
506 : #if RK1_ENABLED
507 8 : module procedure getBinCusCom_D1_D0_RK1
508 : use pm_kind, only: RKC => RK1
509 : #include "pm_arraySearch@routines.inc.F90"
510 : end procedure
511 : #endif
512 :
513 : #undef RK_ENABLED
514 :
515 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
516 :
517 : #undef D1_D0_ENABLED
518 :
519 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
520 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
521 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
522 :
523 : #undef CusCom_ENABLED
524 :
525 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
526 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
527 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
528 :
529 : #undef getBin_ENABLED
530 :
531 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
532 :
533 : #undef CHECK_ASSERTION
534 :
535 : end submodule routines
|
