46#define LEN_STR len(array,IK)
49#define CONTIGUOUS__, contiguous
151 PURE module function getVerbose_D0_SK5(array, weight, weisum)
result(verbose)
152#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
153 !DEC$ ATTRIBUTES DLLEXPORT :: getVerbose_D0_SK5
156 character(
*,SKG) ,
intent(in) :: array
157 integer(IK) ,
intent(in) CONTIGUOUS__ :: weight(:)
158 integer(IK) ,
intent(in) :: weisum
159 character(weisum,SKG) :: verbose
164 PURE module function getVerbose_D0_SK4(array, weight, weisum)
result(verbose)
165#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
166 !DEC$ ATTRIBUTES DLLEXPORT :: getVerbose_D0_SK4
169 character(
*,SKG) ,
intent(in) :: array
170 integer(IK) ,
intent(in) CONTIGUOUS__ :: weight(:)
171 integer(IK) ,
intent(in) :: weisum
172 character(weisum,SKG) :: verbose
177 PURE module function getVerbose_D0_SK3(array, weight, weisum)
result(verbose)
178#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
179 !DEC$ ATTRIBUTES DLLEXPORT :: getVerbose_D0_SK3
182 character(
*,SKG) ,
intent(in) :: array
183 integer(IK) ,
intent(in) CONTIGUOUS__ :: weight(:)
184 integer(IK) ,
intent(in) :: weisum
185 character(weisum,SKG) :: verbose
190 PURE module function getVerbose_D0_SK2(array, weight, weisum)
result(verbose)
191#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
192 !DEC$ ATTRIBUTES DLLEXPORT :: getVerbose_D0_SK2
195 character(
*,SKG) ,
intent(in) :: array
196 integer(IK) ,
intent(in) CONTIGUOUS__ :: weight(:)
197 integer(IK) ,
intent(in) :: weisum
198 character(weisum,SKG) :: verbose
203 PURE module function getVerbose_D0_SK1(array, weight, weisum)
result(verbose)
204#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
205 !DEC$ ATTRIBUTES DLLEXPORT :: getVerbose_D0_SK1
208 character(
*,SKG) ,
intent(in) :: array
209 integer(IK) ,
intent(in) CONTIGUOUS__ :: weight(:)
210 integer(IK) ,
intent(in) :: weisum
211 character(weisum,SKG) :: verbose
224 PURE module function getVerbose_D1_SK5(array, weight, weisum)
result(verbose)
225#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
226 !DEC$ ATTRIBUTES DLLEXPORT :: getVerbose_D1_SK5
229 character(
*,SKG) ,
intent(in) CONTIGUOUS__ :: array(:)
230 integer(IK) ,
intent(in) CONTIGUOUS__ :: weight(:)
231 integer(IK) ,
intent(in) :: weisum
232 character(
len(array,IK),SKG) :: verbose(weisum)
237 PURE module function getVerbose_D1_SK4(array, weight, weisum)
result(verbose)
238#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
239 !DEC$ ATTRIBUTES DLLEXPORT :: getVerbose_D1_SK4
242 character(
*,SKG) ,
intent(in) CONTIGUOUS__ :: array(:)
243 integer(IK) ,
intent(in) CONTIGUOUS__ :: weight(:)
244 integer(IK) ,
intent(in) :: weisum
245 character(
len(array,IK),SKG) :: verbose(weisum)
250 PURE module function getVerbose_D1_SK3(array, weight, weisum)
result(verbose)
251#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
252 !DEC$ ATTRIBUTES DLLEXPORT :: getVerbose_D1_SK3
255 character(
*,SKG) ,
intent(in) CONTIGUOUS__ :: array(:)
256 integer(IK) ,
intent(in) CONTIGUOUS__ :: weight(:)
257 integer(IK) ,
intent(in) :: weisum
258 character(
len(array,IK),SKG) :: verbose(weisum)
263 PURE module function getVerbose_D1_SK2(array, weight, weisum)
result(verbose)
264#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
265 !DEC$ ATTRIBUTES DLLEXPORT :: getVerbose_D1_SK2
268 character(
*,SKG) ,
intent(in) CONTIGUOUS__ :: array(:)
269 integer(IK) ,
intent(in) CONTIGUOUS__ :: weight(:)
270 integer(IK) ,
intent(in) :: weisum
271 character(
len(array,IK),SKG) :: verbose(weisum)
276 PURE module function getVerbose_D1_SK1(array, weight, weisum)
result(verbose)
277#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
278 !DEC$ ATTRIBUTES DLLEXPORT :: getVerbose_D1_SK1
281 character(
*,SKG) ,
intent(in) CONTIGUOUS__ :: array(:)
282 integer(IK) ,
intent(in) CONTIGUOUS__ :: weight(:)
283 integer(IK) ,
intent(in) :: weisum
284 character(
len(array,IK),SKG) :: verbose(weisum)
291 PURE module function getVerbose_D1_IK5(array, weight, weisum)
result(verbose)
292#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
293 !DEC$ ATTRIBUTES DLLEXPORT :: getVerbose_D1_IK5
296 integer(IKG) ,
intent(in) CONTIGUOUS__ :: array(:)
297 integer(IK) ,
intent(in) CONTIGUOUS__ :: weight(:)
298 integer(IK) ,
intent(in) :: weisum
299 integer(IKG) :: verbose(weisum)
304 PURE module function getVerbose_D1_IK4(array, weight, weisum)
result(verbose)
305#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
306 !DEC$ ATTRIBUTES DLLEXPORT :: getVerbose_D1_IK4
309 integer(IKG) ,
intent(in) CONTIGUOUS__ :: array(:)
310 integer(IK) ,
intent(in) CONTIGUOUS__ :: weight(:)
311 integer(IK) ,
intent(in) :: weisum
312 integer(IKG) :: verbose(weisum)
317 PURE module function getVerbose_D1_IK3(array, weight, weisum)
result(verbose)
318#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
319 !DEC$ ATTRIBUTES DLLEXPORT :: getVerbose_D1_IK3
322 integer(IKG) ,
intent(in) CONTIGUOUS__ :: array(:)
323 integer(IK) ,
intent(in) CONTIGUOUS__ :: weight(:)
324 integer(IK) ,
intent(in) :: weisum
325 integer(IKG) :: verbose(weisum)
330 PURE module function getVerbose_D1_IK2(array, weight, weisum)
result(verbose)
331#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
332 !DEC$ ATTRIBUTES DLLEXPORT :: getVerbose_D1_IK2
335 integer(IKG) ,
intent(in) CONTIGUOUS__ :: array(:)
336 integer(IK) ,
intent(in) CONTIGUOUS__ :: weight(:)
337 integer(IK) ,
intent(in) :: weisum
338 integer(IKG) :: verbose(weisum)
343 PURE module function getVerbose_D1_IK1(array, weight, weisum)
result(verbose)
344#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
345 !DEC$ ATTRIBUTES DLLEXPORT :: getVerbose_D1_IK1
348 integer(IKG) ,
intent(in) CONTIGUOUS__ :: array(:)
349 integer(IK) ,
intent(in) CONTIGUOUS__ :: weight(:)
350 integer(IK) ,
intent(in) :: weisum
351 integer(IKG) :: verbose(weisum)
358 PURE module function getVerbose_D1_LK5(array, weight, weisum)
result(verbose)
359#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
360 !DEC$ ATTRIBUTES DLLEXPORT :: getVerbose_D1_LK5
363 logical(LKG) ,
intent(in) CONTIGUOUS__ :: array(:)
364 integer(IK) ,
intent(in) CONTIGUOUS__ :: weight(:)
365 integer(IK) ,
intent(in) :: weisum
366 logical(LKG) :: verbose(weisum)
371 PURE module function getVerbose_D1_LK4(array, weight, weisum)
result(verbose)
372#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
373 !DEC$ ATTRIBUTES DLLEXPORT :: getVerbose_D1_LK4
376 logical(LKG) ,
intent(in) CONTIGUOUS__ :: array(:)
377 integer(IK) ,
intent(in) CONTIGUOUS__ :: weight(:)
378 integer(IK) ,
intent(in) :: weisum
379 logical(LKG) :: verbose(weisum)
384 PURE module function getVerbose_D1_LK3(array, weight, weisum)
result(verbose)
385#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
386 !DEC$ ATTRIBUTES DLLEXPORT :: getVerbose_D1_LK3
389 logical(LKG) ,
intent(in) CONTIGUOUS__ :: array(:)
390 integer(IK) ,
intent(in) CONTIGUOUS__ :: weight(:)
391 integer(IK) ,
intent(in) :: weisum
392 logical(LKG) :: verbose(weisum)
397 PURE module function getVerbose_D1_LK2(array, weight, weisum)
result(verbose)
398#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
399 !DEC$ ATTRIBUTES DLLEXPORT :: getVerbose_D1_LK2
402 logical(LKG) ,
intent(in) CONTIGUOUS__ :: array(:)
403 integer(IK) ,
intent(in) CONTIGUOUS__ :: weight(:)
404 integer(IK) ,
intent(in) :: weisum
405 logical(LKG) :: verbose(weisum)
410 PURE module function getVerbose_D1_LK1(array, weight, weisum)
result(verbose)
411#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
412 !DEC$ ATTRIBUTES DLLEXPORT :: getVerbose_D1_LK1
415 logical(LKG) ,
intent(in) CONTIGUOUS__ :: array(:)
416 integer(IK) ,
intent(in) CONTIGUOUS__ :: weight(:)
417 integer(IK) ,
intent(in) :: weisum
418 logical(LKG) :: verbose(weisum)
425 PURE module function getVerbose_D1_CK5(array, weight, weisum)
result(verbose)
426#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
427 !DEC$ ATTRIBUTES DLLEXPORT :: getVerbose_D1_CK5
430 complex(CKG) ,
intent(in) CONTIGUOUS__ :: array(:)
431 integer(IK) ,
intent(in) CONTIGUOUS__ :: weight(:)
432 integer(IK) ,
intent(in) :: weisum
433 complex(CKG) :: verbose(weisum)
438 PURE module function getVerbose_D1_CK4(array, weight, weisum)
result(verbose)
439#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
440 !DEC$ ATTRIBUTES DLLEXPORT :: getVerbose_D1_CK4
443 complex(CKG) ,
intent(in) CONTIGUOUS__ :: array(:)
444 integer(IK) ,
intent(in) CONTIGUOUS__ :: weight(:)
445 integer(IK) ,
intent(in) :: weisum
446 complex(CKG) :: verbose(weisum)
451 PURE module function getVerbose_D1_CK3(array, weight, weisum)
result(verbose)
452#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
453 !DEC$ ATTRIBUTES DLLEXPORT :: getVerbose_D1_CK3
456 complex(CKG) ,
intent(in) CONTIGUOUS__ :: array(:)
457 integer(IK) ,
intent(in) CONTIGUOUS__ :: weight(:)
458 integer(IK) ,
intent(in) :: weisum
459 complex(CKG) :: verbose(weisum)
464 PURE module function getVerbose_D1_CK2(array, weight, weisum)
result(verbose)
465#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
466 !DEC$ ATTRIBUTES DLLEXPORT :: getVerbose_D1_CK2
469 complex(CKG) ,
intent(in) CONTIGUOUS__ :: array(:)
470 integer(IK) ,
intent(in) CONTIGUOUS__ :: weight(:)
471 integer(IK) ,
intent(in) :: weisum
472 complex(CKG) :: verbose(weisum)
477 PURE module function getVerbose_D1_CK1(array, weight, weisum)
result(verbose)
478#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
479 !DEC$ ATTRIBUTES DLLEXPORT :: getVerbose_D1_CK1
482 complex(CKG) ,
intent(in) CONTIGUOUS__ :: array(:)
483 integer(IK) ,
intent(in) CONTIGUOUS__ :: weight(:)
484 integer(IK) ,
intent(in) :: weisum
485 complex(CKG) :: verbose(weisum)
492 PURE module function getVerbose_D1_RK5(array, weight, weisum)
result(verbose)
493#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
494 !DEC$ ATTRIBUTES DLLEXPORT :: getVerbose_D1_RK5
497 real(RKG) ,
intent(in) CONTIGUOUS__ :: array(:)
498 integer(IK) ,
intent(in) CONTIGUOUS__ :: weight(:)
499 integer(IK) ,
intent(in) :: weisum
500 real(RKG) :: verbose(weisum)
505 PURE module function getVerbose_D1_RK4(array, weight, weisum)
result(verbose)
506#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
507 !DEC$ ATTRIBUTES DLLEXPORT :: getVerbose_D1_RK4
510 real(RKG) ,
intent(in) CONTIGUOUS__ :: array(:)
511 integer(IK) ,
intent(in) CONTIGUOUS__ :: weight(:)
512 integer(IK) ,
intent(in) :: weisum
513 real(RKG) :: verbose(weisum)
518 PURE module function getVerbose_D1_RK3(array, weight, weisum)
result(verbose)
519#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
520 !DEC$ ATTRIBUTES DLLEXPORT :: getVerbose_D1_RK3
523 real(RKG) ,
intent(in) CONTIGUOUS__ :: array(:)
524 integer(IK) ,
intent(in) CONTIGUOUS__ :: weight(:)
525 integer(IK) ,
intent(in) :: weisum
526 real(RKG) :: verbose(weisum)
531 PURE module function getVerbose_D1_RK2(array, weight, weisum)
result(verbose)
532#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
533 !DEC$ ATTRIBUTES DLLEXPORT :: getVerbose_D1_RK2
536 real(RKG) ,
intent(in) CONTIGUOUS__ :: array(:)
537 integer(IK) ,
intent(in) CONTIGUOUS__ :: weight(:)
538 integer(IK) ,
intent(in) :: weisum
539 real(RKG) :: verbose(weisum)
544 PURE module function getVerbose_D1_RK1(array, weight, weisum)
result(verbose)
545#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
546 !DEC$ ATTRIBUTES DLLEXPORT :: getVerbose_D1_RK1
549 real(RKG) ,
intent(in) CONTIGUOUS__ :: array(:)
550 integer(IK) ,
intent(in) CONTIGUOUS__ :: weight(:)
551 integer(IK) ,
intent(in) :: weisum
552 real(RKG) :: verbose(weisum)
565 PURE module function getVerbose_D2_SK5(array, weight, weisum, dim)
result(verbose)
566#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
567 !DEC$ ATTRIBUTES DLLEXPORT :: getVerbose_D2_SK5
570 character(
*,SKG) ,
intent(in) CONTIGUOUS__ :: array(:,:)
571 integer(IK) ,
intent(in) CONTIGUOUS__ :: weight(:)
572 integer(IK) ,
intent(in) :: weisum, dim
573 character(
len(array,IK),SKG) :: verbose(
merge(weisum,
size(array,
3 - dim, IK), dim
== 1_IK),
merge(weisum,
size(array,
3 - dim, IK), dim
== 2_IK))
578 PURE module function getVerbose_D2_SK4(array, weight, weisum, dim)
result(verbose)
579#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
580 !DEC$ ATTRIBUTES DLLEXPORT :: getVerbose_D2_SK4
583 character(
*,SKG) ,
intent(in) CONTIGUOUS__ :: array(:,:)
584 integer(IK) ,
intent(in) CONTIGUOUS__ :: weight(:)
585 integer(IK) ,
intent(in) :: weisum, dim
586 character(
len(array,IK),SKG) :: verbose(
merge(weisum,
size(array,
3 - dim, IK), dim
== 1_IK),
merge(weisum,
size(array,
3 - dim, IK), dim
== 2_IK))
591 PURE module function getVerbose_D2_SK3(array, weight, weisum, dim)
result(verbose)
592#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
593 !DEC$ ATTRIBUTES DLLEXPORT :: getVerbose_D2_SK3
596 character(
*,SKG) ,
intent(in) CONTIGUOUS__ :: array(:,:)
597 integer(IK) ,
intent(in) CONTIGUOUS__ :: weight(:)
598 integer(IK) ,
intent(in) :: weisum, dim
599 character(
len(array,IK),SKG) :: verbose(
merge(weisum,
size(array,
3 - dim, IK), dim
== 1_IK),
merge(weisum,
size(array,
3 - dim, IK), dim
== 2_IK))
604 PURE module function getVerbose_D2_SK2(array, weight, weisum, dim)
result(verbose)
605#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
606 !DEC$ ATTRIBUTES DLLEXPORT :: getVerbose_D2_SK2
609 character(
*,SKG) ,
intent(in) CONTIGUOUS__ :: array(:,:)
610 integer(IK) ,
intent(in) CONTIGUOUS__ :: weight(:)
611 integer(IK) ,
intent(in) :: weisum, dim
612 character(
len(array,IK),SKG) :: verbose(
merge(weisum,
size(array,
3 - dim, IK), dim
== 1_IK),
merge(weisum,
size(array,
3 - dim, IK), dim
== 2_IK))
617 PURE module function getVerbose_D2_SK1(array, weight, weisum, dim)
result(verbose)
618#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
619 !DEC$ ATTRIBUTES DLLEXPORT :: getVerbose_D2_SK1
622 character(
*,SKG) ,
intent(in) CONTIGUOUS__ :: array(:,:)
623 integer(IK) ,
intent(in) CONTIGUOUS__ :: weight(:)
624 integer(IK) ,
intent(in) :: weisum, dim
625 character(
len(array,IK),SKG) :: verbose(
merge(weisum,
size(array,
3 - dim, IK), dim
== 1_IK),
merge(weisum,
size(array,
3 - dim, IK), dim
== 2_IK))
632 PURE module function getVerbose_D2_IK5(array, weight, weisum, dim)
result(verbose)
633#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
634 !DEC$ ATTRIBUTES DLLEXPORT :: getVerbose_D2_IK5
637 integer(IKG) ,
intent(in) CONTIGUOUS__ :: array(:,:)
638 integer(IK) ,
intent(in) CONTIGUOUS__ :: weight(:)
639 integer(IK) ,
intent(in) :: weisum, dim
640 integer(IKG) :: verbose(
merge(weisum,
size(array,
3 - dim, IK), dim
== 1_IK),
merge(weisum,
size(array,
3 - dim, IK), dim
== 2_IK))
645 PURE module function getVerbose_D2_IK4(array, weight, weisum, dim)
result(verbose)
646#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
647 !DEC$ ATTRIBUTES DLLEXPORT :: getVerbose_D2_IK4
650 integer(IKG) ,
intent(in) CONTIGUOUS__ :: array(:,:)
651 integer(IK) ,
intent(in) CONTIGUOUS__ :: weight(:)
652 integer(IK) ,
intent(in) :: weisum, dim
653 integer(IKG) :: verbose(
merge(weisum,
size(array,
3 - dim, IK), dim
== 1_IK),
merge(weisum,
size(array,
3 - dim, IK), dim
== 2_IK))
658 PURE module function getVerbose_D2_IK3(array, weight, weisum, dim)
result(verbose)
659#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
660 !DEC$ ATTRIBUTES DLLEXPORT :: getVerbose_D2_IK3
663 integer(IKG) ,
intent(in) CONTIGUOUS__ :: array(:,:)
664 integer(IK) ,
intent(in) CONTIGUOUS__ :: weight(:)
665 integer(IK) ,
intent(in) :: weisum, dim
666 integer(IKG) :: verbose(
merge(weisum,
size(array,
3 - dim, IK), dim
== 1_IK),
merge(weisum,
size(array,
3 - dim, IK), dim
== 2_IK))
671 PURE module function getVerbose_D2_IK2(array, weight, weisum, dim)
result(verbose)
672#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
673 !DEC$ ATTRIBUTES DLLEXPORT :: getVerbose_D2_IK2
676 integer(IKG) ,
intent(in) CONTIGUOUS__ :: array(:,:)
677 integer(IK) ,
intent(in) CONTIGUOUS__ :: weight(:)
678 integer(IK) ,
intent(in) :: weisum, dim
679 integer(IKG) :: verbose(
merge(weisum,
size(array,
3 - dim, IK), dim
== 1_IK),
merge(weisum,
size(array,
3 - dim, IK), dim
== 2_IK))
684 PURE module function getVerbose_D2_IK1(array, weight, weisum, dim)
result(verbose)
685#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
686 !DEC$ ATTRIBUTES DLLEXPORT :: getVerbose_D2_IK1
689 integer(IKG) ,
intent(in) CONTIGUOUS__ :: array(:,:)
690 integer(IK) ,
intent(in) CONTIGUOUS__ :: weight(:)
691 integer(IK) ,
intent(in) :: weisum, dim
692 integer(IKG) :: verbose(
merge(weisum,
size(array,
3 - dim, IK), dim
== 1_IK),
merge(weisum,
size(array,
3 - dim, IK), dim
== 2_IK))
699 PURE module function getVerbose_D2_LK5(array, weight, weisum, dim)
result(verbose)
700#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
701 !DEC$ ATTRIBUTES DLLEXPORT :: getVerbose_D2_LK5
704 logical(LKG) ,
intent(in) CONTIGUOUS__ :: array(:,:)
705 integer(IK) ,
intent(in) CONTIGUOUS__ :: weight(:)
706 integer(IK) ,
intent(in) :: weisum, dim
707 logical(LKG) :: verbose(
merge(weisum,
size(array,
3 - dim, IK), dim
== 1_IK),
merge(weisum,
size(array,
3 - dim, IK), dim
== 2_IK))
712 PURE module function getVerbose_D2_LK4(array, weight, weisum, dim)
result(verbose)
713#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
714 !DEC$ ATTRIBUTES DLLEXPORT :: getVerbose_D2_LK4
717 logical(LKG) ,
intent(in) CONTIGUOUS__ :: array(:,:)
718 integer(IK) ,
intent(in) CONTIGUOUS__ :: weight(:)
719 integer(IK) ,
intent(in) :: weisum, dim
720 logical(LKG) :: verbose(
merge(weisum,
size(array,
3 - dim, IK), dim
== 1_IK),
merge(weisum,
size(array,
3 - dim, IK), dim
== 2_IK))
725 PURE module function getVerbose_D2_LK3(array, weight, weisum, dim)
result(verbose)
726#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
727 !DEC$ ATTRIBUTES DLLEXPORT :: getVerbose_D2_LK3
730 logical(LKG) ,
intent(in) CONTIGUOUS__ :: array(:,:)
731 integer(IK) ,
intent(in) CONTIGUOUS__ :: weight(:)
732 integer(IK) ,
intent(in) :: weisum, dim
733 logical(LKG) :: verbose(
merge(weisum,
size(array,
3 - dim, IK), dim
== 1_IK),
merge(weisum,
size(array,
3 - dim, IK), dim
== 2_IK))
738 PURE module function getVerbose_D2_LK2(array, weight, weisum, dim)
result(verbose)
739#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
740 !DEC$ ATTRIBUTES DLLEXPORT :: getVerbose_D2_LK2
743 logical(LKG) ,
intent(in) CONTIGUOUS__ :: array(:,:)
744 integer(IK) ,
intent(in) CONTIGUOUS__ :: weight(:)
745 integer(IK) ,
intent(in) :: weisum, dim
746 logical(LKG) :: verbose(
merge(weisum,
size(array,
3 - dim, IK), dim
== 1_IK),
merge(weisum,
size(array,
3 - dim, IK), dim
== 2_IK))
751 PURE module function getVerbose_D2_LK1(array, weight, weisum, dim)
result(verbose)
752#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
753 !DEC$ ATTRIBUTES DLLEXPORT :: getVerbose_D2_LK1
756 logical(LKG) ,
intent(in) CONTIGUOUS__ :: array(:,:)
757 integer(IK) ,
intent(in) CONTIGUOUS__ :: weight(:)
758 integer(IK) ,
intent(in) :: weisum, dim
759 logical(LKG) :: verbose(
merge(weisum,
size(array,
3 - dim, IK), dim
== 1_IK),
merge(weisum,
size(array,
3 - dim, IK), dim
== 2_IK))
766 PURE module function getVerbose_D2_CK5(array, weight, weisum, dim)
result(verbose)
767#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
768 !DEC$ ATTRIBUTES DLLEXPORT :: getVerbose_D2_CK5
771 complex(CKG) ,
intent(in) CONTIGUOUS__ :: array(:,:)
772 integer(IK) ,
intent(in) CONTIGUOUS__ :: weight(:)
773 integer(IK) ,
intent(in) :: weisum, dim
774 complex(CKG) :: verbose(
merge(weisum,
size(array,
3 - dim, IK), dim
== 1_IK),
merge(weisum,
size(array,
3 - dim, IK), dim
== 2_IK))
779 PURE module function getVerbose_D2_CK4(array, weight, weisum, dim)
result(verbose)
780#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
781 !DEC$ ATTRIBUTES DLLEXPORT :: getVerbose_D2_CK4
784 complex(CKG) ,
intent(in) CONTIGUOUS__ :: array(:,:)
785 integer(IK) ,
intent(in) CONTIGUOUS__ :: weight(:)
786 integer(IK) ,
intent(in) :: weisum, dim
787 complex(CKG) :: verbose(
merge(weisum,
size(array,
3 - dim, IK), dim
== 1_IK),
merge(weisum,
size(array,
3 - dim, IK), dim
== 2_IK))
792 PURE module function getVerbose_D2_CK3(array, weight, weisum, dim)
result(verbose)
793#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
794 !DEC$ ATTRIBUTES DLLEXPORT :: getVerbose_D2_CK3
797 complex(CKG) ,
intent(in) CONTIGUOUS__ :: array(:,:)
798 integer(IK) ,
intent(in) CONTIGUOUS__ :: weight(:)
799 integer(IK) ,
intent(in) :: weisum, dim
800 complex(CKG) :: verbose(
merge(weisum,
size(array,
3 - dim, IK), dim
== 1_IK),
merge(weisum,
size(array,
3 - dim, IK), dim
== 2_IK))
805 PURE module function getVerbose_D2_CK2(array, weight, weisum, dim)
result(verbose)
806#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
807 !DEC$ ATTRIBUTES DLLEXPORT :: getVerbose_D2_CK2
810 complex(CKG) ,
intent(in) CONTIGUOUS__ :: array(:,:)
811 integer(IK) ,
intent(in) CONTIGUOUS__ :: weight(:)
812 integer(IK) ,
intent(in) :: weisum, dim
813 complex(CKG) :: verbose(
merge(weisum,
size(array,
3 - dim, IK), dim
== 1_IK),
merge(weisum,
size(array,
3 - dim, IK), dim
== 2_IK))
818 PURE module function getVerbose_D2_CK1(array, weight, weisum, dim)
result(verbose)
819#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
820 !DEC$ ATTRIBUTES DLLEXPORT :: getVerbose_D2_CK1
823 complex(CKG) ,
intent(in) CONTIGUOUS__ :: array(:,:)
824 integer(IK) ,
intent(in) CONTIGUOUS__ :: weight(:)
825 integer(IK) ,
intent(in) :: weisum, dim
826 complex(CKG) :: verbose(
merge(weisum,
size(array,
3 - dim, IK), dim
== 1_IK),
merge(weisum,
size(array,
3 - dim, IK), dim
== 2_IK))
833 PURE module function getVerbose_D2_RK5(array, weight, weisum, dim)
result(verbose)
834#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
835 !DEC$ ATTRIBUTES DLLEXPORT :: getVerbose_D2_RK5
838 real(RKG) ,
intent(in) CONTIGUOUS__ :: array(:,:)
839 integer(IK) ,
intent(in) CONTIGUOUS__ :: weight(:)
840 integer(IK) ,
intent(in) :: weisum, dim
841 real(RKG) :: verbose(
merge(weisum,
size(array,
3 - dim, IK), dim
== 1_IK),
merge(weisum,
size(array,
3 - dim, IK), dim
== 2_IK))
846 PURE module function getVerbose_D2_RK4(array, weight, weisum, dim)
result(verbose)
847#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
848 !DEC$ ATTRIBUTES DLLEXPORT :: getVerbose_D2_RK4
851 real(RKG) ,
intent(in) CONTIGUOUS__ :: array(:,:)
852 integer(IK) ,
intent(in) CONTIGUOUS__ :: weight(:)
853 integer(IK) ,
intent(in) :: weisum, dim
854 real(RKG) :: verbose(
merge(weisum,
size(array,
3 - dim, IK), dim
== 1_IK),
merge(weisum,
size(array,
3 - dim, IK), dim
== 2_IK))
859 PURE module function getVerbose_D2_RK3(array, weight, weisum, dim)
result(verbose)
860#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
861 !DEC$ ATTRIBUTES DLLEXPORT :: getVerbose_D2_RK3
864 real(RKG) ,
intent(in) CONTIGUOUS__ :: array(:,:)
865 integer(IK) ,
intent(in) CONTIGUOUS__ :: weight(:)
866 integer(IK) ,
intent(in) :: weisum, dim
867 real(RKG) :: verbose(
merge(weisum,
size(array,
3 - dim, IK), dim
== 1_IK),
merge(weisum,
size(array,
3 - dim, IK), dim
== 2_IK))
872 PURE module function getVerbose_D2_RK2(array, weight, weisum, dim)
result(verbose)
873#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
874 !DEC$ ATTRIBUTES DLLEXPORT :: getVerbose_D2_RK2
877 real(RKG) ,
intent(in) CONTIGUOUS__ :: array(:,:)
878 integer(IK) ,
intent(in) CONTIGUOUS__ :: weight(:)
879 integer(IK) ,
intent(in) :: weisum, dim
880 real(RKG) :: verbose(
merge(weisum,
size(array,
3 - dim, IK), dim
== 1_IK),
merge(weisum,
size(array,
3 - dim, IK), dim
== 2_IK))
885 PURE module function getVerbose_D2_RK1(array, weight, weisum, dim)
result(verbose)
886#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
887 !DEC$ ATTRIBUTES DLLEXPORT :: getVerbose_D2_RK1
890 real(RKG) ,
intent(in) CONTIGUOUS__ :: array(:,:)
891 integer(IK) ,
intent(in) CONTIGUOUS__ :: weight(:)
892 integer(IK) ,
intent(in) :: weisum, dim
893 real(RKG) :: verbose(
merge(weisum,
size(array,
3 - dim, IK), dim
== 1_IK),
merge(weisum,
size(array,
3 - dim, IK), dim
== 2_IK))
Generate an equally-weighted (verbose or flattened) array of the input weighted array of rank 1 or 2.
This module contains procedures and generic interfaces for flattening (duplicating the elements of) a...
character(*, SK), parameter MODULE_NAME
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...