20#if __INTEL_COMPILER && 0
23#define LEN_STR len(array,IK)
163 PURE module function getRefined_WTI_D0_SK5(array, weight, skip)
result(arrayRefined)
164#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
165 !DEC$ ATTRIBUTES DLLEXPORT :: getRefined_WTI_D0_SK5
168 character(
*,SKG) ,
intent(in) :: array
169 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
170 integer(IK) ,
intent(in) :: skip
171 character(:,SKG) ,
allocatable :: arrayRefined
176 PURE module function getRefined_WTI_D0_SK4(array, weight, skip)
result(arrayRefined)
177#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
178 !DEC$ ATTRIBUTES DLLEXPORT :: getRefined_WTI_D0_SK4
181 character(
*,SKG) ,
intent(in) :: array
182 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
183 integer(IK) ,
intent(in) :: skip
184 character(:,SKG) ,
allocatable :: arrayRefined
189 PURE module function getRefined_WTI_D0_SK3(array, weight, skip)
result(arrayRefined)
190#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
191 !DEC$ ATTRIBUTES DLLEXPORT :: getRefined_WTI_D0_SK3
194 character(
*,SKG) ,
intent(in) :: array
195 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
196 integer(IK) ,
intent(in) :: skip
197 character(:,SKG) ,
allocatable :: arrayRefined
202 PURE module function getRefined_WTI_D0_SK2(array, weight, skip)
result(arrayRefined)
203#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
204 !DEC$ ATTRIBUTES DLLEXPORT :: getRefined_WTI_D0_SK2
207 character(
*,SKG) ,
intent(in) :: array
208 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
209 integer(IK) ,
intent(in) :: skip
210 character(:,SKG) ,
allocatable :: arrayRefined
215 PURE module function getRefined_WTI_D0_SK1(array, weight, skip)
result(arrayRefined)
216#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
217 !DEC$ ATTRIBUTES DLLEXPORT :: getRefined_WTI_D0_SK1
220 character(
*,SKG) ,
intent(in) :: array
221 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
222 integer(IK) ,
intent(in) :: skip
223 character(:,SKG) ,
allocatable :: arrayRefined
236 PURE module function getRefined_WTI_D1_SK5(array, weight, skip)
result(arrayRefined)
237#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
238 !DEC$ ATTRIBUTES DLLEXPORT :: getRefined_WTI_D1_SK5
241 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
242 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
243 integer(IK) ,
intent(in) :: skip
244 character(LEN_STR,SKG) ,
allocatable :: arrayRefined(:)
249 PURE module function getRefined_WTI_D1_SK4(array, weight, skip)
result(arrayRefined)
250#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
251 !DEC$ ATTRIBUTES DLLEXPORT :: getRefined_WTI_D1_SK4
254 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
255 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
256 integer(IK) ,
intent(in) :: skip
257 character(LEN_STR,SKG) ,
allocatable :: arrayRefined(:)
262 PURE module function getRefined_WTI_D1_SK3(array, weight, skip)
result(arrayRefined)
263#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
264 !DEC$ ATTRIBUTES DLLEXPORT :: getRefined_WTI_D1_SK3
267 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
268 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
269 integer(IK) ,
intent(in) :: skip
270 character(LEN_STR,SKG) ,
allocatable :: arrayRefined(:)
275 PURE module function getRefined_WTI_D1_SK2(array, weight, skip)
result(arrayRefined)
276#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
277 !DEC$ ATTRIBUTES DLLEXPORT :: getRefined_WTI_D1_SK2
280 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
281 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
282 integer(IK) ,
intent(in) :: skip
283 character(LEN_STR,SKG) ,
allocatable :: arrayRefined(:)
288 PURE module function getRefined_WTI_D1_SK1(array, weight, skip)
result(arrayRefined)
289#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
290 !DEC$ ATTRIBUTES DLLEXPORT :: getRefined_WTI_D1_SK1
293 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
294 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
295 integer(IK) ,
intent(in) :: skip
296 character(LEN_STR,SKG) ,
allocatable :: arrayRefined(:)
303 PURE module function getRefined_WTI_D1_IK5(array, weight, skip)
result(arrayRefined)
304#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
305 !DEC$ ATTRIBUTES DLLEXPORT :: getRefined_WTI_D1_IK5
308 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
309 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
310 integer(IK) ,
intent(in) :: skip
311 integer(IKG) ,
allocatable :: arrayRefined(:)
316 PURE module function getRefined_WTI_D1_IK4(array, weight, skip)
result(arrayRefined)
317#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
318 !DEC$ ATTRIBUTES DLLEXPORT :: getRefined_WTI_D1_IK4
321 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
322 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
323 integer(IK) ,
intent(in) :: skip
324 integer(IKG) ,
allocatable :: arrayRefined(:)
329 PURE module function getRefined_WTI_D1_IK3(array, weight, skip)
result(arrayRefined)
330#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
331 !DEC$ ATTRIBUTES DLLEXPORT :: getRefined_WTI_D1_IK3
334 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
335 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
336 integer(IK) ,
intent(in) :: skip
337 integer(IKG) ,
allocatable :: arrayRefined(:)
342 PURE module function getRefined_WTI_D1_IK2(array, weight, skip)
result(arrayRefined)
343#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
344 !DEC$ ATTRIBUTES DLLEXPORT :: getRefined_WTI_D1_IK2
347 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
348 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
349 integer(IK) ,
intent(in) :: skip
350 integer(IKG) ,
allocatable :: arrayRefined(:)
355 PURE module function getRefined_WTI_D1_IK1(array, weight, skip)
result(arrayRefined)
356#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
357 !DEC$ ATTRIBUTES DLLEXPORT :: getRefined_WTI_D1_IK1
360 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
361 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
362 integer(IK) ,
intent(in) :: skip
363 integer(IKG) ,
allocatable :: arrayRefined(:)
370 PURE module function getRefined_WTI_D1_LK5(array, weight, skip)
result(arrayRefined)
371#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
372 !DEC$ ATTRIBUTES DLLEXPORT :: getRefined_WTI_D1_LK5
375 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
376 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
377 integer(IK) ,
intent(in) :: skip
378 logical(LKG) ,
allocatable :: arrayRefined(:)
383 PURE module function getRefined_WTI_D1_LK4(array, weight, skip)
result(arrayRefined)
384#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
385 !DEC$ ATTRIBUTES DLLEXPORT :: getRefined_WTI_D1_LK4
388 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
389 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
390 integer(IK) ,
intent(in) :: skip
391 logical(LKG) ,
allocatable :: arrayRefined(:)
396 PURE module function getRefined_WTI_D1_LK3(array, weight, skip)
result(arrayRefined)
397#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
398 !DEC$ ATTRIBUTES DLLEXPORT :: getRefined_WTI_D1_LK3
401 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
402 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
403 integer(IK) ,
intent(in) :: skip
404 logical(LKG) ,
allocatable :: arrayRefined(:)
409 PURE module function getRefined_WTI_D1_LK2(array, weight, skip)
result(arrayRefined)
410#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
411 !DEC$ ATTRIBUTES DLLEXPORT :: getRefined_WTI_D1_LK2
414 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
415 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
416 integer(IK) ,
intent(in) :: skip
417 logical(LKG) ,
allocatable :: arrayRefined(:)
422 PURE module function getRefined_WTI_D1_LK1(array, weight, skip)
result(arrayRefined)
423#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
424 !DEC$ ATTRIBUTES DLLEXPORT :: getRefined_WTI_D1_LK1
427 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
428 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
429 integer(IK) ,
intent(in) :: skip
430 logical(LKG) ,
allocatable :: arrayRefined(:)
437 PURE module function getRefined_WTI_D1_CK5(array, weight, skip)
result(arrayRefined)
438#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
439 !DEC$ ATTRIBUTES DLLEXPORT :: getRefined_WTI_D1_CK5
442 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
443 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
444 integer(IK) ,
intent(in) :: skip
445 complex(CKG) ,
allocatable :: arrayRefined(:)
450 PURE module function getRefined_WTI_D1_CK4(array, weight, skip)
result(arrayRefined)
451#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
452 !DEC$ ATTRIBUTES DLLEXPORT :: getRefined_WTI_D1_CK4
455 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
456 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
457 integer(IK) ,
intent(in) :: skip
458 complex(CKG) ,
allocatable :: arrayRefined(:)
463 PURE module function getRefined_WTI_D1_CK3(array, weight, skip)
result(arrayRefined)
464#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
465 !DEC$ ATTRIBUTES DLLEXPORT :: getRefined_WTI_D1_CK3
468 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
469 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
470 integer(IK) ,
intent(in) :: skip
471 complex(CKG) ,
allocatable :: arrayRefined(:)
476 PURE module function getRefined_WTI_D1_CK2(array, weight, skip)
result(arrayRefined)
477#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
478 !DEC$ ATTRIBUTES DLLEXPORT :: getRefined_WTI_D1_CK2
481 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
482 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
483 integer(IK) ,
intent(in) :: skip
484 complex(CKG) ,
allocatable :: arrayRefined(:)
489 PURE module function getRefined_WTI_D1_CK1(array, weight, skip)
result(arrayRefined)
490#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
491 !DEC$ ATTRIBUTES DLLEXPORT :: getRefined_WTI_D1_CK1
494 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
495 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
496 integer(IK) ,
intent(in) :: skip
497 complex(CKG) ,
allocatable :: arrayRefined(:)
504 PURE module function getRefined_WTI_D1_RK5(array, weight, skip)
result(arrayRefined)
505#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
506 !DEC$ ATTRIBUTES DLLEXPORT :: getRefined_WTI_D1_RK5
509 real(RKG) ,
intent(in) ,
contiguous :: array(:)
510 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
511 integer(IK) ,
intent(in) :: skip
512 real(RKG) ,
allocatable :: arrayRefined(:)
517 PURE module function getRefined_WTI_D1_RK4(array, weight, skip)
result(arrayRefined)
518#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
519 !DEC$ ATTRIBUTES DLLEXPORT :: getRefined_WTI_D1_RK4
522 real(RKG) ,
intent(in) ,
contiguous :: array(:)
523 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
524 integer(IK) ,
intent(in) :: skip
525 real(RKG) ,
allocatable :: arrayRefined(:)
530 PURE module function getRefined_WTI_D1_RK3(array, weight, skip)
result(arrayRefined)
531#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
532 !DEC$ ATTRIBUTES DLLEXPORT :: getRefined_WTI_D1_RK3
535 real(RKG) ,
intent(in) ,
contiguous :: array(:)
536 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
537 integer(IK) ,
intent(in) :: skip
538 real(RKG) ,
allocatable :: arrayRefined(:)
543 PURE module function getRefined_WTI_D1_RK2(array, weight, skip)
result(arrayRefined)
544#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
545 !DEC$ ATTRIBUTES DLLEXPORT :: getRefined_WTI_D1_RK2
548 real(RKG) ,
intent(in) ,
contiguous :: array(:)
549 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
550 integer(IK) ,
intent(in) :: skip
551 real(RKG) ,
allocatable :: arrayRefined(:)
556 PURE module function getRefined_WTI_D1_RK1(array, weight, skip)
result(arrayRefined)
557#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
558 !DEC$ ATTRIBUTES DLLEXPORT :: getRefined_WTI_D1_RK1
561 real(RKG) ,
intent(in) ,
contiguous :: array(:)
562 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
563 integer(IK) ,
intent(in) :: skip
564 real(RKG) ,
allocatable :: arrayRefined(:)
577 PURE module function getRefined_WTI_D2_SK5(array, dim, weight, skip)
result(arrayRefined)
578#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
579 !DEC$ ATTRIBUTES DLLEXPORT :: getRefined_WTI_D2_SK5
582 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:,:)
583 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
584 integer(IK) ,
intent(in) :: skip
585 integer(IK) ,
intent(in) :: dim
586 character(LEN_STR,SKG) ,
allocatable :: arrayRefined(:,:)
591 PURE module function getRefined_WTI_D2_SK4(array, dim, weight, skip)
result(arrayRefined)
592#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
593 !DEC$ ATTRIBUTES DLLEXPORT :: getRefined_WTI_D2_SK4
596 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:,:)
597 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
598 integer(IK) ,
intent(in) :: skip
599 integer(IK) ,
intent(in) :: dim
600 character(LEN_STR,SKG) ,
allocatable :: arrayRefined(:,:)
605 PURE module function getRefined_WTI_D2_SK3(array, dim, weight, skip)
result(arrayRefined)
606#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
607 !DEC$ ATTRIBUTES DLLEXPORT :: getRefined_WTI_D2_SK3
610 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:,:)
611 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
612 integer(IK) ,
intent(in) :: skip
613 integer(IK) ,
intent(in) :: dim
614 character(LEN_STR,SKG) ,
allocatable :: arrayRefined(:,:)
619 PURE module function getRefined_WTI_D2_SK2(array, dim, weight, skip)
result(arrayRefined)
620#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
621 !DEC$ ATTRIBUTES DLLEXPORT :: getRefined_WTI_D2_SK2
624 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:,:)
625 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
626 integer(IK) ,
intent(in) :: skip
627 integer(IK) ,
intent(in) :: dim
628 character(LEN_STR,SKG) ,
allocatable :: arrayRefined(:,:)
633 PURE module function getRefined_WTI_D2_SK1(array, dim, weight, skip)
result(arrayRefined)
634#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
635 !DEC$ ATTRIBUTES DLLEXPORT :: getRefined_WTI_D2_SK1
638 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:,:)
639 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
640 integer(IK) ,
intent(in) :: skip
641 integer(IK) ,
intent(in) :: dim
642 character(LEN_STR,SKG) ,
allocatable :: arrayRefined(:,:)
649 PURE module function getRefined_WTI_D2_IK5(array, dim, weight, skip)
result(arrayRefined)
650#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
651 !DEC$ ATTRIBUTES DLLEXPORT :: getRefined_WTI_D2_IK5
654 integer(IKG) ,
intent(in) ,
contiguous :: array(:,:)
655 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
656 integer(IK) ,
intent(in) :: skip
657 integer(IK) ,
intent(in) :: dim
658 integer(IKG) ,
allocatable :: arrayRefined(:,:)
663 PURE module function getRefined_WTI_D2_IK4(array, dim, weight, skip)
result(arrayRefined)
664#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
665 !DEC$ ATTRIBUTES DLLEXPORT :: getRefined_WTI_D2_IK4
668 integer(IKG) ,
intent(in) ,
contiguous :: array(:,:)
669 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
670 integer(IK) ,
intent(in) :: skip
671 integer(IK) ,
intent(in) :: dim
672 integer(IKG) ,
allocatable :: arrayRefined(:,:)
677 PURE module function getRefined_WTI_D2_IK3(array, dim, weight, skip)
result(arrayRefined)
678#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
679 !DEC$ ATTRIBUTES DLLEXPORT :: getRefined_WTI_D2_IK3
682 integer(IKG) ,
intent(in) ,
contiguous :: array(:,:)
683 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
684 integer(IK) ,
intent(in) :: skip
685 integer(IK) ,
intent(in) :: dim
686 integer(IKG) ,
allocatable :: arrayRefined(:,:)
691 PURE module function getRefined_WTI_D2_IK2(array, dim, weight, skip)
result(arrayRefined)
692#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
693 !DEC$ ATTRIBUTES DLLEXPORT :: getRefined_WTI_D2_IK2
696 integer(IKG) ,
intent(in) ,
contiguous :: array(:,:)
697 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
698 integer(IK) ,
intent(in) :: skip
699 integer(IK) ,
intent(in) :: dim
700 integer(IKG) ,
allocatable :: arrayRefined(:,:)
705 PURE module function getRefined_WTI_D2_IK1(array, dim, weight, skip)
result(arrayRefined)
706#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
707 !DEC$ ATTRIBUTES DLLEXPORT :: getRefined_WTI_D2_IK1
710 integer(IKG) ,
intent(in) ,
contiguous :: array(:,:)
711 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
712 integer(IK) ,
intent(in) :: skip
713 integer(IK) ,
intent(in) :: dim
714 integer(IKG) ,
allocatable :: arrayRefined(:,:)
721 PURE module function getRefined_WTI_D2_LK5(array, dim, weight, skip)
result(arrayRefined)
722#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
723 !DEC$ ATTRIBUTES DLLEXPORT :: getRefined_WTI_D2_LK5
726 logical(LKG) ,
intent(in) ,
contiguous :: array(:,:)
727 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
728 integer(IK) ,
intent(in) :: skip
729 integer(IK) ,
intent(in) :: dim
730 logical(LKG) ,
allocatable :: arrayRefined(:,:)
735 PURE module function getRefined_WTI_D2_LK4(array, dim, weight, skip)
result(arrayRefined)
736#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
737 !DEC$ ATTRIBUTES DLLEXPORT :: getRefined_WTI_D2_LK4
740 logical(LKG) ,
intent(in) ,
contiguous :: array(:,:)
741 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
742 integer(IK) ,
intent(in) :: skip
743 integer(IK) ,
intent(in) :: dim
744 logical(LKG) ,
allocatable :: arrayRefined(:,:)
749 PURE module function getRefined_WTI_D2_LK3(array, dim, weight, skip)
result(arrayRefined)
750#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
751 !DEC$ ATTRIBUTES DLLEXPORT :: getRefined_WTI_D2_LK3
754 logical(LKG) ,
intent(in) ,
contiguous :: array(:,:)
755 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
756 integer(IK) ,
intent(in) :: skip
757 integer(IK) ,
intent(in) :: dim
758 logical(LKG) ,
allocatable :: arrayRefined(:,:)
763 PURE module function getRefined_WTI_D2_LK2(array, dim, weight, skip)
result(arrayRefined)
764#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
765 !DEC$ ATTRIBUTES DLLEXPORT :: getRefined_WTI_D2_LK2
768 logical(LKG) ,
intent(in) ,
contiguous :: array(:,:)
769 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
770 integer(IK) ,
intent(in) :: skip
771 integer(IK) ,
intent(in) :: dim
772 logical(LKG) ,
allocatable :: arrayRefined(:,:)
777 PURE module function getRefined_WTI_D2_LK1(array, dim, weight, skip)
result(arrayRefined)
778#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
779 !DEC$ ATTRIBUTES DLLEXPORT :: getRefined_WTI_D2_LK1
782 logical(LKG) ,
intent(in) ,
contiguous :: array(:,:)
783 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
784 integer(IK) ,
intent(in) :: skip
785 integer(IK) ,
intent(in) :: dim
786 logical(LKG) ,
allocatable :: arrayRefined(:,:)
793 PURE module function getRefined_WTI_D2_CK5(array, dim, weight, skip)
result(arrayRefined)
794#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
795 !DEC$ ATTRIBUTES DLLEXPORT :: getRefined_WTI_D2_CK5
798 complex(CKG) ,
intent(in) ,
contiguous :: array(:,:)
799 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
800 integer(IK) ,
intent(in) :: skip
801 integer(IK) ,
intent(in) :: dim
802 complex(CKG) ,
allocatable :: arrayRefined(:,:)
807 PURE module function getRefined_WTI_D2_CK4(array, dim, weight, skip)
result(arrayRefined)
808#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
809 !DEC$ ATTRIBUTES DLLEXPORT :: getRefined_WTI_D2_CK4
812 complex(CKG) ,
intent(in) ,
contiguous :: array(:,:)
813 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
814 integer(IK) ,
intent(in) :: skip
815 integer(IK) ,
intent(in) :: dim
816 complex(CKG) ,
allocatable :: arrayRefined(:,:)
821 PURE module function getRefined_WTI_D2_CK3(array, dim, weight, skip)
result(arrayRefined)
822#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
823 !DEC$ ATTRIBUTES DLLEXPORT :: getRefined_WTI_D2_CK3
826 complex(CKG) ,
intent(in) ,
contiguous :: array(:,:)
827 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
828 integer(IK) ,
intent(in) :: skip
829 integer(IK) ,
intent(in) :: dim
830 complex(CKG) ,
allocatable :: arrayRefined(:,:)
835 PURE module function getRefined_WTI_D2_CK2(array, dim, weight, skip)
result(arrayRefined)
836#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
837 !DEC$ ATTRIBUTES DLLEXPORT :: getRefined_WTI_D2_CK2
840 complex(CKG) ,
intent(in) ,
contiguous :: array(:,:)
841 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
842 integer(IK) ,
intent(in) :: skip
843 integer(IK) ,
intent(in) :: dim
844 complex(CKG) ,
allocatable :: arrayRefined(:,:)
849 PURE module function getRefined_WTI_D2_CK1(array, dim, weight, skip)
result(arrayRefined)
850#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
851 !DEC$ ATTRIBUTES DLLEXPORT :: getRefined_WTI_D2_CK1
854 complex(CKG) ,
intent(in) ,
contiguous :: array(:,:)
855 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
856 integer(IK) ,
intent(in) :: skip
857 integer(IK) ,
intent(in) :: dim
858 complex(CKG) ,
allocatable :: arrayRefined(:,:)
865 PURE module function getRefined_WTI_D2_RK5(array, dim, weight, skip)
result(arrayRefined)
866#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
867 !DEC$ ATTRIBUTES DLLEXPORT :: getRefined_WTI_D2_RK5
870 real(RKG) ,
intent(in) ,
contiguous :: array(:,:)
871 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
872 integer(IK) ,
intent(in) :: skip
873 integer(IK) ,
intent(in) :: dim
874 real(RKG) ,
allocatable :: arrayRefined(:,:)
879 PURE module function getRefined_WTI_D2_RK4(array, dim, weight, skip)
result(arrayRefined)
880#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
881 !DEC$ ATTRIBUTES DLLEXPORT :: getRefined_WTI_D2_RK4
884 real(RKG) ,
intent(in) ,
contiguous :: array(:,:)
885 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
886 integer(IK) ,
intent(in) :: skip
887 integer(IK) ,
intent(in) :: dim
888 real(RKG) ,
allocatable :: arrayRefined(:,:)
893 PURE module function getRefined_WTI_D2_RK3(array, dim, weight, skip)
result(arrayRefined)
894#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
895 !DEC$ ATTRIBUTES DLLEXPORT :: getRefined_WTI_D2_RK3
898 real(RKG) ,
intent(in) ,
contiguous :: array(:,:)
899 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
900 integer(IK) ,
intent(in) :: skip
901 integer(IK) ,
intent(in) :: dim
902 real(RKG) ,
allocatable :: arrayRefined(:,:)
907 PURE module function getRefined_WTI_D2_RK2(array, dim, weight, skip)
result(arrayRefined)
908#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
909 !DEC$ ATTRIBUTES DLLEXPORT :: getRefined_WTI_D2_RK2
912 real(RKG) ,
intent(in) ,
contiguous :: array(:,:)
913 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
914 integer(IK) ,
intent(in) :: skip
915 integer(IK) ,
intent(in) :: dim
916 real(RKG) ,
allocatable :: arrayRefined(:,:)
921 PURE module function getRefined_WTI_D2_RK1(array, dim, weight, skip)
result(arrayRefined)
922#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
923 !DEC$ ATTRIBUTES DLLEXPORT :: getRefined_WTI_D2_RK1
926 real(RKG) ,
intent(in) ,
contiguous :: array(:,:)
927 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
928 integer(IK) ,
intent(in) :: skip
929 integer(IK) ,
intent(in) :: dim
930 real(RKG) ,
allocatable :: arrayRefined(:,:)
1027 PURE module subroutine setRefined_WTI_D0_SK5(array, weight, skip, rsize)
1028#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1029 !DEC$ ATTRIBUTES DLLEXPORT :: setRefined_WTI_D0_SK5
1032 character(
*,SKG) ,
intent(inout) :: array
1033 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
1034 integer(IK) ,
intent(in) :: skip
1035 integer(IK) ,
intent(out) :: rsize
1040 PURE module subroutine setRefined_WTI_D0_SK4(array, weight, skip, rsize)
1041#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1042 !DEC$ ATTRIBUTES DLLEXPORT :: setRefined_WTI_D0_SK4
1045 character(
*,SKG) ,
intent(inout) :: array
1046 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
1047 integer(IK) ,
intent(in) :: skip
1048 integer(IK) ,
intent(out) :: rsize
1053 PURE module subroutine setRefined_WTI_D0_SK3(array, weight, skip, rsize)
1054#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1055 !DEC$ ATTRIBUTES DLLEXPORT :: setRefined_WTI_D0_SK3
1058 character(
*,SKG) ,
intent(inout) :: array
1059 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
1060 integer(IK) ,
intent(in) :: skip
1061 integer(IK) ,
intent(out) :: rsize
1066 PURE module subroutine setRefined_WTI_D0_SK2(array, weight, skip, rsize)
1067#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1068 !DEC$ ATTRIBUTES DLLEXPORT :: setRefined_WTI_D0_SK2
1071 character(
*,SKG) ,
intent(inout) :: array
1072 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
1073 integer(IK) ,
intent(in) :: skip
1074 integer(IK) ,
intent(out) :: rsize
1079 PURE module subroutine setRefined_WTI_D0_SK1(array, weight, skip, rsize)
1080#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1081 !DEC$ ATTRIBUTES DLLEXPORT :: setRefined_WTI_D0_SK1
1084 character(
*,SKG) ,
intent(inout) :: array
1085 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
1086 integer(IK) ,
intent(in) :: skip
1087 integer(IK) ,
intent(out) :: rsize
1100 PURE module subroutine setRefined_WTI_D1_SK5(array, weight, skip, rsize)
1101#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1102 !DEC$ ATTRIBUTES DLLEXPORT :: setRefined_WTI_D1_SK5
1105 character(
*,SKG) ,
intent(inout) ,
contiguous :: array(:)
1106 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
1107 integer(IK) ,
intent(in) :: skip
1108 integer(IK) ,
intent(out) :: rsize
1113 PURE module subroutine setRefined_WTI_D1_SK4(array, weight, skip, rsize)
1114#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1115 !DEC$ ATTRIBUTES DLLEXPORT :: setRefined_WTI_D1_SK4
1118 character(
*,SKG) ,
intent(inout) ,
contiguous :: array(:)
1119 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
1120 integer(IK) ,
intent(in) :: skip
1121 integer(IK) ,
intent(out) :: rsize
1126 PURE module subroutine setRefined_WTI_D1_SK3(array, weight, skip, rsize)
1127#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1128 !DEC$ ATTRIBUTES DLLEXPORT :: setRefined_WTI_D1_SK3
1131 character(
*,SKG) ,
intent(inout) ,
contiguous :: array(:)
1132 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
1133 integer(IK) ,
intent(in) :: skip
1134 integer(IK) ,
intent(out) :: rsize
1139 PURE module subroutine setRefined_WTI_D1_SK2(array, weight, skip, rsize)
1140#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1141 !DEC$ ATTRIBUTES DLLEXPORT :: setRefined_WTI_D1_SK2
1144 character(
*,SKG) ,
intent(inout) ,
contiguous :: array(:)
1145 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
1146 integer(IK) ,
intent(in) :: skip
1147 integer(IK) ,
intent(out) :: rsize
1152 PURE module subroutine setRefined_WTI_D1_SK1(array, weight, skip, rsize)
1153#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1154 !DEC$ ATTRIBUTES DLLEXPORT :: setRefined_WTI_D1_SK1
1157 character(
*,SKG) ,
intent(inout) ,
contiguous :: array(:)
1158 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
1159 integer(IK) ,
intent(in) :: skip
1160 integer(IK) ,
intent(out) :: rsize
1167 PURE module subroutine setRefined_WTI_D1_IK5(array, weight, skip, rsize)
1168#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1169 !DEC$ ATTRIBUTES DLLEXPORT :: setRefined_WTI_D1_IK5
1172 integer(IKG) ,
intent(inout) ,
contiguous :: array(:)
1173 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
1174 integer(IK) ,
intent(in) :: skip
1175 integer(IK) ,
intent(out) :: rsize
1180 PURE module subroutine setRefined_WTI_D1_IK4(array, weight, skip, rsize)
1181#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1182 !DEC$ ATTRIBUTES DLLEXPORT :: setRefined_WTI_D1_IK4
1185 integer(IKG) ,
intent(inout) ,
contiguous :: array(:)
1186 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
1187 integer(IK) ,
intent(in) :: skip
1188 integer(IK) ,
intent(out) :: rsize
1193 PURE module subroutine setRefined_WTI_D1_IK3(array, weight, skip, rsize)
1194#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1195 !DEC$ ATTRIBUTES DLLEXPORT :: setRefined_WTI_D1_IK3
1198 integer(IKG) ,
intent(inout) ,
contiguous :: array(:)
1199 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
1200 integer(IK) ,
intent(in) :: skip
1201 integer(IK) ,
intent(out) :: rsize
1206 PURE module subroutine setRefined_WTI_D1_IK2(array, weight, skip, rsize)
1207#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1208 !DEC$ ATTRIBUTES DLLEXPORT :: setRefined_WTI_D1_IK2
1211 integer(IKG) ,
intent(inout) ,
contiguous :: array(:)
1212 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
1213 integer(IK) ,
intent(in) :: skip
1214 integer(IK) ,
intent(out) :: rsize
1219 PURE module subroutine setRefined_WTI_D1_IK1(array, weight, skip, rsize)
1220#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1221 !DEC$ ATTRIBUTES DLLEXPORT :: setRefined_WTI_D1_IK1
1224 integer(IKG) ,
intent(inout) ,
contiguous :: array(:)
1225 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
1226 integer(IK) ,
intent(in) :: skip
1227 integer(IK) ,
intent(out) :: rsize
1234 PURE module subroutine setRefined_WTI_D1_LK5(array, weight, skip, rsize)
1235#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1236 !DEC$ ATTRIBUTES DLLEXPORT :: setRefined_WTI_D1_LK5
1239 logical(LKG) ,
intent(inout) ,
contiguous :: array(:)
1240 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
1241 integer(IK) ,
intent(in) :: skip
1242 integer(IK) ,
intent(out) :: rsize
1247 PURE module subroutine setRefined_WTI_D1_LK4(array, weight, skip, rsize)
1248#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1249 !DEC$ ATTRIBUTES DLLEXPORT :: setRefined_WTI_D1_LK4
1252 logical(LKG) ,
intent(inout) ,
contiguous :: array(:)
1253 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
1254 integer(IK) ,
intent(in) :: skip
1255 integer(IK) ,
intent(out) :: rsize
1260 PURE module subroutine setRefined_WTI_D1_LK3(array, weight, skip, rsize)
1261#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1262 !DEC$ ATTRIBUTES DLLEXPORT :: setRefined_WTI_D1_LK3
1265 logical(LKG) ,
intent(inout) ,
contiguous :: array(:)
1266 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
1267 integer(IK) ,
intent(in) :: skip
1268 integer(IK) ,
intent(out) :: rsize
1273 PURE module subroutine setRefined_WTI_D1_LK2(array, weight, skip, rsize)
1274#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1275 !DEC$ ATTRIBUTES DLLEXPORT :: setRefined_WTI_D1_LK2
1278 logical(LKG) ,
intent(inout) ,
contiguous :: array(:)
1279 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
1280 integer(IK) ,
intent(in) :: skip
1281 integer(IK) ,
intent(out) :: rsize
1286 PURE module subroutine setRefined_WTI_D1_LK1(array, weight, skip, rsize)
1287#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1288 !DEC$ ATTRIBUTES DLLEXPORT :: setRefined_WTI_D1_LK1
1291 logical(LKG) ,
intent(inout) ,
contiguous :: array(:)
1292 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
1293 integer(IK) ,
intent(in) :: skip
1294 integer(IK) ,
intent(out) :: rsize
1301 PURE module subroutine setRefined_WTI_D1_CK5(array, weight, skip, rsize)
1302#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1303 !DEC$ ATTRIBUTES DLLEXPORT :: setRefined_WTI_D1_CK5
1306 complex(CKG) ,
intent(inout) ,
contiguous :: array(:)
1307 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
1308 integer(IK) ,
intent(in) :: skip
1309 integer(IK) ,
intent(out) :: rsize
1314 PURE module subroutine setRefined_WTI_D1_CK4(array, weight, skip, rsize)
1315#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1316 !DEC$ ATTRIBUTES DLLEXPORT :: setRefined_WTI_D1_CK4
1319 complex(CKG) ,
intent(inout) ,
contiguous :: array(:)
1320 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
1321 integer(IK) ,
intent(in) :: skip
1322 integer(IK) ,
intent(out) :: rsize
1327 PURE module subroutine setRefined_WTI_D1_CK3(array, weight, skip, rsize)
1328#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1329 !DEC$ ATTRIBUTES DLLEXPORT :: setRefined_WTI_D1_CK3
1332 complex(CKG) ,
intent(inout) ,
contiguous :: array(:)
1333 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
1334 integer(IK) ,
intent(in) :: skip
1335 integer(IK) ,
intent(out) :: rsize
1340 PURE module subroutine setRefined_WTI_D1_CK2(array, weight, skip, rsize)
1341#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1342 !DEC$ ATTRIBUTES DLLEXPORT :: setRefined_WTI_D1_CK2
1345 complex(CKG) ,
intent(inout) ,
contiguous :: array(:)
1346 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
1347 integer(IK) ,
intent(in) :: skip
1348 integer(IK) ,
intent(out) :: rsize
1353 PURE module subroutine setRefined_WTI_D1_CK1(array, weight, skip, rsize)
1354#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1355 !DEC$ ATTRIBUTES DLLEXPORT :: setRefined_WTI_D1_CK1
1358 complex(CKG) ,
intent(inout) ,
contiguous :: array(:)
1359 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
1360 integer(IK) ,
intent(in) :: skip
1361 integer(IK) ,
intent(out) :: rsize
1368 PURE module subroutine setRefined_WTI_D1_RK5(array, weight, skip, rsize)
1369#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1370 !DEC$ ATTRIBUTES DLLEXPORT :: setRefined_WTI_D1_RK5
1373 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
1374 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
1375 integer(IK) ,
intent(in) :: skip
1376 integer(IK) ,
intent(out) :: rsize
1381 PURE module subroutine setRefined_WTI_D1_RK4(array, weight, skip, rsize)
1382#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1383 !DEC$ ATTRIBUTES DLLEXPORT :: setRefined_WTI_D1_RK4
1386 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
1387 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
1388 integer(IK) ,
intent(in) :: skip
1389 integer(IK) ,
intent(out) :: rsize
1394 PURE module subroutine setRefined_WTI_D1_RK3(array, weight, skip, rsize)
1395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1396 !DEC$ ATTRIBUTES DLLEXPORT :: setRefined_WTI_D1_RK3
1399 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
1400 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
1401 integer(IK) ,
intent(in) :: skip
1402 integer(IK) ,
intent(out) :: rsize
1407 PURE module subroutine setRefined_WTI_D1_RK2(array, weight, skip, rsize)
1408#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1409 !DEC$ ATTRIBUTES DLLEXPORT :: setRefined_WTI_D1_RK2
1412 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
1413 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
1414 integer(IK) ,
intent(in) :: skip
1415 integer(IK) ,
intent(out) :: rsize
1420 PURE module subroutine setRefined_WTI_D1_RK1(array, weight, skip, rsize)
1421#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1422 !DEC$ ATTRIBUTES DLLEXPORT :: setRefined_WTI_D1_RK1
1425 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
1426 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
1427 integer(IK) ,
intent(in) :: skip
1428 integer(IK) ,
intent(out) :: rsize
1441 PURE module subroutine setRefined_WTI_D2_SK5(array, dim, weight, skip, rsize)
1442#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1443 !DEC$ ATTRIBUTES DLLEXPORT :: setRefined_WTI_D2_SK5
1446 character(
*,SKG) ,
intent(inout) ,
contiguous :: array(:,:)
1447 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
1448 integer(IK) ,
intent(in) :: skip
1449 integer(IK) ,
intent(out) :: rsize
1450 integer(IK) ,
intent(in) :: dim
1455 PURE module subroutine setRefined_WTI_D2_SK4(array, dim, weight, skip, rsize)
1456#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1457 !DEC$ ATTRIBUTES DLLEXPORT :: setRefined_WTI_D2_SK4
1460 character(
*,SKG) ,
intent(inout) ,
contiguous :: array(:,:)
1461 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
1462 integer(IK) ,
intent(in) :: skip
1463 integer(IK) ,
intent(out) :: rsize
1464 integer(IK) ,
intent(in) :: dim
1469 PURE module subroutine setRefined_WTI_D2_SK3(array, dim, weight, skip, rsize)
1470#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1471 !DEC$ ATTRIBUTES DLLEXPORT :: setRefined_WTI_D2_SK3
1474 character(
*,SKG) ,
intent(inout) ,
contiguous :: array(:,:)
1475 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
1476 integer(IK) ,
intent(in) :: skip
1477 integer(IK) ,
intent(out) :: rsize
1478 integer(IK) ,
intent(in) :: dim
1483 PURE module subroutine setRefined_WTI_D2_SK2(array, dim, weight, skip, rsize)
1484#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1485 !DEC$ ATTRIBUTES DLLEXPORT :: setRefined_WTI_D2_SK2
1488 character(
*,SKG) ,
intent(inout) ,
contiguous :: array(:,:)
1489 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
1490 integer(IK) ,
intent(in) :: skip
1491 integer(IK) ,
intent(out) :: rsize
1492 integer(IK) ,
intent(in) :: dim
1497 PURE module subroutine setRefined_WTI_D2_SK1(array, dim, weight, skip, rsize)
1498#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1499 !DEC$ ATTRIBUTES DLLEXPORT :: setRefined_WTI_D2_SK1
1502 character(
*,SKG) ,
intent(inout) ,
contiguous :: array(:,:)
1503 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
1504 integer(IK) ,
intent(in) :: skip
1505 integer(IK) ,
intent(out) :: rsize
1506 integer(IK) ,
intent(in) :: dim
1513 PURE module subroutine setRefined_WTI_D2_IK5(array, dim, weight, skip, rsize)
1514#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1515 !DEC$ ATTRIBUTES DLLEXPORT :: setRefined_WTI_D2_IK5
1518 integer(IKG) ,
intent(inout) ,
contiguous :: array(:,:)
1519 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
1520 integer(IK) ,
intent(in) :: skip
1521 integer(IK) ,
intent(out) :: rsize
1522 integer(IK) ,
intent(in) :: dim
1527 PURE module subroutine setRefined_WTI_D2_IK4(array, dim, weight, skip, rsize)
1528#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1529 !DEC$ ATTRIBUTES DLLEXPORT :: setRefined_WTI_D2_IK4
1532 integer(IKG) ,
intent(inout) ,
contiguous :: array(:,:)
1533 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
1534 integer(IK) ,
intent(in) :: skip
1535 integer(IK) ,
intent(out) :: rsize
1536 integer(IK) ,
intent(in) :: dim
1541 PURE module subroutine setRefined_WTI_D2_IK3(array, dim, weight, skip, rsize)
1542#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1543 !DEC$ ATTRIBUTES DLLEXPORT :: setRefined_WTI_D2_IK3
1546 integer(IKG) ,
intent(inout) ,
contiguous :: array(:,:)
1547 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
1548 integer(IK) ,
intent(in) :: skip
1549 integer(IK) ,
intent(out) :: rsize
1550 integer(IK) ,
intent(in) :: dim
1555 PURE module subroutine setRefined_WTI_D2_IK2(array, dim, weight, skip, rsize)
1556#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1557 !DEC$ ATTRIBUTES DLLEXPORT :: setRefined_WTI_D2_IK2
1560 integer(IKG) ,
intent(inout) ,
contiguous :: array(:,:)
1561 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
1562 integer(IK) ,
intent(in) :: skip
1563 integer(IK) ,
intent(out) :: rsize
1564 integer(IK) ,
intent(in) :: dim
1569 PURE module subroutine setRefined_WTI_D2_IK1(array, dim, weight, skip, rsize)
1570#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1571 !DEC$ ATTRIBUTES DLLEXPORT :: setRefined_WTI_D2_IK1
1574 integer(IKG) ,
intent(inout) ,
contiguous :: array(:,:)
1575 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
1576 integer(IK) ,
intent(in) :: skip
1577 integer(IK) ,
intent(out) :: rsize
1578 integer(IK) ,
intent(in) :: dim
1585 PURE module subroutine setRefined_WTI_D2_LK5(array, dim, weight, skip, rsize)
1586#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1587 !DEC$ ATTRIBUTES DLLEXPORT :: setRefined_WTI_D2_LK5
1590 logical(LKG) ,
intent(inout) ,
contiguous :: array(:,:)
1591 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
1592 integer(IK) ,
intent(in) :: skip
1593 integer(IK) ,
intent(out) :: rsize
1594 integer(IK) ,
intent(in) :: dim
1599 PURE module subroutine setRefined_WTI_D2_LK4(array, dim, weight, skip, rsize)
1600#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1601 !DEC$ ATTRIBUTES DLLEXPORT :: setRefined_WTI_D2_LK4
1604 logical(LKG) ,
intent(inout) ,
contiguous :: array(:,:)
1605 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
1606 integer(IK) ,
intent(in) :: skip
1607 integer(IK) ,
intent(out) :: rsize
1608 integer(IK) ,
intent(in) :: dim
1613 PURE module subroutine setRefined_WTI_D2_LK3(array, dim, weight, skip, rsize)
1614#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1615 !DEC$ ATTRIBUTES DLLEXPORT :: setRefined_WTI_D2_LK3
1618 logical(LKG) ,
intent(inout) ,
contiguous :: array(:,:)
1619 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
1620 integer(IK) ,
intent(in) :: skip
1621 integer(IK) ,
intent(out) :: rsize
1622 integer(IK) ,
intent(in) :: dim
1627 PURE module subroutine setRefined_WTI_D2_LK2(array, dim, weight, skip, rsize)
1628#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1629 !DEC$ ATTRIBUTES DLLEXPORT :: setRefined_WTI_D2_LK2
1632 logical(LKG) ,
intent(inout) ,
contiguous :: array(:,:)
1633 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
1634 integer(IK) ,
intent(in) :: skip
1635 integer(IK) ,
intent(out) :: rsize
1636 integer(IK) ,
intent(in) :: dim
1641 PURE module subroutine setRefined_WTI_D2_LK1(array, dim, weight, skip, rsize)
1642#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1643 !DEC$ ATTRIBUTES DLLEXPORT :: setRefined_WTI_D2_LK1
1646 logical(LKG) ,
intent(inout) ,
contiguous :: array(:,:)
1647 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
1648 integer(IK) ,
intent(in) :: skip
1649 integer(IK) ,
intent(out) :: rsize
1650 integer(IK) ,
intent(in) :: dim
1657 PURE module subroutine setRefined_WTI_D2_CK5(array, dim, weight, skip, rsize)
1658#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1659 !DEC$ ATTRIBUTES DLLEXPORT :: setRefined_WTI_D2_CK5
1662 complex(CKG) ,
intent(inout) ,
contiguous :: array(:,:)
1663 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
1664 integer(IK) ,
intent(in) :: skip
1665 integer(IK) ,
intent(out) :: rsize
1666 integer(IK) ,
intent(in) :: dim
1671 PURE module subroutine setRefined_WTI_D2_CK4(array, dim, weight, skip, rsize)
1672#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1673 !DEC$ ATTRIBUTES DLLEXPORT :: setRefined_WTI_D2_CK4
1676 complex(CKG) ,
intent(inout) ,
contiguous :: array(:,:)
1677 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
1678 integer(IK) ,
intent(in) :: skip
1679 integer(IK) ,
intent(out) :: rsize
1680 integer(IK) ,
intent(in) :: dim
1685 PURE module subroutine setRefined_WTI_D2_CK3(array, dim, weight, skip, rsize)
1686#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1687 !DEC$ ATTRIBUTES DLLEXPORT :: setRefined_WTI_D2_CK3
1690 complex(CKG) ,
intent(inout) ,
contiguous :: array(:,:)
1691 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
1692 integer(IK) ,
intent(in) :: skip
1693 integer(IK) ,
intent(out) :: rsize
1694 integer(IK) ,
intent(in) :: dim
1699 PURE module subroutine setRefined_WTI_D2_CK2(array, dim, weight, skip, rsize)
1700#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1701 !DEC$ ATTRIBUTES DLLEXPORT :: setRefined_WTI_D2_CK2
1704 complex(CKG) ,
intent(inout) ,
contiguous :: array(:,:)
1705 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
1706 integer(IK) ,
intent(in) :: skip
1707 integer(IK) ,
intent(out) :: rsize
1708 integer(IK) ,
intent(in) :: dim
1713 PURE module subroutine setRefined_WTI_D2_CK1(array, dim, weight, skip, rsize)
1714#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1715 !DEC$ ATTRIBUTES DLLEXPORT :: setRefined_WTI_D2_CK1
1718 complex(CKG) ,
intent(inout) ,
contiguous :: array(:,:)
1719 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
1720 integer(IK) ,
intent(in) :: skip
1721 integer(IK) ,
intent(out) :: rsize
1722 integer(IK) ,
intent(in) :: dim
1729 PURE module subroutine setRefined_WTI_D2_RK5(array, dim, weight, skip, rsize)
1730#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1731 !DEC$ ATTRIBUTES DLLEXPORT :: setRefined_WTI_D2_RK5
1734 real(RKG) ,
intent(inout) ,
contiguous :: array(:,:)
1735 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
1736 integer(IK) ,
intent(in) :: skip
1737 integer(IK) ,
intent(out) :: rsize
1738 integer(IK) ,
intent(in) :: dim
1743 PURE module subroutine setRefined_WTI_D2_RK4(array, dim, weight, skip, rsize)
1744#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1745 !DEC$ ATTRIBUTES DLLEXPORT :: setRefined_WTI_D2_RK4
1748 real(RKG) ,
intent(inout) ,
contiguous :: array(:,:)
1749 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
1750 integer(IK) ,
intent(in) :: skip
1751 integer(IK) ,
intent(out) :: rsize
1752 integer(IK) ,
intent(in) :: dim
1757 PURE module subroutine setRefined_WTI_D2_RK3(array, dim, weight, skip, rsize)
1758#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1759 !DEC$ ATTRIBUTES DLLEXPORT :: setRefined_WTI_D2_RK3
1762 real(RKG) ,
intent(inout) ,
contiguous :: array(:,:)
1763 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
1764 integer(IK) ,
intent(in) :: skip
1765 integer(IK) ,
intent(out) :: rsize
1766 integer(IK) ,
intent(in) :: dim
1771 PURE module subroutine setRefined_WTI_D2_RK2(array, dim, weight, skip, rsize)
1772#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1773 !DEC$ ATTRIBUTES DLLEXPORT :: setRefined_WTI_D2_RK2
1776 real(RKG) ,
intent(inout) ,
contiguous :: array(:,:)
1777 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
1778 integer(IK) ,
intent(in) :: skip
1779 integer(IK) ,
intent(out) :: rsize
1780 integer(IK) ,
intent(in) :: dim
1785 PURE module subroutine setRefined_WTI_D2_RK1(array, dim, weight, skip, rsize)
1786#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1787 !DEC$ ATTRIBUTES DLLEXPORT :: setRefined_WTI_D2_RK1
1790 real(RKG) ,
intent(inout) ,
contiguous :: array(:,:)
1791 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
1792 integer(IK) ,
intent(in) :: skip
1793 integer(IK) ,
intent(out) :: rsize
1794 integer(IK) ,
intent(in) :: dim
Generate a refined version of the input array by the specified weight and skip.
Generate a refined version of the input array where the sequentially unweighted entries along the spe...
This module contains procedures and generic interfaces for refining (thinning) (weighted) arrays 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...