ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
pm_arraySort.F90
Go to the documentation of this file.
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
86
87!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
88
90
91 use pm_kind, only: IK, LK, RK, SK
92
93 implicit none
94
95 character(*,SK), parameter :: MODULE_NAME = "@pm_arraySort"
96
97!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
98
99 type :: isort_type; end type
100 type, abstract :: sort_type; end type
101 type, extends(sort_type) :: qsort_type; end type
102 type, extends(qsort_type) :: qsorti_type; end type
103 type, extends(sort_type) :: heap_type; end type
104 type, extends(sort_type) :: insertion_type; end type
105
106 type, extends(qsort_type) :: qsortr_type; end type
107 type, extends(qsort_type) :: qsortrdp_type; end type
108 type, extends(sort_type) :: bubble_type; end type
109 type, extends(heap_type):: heapi_type; end type
110 type, extends(heap_type):: heapr_type; end type
111 type, extends(insertion_type) :: insertionl_type; end type
112 type, extends(insertion_type) :: insertionb_type; end type
113 type, extends(sort_type) :: merger_type; end type
114 type, extends(sort_type) :: selection_type; end type
115 type, extends(sort_type) :: shell_type; end type
116
117 type(isort_type), parameter :: isort = isort_type()
118#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
119 !DIR$ ATTRIBUTES DLLEXPORT :: isort
120#endif
121
122 type(qsorti_type), parameter :: qsorti = qsorti_type()
123#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
124 !DIR$ ATTRIBUTES DLLEXPORT :: qsorti
125#endif
126 type(qsortr_type), parameter :: qsortr = qsortr_type()
127#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
128 !DIR$ ATTRIBUTES DLLEXPORT :: qsortr
129#endif
130 type(qsortrdp_type), parameter :: qsortrdp = qsortrdp_type()
131#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
132 !DIR$ ATTRIBUTES DLLEXPORT :: qsortrdp
133#endif
134 type(bubble_type), parameter :: bubble = bubble_type()
135#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
136 !DIR$ ATTRIBUTES DLLEXPORT :: bubble
137#endif
138 type(heapi_type), parameter :: heapi = heapi_type()
139#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
140 !DIR$ ATTRIBUTES DLLEXPORT :: heapi
141#endif
142 type(heapr_type), parameter :: heapr = heapr_type()
143#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
144 !DIR$ ATTRIBUTES DLLEXPORT :: heapr
145#endif
147#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
148 !DIR$ ATTRIBUTES DLLEXPORT :: insertionl
149#endif
151#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
152 !DIR$ ATTRIBUTES DLLEXPORT :: insertionb
153#endif
154 type(merger_type), parameter :: merger = merger_type()
155#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
156 !DIR$ ATTRIBUTES DLLEXPORT :: merger
157#endif
159#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
160 !DIR$ ATTRIBUTES DLLEXPORT :: selection
161#endif
162 type(shell_type), parameter :: shell = shell_type()
163#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
164 !DIR$ ATTRIBUTES DLLEXPORT :: shell
165#endif
166
167!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
168
230
232
233 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
234 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
235 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
236
237 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
238
239#if SK5_ENABLED
240 PURE module function isAscendingAllDefCom_D0_SK5(array) result(ascendingAll)
241#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
242 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingAllDefCom_D0_SK5
243#endif
244 use pm_kind, only: SKG => SK5
245 character(*,SKG) , intent(in) :: array
246 logical(LK) :: ascendingAll
247 end function
248#endif
249
250#if SK4_ENABLED
251 PURE module function isAscendingAllDefCom_D0_SK4(array) result(ascendingAll)
252#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
253 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingAllDefCom_D0_SK4
254#endif
255 use pm_kind, only: SKG => SK4
256 character(*,SKG) , intent(in) :: array
257 logical(LK) :: ascendingAll
258 end function
259#endif
260
261#if SK3_ENABLED
262 PURE module function isAscendingAllDefCom_D0_SK3(array) result(ascendingAll)
263#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
264 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingAllDefCom_D0_SK3
265#endif
266 use pm_kind, only: SKG => SK3
267 character(*,SKG) , intent(in) :: array
268 logical(LK) :: ascendingAll
269 end function
270#endif
271
272#if SK2_ENABLED
273 PURE module function isAscendingAllDefCom_D0_SK2(array) result(ascendingAll)
274#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
275 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingAllDefCom_D0_SK2
276#endif
277 use pm_kind, only: SKG => SK2
278 character(*,SKG) , intent(in) :: array
279 logical(LK) :: ascendingAll
280 end function
281#endif
282
283#if SK1_ENABLED
284 PURE module function isAscendingAllDefCom_D0_SK1(array) result(ascendingAll)
285#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
286 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingAllDefCom_D0_SK1
287#endif
288 use pm_kind, only: SKG => SK1
289 character(*,SKG) , intent(in) :: array
290 logical(LK) :: ascendingAll
291 end function
292#endif
293
294 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
295
296#if SK5_ENABLED
297 PURE module function isAscendingAllDefCom_D1_SK5(array) result(ascendingAll)
298#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
299 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingAllDefCom_D1_SK5
300#endif
301 use pm_kind, only: SKG => SK5
302 character(*,SKG) , intent(in) , contiguous :: array(:)
303 logical(LK) :: ascendingAll
304 end function
305#endif
306
307#if SK4_ENABLED
308 PURE module function isAscendingAllDefCom_D1_SK4(array) result(ascendingAll)
309#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
310 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingAllDefCom_D1_SK4
311#endif
312 use pm_kind, only: SKG => SK4
313 character(*,SKG) , intent(in) , contiguous :: array(:)
314 logical(LK) :: ascendingAll
315 end function
316#endif
317
318#if SK3_ENABLED
319 PURE module function isAscendingAllDefCom_D1_SK3(array) result(ascendingAll)
320#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
321 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingAllDefCom_D1_SK3
322#endif
323 use pm_kind, only: SKG => SK3
324 character(*,SKG) , intent(in) , contiguous :: array(:)
325 logical(LK) :: ascendingAll
326 end function
327#endif
328
329#if SK2_ENABLED
330 PURE module function isAscendingAllDefCom_D1_SK2(array) result(ascendingAll)
331#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
332 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingAllDefCom_D1_SK2
333#endif
334 use pm_kind, only: SKG => SK2
335 character(*,SKG) , intent(in) , contiguous :: array(:)
336 logical(LK) :: ascendingAll
337 end function
338#endif
339
340#if SK1_ENABLED
341 PURE module function isAscendingAllDefCom_D1_SK1(array) result(ascendingAll)
342#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
343 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingAllDefCom_D1_SK1
344#endif
345 use pm_kind, only: SKG => SK1
346 character(*,SKG) , intent(in) , contiguous :: array(:)
347 logical(LK) :: ascendingAll
348 end function
349#endif
350
351 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
352
353#if IK5_ENABLED
354 PURE module function isAscendingAllDefCom_D1_IK5(array) result(ascendingAll)
355#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
356 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingAllDefCom_D1_IK5
357#endif
358 use pm_kind, only: IKG => IK5
359 integer(IKG) , intent(in) , contiguous :: array(:)
360 logical(LK) :: ascendingAll
361 end function
362#endif
363
364#if IK4_ENABLED
365 PURE module function isAscendingAllDefCom_D1_IK4(array) result(ascendingAll)
366#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
367 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingAllDefCom_D1_IK4
368#endif
369 use pm_kind, only: IKG => IK4
370 integer(IKG) , intent(in) , contiguous :: array(:)
371 logical(LK) :: ascendingAll
372 end function
373#endif
374
375#if IK3_ENABLED
376 PURE module function isAscendingAllDefCom_D1_IK3(array) result(ascendingAll)
377#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
378 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingAllDefCom_D1_IK3
379#endif
380 use pm_kind, only: IKG => IK3
381 integer(IKG) , intent(in) , contiguous :: array(:)
382 logical(LK) :: ascendingAll
383 end function
384#endif
385
386#if IK2_ENABLED
387 PURE module function isAscendingAllDefCom_D1_IK2(array) result(ascendingAll)
388#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
389 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingAllDefCom_D1_IK2
390#endif
391 use pm_kind, only: IKG => IK2
392 integer(IKG) , intent(in) , contiguous :: array(:)
393 logical(LK) :: ascendingAll
394 end function
395#endif
396
397#if IK1_ENABLED
398 PURE module function isAscendingAllDefCom_D1_IK1(array) result(ascendingAll)
399#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
400 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingAllDefCom_D1_IK1
401#endif
402 use pm_kind, only: IKG => IK1
403 integer(IKG) , intent(in) , contiguous :: array(:)
404 logical(LK) :: ascendingAll
405 end function
406#endif
407
408 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
409
410#if LK5_ENABLED
411 PURE module function isAscendingAllDefCom_D1_LK5(array) result(ascendingAll)
412#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
413 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingAllDefCom_D1_LK5
414#endif
415 use pm_kind, only: LKG => LK5
416 logical(LKG) , intent(in) , contiguous :: array(:)
417 logical(LK) :: ascendingAll
418 end function
419#endif
420
421#if LK4_ENABLED
422 PURE module function isAscendingAllDefCom_D1_LK4(array) result(ascendingAll)
423#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
424 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingAllDefCom_D1_LK4
425#endif
426 use pm_kind, only: LKG => LK4
427 logical(LKG) , intent(in) , contiguous :: array(:)
428 logical(LK) :: ascendingAll
429 end function
430#endif
431
432#if LK3_ENABLED
433 PURE module function isAscendingAllDefCom_D1_LK3(array) result(ascendingAll)
434#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
435 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingAllDefCom_D1_LK3
436#endif
437 use pm_kind, only: LKG => LK3
438 logical(LKG) , intent(in) , contiguous :: array(:)
439 logical(LK) :: ascendingAll
440 end function
441#endif
442
443#if LK2_ENABLED
444 PURE module function isAscendingAllDefCom_D1_LK2(array) result(ascendingAll)
445#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
446 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingAllDefCom_D1_LK2
447#endif
448 use pm_kind, only: LKG => LK2
449 logical(LKG) , intent(in) , contiguous :: array(:)
450 logical(LK) :: ascendingAll
451 end function
452#endif
453
454#if LK1_ENABLED
455 PURE module function isAscendingAllDefCom_D1_LK1(array) result(ascendingAll)
456#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
457 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingAllDefCom_D1_LK1
458#endif
459 use pm_kind, only: LKG => LK1
460 logical(LKG) , intent(in) , contiguous :: array(:)
461 logical(LK) :: ascendingAll
462 end function
463#endif
464
465 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
466
467#if RK5_ENABLED
468 PURE module function isAscendingAllDefCom_D1_RK5(array) result(ascendingAll)
469#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
470 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingAllDefCom_D1_RK5
471#endif
472 use pm_kind, only: RKG => RK5
473 real(RKG) , intent(in) , contiguous :: array(:)
474 logical(LK) :: ascendingAll
475 end function
476#endif
477
478#if RK4_ENABLED
479 PURE module function isAscendingAllDefCom_D1_RK4(array) result(ascendingAll)
480#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
481 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingAllDefCom_D1_RK4
482#endif
483 use pm_kind, only: RKG => RK4
484 real(RKG) , intent(in) , contiguous :: array(:)
485 logical(LK) :: ascendingAll
486 end function
487#endif
488
489#if RK3_ENABLED
490 PURE module function isAscendingAllDefCom_D1_RK3(array) result(ascendingAll)
491#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
492 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingAllDefCom_D1_RK3
493#endif
494 use pm_kind, only: RKG => RK3
495 real(RKG) , intent(in) , contiguous :: array(:)
496 logical(LK) :: ascendingAll
497 end function
498#endif
499
500#if RK2_ENABLED
501 PURE module function isAscendingAllDefCom_D1_RK2(array) result(ascendingAll)
502#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
503 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingAllDefCom_D1_RK2
504#endif
505 use pm_kind, only: RKG => RK2
506 real(RKG) , intent(in) , contiguous :: array(:)
507 logical(LK) :: ascendingAll
508 end function
509#endif
510
511#if RK1_ENABLED
512 PURE module function isAscendingAllDefCom_D1_RK1(array) result(ascendingAll)
513#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
514 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingAllDefCom_D1_RK1
515#endif
516 use pm_kind, only: RKG => RK1
517 real(RKG) , intent(in) , contiguous :: array(:)
518 logical(LK) :: ascendingAll
519 end function
520#endif
521
522 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
523
524#if CK5_ENABLED
525 PURE module function isAscendingAllDefCom_D1_CK5(array) result(ascendingAll)
526#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
527 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingAllDefCom_D1_CK5
528#endif
529 use pm_kind, only: CKG => CK5
530 complex(CKG) , intent(in) , contiguous :: array(:)
531 logical(LK) :: ascendingAll
532 end function
533#endif
534
535#if CK4_ENABLED
536 PURE module function isAscendingAllDefCom_D1_CK4(array) result(ascendingAll)
537#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
538 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingAllDefCom_D1_CK4
539#endif
540 use pm_kind, only: CKG => CK4
541 complex(CKG) , intent(in) , contiguous :: array(:)
542 logical(LK) :: ascendingAll
543 end function
544#endif
545
546#if CK3_ENABLED
547 PURE module function isAscendingAllDefCom_D1_CK3(array) result(ascendingAll)
548#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
549 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingAllDefCom_D1_CK3
550#endif
551 use pm_kind, only: CKG => CK3
552 complex(CKG) , intent(in) , contiguous :: array(:)
553 logical(LK) :: ascendingAll
554 end function
555#endif
556
557#if CK2_ENABLED
558 PURE module function isAscendingAllDefCom_D1_CK2(array) result(ascendingAll)
559#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
560 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingAllDefCom_D1_CK2
561#endif
562 use pm_kind, only: CKG => CK2
563 complex(CKG) , intent(in) , contiguous :: array(:)
564 logical(LK) :: ascendingAll
565 end function
566#endif
567
568#if CK1_ENABLED
569 PURE module function isAscendingAllDefCom_D1_CK1(array) result(ascendingAll)
570#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
571 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingAllDefCom_D1_CK1
572#endif
573 use pm_kind, only: CKG => CK1
574 complex(CKG) , intent(in) , contiguous :: array(:)
575 logical(LK) :: ascendingAll
576 end function
577#endif
578
579 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
580
581#if PDT_ENABLED
582
583#if SK5_ENABLED
584 PURE module function isAscendingAllDefCom_D1_PSSK5(array) result(ascendingAll)
585#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
586 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingAllDefCom_D1_PSSK5
587#endif
588 use pm_kind, only: SKG => SK5
589 use pm_container, only: css_pdt
590 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
591 logical(LK) :: ascendingAll
592 end function
593#endif
594
595#if SK4_ENABLED
596 PURE module function isAscendingAllDefCom_D1_PSSK4(array) result(ascendingAll)
597#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
598 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingAllDefCom_D1_PSSK4
599#endif
600 use pm_kind, only: SKG => SK4
601 use pm_container, only: css_pdt
602 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
603 logical(LK) :: ascendingAll
604 end function
605#endif
606
607#if SK3_ENABLED
608 PURE module function isAscendingAllDefCom_D1_PSSK3(array) result(ascendingAll)
609#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
610 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingAllDefCom_D1_PSSK3
611#endif
612 use pm_kind, only: SKG => SK3
613 use pm_container, only: css_pdt
614 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
615 logical(LK) :: ascendingAll
616 end function
617#endif
618
619#if SK2_ENABLED
620 PURE module function isAscendingAllDefCom_D1_PSSK2(array) result(ascendingAll)
621#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
622 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingAllDefCom_D1_PSSK2
623#endif
624 use pm_kind, only: SKG => SK2
625 use pm_container, only: css_pdt
626 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
627 logical(LK) :: ascendingAll
628 end function
629#endif
630
631#if SK1_ENABLED
632 PURE module function isAscendingAllDefCom_D1_PSSK1(array) result(ascendingAll)
633#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
634 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingAllDefCom_D1_PSSK1
635#endif
636 use pm_kind, only: SKG => SK1
637 use pm_container, only: css_pdt
638 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
639 logical(LK) :: ascendingAll
640 end function
641#endif
642
643#endif
644!PDT_ENABLED
645
646 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
647
648 PURE module function isAscendingAllDefCom_D1_BSSK(array) result(ascendingAll)
649#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
650 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingAllDefCom_D1_BSSK
651#endif
652 use pm_kind, only: SKG => SK
653 use pm_container, only: css_type
654 type(css_type) , intent(in) , contiguous :: array(:)
655 logical(LK) :: ascendingAll
656 end function
657
658 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
659
660 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
661 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
662 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
663
664 end interface
665
666!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
667
729
731
732 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
733 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
734 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
735
736 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
737
738#if SK5_ENABLED
739 PURE module function isDescendingAllDefCom_D0_SK5(array) result(descendingAll)
740#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
741 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingAllDefCom_D0_SK5
742#endif
743 use pm_kind, only: SKG => SK5
744 character(*,SKG) , intent(in) :: array
745 logical(LK) :: descendingAll
746 end function
747#endif
748
749#if SK4_ENABLED
750 PURE module function isDescendingAllDefCom_D0_SK4(array) result(descendingAll)
751#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
752 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingAllDefCom_D0_SK4
753#endif
754 use pm_kind, only: SKG => SK4
755 character(*,SKG) , intent(in) :: array
756 logical(LK) :: descendingAll
757 end function
758#endif
759
760#if SK3_ENABLED
761 PURE module function isDescendingAllDefCom_D0_SK3(array) result(descendingAll)
762#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
763 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingAllDefCom_D0_SK3
764#endif
765 use pm_kind, only: SKG => SK3
766 character(*,SKG) , intent(in) :: array
767 logical(LK) :: descendingAll
768 end function
769#endif
770
771#if SK2_ENABLED
772 PURE module function isDescendingAllDefCom_D0_SK2(array) result(descendingAll)
773#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
774 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingAllDefCom_D0_SK2
775#endif
776 use pm_kind, only: SKG => SK2
777 character(*,SKG) , intent(in) :: array
778 logical(LK) :: descendingAll
779 end function
780#endif
781
782#if SK1_ENABLED
783 PURE module function isDescendingAllDefCom_D0_SK1(array) result(descendingAll)
784#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
785 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingAllDefCom_D0_SK1
786#endif
787 use pm_kind, only: SKG => SK1
788 character(*,SKG) , intent(in) :: array
789 logical(LK) :: descendingAll
790 end function
791#endif
792
793 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
794
795#if SK5_ENABLED
796 PURE module function isDescendingAllDefCom_D1_SK5(array) result(descendingAll)
797#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
798 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingAllDefCom_D1_SK5
799#endif
800 use pm_kind, only: SKG => SK5
801 character(*,SKG) , intent(in) , contiguous :: array(:)
802 logical(LK) :: descendingAll
803 end function
804#endif
805
806#if SK4_ENABLED
807 PURE module function isDescendingAllDefCom_D1_SK4(array) result(descendingAll)
808#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
809 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingAllDefCom_D1_SK4
810#endif
811 use pm_kind, only: SKG => SK4
812 character(*,SKG) , intent(in) , contiguous :: array(:)
813 logical(LK) :: descendingAll
814 end function
815#endif
816
817#if SK3_ENABLED
818 PURE module function isDescendingAllDefCom_D1_SK3(array) result(descendingAll)
819#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
820 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingAllDefCom_D1_SK3
821#endif
822 use pm_kind, only: SKG => SK3
823 character(*,SKG) , intent(in) , contiguous :: array(:)
824 logical(LK) :: descendingAll
825 end function
826#endif
827
828#if SK2_ENABLED
829 PURE module function isDescendingAllDefCom_D1_SK2(array) result(descendingAll)
830#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
831 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingAllDefCom_D1_SK2
832#endif
833 use pm_kind, only: SKG => SK2
834 character(*,SKG) , intent(in) , contiguous :: array(:)
835 logical(LK) :: descendingAll
836 end function
837#endif
838
839#if SK1_ENABLED
840 PURE module function isDescendingAllDefCom_D1_SK1(array) result(descendingAll)
841#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
842 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingAllDefCom_D1_SK1
843#endif
844 use pm_kind, only: SKG => SK1
845 character(*,SKG) , intent(in) , contiguous :: array(:)
846 logical(LK) :: descendingAll
847 end function
848#endif
849
850 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
851
852#if IK5_ENABLED
853 PURE module function isDescendingAllDefCom_D1_IK5(array) result(descendingAll)
854#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
855 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingAllDefCom_D1_IK5
856#endif
857 use pm_kind, only: IKG => IK5
858 integer(IKG) , intent(in) , contiguous :: array(:)
859 logical(LK) :: descendingAll
860 end function
861#endif
862
863#if IK4_ENABLED
864 PURE module function isDescendingAllDefCom_D1_IK4(array) result(descendingAll)
865#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
866 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingAllDefCom_D1_IK4
867#endif
868 use pm_kind, only: IKG => IK4
869 integer(IKG) , intent(in) , contiguous :: array(:)
870 logical(LK) :: descendingAll
871 end function
872#endif
873
874#if IK3_ENABLED
875 PURE module function isDescendingAllDefCom_D1_IK3(array) result(descendingAll)
876#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
877 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingAllDefCom_D1_IK3
878#endif
879 use pm_kind, only: IKG => IK3
880 integer(IKG) , intent(in) , contiguous :: array(:)
881 logical(LK) :: descendingAll
882 end function
883#endif
884
885#if IK2_ENABLED
886 PURE module function isDescendingAllDefCom_D1_IK2(array) result(descendingAll)
887#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
888 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingAllDefCom_D1_IK2
889#endif
890 use pm_kind, only: IKG => IK2
891 integer(IKG) , intent(in) , contiguous :: array(:)
892 logical(LK) :: descendingAll
893 end function
894#endif
895
896#if IK1_ENABLED
897 PURE module function isDescendingAllDefCom_D1_IK1(array) result(descendingAll)
898#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
899 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingAllDefCom_D1_IK1
900#endif
901 use pm_kind, only: IKG => IK1
902 integer(IKG) , intent(in) , contiguous :: array(:)
903 logical(LK) :: descendingAll
904 end function
905#endif
906
907 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
908
909#if LK5_ENABLED
910 PURE module function isDescendingAllDefCom_D1_LK5(array) result(descendingAll)
911#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
912 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingAllDefCom_D1_LK5
913#endif
914 use pm_kind, only: LKG => LK5
915 logical(LKG) , intent(in) , contiguous :: array(:)
916 logical(LK) :: descendingAll
917 end function
918#endif
919
920#if LK4_ENABLED
921 PURE module function isDescendingAllDefCom_D1_LK4(array) result(descendingAll)
922#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
923 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingAllDefCom_D1_LK4
924#endif
925 use pm_kind, only: LKG => LK4
926 logical(LKG) , intent(in) , contiguous :: array(:)
927 logical(LK) :: descendingAll
928 end function
929#endif
930
931#if LK3_ENABLED
932 PURE module function isDescendingAllDefCom_D1_LK3(array) result(descendingAll)
933#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
934 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingAllDefCom_D1_LK3
935#endif
936 use pm_kind, only: LKG => LK3
937 logical(LKG) , intent(in) , contiguous :: array(:)
938 logical(LK) :: descendingAll
939 end function
940#endif
941
942#if LK2_ENABLED
943 PURE module function isDescendingAllDefCom_D1_LK2(array) result(descendingAll)
944#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
945 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingAllDefCom_D1_LK2
946#endif
947 use pm_kind, only: LKG => LK2
948 logical(LKG) , intent(in) , contiguous :: array(:)
949 logical(LK) :: descendingAll
950 end function
951#endif
952
953#if LK1_ENABLED
954 PURE module function isDescendingAllDefCom_D1_LK1(array) result(descendingAll)
955#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
956 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingAllDefCom_D1_LK1
957#endif
958 use pm_kind, only: LKG => LK1
959 logical(LKG) , intent(in) , contiguous :: array(:)
960 logical(LK) :: descendingAll
961 end function
962#endif
963
964 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
965
966#if RK5_ENABLED
967 PURE module function isDescendingAllDefCom_D1_RK5(array) result(descendingAll)
968#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
969 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingAllDefCom_D1_RK5
970#endif
971 use pm_kind, only: RKG => RK5
972 real(RKG) , intent(in) , contiguous :: array(:)
973 logical(LK) :: descendingAll
974 end function
975#endif
976
977#if RK4_ENABLED
978 PURE module function isDescendingAllDefCom_D1_RK4(array) result(descendingAll)
979#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
980 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingAllDefCom_D1_RK4
981#endif
982 use pm_kind, only: RKG => RK4
983 real(RKG) , intent(in) , contiguous :: array(:)
984 logical(LK) :: descendingAll
985 end function
986#endif
987
988#if RK3_ENABLED
989 PURE module function isDescendingAllDefCom_D1_RK3(array) result(descendingAll)
990#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
991 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingAllDefCom_D1_RK3
992#endif
993 use pm_kind, only: RKG => RK3
994 real(RKG) , intent(in) , contiguous :: array(:)
995 logical(LK) :: descendingAll
996 end function
997#endif
998
999#if RK2_ENABLED
1000 PURE module function isDescendingAllDefCom_D1_RK2(array) result(descendingAll)
1001#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1002 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingAllDefCom_D1_RK2
1003#endif
1004 use pm_kind, only: RKG => RK2
1005 real(RKG) , intent(in) , contiguous :: array(:)
1006 logical(LK) :: descendingAll
1007 end function
1008#endif
1009
1010#if RK1_ENABLED
1011 PURE module function isDescendingAllDefCom_D1_RK1(array) result(descendingAll)
1012#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1013 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingAllDefCom_D1_RK1
1014#endif
1015 use pm_kind, only: RKG => RK1
1016 real(RKG) , intent(in) , contiguous :: array(:)
1017 logical(LK) :: descendingAll
1018 end function
1019#endif
1020
1021 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1022
1023#if CK5_ENABLED
1024 PURE module function isDescendingAllDefCom_D1_CK5(array) result(descendingAll)
1025#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1026 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingAllDefCom_D1_CK5
1027#endif
1028 use pm_kind, only: CKG => CK5
1029 complex(CKG) , intent(in) , contiguous :: array(:)
1030 logical(LK) :: descendingAll
1031 end function
1032#endif
1033
1034#if CK4_ENABLED
1035 PURE module function isDescendingAllDefCom_D1_CK4(array) result(descendingAll)
1036#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1037 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingAllDefCom_D1_CK4
1038#endif
1039 use pm_kind, only: CKG => CK4
1040 complex(CKG) , intent(in) , contiguous :: array(:)
1041 logical(LK) :: descendingAll
1042 end function
1043#endif
1044
1045#if CK3_ENABLED
1046 PURE module function isDescendingAllDefCom_D1_CK3(array) result(descendingAll)
1047#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1048 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingAllDefCom_D1_CK3
1049#endif
1050 use pm_kind, only: CKG => CK3
1051 complex(CKG) , intent(in) , contiguous :: array(:)
1052 logical(LK) :: descendingAll
1053 end function
1054#endif
1055
1056#if CK2_ENABLED
1057 PURE module function isDescendingAllDefCom_D1_CK2(array) result(descendingAll)
1058#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1059 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingAllDefCom_D1_CK2
1060#endif
1061 use pm_kind, only: CKG => CK2
1062 complex(CKG) , intent(in) , contiguous :: array(:)
1063 logical(LK) :: descendingAll
1064 end function
1065#endif
1066
1067#if CK1_ENABLED
1068 PURE module function isDescendingAllDefCom_D1_CK1(array) result(descendingAll)
1069#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1070 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingAllDefCom_D1_CK1
1071#endif
1072 use pm_kind, only: CKG => CK1
1073 complex(CKG) , intent(in) , contiguous :: array(:)
1074 logical(LK) :: descendingAll
1075 end function
1076#endif
1077
1078 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1079
1080#if PDT_ENABLED
1081
1082#if SK5_ENABLED
1083 PURE module function isDescendingAllDefCom_D1_PSSK5(array) result(descendingAll)
1084#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1085 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingAllDefCom_D1_PSSK5
1086#endif
1087 use pm_kind, only: SKG => SK5
1088 use pm_container, only: css_pdt
1089 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
1090 logical(LK) :: descendingAll
1091 end function
1092#endif
1093
1094#if SK4_ENABLED
1095 PURE module function isDescendingAllDefCom_D1_PSSK4(array) result(descendingAll)
1096#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1097 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingAllDefCom_D1_PSSK4
1098#endif
1099 use pm_kind, only: SKG => SK4
1100 use pm_container, only: css_pdt
1101 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
1102 logical(LK) :: descendingAll
1103 end function
1104#endif
1105
1106#if SK3_ENABLED
1107 PURE module function isDescendingAllDefCom_D1_PSSK3(array) result(descendingAll)
1108#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1109 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingAllDefCom_D1_PSSK3
1110#endif
1111 use pm_kind, only: SKG => SK3
1112 use pm_container, only: css_pdt
1113 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
1114 logical(LK) :: descendingAll
1115 end function
1116#endif
1117
1118#if SK2_ENABLED
1119 PURE module function isDescendingAllDefCom_D1_PSSK2(array) result(descendingAll)
1120#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1121 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingAllDefCom_D1_PSSK2
1122#endif
1123 use pm_kind, only: SKG => SK2
1124 use pm_container, only: css_pdt
1125 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
1126 logical(LK) :: descendingAll
1127 end function
1128#endif
1129
1130#if SK1_ENABLED
1131 PURE module function isDescendingAllDefCom_D1_PSSK1(array) result(descendingAll)
1132#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1133 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingAllDefCom_D1_PSSK1
1134#endif
1135 use pm_kind, only: SKG => SK1
1136 use pm_container, only: css_pdt
1137 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
1138 logical(LK) :: descendingAll
1139 end function
1140#endif
1141
1142#endif
1143!PDT_ENABLED
1144
1145 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1146
1147 PURE module function isDescendingAllDefCom_D1_BSSK(array) result(descendingAll)
1148#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1149 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingAllDefCom_D1_BSSK
1150#endif
1151 use pm_kind, only: SKG => SK
1152 use pm_container, only: css_type
1153 type(css_type) , intent(in) , contiguous :: array(:)
1154 logical(LK) :: descendingAll
1155 end function
1156
1157 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1158
1159 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1160 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1161 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1162
1163 end interface
1164
1165!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1166
1228
1229 interface isAscending
1230
1231 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1232 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1233 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1234
1235 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1236
1237#if SK5_ENABLED
1238 PURE module function isAscendingDefCom_D0_SK5(array) result(ascending)
1239#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1240 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingDefCom_D0_SK5
1241#endif
1242 use pm_kind, only: SKG => SK5
1243 character(*,SKG) , intent(in) :: array
1244 logical(LK) :: ascending
1245 end function
1246#endif
1247
1248#if SK4_ENABLED
1249 PURE module function isAscendingDefCom_D0_SK4(array) result(ascending)
1250#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1251 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingDefCom_D0_SK4
1252#endif
1253 use pm_kind, only: SKG => SK4
1254 character(*,SKG) , intent(in) :: array
1255 logical(LK) :: ascending
1256 end function
1257#endif
1258
1259#if SK3_ENABLED
1260 PURE module function isAscendingDefCom_D0_SK3(array) result(ascending)
1261#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1262 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingDefCom_D0_SK3
1263#endif
1264 use pm_kind, only: SKG => SK3
1265 character(*,SKG) , intent(in) :: array
1266 logical(LK) :: ascending
1267 end function
1268#endif
1269
1270#if SK2_ENABLED
1271 PURE module function isAscendingDefCom_D0_SK2(array) result(ascending)
1272#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1273 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingDefCom_D0_SK2
1274#endif
1275 use pm_kind, only: SKG => SK2
1276 character(*,SKG) , intent(in) :: array
1277 logical(LK) :: ascending
1278 end function
1279#endif
1280
1281#if SK1_ENABLED
1282 PURE module function isAscendingDefCom_D0_SK1(array) result(ascending)
1283#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1284 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingDefCom_D0_SK1
1285#endif
1286 use pm_kind, only: SKG => SK1
1287 character(*,SKG) , intent(in) :: array
1288 logical(LK) :: ascending
1289 end function
1290#endif
1291
1292 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1293
1294#if SK5_ENABLED
1295 PURE module function isAscendingDefCom_D1_SK5(array) result(ascending)
1296#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1297 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingDefCom_D1_SK5
1298#endif
1299 use pm_kind, only: SKG => SK5
1300 character(*,SKG) , intent(in) , contiguous :: array(:)
1301 logical(LK) :: ascending
1302 end function
1303#endif
1304
1305#if SK4_ENABLED
1306 PURE module function isAscendingDefCom_D1_SK4(array) result(ascending)
1307#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1308 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingDefCom_D1_SK4
1309#endif
1310 use pm_kind, only: SKG => SK4
1311 character(*,SKG) , intent(in) , contiguous :: array(:)
1312 logical(LK) :: ascending
1313 end function
1314#endif
1315
1316#if SK3_ENABLED
1317 PURE module function isAscendingDefCom_D1_SK3(array) result(ascending)
1318#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1319 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingDefCom_D1_SK3
1320#endif
1321 use pm_kind, only: SKG => SK3
1322 character(*,SKG) , intent(in) , contiguous :: array(:)
1323 logical(LK) :: ascending
1324 end function
1325#endif
1326
1327#if SK2_ENABLED
1328 PURE module function isAscendingDefCom_D1_SK2(array) result(ascending)
1329#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1330 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingDefCom_D1_SK2
1331#endif
1332 use pm_kind, only: SKG => SK2
1333 character(*,SKG) , intent(in) , contiguous :: array(:)
1334 logical(LK) :: ascending
1335 end function
1336#endif
1337
1338#if SK1_ENABLED
1339 PURE module function isAscendingDefCom_D1_SK1(array) result(ascending)
1340#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1341 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingDefCom_D1_SK1
1342#endif
1343 use pm_kind, only: SKG => SK1
1344 character(*,SKG) , intent(in) , contiguous :: array(:)
1345 logical(LK) :: ascending
1346 end function
1347#endif
1348
1349 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1350
1351#if IK5_ENABLED
1352 PURE module function isAscendingDefCom_D1_IK5(array) result(ascending)
1353#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1354 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingDefCom_D1_IK5
1355#endif
1356 use pm_kind, only: IKG => IK5
1357 integer(IKG) , intent(in) , contiguous :: array(:)
1358 logical(LK) :: ascending
1359 end function
1360#endif
1361
1362#if IK4_ENABLED
1363 PURE module function isAscendingDefCom_D1_IK4(array) result(ascending)
1364#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1365 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingDefCom_D1_IK4
1366#endif
1367 use pm_kind, only: IKG => IK4
1368 integer(IKG) , intent(in) , contiguous :: array(:)
1369 logical(LK) :: ascending
1370 end function
1371#endif
1372
1373#if IK3_ENABLED
1374 PURE module function isAscendingDefCom_D1_IK3(array) result(ascending)
1375#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1376 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingDefCom_D1_IK3
1377#endif
1378 use pm_kind, only: IKG => IK3
1379 integer(IKG) , intent(in) , contiguous :: array(:)
1380 logical(LK) :: ascending
1381 end function
1382#endif
1383
1384#if IK2_ENABLED
1385 PURE module function isAscendingDefCom_D1_IK2(array) result(ascending)
1386#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1387 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingDefCom_D1_IK2
1388#endif
1389 use pm_kind, only: IKG => IK2
1390 integer(IKG) , intent(in) , contiguous :: array(:)
1391 logical(LK) :: ascending
1392 end function
1393#endif
1394
1395#if IK1_ENABLED
1396 PURE module function isAscendingDefCom_D1_IK1(array) result(ascending)
1397#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1398 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingDefCom_D1_IK1
1399#endif
1400 use pm_kind, only: IKG => IK1
1401 integer(IKG) , intent(in) , contiguous :: array(:)
1402 logical(LK) :: ascending
1403 end function
1404#endif
1405
1406 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1407
1408#if LK5_ENABLED
1409 PURE module function isAscendingDefCom_D1_LK5(array) result(ascending)
1410#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1411 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingDefCom_D1_LK5
1412#endif
1413 use pm_kind, only: LKG => LK5
1414 logical(LKG) , intent(in) , contiguous :: array(:)
1415 logical(LK) :: ascending
1416 end function
1417#endif
1418
1419#if LK4_ENABLED
1420 PURE module function isAscendingDefCom_D1_LK4(array) result(ascending)
1421#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1422 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingDefCom_D1_LK4
1423#endif
1424 use pm_kind, only: LKG => LK4
1425 logical(LKG) , intent(in) , contiguous :: array(:)
1426 logical(LK) :: ascending
1427 end function
1428#endif
1429
1430#if LK3_ENABLED
1431 PURE module function isAscendingDefCom_D1_LK3(array) result(ascending)
1432#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1433 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingDefCom_D1_LK3
1434#endif
1435 use pm_kind, only: LKG => LK3
1436 logical(LKG) , intent(in) , contiguous :: array(:)
1437 logical(LK) :: ascending
1438 end function
1439#endif
1440
1441#if LK2_ENABLED
1442 PURE module function isAscendingDefCom_D1_LK2(array) result(ascending)
1443#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1444 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingDefCom_D1_LK2
1445#endif
1446 use pm_kind, only: LKG => LK2
1447 logical(LKG) , intent(in) , contiguous :: array(:)
1448 logical(LK) :: ascending
1449 end function
1450#endif
1451
1452#if LK1_ENABLED
1453 PURE module function isAscendingDefCom_D1_LK1(array) result(ascending)
1454#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1455 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingDefCom_D1_LK1
1456#endif
1457 use pm_kind, only: LKG => LK1
1458 logical(LKG) , intent(in) , contiguous :: array(:)
1459 logical(LK) :: ascending
1460 end function
1461#endif
1462
1463 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1464
1465#if RK5_ENABLED
1466 PURE module function isAscendingDefCom_D1_RK5(array) result(ascending)
1467#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1468 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingDefCom_D1_RK5
1469#endif
1470 use pm_kind, only: RKG => RK5
1471 real(RKG) , intent(in) , contiguous :: array(:)
1472 logical(LK) :: ascending
1473 end function
1474#endif
1475
1476#if RK4_ENABLED
1477 PURE module function isAscendingDefCom_D1_RK4(array) result(ascending)
1478#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1479 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingDefCom_D1_RK4
1480#endif
1481 use pm_kind, only: RKG => RK4
1482 real(RKG) , intent(in) , contiguous :: array(:)
1483 logical(LK) :: ascending
1484 end function
1485#endif
1486
1487#if RK3_ENABLED
1488 PURE module function isAscendingDefCom_D1_RK3(array) result(ascending)
1489#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1490 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingDefCom_D1_RK3
1491#endif
1492 use pm_kind, only: RKG => RK3
1493 real(RKG) , intent(in) , contiguous :: array(:)
1494 logical(LK) :: ascending
1495 end function
1496#endif
1497
1498#if RK2_ENABLED
1499 PURE module function isAscendingDefCom_D1_RK2(array) result(ascending)
1500#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1501 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingDefCom_D1_RK2
1502#endif
1503 use pm_kind, only: RKG => RK2
1504 real(RKG) , intent(in) , contiguous :: array(:)
1505 logical(LK) :: ascending
1506 end function
1507#endif
1508
1509#if RK1_ENABLED
1510 PURE module function isAscendingDefCom_D1_RK1(array) result(ascending)
1511#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1512 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingDefCom_D1_RK1
1513#endif
1514 use pm_kind, only: RKG => RK1
1515 real(RKG) , intent(in) , contiguous :: array(:)
1516 logical(LK) :: ascending
1517 end function
1518#endif
1519
1520 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1521
1522#if CK5_ENABLED
1523 PURE module function isAscendingDefCom_D1_CK5(array) result(ascending)
1524#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1525 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingDefCom_D1_CK5
1526#endif
1527 use pm_kind, only: CKG => CK5
1528 complex(CKG) , intent(in) , contiguous :: array(:)
1529 logical(LK) :: ascending
1530 end function
1531#endif
1532
1533#if CK4_ENABLED
1534 PURE module function isAscendingDefCom_D1_CK4(array) result(ascending)
1535#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1536 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingDefCom_D1_CK4
1537#endif
1538 use pm_kind, only: CKG => CK4
1539 complex(CKG) , intent(in) , contiguous :: array(:)
1540 logical(LK) :: ascending
1541 end function
1542#endif
1543
1544#if CK3_ENABLED
1545 PURE module function isAscendingDefCom_D1_CK3(array) result(ascending)
1546#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1547 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingDefCom_D1_CK3
1548#endif
1549 use pm_kind, only: CKG => CK3
1550 complex(CKG) , intent(in) , contiguous :: array(:)
1551 logical(LK) :: ascending
1552 end function
1553#endif
1554
1555#if CK2_ENABLED
1556 PURE module function isAscendingDefCom_D1_CK2(array) result(ascending)
1557#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1558 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingDefCom_D1_CK2
1559#endif
1560 use pm_kind, only: CKG => CK2
1561 complex(CKG) , intent(in) , contiguous :: array(:)
1562 logical(LK) :: ascending
1563 end function
1564#endif
1565
1566#if CK1_ENABLED
1567 PURE module function isAscendingDefCom_D1_CK1(array) result(ascending)
1568#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1569 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingDefCom_D1_CK1
1570#endif
1571 use pm_kind, only: CKG => CK1
1572 complex(CKG) , intent(in) , contiguous :: array(:)
1573 logical(LK) :: ascending
1574 end function
1575#endif
1576
1577 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1578
1579#if PDT_ENABLED
1580
1581#if SK5_ENABLED
1582 PURE module function isAscendingDefCom_D1_PSSK5(array) result(ascending)
1583#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1584 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingDefCom_D1_PSSK5
1585#endif
1586 use pm_kind, only: SKG => SK5
1587 use pm_container, only: css_pdt
1588 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
1589 logical(LK) :: ascending
1590 end function
1591#endif
1592
1593#if SK4_ENABLED
1594 PURE module function isAscendingDefCom_D1_PSSK4(array) result(ascending)
1595#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1596 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingDefCom_D1_PSSK4
1597#endif
1598 use pm_kind, only: SKG => SK4
1599 use pm_container, only: css_pdt
1600 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
1601 logical(LK) :: ascending
1602 end function
1603#endif
1604
1605#if SK3_ENABLED
1606 PURE module function isAscendingDefCom_D1_PSSK3(array) result(ascending)
1607#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1608 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingDefCom_D1_PSSK3
1609#endif
1610 use pm_kind, only: SKG => SK3
1611 use pm_container, only: css_pdt
1612 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
1613 logical(LK) :: ascending
1614 end function
1615#endif
1616
1617#if SK2_ENABLED
1618 PURE module function isAscendingDefCom_D1_PSSK2(array) result(ascending)
1619#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1620 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingDefCom_D1_PSSK2
1621#endif
1622 use pm_kind, only: SKG => SK2
1623 use pm_container, only: css_pdt
1624 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
1625 logical(LK) :: ascending
1626 end function
1627#endif
1628
1629#if SK1_ENABLED
1630 PURE module function isAscendingDefCom_D1_PSSK1(array) result(ascending)
1631#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1632 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingDefCom_D1_PSSK1
1633#endif
1634 use pm_kind, only: SKG => SK1
1635 use pm_container, only: css_pdt
1636 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
1637 logical(LK) :: ascending
1638 end function
1639#endif
1640
1641#endif
1642!PDT_ENABLED
1643
1644 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1645
1646 PURE module function isAscendingDefCom_D1_BSSK(array) result(ascending)
1647#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1648 !DEC$ ATTRIBUTES DLLEXPORT :: isAscendingDefCom_D1_BSSK
1649#endif
1650 use pm_kind, only: SKG => SK
1651 use pm_container, only: css_type
1652 type(css_type) , intent(in) , contiguous :: array(:)
1653 logical(LK) :: ascending
1654 end function
1655
1656 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1657
1658 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1659 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1660 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1661
1662 end interface
1663
1664!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1665
1725
1726 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1727 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1728 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1729
1730 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1731
1732#if SK5_ENABLED
1733 PURE module function isDescendingDefCom_D0_SK5(array) result(descending)
1734#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1735 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingDefCom_D0_SK5
1736#endif
1737 use pm_kind, only: SKG => SK5
1738 character(*,SKG) , intent(in) :: array
1739 logical(LK) :: descending
1740 end function
1741#endif
1742
1743#if SK4_ENABLED
1744 PURE module function isDescendingDefCom_D0_SK4(array) result(descending)
1745#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1746 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingDefCom_D0_SK4
1747#endif
1748 use pm_kind, only: SKG => SK4
1749 character(*,SKG) , intent(in) :: array
1750 logical(LK) :: descending
1751 end function
1752#endif
1753
1754#if SK3_ENABLED
1755 PURE module function isDescendingDefCom_D0_SK3(array) result(descending)
1756#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1757 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingDefCom_D0_SK3
1758#endif
1759 use pm_kind, only: SKG => SK3
1760 character(*,SKG) , intent(in) :: array
1761 logical(LK) :: descending
1762 end function
1763#endif
1764
1765#if SK2_ENABLED
1766 PURE module function isDescendingDefCom_D0_SK2(array) result(descending)
1767#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1768 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingDefCom_D0_SK2
1769#endif
1770 use pm_kind, only: SKG => SK2
1771 character(*,SKG) , intent(in) :: array
1772 logical(LK) :: descending
1773 end function
1774#endif
1775
1776#if SK1_ENABLED
1777 PURE module function isDescendingDefCom_D0_SK1(array) result(descending)
1778#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1779 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingDefCom_D0_SK1
1780#endif
1781 use pm_kind, only: SKG => SK1
1782 character(*,SKG) , intent(in) :: array
1783 logical(LK) :: descending
1784 end function
1785#endif
1786
1787 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1788
1789#if SK5_ENABLED
1790 PURE module function isDescendingDefCom_D1_SK5(array) result(descending)
1791#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1792 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingDefCom_D1_SK5
1793#endif
1794 use pm_kind, only: SKG => SK5
1795 character(*,SKG) , intent(in) , contiguous :: array(:)
1796 logical(LK) :: descending
1797 end function
1798#endif
1799
1800#if SK4_ENABLED
1801 PURE module function isDescendingDefCom_D1_SK4(array) result(descending)
1802#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1803 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingDefCom_D1_SK4
1804#endif
1805 use pm_kind, only: SKG => SK4
1806 character(*,SKG) , intent(in) , contiguous :: array(:)
1807 logical(LK) :: descending
1808 end function
1809#endif
1810
1811#if SK3_ENABLED
1812 PURE module function isDescendingDefCom_D1_SK3(array) result(descending)
1813#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1814 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingDefCom_D1_SK3
1815#endif
1816 use pm_kind, only: SKG => SK3
1817 character(*,SKG) , intent(in) , contiguous :: array(:)
1818 logical(LK) :: descending
1819 end function
1820#endif
1821
1822#if SK2_ENABLED
1823 PURE module function isDescendingDefCom_D1_SK2(array) result(descending)
1824#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1825 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingDefCom_D1_SK2
1826#endif
1827 use pm_kind, only: SKG => SK2
1828 character(*,SKG) , intent(in) , contiguous :: array(:)
1829 logical(LK) :: descending
1830 end function
1831#endif
1832
1833#if SK1_ENABLED
1834 PURE module function isDescendingDefCom_D1_SK1(array) result(descending)
1835#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1836 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingDefCom_D1_SK1
1837#endif
1838 use pm_kind, only: SKG => SK1
1839 character(*,SKG) , intent(in) , contiguous :: array(:)
1840 logical(LK) :: descending
1841 end function
1842#endif
1843
1844 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1845
1846#if IK5_ENABLED
1847 PURE module function isDescendingDefCom_D1_IK5(array) result(descending)
1848#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1849 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingDefCom_D1_IK5
1850#endif
1851 use pm_kind, only: IKG => IK5
1852 integer(IKG) , intent(in) , contiguous :: array(:)
1853 logical(LK) :: descending
1854 end function
1855#endif
1856
1857#if IK4_ENABLED
1858 PURE module function isDescendingDefCom_D1_IK4(array) result(descending)
1859#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1860 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingDefCom_D1_IK4
1861#endif
1862 use pm_kind, only: IKG => IK4
1863 integer(IKG) , intent(in) , contiguous :: array(:)
1864 logical(LK) :: descending
1865 end function
1866#endif
1867
1868#if IK3_ENABLED
1869 PURE module function isDescendingDefCom_D1_IK3(array) result(descending)
1870#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1871 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingDefCom_D1_IK3
1872#endif
1873 use pm_kind, only: IKG => IK3
1874 integer(IKG) , intent(in) , contiguous :: array(:)
1875 logical(LK) :: descending
1876 end function
1877#endif
1878
1879#if IK2_ENABLED
1880 PURE module function isDescendingDefCom_D1_IK2(array) result(descending)
1881#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1882 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingDefCom_D1_IK2
1883#endif
1884 use pm_kind, only: IKG => IK2
1885 integer(IKG) , intent(in) , contiguous :: array(:)
1886 logical(LK) :: descending
1887 end function
1888#endif
1889
1890#if IK1_ENABLED
1891 PURE module function isDescendingDefCom_D1_IK1(array) result(descending)
1892#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1893 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingDefCom_D1_IK1
1894#endif
1895 use pm_kind, only: IKG => IK1
1896 integer(IKG) , intent(in) , contiguous :: array(:)
1897 logical(LK) :: descending
1898 end function
1899#endif
1900
1901 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1902
1903#if LK5_ENABLED
1904 PURE module function isDescendingDefCom_D1_LK5(array) result(descending)
1905#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1906 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingDefCom_D1_LK5
1907#endif
1908 use pm_kind, only: LKG => LK5
1909 logical(LKG) , intent(in) , contiguous :: array(:)
1910 logical(LK) :: descending
1911 end function
1912#endif
1913
1914#if LK4_ENABLED
1915 PURE module function isDescendingDefCom_D1_LK4(array) result(descending)
1916#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1917 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingDefCom_D1_LK4
1918#endif
1919 use pm_kind, only: LKG => LK4
1920 logical(LKG) , intent(in) , contiguous :: array(:)
1921 logical(LK) :: descending
1922 end function
1923#endif
1924
1925#if LK3_ENABLED
1926 PURE module function isDescendingDefCom_D1_LK3(array) result(descending)
1927#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1928 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingDefCom_D1_LK3
1929#endif
1930 use pm_kind, only: LKG => LK3
1931 logical(LKG) , intent(in) , contiguous :: array(:)
1932 logical(LK) :: descending
1933 end function
1934#endif
1935
1936#if LK2_ENABLED
1937 PURE module function isDescendingDefCom_D1_LK2(array) result(descending)
1938#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1939 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingDefCom_D1_LK2
1940#endif
1941 use pm_kind, only: LKG => LK2
1942 logical(LKG) , intent(in) , contiguous :: array(:)
1943 logical(LK) :: descending
1944 end function
1945#endif
1946
1947#if LK1_ENABLED
1948 PURE module function isDescendingDefCom_D1_LK1(array) result(descending)
1949#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1950 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingDefCom_D1_LK1
1951#endif
1952 use pm_kind, only: LKG => LK1
1953 logical(LKG) , intent(in) , contiguous :: array(:)
1954 logical(LK) :: descending
1955 end function
1956#endif
1957
1958 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1959
1960#if RK5_ENABLED
1961 PURE module function isDescendingDefCom_D1_RK5(array) result(descending)
1962#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1963 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingDefCom_D1_RK5
1964#endif
1965 use pm_kind, only: RKG => RK5
1966 real(RKG) , intent(in) , contiguous :: array(:)
1967 logical(LK) :: descending
1968 end function
1969#endif
1970
1971#if RK4_ENABLED
1972 PURE module function isDescendingDefCom_D1_RK4(array) result(descending)
1973#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1974 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingDefCom_D1_RK4
1975#endif
1976 use pm_kind, only: RKG => RK4
1977 real(RKG) , intent(in) , contiguous :: array(:)
1978 logical(LK) :: descending
1979 end function
1980#endif
1981
1982#if RK3_ENABLED
1983 PURE module function isDescendingDefCom_D1_RK3(array) result(descending)
1984#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1985 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingDefCom_D1_RK3
1986#endif
1987 use pm_kind, only: RKG => RK3
1988 real(RKG) , intent(in) , contiguous :: array(:)
1989 logical(LK) :: descending
1990 end function
1991#endif
1992
1993#if RK2_ENABLED
1994 PURE module function isDescendingDefCom_D1_RK2(array) result(descending)
1995#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1996 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingDefCom_D1_RK2
1997#endif
1998 use pm_kind, only: RKG => RK2
1999 real(RKG) , intent(in) , contiguous :: array(:)
2000 logical(LK) :: descending
2001 end function
2002#endif
2003
2004#if RK1_ENABLED
2005 PURE module function isDescendingDefCom_D1_RK1(array) result(descending)
2006#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2007 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingDefCom_D1_RK1
2008#endif
2009 use pm_kind, only: RKG => RK1
2010 real(RKG) , intent(in) , contiguous :: array(:)
2011 logical(LK) :: descending
2012 end function
2013#endif
2014
2015 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2016
2017#if CK5_ENABLED
2018 PURE module function isDescendingDefCom_D1_CK5(array) result(descending)
2019#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2020 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingDefCom_D1_CK5
2021#endif
2022 use pm_kind, only: CKG => CK5
2023 complex(CKG) , intent(in) , contiguous :: array(:)
2024 logical(LK) :: descending
2025 end function
2026#endif
2027
2028#if CK4_ENABLED
2029 PURE module function isDescendingDefCom_D1_CK4(array) result(descending)
2030#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2031 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingDefCom_D1_CK4
2032#endif
2033 use pm_kind, only: CKG => CK4
2034 complex(CKG) , intent(in) , contiguous :: array(:)
2035 logical(LK) :: descending
2036 end function
2037#endif
2038
2039#if CK3_ENABLED
2040 PURE module function isDescendingDefCom_D1_CK3(array) result(descending)
2041#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2042 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingDefCom_D1_CK3
2043#endif
2044 use pm_kind, only: CKG => CK3
2045 complex(CKG) , intent(in) , contiguous :: array(:)
2046 logical(LK) :: descending
2047 end function
2048#endif
2049
2050#if CK2_ENABLED
2051 PURE module function isDescendingDefCom_D1_CK2(array) result(descending)
2052#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2053 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingDefCom_D1_CK2
2054#endif
2055 use pm_kind, only: CKG => CK2
2056 complex(CKG) , intent(in) , contiguous :: array(:)
2057 logical(LK) :: descending
2058 end function
2059#endif
2060
2061#if CK1_ENABLED
2062 PURE module function isDescendingDefCom_D1_CK1(array) result(descending)
2063#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2064 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingDefCom_D1_CK1
2065#endif
2066 use pm_kind, only: CKG => CK1
2067 complex(CKG) , intent(in) , contiguous :: array(:)
2068 logical(LK) :: descending
2069 end function
2070#endif
2071
2072 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2073
2074#if PDT_ENABLED
2075
2076#if SK5_ENABLED
2077 PURE module function isDescendingDefCom_D1_PSSK5(array) result(descending)
2078#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2079 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingDefCom_D1_PSSK5
2080#endif
2081 use pm_kind, only: SKG => SK5
2082 use pm_container, only: css_pdt
2083 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
2084 logical(LK) :: descending
2085 end function
2086#endif
2087
2088#if SK4_ENABLED
2089 PURE module function isDescendingDefCom_D1_PSSK4(array) result(descending)
2090#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2091 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingDefCom_D1_PSSK4
2092#endif
2093 use pm_kind, only: SKG => SK4
2094 use pm_container, only: css_pdt
2095 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
2096 logical(LK) :: descending
2097 end function
2098#endif
2099
2100#if SK3_ENABLED
2101 PURE module function isDescendingDefCom_D1_PSSK3(array) result(descending)
2102#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2103 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingDefCom_D1_PSSK3
2104#endif
2105 use pm_kind, only: SKG => SK3
2106 use pm_container, only: css_pdt
2107 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
2108 logical(LK) :: descending
2109 end function
2110#endif
2111
2112#if SK2_ENABLED
2113 PURE module function isDescendingDefCom_D1_PSSK2(array) result(descending)
2114#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2115 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingDefCom_D1_PSSK2
2116#endif
2117 use pm_kind, only: SKG => SK2
2118 use pm_container, only: css_pdt
2119 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
2120 logical(LK) :: descending
2121 end function
2122#endif
2123
2124#if SK1_ENABLED
2125 PURE module function isDescendingDefCom_D1_PSSK1(array) result(descending)
2126#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2127 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingDefCom_D1_PSSK1
2128#endif
2129 use pm_kind, only: SKG => SK1
2130 use pm_container, only: css_pdt
2131 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
2132 logical(LK) :: descending
2133 end function
2134#endif
2135
2136#endif
2137!PDT_ENABLED
2138
2139 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2140
2141 PURE module function isDescendingDefCom_D1_BSSK(array) result(descending)
2142#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2143 !DEC$ ATTRIBUTES DLLEXPORT :: isDescendingDefCom_D1_BSSK
2144#endif
2145 use pm_kind, only: SKG => SK
2146 use pm_container, only: css_type
2147 type(css_type) , intent(in) , contiguous :: array(:)
2148 logical(LK) :: descending
2149 end function
2150
2151 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2152
2153 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2154 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2155 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2156
2157 end interface
2158
2159!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2160
2251 interface isSorted
2252
2253 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2254 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2255 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2256
2257 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2258
2259#if SK5_ENABLED
2260 PURE module function isSortedDefCom_D0_SK5(array) result(sorted)
2261#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2262 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedDefCom_D0_SK5
2263#endif
2264 use pm_kind, only: SKG => SK5
2265 character(*,SKG) , intent(in) :: array
2266 logical(LK) :: sorted
2267 end function
2268#endif
2269
2270#if SK4_ENABLED
2271 PURE module function isSortedDefCom_D0_SK4(array) result(sorted)
2272#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2273 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedDefCom_D0_SK4
2274#endif
2275 use pm_kind, only: SKG => SK4
2276 character(*,SKG) , intent(in) :: array
2277 logical(LK) :: sorted
2278 end function
2279#endif
2280
2281#if SK3_ENABLED
2282 PURE module function isSortedDefCom_D0_SK3(array) result(sorted)
2283#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2284 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedDefCom_D0_SK3
2285#endif
2286 use pm_kind, only: SKG => SK3
2287 character(*,SKG) , intent(in) :: array
2288 logical(LK) :: sorted
2289 end function
2290#endif
2291
2292#if SK2_ENABLED
2293 PURE module function isSortedDefCom_D0_SK2(array) result(sorted)
2294#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2295 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedDefCom_D0_SK2
2296#endif
2297 use pm_kind, only: SKG => SK2
2298 character(*,SKG) , intent(in) :: array
2299 logical(LK) :: sorted
2300 end function
2301#endif
2302
2303#if SK1_ENABLED
2304 PURE module function isSortedDefCom_D0_SK1(array) result(sorted)
2305#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2306 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedDefCom_D0_SK1
2307#endif
2308 use pm_kind, only: SKG => SK1
2309 character(*,SKG) , intent(in) :: array
2310 logical(LK) :: sorted
2311 end function
2312#endif
2313
2314 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2315
2316#if SK5_ENABLED
2317 PURE module function isSortedDefCom_D1_SK5(array) result(sorted)
2318#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2319 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedDefCom_D1_SK5
2320#endif
2321 use pm_kind, only: SKG => SK5
2322 character(*,SKG) , intent(in) , contiguous :: array(:)
2323 logical(LK) :: sorted
2324 end function
2325#endif
2326
2327#if SK4_ENABLED
2328 PURE module function isSortedDefCom_D1_SK4(array) result(sorted)
2329#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2330 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedDefCom_D1_SK4
2331#endif
2332 use pm_kind, only: SKG => SK4
2333 character(*,SKG) , intent(in) , contiguous :: array(:)
2334 logical(LK) :: sorted
2335 end function
2336#endif
2337
2338#if SK3_ENABLED
2339 PURE module function isSortedDefCom_D1_SK3(array) result(sorted)
2340#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2341 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedDefCom_D1_SK3
2342#endif
2343 use pm_kind, only: SKG => SK3
2344 character(*,SKG) , intent(in) , contiguous :: array(:)
2345 logical(LK) :: sorted
2346 end function
2347#endif
2348
2349#if SK2_ENABLED
2350 PURE module function isSortedDefCom_D1_SK2(array) result(sorted)
2351#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2352 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedDefCom_D1_SK2
2353#endif
2354 use pm_kind, only: SKG => SK2
2355 character(*,SKG) , intent(in) , contiguous :: array(:)
2356 logical(LK) :: sorted
2357 end function
2358#endif
2359
2360#if SK1_ENABLED
2361 PURE module function isSortedDefCom_D1_SK1(array) result(sorted)
2362#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2363 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedDefCom_D1_SK1
2364#endif
2365 use pm_kind, only: SKG => SK1
2366 character(*,SKG) , intent(in) , contiguous :: array(:)
2367 logical(LK) :: sorted
2368 end function
2369#endif
2370
2371 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2372
2373#if IK5_ENABLED
2374 PURE module function isSortedDefCom_D1_IK5(array) result(sorted)
2375#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2376 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedDefCom_D1_IK5
2377#endif
2378 use pm_kind, only: IKG => IK5
2379 integer(IKG) , intent(in) , contiguous :: array(:)
2380 logical(LK) :: sorted
2381 end function
2382#endif
2383
2384#if IK4_ENABLED
2385 PURE module function isSortedDefCom_D1_IK4(array) result(sorted)
2386#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2387 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedDefCom_D1_IK4
2388#endif
2389 use pm_kind, only: IKG => IK4
2390 integer(IKG) , intent(in) , contiguous :: array(:)
2391 logical(LK) :: sorted
2392 end function
2393#endif
2394
2395#if IK3_ENABLED
2396 PURE module function isSortedDefCom_D1_IK3(array) result(sorted)
2397#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2398 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedDefCom_D1_IK3
2399#endif
2400 use pm_kind, only: IKG => IK3
2401 integer(IKG) , intent(in) , contiguous :: array(:)
2402 logical(LK) :: sorted
2403 end function
2404#endif
2405
2406#if IK2_ENABLED
2407 PURE module function isSortedDefCom_D1_IK2(array) result(sorted)
2408#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2409 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedDefCom_D1_IK2
2410#endif
2411 use pm_kind, only: IKG => IK2
2412 integer(IKG) , intent(in) , contiguous :: array(:)
2413 logical(LK) :: sorted
2414 end function
2415#endif
2416
2417#if IK1_ENABLED
2418 PURE module function isSortedDefCom_D1_IK1(array) result(sorted)
2419#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2420 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedDefCom_D1_IK1
2421#endif
2422 use pm_kind, only: IKG => IK1
2423 integer(IKG) , intent(in) , contiguous :: array(:)
2424 logical(LK) :: sorted
2425 end function
2426#endif
2427
2428 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2429
2430#if LK5_ENABLED
2431 PURE module function isSortedDefCom_D1_LK5(array) result(sorted)
2432#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2433 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedDefCom_D1_LK5
2434#endif
2435 use pm_kind, only: LKG => LK5
2436 logical(LKG) , intent(in) , contiguous :: array(:)
2437 logical(LK) :: sorted
2438 end function
2439#endif
2440
2441#if LK4_ENABLED
2442 PURE module function isSortedDefCom_D1_LK4(array) result(sorted)
2443#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2444 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedDefCom_D1_LK4
2445#endif
2446 use pm_kind, only: LKG => LK4
2447 logical(LKG) , intent(in) , contiguous :: array(:)
2448 logical(LK) :: sorted
2449 end function
2450#endif
2451
2452#if LK3_ENABLED
2453 PURE module function isSortedDefCom_D1_LK3(array) result(sorted)
2454#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2455 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedDefCom_D1_LK3
2456#endif
2457 use pm_kind, only: LKG => LK3
2458 logical(LKG) , intent(in) , contiguous :: array(:)
2459 logical(LK) :: sorted
2460 end function
2461#endif
2462
2463#if LK2_ENABLED
2464 PURE module function isSortedDefCom_D1_LK2(array) result(sorted)
2465#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2466 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedDefCom_D1_LK2
2467#endif
2468 use pm_kind, only: LKG => LK2
2469 logical(LKG) , intent(in) , contiguous :: array(:)
2470 logical(LK) :: sorted
2471 end function
2472#endif
2473
2474#if LK1_ENABLED
2475 PURE module function isSortedDefCom_D1_LK1(array) result(sorted)
2476#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2477 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedDefCom_D1_LK1
2478#endif
2479 use pm_kind, only: LKG => LK1
2480 logical(LKG) , intent(in) , contiguous :: array(:)
2481 logical(LK) :: sorted
2482 end function
2483#endif
2484
2485 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2486
2487#if RK5_ENABLED
2488 PURE module function isSortedDefCom_D1_RK5(array) result(sorted)
2489#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2490 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedDefCom_D1_RK5
2491#endif
2492 use pm_kind, only: RKG => RK5
2493 real(RKG) , intent(in) , contiguous :: array(:)
2494 logical(LK) :: sorted
2495 end function
2496#endif
2497
2498#if RK4_ENABLED
2499 PURE module function isSortedDefCom_D1_RK4(array) result(sorted)
2500#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2501 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedDefCom_D1_RK4
2502#endif
2503 use pm_kind, only: RKG => RK4
2504 real(RKG) , intent(in) , contiguous :: array(:)
2505 logical(LK) :: sorted
2506 end function
2507#endif
2508
2509#if RK3_ENABLED
2510 PURE module function isSortedDefCom_D1_RK3(array) result(sorted)
2511#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2512 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedDefCom_D1_RK3
2513#endif
2514 use pm_kind, only: RKG => RK3
2515 real(RKG) , intent(in) , contiguous :: array(:)
2516 logical(LK) :: sorted
2517 end function
2518#endif
2519
2520#if RK2_ENABLED
2521 PURE module function isSortedDefCom_D1_RK2(array) result(sorted)
2522#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2523 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedDefCom_D1_RK2
2524#endif
2525 use pm_kind, only: RKG => RK2
2526 real(RKG) , intent(in) , contiguous :: array(:)
2527 logical(LK) :: sorted
2528 end function
2529#endif
2530
2531#if RK1_ENABLED
2532 PURE module function isSortedDefCom_D1_RK1(array) result(sorted)
2533#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2534 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedDefCom_D1_RK1
2535#endif
2536 use pm_kind, only: RKG => RK1
2537 real(RKG) , intent(in) , contiguous :: array(:)
2538 logical(LK) :: sorted
2539 end function
2540#endif
2541
2542 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2543
2544#if CK5_ENABLED
2545 PURE module function isSortedDefCom_D1_CK5(array) result(sorted)
2546#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2547 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedDefCom_D1_CK5
2548#endif
2549 use pm_kind, only: CKG => CK5
2550 complex(CKG) , intent(in) , contiguous :: array(:)
2551 logical(LK) :: sorted
2552 end function
2553#endif
2554
2555#if CK4_ENABLED
2556 PURE module function isSortedDefCom_D1_CK4(array) result(sorted)
2557#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2558 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedDefCom_D1_CK4
2559#endif
2560 use pm_kind, only: CKG => CK4
2561 complex(CKG) , intent(in) , contiguous :: array(:)
2562 logical(LK) :: sorted
2563 end function
2564#endif
2565
2566#if CK3_ENABLED
2567 PURE module function isSortedDefCom_D1_CK3(array) result(sorted)
2568#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2569 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedDefCom_D1_CK3
2570#endif
2571 use pm_kind, only: CKG => CK3
2572 complex(CKG) , intent(in) , contiguous :: array(:)
2573 logical(LK) :: sorted
2574 end function
2575#endif
2576
2577#if CK2_ENABLED
2578 PURE module function isSortedDefCom_D1_CK2(array) result(sorted)
2579#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2580 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedDefCom_D1_CK2
2581#endif
2582 use pm_kind, only: CKG => CK2
2583 complex(CKG) , intent(in) , contiguous :: array(:)
2584 logical(LK) :: sorted
2585 end function
2586#endif
2587
2588#if CK1_ENABLED
2589 PURE module function isSortedDefCom_D1_CK1(array) result(sorted)
2590#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2591 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedDefCom_D1_CK1
2592#endif
2593 use pm_kind, only: CKG => CK1
2594 complex(CKG) , intent(in) , contiguous :: array(:)
2595 logical(LK) :: sorted
2596 end function
2597#endif
2598
2599 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2600
2601#if PDT_ENABLED
2602
2603#if SK5_ENABLED
2604 PURE module function isSortedDefCom_D1_PSSK5(array) result(sorted)
2605#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2606 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedDefCom_D1_PSSK5
2607#endif
2608 use pm_kind, only: SKG => SK5
2609 use pm_container, only: css_pdt
2610 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
2611 logical(LK) :: sorted
2612 end function
2613#endif
2614
2615#if SK4_ENABLED
2616 PURE module function isSortedDefCom_D1_PSSK4(array) result(sorted)
2617#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2618 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedDefCom_D1_PSSK4
2619#endif
2620 use pm_kind, only: SKG => SK4
2621 use pm_container, only: css_pdt
2622 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
2623 logical(LK) :: sorted
2624 end function
2625#endif
2626
2627#if SK3_ENABLED
2628 PURE module function isSortedDefCom_D1_PSSK3(array) result(sorted)
2629#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2630 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedDefCom_D1_PSSK3
2631#endif
2632 use pm_kind, only: SKG => SK3
2633 use pm_container, only: css_pdt
2634 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
2635 logical(LK) :: sorted
2636 end function
2637#endif
2638
2639#if SK2_ENABLED
2640 PURE module function isSortedDefCom_D1_PSSK2(array) result(sorted)
2641#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2642 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedDefCom_D1_PSSK2
2643#endif
2644 use pm_kind, only: SKG => SK2
2645 use pm_container, only: css_pdt
2646 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
2647 logical(LK) :: sorted
2648 end function
2649#endif
2650
2651#if SK1_ENABLED
2652 PURE module function isSortedDefCom_D1_PSSK1(array) result(sorted)
2653#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2654 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedDefCom_D1_PSSK1
2655#endif
2656 use pm_kind, only: SKG => SK1
2657 use pm_container, only: css_pdt
2658 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
2659 logical(LK) :: sorted
2660 end function
2661#endif
2662
2663#endif
2664!PDT_ENABLED
2665
2666 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2667
2668 PURE module function isSortedDefCom_D1_BSSK(array) result(sorted)
2669#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2670 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedDefCom_D1_BSSK
2671#endif
2672 use pm_kind, only: SKG => SK
2673 use pm_container, only: css_type
2674 type(css_type) , intent(in) , contiguous :: array(:)
2675 logical(LK) :: sorted
2676 end function
2677
2678 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2679
2680 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2681 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2682 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2683
2684 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2685
2686#if SK5_ENABLED
2687 module function isSortedCusCom_D0_SK5(array, isSorted) result(sorted)
2688#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2689 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedCusCom_D0_SK5
2690#endif
2691 use pm_kind, only: SKG => SK5
2692 character(*,SKG) , intent(in) :: array
2693 procedure(logical(LK)) :: isSorted
2694 logical(LK) :: sorted
2695 end function
2696#endif
2697
2698#if SK4_ENABLED
2699 module function isSortedCusCom_D0_SK4(array, isSorted) result(sorted)
2700#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2701 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedCusCom_D0_SK4
2702#endif
2703 use pm_kind, only: SKG => SK4
2704 character(*,SKG) , intent(in) :: array
2705 procedure(logical(LK)) :: isSorted
2706 logical(LK) :: sorted
2707 end function
2708#endif
2709
2710#if SK3_ENABLED
2711 module function isSortedCusCom_D0_SK3(array, isSorted) result(sorted)
2712#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2713 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedCusCom_D0_SK3
2714#endif
2715 use pm_kind, only: SKG => SK3
2716 character(*,SKG) , intent(in) :: array
2717 procedure(logical(LK)) :: isSorted
2718 logical(LK) :: sorted
2719 end function
2720#endif
2721
2722#if SK2_ENABLED
2723 module function isSortedCusCom_D0_SK2(array, isSorted) result(sorted)
2724#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2725 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedCusCom_D0_SK2
2726#endif
2727 use pm_kind, only: SKG => SK2
2728 character(*,SKG) , intent(in) :: array
2729 procedure(logical(LK)) :: isSorted
2730 logical(LK) :: sorted
2731 end function
2732#endif
2733
2734#if SK1_ENABLED
2735 module function isSortedCusCom_D0_SK1(array, isSorted) result(sorted)
2736#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2737 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedCusCom_D0_SK1
2738#endif
2739 use pm_kind, only: SKG => SK1
2740 character(*,SKG) , intent(in) :: array
2741 procedure(logical(LK)) :: isSorted
2742 logical(LK) :: sorted
2743 end function
2744#endif
2745
2746 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2747
2748#if SK5_ENABLED
2749 module function isSortedCusCom_D1_SK5(array, isSorted) result(sorted)
2750#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2751 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedCusCom_D1_SK5
2752#endif
2753 use pm_kind, only: SKG => SK5
2754 character(*,SKG) , intent(in) , contiguous :: array(:)
2755 procedure(logical(LK)) :: isSorted
2756 logical(LK) :: sorted
2757 end function
2758#endif
2759
2760#if SK4_ENABLED
2761 module function isSortedCusCom_D1_SK4(array, isSorted) result(sorted)
2762#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2763 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedCusCom_D1_SK4
2764#endif
2765 use pm_kind, only: SKG => SK4
2766 character(*,SKG) , intent(in) , contiguous :: array(:)
2767 procedure(logical(LK)) :: isSorted
2768 logical(LK) :: sorted
2769 end function
2770#endif
2771
2772#if SK3_ENABLED
2773 module function isSortedCusCom_D1_SK3(array, isSorted) result(sorted)
2774#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2775 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedCusCom_D1_SK3
2776#endif
2777 use pm_kind, only: SKG => SK3
2778 character(*,SKG) , intent(in) , contiguous :: array(:)
2779 procedure(logical(LK)) :: isSorted
2780 logical(LK) :: sorted
2781 end function
2782#endif
2783
2784#if SK2_ENABLED
2785 module function isSortedCusCom_D1_SK2(array, isSorted) result(sorted)
2786#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2787 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedCusCom_D1_SK2
2788#endif
2789 use pm_kind, only: SKG => SK2
2790 character(*,SKG) , intent(in) , contiguous :: array(:)
2791 procedure(logical(LK)) :: isSorted
2792 logical(LK) :: sorted
2793 end function
2794#endif
2795
2796#if SK1_ENABLED
2797 module function isSortedCusCom_D1_SK1(array, isSorted) result(sorted)
2798#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2799 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedCusCom_D1_SK1
2800#endif
2801 use pm_kind, only: SKG => SK1
2802 character(*,SKG) , intent(in) , contiguous :: array(:)
2803 procedure(logical(LK)) :: isSorted
2804 logical(LK) :: sorted
2805 end function
2806#endif
2807
2808 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2809
2810#if IK5_ENABLED
2811 module function isSortedCusCom_D1_IK5(array, isSorted) result(sorted)
2812#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2813 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedCusCom_D1_IK5
2814#endif
2815 use pm_kind, only: IKG => IK5
2816 integer(IKG) , intent(in) , contiguous :: array(:)
2817 procedure(logical(LK)) :: isSorted
2818 logical(LK) :: sorted
2819 end function
2820#endif
2821
2822#if IK4_ENABLED
2823 module function isSortedCusCom_D1_IK4(array, isSorted) result(sorted)
2824#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2825 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedCusCom_D1_IK4
2826#endif
2827 use pm_kind, only: IKG => IK4
2828 integer(IKG) , intent(in) , contiguous :: array(:)
2829 procedure(logical(LK)) :: isSorted
2830 logical(LK) :: sorted
2831 end function
2832#endif
2833
2834#if IK3_ENABLED
2835 module function isSortedCusCom_D1_IK3(array, isSorted) result(sorted)
2836#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2837 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedCusCom_D1_IK3
2838#endif
2839 use pm_kind, only: IKG => IK3
2840 integer(IKG) , intent(in) , contiguous :: array(:)
2841 procedure(logical(LK)) :: isSorted
2842 logical(LK) :: sorted
2843 end function
2844#endif
2845
2846#if IK2_ENABLED
2847 module function isSortedCusCom_D1_IK2(array, isSorted) result(sorted)
2848#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2849 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedCusCom_D1_IK2
2850#endif
2851 use pm_kind, only: IKG => IK2
2852 integer(IKG) , intent(in) , contiguous :: array(:)
2853 procedure(logical(LK)) :: isSorted
2854 logical(LK) :: sorted
2855 end function
2856#endif
2857
2858#if IK1_ENABLED
2859 module function isSortedCusCom_D1_IK1(array, isSorted) result(sorted)
2860#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2861 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedCusCom_D1_IK1
2862#endif
2863 use pm_kind, only: IKG => IK1
2864 integer(IKG) , intent(in) , contiguous :: array(:)
2865 procedure(logical(LK)) :: isSorted
2866 logical(LK) :: sorted
2867 end function
2868#endif
2869
2870 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2871
2872#if LK5_ENABLED
2873 module function isSortedCusCom_D1_LK5(array, isSorted) result(sorted)
2874#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2875 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedCusCom_D1_LK5
2876#endif
2877 use pm_kind, only: LKG => LK5
2878 logical(LKG) , intent(in) , contiguous :: array(:)
2879 procedure(logical(LK)) :: isSorted
2880 logical(LK) :: sorted
2881 end function
2882#endif
2883
2884#if LK4_ENABLED
2885 module function isSortedCusCom_D1_LK4(array, isSorted) result(sorted)
2886#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2887 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedCusCom_D1_LK4
2888#endif
2889 use pm_kind, only: LKG => LK4
2890 logical(LKG) , intent(in) , contiguous :: array(:)
2891 procedure(logical(LK)) :: isSorted
2892 logical(LK) :: sorted
2893 end function
2894#endif
2895
2896#if LK3_ENABLED
2897 module function isSortedCusCom_D1_LK3(array, isSorted) result(sorted)
2898#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2899 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedCusCom_D1_LK3
2900#endif
2901 use pm_kind, only: LKG => LK3
2902 logical(LKG) , intent(in) , contiguous :: array(:)
2903 procedure(logical(LK)) :: isSorted
2904 logical(LK) :: sorted
2905 end function
2906#endif
2907
2908#if LK2_ENABLED
2909 module function isSortedCusCom_D1_LK2(array, isSorted) result(sorted)
2910#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2911 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedCusCom_D1_LK2
2912#endif
2913 use pm_kind, only: LKG => LK2
2914 logical(LKG) , intent(in) , contiguous :: array(:)
2915 procedure(logical(LK)) :: isSorted
2916 logical(LK) :: sorted
2917 end function
2918#endif
2919
2920#if LK1_ENABLED
2921 module function isSortedCusCom_D1_LK1(array, isSorted) result(sorted)
2922#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2923 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedCusCom_D1_LK1
2924#endif
2925 use pm_kind, only: LKG => LK1
2926 logical(LKG) , intent(in) , contiguous :: array(:)
2927 procedure(logical(LK)) :: isSorted
2928 logical(LK) :: sorted
2929 end function
2930#endif
2931
2932 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2933
2934#if RK5_ENABLED
2935 module function isSortedCusCom_D1_RK5(array, isSorted) result(sorted)
2936#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2937 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedCusCom_D1_RK5
2938#endif
2939 use pm_kind, only: RKG => RK5
2940 real(RKG) , intent(in) , contiguous :: array(:)
2941 procedure(logical(LK)) :: isSorted
2942 logical(LK) :: sorted
2943 end function
2944#endif
2945
2946#if RK4_ENABLED
2947 module function isSortedCusCom_D1_RK4(array, isSorted) result(sorted)
2948#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2949 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedCusCom_D1_RK4
2950#endif
2951 use pm_kind, only: RKG => RK4
2952 real(RKG) , intent(in) , contiguous :: array(:)
2953 procedure(logical(LK)) :: isSorted
2954 logical(LK) :: sorted
2955 end function
2956#endif
2957
2958#if RK3_ENABLED
2959 module function isSortedCusCom_D1_RK3(array, isSorted) result(sorted)
2960#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2961 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedCusCom_D1_RK3
2962#endif
2963 use pm_kind, only: RKG => RK3
2964 real(RKG) , intent(in) , contiguous :: array(:)
2965 procedure(logical(LK)) :: isSorted
2966 logical(LK) :: sorted
2967 end function
2968#endif
2969
2970#if RK2_ENABLED
2971 module function isSortedCusCom_D1_RK2(array, isSorted) result(sorted)
2972#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2973 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedCusCom_D1_RK2
2974#endif
2975 use pm_kind, only: RKG => RK2
2976 real(RKG) , intent(in) , contiguous :: array(:)
2977 procedure(logical(LK)) :: isSorted
2978 logical(LK) :: sorted
2979 end function
2980#endif
2981
2982#if RK1_ENABLED
2983 module function isSortedCusCom_D1_RK1(array, isSorted) result(sorted)
2984#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2985 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedCusCom_D1_RK1
2986#endif
2987 use pm_kind, only: RKG => RK1
2988 real(RKG) , intent(in) , contiguous :: array(:)
2989 procedure(logical(LK)) :: isSorted
2990 logical(LK) :: sorted
2991 end function
2992#endif
2993
2994 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2995
2996#if CK5_ENABLED
2997 module function isSortedCusCom_D1_CK5(array, isSorted) result(sorted)
2998#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2999 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedCusCom_D1_CK5
3000#endif
3001 use pm_kind, only: CKG => CK5
3002 complex(CKG) , intent(in) , contiguous :: array(:)
3003 procedure(logical(LK)) :: isSorted
3004 logical(LK) :: sorted
3005 end function
3006#endif
3007
3008#if CK4_ENABLED
3009 module function isSortedCusCom_D1_CK4(array, isSorted) result(sorted)
3010#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3011 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedCusCom_D1_CK4
3012#endif
3013 use pm_kind, only: CKG => CK4
3014 complex(CKG) , intent(in) , contiguous :: array(:)
3015 procedure(logical(LK)) :: isSorted
3016 logical(LK) :: sorted
3017 end function
3018#endif
3019
3020#if CK3_ENABLED
3021 module function isSortedCusCom_D1_CK3(array, isSorted) result(sorted)
3022#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3023 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedCusCom_D1_CK3
3024#endif
3025 use pm_kind, only: CKG => CK3
3026 complex(CKG) , intent(in) , contiguous :: array(:)
3027 procedure(logical(LK)) :: isSorted
3028 logical(LK) :: sorted
3029 end function
3030#endif
3031
3032#if CK2_ENABLED
3033 module function isSortedCusCom_D1_CK2(array, isSorted) result(sorted)
3034#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3035 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedCusCom_D1_CK2
3036#endif
3037 use pm_kind, only: CKG => CK2
3038 complex(CKG) , intent(in) , contiguous :: array(:)
3039 procedure(logical(LK)) :: isSorted
3040 logical(LK) :: sorted
3041 end function
3042#endif
3043
3044#if CK1_ENABLED
3045 module function isSortedCusCom_D1_CK1(array, isSorted) result(sorted)
3046#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3047 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedCusCom_D1_CK1
3048#endif
3049 use pm_kind, only: CKG => CK1
3050 complex(CKG) , intent(in) , contiguous :: array(:)
3051 procedure(logical(LK)) :: isSorted
3052 logical(LK) :: sorted
3053 end function
3054#endif
3055
3056 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3057
3058#if PDT_ENABLED
3059
3060#if SK5_ENABLED
3061 module function isSortedCusCom_D1_PSSK5(array, isSorted) result(sorted)
3062#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3063 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedCusCom_D1_PSSK5
3064#endif
3065 use pm_kind, only: SKG => SK5
3066 use pm_container, only: css_pdt
3067 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
3068 procedure(logical(LK)) :: isSorted
3069 logical(LK) :: sorted
3070 end function
3071#endif
3072
3073#if SK4_ENABLED
3074 module function isSortedCusCom_D1_PSSK4(array, isSorted) result(sorted)
3075#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3076 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedCusCom_D1_PSSK4
3077#endif
3078 use pm_kind, only: SKG => SK4
3079 use pm_container, only: css_pdt
3080 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
3081 procedure(logical(LK)) :: isSorted
3082 logical(LK) :: sorted
3083 end function
3084#endif
3085
3086#if SK3_ENABLED
3087 module function isSortedCusCom_D1_PSSK3(array, isSorted) result(sorted)
3088#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3089 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedCusCom_D1_PSSK3
3090#endif
3091 use pm_kind, only: SKG => SK3
3092 use pm_container, only: css_pdt
3093 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
3094 procedure(logical(LK)) :: isSorted
3095 logical(LK) :: sorted
3096 end function
3097#endif
3098
3099#if SK2_ENABLED
3100 module function isSortedCusCom_D1_PSSK2(array, isSorted) result(sorted)
3101#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3102 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedCusCom_D1_PSSK2
3103#endif
3104 use pm_kind, only: SKG => SK2
3105 use pm_container, only: css_pdt
3106 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
3107 procedure(logical(LK)) :: isSorted
3108 logical(LK) :: sorted
3109 end function
3110#endif
3111
3112#if SK1_ENABLED
3113 module function isSortedCusCom_D1_PSSK1(array, isSorted) result(sorted)
3114#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3115 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedCusCom_D1_PSSK1
3116#endif
3117 use pm_kind, only: SKG => SK1
3118 use pm_container, only: css_pdt
3119 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
3120 procedure(logical(LK)) :: isSorted
3121 logical(LK) :: sorted
3122 end function
3123#endif
3124
3125#endif
3126!PDT_ENABLED
3127
3128 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3129
3130 module function isSortedCusCom_D1_BSSK(array, isSorted) result(sorted)
3131#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3132 !DEC$ ATTRIBUTES DLLEXPORT :: isSortedCusCom_D1_BSSK
3133#endif
3134 use pm_kind, only: SKG => SK
3135 use pm_container, only: css_type
3136 type(css_type) , intent(in) , contiguous :: array(:)
3137 procedure(logical(LK)) :: isSorted
3138 logical(LK) :: sorted
3139 end function
3140
3141 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3142
3143 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3144 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3145 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3146
3147 end interface
3148
3149!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3150
3346
3347 ! getSortedIndCusComDef
3348
3349 interface getSorted
3350
3351 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3352 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3353 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3354
3355 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3356
3357#if SK5_ENABLED
3358 module function getSortedIndCusComDef_D0_SK5(array, isSorted, method) result(sorting)
3359#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3360 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndCusComDef_D0_SK5
3361#endif
3362 use pm_kind, only: SKG => SK5
3363 character(*,SKG) , intent(in) :: array
3364 procedure(logical(LK)) :: isSorted
3365 integer(IK) :: sorting(len(array, IK))
3366 type(isort_type) , intent(in) :: method
3367 end function
3368#endif
3369
3370#if SK4_ENABLED
3371 module function getSortedIndCusComDef_D0_SK4(array, isSorted, method) result(sorting)
3372#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3373 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndCusComDef_D0_SK4
3374#endif
3375 use pm_kind, only: SKG => SK4
3376 character(*,SKG) , intent(in) :: array
3377 procedure(logical(LK)) :: isSorted
3378 integer(IK) :: sorting(len(array, IK))
3379 type(isort_type) , intent(in) :: method
3380 end function
3381#endif
3382
3383#if SK3_ENABLED
3384 module function getSortedIndCusComDef_D0_SK3(array, isSorted, method) result(sorting)
3385#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3386 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndCusComDef_D0_SK3
3387#endif
3388 use pm_kind, only: SKG => SK3
3389 character(*,SKG) , intent(in) :: array
3390 procedure(logical(LK)) :: isSorted
3391 integer(IK) :: sorting(len(array, IK))
3392 type(isort_type) , intent(in) :: method
3393 end function
3394#endif
3395
3396#if SK2_ENABLED
3397 module function getSortedIndCusComDef_D0_SK2(array, isSorted, method) result(sorting)
3398#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3399 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndCusComDef_D0_SK2
3400#endif
3401 use pm_kind, only: SKG => SK2
3402 character(*,SKG) , intent(in) :: array
3403 procedure(logical(LK)) :: isSorted
3404 integer(IK) :: sorting(len(array, IK))
3405 type(isort_type) , intent(in) :: method
3406 end function
3407#endif
3408
3409#if SK1_ENABLED
3410 module function getSortedIndCusComDef_D0_SK1(array, isSorted, method) result(sorting)
3411#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3412 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndCusComDef_D0_SK1
3413#endif
3414 use pm_kind, only: SKG => SK1
3415 character(*,SKG) , intent(in) :: array
3416 procedure(logical(LK)) :: isSorted
3417 integer(IK) :: sorting(len(array, IK))
3418 type(isort_type) , intent(in) :: method
3419 end function
3420#endif
3421
3422 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3423
3424#if SK5_ENABLED
3425 module function getSortedIndCusComDef_D1_SK5(array, isSorted, method) result(sorting)
3426#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3427 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndCusComDef_D1_SK5
3428#endif
3429 use pm_kind, only: SKG => SK5
3430 character(*,SKG) , intent(in) , contiguous :: array(:)
3431 procedure(logical(LK)) :: isSorted
3432 integer(IK) :: sorting(size(array, 1, IK))
3433 type(isort_type) , intent(in) :: method
3434 end function
3435#endif
3436
3437#if SK4_ENABLED
3438 module function getSortedIndCusComDef_D1_SK4(array, isSorted, method) result(sorting)
3439#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3440 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndCusComDef_D1_SK4
3441#endif
3442 use pm_kind, only: SKG => SK4
3443 character(*,SKG) , intent(in) , contiguous :: array(:)
3444 procedure(logical(LK)) :: isSorted
3445 integer(IK) :: sorting(size(array, 1, IK))
3446 type(isort_type) , intent(in) :: method
3447 end function
3448#endif
3449
3450#if SK3_ENABLED
3451 module function getSortedIndCusComDef_D1_SK3(array, isSorted, method) result(sorting)
3452#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3453 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndCusComDef_D1_SK3
3454#endif
3455 use pm_kind, only: SKG => SK3
3456 character(*,SKG) , intent(in) , contiguous :: array(:)
3457 procedure(logical(LK)) :: isSorted
3458 integer(IK) :: sorting(size(array, 1, IK))
3459 type(isort_type) , intent(in) :: method
3460 end function
3461#endif
3462
3463#if SK2_ENABLED
3464 module function getSortedIndCusComDef_D1_SK2(array, isSorted, method) result(sorting)
3465#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3466 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndCusComDef_D1_SK2
3467#endif
3468 use pm_kind, only: SKG => SK2
3469 character(*,SKG) , intent(in) , contiguous :: array(:)
3470 procedure(logical(LK)) :: isSorted
3471 integer(IK) :: sorting(size(array, 1, IK))
3472 type(isort_type) , intent(in) :: method
3473 end function
3474#endif
3475
3476#if SK1_ENABLED
3477 module function getSortedIndCusComDef_D1_SK1(array, isSorted, method) result(sorting)
3478#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3479 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndCusComDef_D1_SK1
3480#endif
3481 use pm_kind, only: SKG => SK1
3482 character(*,SKG) , intent(in) , contiguous :: array(:)
3483 procedure(logical(LK)) :: isSorted
3484 integer(IK) :: sorting(size(array, 1, IK))
3485 type(isort_type) , intent(in) :: method
3486 end function
3487#endif
3488
3489 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3490
3491#if IK5_ENABLED
3492 module function getSortedIndCusComDef_D1_IK5(array, isSorted, method) result(sorting)
3493#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3494 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndCusComDef_D1_IK5
3495#endif
3496 use pm_kind, only: IKG => IK5
3497 integer(IKG) , intent(in) , contiguous :: array(:)
3498 procedure(logical(LK)) :: isSorted
3499 integer(IK) :: sorting(size(array, 1, IK))
3500 type(isort_type) , intent(in) :: method
3501 end function
3502#endif
3503
3504#if IK4_ENABLED
3505 module function getSortedIndCusComDef_D1_IK4(array, isSorted, method) result(sorting)
3506#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3507 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndCusComDef_D1_IK4
3508#endif
3509 use pm_kind, only: IKG => IK4
3510 integer(IKG) , intent(in) , contiguous :: array(:)
3511 procedure(logical(LK)) :: isSorted
3512 integer(IK) :: sorting(size(array, 1, IK))
3513 type(isort_type) , intent(in) :: method
3514 end function
3515#endif
3516
3517#if IK3_ENABLED
3518 module function getSortedIndCusComDef_D1_IK3(array, isSorted, method) result(sorting)
3519#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3520 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndCusComDef_D1_IK3
3521#endif
3522 use pm_kind, only: IKG => IK3
3523 integer(IKG) , intent(in) , contiguous :: array(:)
3524 procedure(logical(LK)) :: isSorted
3525 integer(IK) :: sorting(size(array, 1, IK))
3526 type(isort_type) , intent(in) :: method
3527 end function
3528#endif
3529
3530#if IK2_ENABLED
3531 module function getSortedIndCusComDef_D1_IK2(array, isSorted, method) result(sorting)
3532#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3533 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndCusComDef_D1_IK2
3534#endif
3535 use pm_kind, only: IKG => IK2
3536 integer(IKG) , intent(in) , contiguous :: array(:)
3537 procedure(logical(LK)) :: isSorted
3538 integer(IK) :: sorting(size(array, 1, IK))
3539 type(isort_type) , intent(in) :: method
3540 end function
3541#endif
3542
3543#if IK1_ENABLED
3544 module function getSortedIndCusComDef_D1_IK1(array, isSorted, method) result(sorting)
3545#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3546 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndCusComDef_D1_IK1
3547#endif
3548 use pm_kind, only: IKG => IK1
3549 integer(IKG) , intent(in) , contiguous :: array(:)
3550 procedure(logical(LK)) :: isSorted
3551 integer(IK) :: sorting(size(array, 1, IK))
3552 type(isort_type) , intent(in) :: method
3553 end function
3554#endif
3555
3556 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3557
3558#if LK5_ENABLED
3559 module function getSortedIndCusComDef_D1_LK5(array, isSorted, method) result(sorting)
3560#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3561 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndCusComDef_D1_LK5
3562#endif
3563 use pm_kind, only: LKG => LK5
3564 logical(LKG) , intent(in) , contiguous :: array(:)
3565 procedure(logical(LK)) :: isSorted
3566 integer(IK) :: sorting(size(array, 1, IK))
3567 type(isort_type) , intent(in) :: method
3568 end function
3569#endif
3570
3571#if LK4_ENABLED
3572 module function getSortedIndCusComDef_D1_LK4(array, isSorted, method) result(sorting)
3573#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3574 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndCusComDef_D1_LK4
3575#endif
3576 use pm_kind, only: LKG => LK4
3577 logical(LKG) , intent(in) , contiguous :: array(:)
3578 procedure(logical(LK)) :: isSorted
3579 integer(IK) :: sorting(size(array, 1, IK))
3580 type(isort_type) , intent(in) :: method
3581 end function
3582#endif
3583
3584#if LK3_ENABLED
3585 module function getSortedIndCusComDef_D1_LK3(array, isSorted, method) result(sorting)
3586#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3587 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndCusComDef_D1_LK3
3588#endif
3589 use pm_kind, only: LKG => LK3
3590 logical(LKG) , intent(in) , contiguous :: array(:)
3591 procedure(logical(LK)) :: isSorted
3592 integer(IK) :: sorting(size(array, 1, IK))
3593 type(isort_type) , intent(in) :: method
3594 end function
3595#endif
3596
3597#if LK2_ENABLED
3598 module function getSortedIndCusComDef_D1_LK2(array, isSorted, method) result(sorting)
3599#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3600 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndCusComDef_D1_LK2
3601#endif
3602 use pm_kind, only: LKG => LK2
3603 logical(LKG) , intent(in) , contiguous :: array(:)
3604 procedure(logical(LK)) :: isSorted
3605 integer(IK) :: sorting(size(array, 1, IK))
3606 type(isort_type) , intent(in) :: method
3607 end function
3608#endif
3609
3610#if LK1_ENABLED
3611 module function getSortedIndCusComDef_D1_LK1(array, isSorted, method) result(sorting)
3612#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3613 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndCusComDef_D1_LK1
3614#endif
3615 use pm_kind, only: LKG => LK1
3616 logical(LKG) , intent(in) , contiguous :: array(:)
3617 procedure(logical(LK)) :: isSorted
3618 integer(IK) :: sorting(size(array, 1, IK))
3619 type(isort_type) , intent(in) :: method
3620 end function
3621#endif
3622
3623 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3624
3625#if CK5_ENABLED
3626 module function getSortedIndCusComDef_D1_CK5(array, isSorted, method) result(sorting)
3627#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3628 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndCusComDef_D1_CK5
3629#endif
3630 use pm_kind, only: CKG => CK5
3631 complex(CKG) , intent(in) , contiguous :: array(:)
3632 procedure(logical(LK)) :: isSorted
3633 integer(IK) :: sorting(size(array, 1, IK))
3634 type(isort_type) , intent(in) :: method
3635 end function
3636#endif
3637
3638#if CK4_ENABLED
3639 module function getSortedIndCusComDef_D1_CK4(array, isSorted, method) result(sorting)
3640#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3641 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndCusComDef_D1_CK4
3642#endif
3643 use pm_kind, only: CKG => CK4
3644 complex(CKG) , intent(in) , contiguous :: array(:)
3645 procedure(logical(LK)) :: isSorted
3646 integer(IK) :: sorting(size(array, 1, IK))
3647 type(isort_type) , intent(in) :: method
3648 end function
3649#endif
3650
3651#if CK3_ENABLED
3652 module function getSortedIndCusComDef_D1_CK3(array, isSorted, method) result(sorting)
3653#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3654 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndCusComDef_D1_CK3
3655#endif
3656 use pm_kind, only: CKG => CK3
3657 complex(CKG) , intent(in) , contiguous :: array(:)
3658 procedure(logical(LK)) :: isSorted
3659 integer(IK) :: sorting(size(array, 1, IK))
3660 type(isort_type) , intent(in) :: method
3661 end function
3662#endif
3663
3664#if CK2_ENABLED
3665 module function getSortedIndCusComDef_D1_CK2(array, isSorted, method) result(sorting)
3666#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3667 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndCusComDef_D1_CK2
3668#endif
3669 use pm_kind, only: CKG => CK2
3670 complex(CKG) , intent(in) , contiguous :: array(:)
3671 procedure(logical(LK)) :: isSorted
3672 integer(IK) :: sorting(size(array, 1, IK))
3673 type(isort_type) , intent(in) :: method
3674 end function
3675#endif
3676
3677#if CK1_ENABLED
3678 module function getSortedIndCusComDef_D1_CK1(array, isSorted, method) result(sorting)
3679#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3680 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndCusComDef_D1_CK1
3681#endif
3682 use pm_kind, only: CKG => CK1
3683 complex(CKG) , intent(in) , contiguous :: array(:)
3684 procedure(logical(LK)) :: isSorted
3685 integer(IK) :: sorting(size(array, 1, IK))
3686 type(isort_type) , intent(in) :: method
3687 end function
3688#endif
3689
3690 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3691
3692#if RK5_ENABLED
3693 module function getSortedIndCusComDef_D1_RK5(array, isSorted, method) result(sorting)
3694#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3695 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndCusComDef_D1_RK5
3696#endif
3697 use pm_kind, only: RKG => RK5
3698 real(RKG) , intent(in) , contiguous :: array(:)
3699 procedure(logical(LK)) :: isSorted
3700 integer(IK) :: sorting(size(array, 1, IK))
3701 type(isort_type) , intent(in) :: method
3702 end function
3703#endif
3704
3705#if RK4_ENABLED
3706 module function getSortedIndCusComDef_D1_RK4(array, isSorted, method) result(sorting)
3707#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3708 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndCusComDef_D1_RK4
3709#endif
3710 use pm_kind, only: RKG => RK4
3711 real(RKG) , intent(in) , contiguous :: array(:)
3712 procedure(logical(LK)) :: isSorted
3713 integer(IK) :: sorting(size(array, 1, IK))
3714 type(isort_type) , intent(in) :: method
3715 end function
3716#endif
3717
3718#if RK3_ENABLED
3719 module function getSortedIndCusComDef_D1_RK3(array, isSorted, method) result(sorting)
3720#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3721 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndCusComDef_D1_RK3
3722#endif
3723 use pm_kind, only: RKG => RK3
3724 real(RKG) , intent(in) , contiguous :: array(:)
3725 procedure(logical(LK)) :: isSorted
3726 integer(IK) :: sorting(size(array, 1, IK))
3727 type(isort_type) , intent(in) :: method
3728 end function
3729#endif
3730
3731#if RK2_ENABLED
3732 module function getSortedIndCusComDef_D1_RK2(array, isSorted, method) result(sorting)
3733#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3734 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndCusComDef_D1_RK2
3735#endif
3736 use pm_kind, only: RKG => RK2
3737 real(RKG) , intent(in) , contiguous :: array(:)
3738 procedure(logical(LK)) :: isSorted
3739 integer(IK) :: sorting(size(array, 1, IK))
3740 type(isort_type) , intent(in) :: method
3741 end function
3742#endif
3743
3744#if RK1_ENABLED
3745 module function getSortedIndCusComDef_D1_RK1(array, isSorted, method) result(sorting)
3746#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3747 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndCusComDef_D1_RK1
3748#endif
3749 use pm_kind, only: RKG => RK1
3750 real(RKG) , intent(in) , contiguous :: array(:)
3751 procedure(logical(LK)) :: isSorted
3752 integer(IK) :: sorting(size(array, 1, IK))
3753 type(isort_type) , intent(in) :: method
3754 end function
3755#endif
3756
3757 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3758
3759#if PDT_ENABLED
3760
3761#if SK5_ENABLED
3762 module function getSortedIndCusComDef_D1_PSSK5(array, isSorted, method) result(sorting)
3763#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3764 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndCusComDef_D1_PSSK5
3765#endif
3766 use pm_kind, only: SKG => SK5
3767 use pm_container, only: css_pdt
3768 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
3769 procedure(logical(LK)) :: isSorted
3770 integer(IK) :: sorting(size(array, 1, IK))
3771 type(isort_type) , intent(in) :: method
3772 end function
3773#endif
3774
3775#if SK4_ENABLED
3776 module function getSortedIndCusComDef_D1_PSSK4(array, isSorted, method) result(sorting)
3777#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3778 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndCusComDef_D1_PSSK4
3779#endif
3780 use pm_kind, only: SKG => SK4
3781 use pm_container, only: css_pdt
3782 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
3783 procedure(logical(LK)) :: isSorted
3784 integer(IK) :: sorting(size(array, 1, IK))
3785 type(isort_type) , intent(in) :: method
3786 end function
3787#endif
3788
3789#if SK3_ENABLED
3790 module function getSortedIndCusComDef_D1_PSSK3(array, isSorted, method) result(sorting)
3791#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3792 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndCusComDef_D1_PSSK3
3793#endif
3794 use pm_kind, only: SKG => SK3
3795 use pm_container, only: css_pdt
3796 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
3797 procedure(logical(LK)) :: isSorted
3798 integer(IK) :: sorting(size(array, 1, IK))
3799 type(isort_type) , intent(in) :: method
3800 end function
3801#endif
3802
3803#if SK2_ENABLED
3804 module function getSortedIndCusComDef_D1_PSSK2(array, isSorted, method) result(sorting)
3805#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3806 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndCusComDef_D1_PSSK2
3807#endif
3808 use pm_kind, only: SKG => SK2
3809 use pm_container, only: css_pdt
3810 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
3811 procedure(logical(LK)) :: isSorted
3812 integer(IK) :: sorting(size(array, 1, IK))
3813 type(isort_type) , intent(in) :: method
3814 end function
3815#endif
3816
3817#if SK1_ENABLED
3818 module function getSortedIndCusComDef_D1_PSSK1(array, isSorted, method) result(sorting)
3819#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3820 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndCusComDef_D1_PSSK1
3821#endif
3822 use pm_kind, only: SKG => SK1
3823 use pm_container, only: css_pdt
3824 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
3825 procedure(logical(LK)) :: isSorted
3826 integer(IK) :: sorting(size(array, 1, IK))
3827 type(isort_type) , intent(in) :: method
3828 end function
3829#endif
3830
3831#endif
3832!PDT_ENABLED
3833
3834 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3835
3836 module function getSortedIndCusComDef_D1_BSSK(array, isSorted, method) result(sorting)
3837#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3838 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndCusComDef_D1_BSSK
3839#endif
3840 use pm_kind, only: SKG => SK
3841 use pm_container, only: css_type
3842 type(css_type) , intent(in) , contiguous :: array(:)
3843 procedure(logical(LK)) :: isSorted
3844 integer(IK) :: sorting(size(array, 1, IK))
3845 type(isort_type) , intent(in) :: method
3846 end function
3847
3848 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3849
3850 end interface
3851
3852 ! getSortedArrCusComDef
3853
3854 interface getSorted
3855
3856 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3857 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3858 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3859
3860 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3861
3862#if SK5_ENABLED
3863 module function getSortedArrCusComDef_D0_SK5(array, isSorted, method) result(sorting)
3864#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3865 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrCusComDef_D0_SK5
3866#endif
3867 use pm_kind, only: SKG => SK5
3868 character(*,SKG) , intent(in) :: array
3869 character(len(array, IK),SKG) :: sorting
3870 procedure(logical(LK)) :: isSorted
3871 class(sort_type) , intent(in) , optional :: method
3872 end function
3873#endif
3874
3875#if SK4_ENABLED
3876 module function getSortedArrCusComDef_D0_SK4(array, isSorted, method) result(sorting)
3877#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3878 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrCusComDef_D0_SK4
3879#endif
3880 use pm_kind, only: SKG => SK4
3881 character(*,SKG) , intent(in) :: array
3882 character(len(array, IK),SKG) :: sorting
3883 procedure(logical(LK)) :: isSorted
3884 class(sort_type) , intent(in) , optional :: method
3885 end function
3886#endif
3887
3888#if SK3_ENABLED
3889 module function getSortedArrCusComDef_D0_SK3(array, isSorted, method) result(sorting)
3890#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3891 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrCusComDef_D0_SK3
3892#endif
3893 use pm_kind, only: SKG => SK3
3894 character(*,SKG) , intent(in) :: array
3895 character(len(array, IK),SKG) :: sorting
3896 procedure(logical(LK)) :: isSorted
3897 class(sort_type) , intent(in) , optional :: method
3898 end function
3899#endif
3900
3901#if SK2_ENABLED
3902 module function getSortedArrCusComDef_D0_SK2(array, isSorted, method) result(sorting)
3903#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3904 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrCusComDef_D0_SK2
3905#endif
3906 use pm_kind, only: SKG => SK2
3907 character(*,SKG) , intent(in) :: array
3908 character(len(array, IK),SKG) :: sorting
3909 procedure(logical(LK)) :: isSorted
3910 class(sort_type) , intent(in) , optional :: method
3911 end function
3912#endif
3913
3914#if SK1_ENABLED
3915 module function getSortedArrCusComDef_D0_SK1(array, isSorted, method) result(sorting)
3916#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3917 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrCusComDef_D0_SK1
3918#endif
3919 use pm_kind, only: SKG => SK1
3920 character(*,SKG) , intent(in) :: array
3921 character(len(array, IK),SKG) :: sorting
3922 procedure(logical(LK)) :: isSorted
3923 class(sort_type) , intent(in) , optional :: method
3924 end function
3925#endif
3926
3927 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3928
3929#if SK5_ENABLED
3930 module function getSortedArrCusComDef_D1_SK5(array, isSorted, method) result(sorting)
3931#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3932 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrCusComDef_D1_SK5
3933#endif
3934 use pm_kind, only: SKG => SK5
3935 character(*,SKG) , intent(in) , contiguous :: array(:)
3936 character(len(array, IK),SKG) :: sorting(size(array, 1, IK))
3937 procedure(logical(LK)) :: isSorted
3938 class(sort_type) , intent(in) , optional :: method
3939 end function
3940#endif
3941
3942#if SK4_ENABLED
3943 module function getSortedArrCusComDef_D1_SK4(array, isSorted, method) result(sorting)
3944#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3945 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrCusComDef_D1_SK4
3946#endif
3947 use pm_kind, only: SKG => SK4
3948 character(*,SKG) , intent(in) , contiguous :: array(:)
3949 character(len(array, IK),SKG) :: sorting(size(array, 1, IK))
3950 procedure(logical(LK)) :: isSorted
3951 class(sort_type) , intent(in) , optional :: method
3952 end function
3953#endif
3954
3955#if SK3_ENABLED
3956 module function getSortedArrCusComDef_D1_SK3(array, isSorted, method) result(sorting)
3957#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3958 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrCusComDef_D1_SK3
3959#endif
3960 use pm_kind, only: SKG => SK3
3961 character(*,SKG) , intent(in) , contiguous :: array(:)
3962 character(len(array, IK),SKG) :: sorting(size(array, 1, IK))
3963 procedure(logical(LK)) :: isSorted
3964 class(sort_type) , intent(in) , optional :: method
3965 end function
3966#endif
3967
3968#if SK2_ENABLED
3969 module function getSortedArrCusComDef_D1_SK2(array, isSorted, method) result(sorting)
3970#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3971 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrCusComDef_D1_SK2
3972#endif
3973 use pm_kind, only: SKG => SK2
3974 character(*,SKG) , intent(in) , contiguous :: array(:)
3975 character(len(array, IK),SKG) :: sorting(size(array, 1, IK))
3976 procedure(logical(LK)) :: isSorted
3977 class(sort_type) , intent(in) , optional :: method
3978 end function
3979#endif
3980
3981#if SK1_ENABLED
3982 module function getSortedArrCusComDef_D1_SK1(array, isSorted, method) result(sorting)
3983#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3984 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrCusComDef_D1_SK1
3985#endif
3986 use pm_kind, only: SKG => SK1
3987 character(*,SKG) , intent(in) , contiguous :: array(:)
3988 character(len(array, IK),SKG) :: sorting(size(array, 1, IK))
3989 procedure(logical(LK)) :: isSorted
3990 class(sort_type) , intent(in) , optional :: method
3991 end function
3992#endif
3993
3994 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3995
3996#if IK5_ENABLED
3997 module function getSortedArrCusComDef_D1_IK5(array, isSorted, method) result(sorting)
3998#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3999 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrCusComDef_D1_IK5
4000#endif
4001 use pm_kind, only: IKG => IK5
4002 integer(IKG) , intent(in) , contiguous :: array(:)
4003 integer(IKG) :: sorting(size(array, 1, IK))
4004 procedure(logical(LK)) :: isSorted
4005 class(sort_type) , intent(in) , optional :: method
4006 end function
4007#endif
4008
4009#if IK4_ENABLED
4010 module function getSortedArrCusComDef_D1_IK4(array, isSorted, method) result(sorting)
4011#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4012 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrCusComDef_D1_IK4
4013#endif
4014 use pm_kind, only: IKG => IK4
4015 integer(IKG) , intent(in) , contiguous :: array(:)
4016 integer(IKG) :: sorting(size(array, 1, IK))
4017 procedure(logical(LK)) :: isSorted
4018 class(sort_type) , intent(in) , optional :: method
4019 end function
4020#endif
4021
4022#if IK3_ENABLED
4023 module function getSortedArrCusComDef_D1_IK3(array, isSorted, method) result(sorting)
4024#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4025 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrCusComDef_D1_IK3
4026#endif
4027 use pm_kind, only: IKG => IK3
4028 integer(IKG) , intent(in) , contiguous :: array(:)
4029 integer(IKG) :: sorting(size(array, 1, IK))
4030 procedure(logical(LK)) :: isSorted
4031 class(sort_type) , intent(in) , optional :: method
4032 end function
4033#endif
4034
4035#if IK2_ENABLED
4036 module function getSortedArrCusComDef_D1_IK2(array, isSorted, method) result(sorting)
4037#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4038 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrCusComDef_D1_IK2
4039#endif
4040 use pm_kind, only: IKG => IK2
4041 integer(IKG) , intent(in) , contiguous :: array(:)
4042 integer(IKG) :: sorting(size(array, 1, IK))
4043 procedure(logical(LK)) :: isSorted
4044 class(sort_type) , intent(in) , optional :: method
4045 end function
4046#endif
4047
4048#if IK1_ENABLED
4049 module function getSortedArrCusComDef_D1_IK1(array, isSorted, method) result(sorting)
4050#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4051 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrCusComDef_D1_IK1
4052#endif
4053 use pm_kind, only: IKG => IK1
4054 integer(IKG) , intent(in) , contiguous :: array(:)
4055 integer(IKG) :: sorting(size(array, 1, IK))
4056 procedure(logical(LK)) :: isSorted
4057 class(sort_type) , intent(in) , optional :: method
4058 end function
4059#endif
4060
4061 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4062
4063#if LK5_ENABLED
4064 module function getSortedArrCusComDef_D1_LK5(array, isSorted, method) result(sorting)
4065#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4066 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrCusComDef_D1_LK5
4067#endif
4068 use pm_kind, only: LKG => LK5
4069 logical(LKG) , intent(in) , contiguous :: array(:)
4070 logical(LKG) :: sorting(size(array, 1, IK))
4071 procedure(logical(LK)) :: isSorted
4072 class(sort_type) , intent(in) , optional :: method
4073 end function
4074#endif
4075
4076#if LK4_ENABLED
4077 module function getSortedArrCusComDef_D1_LK4(array, isSorted, method) result(sorting)
4078#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4079 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrCusComDef_D1_LK4
4080#endif
4081 use pm_kind, only: LKG => LK4
4082 logical(LKG) , intent(in) , contiguous :: array(:)
4083 logical(LKG) :: sorting(size(array, 1, IK))
4084 procedure(logical(LK)) :: isSorted
4085 class(sort_type) , intent(in) , optional :: method
4086 end function
4087#endif
4088
4089#if LK3_ENABLED
4090 module function getSortedArrCusComDef_D1_LK3(array, isSorted, method) result(sorting)
4091#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4092 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrCusComDef_D1_LK3
4093#endif
4094 use pm_kind, only: LKG => LK3
4095 logical(LKG) , intent(in) , contiguous :: array(:)
4096 logical(LKG) :: sorting(size(array, 1, IK))
4097 procedure(logical(LK)) :: isSorted
4098 class(sort_type) , intent(in) , optional :: method
4099 end function
4100#endif
4101
4102#if LK2_ENABLED
4103 module function getSortedArrCusComDef_D1_LK2(array, isSorted, method) result(sorting)
4104#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4105 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrCusComDef_D1_LK2
4106#endif
4107 use pm_kind, only: LKG => LK2
4108 logical(LKG) , intent(in) , contiguous :: array(:)
4109 logical(LKG) :: sorting(size(array, 1, IK))
4110 procedure(logical(LK)) :: isSorted
4111 class(sort_type) , intent(in) , optional :: method
4112 end function
4113#endif
4114
4115#if LK1_ENABLED
4116 module function getSortedArrCusComDef_D1_LK1(array, isSorted, method) result(sorting)
4117#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4118 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrCusComDef_D1_LK1
4119#endif
4120 use pm_kind, only: LKG => LK1
4121 logical(LKG) , intent(in) , contiguous :: array(:)
4122 logical(LKG) :: sorting(size(array, 1, IK))
4123 procedure(logical(LK)) :: isSorted
4124 class(sort_type) , intent(in) , optional :: method
4125 end function
4126#endif
4127
4128 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4129
4130#if CK5_ENABLED
4131 module function getSortedArrCusComDef_D1_CK5(array, isSorted, method) result(sorting)
4132#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4133 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrCusComDef_D1_CK5
4134#endif
4135 use pm_kind, only: CKG => CK5
4136 complex(CKG) , intent(in) , contiguous :: array(:)
4137 complex(CKG) :: sorting(size(array, 1, IK))
4138 procedure(logical(LK)) :: isSorted
4139 class(sort_type) , intent(in) , optional :: method
4140 end function
4141#endif
4142
4143#if CK4_ENABLED
4144 module function getSortedArrCusComDef_D1_CK4(array, isSorted, method) result(sorting)
4145#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4146 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrCusComDef_D1_CK4
4147#endif
4148 use pm_kind, only: CKG => CK4
4149 complex(CKG) , intent(in) , contiguous :: array(:)
4150 complex(CKG) :: sorting(size(array, 1, IK))
4151 procedure(logical(LK)) :: isSorted
4152 class(sort_type) , intent(in) , optional :: method
4153 end function
4154#endif
4155
4156#if CK3_ENABLED
4157 module function getSortedArrCusComDef_D1_CK3(array, isSorted, method) result(sorting)
4158#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4159 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrCusComDef_D1_CK3
4160#endif
4161 use pm_kind, only: CKG => CK3
4162 complex(CKG) , intent(in) , contiguous :: array(:)
4163 complex(CKG) :: sorting(size(array, 1, IK))
4164 procedure(logical(LK)) :: isSorted
4165 class(sort_type) , intent(in) , optional :: method
4166 end function
4167#endif
4168
4169#if CK2_ENABLED
4170 module function getSortedArrCusComDef_D1_CK2(array, isSorted, method) result(sorting)
4171#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4172 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrCusComDef_D1_CK2
4173#endif
4174 use pm_kind, only: CKG => CK2
4175 complex(CKG) , intent(in) , contiguous :: array(:)
4176 complex(CKG) :: sorting(size(array, 1, IK))
4177 procedure(logical(LK)) :: isSorted
4178 class(sort_type) , intent(in) , optional :: method
4179 end function
4180#endif
4181
4182#if CK1_ENABLED
4183 module function getSortedArrCusComDef_D1_CK1(array, isSorted, method) result(sorting)
4184#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4185 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrCusComDef_D1_CK1
4186#endif
4187 use pm_kind, only: CKG => CK1
4188 complex(CKG) , intent(in) , contiguous :: array(:)
4189 complex(CKG) :: sorting(size(array, 1, IK))
4190 procedure(logical(LK)) :: isSorted
4191 class(sort_type) , intent(in) , optional :: method
4192 end function
4193#endif
4194
4195 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4196
4197#if RK5_ENABLED
4198 module function getSortedArrCusComDef_D1_RK5(array, isSorted, method) result(sorting)
4199#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4200 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrCusComDef_D1_RK5
4201#endif
4202 use pm_kind, only: RKG => RK5
4203 real(RKG) , intent(in) , contiguous :: array(:)
4204 real(RKG) :: sorting(size(array, 1, IK))
4205 procedure(logical(LK)) :: isSorted
4206 class(sort_type) , intent(in) , optional :: method
4207 end function
4208#endif
4209
4210#if RK4_ENABLED
4211 module function getSortedArrCusComDef_D1_RK4(array, isSorted, method) result(sorting)
4212#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4213 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrCusComDef_D1_RK4
4214#endif
4215 use pm_kind, only: RKG => RK4
4216 real(RKG) , intent(in) , contiguous :: array(:)
4217 real(RKG) :: sorting(size(array, 1, IK))
4218 procedure(logical(LK)) :: isSorted
4219 class(sort_type) , intent(in) , optional :: method
4220 end function
4221#endif
4222
4223#if RK3_ENABLED
4224 module function getSortedArrCusComDef_D1_RK3(array, isSorted, method) result(sorting)
4225#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4226 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrCusComDef_D1_RK3
4227#endif
4228 use pm_kind, only: RKG => RK3
4229 real(RKG) , intent(in) , contiguous :: array(:)
4230 real(RKG) :: sorting(size(array, 1, IK))
4231 procedure(logical(LK)) :: isSorted
4232 class(sort_type) , intent(in) , optional :: method
4233 end function
4234#endif
4235
4236#if RK2_ENABLED
4237 module function getSortedArrCusComDef_D1_RK2(array, isSorted, method) result(sorting)
4238#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4239 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrCusComDef_D1_RK2
4240#endif
4241 use pm_kind, only: RKG => RK2
4242 real(RKG) , intent(in) , contiguous :: array(:)
4243 real(RKG) :: sorting(size(array, 1, IK))
4244 procedure(logical(LK)) :: isSorted
4245 class(sort_type) , intent(in) , optional :: method
4246 end function
4247#endif
4248
4249#if RK1_ENABLED
4250 module function getSortedArrCusComDef_D1_RK1(array, isSorted, method) result(sorting)
4251#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4252 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrCusComDef_D1_RK1
4253#endif
4254 use pm_kind, only: RKG => RK1
4255 real(RKG) , intent(in) , contiguous :: array(:)
4256 real(RKG) :: sorting(size(array, 1, IK))
4257 procedure(logical(LK)) :: isSorted
4258 class(sort_type) , intent(in) , optional :: method
4259 end function
4260#endif
4261
4262 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4263
4264#if PDT_ENABLED
4265
4266#if SK5_ENABLED
4267 module function getSortedArrCusComDef_D1_PSSK5(array, isSorted, method) result(sorting)
4268#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4269 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrCusComDef_D1_PSSK5
4270#endif
4271 use pm_kind, only: SKG => SK5
4272 use pm_container, only: css_pdt
4273 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
4274 type(css_pdt(SKG)) :: sorting(size(array, 1, IK))
4275 procedure(logical(LK)) :: isSorted
4276 class(sort_type) , intent(in) , optional :: method
4277 end function
4278#endif
4279
4280#if SK4_ENABLED
4281 module function getSortedArrCusComDef_D1_PSSK4(array, isSorted, method) result(sorting)
4282#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4283 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrCusComDef_D1_PSSK4
4284#endif
4285 use pm_kind, only: SKG => SK4
4286 use pm_container, only: css_pdt
4287 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
4288 type(css_pdt(SKG)) :: sorting(size(array, 1, IK))
4289 procedure(logical(LK)) :: isSorted
4290 class(sort_type) , intent(in) , optional :: method
4291 end function
4292#endif
4293
4294#if SK3_ENABLED
4295 module function getSortedArrCusComDef_D1_PSSK3(array, isSorted, method) result(sorting)
4296#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4297 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrCusComDef_D1_PSSK3
4298#endif
4299 use pm_kind, only: SKG => SK3
4300 use pm_container, only: css_pdt
4301 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
4302 type(css_pdt(SKG)) :: sorting(size(array, 1, IK))
4303 procedure(logical(LK)) :: isSorted
4304 class(sort_type) , intent(in) , optional :: method
4305 end function
4306#endif
4307
4308#if SK2_ENABLED
4309 module function getSortedArrCusComDef_D1_PSSK2(array, isSorted, method) result(sorting)
4310#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4311 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrCusComDef_D1_PSSK2
4312#endif
4313 use pm_kind, only: SKG => SK2
4314 use pm_container, only: css_pdt
4315 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
4316 type(css_pdt(SKG)) :: sorting(size(array, 1, IK))
4317 procedure(logical(LK)) :: isSorted
4318 class(sort_type) , intent(in) , optional :: method
4319 end function
4320#endif
4321
4322#if SK1_ENABLED
4323 module function getSortedArrCusComDef_D1_PSSK1(array, isSorted, method) result(sorting)
4324#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4325 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrCusComDef_D1_PSSK1
4326#endif
4327 use pm_kind, only: SKG => SK1
4328 use pm_container, only: css_pdt
4329 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
4330 type(css_pdt(SKG)) :: sorting(size(array, 1, IK))
4331 procedure(logical(LK)) :: isSorted
4332 class(sort_type) , intent(in) , optional :: method
4333 end function
4334#endif
4335
4336#endif
4337!PDT_ENABLED
4338
4339 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4340
4341 module function getSortedArrCusComDef_D1_BSSK(array, isSorted, method) result(sorting)
4342#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4343 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrCusComDef_D1_BSSK
4344#endif
4345 use pm_kind, only: SKG => SK
4346 use pm_container, only: css_type
4347 type(css_type) , intent(in) , contiguous :: array(:)
4348 type(css_type) :: sorting(size(array, 1, IK))
4349 procedure(logical(LK)) :: isSorted
4350 class(sort_type) , intent(in) , optional :: method
4351 end function
4352
4353 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4354
4355 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4356 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4357 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4358
4359 end interface
4360
4361 ! getSortedIndDefComDef
4362
4363 interface getSorted
4364
4365 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4366 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4367 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4368
4369 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4370
4371#if SK5_ENABLED
4372 module function getSortedIndDefComDef_D0_SK5(array, method) result(sorting)
4373#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4374 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndDefComDef_D0_SK5
4375#endif
4376 use pm_kind, only: SKG => SK5
4377 character(*,SKG) , intent(in) :: array
4378 integer(IK) :: sorting(len(array, IK))
4379 type(isort_type) , intent(in) :: method
4380 end function
4381#endif
4382
4383#if SK4_ENABLED
4384 module function getSortedIndDefComDef_D0_SK4(array, method) result(sorting)
4385#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4386 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndDefComDef_D0_SK4
4387#endif
4388 use pm_kind, only: SKG => SK4
4389 character(*,SKG) , intent(in) :: array
4390 integer(IK) :: sorting(len(array, IK))
4391 type(isort_type) , intent(in) :: method
4392 end function
4393#endif
4394
4395#if SK3_ENABLED
4396 module function getSortedIndDefComDef_D0_SK3(array, method) result(sorting)
4397#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4398 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndDefComDef_D0_SK3
4399#endif
4400 use pm_kind, only: SKG => SK3
4401 character(*,SKG) , intent(in) :: array
4402 integer(IK) :: sorting(len(array, IK))
4403 type(isort_type) , intent(in) :: method
4404 end function
4405#endif
4406
4407#if SK2_ENABLED
4408 module function getSortedIndDefComDef_D0_SK2(array, method) result(sorting)
4409#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4410 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndDefComDef_D0_SK2
4411#endif
4412 use pm_kind, only: SKG => SK2
4413 character(*,SKG) , intent(in) :: array
4414 integer(IK) :: sorting(len(array, IK))
4415 type(isort_type) , intent(in) :: method
4416 end function
4417#endif
4418
4419#if SK1_ENABLED
4420 module function getSortedIndDefComDef_D0_SK1(array, method) result(sorting)
4421#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4422 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndDefComDef_D0_SK1
4423#endif
4424 use pm_kind, only: SKG => SK1
4425 character(*,SKG) , intent(in) :: array
4426 integer(IK) :: sorting(len(array, IK))
4427 type(isort_type) , intent(in) :: method
4428 end function
4429#endif
4430
4431 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4432
4433#if SK5_ENABLED
4434 module function getSortedIndDefComDef_D1_SK5(array, method) result(sorting)
4435#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4436 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndDefComDef_D1_SK5
4437#endif
4438 use pm_kind, only: SKG => SK5
4439 character(*,SKG) , intent(in) , contiguous :: array(:)
4440 integer(IK) :: sorting(size(array, 1, IK))
4441 type(isort_type) , intent(in) :: method
4442 end function
4443#endif
4444
4445#if SK4_ENABLED
4446 module function getSortedIndDefComDef_D1_SK4(array, method) result(sorting)
4447#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4448 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndDefComDef_D1_SK4
4449#endif
4450 use pm_kind, only: SKG => SK4
4451 character(*,SKG) , intent(in) , contiguous :: array(:)
4452 integer(IK) :: sorting(size(array, 1, IK))
4453 type(isort_type) , intent(in) :: method
4454 end function
4455#endif
4456
4457#if SK3_ENABLED
4458 module function getSortedIndDefComDef_D1_SK3(array, method) result(sorting)
4459#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4460 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndDefComDef_D1_SK3
4461#endif
4462 use pm_kind, only: SKG => SK3
4463 character(*,SKG) , intent(in) , contiguous :: array(:)
4464 integer(IK) :: sorting(size(array, 1, IK))
4465 type(isort_type) , intent(in) :: method
4466 end function
4467#endif
4468
4469#if SK2_ENABLED
4470 module function getSortedIndDefComDef_D1_SK2(array, method) result(sorting)
4471#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4472 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndDefComDef_D1_SK2
4473#endif
4474 use pm_kind, only: SKG => SK2
4475 character(*,SKG) , intent(in) , contiguous :: array(:)
4476 integer(IK) :: sorting(size(array, 1, IK))
4477 type(isort_type) , intent(in) :: method
4478 end function
4479#endif
4480
4481#if SK1_ENABLED
4482 module function getSortedIndDefComDef_D1_SK1(array, method) result(sorting)
4483#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4484 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndDefComDef_D1_SK1
4485#endif
4486 use pm_kind, only: SKG => SK1
4487 character(*,SKG) , intent(in) , contiguous :: array(:)
4488 integer(IK) :: sorting(size(array, 1, IK))
4489 type(isort_type) , intent(in) :: method
4490 end function
4491#endif
4492
4493 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4494
4495#if IK5_ENABLED
4496 module function getSortedIndDefComDef_D1_IK5(array, method) result(sorting)
4497#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4498 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndDefComDef_D1_IK5
4499#endif
4500 use pm_kind, only: IKG => IK5
4501 integer(IKG) , intent(in) , contiguous :: array(:)
4502 integer(IK) :: sorting(size(array, 1, IK))
4503 type(isort_type) , intent(in) :: method
4504 end function
4505#endif
4506
4507#if IK4_ENABLED
4508 module function getSortedIndDefComDef_D1_IK4(array, method) result(sorting)
4509#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4510 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndDefComDef_D1_IK4
4511#endif
4512 use pm_kind, only: IKG => IK4
4513 integer(IKG) , intent(in) , contiguous :: array(:)
4514 integer(IK) :: sorting(size(array, 1, IK))
4515 type(isort_type) , intent(in) :: method
4516 end function
4517#endif
4518
4519#if IK3_ENABLED
4520 module function getSortedIndDefComDef_D1_IK3(array, method) result(sorting)
4521#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4522 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndDefComDef_D1_IK3
4523#endif
4524 use pm_kind, only: IKG => IK3
4525 integer(IKG) , intent(in) , contiguous :: array(:)
4526 integer(IK) :: sorting(size(array, 1, IK))
4527 type(isort_type) , intent(in) :: method
4528 end function
4529#endif
4530
4531#if IK2_ENABLED
4532 module function getSortedIndDefComDef_D1_IK2(array, method) result(sorting)
4533#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4534 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndDefComDef_D1_IK2
4535#endif
4536 use pm_kind, only: IKG => IK2
4537 integer(IKG) , intent(in) , contiguous :: array(:)
4538 integer(IK) :: sorting(size(array, 1, IK))
4539 type(isort_type) , intent(in) :: method
4540 end function
4541#endif
4542
4543#if IK1_ENABLED
4544 module function getSortedIndDefComDef_D1_IK1(array, method) result(sorting)
4545#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4546 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndDefComDef_D1_IK1
4547#endif
4548 use pm_kind, only: IKG => IK1
4549 integer(IKG) , intent(in) , contiguous :: array(:)
4550 integer(IK) :: sorting(size(array, 1, IK))
4551 type(isort_type) , intent(in) :: method
4552 end function
4553#endif
4554
4555 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4556
4557#if LK5_ENABLED
4558 module function getSortedIndDefComDef_D1_LK5(array, method) result(sorting)
4559#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4560 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndDefComDef_D1_LK5
4561#endif
4562 use pm_kind, only: LKG => LK5
4563 logical(LKG) , intent(in) , contiguous :: array(:)
4564 integer(IK) :: sorting(size(array, 1, IK))
4565 type(isort_type) , intent(in) :: method
4566 end function
4567#endif
4568
4569#if LK4_ENABLED
4570 module function getSortedIndDefComDef_D1_LK4(array, method) result(sorting)
4571#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4572 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndDefComDef_D1_LK4
4573#endif
4574 use pm_kind, only: LKG => LK4
4575 logical(LKG) , intent(in) , contiguous :: array(:)
4576 integer(IK) :: sorting(size(array, 1, IK))
4577 type(isort_type) , intent(in) :: method
4578 end function
4579#endif
4580
4581#if LK3_ENABLED
4582 module function getSortedIndDefComDef_D1_LK3(array, method) result(sorting)
4583#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4584 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndDefComDef_D1_LK3
4585#endif
4586 use pm_kind, only: LKG => LK3
4587 logical(LKG) , intent(in) , contiguous :: array(:)
4588 integer(IK) :: sorting(size(array, 1, IK))
4589 type(isort_type) , intent(in) :: method
4590 end function
4591#endif
4592
4593#if LK2_ENABLED
4594 module function getSortedIndDefComDef_D1_LK2(array, method) result(sorting)
4595#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4596 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndDefComDef_D1_LK2
4597#endif
4598 use pm_kind, only: LKG => LK2
4599 logical(LKG) , intent(in) , contiguous :: array(:)
4600 integer(IK) :: sorting(size(array, 1, IK))
4601 type(isort_type) , intent(in) :: method
4602 end function
4603#endif
4604
4605#if LK1_ENABLED
4606 module function getSortedIndDefComDef_D1_LK1(array, method) result(sorting)
4607#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4608 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndDefComDef_D1_LK1
4609#endif
4610 use pm_kind, only: LKG => LK1
4611 logical(LKG) , intent(in) , contiguous :: array(:)
4612 integer(IK) :: sorting(size(array, 1, IK))
4613 type(isort_type) , intent(in) :: method
4614 end function
4615#endif
4616
4617 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4618
4619#if CK5_ENABLED
4620 module function getSortedIndDefComDef_D1_CK5(array, method) result(sorting)
4621#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4622 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndDefComDef_D1_CK5
4623#endif
4624 use pm_kind, only: CKG => CK5
4625 complex(CKG) , intent(in) , contiguous :: array(:)
4626 integer(IK) :: sorting(size(array, 1, IK))
4627 type(isort_type) , intent(in) :: method
4628 end function
4629#endif
4630
4631#if CK4_ENABLED
4632 module function getSortedIndDefComDef_D1_CK4(array, method) result(sorting)
4633#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4634 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndDefComDef_D1_CK4
4635#endif
4636 use pm_kind, only: CKG => CK4
4637 complex(CKG) , intent(in) , contiguous :: array(:)
4638 integer(IK) :: sorting(size(array, 1, IK))
4639 type(isort_type) , intent(in) :: method
4640 end function
4641#endif
4642
4643#if CK3_ENABLED
4644 module function getSortedIndDefComDef_D1_CK3(array, method) result(sorting)
4645#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4646 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndDefComDef_D1_CK3
4647#endif
4648 use pm_kind, only: CKG => CK3
4649 complex(CKG) , intent(in) , contiguous :: array(:)
4650 integer(IK) :: sorting(size(array, 1, IK))
4651 type(isort_type) , intent(in) :: method
4652 end function
4653#endif
4654
4655#if CK2_ENABLED
4656 module function getSortedIndDefComDef_D1_CK2(array, method) result(sorting)
4657#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4658 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndDefComDef_D1_CK2
4659#endif
4660 use pm_kind, only: CKG => CK2
4661 complex(CKG) , intent(in) , contiguous :: array(:)
4662 integer(IK) :: sorting(size(array, 1, IK))
4663 type(isort_type) , intent(in) :: method
4664 end function
4665#endif
4666
4667#if CK1_ENABLED
4668 module function getSortedIndDefComDef_D1_CK1(array, method) result(sorting)
4669#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4670 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndDefComDef_D1_CK1
4671#endif
4672 use pm_kind, only: CKG => CK1
4673 complex(CKG) , intent(in) , contiguous :: array(:)
4674 integer(IK) :: sorting(size(array, 1, IK))
4675 type(isort_type) , intent(in) :: method
4676 end function
4677#endif
4678
4679 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4680
4681#if RK5_ENABLED
4682 module function getSortedIndDefComDef_D1_RK5(array, method) result(sorting)
4683#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4684 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndDefComDef_D1_RK5
4685#endif
4686 use pm_kind, only: RKG => RK5
4687 real(RKG) , intent(in) , contiguous :: array(:)
4688 integer(IK) :: sorting(size(array, 1, IK))
4689 type(isort_type) , intent(in) :: method
4690 end function
4691#endif
4692
4693#if RK4_ENABLED
4694 module function getSortedIndDefComDef_D1_RK4(array, method) result(sorting)
4695#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4696 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndDefComDef_D1_RK4
4697#endif
4698 use pm_kind, only: RKG => RK4
4699 real(RKG) , intent(in) , contiguous :: array(:)
4700 integer(IK) :: sorting(size(array, 1, IK))
4701 type(isort_type) , intent(in) :: method
4702 end function
4703#endif
4704
4705#if RK3_ENABLED
4706 module function getSortedIndDefComDef_D1_RK3(array, method) result(sorting)
4707#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4708 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndDefComDef_D1_RK3
4709#endif
4710 use pm_kind, only: RKG => RK3
4711 real(RKG) , intent(in) , contiguous :: array(:)
4712 integer(IK) :: sorting(size(array, 1, IK))
4713 type(isort_type) , intent(in) :: method
4714 end function
4715#endif
4716
4717#if RK2_ENABLED
4718 module function getSortedIndDefComDef_D1_RK2(array, method) result(sorting)
4719#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4720 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndDefComDef_D1_RK2
4721#endif
4722 use pm_kind, only: RKG => RK2
4723 real(RKG) , intent(in) , contiguous :: array(:)
4724 integer(IK) :: sorting(size(array, 1, IK))
4725 type(isort_type) , intent(in) :: method
4726 end function
4727#endif
4728
4729#if RK1_ENABLED
4730 module function getSortedIndDefComDef_D1_RK1(array, method) result(sorting)
4731#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4732 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndDefComDef_D1_RK1
4733#endif
4734 use pm_kind, only: RKG => RK1
4735 real(RKG) , intent(in) , contiguous :: array(:)
4736 integer(IK) :: sorting(size(array, 1, IK))
4737 type(isort_type) , intent(in) :: method
4738 end function
4739#endif
4740
4741 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4742
4743#if PDT_ENABLED
4744
4745#if SK5_ENABLED
4746 module function getSortedIndDefComDef_D1_PSSK5(array, method) result(sorting)
4747#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4748 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndDefComDef_D1_PSSK5
4749#endif
4750 use pm_kind, only: SKG => SK5
4751 use pm_container, only: css_pdt
4752 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
4753 integer(IK) :: sorting(size(array, 1, IK))
4754 type(isort_type) , intent(in) :: method
4755 end function
4756#endif
4757
4758#if SK4_ENABLED
4759 module function getSortedIndDefComDef_D1_PSSK4(array, method) result(sorting)
4760#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4761 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndDefComDef_D1_PSSK4
4762#endif
4763 use pm_kind, only: SKG => SK4
4764 use pm_container, only: css_pdt
4765 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
4766 integer(IK) :: sorting(size(array, 1, IK))
4767 type(isort_type) , intent(in) :: method
4768 end function
4769#endif
4770
4771#if SK3_ENABLED
4772 module function getSortedIndDefComDef_D1_PSSK3(array, method) result(sorting)
4773#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4774 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndDefComDef_D1_PSSK3
4775#endif
4776 use pm_kind, only: SKG => SK3
4777 use pm_container, only: css_pdt
4778 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
4779 integer(IK) :: sorting(size(array, 1, IK))
4780 type(isort_type) , intent(in) :: method
4781 end function
4782#endif
4783
4784#if SK2_ENABLED
4785 module function getSortedIndDefComDef_D1_PSSK2(array, method) result(sorting)
4786#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4787 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndDefComDef_D1_PSSK2
4788#endif
4789 use pm_kind, only: SKG => SK2
4790 use pm_container, only: css_pdt
4791 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
4792 integer(IK) :: sorting(size(array, 1, IK))
4793 type(isort_type) , intent(in) :: method
4794 end function
4795#endif
4796
4797#if SK1_ENABLED
4798 module function getSortedIndDefComDef_D1_PSSK1(array, method) result(sorting)
4799#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4800 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndDefComDef_D1_PSSK1
4801#endif
4802 use pm_kind, only: SKG => SK1
4803 use pm_container, only: css_pdt
4804 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
4805 integer(IK) :: sorting(size(array, 1, IK))
4806 type(isort_type) , intent(in) :: method
4807 end function
4808#endif
4809
4810#endif
4811!PDT_ENABLED
4812
4813 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4814
4815 module function getSortedIndDefComDef_D1_BSSK(array, method) result(sorting)
4816#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4817 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedIndDefComDef_D1_BSSK
4818#endif
4819 use pm_kind, only: SKG => SK
4820 use pm_container, only: css_type
4821 type(css_type) , intent(in) , contiguous :: array(:)
4822 integer(IK) :: sorting(size(array, 1, IK))
4823 type(isort_type) , intent(in) :: method
4824 end function
4825
4826 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4827
4828 end interface
4829
4830 ! getSortedArrDefComDef
4831
4832 interface getSorted
4833
4834 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4835 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4836 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4837
4838 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4839
4840#if SK5_ENABLED
4841 module function getSortedArrDefComDef_D0_SK5(array, method) result(sorting)
4842#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4843 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrDefComDef_D0_SK5
4844#endif
4845 use pm_kind, only: SKG => SK5
4846 character(*,SKG) , intent(in) :: array
4847 character(len(array, IK),SKG) :: sorting
4848 class(sort_type) , intent(in) , optional :: method
4849 end function
4850#endif
4851
4852#if SK4_ENABLED
4853 module function getSortedArrDefComDef_D0_SK4(array, method) result(sorting)
4854#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4855 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrDefComDef_D0_SK4
4856#endif
4857 use pm_kind, only: SKG => SK4
4858 character(*,SKG) , intent(in) :: array
4859 character(len(array, IK),SKG) :: sorting
4860 class(sort_type) , intent(in) , optional :: method
4861 end function
4862#endif
4863
4864#if SK3_ENABLED
4865 module function getSortedArrDefComDef_D0_SK3(array, method) result(sorting)
4866#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4867 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrDefComDef_D0_SK3
4868#endif
4869 use pm_kind, only: SKG => SK3
4870 character(*,SKG) , intent(in) :: array
4871 character(len(array, IK),SKG) :: sorting
4872 class(sort_type) , intent(in) , optional :: method
4873 end function
4874#endif
4875
4876#if SK2_ENABLED
4877 module function getSortedArrDefComDef_D0_SK2(array, method) result(sorting)
4878#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4879 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrDefComDef_D0_SK2
4880#endif
4881 use pm_kind, only: SKG => SK2
4882 character(*,SKG) , intent(in) :: array
4883 character(len(array, IK),SKG) :: sorting
4884 class(sort_type) , intent(in) , optional :: method
4885 end function
4886#endif
4887
4888#if SK1_ENABLED
4889 module function getSortedArrDefComDef_D0_SK1(array, method) result(sorting)
4890#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4891 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrDefComDef_D0_SK1
4892#endif
4893 use pm_kind, only: SKG => SK1
4894 character(*,SKG) , intent(in) :: array
4895 character(len(array, IK),SKG) :: sorting
4896 class(sort_type) , intent(in) , optional :: method
4897 end function
4898#endif
4899
4900 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4901
4902#if SK5_ENABLED
4903 module function getSortedArrDefComDef_D1_SK5(array, method) result(sorting)
4904#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4905 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrDefComDef_D1_SK5
4906#endif
4907 use pm_kind, only: SKG => SK5
4908 character(*,SKG) , intent(in) , contiguous :: array(:)
4909 character(len(array, IK),SKG) :: sorting(size(array, 1, IK))
4910 class(sort_type) , intent(in) , optional :: method
4911 end function
4912#endif
4913
4914#if SK4_ENABLED
4915 module function getSortedArrDefComDef_D1_SK4(array, method) result(sorting)
4916#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4917 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrDefComDef_D1_SK4
4918#endif
4919 use pm_kind, only: SKG => SK4
4920 character(*,SKG) , intent(in) , contiguous :: array(:)
4921 character(len(array, IK),SKG) :: sorting(size(array, 1, IK))
4922 class(sort_type) , intent(in) , optional :: method
4923 end function
4924#endif
4925
4926#if SK3_ENABLED
4927 module function getSortedArrDefComDef_D1_SK3(array, method) result(sorting)
4928#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4929 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrDefComDef_D1_SK3
4930#endif
4931 use pm_kind, only: SKG => SK3
4932 character(*,SKG) , intent(in) , contiguous :: array(:)
4933 character(len(array, IK),SKG) :: sorting(size(array, 1, IK))
4934 class(sort_type) , intent(in) , optional :: method
4935 end function
4936#endif
4937
4938#if SK2_ENABLED
4939 module function getSortedArrDefComDef_D1_SK2(array, method) result(sorting)
4940#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4941 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrDefComDef_D1_SK2
4942#endif
4943 use pm_kind, only: SKG => SK2
4944 character(*,SKG) , intent(in) , contiguous :: array(:)
4945 character(len(array, IK),SKG) :: sorting(size(array, 1, IK))
4946 class(sort_type) , intent(in) , optional :: method
4947 end function
4948#endif
4949
4950#if SK1_ENABLED
4951 module function getSortedArrDefComDef_D1_SK1(array, method) result(sorting)
4952#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4953 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrDefComDef_D1_SK1
4954#endif
4955 use pm_kind, only: SKG => SK1
4956 character(*,SKG) , intent(in) , contiguous :: array(:)
4957 character(len(array, IK),SKG) :: sorting(size(array, 1, IK))
4958 class(sort_type) , intent(in) , optional :: method
4959 end function
4960#endif
4961
4962 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4963
4964#if IK5_ENABLED
4965 module function getSortedArrDefComDef_D1_IK5(array, method) result(sorting)
4966#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4967 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrDefComDef_D1_IK5
4968#endif
4969 use pm_kind, only: IKG => IK5
4970 integer(IKG) , intent(in) , contiguous :: array(:)
4971 integer(IKG) :: sorting(size(array, 1, IK))
4972 class(sort_type) , intent(in) , optional :: method
4973 end function
4974#endif
4975
4976#if IK4_ENABLED
4977 module function getSortedArrDefComDef_D1_IK4(array, method) result(sorting)
4978#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4979 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrDefComDef_D1_IK4
4980#endif
4981 use pm_kind, only: IKG => IK4
4982 integer(IKG) , intent(in) , contiguous :: array(:)
4983 integer(IKG) :: sorting(size(array, 1, IK))
4984 class(sort_type) , intent(in) , optional :: method
4985 end function
4986#endif
4987
4988#if IK3_ENABLED
4989 module function getSortedArrDefComDef_D1_IK3(array, method) result(sorting)
4990#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4991 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrDefComDef_D1_IK3
4992#endif
4993 use pm_kind, only: IKG => IK3
4994 integer(IKG) , intent(in) , contiguous :: array(:)
4995 integer(IKG) :: sorting(size(array, 1, IK))
4996 class(sort_type) , intent(in) , optional :: method
4997 end function
4998#endif
4999
5000#if IK2_ENABLED
5001 module function getSortedArrDefComDef_D1_IK2(array, method) result(sorting)
5002#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5003 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrDefComDef_D1_IK2
5004#endif
5005 use pm_kind, only: IKG => IK2
5006 integer(IKG) , intent(in) , contiguous :: array(:)
5007 integer(IKG) :: sorting(size(array, 1, IK))
5008 class(sort_type) , intent(in) , optional :: method
5009 end function
5010#endif
5011
5012#if IK1_ENABLED
5013 module function getSortedArrDefComDef_D1_IK1(array, method) result(sorting)
5014#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5015 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrDefComDef_D1_IK1
5016#endif
5017 use pm_kind, only: IKG => IK1
5018 integer(IKG) , intent(in) , contiguous :: array(:)
5019 integer(IKG) :: sorting(size(array, 1, IK))
5020 class(sort_type) , intent(in) , optional :: method
5021 end function
5022#endif
5023
5024 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5025
5026#if LK5_ENABLED
5027 module function getSortedArrDefComDef_D1_LK5(array, method) result(sorting)
5028#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5029 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrDefComDef_D1_LK5
5030#endif
5031 use pm_kind, only: LKG => LK5
5032 logical(LKG) , intent(in) , contiguous :: array(:)
5033 logical(LKG) :: sorting(size(array, 1, IK))
5034 class(sort_type) , intent(in) , optional :: method
5035 end function
5036#endif
5037
5038#if LK4_ENABLED
5039 module function getSortedArrDefComDef_D1_LK4(array, method) result(sorting)
5040#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5041 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrDefComDef_D1_LK4
5042#endif
5043 use pm_kind, only: LKG => LK4
5044 logical(LKG) , intent(in) , contiguous :: array(:)
5045 logical(LKG) :: sorting(size(array, 1, IK))
5046 class(sort_type) , intent(in) , optional :: method
5047 end function
5048#endif
5049
5050#if LK3_ENABLED
5051 module function getSortedArrDefComDef_D1_LK3(array, method) result(sorting)
5052#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5053 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrDefComDef_D1_LK3
5054#endif
5055 use pm_kind, only: LKG => LK3
5056 logical(LKG) , intent(in) , contiguous :: array(:)
5057 logical(LKG) :: sorting(size(array, 1, IK))
5058 class(sort_type) , intent(in) , optional :: method
5059 end function
5060#endif
5061
5062#if LK2_ENABLED
5063 module function getSortedArrDefComDef_D1_LK2(array, method) result(sorting)
5064#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5065 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrDefComDef_D1_LK2
5066#endif
5067 use pm_kind, only: LKG => LK2
5068 logical(LKG) , intent(in) , contiguous :: array(:)
5069 logical(LKG) :: sorting(size(array, 1, IK))
5070 class(sort_type) , intent(in) , optional :: method
5071 end function
5072#endif
5073
5074#if LK1_ENABLED
5075 module function getSortedArrDefComDef_D1_LK1(array, method) result(sorting)
5076#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5077 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrDefComDef_D1_LK1
5078#endif
5079 use pm_kind, only: LKG => LK1
5080 logical(LKG) , intent(in) , contiguous :: array(:)
5081 logical(LKG) :: sorting(size(array, 1, IK))
5082 class(sort_type) , intent(in) , optional :: method
5083 end function
5084#endif
5085
5086 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5087
5088#if CK5_ENABLED
5089 module function getSortedArrDefComDef_D1_CK5(array, method) result(sorting)
5090#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5091 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrDefComDef_D1_CK5
5092#endif
5093 use pm_kind, only: CKG => CK5
5094 complex(CKG) , intent(in) , contiguous :: array(:)
5095 complex(CKG) :: sorting(size(array, 1, IK))
5096 class(sort_type) , intent(in) , optional :: method
5097 end function
5098#endif
5099
5100#if CK4_ENABLED
5101 module function getSortedArrDefComDef_D1_CK4(array, method) result(sorting)
5102#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5103 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrDefComDef_D1_CK4
5104#endif
5105 use pm_kind, only: CKG => CK4
5106 complex(CKG) , intent(in) , contiguous :: array(:)
5107 complex(CKG) :: sorting(size(array, 1, IK))
5108 class(sort_type) , intent(in) , optional :: method
5109 end function
5110#endif
5111
5112#if CK3_ENABLED
5113 module function getSortedArrDefComDef_D1_CK3(array, method) result(sorting)
5114#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5115 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrDefComDef_D1_CK3
5116#endif
5117 use pm_kind, only: CKG => CK3
5118 complex(CKG) , intent(in) , contiguous :: array(:)
5119 complex(CKG) :: sorting(size(array, 1, IK))
5120 class(sort_type) , intent(in) , optional :: method
5121 end function
5122#endif
5123
5124#if CK2_ENABLED
5125 module function getSortedArrDefComDef_D1_CK2(array, method) result(sorting)
5126#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5127 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrDefComDef_D1_CK2
5128#endif
5129 use pm_kind, only: CKG => CK2
5130 complex(CKG) , intent(in) , contiguous :: array(:)
5131 complex(CKG) :: sorting(size(array, 1, IK))
5132 class(sort_type) , intent(in) , optional :: method
5133 end function
5134#endif
5135
5136#if CK1_ENABLED
5137 module function getSortedArrDefComDef_D1_CK1(array, method) result(sorting)
5138#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5139 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrDefComDef_D1_CK1
5140#endif
5141 use pm_kind, only: CKG => CK1
5142 complex(CKG) , intent(in) , contiguous :: array(:)
5143 complex(CKG) :: sorting(size(array, 1, IK))
5144 class(sort_type) , intent(in) , optional :: method
5145 end function
5146#endif
5147
5148 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5149
5150#if RK5_ENABLED
5151 module function getSortedArrDefComDef_D1_RK5(array, method) result(sorting)
5152#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5153 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrDefComDef_D1_RK5
5154#endif
5155 use pm_kind, only: RKG => RK5
5156 real(RKG) , intent(in) , contiguous :: array(:)
5157 real(RKG) :: sorting(size(array, 1, IK))
5158 class(sort_type) , intent(in) , optional :: method
5159 end function
5160#endif
5161
5162#if RK4_ENABLED
5163 module function getSortedArrDefComDef_D1_RK4(array, method) result(sorting)
5164#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5165 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrDefComDef_D1_RK4
5166#endif
5167 use pm_kind, only: RKG => RK4
5168 real(RKG) , intent(in) , contiguous :: array(:)
5169 real(RKG) :: sorting(size(array, 1, IK))
5170 class(sort_type) , intent(in) , optional :: method
5171 end function
5172#endif
5173
5174#if RK3_ENABLED
5175 module function getSortedArrDefComDef_D1_RK3(array, method) result(sorting)
5176#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5177 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrDefComDef_D1_RK3
5178#endif
5179 use pm_kind, only: RKG => RK3
5180 real(RKG) , intent(in) , contiguous :: array(:)
5181 real(RKG) :: sorting(size(array, 1, IK))
5182 class(sort_type) , intent(in) , optional :: method
5183 end function
5184#endif
5185
5186#if RK2_ENABLED
5187 module function getSortedArrDefComDef_D1_RK2(array, method) result(sorting)
5188#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5189 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrDefComDef_D1_RK2
5190#endif
5191 use pm_kind, only: RKG => RK2
5192 real(RKG) , intent(in) , contiguous :: array(:)
5193 real(RKG) :: sorting(size(array, 1, IK))
5194 class(sort_type) , intent(in) , optional :: method
5195 end function
5196#endif
5197
5198#if RK1_ENABLED
5199 module function getSortedArrDefComDef_D1_RK1(array, method) result(sorting)
5200#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5201 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrDefComDef_D1_RK1
5202#endif
5203 use pm_kind, only: RKG => RK1
5204 real(RKG) , intent(in) , contiguous :: array(:)
5205 real(RKG) :: sorting(size(array, 1, IK))
5206 class(sort_type) , intent(in) , optional :: method
5207 end function
5208#endif
5209
5210 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5211
5212#if PDT_ENABLED
5213
5214#if SK5_ENABLED
5215 module function getSortedArrDefComDef_D1_PSSK5(array, method) result(sorting)
5216#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5217 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrDefComDef_D1_PSSK5
5218#endif
5219 use pm_kind, only: SKG => SK5
5220 use pm_container, only: css_pdt
5221 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
5222 type(css_pdt(SKG)) :: sorting(size(array, 1, IK))
5223 class(sort_type) , intent(in) , optional :: method
5224 end function
5225#endif
5226
5227#if SK4_ENABLED
5228 module function getSortedArrDefComDef_D1_PSSK4(array, method) result(sorting)
5229#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5230 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrDefComDef_D1_PSSK4
5231#endif
5232 use pm_kind, only: SKG => SK4
5233 use pm_container, only: css_pdt
5234 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
5235 type(css_pdt(SKG)) :: sorting(size(array, 1, IK))
5236 class(sort_type) , intent(in) , optional :: method
5237 end function
5238#endif
5239
5240#if SK3_ENABLED
5241 module function getSortedArrDefComDef_D1_PSSK3(array, method) result(sorting)
5242#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5243 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrDefComDef_D1_PSSK3
5244#endif
5245 use pm_kind, only: SKG => SK3
5246 use pm_container, only: css_pdt
5247 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
5248 type(css_pdt(SKG)) :: sorting(size(array, 1, IK))
5249 class(sort_type) , intent(in) , optional :: method
5250 end function
5251#endif
5252
5253#if SK2_ENABLED
5254 module function getSortedArrDefComDef_D1_PSSK2(array, method) result(sorting)
5255#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5256 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrDefComDef_D1_PSSK2
5257#endif
5258 use pm_kind, only: SKG => SK2
5259 use pm_container, only: css_pdt
5260 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
5261 type(css_pdt(SKG)) :: sorting(size(array, 1, IK))
5262 class(sort_type) , intent(in) , optional :: method
5263 end function
5264#endif
5265
5266#if SK1_ENABLED
5267 module function getSortedArrDefComDef_D1_PSSK1(array, method) result(sorting)
5268#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5269 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrDefComDef_D1_PSSK1
5270#endif
5271 use pm_kind, only: SKG => SK1
5272 use pm_container, only: css_pdt
5273 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
5274 type(css_pdt(SKG)) :: sorting(size(array, 1, IK))
5275 class(sort_type) , intent(in) , optional :: method
5276 end function
5277#endif
5278
5279#endif
5280!PDT_ENABLED
5281
5282 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5283
5284 module function getSortedArrDefComDef_D1_BSSK(array, method) result(sorting)
5285#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5286 !DEC$ ATTRIBUTES DLLEXPORT :: getSortedArrDefComDef_D1_BSSK
5287#endif
5288 use pm_kind, only: SKG => SK
5289 use pm_container, only: css_type
5290 type(css_type) , intent(in) , contiguous :: array(:)
5291 type(css_type) :: sorting(size(array, 1, IK))
5292 class(sort_type) , intent(in) , optional :: method
5293 end function
5294
5295 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5296
5297 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5298 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5299 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5300
5301 end interface
5302
5303!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5304
5537
5538 ! setSortedIndDefComDef
5539
5540 interface setSorted
5541
5542 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5543 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5544 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5545
5546 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5547
5548#if SK5_ENABLED
5549 PURE module subroutine setSortedIndDefComDef_D0_SK5(array, index)
5550#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5551 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndDefComDef_D0_SK5
5552#endif
5553 use pm_kind, only: SKG => SK5
5554 character(*,SKG) , intent(in) :: array
5555 integer(IK) , intent(out) , contiguous :: index(:)
5556 end subroutine
5557#endif
5558
5559#if SK4_ENABLED
5560 PURE module subroutine setSortedIndDefComDef_D0_SK4(array, index)
5561#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5562 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndDefComDef_D0_SK4
5563#endif
5564 use pm_kind, only: SKG => SK4
5565 character(*,SKG) , intent(in) :: array
5566 integer(IK) , intent(out) , contiguous :: index(:)
5567 end subroutine
5568#endif
5569
5570#if SK3_ENABLED
5571 PURE module subroutine setSortedIndDefComDef_D0_SK3(array, index)
5572#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5573 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndDefComDef_D0_SK3
5574#endif
5575 use pm_kind, only: SKG => SK3
5576 character(*,SKG) , intent(in) :: array
5577 integer(IK) , intent(out) , contiguous :: index(:)
5578 end subroutine
5579#endif
5580
5581#if SK2_ENABLED
5582 PURE module subroutine setSortedIndDefComDef_D0_SK2(array, index)
5583#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5584 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndDefComDef_D0_SK2
5585#endif
5586 use pm_kind, only: SKG => SK2
5587 character(*,SKG) , intent(in) :: array
5588 integer(IK) , intent(out) , contiguous :: index(:)
5589 end subroutine
5590#endif
5591
5592#if SK1_ENABLED
5593 PURE module subroutine setSortedIndDefComDef_D0_SK1(array, index)
5594#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5595 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndDefComDef_D0_SK1
5596#endif
5597 use pm_kind, only: SKG => SK1
5598 character(*,SKG) , intent(in) :: array
5599 integer(IK) , intent(out) , contiguous :: index(:)
5600 end subroutine
5601#endif
5602
5603 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5604
5605#if SK5_ENABLED
5606 PURE module subroutine setSortedIndDefComDef_D1_SK5(array, index)
5607#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5608 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndDefComDef_D1_SK5
5609#endif
5610 use pm_kind, only: SKG => SK5
5611 character(*,SKG) , intent(in) , contiguous :: array(:)
5612 integer(IK) , intent(out) , contiguous :: index(:)
5613 end subroutine
5614#endif
5615
5616#if SK4_ENABLED
5617 PURE module subroutine setSortedIndDefComDef_D1_SK4(array, index)
5618#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5619 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndDefComDef_D1_SK4
5620#endif
5621 use pm_kind, only: SKG => SK4
5622 character(*,SKG) , intent(in) , contiguous :: array(:)
5623 integer(IK) , intent(out) , contiguous :: index(:)
5624 end subroutine
5625#endif
5626
5627#if SK3_ENABLED
5628 PURE module subroutine setSortedIndDefComDef_D1_SK3(array, index)
5629#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5630 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndDefComDef_D1_SK3
5631#endif
5632 use pm_kind, only: SKG => SK3
5633 character(*,SKG) , intent(in) , contiguous :: array(:)
5634 integer(IK) , intent(out) , contiguous :: index(:)
5635 end subroutine
5636#endif
5637
5638#if SK2_ENABLED
5639 PURE module subroutine setSortedIndDefComDef_D1_SK2(array, index)
5640#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5641 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndDefComDef_D1_SK2
5642#endif
5643 use pm_kind, only: SKG => SK2
5644 character(*,SKG) , intent(in) , contiguous :: array(:)
5645 integer(IK) , intent(out) , contiguous :: index(:)
5646 end subroutine
5647#endif
5648
5649#if SK1_ENABLED
5650 PURE module subroutine setSortedIndDefComDef_D1_SK1(array, index)
5651#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5652 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndDefComDef_D1_SK1
5653#endif
5654 use pm_kind, only: SKG => SK1
5655 character(*,SKG) , intent(in) , contiguous :: array(:)
5656 integer(IK) , intent(out) , contiguous :: index(:)
5657 end subroutine
5658#endif
5659
5660 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5661
5662#if IK5_ENABLED
5663 PURE module subroutine setSortedIndDefComDef_D1_IK5(array, index)
5664#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5665 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndDefComDef_D1_IK5
5666#endif
5667 use pm_kind, only: IKG => IK5
5668 integer(IKG) , intent(in) , contiguous :: array(:)
5669 integer(IK) , intent(out) , contiguous :: index(:)
5670 end subroutine
5671#endif
5672
5673#if IK4_ENABLED
5674 PURE module subroutine setSortedIndDefComDef_D1_IK4(array, index)
5675#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5676 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndDefComDef_D1_IK4
5677#endif
5678 use pm_kind, only: IKG => IK4
5679 integer(IKG) , intent(in) , contiguous :: array(:)
5680 integer(IK) , intent(out) , contiguous :: index(:)
5681 end subroutine
5682#endif
5683
5684#if IK3_ENABLED
5685 PURE module subroutine setSortedIndDefComDef_D1_IK3(array, index)
5686#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5687 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndDefComDef_D1_IK3
5688#endif
5689 use pm_kind, only: IKG => IK3
5690 integer(IKG) , intent(in) , contiguous :: array(:)
5691 integer(IK) , intent(out) , contiguous :: index(:)
5692 end subroutine
5693#endif
5694
5695#if IK2_ENABLED
5696 PURE module subroutine setSortedIndDefComDef_D1_IK2(array, index)
5697#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5698 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndDefComDef_D1_IK2
5699#endif
5700 use pm_kind, only: IKG => IK2
5701 integer(IKG) , intent(in) , contiguous :: array(:)
5702 integer(IK) , intent(out) , contiguous :: index(:)
5703 end subroutine
5704#endif
5705
5706#if IK1_ENABLED
5707 PURE module subroutine setSortedIndDefComDef_D1_IK1(array, index)
5708#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5709 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndDefComDef_D1_IK1
5710#endif
5711 use pm_kind, only: IKG => IK1
5712 integer(IKG) , intent(in) , contiguous :: array(:)
5713 integer(IK) , intent(out) , contiguous :: index(:)
5714 end subroutine
5715#endif
5716
5717 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5718
5719#if LK5_ENABLED
5720 PURE module subroutine setSortedIndDefComDef_D1_LK5(array, index)
5721#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5722 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndDefComDef_D1_LK5
5723#endif
5724 use pm_kind, only: LKG => LK5
5725 logical(LKG) , intent(in) , contiguous :: array(:)
5726 integer(IK) , intent(out) , contiguous :: index(:)
5727 end subroutine
5728#endif
5729
5730#if LK4_ENABLED
5731 PURE module subroutine setSortedIndDefComDef_D1_LK4(array, index)
5732#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5733 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndDefComDef_D1_LK4
5734#endif
5735 use pm_kind, only: LKG => LK4
5736 logical(LKG) , intent(in) , contiguous :: array(:)
5737 integer(IK) , intent(out) , contiguous :: index(:)
5738 end subroutine
5739#endif
5740
5741#if LK3_ENABLED
5742 PURE module subroutine setSortedIndDefComDef_D1_LK3(array, index)
5743#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5744 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndDefComDef_D1_LK3
5745#endif
5746 use pm_kind, only: LKG => LK3
5747 logical(LKG) , intent(in) , contiguous :: array(:)
5748 integer(IK) , intent(out) , contiguous :: index(:)
5749 end subroutine
5750#endif
5751
5752#if LK2_ENABLED
5753 PURE module subroutine setSortedIndDefComDef_D1_LK2(array, index)
5754#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5755 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndDefComDef_D1_LK2
5756#endif
5757 use pm_kind, only: LKG => LK2
5758 logical(LKG) , intent(in) , contiguous :: array(:)
5759 integer(IK) , intent(out) , contiguous :: index(:)
5760 end subroutine
5761#endif
5762
5763#if LK1_ENABLED
5764 PURE module subroutine setSortedIndDefComDef_D1_LK1(array, index)
5765#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5766 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndDefComDef_D1_LK1
5767#endif
5768 use pm_kind, only: LKG => LK1
5769 logical(LKG) , intent(in) , contiguous :: array(:)
5770 integer(IK) , intent(out) , contiguous :: index(:)
5771 end subroutine
5772#endif
5773
5774 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5775
5776#if CK5_ENABLED
5777 PURE module subroutine setSortedIndDefComDef_D1_CK5(array, index)
5778#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5779 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndDefComDef_D1_CK5
5780#endif
5781 use pm_kind, only: CKG => CK5
5782 complex(CKG) , intent(in) , contiguous :: array(:)
5783 integer(IK) , intent(out) , contiguous :: index(:)
5784 end subroutine
5785#endif
5786
5787#if CK4_ENABLED
5788 PURE module subroutine setSortedIndDefComDef_D1_CK4(array, index)
5789#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5790 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndDefComDef_D1_CK4
5791#endif
5792 use pm_kind, only: CKG => CK4
5793 complex(CKG) , intent(in) , contiguous :: array(:)
5794 integer(IK) , intent(out) , contiguous :: index(:)
5795 end subroutine
5796#endif
5797
5798#if CK3_ENABLED
5799 PURE module subroutine setSortedIndDefComDef_D1_CK3(array, index)
5800#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5801 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndDefComDef_D1_CK3
5802#endif
5803 use pm_kind, only: CKG => CK3
5804 complex(CKG) , intent(in) , contiguous :: array(:)
5805 integer(IK) , intent(out) , contiguous :: index(:)
5806 end subroutine
5807#endif
5808
5809#if CK2_ENABLED
5810 PURE module subroutine setSortedIndDefComDef_D1_CK2(array, index)
5811#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5812 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndDefComDef_D1_CK2
5813#endif
5814 use pm_kind, only: CKG => CK2
5815 complex(CKG) , intent(in) , contiguous :: array(:)
5816 integer(IK) , intent(out) , contiguous :: index(:)
5817 end subroutine
5818#endif
5819
5820#if CK1_ENABLED
5821 PURE module subroutine setSortedIndDefComDef_D1_CK1(array, index)
5822#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5823 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndDefComDef_D1_CK1
5824#endif
5825 use pm_kind, only: CKG => CK1
5826 complex(CKG) , intent(in) , contiguous :: array(:)
5827 integer(IK) , intent(out) , contiguous :: index(:)
5828 end subroutine
5829#endif
5830
5831 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5832
5833#if RK5_ENABLED
5834 PURE module subroutine setSortedIndDefComDef_D1_RK5(array, index)
5835#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5836 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndDefComDef_D1_RK5
5837#endif
5838 use pm_kind, only: RKG => RK5
5839 real(RKG) , intent(in) , contiguous :: array(:)
5840 integer(IK) , intent(out) , contiguous :: index(:)
5841 end subroutine
5842#endif
5843
5844#if RK4_ENABLED
5845 PURE module subroutine setSortedIndDefComDef_D1_RK4(array, index)
5846#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5847 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndDefComDef_D1_RK4
5848#endif
5849 use pm_kind, only: RKG => RK4
5850 real(RKG) , intent(in) , contiguous :: array(:)
5851 integer(IK) , intent(out) , contiguous :: index(:)
5852 end subroutine
5853#endif
5854
5855#if RK3_ENABLED
5856 PURE module subroutine setSortedIndDefComDef_D1_RK3(array, index)
5857#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5858 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndDefComDef_D1_RK3
5859#endif
5860 use pm_kind, only: RKG => RK3
5861 real(RKG) , intent(in) , contiguous :: array(:)
5862 integer(IK) , intent(out) , contiguous :: index(:)
5863 end subroutine
5864#endif
5865
5866#if RK2_ENABLED
5867 PURE module subroutine setSortedIndDefComDef_D1_RK2(array, index)
5868#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5869 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndDefComDef_D1_RK2
5870#endif
5871 use pm_kind, only: RKG => RK2
5872 real(RKG) , intent(in) , contiguous :: array(:)
5873 integer(IK) , intent(out) , contiguous :: index(:)
5874 end subroutine
5875#endif
5876
5877#if RK1_ENABLED
5878 PURE module subroutine setSortedIndDefComDef_D1_RK1(array, index)
5879#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5880 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndDefComDef_D1_RK1
5881#endif
5882 use pm_kind, only: RKG => RK1
5883 real(RKG) , intent(in) , contiguous :: array(:)
5884 integer(IK) , intent(out) , contiguous :: index(:)
5885 end subroutine
5886#endif
5887
5888 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5889
5890#if PDT_ENABLED
5891
5892#if SK5_ENABLED
5893 PURE module subroutine setSortedIndDefComDef_D1_PSSK5(array, index)
5894#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5895 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndDefComDef_D1_PSSK5
5896#endif
5897 use pm_kind, only: SKG => SK5
5898 use pm_container, only: css_pdt
5899 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
5900 integer(IK) , intent(out) , contiguous :: index(:)
5901 end subroutine
5902#endif
5903
5904#if SK4_ENABLED
5905 PURE module subroutine setSortedIndDefComDef_D1_PSSK4(array, index)
5906#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5907 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndDefComDef_D1_PSSK4
5908#endif
5909 use pm_kind, only: SKG => SK4
5910 use pm_container, only: css_pdt
5911 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
5912 integer(IK) , intent(out) , contiguous :: index(:)
5913 end subroutine
5914#endif
5915
5916#if SK3_ENABLED
5917 PURE module subroutine setSortedIndDefComDef_D1_PSSK3(array, index)
5918#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5919 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndDefComDef_D1_PSSK3
5920#endif
5921 use pm_kind, only: SKG => SK3
5922 use pm_container, only: css_pdt
5923 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
5924 integer(IK) , intent(out) , contiguous :: index(:)
5925 end subroutine
5926#endif
5927
5928#if SK2_ENABLED
5929 PURE module subroutine setSortedIndDefComDef_D1_PSSK2(array, index)
5930#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5931 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndDefComDef_D1_PSSK2
5932#endif
5933 use pm_kind, only: SKG => SK2
5934 use pm_container, only: css_pdt
5935 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
5936 integer(IK) , intent(out) , contiguous :: index(:)
5937 end subroutine
5938#endif
5939
5940#if SK1_ENABLED
5941 PURE module subroutine setSortedIndDefComDef_D1_PSSK1(array, index)
5942#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5943 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndDefComDef_D1_PSSK1
5944#endif
5945 use pm_kind, only: SKG => SK1
5946 use pm_container, only: css_pdt
5947 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
5948 integer(IK) , intent(out) , contiguous :: index(:)
5949 end subroutine
5950#endif
5951
5952#endif
5953!PDT_ENABLED
5954
5955 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5956
5957 PURE module subroutine setSortedIndDefComDef_D1_BSSK(array, index)
5958#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5959 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndDefComDef_D1_BSSK
5960#endif
5961 use pm_kind, only: SKG => SK
5962 use pm_container, only: css_type
5963 type(css_type) , intent(in) , contiguous :: array(:)
5964 integer(IK) , intent(out) , contiguous :: index(:)
5965 end subroutine
5966
5967 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5968
5969 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5970 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5971 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5972
5973 end interface
5974
5975 ! setSortedIndCusComDef
5976
5977 interface setSorted
5978
5979 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5980 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5981 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5982
5983 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5984
5985#if SK5_ENABLED
5986 module subroutine setSortedIndCusComDef_D0_SK5(array, index, isSorted)
5987#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5988 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndCusComDef_D0_SK5
5989#endif
5990 use pm_kind, only: SKG => SK5
5991 character(*,SKG) , intent(in) :: array
5992 integer(IK) , intent(out) , contiguous :: index(:)
5993 procedure(logical(LK)) :: isSorted
5994 end subroutine
5995#endif
5996
5997#if SK4_ENABLED
5998 module subroutine setSortedIndCusComDef_D0_SK4(array, index, isSorted)
5999#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6000 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndCusComDef_D0_SK4
6001#endif
6002 use pm_kind, only: SKG => SK4
6003 character(*,SKG) , intent(in) :: array
6004 integer(IK) , intent(out) , contiguous :: index(:)
6005 procedure(logical(LK)) :: isSorted
6006 end subroutine
6007#endif
6008
6009#if SK3_ENABLED
6010 module subroutine setSortedIndCusComDef_D0_SK3(array, index, isSorted)
6011#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6012 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndCusComDef_D0_SK3
6013#endif
6014 use pm_kind, only: SKG => SK3
6015 character(*,SKG) , intent(in) :: array
6016 integer(IK) , intent(out) , contiguous :: index(:)
6017 procedure(logical(LK)) :: isSorted
6018 end subroutine
6019#endif
6020
6021#if SK2_ENABLED
6022 module subroutine setSortedIndCusComDef_D0_SK2(array, index, isSorted)
6023#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6024 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndCusComDef_D0_SK2
6025#endif
6026 use pm_kind, only: SKG => SK2
6027 character(*,SKG) , intent(in) :: array
6028 integer(IK) , intent(out) , contiguous :: index(:)
6029 procedure(logical(LK)) :: isSorted
6030 end subroutine
6031#endif
6032
6033#if SK1_ENABLED
6034 module subroutine setSortedIndCusComDef_D0_SK1(array, index, isSorted)
6035#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6036 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndCusComDef_D0_SK1
6037#endif
6038 use pm_kind, only: SKG => SK1
6039 character(*,SKG) , intent(in) :: array
6040 integer(IK) , intent(out) , contiguous :: index(:)
6041 procedure(logical(LK)) :: isSorted
6042 end subroutine
6043#endif
6044
6045 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6046
6047#if SK5_ENABLED
6048 module subroutine setSortedIndCusComDef_D1_SK5(array, index, isSorted)
6049#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6050 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndCusComDef_D1_SK5
6051#endif
6052 use pm_kind, only: SKG => SK5
6053 character(*,SKG) , intent(in) , contiguous :: array(:)
6054 integer(IK) , intent(out) , contiguous :: index(:)
6055 procedure(logical(LK)) :: isSorted
6056 end subroutine
6057#endif
6058
6059#if SK4_ENABLED
6060 module subroutine setSortedIndCusComDef_D1_SK4(array, index, isSorted)
6061#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6062 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndCusComDef_D1_SK4
6063#endif
6064 use pm_kind, only: SKG => SK4
6065 character(*,SKG) , intent(in) , contiguous :: array(:)
6066 integer(IK) , intent(out) , contiguous :: index(:)
6067 procedure(logical(LK)) :: isSorted
6068 end subroutine
6069#endif
6070
6071#if SK3_ENABLED
6072 module subroutine setSortedIndCusComDef_D1_SK3(array, index, isSorted)
6073#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6074 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndCusComDef_D1_SK3
6075#endif
6076 use pm_kind, only: SKG => SK3
6077 character(*,SKG) , intent(in) , contiguous :: array(:)
6078 integer(IK) , intent(out) , contiguous :: index(:)
6079 procedure(logical(LK)) :: isSorted
6080 end subroutine
6081#endif
6082
6083#if SK2_ENABLED
6084 module subroutine setSortedIndCusComDef_D1_SK2(array, index, isSorted)
6085#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6086 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndCusComDef_D1_SK2
6087#endif
6088 use pm_kind, only: SKG => SK2
6089 character(*,SKG) , intent(in) , contiguous :: array(:)
6090 integer(IK) , intent(out) , contiguous :: index(:)
6091 procedure(logical(LK)) :: isSorted
6092 end subroutine
6093#endif
6094
6095#if SK1_ENABLED
6096 module subroutine setSortedIndCusComDef_D1_SK1(array, index, isSorted)
6097#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6098 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndCusComDef_D1_SK1
6099#endif
6100 use pm_kind, only: SKG => SK1
6101 character(*,SKG) , intent(in) , contiguous :: array(:)
6102 integer(IK) , intent(out) , contiguous :: index(:)
6103 procedure(logical(LK)) :: isSorted
6104 end subroutine
6105#endif
6106
6107 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6108
6109#if IK5_ENABLED
6110 module subroutine setSortedIndCusComDef_D1_IK5(array, index, isSorted)
6111#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6112 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndCusComDef_D1_IK5
6113#endif
6114 use pm_kind, only: IKG => IK5
6115 integer(IKG) , intent(in) , contiguous :: array(:)
6116 integer(IK) , intent(out) , contiguous :: index(:)
6117 procedure(logical(LK)) :: isSorted
6118 end subroutine
6119#endif
6120
6121#if IK4_ENABLED
6122 module subroutine setSortedIndCusComDef_D1_IK4(array, index, isSorted)
6123#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6124 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndCusComDef_D1_IK4
6125#endif
6126 use pm_kind, only: IKG => IK4
6127 integer(IKG) , intent(in) , contiguous :: array(:)
6128 integer(IK) , intent(out) , contiguous :: index(:)
6129 procedure(logical(LK)) :: isSorted
6130 end subroutine
6131#endif
6132
6133#if IK3_ENABLED
6134 module subroutine setSortedIndCusComDef_D1_IK3(array, index, isSorted)
6135#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6136 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndCusComDef_D1_IK3
6137#endif
6138 use pm_kind, only: IKG => IK3
6139 integer(IKG) , intent(in) , contiguous :: array(:)
6140 integer(IK) , intent(out) , contiguous :: index(:)
6141 procedure(logical(LK)) :: isSorted
6142 end subroutine
6143#endif
6144
6145#if IK2_ENABLED
6146 module subroutine setSortedIndCusComDef_D1_IK2(array, index, isSorted)
6147#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6148 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndCusComDef_D1_IK2
6149#endif
6150 use pm_kind, only: IKG => IK2
6151 integer(IKG) , intent(in) , contiguous :: array(:)
6152 integer(IK) , intent(out) , contiguous :: index(:)
6153 procedure(logical(LK)) :: isSorted
6154 end subroutine
6155#endif
6156
6157#if IK1_ENABLED
6158 module subroutine setSortedIndCusComDef_D1_IK1(array, index, isSorted)
6159#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6160 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndCusComDef_D1_IK1
6161#endif
6162 use pm_kind, only: IKG => IK1
6163 integer(IKG) , intent(in) , contiguous :: array(:)
6164 integer(IK) , intent(out) , contiguous :: index(:)
6165 procedure(logical(LK)) :: isSorted
6166 end subroutine
6167#endif
6168
6169 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6170
6171#if LK5_ENABLED
6172 module subroutine setSortedIndCusComDef_D1_LK5(array, index, isSorted)
6173#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6174 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndCusComDef_D1_LK5
6175#endif
6176 use pm_kind, only: LKG => LK5
6177 logical(LKG) , intent(in) , contiguous :: array(:)
6178 integer(IK) , intent(out) , contiguous :: index(:)
6179 procedure(logical(LK)) :: isSorted
6180 end subroutine
6181#endif
6182
6183#if LK4_ENABLED
6184 module subroutine setSortedIndCusComDef_D1_LK4(array, index, isSorted)
6185#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6186 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndCusComDef_D1_LK4
6187#endif
6188 use pm_kind, only: LKG => LK4
6189 logical(LKG) , intent(in) , contiguous :: array(:)
6190 integer(IK) , intent(out) , contiguous :: index(:)
6191 procedure(logical(LK)) :: isSorted
6192 end subroutine
6193#endif
6194
6195#if LK3_ENABLED
6196 module subroutine setSortedIndCusComDef_D1_LK3(array, index, isSorted)
6197#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6198 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndCusComDef_D1_LK3
6199#endif
6200 use pm_kind, only: LKG => LK3
6201 logical(LKG) , intent(in) , contiguous :: array(:)
6202 integer(IK) , intent(out) , contiguous :: index(:)
6203 procedure(logical(LK)) :: isSorted
6204 end subroutine
6205#endif
6206
6207#if LK2_ENABLED
6208 module subroutine setSortedIndCusComDef_D1_LK2(array, index, isSorted)
6209#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6210 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndCusComDef_D1_LK2
6211#endif
6212 use pm_kind, only: LKG => LK2
6213 logical(LKG) , intent(in) , contiguous :: array(:)
6214 integer(IK) , intent(out) , contiguous :: index(:)
6215 procedure(logical(LK)) :: isSorted
6216 end subroutine
6217#endif
6218
6219#if LK1_ENABLED
6220 module subroutine setSortedIndCusComDef_D1_LK1(array, index, isSorted)
6221#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6222 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndCusComDef_D1_LK1
6223#endif
6224 use pm_kind, only: LKG => LK1
6225 logical(LKG) , intent(in) , contiguous :: array(:)
6226 integer(IK) , intent(out) , contiguous :: index(:)
6227 procedure(logical(LK)) :: isSorted
6228 end subroutine
6229#endif
6230
6231 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6232
6233#if CK5_ENABLED
6234 module subroutine setSortedIndCusComDef_D1_CK5(array, index, isSorted)
6235#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6236 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndCusComDef_D1_CK5
6237#endif
6238 use pm_kind, only: CKG => CK5
6239 complex(CKG) , intent(in) , contiguous :: array(:)
6240 integer(IK) , intent(out) , contiguous :: index(:)
6241 procedure(logical(LK)) :: isSorted
6242 end subroutine
6243#endif
6244
6245#if CK4_ENABLED
6246 module subroutine setSortedIndCusComDef_D1_CK4(array, index, isSorted)
6247#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6248 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndCusComDef_D1_CK4
6249#endif
6250 use pm_kind, only: CKG => CK4
6251 complex(CKG) , intent(in) , contiguous :: array(:)
6252 integer(IK) , intent(out) , contiguous :: index(:)
6253 procedure(logical(LK)) :: isSorted
6254 end subroutine
6255#endif
6256
6257#if CK3_ENABLED
6258 module subroutine setSortedIndCusComDef_D1_CK3(array, index, isSorted)
6259#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6260 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndCusComDef_D1_CK3
6261#endif
6262 use pm_kind, only: CKG => CK3
6263 complex(CKG) , intent(in) , contiguous :: array(:)
6264 integer(IK) , intent(out) , contiguous :: index(:)
6265 procedure(logical(LK)) :: isSorted
6266 end subroutine
6267#endif
6268
6269#if CK2_ENABLED
6270 module subroutine setSortedIndCusComDef_D1_CK2(array, index, isSorted)
6271#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6272 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndCusComDef_D1_CK2
6273#endif
6274 use pm_kind, only: CKG => CK2
6275 complex(CKG) , intent(in) , contiguous :: array(:)
6276 integer(IK) , intent(out) , contiguous :: index(:)
6277 procedure(logical(LK)) :: isSorted
6278 end subroutine
6279#endif
6280
6281#if CK1_ENABLED
6282 module subroutine setSortedIndCusComDef_D1_CK1(array, index, isSorted)
6283#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6284 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndCusComDef_D1_CK1
6285#endif
6286 use pm_kind, only: CKG => CK1
6287 complex(CKG) , intent(in) , contiguous :: array(:)
6288 integer(IK) , intent(out) , contiguous :: index(:)
6289 procedure(logical(LK)) :: isSorted
6290 end subroutine
6291#endif
6292
6293 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6294
6295#if RK5_ENABLED
6296 module subroutine setSortedIndCusComDef_D1_RK5(array, index, isSorted)
6297#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6298 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndCusComDef_D1_RK5
6299#endif
6300 use pm_kind, only: RKG => RK5
6301 real(RKG) , intent(in) , contiguous :: array(:)
6302 integer(IK) , intent(out) , contiguous :: index(:)
6303 procedure(logical(LK)) :: isSorted
6304 end subroutine
6305#endif
6306
6307#if RK4_ENABLED
6308 module subroutine setSortedIndCusComDef_D1_RK4(array, index, isSorted)
6309#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6310 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndCusComDef_D1_RK4
6311#endif
6312 use pm_kind, only: RKG => RK4
6313 real(RKG) , intent(in) , contiguous :: array(:)
6314 integer(IK) , intent(out) , contiguous :: index(:)
6315 procedure(logical(LK)) :: isSorted
6316 end subroutine
6317#endif
6318
6319#if RK3_ENABLED
6320 module subroutine setSortedIndCusComDef_D1_RK3(array, index, isSorted)
6321#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6322 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndCusComDef_D1_RK3
6323#endif
6324 use pm_kind, only: RKG => RK3
6325 real(RKG) , intent(in) , contiguous :: array(:)
6326 integer(IK) , intent(out) , contiguous :: index(:)
6327 procedure(logical(LK)) :: isSorted
6328 end subroutine
6329#endif
6330
6331#if RK2_ENABLED
6332 module subroutine setSortedIndCusComDef_D1_RK2(array, index, isSorted)
6333#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6334 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndCusComDef_D1_RK2
6335#endif
6336 use pm_kind, only: RKG => RK2
6337 real(RKG) , intent(in) , contiguous :: array(:)
6338 integer(IK) , intent(out) , contiguous :: index(:)
6339 procedure(logical(LK)) :: isSorted
6340 end subroutine
6341#endif
6342
6343#if RK1_ENABLED
6344 module subroutine setSortedIndCusComDef_D1_RK1(array, index, isSorted)
6345#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6346 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndCusComDef_D1_RK1
6347#endif
6348 use pm_kind, only: RKG => RK1
6349 real(RKG) , intent(in) , contiguous :: array(:)
6350 integer(IK) , intent(out) , contiguous :: index(:)
6351 procedure(logical(LK)) :: isSorted
6352 end subroutine
6353#endif
6354
6355 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6356
6357#if PDT_ENABLED
6358
6359#if SK5_ENABLED
6360 module subroutine setSortedIndCusComDef_D1_PSSK5(array, index, isSorted)
6361#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6362 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndCusComDef_D1_PSSK5
6363#endif
6364 use pm_kind, only: SKG => SK5
6365 use pm_container, only: css_pdt
6366 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
6367 integer(IK) , intent(out) , contiguous :: index(:)
6368 procedure(logical(LK)) :: isSorted
6369 end subroutine
6370#endif
6371
6372#if SK4_ENABLED
6373 module subroutine setSortedIndCusComDef_D1_PSSK4(array, index, isSorted)
6374#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6375 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndCusComDef_D1_PSSK4
6376#endif
6377 use pm_kind, only: SKG => SK4
6378 use pm_container, only: css_pdt
6379 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
6380 integer(IK) , intent(out) , contiguous :: index(:)
6381 procedure(logical(LK)) :: isSorted
6382 end subroutine
6383#endif
6384
6385#if SK3_ENABLED
6386 module subroutine setSortedIndCusComDef_D1_PSSK3(array, index, isSorted)
6387#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6388 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndCusComDef_D1_PSSK3
6389#endif
6390 use pm_kind, only: SKG => SK3
6391 use pm_container, only: css_pdt
6392 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
6393 integer(IK) , intent(out) , contiguous :: index(:)
6394 procedure(logical(LK)) :: isSorted
6395 end subroutine
6396#endif
6397
6398#if SK2_ENABLED
6399 module subroutine setSortedIndCusComDef_D1_PSSK2(array, index, isSorted)
6400#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6401 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndCusComDef_D1_PSSK2
6402#endif
6403 use pm_kind, only: SKG => SK2
6404 use pm_container, only: css_pdt
6405 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
6406 integer(IK) , intent(out) , contiguous :: index(:)
6407 procedure(logical(LK)) :: isSorted
6408 end subroutine
6409#endif
6410
6411#if SK1_ENABLED
6412 module subroutine setSortedIndCusComDef_D1_PSSK1(array, index, isSorted)
6413#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6414 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndCusComDef_D1_PSSK1
6415#endif
6416 use pm_kind, only: SKG => SK1
6417 use pm_container, only: css_pdt
6418 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
6419 integer(IK) , intent(out) , contiguous :: index(:)
6420 procedure(logical(LK)) :: isSorted
6421 end subroutine
6422#endif
6423
6424#endif
6425!PDT_ENABLED
6426
6427 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6428
6429 module subroutine setSortedIndCusComDef_D1_BSSK(array, index, isSorted)
6430#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6431 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedIndCusComDef_D1_BSSK
6432#endif
6433 use pm_kind, only: SKG => SK
6434 use pm_container, only: css_type
6435 type(css_type) , intent(in) , contiguous :: array(:)
6436 integer(IK) , intent(out) , contiguous :: index(:)
6437 procedure(logical(LK)) :: isSorted
6438 end subroutine
6439
6440 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6441
6442 end interface
6443
6444!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6445
6446 ! setSortedArrCusComDef
6447
6448 interface setSorted
6449
6450 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6451 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6452 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6453
6454 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6455
6456#if SK5_ENABLED
6457 module subroutine setSortedArrCusComDef_D0_SK5(array, isSorted)
6458#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6459 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComDef_D0_SK5
6460#endif
6461 use pm_kind, only: SKG => SK5
6462 character(*,SKG) , intent(inout) :: array
6463 procedure(logical(LK)) :: isSorted
6464 end subroutine
6465#endif
6466
6467#if SK4_ENABLED
6468 module subroutine setSortedArrCusComDef_D0_SK4(array, isSorted)
6469#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6470 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComDef_D0_SK4
6471#endif
6472 use pm_kind, only: SKG => SK4
6473 character(*,SKG) , intent(inout) :: array
6474 procedure(logical(LK)) :: isSorted
6475 end subroutine
6476#endif
6477
6478#if SK3_ENABLED
6479 module subroutine setSortedArrCusComDef_D0_SK3(array, isSorted)
6480#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6481 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComDef_D0_SK3
6482#endif
6483 use pm_kind, only: SKG => SK3
6484 character(*,SKG) , intent(inout) :: array
6485 procedure(logical(LK)) :: isSorted
6486 end subroutine
6487#endif
6488
6489#if SK2_ENABLED
6490 module subroutine setSortedArrCusComDef_D0_SK2(array, isSorted)
6491#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6492 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComDef_D0_SK2
6493#endif
6494 use pm_kind, only: SKG => SK2
6495 character(*,SKG) , intent(inout) :: array
6496 procedure(logical(LK)) :: isSorted
6497 end subroutine
6498#endif
6499
6500#if SK1_ENABLED
6501 module subroutine setSortedArrCusComDef_D0_SK1(array, isSorted)
6502#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6503 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComDef_D0_SK1
6504#endif
6505 use pm_kind, only: SKG => SK1
6506 character(*,SKG) , intent(inout) :: array
6507 procedure(logical(LK)) :: isSorted
6508 end subroutine
6509#endif
6510
6511 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6512
6513#if SK5_ENABLED
6514 module subroutine setSortedArrCusComDef_D1_SK5(array, isSorted)
6515#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6516 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComDef_D1_SK5
6517#endif
6518 use pm_kind, only: SKG => SK5
6519 character(*,SKG) , intent(inout) , contiguous :: array(:)
6520 procedure(logical(LK)) :: isSorted
6521 end subroutine
6522#endif
6523
6524#if SK4_ENABLED
6525 module subroutine setSortedArrCusComDef_D1_SK4(array, isSorted)
6526#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6527 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComDef_D1_SK4
6528#endif
6529 use pm_kind, only: SKG => SK4
6530 character(*,SKG) , intent(inout) , contiguous :: array(:)
6531 procedure(logical(LK)) :: isSorted
6532 end subroutine
6533#endif
6534
6535#if SK3_ENABLED
6536 module subroutine setSortedArrCusComDef_D1_SK3(array, isSorted)
6537#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6538 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComDef_D1_SK3
6539#endif
6540 use pm_kind, only: SKG => SK3
6541 character(*,SKG) , intent(inout) , contiguous :: array(:)
6542 procedure(logical(LK)) :: isSorted
6543 end subroutine
6544#endif
6545
6546#if SK2_ENABLED
6547 module subroutine setSortedArrCusComDef_D1_SK2(array, isSorted)
6548#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6549 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComDef_D1_SK2
6550#endif
6551 use pm_kind, only: SKG => SK2
6552 character(*,SKG) , intent(inout) , contiguous :: array(:)
6553 procedure(logical(LK)) :: isSorted
6554 end subroutine
6555#endif
6556
6557#if SK1_ENABLED
6558 module subroutine setSortedArrCusComDef_D1_SK1(array, isSorted)
6559#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6560 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComDef_D1_SK1
6561#endif
6562 use pm_kind, only: SKG => SK1
6563 character(*,SKG) , intent(inout) , contiguous :: array(:)
6564 procedure(logical(LK)) :: isSorted
6565 end subroutine
6566#endif
6567
6568 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6569
6570#if IK5_ENABLED
6571 module subroutine setSortedArrCusComDef_D1_IK5(array, isSorted)
6572#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6573 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComDef_D1_IK5
6574#endif
6575 use pm_kind, only: IKG => IK5
6576 integer(IKG) , intent(inout) , contiguous :: array(:)
6577 procedure(logical(LK)) :: isSorted
6578 end subroutine
6579#endif
6580
6581#if IK4_ENABLED
6582 module subroutine setSortedArrCusComDef_D1_IK4(array, isSorted)
6583#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6584 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComDef_D1_IK4
6585#endif
6586 use pm_kind, only: IKG => IK4
6587 integer(IKG) , intent(inout) , contiguous :: array(:)
6588 procedure(logical(LK)) :: isSorted
6589 end subroutine
6590#endif
6591
6592#if IK3_ENABLED
6593 module subroutine setSortedArrCusComDef_D1_IK3(array, isSorted)
6594#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6595 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComDef_D1_IK3
6596#endif
6597 use pm_kind, only: IKG => IK3
6598 integer(IKG) , intent(inout) , contiguous :: array(:)
6599 procedure(logical(LK)) :: isSorted
6600 end subroutine
6601#endif
6602
6603#if IK2_ENABLED
6604 module subroutine setSortedArrCusComDef_D1_IK2(array, isSorted)
6605#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6606 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComDef_D1_IK2
6607#endif
6608 use pm_kind, only: IKG => IK2
6609 integer(IKG) , intent(inout) , contiguous :: array(:)
6610 procedure(logical(LK)) :: isSorted
6611 end subroutine
6612#endif
6613
6614#if IK1_ENABLED
6615 module subroutine setSortedArrCusComDef_D1_IK1(array, isSorted)
6616#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6617 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComDef_D1_IK1
6618#endif
6619 use pm_kind, only: IKG => IK1
6620 integer(IKG) , intent(inout) , contiguous :: array(:)
6621 procedure(logical(LK)) :: isSorted
6622 end subroutine
6623#endif
6624
6625 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6626
6627#if LK5_ENABLED
6628 module subroutine setSortedArrCusComDef_D1_LK5(array, isSorted)
6629#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6630 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComDef_D1_LK5
6631#endif
6632 use pm_kind, only: LKG => LK5
6633 logical(LKG) , intent(inout) , contiguous :: array(:)
6634 procedure(logical(LK)) :: isSorted
6635 end subroutine
6636#endif
6637
6638#if LK4_ENABLED
6639 module subroutine setSortedArrCusComDef_D1_LK4(array, isSorted)
6640#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6641 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComDef_D1_LK4
6642#endif
6643 use pm_kind, only: LKG => LK4
6644 logical(LKG) , intent(inout) , contiguous :: array(:)
6645 procedure(logical(LK)) :: isSorted
6646 end subroutine
6647#endif
6648
6649#if LK3_ENABLED
6650 module subroutine setSortedArrCusComDef_D1_LK3(array, isSorted)
6651#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6652 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComDef_D1_LK3
6653#endif
6654 use pm_kind, only: LKG => LK3
6655 logical(LKG) , intent(inout) , contiguous :: array(:)
6656 procedure(logical(LK)) :: isSorted
6657 end subroutine
6658#endif
6659
6660#if LK2_ENABLED
6661 module subroutine setSortedArrCusComDef_D1_LK2(array, isSorted)
6662#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6663 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComDef_D1_LK2
6664#endif
6665 use pm_kind, only: LKG => LK2
6666 logical(LKG) , intent(inout) , contiguous :: array(:)
6667 procedure(logical(LK)) :: isSorted
6668 end subroutine
6669#endif
6670
6671#if LK1_ENABLED
6672 module subroutine setSortedArrCusComDef_D1_LK1(array, isSorted)
6673#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6674 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComDef_D1_LK1
6675#endif
6676 use pm_kind, only: LKG => LK1
6677 logical(LKG) , intent(inout) , contiguous :: array(:)
6678 procedure(logical(LK)) :: isSorted
6679 end subroutine
6680#endif
6681
6682 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6683
6684#if CK5_ENABLED
6685 module subroutine setSortedArrCusComDef_D1_CK5(array, isSorted)
6686#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6687 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComDef_D1_CK5
6688#endif
6689 use pm_kind, only: CKG => CK5
6690 complex(CKG) , intent(inout) , contiguous :: array(:)
6691 procedure(logical(LK)) :: isSorted
6692 end subroutine
6693#endif
6694
6695#if CK4_ENABLED
6696 module subroutine setSortedArrCusComDef_D1_CK4(array, isSorted)
6697#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6698 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComDef_D1_CK4
6699#endif
6700 use pm_kind, only: CKG => CK4
6701 complex(CKG) , intent(inout) , contiguous :: array(:)
6702 procedure(logical(LK)) :: isSorted
6703 end subroutine
6704#endif
6705
6706#if CK3_ENABLED
6707 module subroutine setSortedArrCusComDef_D1_CK3(array, isSorted)
6708#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6709 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComDef_D1_CK3
6710#endif
6711 use pm_kind, only: CKG => CK3
6712 complex(CKG) , intent(inout) , contiguous :: array(:)
6713 procedure(logical(LK)) :: isSorted
6714 end subroutine
6715#endif
6716
6717#if CK2_ENABLED
6718 module subroutine setSortedArrCusComDef_D1_CK2(array, isSorted)
6719#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6720 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComDef_D1_CK2
6721#endif
6722 use pm_kind, only: CKG => CK2
6723 complex(CKG) , intent(inout) , contiguous :: array(:)
6724 procedure(logical(LK)) :: isSorted
6725 end subroutine
6726#endif
6727
6728#if CK1_ENABLED
6729 module subroutine setSortedArrCusComDef_D1_CK1(array, isSorted)
6730#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6731 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComDef_D1_CK1
6732#endif
6733 use pm_kind, only: CKG => CK1
6734 complex(CKG) , intent(inout) , contiguous :: array(:)
6735 procedure(logical(LK)) :: isSorted
6736 end subroutine
6737#endif
6738
6739 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6740
6741#if RK5_ENABLED
6742 module subroutine setSortedArrCusComDef_D1_RK5(array, isSorted)
6743#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6744 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComDef_D1_RK5
6745#endif
6746 use pm_kind, only: RKG => RK5
6747 real(RKG) , intent(inout) , contiguous :: array(:)
6748 procedure(logical(LK)) :: isSorted
6749 end subroutine
6750#endif
6751
6752#if RK4_ENABLED
6753 module subroutine setSortedArrCusComDef_D1_RK4(array, isSorted)
6754#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6755 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComDef_D1_RK4
6756#endif
6757 use pm_kind, only: RKG => RK4
6758 real(RKG) , intent(inout) , contiguous :: array(:)
6759 procedure(logical(LK)) :: isSorted
6760 end subroutine
6761#endif
6762
6763#if RK3_ENABLED
6764 module subroutine setSortedArrCusComDef_D1_RK3(array, isSorted)
6765#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6766 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComDef_D1_RK3
6767#endif
6768 use pm_kind, only: RKG => RK3
6769 real(RKG) , intent(inout) , contiguous :: array(:)
6770 procedure(logical(LK)) :: isSorted
6771 end subroutine
6772#endif
6773
6774#if RK2_ENABLED
6775 module subroutine setSortedArrCusComDef_D1_RK2(array, isSorted)
6776#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6777 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComDef_D1_RK2
6778#endif
6779 use pm_kind, only: RKG => RK2
6780 real(RKG) , intent(inout) , contiguous :: array(:)
6781 procedure(logical(LK)) :: isSorted
6782 end subroutine
6783#endif
6784
6785#if RK1_ENABLED
6786 module subroutine setSortedArrCusComDef_D1_RK1(array, isSorted)
6787#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6788 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComDef_D1_RK1
6789#endif
6790 use pm_kind, only: RKG => RK1
6791 real(RKG) , intent(inout) , contiguous :: array(:)
6792 procedure(logical(LK)) :: isSorted
6793 end subroutine
6794#endif
6795
6796 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6797
6798#if PDT_ENABLED
6799
6800#if SK5_ENABLED
6801 module subroutine setSortedArrCusComDef_D1_PSSK5(array, isSorted)
6802#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6803 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComDef_D1_PSSK5
6804#endif
6805 use pm_kind, only: SKG => SK5
6806 use pm_container, only: css_pdt
6807 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
6808 procedure(logical(LK)) :: isSorted
6809 end subroutine
6810#endif
6811
6812#if SK4_ENABLED
6813 module subroutine setSortedArrCusComDef_D1_PSSK4(array, isSorted)
6814#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6815 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComDef_D1_PSSK4
6816#endif
6817 use pm_kind, only: SKG => SK4
6818 use pm_container, only: css_pdt
6819 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
6820 procedure(logical(LK)) :: isSorted
6821 end subroutine
6822#endif
6823
6824#if SK3_ENABLED
6825 module subroutine setSortedArrCusComDef_D1_PSSK3(array, isSorted)
6826#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6827 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComDef_D1_PSSK3
6828#endif
6829 use pm_kind, only: SKG => SK3
6830 use pm_container, only: css_pdt
6831 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
6832 procedure(logical(LK)) :: isSorted
6833 end subroutine
6834#endif
6835
6836#if SK2_ENABLED
6837 module subroutine setSortedArrCusComDef_D1_PSSK2(array, isSorted)
6838#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6839 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComDef_D1_PSSK2
6840#endif
6841 use pm_kind, only: SKG => SK2
6842 use pm_container, only: css_pdt
6843 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
6844 procedure(logical(LK)) :: isSorted
6845 end subroutine
6846#endif
6847
6848#if SK1_ENABLED
6849 module subroutine setSortedArrCusComDef_D1_PSSK1(array, isSorted)
6850#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6851 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComDef_D1_PSSK1
6852#endif
6853 use pm_kind, only: SKG => SK1
6854 use pm_container, only: css_pdt
6855 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
6856 procedure(logical(LK)) :: isSorted
6857 end subroutine
6858#endif
6859
6860#endif
6861!PDT_ENABLED
6862
6863 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6864
6865 module subroutine setSortedArrCusComDef_D1_BSSK(array, isSorted)
6866#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6867 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComDef_D1_BSSK
6868#endif
6869 use pm_kind, only: SKG => SK
6870 use pm_container, only: css_type
6871 type(css_type) , intent(inout) , contiguous :: array(:)
6872 procedure(logical(LK)) :: isSorted
6873 end subroutine
6874
6875 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6876
6877 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6878 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6879 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6880
6881 end interface
6882
6883 ! setSortedArrCusComQsorti
6884
6885 interface setSorted
6886
6887 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6888 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6889 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6890
6891 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6892
6893#if SK5_ENABLED
6894 module subroutine setSortedArrCusComQsorti_D0_SK5(array, isSorted, method)
6895#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6896 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsorti_D0_SK5
6897#endif
6898 use pm_kind, only: SKG => SK5
6899 character(*,SKG) , intent(inout) :: array
6900 procedure(logical(LK)) :: isSorted
6901 type(qsorti_type) , intent(in) :: method
6902 end subroutine
6903#endif
6904
6905#if SK4_ENABLED
6906 module subroutine setSortedArrCusComQsorti_D0_SK4(array, isSorted, method)
6907#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6908 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsorti_D0_SK4
6909#endif
6910 use pm_kind, only: SKG => SK4
6911 character(*,SKG) , intent(inout) :: array
6912 procedure(logical(LK)) :: isSorted
6913 type(qsorti_type) , intent(in) :: method
6914 end subroutine
6915#endif
6916
6917#if SK3_ENABLED
6918 module subroutine setSortedArrCusComQsorti_D0_SK3(array, isSorted, method)
6919#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6920 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsorti_D0_SK3
6921#endif
6922 use pm_kind, only: SKG => SK3
6923 character(*,SKG) , intent(inout) :: array
6924 procedure(logical(LK)) :: isSorted
6925 type(qsorti_type) , intent(in) :: method
6926 end subroutine
6927#endif
6928
6929#if SK2_ENABLED
6930 module subroutine setSortedArrCusComQsorti_D0_SK2(array, isSorted, method)
6931#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6932 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsorti_D0_SK2
6933#endif
6934 use pm_kind, only: SKG => SK2
6935 character(*,SKG) , intent(inout) :: array
6936 procedure(logical(LK)) :: isSorted
6937 type(qsorti_type) , intent(in) :: method
6938 end subroutine
6939#endif
6940
6941#if SK1_ENABLED
6942 module subroutine setSortedArrCusComQsorti_D0_SK1(array, isSorted, method)
6943#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6944 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsorti_D0_SK1
6945#endif
6946 use pm_kind, only: SKG => SK1
6947 character(*,SKG) , intent(inout) :: array
6948 procedure(logical(LK)) :: isSorted
6949 type(qsorti_type) , intent(in) :: method
6950 end subroutine
6951#endif
6952
6953 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6954
6955#if SK5_ENABLED
6956 module subroutine setSortedArrCusComQsorti_D1_SK5(array, isSorted, method)
6957#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6958 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsorti_D1_SK5
6959#endif
6960 use pm_kind, only: SKG => SK5
6961 character(*,SKG) , intent(inout) , contiguous :: array(:)
6962 procedure(logical(LK)) :: isSorted
6963 type(qsorti_type) , intent(in) :: method
6964 end subroutine
6965#endif
6966
6967#if SK4_ENABLED
6968 module subroutine setSortedArrCusComQsorti_D1_SK4(array, isSorted, method)
6969#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6970 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsorti_D1_SK4
6971#endif
6972 use pm_kind, only: SKG => SK4
6973 character(*,SKG) , intent(inout) , contiguous :: array(:)
6974 procedure(logical(LK)) :: isSorted
6975 type(qsorti_type) , intent(in) :: method
6976 end subroutine
6977#endif
6978
6979#if SK3_ENABLED
6980 module subroutine setSortedArrCusComQsorti_D1_SK3(array, isSorted, method)
6981#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6982 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsorti_D1_SK3
6983#endif
6984 use pm_kind, only: SKG => SK3
6985 character(*,SKG) , intent(inout) , contiguous :: array(:)
6986 procedure(logical(LK)) :: isSorted
6987 type(qsorti_type) , intent(in) :: method
6988 end subroutine
6989#endif
6990
6991#if SK2_ENABLED
6992 module subroutine setSortedArrCusComQsorti_D1_SK2(array, isSorted, method)
6993#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6994 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsorti_D1_SK2
6995#endif
6996 use pm_kind, only: SKG => SK2
6997 character(*,SKG) , intent(inout) , contiguous :: array(:)
6998 procedure(logical(LK)) :: isSorted
6999 type(qsorti_type) , intent(in) :: method
7000 end subroutine
7001#endif
7002
7003#if SK1_ENABLED
7004 module subroutine setSortedArrCusComQsorti_D1_SK1(array, isSorted, method)
7005#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7006 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsorti_D1_SK1
7007#endif
7008 use pm_kind, only: SKG => SK1
7009 character(*,SKG) , intent(inout) , contiguous :: array(:)
7010 procedure(logical(LK)) :: isSorted
7011 type(qsorti_type) , intent(in) :: method
7012 end subroutine
7013#endif
7014
7015 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7016
7017#if IK5_ENABLED
7018 module subroutine setSortedArrCusComQsorti_D1_IK5(array, isSorted, method)
7019#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7020 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsorti_D1_IK5
7021#endif
7022 use pm_kind, only: IKG => IK5
7023 integer(IKG) , intent(inout) , contiguous :: array(:)
7024 procedure(logical(LK)) :: isSorted
7025 type(qsorti_type) , intent(in) :: method
7026 end subroutine
7027#endif
7028
7029#if IK4_ENABLED
7030 module subroutine setSortedArrCusComQsorti_D1_IK4(array, isSorted, method)
7031#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7032 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsorti_D1_IK4
7033#endif
7034 use pm_kind, only: IKG => IK4
7035 integer(IKG) , intent(inout) , contiguous :: array(:)
7036 procedure(logical(LK)) :: isSorted
7037 type(qsorti_type) , intent(in) :: method
7038 end subroutine
7039#endif
7040
7041#if IK3_ENABLED
7042 module subroutine setSortedArrCusComQsorti_D1_IK3(array, isSorted, method)
7043#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7044 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsorti_D1_IK3
7045#endif
7046 use pm_kind, only: IKG => IK3
7047 integer(IKG) , intent(inout) , contiguous :: array(:)
7048 procedure(logical(LK)) :: isSorted
7049 type(qsorti_type) , intent(in) :: method
7050 end subroutine
7051#endif
7052
7053#if IK2_ENABLED
7054 module subroutine setSortedArrCusComQsorti_D1_IK2(array, isSorted, method)
7055#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7056 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsorti_D1_IK2
7057#endif
7058 use pm_kind, only: IKG => IK2
7059 integer(IKG) , intent(inout) , contiguous :: array(:)
7060 procedure(logical(LK)) :: isSorted
7061 type(qsorti_type) , intent(in) :: method
7062 end subroutine
7063#endif
7064
7065#if IK1_ENABLED
7066 module subroutine setSortedArrCusComQsorti_D1_IK1(array, isSorted, method)
7067#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7068 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsorti_D1_IK1
7069#endif
7070 use pm_kind, only: IKG => IK1
7071 integer(IKG) , intent(inout) , contiguous :: array(:)
7072 procedure(logical(LK)) :: isSorted
7073 type(qsorti_type) , intent(in) :: method
7074 end subroutine
7075#endif
7076
7077 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7078
7079#if LK5_ENABLED
7080 module subroutine setSortedArrCusComQsorti_D1_LK5(array, isSorted, method)
7081#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7082 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsorti_D1_LK5
7083#endif
7084 use pm_kind, only: LKG => LK5
7085 logical(LKG) , intent(inout) , contiguous :: array(:)
7086 procedure(logical(LK)) :: isSorted
7087 type(qsorti_type) , intent(in) :: method
7088 end subroutine
7089#endif
7090
7091#if LK4_ENABLED
7092 module subroutine setSortedArrCusComQsorti_D1_LK4(array, isSorted, method)
7093#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7094 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsorti_D1_LK4
7095#endif
7096 use pm_kind, only: LKG => LK4
7097 logical(LKG) , intent(inout) , contiguous :: array(:)
7098 procedure(logical(LK)) :: isSorted
7099 type(qsorti_type) , intent(in) :: method
7100 end subroutine
7101#endif
7102
7103#if LK3_ENABLED
7104 module subroutine setSortedArrCusComQsorti_D1_LK3(array, isSorted, method)
7105#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7106 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsorti_D1_LK3
7107#endif
7108 use pm_kind, only: LKG => LK3
7109 logical(LKG) , intent(inout) , contiguous :: array(:)
7110 procedure(logical(LK)) :: isSorted
7111 type(qsorti_type) , intent(in) :: method
7112 end subroutine
7113#endif
7114
7115#if LK2_ENABLED
7116 module subroutine setSortedArrCusComQsorti_D1_LK2(array, isSorted, method)
7117#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7118 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsorti_D1_LK2
7119#endif
7120 use pm_kind, only: LKG => LK2
7121 logical(LKG) , intent(inout) , contiguous :: array(:)
7122 procedure(logical(LK)) :: isSorted
7123 type(qsorti_type) , intent(in) :: method
7124 end subroutine
7125#endif
7126
7127#if LK1_ENABLED
7128 module subroutine setSortedArrCusComQsorti_D1_LK1(array, isSorted, method)
7129#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7130 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsorti_D1_LK1
7131#endif
7132 use pm_kind, only: LKG => LK1
7133 logical(LKG) , intent(inout) , contiguous :: array(:)
7134 procedure(logical(LK)) :: isSorted
7135 type(qsorti_type) , intent(in) :: method
7136 end subroutine
7137#endif
7138
7139 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7140
7141#if CK5_ENABLED
7142 module subroutine setSortedArrCusComQsorti_D1_CK5(array, isSorted, method)
7143#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7144 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsorti_D1_CK5
7145#endif
7146 use pm_kind, only: CKG => CK5
7147 complex(CKG) , intent(inout) , contiguous :: array(:)
7148 procedure(logical(LK)) :: isSorted
7149 type(qsorti_type) , intent(in) :: method
7150 end subroutine
7151#endif
7152
7153#if CK4_ENABLED
7154 module subroutine setSortedArrCusComQsorti_D1_CK4(array, isSorted, method)
7155#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7156 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsorti_D1_CK4
7157#endif
7158 use pm_kind, only: CKG => CK4
7159 complex(CKG) , intent(inout) , contiguous :: array(:)
7160 procedure(logical(LK)) :: isSorted
7161 type(qsorti_type) , intent(in) :: method
7162 end subroutine
7163#endif
7164
7165#if CK3_ENABLED
7166 module subroutine setSortedArrCusComQsorti_D1_CK3(array, isSorted, method)
7167#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7168 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsorti_D1_CK3
7169#endif
7170 use pm_kind, only: CKG => CK3
7171 complex(CKG) , intent(inout) , contiguous :: array(:)
7172 procedure(logical(LK)) :: isSorted
7173 type(qsorti_type) , intent(in) :: method
7174 end subroutine
7175#endif
7176
7177#if CK2_ENABLED
7178 module subroutine setSortedArrCusComQsorti_D1_CK2(array, isSorted, method)
7179#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7180 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsorti_D1_CK2
7181#endif
7182 use pm_kind, only: CKG => CK2
7183 complex(CKG) , intent(inout) , contiguous :: array(:)
7184 procedure(logical(LK)) :: isSorted
7185 type(qsorti_type) , intent(in) :: method
7186 end subroutine
7187#endif
7188
7189#if CK1_ENABLED
7190 module subroutine setSortedArrCusComQsorti_D1_CK1(array, isSorted, method)
7191#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7192 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsorti_D1_CK1
7193#endif
7194 use pm_kind, only: CKG => CK1
7195 complex(CKG) , intent(inout) , contiguous :: array(:)
7196 procedure(logical(LK)) :: isSorted
7197 type(qsorti_type) , intent(in) :: method
7198 end subroutine
7199#endif
7200
7201 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7202
7203#if RK5_ENABLED
7204 module subroutine setSortedArrCusComQsorti_D1_RK5(array, isSorted, method)
7205#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7206 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsorti_D1_RK5
7207#endif
7208 use pm_kind, only: RKG => RK5
7209 real(RKG) , intent(inout) , contiguous :: array(:)
7210 procedure(logical(LK)) :: isSorted
7211 type(qsorti_type) , intent(in) :: method
7212 end subroutine
7213#endif
7214
7215#if RK4_ENABLED
7216 module subroutine setSortedArrCusComQsorti_D1_RK4(array, isSorted, method)
7217#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7218 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsorti_D1_RK4
7219#endif
7220 use pm_kind, only: RKG => RK4
7221 real(RKG) , intent(inout) , contiguous :: array(:)
7222 procedure(logical(LK)) :: isSorted
7223 type(qsorti_type) , intent(in) :: method
7224 end subroutine
7225#endif
7226
7227#if RK3_ENABLED
7228 module subroutine setSortedArrCusComQsorti_D1_RK3(array, isSorted, method)
7229#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7230 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsorti_D1_RK3
7231#endif
7232 use pm_kind, only: RKG => RK3
7233 real(RKG) , intent(inout) , contiguous :: array(:)
7234 procedure(logical(LK)) :: isSorted
7235 type(qsorti_type) , intent(in) :: method
7236 end subroutine
7237#endif
7238
7239#if RK2_ENABLED
7240 module subroutine setSortedArrCusComQsorti_D1_RK2(array, isSorted, method)
7241#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7242 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsorti_D1_RK2
7243#endif
7244 use pm_kind, only: RKG => RK2
7245 real(RKG) , intent(inout) , contiguous :: array(:)
7246 procedure(logical(LK)) :: isSorted
7247 type(qsorti_type) , intent(in) :: method
7248 end subroutine
7249#endif
7250
7251#if RK1_ENABLED
7252 module subroutine setSortedArrCusComQsorti_D1_RK1(array, isSorted, method)
7253#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7254 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsorti_D1_RK1
7255#endif
7256 use pm_kind, only: RKG => RK1
7257 real(RKG) , intent(inout) , contiguous :: array(:)
7258 procedure(logical(LK)) :: isSorted
7259 type(qsorti_type) , intent(in) :: method
7260 end subroutine
7261#endif
7262
7263 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7264
7265#if PDT_ENABLED
7266
7267#if SK5_ENABLED
7268 module subroutine setSortedArrCusComQsorti_D1_PSSK5(array, isSorted, method)
7269#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7270 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsorti_D1_PSSK5
7271#endif
7272 use pm_kind, only: SKG => SK5
7273 use pm_container, only: css_pdt
7274 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
7275 procedure(logical(LK)) :: isSorted
7276 type(qsorti_type) , intent(in) :: method
7277 end subroutine
7278#endif
7279
7280#if SK4_ENABLED
7281 module subroutine setSortedArrCusComQsorti_D1_PSSK4(array, isSorted, method)
7282#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7283 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsorti_D1_PSSK4
7284#endif
7285 use pm_kind, only: SKG => SK4
7286 use pm_container, only: css_pdt
7287 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
7288 procedure(logical(LK)) :: isSorted
7289 type(qsorti_type) , intent(in) :: method
7290 end subroutine
7291#endif
7292
7293#if SK3_ENABLED
7294 module subroutine setSortedArrCusComQsorti_D1_PSSK3(array, isSorted, method)
7295#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7296 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsorti_D1_PSSK3
7297#endif
7298 use pm_kind, only: SKG => SK3
7299 use pm_container, only: css_pdt
7300 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
7301 procedure(logical(LK)) :: isSorted
7302 type(qsorti_type) , intent(in) :: method
7303 end subroutine
7304#endif
7305
7306#if SK2_ENABLED
7307 module subroutine setSortedArrCusComQsorti_D1_PSSK2(array, isSorted, method)
7308#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7309 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsorti_D1_PSSK2
7310#endif
7311 use pm_kind, only: SKG => SK2
7312 use pm_container, only: css_pdt
7313 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
7314 procedure(logical(LK)) :: isSorted
7315 type(qsorti_type) , intent(in) :: method
7316 end subroutine
7317#endif
7318
7319#if SK1_ENABLED
7320 module subroutine setSortedArrCusComQsorti_D1_PSSK1(array, isSorted, method)
7321#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7322 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsorti_D1_PSSK1
7323#endif
7324 use pm_kind, only: SKG => SK1
7325 use pm_container, only: css_pdt
7326 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
7327 procedure(logical(LK)) :: isSorted
7328 type(qsorti_type) , intent(in) :: method
7329 end subroutine
7330#endif
7331
7332#endif
7333!PDT_ENABLED
7334
7335 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7336
7337 module subroutine setSortedArrCusComQsorti_D1_BSSK(array, isSorted, method)
7338#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7339 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsorti_D1_BSSK
7340#endif
7341 use pm_kind, only: SKG => SK
7342 use pm_container, only: css_type
7343 type(css_type) , intent(inout) , contiguous :: array(:)
7344 procedure(logical(LK)) :: isSorted
7345 type(qsorti_type) , intent(in) :: method
7346 end subroutine
7347
7348 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7349
7350 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7351 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7352 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7353
7354 end interface
7355
7356 ! setSortedArrCusComQsortr
7357
7358 interface setSorted
7359
7360 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7361 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7362 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7363
7364 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7365
7366#if SK5_ENABLED
7367 recursive module subroutine setSortedArrCusComQsortr_D0_SK5(array, isSorted, method)
7368#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7369 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortr_D0_SK5
7370#endif
7371 use pm_kind, only: SKG => SK5
7372 character(*,SKG) , intent(inout) :: array
7373 procedure(logical(LK)) :: isSorted
7374 type(qsortr_type) , intent(in) :: method
7375 end subroutine
7376#endif
7377
7378#if SK4_ENABLED
7379 recursive module subroutine setSortedArrCusComQsortr_D0_SK4(array, isSorted, method)
7380#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7381 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortr_D0_SK4
7382#endif
7383 use pm_kind, only: SKG => SK4
7384 character(*,SKG) , intent(inout) :: array
7385 procedure(logical(LK)) :: isSorted
7386 type(qsortr_type) , intent(in) :: method
7387 end subroutine
7388#endif
7389
7390#if SK3_ENABLED
7391 recursive module subroutine setSortedArrCusComQsortr_D0_SK3(array, isSorted, method)
7392#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7393 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortr_D0_SK3
7394#endif
7395 use pm_kind, only: SKG => SK3
7396 character(*,SKG) , intent(inout) :: array
7397 procedure(logical(LK)) :: isSorted
7398 type(qsortr_type) , intent(in) :: method
7399 end subroutine
7400#endif
7401
7402#if SK2_ENABLED
7403 recursive module subroutine setSortedArrCusComQsortr_D0_SK2(array, isSorted, method)
7404#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7405 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortr_D0_SK2
7406#endif
7407 use pm_kind, only: SKG => SK2
7408 character(*,SKG) , intent(inout) :: array
7409 procedure(logical(LK)) :: isSorted
7410 type(qsortr_type) , intent(in) :: method
7411 end subroutine
7412#endif
7413
7414#if SK1_ENABLED
7415 recursive module subroutine setSortedArrCusComQsortr_D0_SK1(array, isSorted, method)
7416#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7417 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortr_D0_SK1
7418#endif
7419 use pm_kind, only: SKG => SK1
7420 character(*,SKG) , intent(inout) :: array
7421 procedure(logical(LK)) :: isSorted
7422 type(qsortr_type) , intent(in) :: method
7423 end subroutine
7424#endif
7425
7426 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7427
7428#if SK5_ENABLED
7429 recursive module subroutine setSortedArrCusComQsortr_D1_SK5(array, isSorted, method)
7430#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7431 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortr_D1_SK5
7432#endif
7433 use pm_kind, only: SKG => SK5
7434 character(*,SKG) , intent(inout) , contiguous :: array(:)
7435 procedure(logical(LK)) :: isSorted
7436 type(qsortr_type) , intent(in) :: method
7437 end subroutine
7438#endif
7439
7440#if SK4_ENABLED
7441 recursive module subroutine setSortedArrCusComQsortr_D1_SK4(array, isSorted, method)
7442#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7443 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortr_D1_SK4
7444#endif
7445 use pm_kind, only: SKG => SK4
7446 character(*,SKG) , intent(inout) , contiguous :: array(:)
7447 procedure(logical(LK)) :: isSorted
7448 type(qsortr_type) , intent(in) :: method
7449 end subroutine
7450#endif
7451
7452#if SK3_ENABLED
7453 recursive module subroutine setSortedArrCusComQsortr_D1_SK3(array, isSorted, method)
7454#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7455 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortr_D1_SK3
7456#endif
7457 use pm_kind, only: SKG => SK3
7458 character(*,SKG) , intent(inout) , contiguous :: array(:)
7459 procedure(logical(LK)) :: isSorted
7460 type(qsortr_type) , intent(in) :: method
7461 end subroutine
7462#endif
7463
7464#if SK2_ENABLED
7465 recursive module subroutine setSortedArrCusComQsortr_D1_SK2(array, isSorted, method)
7466#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7467 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortr_D1_SK2
7468#endif
7469 use pm_kind, only: SKG => SK2
7470 character(*,SKG) , intent(inout) , contiguous :: array(:)
7471 procedure(logical(LK)) :: isSorted
7472 type(qsortr_type) , intent(in) :: method
7473 end subroutine
7474#endif
7475
7476#if SK1_ENABLED
7477 recursive module subroutine setSortedArrCusComQsortr_D1_SK1(array, isSorted, method)
7478#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7479 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortr_D1_SK1
7480#endif
7481 use pm_kind, only: SKG => SK1
7482 character(*,SKG) , intent(inout) , contiguous :: array(:)
7483 procedure(logical(LK)) :: isSorted
7484 type(qsortr_type) , intent(in) :: method
7485 end subroutine
7486#endif
7487
7488 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7489
7490#if IK5_ENABLED
7491 recursive module subroutine setSortedArrCusComQsortr_D1_IK5(array, isSorted, method)
7492#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7493 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortr_D1_IK5
7494#endif
7495 use pm_kind, only: IKG => IK5
7496 integer(IKG) , intent(inout) , contiguous :: array(:)
7497 procedure(logical(LK)) :: isSorted
7498 type(qsortr_type) , intent(in) :: method
7499 end subroutine
7500#endif
7501
7502#if IK4_ENABLED
7503 recursive module subroutine setSortedArrCusComQsortr_D1_IK4(array, isSorted, method)
7504#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7505 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortr_D1_IK4
7506#endif
7507 use pm_kind, only: IKG => IK4
7508 integer(IKG) , intent(inout) , contiguous :: array(:)
7509 procedure(logical(LK)) :: isSorted
7510 type(qsortr_type) , intent(in) :: method
7511 end subroutine
7512#endif
7513
7514#if IK3_ENABLED
7515 recursive module subroutine setSortedArrCusComQsortr_D1_IK3(array, isSorted, method)
7516#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7517 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortr_D1_IK3
7518#endif
7519 use pm_kind, only: IKG => IK3
7520 integer(IKG) , intent(inout) , contiguous :: array(:)
7521 procedure(logical(LK)) :: isSorted
7522 type(qsortr_type) , intent(in) :: method
7523 end subroutine
7524#endif
7525
7526#if IK2_ENABLED
7527 recursive module subroutine setSortedArrCusComQsortr_D1_IK2(array, isSorted, method)
7528#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7529 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortr_D1_IK2
7530#endif
7531 use pm_kind, only: IKG => IK2
7532 integer(IKG) , intent(inout) , contiguous :: array(:)
7533 procedure(logical(LK)) :: isSorted
7534 type(qsortr_type) , intent(in) :: method
7535 end subroutine
7536#endif
7537
7538#if IK1_ENABLED
7539 recursive module subroutine setSortedArrCusComQsortr_D1_IK1(array, isSorted, method)
7540#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7541 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortr_D1_IK1
7542#endif
7543 use pm_kind, only: IKG => IK1
7544 integer(IKG) , intent(inout) , contiguous :: array(:)
7545 procedure(logical(LK)) :: isSorted
7546 type(qsortr_type) , intent(in) :: method
7547 end subroutine
7548#endif
7549
7550 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7551
7552#if LK5_ENABLED
7553 recursive module subroutine setSortedArrCusComQsortr_D1_LK5(array, isSorted, method)
7554#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7555 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortr_D1_LK5
7556#endif
7557 use pm_kind, only: LKG => LK5
7558 logical(LKG) , intent(inout) , contiguous :: array(:)
7559 procedure(logical(LK)) :: isSorted
7560 type(qsortr_type) , intent(in) :: method
7561 end subroutine
7562#endif
7563
7564#if LK4_ENABLED
7565 recursive module subroutine setSortedArrCusComQsortr_D1_LK4(array, isSorted, method)
7566#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7567 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortr_D1_LK4
7568#endif
7569 use pm_kind, only: LKG => LK4
7570 logical(LKG) , intent(inout) , contiguous :: array(:)
7571 procedure(logical(LK)) :: isSorted
7572 type(qsortr_type) , intent(in) :: method
7573 end subroutine
7574#endif
7575
7576#if LK3_ENABLED
7577 recursive module subroutine setSortedArrCusComQsortr_D1_LK3(array, isSorted, method)
7578#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7579 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortr_D1_LK3
7580#endif
7581 use pm_kind, only: LKG => LK3
7582 logical(LKG) , intent(inout) , contiguous :: array(:)
7583 procedure(logical(LK)) :: isSorted
7584 type(qsortr_type) , intent(in) :: method
7585 end subroutine
7586#endif
7587
7588#if LK2_ENABLED
7589 recursive module subroutine setSortedArrCusComQsortr_D1_LK2(array, isSorted, method)
7590#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7591 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortr_D1_LK2
7592#endif
7593 use pm_kind, only: LKG => LK2
7594 logical(LKG) , intent(inout) , contiguous :: array(:)
7595 procedure(logical(LK)) :: isSorted
7596 type(qsortr_type) , intent(in) :: method
7597 end subroutine
7598#endif
7599
7600#if LK1_ENABLED
7601 recursive module subroutine setSortedArrCusComQsortr_D1_LK1(array, isSorted, method)
7602#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7603 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortr_D1_LK1
7604#endif
7605 use pm_kind, only: LKG => LK1
7606 logical(LKG) , intent(inout) , contiguous :: array(:)
7607 procedure(logical(LK)) :: isSorted
7608 type(qsortr_type) , intent(in) :: method
7609 end subroutine
7610#endif
7611
7612 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7613
7614#if CK5_ENABLED
7615 recursive module subroutine setSortedArrCusComQsortr_D1_CK5(array, isSorted, method)
7616#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7617 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortr_D1_CK5
7618#endif
7619 use pm_kind, only: CKG => CK5
7620 complex(CKG) , intent(inout) , contiguous :: array(:)
7621 procedure(logical(LK)) :: isSorted
7622 type(qsortr_type) , intent(in) :: method
7623 end subroutine
7624#endif
7625
7626#if CK4_ENABLED
7627 recursive module subroutine setSortedArrCusComQsortr_D1_CK4(array, isSorted, method)
7628#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7629 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortr_D1_CK4
7630#endif
7631 use pm_kind, only: CKG => CK4
7632 complex(CKG) , intent(inout) , contiguous :: array(:)
7633 procedure(logical(LK)) :: isSorted
7634 type(qsortr_type) , intent(in) :: method
7635 end subroutine
7636#endif
7637
7638#if CK3_ENABLED
7639 recursive module subroutine setSortedArrCusComQsortr_D1_CK3(array, isSorted, method)
7640#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7641 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortr_D1_CK3
7642#endif
7643 use pm_kind, only: CKG => CK3
7644 complex(CKG) , intent(inout) , contiguous :: array(:)
7645 procedure(logical(LK)) :: isSorted
7646 type(qsortr_type) , intent(in) :: method
7647 end subroutine
7648#endif
7649
7650#if CK2_ENABLED
7651 recursive module subroutine setSortedArrCusComQsortr_D1_CK2(array, isSorted, method)
7652#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7653 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortr_D1_CK2
7654#endif
7655 use pm_kind, only: CKG => CK2
7656 complex(CKG) , intent(inout) , contiguous :: array(:)
7657 procedure(logical(LK)) :: isSorted
7658 type(qsortr_type) , intent(in) :: method
7659 end subroutine
7660#endif
7661
7662#if CK1_ENABLED
7663 recursive module subroutine setSortedArrCusComQsortr_D1_CK1(array, isSorted, method)
7664#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7665 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortr_D1_CK1
7666#endif
7667 use pm_kind, only: CKG => CK1
7668 complex(CKG) , intent(inout) , contiguous :: array(:)
7669 procedure(logical(LK)) :: isSorted
7670 type(qsortr_type) , intent(in) :: method
7671 end subroutine
7672#endif
7673
7674 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7675
7676#if RK5_ENABLED
7677 recursive module subroutine setSortedArrCusComQsortr_D1_RK5(array, isSorted, method)
7678#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7679 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortr_D1_RK5
7680#endif
7681 use pm_kind, only: RKG => RK5
7682 real(RKG) , intent(inout) , contiguous :: array(:)
7683 procedure(logical(LK)) :: isSorted
7684 type(qsortr_type) , intent(in) :: method
7685 end subroutine
7686#endif
7687
7688#if RK4_ENABLED
7689 recursive module subroutine setSortedArrCusComQsortr_D1_RK4(array, isSorted, method)
7690#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7691 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortr_D1_RK4
7692#endif
7693 use pm_kind, only: RKG => RK4
7694 real(RKG) , intent(inout) , contiguous :: array(:)
7695 procedure(logical(LK)) :: isSorted
7696 type(qsortr_type) , intent(in) :: method
7697 end subroutine
7698#endif
7699
7700#if RK3_ENABLED
7701 recursive module subroutine setSortedArrCusComQsortr_D1_RK3(array, isSorted, method)
7702#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7703 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortr_D1_RK3
7704#endif
7705 use pm_kind, only: RKG => RK3
7706 real(RKG) , intent(inout) , contiguous :: array(:)
7707 procedure(logical(LK)) :: isSorted
7708 type(qsortr_type) , intent(in) :: method
7709 end subroutine
7710#endif
7711
7712#if RK2_ENABLED
7713 recursive module subroutine setSortedArrCusComQsortr_D1_RK2(array, isSorted, method)
7714#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7715 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortr_D1_RK2
7716#endif
7717 use pm_kind, only: RKG => RK2
7718 real(RKG) , intent(inout) , contiguous :: array(:)
7719 procedure(logical(LK)) :: isSorted
7720 type(qsortr_type) , intent(in) :: method
7721 end subroutine
7722#endif
7723
7724#if RK1_ENABLED
7725 recursive module subroutine setSortedArrCusComQsortr_D1_RK1(array, isSorted, method)
7726#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7727 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortr_D1_RK1
7728#endif
7729 use pm_kind, only: RKG => RK1
7730 real(RKG) , intent(inout) , contiguous :: array(:)
7731 procedure(logical(LK)) :: isSorted
7732 type(qsortr_type) , intent(in) :: method
7733 end subroutine
7734#endif
7735
7736 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7737
7738#if PDT_ENABLED
7739
7740#if SK5_ENABLED
7741 recursive module subroutine setSortedArrCusComQsortr_D1_PSSK5(array, isSorted, method)
7742#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7743 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortr_D1_PSSK5
7744#endif
7745 use pm_kind, only: SKG => SK5
7746 use pm_container, only: css_pdt
7747 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
7748 procedure(logical(LK)) :: isSorted
7749 type(qsortr_type) , intent(in) :: method
7750 end subroutine
7751#endif
7752
7753#if SK4_ENABLED
7754 recursive module subroutine setSortedArrCusComQsortr_D1_PSSK4(array, isSorted, method)
7755#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7756 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortr_D1_PSSK4
7757#endif
7758 use pm_kind, only: SKG => SK4
7759 use pm_container, only: css_pdt
7760 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
7761 procedure(logical(LK)) :: isSorted
7762 type(qsortr_type) , intent(in) :: method
7763 end subroutine
7764#endif
7765
7766#if SK3_ENABLED
7767 recursive module subroutine setSortedArrCusComQsortr_D1_PSSK3(array, isSorted, method)
7768#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7769 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortr_D1_PSSK3
7770#endif
7771 use pm_kind, only: SKG => SK3
7772 use pm_container, only: css_pdt
7773 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
7774 procedure(logical(LK)) :: isSorted
7775 type(qsortr_type) , intent(in) :: method
7776 end subroutine
7777#endif
7778
7779#if SK2_ENABLED
7780 recursive module subroutine setSortedArrCusComQsortr_D1_PSSK2(array, isSorted, method)
7781#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7782 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortr_D1_PSSK2
7783#endif
7784 use pm_kind, only: SKG => SK2
7785 use pm_container, only: css_pdt
7786 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
7787 procedure(logical(LK)) :: isSorted
7788 type(qsortr_type) , intent(in) :: method
7789 end subroutine
7790#endif
7791
7792#if SK1_ENABLED
7793 recursive module subroutine setSortedArrCusComQsortr_D1_PSSK1(array, isSorted, method)
7794#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7795 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortr_D1_PSSK1
7796#endif
7797 use pm_kind, only: SKG => SK1
7798 use pm_container, only: css_pdt
7799 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
7800 procedure(logical(LK)) :: isSorted
7801 type(qsortr_type) , intent(in) :: method
7802 end subroutine
7803#endif
7804
7805#endif
7806!PDT_ENABLED
7807
7808 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7809
7810 recursive module subroutine setSortedArrCusComQsortr_D1_BSSK(array, isSorted, method)
7811#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7812 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortr_D1_BSSK
7813#endif
7814 use pm_kind, only: SKG => SK
7815 use pm_container, only: css_type
7816 type(css_type) , intent(inout) , contiguous :: array(:)
7817 procedure(logical(LK)) :: isSorted
7818 type(qsortr_type) , intent(in) :: method
7819 end subroutine
7820
7821 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7822
7823 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7824 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7825 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7826
7827 end interface
7828
7829 ! setSortedArrCusComQsortrdp
7830
7831 interface setSorted
7832
7833 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7834 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7835 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7836
7837 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7838
7839#if SK5_ENABLED
7840 recursive module subroutine setSortedArrCusComQsortrdp_D0_SK5(array, isSorted, method)
7841#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7842 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortrdp_D0_SK5
7843#endif
7844 use pm_kind, only: SKG => SK5
7845 character(*,SKG) , intent(inout) :: array
7846 procedure(logical(LK)) :: isSorted
7847 type(qsortrdp_type) , intent(in) :: method
7848 end subroutine
7849#endif
7850
7851#if SK4_ENABLED
7852 recursive module subroutine setSortedArrCusComQsortrdp_D0_SK4(array, isSorted, method)
7853#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7854 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortrdp_D0_SK4
7855#endif
7856 use pm_kind, only: SKG => SK4
7857 character(*,SKG) , intent(inout) :: array
7858 procedure(logical(LK)) :: isSorted
7859 type(qsortrdp_type) , intent(in) :: method
7860 end subroutine
7861#endif
7862
7863#if SK3_ENABLED
7864 recursive module subroutine setSortedArrCusComQsortrdp_D0_SK3(array, isSorted, method)
7865#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7866 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortrdp_D0_SK3
7867#endif
7868 use pm_kind, only: SKG => SK3
7869 character(*,SKG) , intent(inout) :: array
7870 procedure(logical(LK)) :: isSorted
7871 type(qsortrdp_type) , intent(in) :: method
7872 end subroutine
7873#endif
7874
7875#if SK2_ENABLED
7876 recursive module subroutine setSortedArrCusComQsortrdp_D0_SK2(array, isSorted, method)
7877#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7878 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortrdp_D0_SK2
7879#endif
7880 use pm_kind, only: SKG => SK2
7881 character(*,SKG) , intent(inout) :: array
7882 procedure(logical(LK)) :: isSorted
7883 type(qsortrdp_type) , intent(in) :: method
7884 end subroutine
7885#endif
7886
7887#if SK1_ENABLED
7888 recursive module subroutine setSortedArrCusComQsortrdp_D0_SK1(array, isSorted, method)
7889#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7890 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortrdp_D0_SK1
7891#endif
7892 use pm_kind, only: SKG => SK1
7893 character(*,SKG) , intent(inout) :: array
7894 procedure(logical(LK)) :: isSorted
7895 type(qsortrdp_type) , intent(in) :: method
7896 end subroutine
7897#endif
7898
7899 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7900
7901#if SK5_ENABLED
7902 recursive module subroutine setSortedArrCusComQsortrdp_D1_SK5(array, isSorted, method)
7903#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7904 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortrdp_D1_SK5
7905#endif
7906 use pm_kind, only: SKG => SK5
7907 character(*,SKG) , intent(inout) , contiguous :: array(:)
7908 procedure(logical(LK)) :: isSorted
7909 type(qsortrdp_type) , intent(in) :: method
7910 end subroutine
7911#endif
7912
7913#if SK4_ENABLED
7914 recursive module subroutine setSortedArrCusComQsortrdp_D1_SK4(array, isSorted, method)
7915#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7916 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortrdp_D1_SK4
7917#endif
7918 use pm_kind, only: SKG => SK4
7919 character(*,SKG) , intent(inout) , contiguous :: array(:)
7920 procedure(logical(LK)) :: isSorted
7921 type(qsortrdp_type) , intent(in) :: method
7922 end subroutine
7923#endif
7924
7925#if SK3_ENABLED
7926 recursive module subroutine setSortedArrCusComQsortrdp_D1_SK3(array, isSorted, method)
7927#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7928 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortrdp_D1_SK3
7929#endif
7930 use pm_kind, only: SKG => SK3
7931 character(*,SKG) , intent(inout) , contiguous :: array(:)
7932 procedure(logical(LK)) :: isSorted
7933 type(qsortrdp_type) , intent(in) :: method
7934 end subroutine
7935#endif
7936
7937#if SK2_ENABLED
7938 recursive module subroutine setSortedArrCusComQsortrdp_D1_SK2(array, isSorted, method)
7939#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7940 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortrdp_D1_SK2
7941#endif
7942 use pm_kind, only: SKG => SK2
7943 character(*,SKG) , intent(inout) , contiguous :: array(:)
7944 procedure(logical(LK)) :: isSorted
7945 type(qsortrdp_type) , intent(in) :: method
7946 end subroutine
7947#endif
7948
7949#if SK1_ENABLED
7950 recursive module subroutine setSortedArrCusComQsortrdp_D1_SK1(array, isSorted, method)
7951#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7952 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortrdp_D1_SK1
7953#endif
7954 use pm_kind, only: SKG => SK1
7955 character(*,SKG) , intent(inout) , contiguous :: array(:)
7956 procedure(logical(LK)) :: isSorted
7957 type(qsortrdp_type) , intent(in) :: method
7958 end subroutine
7959#endif
7960
7961 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7962
7963#if IK5_ENABLED
7964 recursive module subroutine setSortedArrCusComQsortrdp_D1_IK5(array, isSorted, method)
7965#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7966 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortrdp_D1_IK5
7967#endif
7968 use pm_kind, only: IKG => IK5
7969 integer(IKG) , intent(inout) , contiguous :: array(:)
7970 procedure(logical(LK)) :: isSorted
7971 type(qsortrdp_type) , intent(in) :: method
7972 end subroutine
7973#endif
7974
7975#if IK4_ENABLED
7976 recursive module subroutine setSortedArrCusComQsortrdp_D1_IK4(array, isSorted, method)
7977#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7978 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortrdp_D1_IK4
7979#endif
7980 use pm_kind, only: IKG => IK4
7981 integer(IKG) , intent(inout) , contiguous :: array(:)
7982 procedure(logical(LK)) :: isSorted
7983 type(qsortrdp_type) , intent(in) :: method
7984 end subroutine
7985#endif
7986
7987#if IK3_ENABLED
7988 recursive module subroutine setSortedArrCusComQsortrdp_D1_IK3(array, isSorted, method)
7989#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7990 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortrdp_D1_IK3
7991#endif
7992 use pm_kind, only: IKG => IK3
7993 integer(IKG) , intent(inout) , contiguous :: array(:)
7994 procedure(logical(LK)) :: isSorted
7995 type(qsortrdp_type) , intent(in) :: method
7996 end subroutine
7997#endif
7998
7999#if IK2_ENABLED
8000 recursive module subroutine setSortedArrCusComQsortrdp_D1_IK2(array, isSorted, method)
8001#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8002 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortrdp_D1_IK2
8003#endif
8004 use pm_kind, only: IKG => IK2
8005 integer(IKG) , intent(inout) , contiguous :: array(:)
8006 procedure(logical(LK)) :: isSorted
8007 type(qsortrdp_type) , intent(in) :: method
8008 end subroutine
8009#endif
8010
8011#if IK1_ENABLED
8012 recursive module subroutine setSortedArrCusComQsortrdp_D1_IK1(array, isSorted, method)
8013#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8014 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortrdp_D1_IK1
8015#endif
8016 use pm_kind, only: IKG => IK1
8017 integer(IKG) , intent(inout) , contiguous :: array(:)
8018 procedure(logical(LK)) :: isSorted
8019 type(qsortrdp_type) , intent(in) :: method
8020 end subroutine
8021#endif
8022
8023 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8024
8025#if LK5_ENABLED
8026 recursive module subroutine setSortedArrCusComQsortrdp_D1_LK5(array, isSorted, method)
8027#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8028 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortrdp_D1_LK5
8029#endif
8030 use pm_kind, only: LKG => LK5
8031 logical(LKG) , intent(inout) , contiguous :: array(:)
8032 procedure(logical(LK)) :: isSorted
8033 type(qsortrdp_type) , intent(in) :: method
8034 end subroutine
8035#endif
8036
8037#if LK4_ENABLED
8038 recursive module subroutine setSortedArrCusComQsortrdp_D1_LK4(array, isSorted, method)
8039#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8040 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortrdp_D1_LK4
8041#endif
8042 use pm_kind, only: LKG => LK4
8043 logical(LKG) , intent(inout) , contiguous :: array(:)
8044 procedure(logical(LK)) :: isSorted
8045 type(qsortrdp_type) , intent(in) :: method
8046 end subroutine
8047#endif
8048
8049#if LK3_ENABLED
8050 recursive module subroutine setSortedArrCusComQsortrdp_D1_LK3(array, isSorted, method)
8051#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8052 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortrdp_D1_LK3
8053#endif
8054 use pm_kind, only: LKG => LK3
8055 logical(LKG) , intent(inout) , contiguous :: array(:)
8056 procedure(logical(LK)) :: isSorted
8057 type(qsortrdp_type) , intent(in) :: method
8058 end subroutine
8059#endif
8060
8061#if LK2_ENABLED
8062 recursive module subroutine setSortedArrCusComQsortrdp_D1_LK2(array, isSorted, method)
8063#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8064 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortrdp_D1_LK2
8065#endif
8066 use pm_kind, only: LKG => LK2
8067 logical(LKG) , intent(inout) , contiguous :: array(:)
8068 procedure(logical(LK)) :: isSorted
8069 type(qsortrdp_type) , intent(in) :: method
8070 end subroutine
8071#endif
8072
8073#if LK1_ENABLED
8074 recursive module subroutine setSortedArrCusComQsortrdp_D1_LK1(array, isSorted, method)
8075#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8076 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortrdp_D1_LK1
8077#endif
8078 use pm_kind, only: LKG => LK1
8079 logical(LKG) , intent(inout) , contiguous :: array(:)
8080 procedure(logical(LK)) :: isSorted
8081 type(qsortrdp_type) , intent(in) :: method
8082 end subroutine
8083#endif
8084
8085 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8086
8087#if CK5_ENABLED
8088 recursive module subroutine setSortedArrCusComQsortrdp_D1_CK5(array, isSorted, method)
8089#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8090 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortrdp_D1_CK5
8091#endif
8092 use pm_kind, only: CKG => CK5
8093 complex(CKG) , intent(inout) , contiguous :: array(:)
8094 procedure(logical(LK)) :: isSorted
8095 type(qsortrdp_type) , intent(in) :: method
8096 end subroutine
8097#endif
8098
8099#if CK4_ENABLED
8100 recursive module subroutine setSortedArrCusComQsortrdp_D1_CK4(array, isSorted, method)
8101#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8102 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortrdp_D1_CK4
8103#endif
8104 use pm_kind, only: CKG => CK4
8105 complex(CKG) , intent(inout) , contiguous :: array(:)
8106 procedure(logical(LK)) :: isSorted
8107 type(qsortrdp_type) , intent(in) :: method
8108 end subroutine
8109#endif
8110
8111#if CK3_ENABLED
8112 recursive module subroutine setSortedArrCusComQsortrdp_D1_CK3(array, isSorted, method)
8113#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8114 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortrdp_D1_CK3
8115#endif
8116 use pm_kind, only: CKG => CK3
8117 complex(CKG) , intent(inout) , contiguous :: array(:)
8118 procedure(logical(LK)) :: isSorted
8119 type(qsortrdp_type) , intent(in) :: method
8120 end subroutine
8121#endif
8122
8123#if CK2_ENABLED
8124 recursive module subroutine setSortedArrCusComQsortrdp_D1_CK2(array, isSorted, method)
8125#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8126 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortrdp_D1_CK2
8127#endif
8128 use pm_kind, only: CKG => CK2
8129 complex(CKG) , intent(inout) , contiguous :: array(:)
8130 procedure(logical(LK)) :: isSorted
8131 type(qsortrdp_type) , intent(in) :: method
8132 end subroutine
8133#endif
8134
8135#if CK1_ENABLED
8136 recursive module subroutine setSortedArrCusComQsortrdp_D1_CK1(array, isSorted, method)
8137#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8138 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortrdp_D1_CK1
8139#endif
8140 use pm_kind, only: CKG => CK1
8141 complex(CKG) , intent(inout) , contiguous :: array(:)
8142 procedure(logical(LK)) :: isSorted
8143 type(qsortrdp_type) , intent(in) :: method
8144 end subroutine
8145#endif
8146
8147 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8148
8149#if RK5_ENABLED
8150 recursive module subroutine setSortedArrCusComQsortrdp_D1_RK5(array, isSorted, method)
8151#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8152 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortrdp_D1_RK5
8153#endif
8154 use pm_kind, only: RKG => RK5
8155 real(RKG) , intent(inout) , contiguous :: array(:)
8156 procedure(logical(LK)) :: isSorted
8157 type(qsortrdp_type) , intent(in) :: method
8158 end subroutine
8159#endif
8160
8161#if RK4_ENABLED
8162 recursive module subroutine setSortedArrCusComQsortrdp_D1_RK4(array, isSorted, method)
8163#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8164 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortrdp_D1_RK4
8165#endif
8166 use pm_kind, only: RKG => RK4
8167 real(RKG) , intent(inout) , contiguous :: array(:)
8168 procedure(logical(LK)) :: isSorted
8169 type(qsortrdp_type) , intent(in) :: method
8170 end subroutine
8171#endif
8172
8173#if RK3_ENABLED
8174 recursive module subroutine setSortedArrCusComQsortrdp_D1_RK3(array, isSorted, method)
8175#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8176 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortrdp_D1_RK3
8177#endif
8178 use pm_kind, only: RKG => RK3
8179 real(RKG) , intent(inout) , contiguous :: array(:)
8180 procedure(logical(LK)) :: isSorted
8181 type(qsortrdp_type) , intent(in) :: method
8182 end subroutine
8183#endif
8184
8185#if RK2_ENABLED
8186 recursive module subroutine setSortedArrCusComQsortrdp_D1_RK2(array, isSorted, method)
8187#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8188 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortrdp_D1_RK2
8189#endif
8190 use pm_kind, only: RKG => RK2
8191 real(RKG) , intent(inout) , contiguous :: array(:)
8192 procedure(logical(LK)) :: isSorted
8193 type(qsortrdp_type) , intent(in) :: method
8194 end subroutine
8195#endif
8196
8197#if RK1_ENABLED
8198 recursive module subroutine setSortedArrCusComQsortrdp_D1_RK1(array, isSorted, method)
8199#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8200 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortrdp_D1_RK1
8201#endif
8202 use pm_kind, only: RKG => RK1
8203 real(RKG) , intent(inout) , contiguous :: array(:)
8204 procedure(logical(LK)) :: isSorted
8205 type(qsortrdp_type) , intent(in) :: method
8206 end subroutine
8207#endif
8208
8209 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8210
8211#if PDT_ENABLED
8212
8213#if SK5_ENABLED
8214 recursive module subroutine setSortedArrCusComQsortrdp_D1_PSSK5(array, isSorted, method)
8215#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8216 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortrdp_D1_PSSK5
8217#endif
8218 use pm_kind, only: SKG => SK5
8219 use pm_container, only: css_pdt
8220 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
8221 procedure(logical(LK)) :: isSorted
8222 type(qsortrdp_type) , intent(in) :: method
8223 end subroutine
8224#endif
8225
8226#if SK4_ENABLED
8227 recursive module subroutine setSortedArrCusComQsortrdp_D1_PSSK4(array, isSorted, method)
8228#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8229 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortrdp_D1_PSSK4
8230#endif
8231 use pm_kind, only: SKG => SK4
8232 use pm_container, only: css_pdt
8233 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
8234 procedure(logical(LK)) :: isSorted
8235 type(qsortrdp_type) , intent(in) :: method
8236 end subroutine
8237#endif
8238
8239#if SK3_ENABLED
8240 recursive module subroutine setSortedArrCusComQsortrdp_D1_PSSK3(array, isSorted, method)
8241#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8242 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortrdp_D1_PSSK3
8243#endif
8244 use pm_kind, only: SKG => SK3
8245 use pm_container, only: css_pdt
8246 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
8247 procedure(logical(LK)) :: isSorted
8248 type(qsortrdp_type) , intent(in) :: method
8249 end subroutine
8250#endif
8251
8252#if SK2_ENABLED
8253 recursive module subroutine setSortedArrCusComQsortrdp_D1_PSSK2(array, isSorted, method)
8254#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8255 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortrdp_D1_PSSK2
8256#endif
8257 use pm_kind, only: SKG => SK2
8258 use pm_container, only: css_pdt
8259 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
8260 procedure(logical(LK)) :: isSorted
8261 type(qsortrdp_type) , intent(in) :: method
8262 end subroutine
8263#endif
8264
8265#if SK1_ENABLED
8266 recursive module subroutine setSortedArrCusComQsortrdp_D1_PSSK1(array, isSorted, method)
8267#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8268 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortrdp_D1_PSSK1
8269#endif
8270 use pm_kind, only: SKG => SK1
8271 use pm_container, only: css_pdt
8272 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
8273 procedure(logical(LK)) :: isSorted
8274 type(qsortrdp_type) , intent(in) :: method
8275 end subroutine
8276#endif
8277
8278#endif
8279!PDT_ENABLED
8280
8281 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8282
8283 recursive module subroutine setSortedArrCusComQsortrdp_D1_BSSK(array, isSorted, method)
8284#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8285 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComQsortrdp_D1_BSSK
8286#endif
8287 use pm_kind, only: SKG => SK
8288 use pm_container, only: css_type
8289 type(css_type) , intent(inout) , contiguous :: array(:)
8290 procedure(logical(LK)) :: isSorted
8291 type(qsortrdp_type) , intent(in) :: method
8292 end subroutine
8293
8294 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8295
8296 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8297 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8298 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8299
8300 end interface
8301
8302 ! setSortedArrCusComBubble
8303
8304 interface setSorted
8305
8306 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8307 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8308 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8309
8310 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8311
8312#if SK5_ENABLED
8313 module subroutine setSortedArrCusComBubble_D0_SK5(array, isSorted, method)
8314#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8315 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComBubble_D0_SK5
8316#endif
8317 use pm_kind, only: SKG => SK5
8318 character(*,SKG) , intent(inout) :: array
8319 procedure(logical(LK)) :: isSorted
8320 type(bubble_type) , intent(in) :: method
8321 end subroutine
8322#endif
8323
8324#if SK4_ENABLED
8325 module subroutine setSortedArrCusComBubble_D0_SK4(array, isSorted, method)
8326#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8327 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComBubble_D0_SK4
8328#endif
8329 use pm_kind, only: SKG => SK4
8330 character(*,SKG) , intent(inout) :: array
8331 procedure(logical(LK)) :: isSorted
8332 type(bubble_type) , intent(in) :: method
8333 end subroutine
8334#endif
8335
8336#if SK3_ENABLED
8337 module subroutine setSortedArrCusComBubble_D0_SK3(array, isSorted, method)
8338#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8339 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComBubble_D0_SK3
8340#endif
8341 use pm_kind, only: SKG => SK3
8342 character(*,SKG) , intent(inout) :: array
8343 procedure(logical(LK)) :: isSorted
8344 type(bubble_type) , intent(in) :: method
8345 end subroutine
8346#endif
8347
8348#if SK2_ENABLED
8349 module subroutine setSortedArrCusComBubble_D0_SK2(array, isSorted, method)
8350#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8351 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComBubble_D0_SK2
8352#endif
8353 use pm_kind, only: SKG => SK2
8354 character(*,SKG) , intent(inout) :: array
8355 procedure(logical(LK)) :: isSorted
8356 type(bubble_type) , intent(in) :: method
8357 end subroutine
8358#endif
8359
8360#if SK1_ENABLED
8361 module subroutine setSortedArrCusComBubble_D0_SK1(array, isSorted, method)
8362#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8363 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComBubble_D0_SK1
8364#endif
8365 use pm_kind, only: SKG => SK1
8366 character(*,SKG) , intent(inout) :: array
8367 procedure(logical(LK)) :: isSorted
8368 type(bubble_type) , intent(in) :: method
8369 end subroutine
8370#endif
8371
8372 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8373
8374#if SK5_ENABLED
8375 module subroutine setSortedArrCusComBubble_D1_SK5(array, isSorted, method)
8376#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8377 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComBubble_D1_SK5
8378#endif
8379 use pm_kind, only: SKG => SK5
8380 character(*,SKG) , intent(inout) , contiguous :: array(:)
8381 procedure(logical(LK)) :: isSorted
8382 type(bubble_type) , intent(in) :: method
8383 end subroutine
8384#endif
8385
8386#if SK4_ENABLED
8387 module subroutine setSortedArrCusComBubble_D1_SK4(array, isSorted, method)
8388#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8389 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComBubble_D1_SK4
8390#endif
8391 use pm_kind, only: SKG => SK4
8392 character(*,SKG) , intent(inout) , contiguous :: array(:)
8393 procedure(logical(LK)) :: isSorted
8394 type(bubble_type) , intent(in) :: method
8395 end subroutine
8396#endif
8397
8398#if SK3_ENABLED
8399 module subroutine setSortedArrCusComBubble_D1_SK3(array, isSorted, method)
8400#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8401 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComBubble_D1_SK3
8402#endif
8403 use pm_kind, only: SKG => SK3
8404 character(*,SKG) , intent(inout) , contiguous :: array(:)
8405 procedure(logical(LK)) :: isSorted
8406 type(bubble_type) , intent(in) :: method
8407 end subroutine
8408#endif
8409
8410#if SK2_ENABLED
8411 module subroutine setSortedArrCusComBubble_D1_SK2(array, isSorted, method)
8412#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8413 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComBubble_D1_SK2
8414#endif
8415 use pm_kind, only: SKG => SK2
8416 character(*,SKG) , intent(inout) , contiguous :: array(:)
8417 procedure(logical(LK)) :: isSorted
8418 type(bubble_type) , intent(in) :: method
8419 end subroutine
8420#endif
8421
8422#if SK1_ENABLED
8423 module subroutine setSortedArrCusComBubble_D1_SK1(array, isSorted, method)
8424#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8425 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComBubble_D1_SK1
8426#endif
8427 use pm_kind, only: SKG => SK1
8428 character(*,SKG) , intent(inout) , contiguous :: array(:)
8429 procedure(logical(LK)) :: isSorted
8430 type(bubble_type) , intent(in) :: method
8431 end subroutine
8432#endif
8433
8434 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8435
8436#if IK5_ENABLED
8437 module subroutine setSortedArrCusComBubble_D1_IK5(array, isSorted, method)
8438#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8439 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComBubble_D1_IK5
8440#endif
8441 use pm_kind, only: IKG => IK5
8442 integer(IKG) , intent(inout) , contiguous :: array(:)
8443 procedure(logical(LK)) :: isSorted
8444 type(bubble_type) , intent(in) :: method
8445 end subroutine
8446#endif
8447
8448#if IK4_ENABLED
8449 module subroutine setSortedArrCusComBubble_D1_IK4(array, isSorted, method)
8450#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8451 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComBubble_D1_IK4
8452#endif
8453 use pm_kind, only: IKG => IK4
8454 integer(IKG) , intent(inout) , contiguous :: array(:)
8455 procedure(logical(LK)) :: isSorted
8456 type(bubble_type) , intent(in) :: method
8457 end subroutine
8458#endif
8459
8460#if IK3_ENABLED
8461 module subroutine setSortedArrCusComBubble_D1_IK3(array, isSorted, method)
8462#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8463 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComBubble_D1_IK3
8464#endif
8465 use pm_kind, only: IKG => IK3
8466 integer(IKG) , intent(inout) , contiguous :: array(:)
8467 procedure(logical(LK)) :: isSorted
8468 type(bubble_type) , intent(in) :: method
8469 end subroutine
8470#endif
8471
8472#if IK2_ENABLED
8473 module subroutine setSortedArrCusComBubble_D1_IK2(array, isSorted, method)
8474#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8475 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComBubble_D1_IK2
8476#endif
8477 use pm_kind, only: IKG => IK2
8478 integer(IKG) , intent(inout) , contiguous :: array(:)
8479 procedure(logical(LK)) :: isSorted
8480 type(bubble_type) , intent(in) :: method
8481 end subroutine
8482#endif
8483
8484#if IK1_ENABLED
8485 module subroutine setSortedArrCusComBubble_D1_IK1(array, isSorted, method)
8486#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8487 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComBubble_D1_IK1
8488#endif
8489 use pm_kind, only: IKG => IK1
8490 integer(IKG) , intent(inout) , contiguous :: array(:)
8491 procedure(logical(LK)) :: isSorted
8492 type(bubble_type) , intent(in) :: method
8493 end subroutine
8494#endif
8495
8496 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8497
8498#if LK5_ENABLED
8499 module subroutine setSortedArrCusComBubble_D1_LK5(array, isSorted, method)
8500#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8501 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComBubble_D1_LK5
8502#endif
8503 use pm_kind, only: LKG => LK5
8504 logical(LKG) , intent(inout) , contiguous :: array(:)
8505 procedure(logical(LK)) :: isSorted
8506 type(bubble_type) , intent(in) :: method
8507 end subroutine
8508#endif
8509
8510#if LK4_ENABLED
8511 module subroutine setSortedArrCusComBubble_D1_LK4(array, isSorted, method)
8512#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8513 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComBubble_D1_LK4
8514#endif
8515 use pm_kind, only: LKG => LK4
8516 logical(LKG) , intent(inout) , contiguous :: array(:)
8517 procedure(logical(LK)) :: isSorted
8518 type(bubble_type) , intent(in) :: method
8519 end subroutine
8520#endif
8521
8522#if LK3_ENABLED
8523 module subroutine setSortedArrCusComBubble_D1_LK3(array, isSorted, method)
8524#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8525 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComBubble_D1_LK3
8526#endif
8527 use pm_kind, only: LKG => LK3
8528 logical(LKG) , intent(inout) , contiguous :: array(:)
8529 procedure(logical(LK)) :: isSorted
8530 type(bubble_type) , intent(in) :: method
8531 end subroutine
8532#endif
8533
8534#if LK2_ENABLED
8535 module subroutine setSortedArrCusComBubble_D1_LK2(array, isSorted, method)
8536#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8537 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComBubble_D1_LK2
8538#endif
8539 use pm_kind, only: LKG => LK2
8540 logical(LKG) , intent(inout) , contiguous :: array(:)
8541 procedure(logical(LK)) :: isSorted
8542 type(bubble_type) , intent(in) :: method
8543 end subroutine
8544#endif
8545
8546#if LK1_ENABLED
8547 module subroutine setSortedArrCusComBubble_D1_LK1(array, isSorted, method)
8548#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8549 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComBubble_D1_LK1
8550#endif
8551 use pm_kind, only: LKG => LK1
8552 logical(LKG) , intent(inout) , contiguous :: array(:)
8553 procedure(logical(LK)) :: isSorted
8554 type(bubble_type) , intent(in) :: method
8555 end subroutine
8556#endif
8557
8558 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8559
8560#if CK5_ENABLED
8561 module subroutine setSortedArrCusComBubble_D1_CK5(array, isSorted, method)
8562#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8563 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComBubble_D1_CK5
8564#endif
8565 use pm_kind, only: CKG => CK5
8566 complex(CKG) , intent(inout) , contiguous :: array(:)
8567 procedure(logical(LK)) :: isSorted
8568 type(bubble_type) , intent(in) :: method
8569 end subroutine
8570#endif
8571
8572#if CK4_ENABLED
8573 module subroutine setSortedArrCusComBubble_D1_CK4(array, isSorted, method)
8574#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8575 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComBubble_D1_CK4
8576#endif
8577 use pm_kind, only: CKG => CK4
8578 complex(CKG) , intent(inout) , contiguous :: array(:)
8579 procedure(logical(LK)) :: isSorted
8580 type(bubble_type) , intent(in) :: method
8581 end subroutine
8582#endif
8583
8584#if CK3_ENABLED
8585 module subroutine setSortedArrCusComBubble_D1_CK3(array, isSorted, method)
8586#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8587 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComBubble_D1_CK3
8588#endif
8589 use pm_kind, only: CKG => CK3
8590 complex(CKG) , intent(inout) , contiguous :: array(:)
8591 procedure(logical(LK)) :: isSorted
8592 type(bubble_type) , intent(in) :: method
8593 end subroutine
8594#endif
8595
8596#if CK2_ENABLED
8597 module subroutine setSortedArrCusComBubble_D1_CK2(array, isSorted, method)
8598#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8599 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComBubble_D1_CK2
8600#endif
8601 use pm_kind, only: CKG => CK2
8602 complex(CKG) , intent(inout) , contiguous :: array(:)
8603 procedure(logical(LK)) :: isSorted
8604 type(bubble_type) , intent(in) :: method
8605 end subroutine
8606#endif
8607
8608#if CK1_ENABLED
8609 module subroutine setSortedArrCusComBubble_D1_CK1(array, isSorted, method)
8610#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8611 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComBubble_D1_CK1
8612#endif
8613 use pm_kind, only: CKG => CK1
8614 complex(CKG) , intent(inout) , contiguous :: array(:)
8615 procedure(logical(LK)) :: isSorted
8616 type(bubble_type) , intent(in) :: method
8617 end subroutine
8618#endif
8619
8620 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8621
8622#if RK5_ENABLED
8623 module subroutine setSortedArrCusComBubble_D1_RK5(array, isSorted, method)
8624#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8625 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComBubble_D1_RK5
8626#endif
8627 use pm_kind, only: RKG => RK5
8628 real(RKG) , intent(inout) , contiguous :: array(:)
8629 procedure(logical(LK)) :: isSorted
8630 type(bubble_type) , intent(in) :: method
8631 end subroutine
8632#endif
8633
8634#if RK4_ENABLED
8635 module subroutine setSortedArrCusComBubble_D1_RK4(array, isSorted, method)
8636#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8637 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComBubble_D1_RK4
8638#endif
8639 use pm_kind, only: RKG => RK4
8640 real(RKG) , intent(inout) , contiguous :: array(:)
8641 procedure(logical(LK)) :: isSorted
8642 type(bubble_type) , intent(in) :: method
8643 end subroutine
8644#endif
8645
8646#if RK3_ENABLED
8647 module subroutine setSortedArrCusComBubble_D1_RK3(array, isSorted, method)
8648#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8649 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComBubble_D1_RK3
8650#endif
8651 use pm_kind, only: RKG => RK3
8652 real(RKG) , intent(inout) , contiguous :: array(:)
8653 procedure(logical(LK)) :: isSorted
8654 type(bubble_type) , intent(in) :: method
8655 end subroutine
8656#endif
8657
8658#if RK2_ENABLED
8659 module subroutine setSortedArrCusComBubble_D1_RK2(array, isSorted, method)
8660#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8661 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComBubble_D1_RK2
8662#endif
8663 use pm_kind, only: RKG => RK2
8664 real(RKG) , intent(inout) , contiguous :: array(:)
8665 procedure(logical(LK)) :: isSorted
8666 type(bubble_type) , intent(in) :: method
8667 end subroutine
8668#endif
8669
8670#if RK1_ENABLED
8671 module subroutine setSortedArrCusComBubble_D1_RK1(array, isSorted, method)
8672#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8673 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComBubble_D1_RK1
8674#endif
8675 use pm_kind, only: RKG => RK1
8676 real(RKG) , intent(inout) , contiguous :: array(:)
8677 procedure(logical(LK)) :: isSorted
8678 type(bubble_type) , intent(in) :: method
8679 end subroutine
8680#endif
8681
8682 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8683
8684#if PDT_ENABLED
8685
8686#if SK5_ENABLED
8687 module subroutine setSortedArrCusComBubble_D1_PSSK5(array, isSorted, method)
8688#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8689 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComBubble_D1_PSSK5
8690#endif
8691 use pm_kind, only: SKG => SK5
8692 use pm_container, only: css_pdt
8693 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
8694 procedure(logical(LK)) :: isSorted
8695 type(bubble_type) , intent(in) :: method
8696 end subroutine
8697#endif
8698
8699#if SK4_ENABLED
8700 module subroutine setSortedArrCusComBubble_D1_PSSK4(array, isSorted, method)
8701#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8702 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComBubble_D1_PSSK4
8703#endif
8704 use pm_kind, only: SKG => SK4
8705 use pm_container, only: css_pdt
8706 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
8707 procedure(logical(LK)) :: isSorted
8708 type(bubble_type) , intent(in) :: method
8709 end subroutine
8710#endif
8711
8712#if SK3_ENABLED
8713 module subroutine setSortedArrCusComBubble_D1_PSSK3(array, isSorted, method)
8714#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8715 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComBubble_D1_PSSK3
8716#endif
8717 use pm_kind, only: SKG => SK3
8718 use pm_container, only: css_pdt
8719 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
8720 procedure(logical(LK)) :: isSorted
8721 type(bubble_type) , intent(in) :: method
8722 end subroutine
8723#endif
8724
8725#if SK2_ENABLED
8726 module subroutine setSortedArrCusComBubble_D1_PSSK2(array, isSorted, method)
8727#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8728 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComBubble_D1_PSSK2
8729#endif
8730 use pm_kind, only: SKG => SK2
8731 use pm_container, only: css_pdt
8732 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
8733 procedure(logical(LK)) :: isSorted
8734 type(bubble_type) , intent(in) :: method
8735 end subroutine
8736#endif
8737
8738#if SK1_ENABLED
8739 module subroutine setSortedArrCusComBubble_D1_PSSK1(array, isSorted, method)
8740#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8741 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComBubble_D1_PSSK1
8742#endif
8743 use pm_kind, only: SKG => SK1
8744 use pm_container, only: css_pdt
8745 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
8746 procedure(logical(LK)) :: isSorted
8747 type(bubble_type) , intent(in) :: method
8748 end subroutine
8749#endif
8750
8751#endif
8752!PDT_ENABLED
8753
8754 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8755
8756 module subroutine setSortedArrCusComBubble_D1_BSSK(array, isSorted, method)
8757#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8758 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComBubble_D1_BSSK
8759#endif
8760 use pm_kind, only: SKG => SK
8761 use pm_container, only: css_type
8762 type(css_type) , intent(inout) , contiguous :: array(:)
8763 procedure(logical(LK)) :: isSorted
8764 type(bubble_type) , intent(in) :: method
8765 end subroutine
8766
8767 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8768
8769 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8770 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8771 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8772
8773 end interface
8774
8775 ! setSortedArrCusComHeapi
8776
8777 interface setSorted
8778
8779 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8780 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8781 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8782
8783 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8784
8785#if SK5_ENABLED
8786 module subroutine setSortedArrCusComHeapi_D0_SK5(array, isSorted, method)
8787#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8788 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapi_D0_SK5
8789#endif
8790 use pm_kind, only: SKG => SK5
8791 character(*,SKG) , intent(inout) :: array
8792 procedure(logical(LK)) :: isSorted
8793 type(heapi_type) , intent(in) :: method
8794 end subroutine
8795#endif
8796
8797#if SK4_ENABLED
8798 module subroutine setSortedArrCusComHeapi_D0_SK4(array, isSorted, method)
8799#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8800 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapi_D0_SK4
8801#endif
8802 use pm_kind, only: SKG => SK4
8803 character(*,SKG) , intent(inout) :: array
8804 procedure(logical(LK)) :: isSorted
8805 type(heapi_type) , intent(in) :: method
8806 end subroutine
8807#endif
8808
8809#if SK3_ENABLED
8810 module subroutine setSortedArrCusComHeapi_D0_SK3(array, isSorted, method)
8811#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8812 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapi_D0_SK3
8813#endif
8814 use pm_kind, only: SKG => SK3
8815 character(*,SKG) , intent(inout) :: array
8816 procedure(logical(LK)) :: isSorted
8817 type(heapi_type) , intent(in) :: method
8818 end subroutine
8819#endif
8820
8821#if SK2_ENABLED
8822 module subroutine setSortedArrCusComHeapi_D0_SK2(array, isSorted, method)
8823#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8824 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapi_D0_SK2
8825#endif
8826 use pm_kind, only: SKG => SK2
8827 character(*,SKG) , intent(inout) :: array
8828 procedure(logical(LK)) :: isSorted
8829 type(heapi_type) , intent(in) :: method
8830 end subroutine
8831#endif
8832
8833#if SK1_ENABLED
8834 module subroutine setSortedArrCusComHeapi_D0_SK1(array, isSorted, method)
8835#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8836 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapi_D0_SK1
8837#endif
8838 use pm_kind, only: SKG => SK1
8839 character(*,SKG) , intent(inout) :: array
8840 procedure(logical(LK)) :: isSorted
8841 type(heapi_type) , intent(in) :: method
8842 end subroutine
8843#endif
8844
8845 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8846
8847#if SK5_ENABLED
8848 module subroutine setSortedArrCusComHeapi_D1_SK5(array, isSorted, method)
8849#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8850 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapi_D1_SK5
8851#endif
8852 use pm_kind, only: SKG => SK5
8853 character(*,SKG) , intent(inout) , contiguous :: array(:)
8854 procedure(logical(LK)) :: isSorted
8855 type(heapi_type) , intent(in) :: method
8856 end subroutine
8857#endif
8858
8859#if SK4_ENABLED
8860 module subroutine setSortedArrCusComHeapi_D1_SK4(array, isSorted, method)
8861#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8862 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapi_D1_SK4
8863#endif
8864 use pm_kind, only: SKG => SK4
8865 character(*,SKG) , intent(inout) , contiguous :: array(:)
8866 procedure(logical(LK)) :: isSorted
8867 type(heapi_type) , intent(in) :: method
8868 end subroutine
8869#endif
8870
8871#if SK3_ENABLED
8872 module subroutine setSortedArrCusComHeapi_D1_SK3(array, isSorted, method)
8873#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8874 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapi_D1_SK3
8875#endif
8876 use pm_kind, only: SKG => SK3
8877 character(*,SKG) , intent(inout) , contiguous :: array(:)
8878 procedure(logical(LK)) :: isSorted
8879 type(heapi_type) , intent(in) :: method
8880 end subroutine
8881#endif
8882
8883#if SK2_ENABLED
8884 module subroutine setSortedArrCusComHeapi_D1_SK2(array, isSorted, method)
8885#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8886 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapi_D1_SK2
8887#endif
8888 use pm_kind, only: SKG => SK2
8889 character(*,SKG) , intent(inout) , contiguous :: array(:)
8890 procedure(logical(LK)) :: isSorted
8891 type(heapi_type) , intent(in) :: method
8892 end subroutine
8893#endif
8894
8895#if SK1_ENABLED
8896 module subroutine setSortedArrCusComHeapi_D1_SK1(array, isSorted, method)
8897#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8898 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapi_D1_SK1
8899#endif
8900 use pm_kind, only: SKG => SK1
8901 character(*,SKG) , intent(inout) , contiguous :: array(:)
8902 procedure(logical(LK)) :: isSorted
8903 type(heapi_type) , intent(in) :: method
8904 end subroutine
8905#endif
8906
8907 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8908
8909#if IK5_ENABLED
8910 module subroutine setSortedArrCusComHeapi_D1_IK5(array, isSorted, method)
8911#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8912 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapi_D1_IK5
8913#endif
8914 use pm_kind, only: IKG => IK5
8915 integer(IKG) , intent(inout) , contiguous :: array(:)
8916 procedure(logical(LK)) :: isSorted
8917 type(heapi_type) , intent(in) :: method
8918 end subroutine
8919#endif
8920
8921#if IK4_ENABLED
8922 module subroutine setSortedArrCusComHeapi_D1_IK4(array, isSorted, method)
8923#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8924 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapi_D1_IK4
8925#endif
8926 use pm_kind, only: IKG => IK4
8927 integer(IKG) , intent(inout) , contiguous :: array(:)
8928 procedure(logical(LK)) :: isSorted
8929 type(heapi_type) , intent(in) :: method
8930 end subroutine
8931#endif
8932
8933#if IK3_ENABLED
8934 module subroutine setSortedArrCusComHeapi_D1_IK3(array, isSorted, method)
8935#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8936 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapi_D1_IK3
8937#endif
8938 use pm_kind, only: IKG => IK3
8939 integer(IKG) , intent(inout) , contiguous :: array(:)
8940 procedure(logical(LK)) :: isSorted
8941 type(heapi_type) , intent(in) :: method
8942 end subroutine
8943#endif
8944
8945#if IK2_ENABLED
8946 module subroutine setSortedArrCusComHeapi_D1_IK2(array, isSorted, method)
8947#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8948 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapi_D1_IK2
8949#endif
8950 use pm_kind, only: IKG => IK2
8951 integer(IKG) , intent(inout) , contiguous :: array(:)
8952 procedure(logical(LK)) :: isSorted
8953 type(heapi_type) , intent(in) :: method
8954 end subroutine
8955#endif
8956
8957#if IK1_ENABLED
8958 module subroutine setSortedArrCusComHeapi_D1_IK1(array, isSorted, method)
8959#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8960 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapi_D1_IK1
8961#endif
8962 use pm_kind, only: IKG => IK1
8963 integer(IKG) , intent(inout) , contiguous :: array(:)
8964 procedure(logical(LK)) :: isSorted
8965 type(heapi_type) , intent(in) :: method
8966 end subroutine
8967#endif
8968
8969 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8970
8971#if LK5_ENABLED
8972 module subroutine setSortedArrCusComHeapi_D1_LK5(array, isSorted, method)
8973#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8974 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapi_D1_LK5
8975#endif
8976 use pm_kind, only: LKG => LK5
8977 logical(LKG) , intent(inout) , contiguous :: array(:)
8978 procedure(logical(LK)) :: isSorted
8979 type(heapi_type) , intent(in) :: method
8980 end subroutine
8981#endif
8982
8983#if LK4_ENABLED
8984 module subroutine setSortedArrCusComHeapi_D1_LK4(array, isSorted, method)
8985#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8986 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapi_D1_LK4
8987#endif
8988 use pm_kind, only: LKG => LK4
8989 logical(LKG) , intent(inout) , contiguous :: array(:)
8990 procedure(logical(LK)) :: isSorted
8991 type(heapi_type) , intent(in) :: method
8992 end subroutine
8993#endif
8994
8995#if LK3_ENABLED
8996 module subroutine setSortedArrCusComHeapi_D1_LK3(array, isSorted, method)
8997#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8998 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapi_D1_LK3
8999#endif
9000 use pm_kind, only: LKG => LK3
9001 logical(LKG) , intent(inout) , contiguous :: array(:)
9002 procedure(logical(LK)) :: isSorted
9003 type(heapi_type) , intent(in) :: method
9004 end subroutine
9005#endif
9006
9007#if LK2_ENABLED
9008 module subroutine setSortedArrCusComHeapi_D1_LK2(array, isSorted, method)
9009#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9010 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapi_D1_LK2
9011#endif
9012 use pm_kind, only: LKG => LK2
9013 logical(LKG) , intent(inout) , contiguous :: array(:)
9014 procedure(logical(LK)) :: isSorted
9015 type(heapi_type) , intent(in) :: method
9016 end subroutine
9017#endif
9018
9019#if LK1_ENABLED
9020 module subroutine setSortedArrCusComHeapi_D1_LK1(array, isSorted, method)
9021#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9022 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapi_D1_LK1
9023#endif
9024 use pm_kind, only: LKG => LK1
9025 logical(LKG) , intent(inout) , contiguous :: array(:)
9026 procedure(logical(LK)) :: isSorted
9027 type(heapi_type) , intent(in) :: method
9028 end subroutine
9029#endif
9030
9031 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9032
9033#if CK5_ENABLED
9034 module subroutine setSortedArrCusComHeapi_D1_CK5(array, isSorted, method)
9035#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9036 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapi_D1_CK5
9037#endif
9038 use pm_kind, only: CKG => CK5
9039 complex(CKG) , intent(inout) , contiguous :: array(:)
9040 procedure(logical(LK)) :: isSorted
9041 type(heapi_type) , intent(in) :: method
9042 end subroutine
9043#endif
9044
9045#if CK4_ENABLED
9046 module subroutine setSortedArrCusComHeapi_D1_CK4(array, isSorted, method)
9047#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9048 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapi_D1_CK4
9049#endif
9050 use pm_kind, only: CKG => CK4
9051 complex(CKG) , intent(inout) , contiguous :: array(:)
9052 procedure(logical(LK)) :: isSorted
9053 type(heapi_type) , intent(in) :: method
9054 end subroutine
9055#endif
9056
9057#if CK3_ENABLED
9058 module subroutine setSortedArrCusComHeapi_D1_CK3(array, isSorted, method)
9059#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9060 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapi_D1_CK3
9061#endif
9062 use pm_kind, only: CKG => CK3
9063 complex(CKG) , intent(inout) , contiguous :: array(:)
9064 procedure(logical(LK)) :: isSorted
9065 type(heapi_type) , intent(in) :: method
9066 end subroutine
9067#endif
9068
9069#if CK2_ENABLED
9070 module subroutine setSortedArrCusComHeapi_D1_CK2(array, isSorted, method)
9071#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9072 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapi_D1_CK2
9073#endif
9074 use pm_kind, only: CKG => CK2
9075 complex(CKG) , intent(inout) , contiguous :: array(:)
9076 procedure(logical(LK)) :: isSorted
9077 type(heapi_type) , intent(in) :: method
9078 end subroutine
9079#endif
9080
9081#if CK1_ENABLED
9082 module subroutine setSortedArrCusComHeapi_D1_CK1(array, isSorted, method)
9083#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9084 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapi_D1_CK1
9085#endif
9086 use pm_kind, only: CKG => CK1
9087 complex(CKG) , intent(inout) , contiguous :: array(:)
9088 procedure(logical(LK)) :: isSorted
9089 type(heapi_type) , intent(in) :: method
9090 end subroutine
9091#endif
9092
9093 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9094
9095#if RK5_ENABLED
9096 module subroutine setSortedArrCusComHeapi_D1_RK5(array, isSorted, method)
9097#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9098 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapi_D1_RK5
9099#endif
9100 use pm_kind, only: RKG => RK5
9101 real(RKG) , intent(inout) , contiguous :: array(:)
9102 procedure(logical(LK)) :: isSorted
9103 type(heapi_type) , intent(in) :: method
9104 end subroutine
9105#endif
9106
9107#if RK4_ENABLED
9108 module subroutine setSortedArrCusComHeapi_D1_RK4(array, isSorted, method)
9109#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9110 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapi_D1_RK4
9111#endif
9112 use pm_kind, only: RKG => RK4
9113 real(RKG) , intent(inout) , contiguous :: array(:)
9114 procedure(logical(LK)) :: isSorted
9115 type(heapi_type) , intent(in) :: method
9116 end subroutine
9117#endif
9118
9119#if RK3_ENABLED
9120 module subroutine setSortedArrCusComHeapi_D1_RK3(array, isSorted, method)
9121#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9122 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapi_D1_RK3
9123#endif
9124 use pm_kind, only: RKG => RK3
9125 real(RKG) , intent(inout) , contiguous :: array(:)
9126 procedure(logical(LK)) :: isSorted
9127 type(heapi_type) , intent(in) :: method
9128 end subroutine
9129#endif
9130
9131#if RK2_ENABLED
9132 module subroutine setSortedArrCusComHeapi_D1_RK2(array, isSorted, method)
9133#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9134 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapi_D1_RK2
9135#endif
9136 use pm_kind, only: RKG => RK2
9137 real(RKG) , intent(inout) , contiguous :: array(:)
9138 procedure(logical(LK)) :: isSorted
9139 type(heapi_type) , intent(in) :: method
9140 end subroutine
9141#endif
9142
9143#if RK1_ENABLED
9144 module subroutine setSortedArrCusComHeapi_D1_RK1(array, isSorted, method)
9145#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9146 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapi_D1_RK1
9147#endif
9148 use pm_kind, only: RKG => RK1
9149 real(RKG) , intent(inout) , contiguous :: array(:)
9150 procedure(logical(LK)) :: isSorted
9151 type(heapi_type) , intent(in) :: method
9152 end subroutine
9153#endif
9154
9155 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9156
9157#if PDT_ENABLED
9158
9159#if SK5_ENABLED
9160 module subroutine setSortedArrCusComHeapi_D1_PSSK5(array, isSorted, method)
9161#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9162 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapi_D1_PSSK5
9163#endif
9164 use pm_kind, only: SKG => SK5
9165 use pm_container, only: css_pdt
9166 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
9167 procedure(logical(LK)) :: isSorted
9168 type(heapi_type) , intent(in) :: method
9169 end subroutine
9170#endif
9171
9172#if SK4_ENABLED
9173 module subroutine setSortedArrCusComHeapi_D1_PSSK4(array, isSorted, method)
9174#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9175 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapi_D1_PSSK4
9176#endif
9177 use pm_kind, only: SKG => SK4
9178 use pm_container, only: css_pdt
9179 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
9180 procedure(logical(LK)) :: isSorted
9181 type(heapi_type) , intent(in) :: method
9182 end subroutine
9183#endif
9184
9185#if SK3_ENABLED
9186 module subroutine setSortedArrCusComHeapi_D1_PSSK3(array, isSorted, method)
9187#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9188 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapi_D1_PSSK3
9189#endif
9190 use pm_kind, only: SKG => SK3
9191 use pm_container, only: css_pdt
9192 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
9193 procedure(logical(LK)) :: isSorted
9194 type(heapi_type) , intent(in) :: method
9195 end subroutine
9196#endif
9197
9198#if SK2_ENABLED
9199 module subroutine setSortedArrCusComHeapi_D1_PSSK2(array, isSorted, method)
9200#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9201 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapi_D1_PSSK2
9202#endif
9203 use pm_kind, only: SKG => SK2
9204 use pm_container, only: css_pdt
9205 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
9206 procedure(logical(LK)) :: isSorted
9207 type(heapi_type) , intent(in) :: method
9208 end subroutine
9209#endif
9210
9211#if SK1_ENABLED
9212 module subroutine setSortedArrCusComHeapi_D1_PSSK1(array, isSorted, method)
9213#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9214 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapi_D1_PSSK1
9215#endif
9216 use pm_kind, only: SKG => SK1
9217 use pm_container, only: css_pdt
9218 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
9219 procedure(logical(LK)) :: isSorted
9220 type(heapi_type) , intent(in) :: method
9221 end subroutine
9222#endif
9223
9224#endif
9225!PDT_ENABLED
9226
9227 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9228
9229 module subroutine setSortedArrCusComHeapi_D1_BSSK(array, isSorted, method)
9230#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9231 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapi_D1_BSSK
9232#endif
9233 use pm_kind, only: SKG => SK
9234 use pm_container, only: css_type
9235 type(css_type) , intent(inout) , contiguous :: array(:)
9236 procedure(logical(LK)) :: isSorted
9237 type(heapi_type) , intent(in) :: method
9238 end subroutine
9239
9240 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9241
9242 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9243 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9244 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9245
9246 end interface
9247
9248 ! setSortedArrCusComHeapr
9249
9250 interface setSorted
9251
9252 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9253 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9254 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9255
9256 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9257
9258#if SK5_ENABLED
9259 module subroutine setSortedArrCusComHeapr_D0_SK5(array, isSorted, method)
9260#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9261 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapr_D0_SK5
9262#endif
9263 use pm_kind, only: SKG => SK5
9264 character(*,SKG) , intent(inout) :: array
9265 procedure(logical(LK)) :: isSorted
9266 type(heapr_type) , intent(in) :: method
9267 end subroutine
9268#endif
9269
9270#if SK4_ENABLED
9271 module subroutine setSortedArrCusComHeapr_D0_SK4(array, isSorted, method)
9272#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9273 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapr_D0_SK4
9274#endif
9275 use pm_kind, only: SKG => SK4
9276 character(*,SKG) , intent(inout) :: array
9277 procedure(logical(LK)) :: isSorted
9278 type(heapr_type) , intent(in) :: method
9279 end subroutine
9280#endif
9281
9282#if SK3_ENABLED
9283 module subroutine setSortedArrCusComHeapr_D0_SK3(array, isSorted, method)
9284#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9285 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapr_D0_SK3
9286#endif
9287 use pm_kind, only: SKG => SK3
9288 character(*,SKG) , intent(inout) :: array
9289 procedure(logical(LK)) :: isSorted
9290 type(heapr_type) , intent(in) :: method
9291 end subroutine
9292#endif
9293
9294#if SK2_ENABLED
9295 module subroutine setSortedArrCusComHeapr_D0_SK2(array, isSorted, method)
9296#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9297 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapr_D0_SK2
9298#endif
9299 use pm_kind, only: SKG => SK2
9300 character(*,SKG) , intent(inout) :: array
9301 procedure(logical(LK)) :: isSorted
9302 type(heapr_type) , intent(in) :: method
9303 end subroutine
9304#endif
9305
9306#if SK1_ENABLED
9307 module subroutine setSortedArrCusComHeapr_D0_SK1(array, isSorted, method)
9308#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9309 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapr_D0_SK1
9310#endif
9311 use pm_kind, only: SKG => SK1
9312 character(*,SKG) , intent(inout) :: array
9313 procedure(logical(LK)) :: isSorted
9314 type(heapr_type) , intent(in) :: method
9315 end subroutine
9316#endif
9317
9318 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9319
9320#if SK5_ENABLED
9321 module subroutine setSortedArrCusComHeapr_D1_SK5(array, isSorted, method)
9322#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9323 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapr_D1_SK5
9324#endif
9325 use pm_kind, only: SKG => SK5
9326 character(*,SKG) , intent(inout) , contiguous :: array(:)
9327 procedure(logical(LK)) :: isSorted
9328 type(heapr_type) , intent(in) :: method
9329 end subroutine
9330#endif
9331
9332#if SK4_ENABLED
9333 module subroutine setSortedArrCusComHeapr_D1_SK4(array, isSorted, method)
9334#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9335 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapr_D1_SK4
9336#endif
9337 use pm_kind, only: SKG => SK4
9338 character(*,SKG) , intent(inout) , contiguous :: array(:)
9339 procedure(logical(LK)) :: isSorted
9340 type(heapr_type) , intent(in) :: method
9341 end subroutine
9342#endif
9343
9344#if SK3_ENABLED
9345 module subroutine setSortedArrCusComHeapr_D1_SK3(array, isSorted, method)
9346#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9347 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapr_D1_SK3
9348#endif
9349 use pm_kind, only: SKG => SK3
9350 character(*,SKG) , intent(inout) , contiguous :: array(:)
9351 procedure(logical(LK)) :: isSorted
9352 type(heapr_type) , intent(in) :: method
9353 end subroutine
9354#endif
9355
9356#if SK2_ENABLED
9357 module subroutine setSortedArrCusComHeapr_D1_SK2(array, isSorted, method)
9358#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9359 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapr_D1_SK2
9360#endif
9361 use pm_kind, only: SKG => SK2
9362 character(*,SKG) , intent(inout) , contiguous :: array(:)
9363 procedure(logical(LK)) :: isSorted
9364 type(heapr_type) , intent(in) :: method
9365 end subroutine
9366#endif
9367
9368#if SK1_ENABLED
9369 module subroutine setSortedArrCusComHeapr_D1_SK1(array, isSorted, method)
9370#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9371 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapr_D1_SK1
9372#endif
9373 use pm_kind, only: SKG => SK1
9374 character(*,SKG) , intent(inout) , contiguous :: array(:)
9375 procedure(logical(LK)) :: isSorted
9376 type(heapr_type) , intent(in) :: method
9377 end subroutine
9378#endif
9379
9380 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9381
9382#if IK5_ENABLED
9383 module subroutine setSortedArrCusComHeapr_D1_IK5(array, isSorted, method)
9384#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9385 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapr_D1_IK5
9386#endif
9387 use pm_kind, only: IKG => IK5
9388 integer(IKG) , intent(inout) , contiguous :: array(:)
9389 procedure(logical(LK)) :: isSorted
9390 type(heapr_type) , intent(in) :: method
9391 end subroutine
9392#endif
9393
9394#if IK4_ENABLED
9395 module subroutine setSortedArrCusComHeapr_D1_IK4(array, isSorted, method)
9396#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9397 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapr_D1_IK4
9398#endif
9399 use pm_kind, only: IKG => IK4
9400 integer(IKG) , intent(inout) , contiguous :: array(:)
9401 procedure(logical(LK)) :: isSorted
9402 type(heapr_type) , intent(in) :: method
9403 end subroutine
9404#endif
9405
9406#if IK3_ENABLED
9407 module subroutine setSortedArrCusComHeapr_D1_IK3(array, isSorted, method)
9408#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9409 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapr_D1_IK3
9410#endif
9411 use pm_kind, only: IKG => IK3
9412 integer(IKG) , intent(inout) , contiguous :: array(:)
9413 procedure(logical(LK)) :: isSorted
9414 type(heapr_type) , intent(in) :: method
9415 end subroutine
9416#endif
9417
9418#if IK2_ENABLED
9419 module subroutine setSortedArrCusComHeapr_D1_IK2(array, isSorted, method)
9420#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9421 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapr_D1_IK2
9422#endif
9423 use pm_kind, only: IKG => IK2
9424 integer(IKG) , intent(inout) , contiguous :: array(:)
9425 procedure(logical(LK)) :: isSorted
9426 type(heapr_type) , intent(in) :: method
9427 end subroutine
9428#endif
9429
9430#if IK1_ENABLED
9431 module subroutine setSortedArrCusComHeapr_D1_IK1(array, isSorted, method)
9432#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9433 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapr_D1_IK1
9434#endif
9435 use pm_kind, only: IKG => IK1
9436 integer(IKG) , intent(inout) , contiguous :: array(:)
9437 procedure(logical(LK)) :: isSorted
9438 type(heapr_type) , intent(in) :: method
9439 end subroutine
9440#endif
9441
9442 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9443
9444#if LK5_ENABLED
9445 module subroutine setSortedArrCusComHeapr_D1_LK5(array, isSorted, method)
9446#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9447 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapr_D1_LK5
9448#endif
9449 use pm_kind, only: LKG => LK5
9450 logical(LKG) , intent(inout) , contiguous :: array(:)
9451 procedure(logical(LK)) :: isSorted
9452 type(heapr_type) , intent(in) :: method
9453 end subroutine
9454#endif
9455
9456#if LK4_ENABLED
9457 module subroutine setSortedArrCusComHeapr_D1_LK4(array, isSorted, method)
9458#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9459 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapr_D1_LK4
9460#endif
9461 use pm_kind, only: LKG => LK4
9462 logical(LKG) , intent(inout) , contiguous :: array(:)
9463 procedure(logical(LK)) :: isSorted
9464 type(heapr_type) , intent(in) :: method
9465 end subroutine
9466#endif
9467
9468#if LK3_ENABLED
9469 module subroutine setSortedArrCusComHeapr_D1_LK3(array, isSorted, method)
9470#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9471 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapr_D1_LK3
9472#endif
9473 use pm_kind, only: LKG => LK3
9474 logical(LKG) , intent(inout) , contiguous :: array(:)
9475 procedure(logical(LK)) :: isSorted
9476 type(heapr_type) , intent(in) :: method
9477 end subroutine
9478#endif
9479
9480#if LK2_ENABLED
9481 module subroutine setSortedArrCusComHeapr_D1_LK2(array, isSorted, method)
9482#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9483 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapr_D1_LK2
9484#endif
9485 use pm_kind, only: LKG => LK2
9486 logical(LKG) , intent(inout) , contiguous :: array(:)
9487 procedure(logical(LK)) :: isSorted
9488 type(heapr_type) , intent(in) :: method
9489 end subroutine
9490#endif
9491
9492#if LK1_ENABLED
9493 module subroutine setSortedArrCusComHeapr_D1_LK1(array, isSorted, method)
9494#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9495 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapr_D1_LK1
9496#endif
9497 use pm_kind, only: LKG => LK1
9498 logical(LKG) , intent(inout) , contiguous :: array(:)
9499 procedure(logical(LK)) :: isSorted
9500 type(heapr_type) , intent(in) :: method
9501 end subroutine
9502#endif
9503
9504 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9505
9506#if CK5_ENABLED
9507 module subroutine setSortedArrCusComHeapr_D1_CK5(array, isSorted, method)
9508#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9509 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapr_D1_CK5
9510#endif
9511 use pm_kind, only: CKG => CK5
9512 complex(CKG) , intent(inout) , contiguous :: array(:)
9513 procedure(logical(LK)) :: isSorted
9514 type(heapr_type) , intent(in) :: method
9515 end subroutine
9516#endif
9517
9518#if CK4_ENABLED
9519 module subroutine setSortedArrCusComHeapr_D1_CK4(array, isSorted, method)
9520#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9521 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapr_D1_CK4
9522#endif
9523 use pm_kind, only: CKG => CK4
9524 complex(CKG) , intent(inout) , contiguous :: array(:)
9525 procedure(logical(LK)) :: isSorted
9526 type(heapr_type) , intent(in) :: method
9527 end subroutine
9528#endif
9529
9530#if CK3_ENABLED
9531 module subroutine setSortedArrCusComHeapr_D1_CK3(array, isSorted, method)
9532#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9533 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapr_D1_CK3
9534#endif
9535 use pm_kind, only: CKG => CK3
9536 complex(CKG) , intent(inout) , contiguous :: array(:)
9537 procedure(logical(LK)) :: isSorted
9538 type(heapr_type) , intent(in) :: method
9539 end subroutine
9540#endif
9541
9542#if CK2_ENABLED
9543 module subroutine setSortedArrCusComHeapr_D1_CK2(array, isSorted, method)
9544#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9545 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapr_D1_CK2
9546#endif
9547 use pm_kind, only: CKG => CK2
9548 complex(CKG) , intent(inout) , contiguous :: array(:)
9549 procedure(logical(LK)) :: isSorted
9550 type(heapr_type) , intent(in) :: method
9551 end subroutine
9552#endif
9553
9554#if CK1_ENABLED
9555 module subroutine setSortedArrCusComHeapr_D1_CK1(array, isSorted, method)
9556#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9557 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapr_D1_CK1
9558#endif
9559 use pm_kind, only: CKG => CK1
9560 complex(CKG) , intent(inout) , contiguous :: array(:)
9561 procedure(logical(LK)) :: isSorted
9562 type(heapr_type) , intent(in) :: method
9563 end subroutine
9564#endif
9565
9566 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9567
9568#if RK5_ENABLED
9569 module subroutine setSortedArrCusComHeapr_D1_RK5(array, isSorted, method)
9570#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9571 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapr_D1_RK5
9572#endif
9573 use pm_kind, only: RKG => RK5
9574 real(RKG) , intent(inout) , contiguous :: array(:)
9575 procedure(logical(LK)) :: isSorted
9576 type(heapr_type) , intent(in) :: method
9577 end subroutine
9578#endif
9579
9580#if RK4_ENABLED
9581 module subroutine setSortedArrCusComHeapr_D1_RK4(array, isSorted, method)
9582#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9583 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapr_D1_RK4
9584#endif
9585 use pm_kind, only: RKG => RK4
9586 real(RKG) , intent(inout) , contiguous :: array(:)
9587 procedure(logical(LK)) :: isSorted
9588 type(heapr_type) , intent(in) :: method
9589 end subroutine
9590#endif
9591
9592#if RK3_ENABLED
9593 module subroutine setSortedArrCusComHeapr_D1_RK3(array, isSorted, method)
9594#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9595 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapr_D1_RK3
9596#endif
9597 use pm_kind, only: RKG => RK3
9598 real(RKG) , intent(inout) , contiguous :: array(:)
9599 procedure(logical(LK)) :: isSorted
9600 type(heapr_type) , intent(in) :: method
9601 end subroutine
9602#endif
9603
9604#if RK2_ENABLED
9605 module subroutine setSortedArrCusComHeapr_D1_RK2(array, isSorted, method)
9606#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9607 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapr_D1_RK2
9608#endif
9609 use pm_kind, only: RKG => RK2
9610 real(RKG) , intent(inout) , contiguous :: array(:)
9611 procedure(logical(LK)) :: isSorted
9612 type(heapr_type) , intent(in) :: method
9613 end subroutine
9614#endif
9615
9616#if RK1_ENABLED
9617 module subroutine setSortedArrCusComHeapr_D1_RK1(array, isSorted, method)
9618#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9619 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapr_D1_RK1
9620#endif
9621 use pm_kind, only: RKG => RK1
9622 real(RKG) , intent(inout) , contiguous :: array(:)
9623 procedure(logical(LK)) :: isSorted
9624 type(heapr_type) , intent(in) :: method
9625 end subroutine
9626#endif
9627
9628 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9629
9630#if PDT_ENABLED
9631
9632#if SK5_ENABLED
9633 module subroutine setSortedArrCusComHeapr_D1_PSSK5(array, isSorted, method)
9634#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9635 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapr_D1_PSSK5
9636#endif
9637 use pm_kind, only: SKG => SK5
9638 use pm_container, only: css_pdt
9639 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
9640 procedure(logical(LK)) :: isSorted
9641 type(heapr_type) , intent(in) :: method
9642 end subroutine
9643#endif
9644
9645#if SK4_ENABLED
9646 module subroutine setSortedArrCusComHeapr_D1_PSSK4(array, isSorted, method)
9647#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9648 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapr_D1_PSSK4
9649#endif
9650 use pm_kind, only: SKG => SK4
9651 use pm_container, only: css_pdt
9652 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
9653 procedure(logical(LK)) :: isSorted
9654 type(heapr_type) , intent(in) :: method
9655 end subroutine
9656#endif
9657
9658#if SK3_ENABLED
9659 module subroutine setSortedArrCusComHeapr_D1_PSSK3(array, isSorted, method)
9660#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9661 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapr_D1_PSSK3
9662#endif
9663 use pm_kind, only: SKG => SK3
9664 use pm_container, only: css_pdt
9665 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
9666 procedure(logical(LK)) :: isSorted
9667 type(heapr_type) , intent(in) :: method
9668 end subroutine
9669#endif
9670
9671#if SK2_ENABLED
9672 module subroutine setSortedArrCusComHeapr_D1_PSSK2(array, isSorted, method)
9673#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9674 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapr_D1_PSSK2
9675#endif
9676 use pm_kind, only: SKG => SK2
9677 use pm_container, only: css_pdt
9678 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
9679 procedure(logical(LK)) :: isSorted
9680 type(heapr_type) , intent(in) :: method
9681 end subroutine
9682#endif
9683
9684#if SK1_ENABLED
9685 module subroutine setSortedArrCusComHeapr_D1_PSSK1(array, isSorted, method)
9686#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9687 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapr_D1_PSSK1
9688#endif
9689 use pm_kind, only: SKG => SK1
9690 use pm_container, only: css_pdt
9691 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
9692 procedure(logical(LK)) :: isSorted
9693 type(heapr_type) , intent(in) :: method
9694 end subroutine
9695#endif
9696
9697#endif
9698!PDT_ENABLED
9699
9700 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9701
9702 module subroutine setSortedArrCusComHeapr_D1_BSSK(array, isSorted, method)
9703#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9704 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComHeapr_D1_BSSK
9705#endif
9706 use pm_kind, only: SKG => SK
9707 use pm_container, only: css_type
9708 type(css_type) , intent(inout) , contiguous :: array(:)
9709 procedure(logical(LK)) :: isSorted
9710 type(heapr_type) , intent(in) :: method
9711 end subroutine
9712
9713 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9714
9715 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9716 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9717 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9718
9719 end interface
9720
9721 ! setSortedArrCusComInsertionl
9722
9723 interface setSorted
9724
9725 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9726 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9727 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9728
9729 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9730
9731#if SK5_ENABLED
9732 module subroutine setSortedArrCusComInsertionl_D0_SK5(array, isSorted, method)
9733#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9734 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionl_D0_SK5
9735#endif
9736 use pm_kind, only: SKG => SK5
9737 character(*,SKG) , intent(inout) :: array
9738 procedure(logical(LK)) :: isSorted
9739 type(insertionl_type) , intent(in) :: method
9740 end subroutine
9741#endif
9742
9743#if SK4_ENABLED
9744 module subroutine setSortedArrCusComInsertionl_D0_SK4(array, isSorted, method)
9745#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9746 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionl_D0_SK4
9747#endif
9748 use pm_kind, only: SKG => SK4
9749 character(*,SKG) , intent(inout) :: array
9750 procedure(logical(LK)) :: isSorted
9751 type(insertionl_type) , intent(in) :: method
9752 end subroutine
9753#endif
9754
9755#if SK3_ENABLED
9756 module subroutine setSortedArrCusComInsertionl_D0_SK3(array, isSorted, method)
9757#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9758 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionl_D0_SK3
9759#endif
9760 use pm_kind, only: SKG => SK3
9761 character(*,SKG) , intent(inout) :: array
9762 procedure(logical(LK)) :: isSorted
9763 type(insertionl_type) , intent(in) :: method
9764 end subroutine
9765#endif
9766
9767#if SK2_ENABLED
9768 module subroutine setSortedArrCusComInsertionl_D0_SK2(array, isSorted, method)
9769#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9770 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionl_D0_SK2
9771#endif
9772 use pm_kind, only: SKG => SK2
9773 character(*,SKG) , intent(inout) :: array
9774 procedure(logical(LK)) :: isSorted
9775 type(insertionl_type) , intent(in) :: method
9776 end subroutine
9777#endif
9778
9779#if SK1_ENABLED
9780 module subroutine setSortedArrCusComInsertionl_D0_SK1(array, isSorted, method)
9781#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9782 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionl_D0_SK1
9783#endif
9784 use pm_kind, only: SKG => SK1
9785 character(*,SKG) , intent(inout) :: array
9786 procedure(logical(LK)) :: isSorted
9787 type(insertionl_type) , intent(in) :: method
9788 end subroutine
9789#endif
9790
9791 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9792
9793#if SK5_ENABLED
9794 module subroutine setSortedArrCusComInsertionl_D1_SK5(array, isSorted, method)
9795#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9796 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionl_D1_SK5
9797#endif
9798 use pm_kind, only: SKG => SK5
9799 character(*,SKG) , intent(inout) , contiguous :: array(:)
9800 procedure(logical(LK)) :: isSorted
9801 type(insertionl_type) , intent(in) :: method
9802 end subroutine
9803#endif
9804
9805#if SK4_ENABLED
9806 module subroutine setSortedArrCusComInsertionl_D1_SK4(array, isSorted, method)
9807#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9808 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionl_D1_SK4
9809#endif
9810 use pm_kind, only: SKG => SK4
9811 character(*,SKG) , intent(inout) , contiguous :: array(:)
9812 procedure(logical(LK)) :: isSorted
9813 type(insertionl_type) , intent(in) :: method
9814 end subroutine
9815#endif
9816
9817#if SK3_ENABLED
9818 module subroutine setSortedArrCusComInsertionl_D1_SK3(array, isSorted, method)
9819#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9820 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionl_D1_SK3
9821#endif
9822 use pm_kind, only: SKG => SK3
9823 character(*,SKG) , intent(inout) , contiguous :: array(:)
9824 procedure(logical(LK)) :: isSorted
9825 type(insertionl_type) , intent(in) :: method
9826 end subroutine
9827#endif
9828
9829#if SK2_ENABLED
9830 module subroutine setSortedArrCusComInsertionl_D1_SK2(array, isSorted, method)
9831#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9832 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionl_D1_SK2
9833#endif
9834 use pm_kind, only: SKG => SK2
9835 character(*,SKG) , intent(inout) , contiguous :: array(:)
9836 procedure(logical(LK)) :: isSorted
9837 type(insertionl_type) , intent(in) :: method
9838 end subroutine
9839#endif
9840
9841#if SK1_ENABLED
9842 module subroutine setSortedArrCusComInsertionl_D1_SK1(array, isSorted, method)
9843#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9844 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionl_D1_SK1
9845#endif
9846 use pm_kind, only: SKG => SK1
9847 character(*,SKG) , intent(inout) , contiguous :: array(:)
9848 procedure(logical(LK)) :: isSorted
9849 type(insertionl_type) , intent(in) :: method
9850 end subroutine
9851#endif
9852
9853 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9854
9855#if IK5_ENABLED
9856 module subroutine setSortedArrCusComInsertionl_D1_IK5(array, isSorted, method)
9857#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9858 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionl_D1_IK5
9859#endif
9860 use pm_kind, only: IKG => IK5
9861 integer(IKG) , intent(inout) , contiguous :: array(:)
9862 procedure(logical(LK)) :: isSorted
9863 type(insertionl_type) , intent(in) :: method
9864 end subroutine
9865#endif
9866
9867#if IK4_ENABLED
9868 module subroutine setSortedArrCusComInsertionl_D1_IK4(array, isSorted, method)
9869#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9870 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionl_D1_IK4
9871#endif
9872 use pm_kind, only: IKG => IK4
9873 integer(IKG) , intent(inout) , contiguous :: array(:)
9874 procedure(logical(LK)) :: isSorted
9875 type(insertionl_type) , intent(in) :: method
9876 end subroutine
9877#endif
9878
9879#if IK3_ENABLED
9880 module subroutine setSortedArrCusComInsertionl_D1_IK3(array, isSorted, method)
9881#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9882 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionl_D1_IK3
9883#endif
9884 use pm_kind, only: IKG => IK3
9885 integer(IKG) , intent(inout) , contiguous :: array(:)
9886 procedure(logical(LK)) :: isSorted
9887 type(insertionl_type) , intent(in) :: method
9888 end subroutine
9889#endif
9890
9891#if IK2_ENABLED
9892 module subroutine setSortedArrCusComInsertionl_D1_IK2(array, isSorted, method)
9893#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9894 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionl_D1_IK2
9895#endif
9896 use pm_kind, only: IKG => IK2
9897 integer(IKG) , intent(inout) , contiguous :: array(:)
9898 procedure(logical(LK)) :: isSorted
9899 type(insertionl_type) , intent(in) :: method
9900 end subroutine
9901#endif
9902
9903#if IK1_ENABLED
9904 module subroutine setSortedArrCusComInsertionl_D1_IK1(array, isSorted, method)
9905#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9906 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionl_D1_IK1
9907#endif
9908 use pm_kind, only: IKG => IK1
9909 integer(IKG) , intent(inout) , contiguous :: array(:)
9910 procedure(logical(LK)) :: isSorted
9911 type(insertionl_type) , intent(in) :: method
9912 end subroutine
9913#endif
9914
9915 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9916
9917#if LK5_ENABLED
9918 module subroutine setSortedArrCusComInsertionl_D1_LK5(array, isSorted, method)
9919#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9920 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionl_D1_LK5
9921#endif
9922 use pm_kind, only: LKG => LK5
9923 logical(LKG) , intent(inout) , contiguous :: array(:)
9924 procedure(logical(LK)) :: isSorted
9925 type(insertionl_type) , intent(in) :: method
9926 end subroutine
9927#endif
9928
9929#if LK4_ENABLED
9930 module subroutine setSortedArrCusComInsertionl_D1_LK4(array, isSorted, method)
9931#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9932 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionl_D1_LK4
9933#endif
9934 use pm_kind, only: LKG => LK4
9935 logical(LKG) , intent(inout) , contiguous :: array(:)
9936 procedure(logical(LK)) :: isSorted
9937 type(insertionl_type) , intent(in) :: method
9938 end subroutine
9939#endif
9940
9941#if LK3_ENABLED
9942 module subroutine setSortedArrCusComInsertionl_D1_LK3(array, isSorted, method)
9943#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9944 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionl_D1_LK3
9945#endif
9946 use pm_kind, only: LKG => LK3
9947 logical(LKG) , intent(inout) , contiguous :: array(:)
9948 procedure(logical(LK)) :: isSorted
9949 type(insertionl_type) , intent(in) :: method
9950 end subroutine
9951#endif
9952
9953#if LK2_ENABLED
9954 module subroutine setSortedArrCusComInsertionl_D1_LK2(array, isSorted, method)
9955#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9956 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionl_D1_LK2
9957#endif
9958 use pm_kind, only: LKG => LK2
9959 logical(LKG) , intent(inout) , contiguous :: array(:)
9960 procedure(logical(LK)) :: isSorted
9961 type(insertionl_type) , intent(in) :: method
9962 end subroutine
9963#endif
9964
9965#if LK1_ENABLED
9966 module subroutine setSortedArrCusComInsertionl_D1_LK1(array, isSorted, method)
9967#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9968 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionl_D1_LK1
9969#endif
9970 use pm_kind, only: LKG => LK1
9971 logical(LKG) , intent(inout) , contiguous :: array(:)
9972 procedure(logical(LK)) :: isSorted
9973 type(insertionl_type) , intent(in) :: method
9974 end subroutine
9975#endif
9976
9977 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9978
9979#if CK5_ENABLED
9980 module subroutine setSortedArrCusComInsertionl_D1_CK5(array, isSorted, method)
9981#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9982 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionl_D1_CK5
9983#endif
9984 use pm_kind, only: CKG => CK5
9985 complex(CKG) , intent(inout) , contiguous :: array(:)
9986 procedure(logical(LK)) :: isSorted
9987 type(insertionl_type) , intent(in) :: method
9988 end subroutine
9989#endif
9990
9991#if CK4_ENABLED
9992 module subroutine setSortedArrCusComInsertionl_D1_CK4(array, isSorted, method)
9993#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9994 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionl_D1_CK4
9995#endif
9996 use pm_kind, only: CKG => CK4
9997 complex(CKG) , intent(inout) , contiguous :: array(:)
9998 procedure(logical(LK)) :: isSorted
9999 type(insertionl_type) , intent(in) :: method
10000 end subroutine
10001#endif
10002
10003#if CK3_ENABLED
10004 module subroutine setSortedArrCusComInsertionl_D1_CK3(array, isSorted, method)
10005#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10006 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionl_D1_CK3
10007#endif
10008 use pm_kind, only: CKG => CK3
10009 complex(CKG) , intent(inout) , contiguous :: array(:)
10010 procedure(logical(LK)) :: isSorted
10011 type(insertionl_type) , intent(in) :: method
10012 end subroutine
10013#endif
10014
10015#if CK2_ENABLED
10016 module subroutine setSortedArrCusComInsertionl_D1_CK2(array, isSorted, method)
10017#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10018 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionl_D1_CK2
10019#endif
10020 use pm_kind, only: CKG => CK2
10021 complex(CKG) , intent(inout) , contiguous :: array(:)
10022 procedure(logical(LK)) :: isSorted
10023 type(insertionl_type) , intent(in) :: method
10024 end subroutine
10025#endif
10026
10027#if CK1_ENABLED
10028 module subroutine setSortedArrCusComInsertionl_D1_CK1(array, isSorted, method)
10029#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10030 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionl_D1_CK1
10031#endif
10032 use pm_kind, only: CKG => CK1
10033 complex(CKG) , intent(inout) , contiguous :: array(:)
10034 procedure(logical(LK)) :: isSorted
10035 type(insertionl_type) , intent(in) :: method
10036 end subroutine
10037#endif
10038
10039 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10040
10041#if RK5_ENABLED
10042 module subroutine setSortedArrCusComInsertionl_D1_RK5(array, isSorted, method)
10043#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10044 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionl_D1_RK5
10045#endif
10046 use pm_kind, only: RKG => RK5
10047 real(RKG) , intent(inout) , contiguous :: array(:)
10048 procedure(logical(LK)) :: isSorted
10049 type(insertionl_type) , intent(in) :: method
10050 end subroutine
10051#endif
10052
10053#if RK4_ENABLED
10054 module subroutine setSortedArrCusComInsertionl_D1_RK4(array, isSorted, method)
10055#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10056 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionl_D1_RK4
10057#endif
10058 use pm_kind, only: RKG => RK4
10059 real(RKG) , intent(inout) , contiguous :: array(:)
10060 procedure(logical(LK)) :: isSorted
10061 type(insertionl_type) , intent(in) :: method
10062 end subroutine
10063#endif
10064
10065#if RK3_ENABLED
10066 module subroutine setSortedArrCusComInsertionl_D1_RK3(array, isSorted, method)
10067#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10068 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionl_D1_RK3
10069#endif
10070 use pm_kind, only: RKG => RK3
10071 real(RKG) , intent(inout) , contiguous :: array(:)
10072 procedure(logical(LK)) :: isSorted
10073 type(insertionl_type) , intent(in) :: method
10074 end subroutine
10075#endif
10076
10077#if RK2_ENABLED
10078 module subroutine setSortedArrCusComInsertionl_D1_RK2(array, isSorted, method)
10079#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10080 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionl_D1_RK2
10081#endif
10082 use pm_kind, only: RKG => RK2
10083 real(RKG) , intent(inout) , contiguous :: array(:)
10084 procedure(logical(LK)) :: isSorted
10085 type(insertionl_type) , intent(in) :: method
10086 end subroutine
10087#endif
10088
10089#if RK1_ENABLED
10090 module subroutine setSortedArrCusComInsertionl_D1_RK1(array, isSorted, method)
10091#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10092 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionl_D1_RK1
10093#endif
10094 use pm_kind, only: RKG => RK1
10095 real(RKG) , intent(inout) , contiguous :: array(:)
10096 procedure(logical(LK)) :: isSorted
10097 type(insertionl_type) , intent(in) :: method
10098 end subroutine
10099#endif
10100
10101 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10102
10103#if PDT_ENABLED
10104
10105#if SK5_ENABLED
10106 module subroutine setSortedArrCusComInsertionl_D1_PSSK5(array, isSorted, method)
10107#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10108 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionl_D1_PSSK5
10109#endif
10110 use pm_kind, only: SKG => SK5
10111 use pm_container, only: css_pdt
10112 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
10113 procedure(logical(LK)) :: isSorted
10114 type(insertionl_type) , intent(in) :: method
10115 end subroutine
10116#endif
10117
10118#if SK4_ENABLED
10119 module subroutine setSortedArrCusComInsertionl_D1_PSSK4(array, isSorted, method)
10120#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10121 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionl_D1_PSSK4
10122#endif
10123 use pm_kind, only: SKG => SK4
10124 use pm_container, only: css_pdt
10125 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
10126 procedure(logical(LK)) :: isSorted
10127 type(insertionl_type) , intent(in) :: method
10128 end subroutine
10129#endif
10130
10131#if SK3_ENABLED
10132 module subroutine setSortedArrCusComInsertionl_D1_PSSK3(array, isSorted, method)
10133#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10134 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionl_D1_PSSK3
10135#endif
10136 use pm_kind, only: SKG => SK3
10137 use pm_container, only: css_pdt
10138 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
10139 procedure(logical(LK)) :: isSorted
10140 type(insertionl_type) , intent(in) :: method
10141 end subroutine
10142#endif
10143
10144#if SK2_ENABLED
10145 module subroutine setSortedArrCusComInsertionl_D1_PSSK2(array, isSorted, method)
10146#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10147 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionl_D1_PSSK2
10148#endif
10149 use pm_kind, only: SKG => SK2
10150 use pm_container, only: css_pdt
10151 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
10152 procedure(logical(LK)) :: isSorted
10153 type(insertionl_type) , intent(in) :: method
10154 end subroutine
10155#endif
10156
10157#if SK1_ENABLED
10158 module subroutine setSortedArrCusComInsertionl_D1_PSSK1(array, isSorted, method)
10159#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10160 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionl_D1_PSSK1
10161#endif
10162 use pm_kind, only: SKG => SK1
10163 use pm_container, only: css_pdt
10164 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
10165 procedure(logical(LK)) :: isSorted
10166 type(insertionl_type) , intent(in) :: method
10167 end subroutine
10168#endif
10169
10170#endif
10171!PDT_ENABLED
10172
10173 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10174
10175 module subroutine setSortedArrCusComInsertionl_D1_BSSK(array, isSorted, method)
10176#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10177 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionl_D1_BSSK
10178#endif
10179 use pm_kind, only: SKG => SK
10180 use pm_container, only: css_type
10181 type(css_type) , intent(inout) , contiguous :: array(:)
10182 procedure(logical(LK)) :: isSorted
10183 type(insertionl_type) , intent(in) :: method
10184 end subroutine
10185
10186 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10187
10188 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10189 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10190 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10191
10192 end interface
10193
10194 ! setSortedArrCusComInsertionb
10195
10196 interface setSorted
10197
10198 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10199 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10200 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10201
10202 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10203
10204#if SK5_ENABLED
10205 module subroutine setSortedArrCusComInsertionb_D0_SK5(array, isSorted, method)
10206#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10207 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionb_D0_SK5
10208#endif
10209 use pm_kind, only: SKG => SK5
10210 character(*,SKG) , intent(inout) :: array
10211 procedure(logical(LK)) :: isSorted
10212 type(insertionb_type) , intent(in) :: method
10213 end subroutine
10214#endif
10215
10216#if SK4_ENABLED
10217 module subroutine setSortedArrCusComInsertionb_D0_SK4(array, isSorted, method)
10218#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10219 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionb_D0_SK4
10220#endif
10221 use pm_kind, only: SKG => SK4
10222 character(*,SKG) , intent(inout) :: array
10223 procedure(logical(LK)) :: isSorted
10224 type(insertionb_type) , intent(in) :: method
10225 end subroutine
10226#endif
10227
10228#if SK3_ENABLED
10229 module subroutine setSortedArrCusComInsertionb_D0_SK3(array, isSorted, method)
10230#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10231 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionb_D0_SK3
10232#endif
10233 use pm_kind, only: SKG => SK3
10234 character(*,SKG) , intent(inout) :: array
10235 procedure(logical(LK)) :: isSorted
10236 type(insertionb_type) , intent(in) :: method
10237 end subroutine
10238#endif
10239
10240#if SK2_ENABLED
10241 module subroutine setSortedArrCusComInsertionb_D0_SK2(array, isSorted, method)
10242#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10243 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionb_D0_SK2
10244#endif
10245 use pm_kind, only: SKG => SK2
10246 character(*,SKG) , intent(inout) :: array
10247 procedure(logical(LK)) :: isSorted
10248 type(insertionb_type) , intent(in) :: method
10249 end subroutine
10250#endif
10251
10252#if SK1_ENABLED
10253 module subroutine setSortedArrCusComInsertionb_D0_SK1(array, isSorted, method)
10254#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10255 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionb_D0_SK1
10256#endif
10257 use pm_kind, only: SKG => SK1
10258 character(*,SKG) , intent(inout) :: array
10259 procedure(logical(LK)) :: isSorted
10260 type(insertionb_type) , intent(in) :: method
10261 end subroutine
10262#endif
10263
10264 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10265
10266#if SK5_ENABLED
10267 module subroutine setSortedArrCusComInsertionb_D1_SK5(array, isSorted, method)
10268#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10269 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionb_D1_SK5
10270#endif
10271 use pm_kind, only: SKG => SK5
10272 character(*,SKG) , intent(inout) , contiguous :: array(:)
10273 procedure(logical(LK)) :: isSorted
10274 type(insertionb_type) , intent(in) :: method
10275 end subroutine
10276#endif
10277
10278#if SK4_ENABLED
10279 module subroutine setSortedArrCusComInsertionb_D1_SK4(array, isSorted, method)
10280#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10281 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionb_D1_SK4
10282#endif
10283 use pm_kind, only: SKG => SK4
10284 character(*,SKG) , intent(inout) , contiguous :: array(:)
10285 procedure(logical(LK)) :: isSorted
10286 type(insertionb_type) , intent(in) :: method
10287 end subroutine
10288#endif
10289
10290#if SK3_ENABLED
10291 module subroutine setSortedArrCusComInsertionb_D1_SK3(array, isSorted, method)
10292#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10293 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionb_D1_SK3
10294#endif
10295 use pm_kind, only: SKG => SK3
10296 character(*,SKG) , intent(inout) , contiguous :: array(:)
10297 procedure(logical(LK)) :: isSorted
10298 type(insertionb_type) , intent(in) :: method
10299 end subroutine
10300#endif
10301
10302#if SK2_ENABLED
10303 module subroutine setSortedArrCusComInsertionb_D1_SK2(array, isSorted, method)
10304#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10305 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionb_D1_SK2
10306#endif
10307 use pm_kind, only: SKG => SK2
10308 character(*,SKG) , intent(inout) , contiguous :: array(:)
10309 procedure(logical(LK)) :: isSorted
10310 type(insertionb_type) , intent(in) :: method
10311 end subroutine
10312#endif
10313
10314#if SK1_ENABLED
10315 module subroutine setSortedArrCusComInsertionb_D1_SK1(array, isSorted, method)
10316#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10317 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionb_D1_SK1
10318#endif
10319 use pm_kind, only: SKG => SK1
10320 character(*,SKG) , intent(inout) , contiguous :: array(:)
10321 procedure(logical(LK)) :: isSorted
10322 type(insertionb_type) , intent(in) :: method
10323 end subroutine
10324#endif
10325
10326 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10327
10328#if IK5_ENABLED
10329 module subroutine setSortedArrCusComInsertionb_D1_IK5(array, isSorted, method)
10330#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10331 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionb_D1_IK5
10332#endif
10333 use pm_kind, only: IKG => IK5
10334 integer(IKG) , intent(inout) , contiguous :: array(:)
10335 procedure(logical(LK)) :: isSorted
10336 type(insertionb_type) , intent(in) :: method
10337 end subroutine
10338#endif
10339
10340#if IK4_ENABLED
10341 module subroutine setSortedArrCusComInsertionb_D1_IK4(array, isSorted, method)
10342#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10343 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionb_D1_IK4
10344#endif
10345 use pm_kind, only: IKG => IK4
10346 integer(IKG) , intent(inout) , contiguous :: array(:)
10347 procedure(logical(LK)) :: isSorted
10348 type(insertionb_type) , intent(in) :: method
10349 end subroutine
10350#endif
10351
10352#if IK3_ENABLED
10353 module subroutine setSortedArrCusComInsertionb_D1_IK3(array, isSorted, method)
10354#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10355 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionb_D1_IK3
10356#endif
10357 use pm_kind, only: IKG => IK3
10358 integer(IKG) , intent(inout) , contiguous :: array(:)
10359 procedure(logical(LK)) :: isSorted
10360 type(insertionb_type) , intent(in) :: method
10361 end subroutine
10362#endif
10363
10364#if IK2_ENABLED
10365 module subroutine setSortedArrCusComInsertionb_D1_IK2(array, isSorted, method)
10366#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10367 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionb_D1_IK2
10368#endif
10369 use pm_kind, only: IKG => IK2
10370 integer(IKG) , intent(inout) , contiguous :: array(:)
10371 procedure(logical(LK)) :: isSorted
10372 type(insertionb_type) , intent(in) :: method
10373 end subroutine
10374#endif
10375
10376#if IK1_ENABLED
10377 module subroutine setSortedArrCusComInsertionb_D1_IK1(array, isSorted, method)
10378#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10379 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionb_D1_IK1
10380#endif
10381 use pm_kind, only: IKG => IK1
10382 integer(IKG) , intent(inout) , contiguous :: array(:)
10383 procedure(logical(LK)) :: isSorted
10384 type(insertionb_type) , intent(in) :: method
10385 end subroutine
10386#endif
10387
10388 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10389
10390#if LK5_ENABLED
10391 module subroutine setSortedArrCusComInsertionb_D1_LK5(array, isSorted, method)
10392#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10393 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionb_D1_LK5
10394#endif
10395 use pm_kind, only: LKG => LK5
10396 logical(LKG) , intent(inout) , contiguous :: array(:)
10397 procedure(logical(LK)) :: isSorted
10398 type(insertionb_type) , intent(in) :: method
10399 end subroutine
10400#endif
10401
10402#if LK4_ENABLED
10403 module subroutine setSortedArrCusComInsertionb_D1_LK4(array, isSorted, method)
10404#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10405 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionb_D1_LK4
10406#endif
10407 use pm_kind, only: LKG => LK4
10408 logical(LKG) , intent(inout) , contiguous :: array(:)
10409 procedure(logical(LK)) :: isSorted
10410 type(insertionb_type) , intent(in) :: method
10411 end subroutine
10412#endif
10413
10414#if LK3_ENABLED
10415 module subroutine setSortedArrCusComInsertionb_D1_LK3(array, isSorted, method)
10416#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10417 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionb_D1_LK3
10418#endif
10419 use pm_kind, only: LKG => LK3
10420 logical(LKG) , intent(inout) , contiguous :: array(:)
10421 procedure(logical(LK)) :: isSorted
10422 type(insertionb_type) , intent(in) :: method
10423 end subroutine
10424#endif
10425
10426#if LK2_ENABLED
10427 module subroutine setSortedArrCusComInsertionb_D1_LK2(array, isSorted, method)
10428#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10429 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionb_D1_LK2
10430#endif
10431 use pm_kind, only: LKG => LK2
10432 logical(LKG) , intent(inout) , contiguous :: array(:)
10433 procedure(logical(LK)) :: isSorted
10434 type(insertionb_type) , intent(in) :: method
10435 end subroutine
10436#endif
10437
10438#if LK1_ENABLED
10439 module subroutine setSortedArrCusComInsertionb_D1_LK1(array, isSorted, method)
10440#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10441 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionb_D1_LK1
10442#endif
10443 use pm_kind, only: LKG => LK1
10444 logical(LKG) , intent(inout) , contiguous :: array(:)
10445 procedure(logical(LK)) :: isSorted
10446 type(insertionb_type) , intent(in) :: method
10447 end subroutine
10448#endif
10449
10450 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10451
10452#if CK5_ENABLED
10453 module subroutine setSortedArrCusComInsertionb_D1_CK5(array, isSorted, method)
10454#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10455 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionb_D1_CK5
10456#endif
10457 use pm_kind, only: CKG => CK5
10458 complex(CKG) , intent(inout) , contiguous :: array(:)
10459 procedure(logical(LK)) :: isSorted
10460 type(insertionb_type) , intent(in) :: method
10461 end subroutine
10462#endif
10463
10464#if CK4_ENABLED
10465 module subroutine setSortedArrCusComInsertionb_D1_CK4(array, isSorted, method)
10466#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10467 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionb_D1_CK4
10468#endif
10469 use pm_kind, only: CKG => CK4
10470 complex(CKG) , intent(inout) , contiguous :: array(:)
10471 procedure(logical(LK)) :: isSorted
10472 type(insertionb_type) , intent(in) :: method
10473 end subroutine
10474#endif
10475
10476#if CK3_ENABLED
10477 module subroutine setSortedArrCusComInsertionb_D1_CK3(array, isSorted, method)
10478#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10479 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionb_D1_CK3
10480#endif
10481 use pm_kind, only: CKG => CK3
10482 complex(CKG) , intent(inout) , contiguous :: array(:)
10483 procedure(logical(LK)) :: isSorted
10484 type(insertionb_type) , intent(in) :: method
10485 end subroutine
10486#endif
10487
10488#if CK2_ENABLED
10489 module subroutine setSortedArrCusComInsertionb_D1_CK2(array, isSorted, method)
10490#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10491 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionb_D1_CK2
10492#endif
10493 use pm_kind, only: CKG => CK2
10494 complex(CKG) , intent(inout) , contiguous :: array(:)
10495 procedure(logical(LK)) :: isSorted
10496 type(insertionb_type) , intent(in) :: method
10497 end subroutine
10498#endif
10499
10500#if CK1_ENABLED
10501 module subroutine setSortedArrCusComInsertionb_D1_CK1(array, isSorted, method)
10502#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10503 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionb_D1_CK1
10504#endif
10505 use pm_kind, only: CKG => CK1
10506 complex(CKG) , intent(inout) , contiguous :: array(:)
10507 procedure(logical(LK)) :: isSorted
10508 type(insertionb_type) , intent(in) :: method
10509 end subroutine
10510#endif
10511
10512 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10513
10514#if RK5_ENABLED
10515 module subroutine setSortedArrCusComInsertionb_D1_RK5(array, isSorted, method)
10516#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10517 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionb_D1_RK5
10518#endif
10519 use pm_kind, only: RKG => RK5
10520 real(RKG) , intent(inout) , contiguous :: array(:)
10521 procedure(logical(LK)) :: isSorted
10522 type(insertionb_type) , intent(in) :: method
10523 end subroutine
10524#endif
10525
10526#if RK4_ENABLED
10527 module subroutine setSortedArrCusComInsertionb_D1_RK4(array, isSorted, method)
10528#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10529 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionb_D1_RK4
10530#endif
10531 use pm_kind, only: RKG => RK4
10532 real(RKG) , intent(inout) , contiguous :: array(:)
10533 procedure(logical(LK)) :: isSorted
10534 type(insertionb_type) , intent(in) :: method
10535 end subroutine
10536#endif
10537
10538#if RK3_ENABLED
10539 module subroutine setSortedArrCusComInsertionb_D1_RK3(array, isSorted, method)
10540#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10541 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionb_D1_RK3
10542#endif
10543 use pm_kind, only: RKG => RK3
10544 real(RKG) , intent(inout) , contiguous :: array(:)
10545 procedure(logical(LK)) :: isSorted
10546 type(insertionb_type) , intent(in) :: method
10547 end subroutine
10548#endif
10549
10550#if RK2_ENABLED
10551 module subroutine setSortedArrCusComInsertionb_D1_RK2(array, isSorted, method)
10552#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10553 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionb_D1_RK2
10554#endif
10555 use pm_kind, only: RKG => RK2
10556 real(RKG) , intent(inout) , contiguous :: array(:)
10557 procedure(logical(LK)) :: isSorted
10558 type(insertionb_type) , intent(in) :: method
10559 end subroutine
10560#endif
10561
10562#if RK1_ENABLED
10563 module subroutine setSortedArrCusComInsertionb_D1_RK1(array, isSorted, method)
10564#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10565 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionb_D1_RK1
10566#endif
10567 use pm_kind, only: RKG => RK1
10568 real(RKG) , intent(inout) , contiguous :: array(:)
10569 procedure(logical(LK)) :: isSorted
10570 type(insertionb_type) , intent(in) :: method
10571 end subroutine
10572#endif
10573
10574 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10575
10576#if PDT_ENABLED
10577
10578#if SK5_ENABLED
10579 module subroutine setSortedArrCusComInsertionb_D1_PSSK5(array, isSorted, method)
10580#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10581 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionb_D1_PSSK5
10582#endif
10583 use pm_kind, only: SKG => SK5
10584 use pm_container, only: css_pdt
10585 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
10586 procedure(logical(LK)) :: isSorted
10587 type(insertionb_type) , intent(in) :: method
10588 end subroutine
10589#endif
10590
10591#if SK4_ENABLED
10592 module subroutine setSortedArrCusComInsertionb_D1_PSSK4(array, isSorted, method)
10593#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10594 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionb_D1_PSSK4
10595#endif
10596 use pm_kind, only: SKG => SK4
10597 use pm_container, only: css_pdt
10598 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
10599 procedure(logical(LK)) :: isSorted
10600 type(insertionb_type) , intent(in) :: method
10601 end subroutine
10602#endif
10603
10604#if SK3_ENABLED
10605 module subroutine setSortedArrCusComInsertionb_D1_PSSK3(array, isSorted, method)
10606#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10607 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionb_D1_PSSK3
10608#endif
10609 use pm_kind, only: SKG => SK3
10610 use pm_container, only: css_pdt
10611 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
10612 procedure(logical(LK)) :: isSorted
10613 type(insertionb_type) , intent(in) :: method
10614 end subroutine
10615#endif
10616
10617#if SK2_ENABLED
10618 module subroutine setSortedArrCusComInsertionb_D1_PSSK2(array, isSorted, method)
10619#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10620 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionb_D1_PSSK2
10621#endif
10622 use pm_kind, only: SKG => SK2
10623 use pm_container, only: css_pdt
10624 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
10625 procedure(logical(LK)) :: isSorted
10626 type(insertionb_type) , intent(in) :: method
10627 end subroutine
10628#endif
10629
10630#if SK1_ENABLED
10631 module subroutine setSortedArrCusComInsertionb_D1_PSSK1(array, isSorted, method)
10632#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10633 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionb_D1_PSSK1
10634#endif
10635 use pm_kind, only: SKG => SK1
10636 use pm_container, only: css_pdt
10637 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
10638 procedure(logical(LK)) :: isSorted
10639 type(insertionb_type) , intent(in) :: method
10640 end subroutine
10641#endif
10642
10643#endif
10644!PDT_ENABLED
10645
10646 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10647
10648 module subroutine setSortedArrCusComInsertionb_D1_BSSK(array, isSorted, method)
10649#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10650 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComInsertionb_D1_BSSK
10651#endif
10652 use pm_kind, only: SKG => SK
10653 use pm_container, only: css_type
10654 type(css_type) , intent(inout) , contiguous :: array(:)
10655 procedure(logical(LK)) :: isSorted
10656 type(insertionb_type) , intent(in) :: method
10657 end subroutine
10658
10659 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10660
10661 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10662 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10663 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10664
10665 end interface
10666
10667 ! setSortedArrCusComMerger
10668
10669 interface setSorted
10670
10671 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10672 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10673 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10674
10675 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10676
10677#if SK5_ENABLED
10678 recursive module subroutine setSortedArrCusComMerger_D0_SK5(array, isSorted, method)
10679#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10680 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComMerger_D0_SK5
10681#endif
10682 use pm_kind, only: SKG => SK5
10683 character(*,SKG) , intent(inout) :: array
10684 procedure(logical(LK)) :: isSorted
10685 type(merger_type) , intent(in) :: method
10686 end subroutine
10687#endif
10688
10689#if SK4_ENABLED
10690 recursive module subroutine setSortedArrCusComMerger_D0_SK4(array, isSorted, method)
10691#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10692 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComMerger_D0_SK4
10693#endif
10694 use pm_kind, only: SKG => SK4
10695 character(*,SKG) , intent(inout) :: array
10696 procedure(logical(LK)) :: isSorted
10697 type(merger_type) , intent(in) :: method
10698 end subroutine
10699#endif
10700
10701#if SK3_ENABLED
10702 recursive module subroutine setSortedArrCusComMerger_D0_SK3(array, isSorted, method)
10703#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10704 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComMerger_D0_SK3
10705#endif
10706 use pm_kind, only: SKG => SK3
10707 character(*,SKG) , intent(inout) :: array
10708 procedure(logical(LK)) :: isSorted
10709 type(merger_type) , intent(in) :: method
10710 end subroutine
10711#endif
10712
10713#if SK2_ENABLED
10714 recursive module subroutine setSortedArrCusComMerger_D0_SK2(array, isSorted, method)
10715#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10716 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComMerger_D0_SK2
10717#endif
10718 use pm_kind, only: SKG => SK2
10719 character(*,SKG) , intent(inout) :: array
10720 procedure(logical(LK)) :: isSorted
10721 type(merger_type) , intent(in) :: method
10722 end subroutine
10723#endif
10724
10725#if SK1_ENABLED
10726 recursive module subroutine setSortedArrCusComMerger_D0_SK1(array, isSorted, method)
10727#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10728 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComMerger_D0_SK1
10729#endif
10730 use pm_kind, only: SKG => SK1
10731 character(*,SKG) , intent(inout) :: array
10732 procedure(logical(LK)) :: isSorted
10733 type(merger_type) , intent(in) :: method
10734 end subroutine
10735#endif
10736
10737 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10738
10739#if SK5_ENABLED
10740 recursive module subroutine setSortedArrCusComMerger_D1_SK5(array, isSorted, method)
10741#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10742 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComMerger_D1_SK5
10743#endif
10744 use pm_kind, only: SKG => SK5
10745 character(*,SKG) , intent(inout) , contiguous :: array(:)
10746 procedure(logical(LK)) :: isSorted
10747 type(merger_type) , intent(in) :: method
10748 end subroutine
10749#endif
10750
10751#if SK4_ENABLED
10752 recursive module subroutine setSortedArrCusComMerger_D1_SK4(array, isSorted, method)
10753#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10754 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComMerger_D1_SK4
10755#endif
10756 use pm_kind, only: SKG => SK4
10757 character(*,SKG) , intent(inout) , contiguous :: array(:)
10758 procedure(logical(LK)) :: isSorted
10759 type(merger_type) , intent(in) :: method
10760 end subroutine
10761#endif
10762
10763#if SK3_ENABLED
10764 recursive module subroutine setSortedArrCusComMerger_D1_SK3(array, isSorted, method)
10765#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10766 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComMerger_D1_SK3
10767#endif
10768 use pm_kind, only: SKG => SK3
10769 character(*,SKG) , intent(inout) , contiguous :: array(:)
10770 procedure(logical(LK)) :: isSorted
10771 type(merger_type) , intent(in) :: method
10772 end subroutine
10773#endif
10774
10775#if SK2_ENABLED
10776 recursive module subroutine setSortedArrCusComMerger_D1_SK2(array, isSorted, method)
10777#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10778 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComMerger_D1_SK2
10779#endif
10780 use pm_kind, only: SKG => SK2
10781 character(*,SKG) , intent(inout) , contiguous :: array(:)
10782 procedure(logical(LK)) :: isSorted
10783 type(merger_type) , intent(in) :: method
10784 end subroutine
10785#endif
10786
10787#if SK1_ENABLED
10788 recursive module subroutine setSortedArrCusComMerger_D1_SK1(array, isSorted, method)
10789#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10790 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComMerger_D1_SK1
10791#endif
10792 use pm_kind, only: SKG => SK1
10793 character(*,SKG) , intent(inout) , contiguous :: array(:)
10794 procedure(logical(LK)) :: isSorted
10795 type(merger_type) , intent(in) :: method
10796 end subroutine
10797#endif
10798
10799 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10800
10801#if IK5_ENABLED
10802 recursive module subroutine setSortedArrCusComMerger_D1_IK5(array, isSorted, method)
10803#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10804 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComMerger_D1_IK5
10805#endif
10806 use pm_kind, only: IKG => IK5
10807 integer(IKG) , intent(inout) , contiguous :: array(:)
10808 procedure(logical(LK)) :: isSorted
10809 type(merger_type) , intent(in) :: method
10810 end subroutine
10811#endif
10812
10813#if IK4_ENABLED
10814 recursive module subroutine setSortedArrCusComMerger_D1_IK4(array, isSorted, method)
10815#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10816 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComMerger_D1_IK4
10817#endif
10818 use pm_kind, only: IKG => IK4
10819 integer(IKG) , intent(inout) , contiguous :: array(:)
10820 procedure(logical(LK)) :: isSorted
10821 type(merger_type) , intent(in) :: method
10822 end subroutine
10823#endif
10824
10825#if IK3_ENABLED
10826 recursive module subroutine setSortedArrCusComMerger_D1_IK3(array, isSorted, method)
10827#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10828 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComMerger_D1_IK3
10829#endif
10830 use pm_kind, only: IKG => IK3
10831 integer(IKG) , intent(inout) , contiguous :: array(:)
10832 procedure(logical(LK)) :: isSorted
10833 type(merger_type) , intent(in) :: method
10834 end subroutine
10835#endif
10836
10837#if IK2_ENABLED
10838 recursive module subroutine setSortedArrCusComMerger_D1_IK2(array, isSorted, method)
10839#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10840 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComMerger_D1_IK2
10841#endif
10842 use pm_kind, only: IKG => IK2
10843 integer(IKG) , intent(inout) , contiguous :: array(:)
10844 procedure(logical(LK)) :: isSorted
10845 type(merger_type) , intent(in) :: method
10846 end subroutine
10847#endif
10848
10849#if IK1_ENABLED
10850 recursive module subroutine setSortedArrCusComMerger_D1_IK1(array, isSorted, method)
10851#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10852 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComMerger_D1_IK1
10853#endif
10854 use pm_kind, only: IKG => IK1
10855 integer(IKG) , intent(inout) , contiguous :: array(:)
10856 procedure(logical(LK)) :: isSorted
10857 type(merger_type) , intent(in) :: method
10858 end subroutine
10859#endif
10860
10861 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10862
10863#if LK5_ENABLED
10864 recursive module subroutine setSortedArrCusComMerger_D1_LK5(array, isSorted, method)
10865#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10866 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComMerger_D1_LK5
10867#endif
10868 use pm_kind, only: LKG => LK5
10869 logical(LKG) , intent(inout) , contiguous :: array(:)
10870 procedure(logical(LK)) :: isSorted
10871 type(merger_type) , intent(in) :: method
10872 end subroutine
10873#endif
10874
10875#if LK4_ENABLED
10876 recursive module subroutine setSortedArrCusComMerger_D1_LK4(array, isSorted, method)
10877#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10878 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComMerger_D1_LK4
10879#endif
10880 use pm_kind, only: LKG => LK4
10881 logical(LKG) , intent(inout) , contiguous :: array(:)
10882 procedure(logical(LK)) :: isSorted
10883 type(merger_type) , intent(in) :: method
10884 end subroutine
10885#endif
10886
10887#if LK3_ENABLED
10888 recursive module subroutine setSortedArrCusComMerger_D1_LK3(array, isSorted, method)
10889#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10890 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComMerger_D1_LK3
10891#endif
10892 use pm_kind, only: LKG => LK3
10893 logical(LKG) , intent(inout) , contiguous :: array(:)
10894 procedure(logical(LK)) :: isSorted
10895 type(merger_type) , intent(in) :: method
10896 end subroutine
10897#endif
10898
10899#if LK2_ENABLED
10900 recursive module subroutine setSortedArrCusComMerger_D1_LK2(array, isSorted, method)
10901#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10902 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComMerger_D1_LK2
10903#endif
10904 use pm_kind, only: LKG => LK2
10905 logical(LKG) , intent(inout) , contiguous :: array(:)
10906 procedure(logical(LK)) :: isSorted
10907 type(merger_type) , intent(in) :: method
10908 end subroutine
10909#endif
10910
10911#if LK1_ENABLED
10912 recursive module subroutine setSortedArrCusComMerger_D1_LK1(array, isSorted, method)
10913#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10914 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComMerger_D1_LK1
10915#endif
10916 use pm_kind, only: LKG => LK1
10917 logical(LKG) , intent(inout) , contiguous :: array(:)
10918 procedure(logical(LK)) :: isSorted
10919 type(merger_type) , intent(in) :: method
10920 end subroutine
10921#endif
10922
10923 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10924
10925#if CK5_ENABLED
10926 recursive module subroutine setSortedArrCusComMerger_D1_CK5(array, isSorted, method)
10927#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10928 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComMerger_D1_CK5
10929#endif
10930 use pm_kind, only: CKG => CK5
10931 complex(CKG) , intent(inout) , contiguous :: array(:)
10932 procedure(logical(LK)) :: isSorted
10933 type(merger_type) , intent(in) :: method
10934 end subroutine
10935#endif
10936
10937#if CK4_ENABLED
10938 recursive module subroutine setSortedArrCusComMerger_D1_CK4(array, isSorted, method)
10939#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10940 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComMerger_D1_CK4
10941#endif
10942 use pm_kind, only: CKG => CK4
10943 complex(CKG) , intent(inout) , contiguous :: array(:)
10944 procedure(logical(LK)) :: isSorted
10945 type(merger_type) , intent(in) :: method
10946 end subroutine
10947#endif
10948
10949#if CK3_ENABLED
10950 recursive module subroutine setSortedArrCusComMerger_D1_CK3(array, isSorted, method)
10951#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10952 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComMerger_D1_CK3
10953#endif
10954 use pm_kind, only: CKG => CK3
10955 complex(CKG) , intent(inout) , contiguous :: array(:)
10956 procedure(logical(LK)) :: isSorted
10957 type(merger_type) , intent(in) :: method
10958 end subroutine
10959#endif
10960
10961#if CK2_ENABLED
10962 recursive module subroutine setSortedArrCusComMerger_D1_CK2(array, isSorted, method)
10963#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10964 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComMerger_D1_CK2
10965#endif
10966 use pm_kind, only: CKG => CK2
10967 complex(CKG) , intent(inout) , contiguous :: array(:)
10968 procedure(logical(LK)) :: isSorted
10969 type(merger_type) , intent(in) :: method
10970 end subroutine
10971#endif
10972
10973#if CK1_ENABLED
10974 recursive module subroutine setSortedArrCusComMerger_D1_CK1(array, isSorted, method)
10975#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10976 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComMerger_D1_CK1
10977#endif
10978 use pm_kind, only: CKG => CK1
10979 complex(CKG) , intent(inout) , contiguous :: array(:)
10980 procedure(logical(LK)) :: isSorted
10981 type(merger_type) , intent(in) :: method
10982 end subroutine
10983#endif
10984
10985 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10986
10987#if RK5_ENABLED
10988 recursive module subroutine setSortedArrCusComMerger_D1_RK5(array, isSorted, method)
10989#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10990 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComMerger_D1_RK5
10991#endif
10992 use pm_kind, only: RKG => RK5
10993 real(RKG) , intent(inout) , contiguous :: array(:)
10994 procedure(logical(LK)) :: isSorted
10995 type(merger_type) , intent(in) :: method
10996 end subroutine
10997#endif
10998
10999#if RK4_ENABLED
11000 recursive module subroutine setSortedArrCusComMerger_D1_RK4(array, isSorted, method)
11001#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11002 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComMerger_D1_RK4
11003#endif
11004 use pm_kind, only: RKG => RK4
11005 real(RKG) , intent(inout) , contiguous :: array(:)
11006 procedure(logical(LK)) :: isSorted
11007 type(merger_type) , intent(in) :: method
11008 end subroutine
11009#endif
11010
11011#if RK3_ENABLED
11012 recursive module subroutine setSortedArrCusComMerger_D1_RK3(array, isSorted, method)
11013#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11014 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComMerger_D1_RK3
11015#endif
11016 use pm_kind, only: RKG => RK3
11017 real(RKG) , intent(inout) , contiguous :: array(:)
11018 procedure(logical(LK)) :: isSorted
11019 type(merger_type) , intent(in) :: method
11020 end subroutine
11021#endif
11022
11023#if RK2_ENABLED
11024 recursive module subroutine setSortedArrCusComMerger_D1_RK2(array, isSorted, method)
11025#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11026 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComMerger_D1_RK2
11027#endif
11028 use pm_kind, only: RKG => RK2
11029 real(RKG) , intent(inout) , contiguous :: array(:)
11030 procedure(logical(LK)) :: isSorted
11031 type(merger_type) , intent(in) :: method
11032 end subroutine
11033#endif
11034
11035#if RK1_ENABLED
11036 recursive module subroutine setSortedArrCusComMerger_D1_RK1(array, isSorted, method)
11037#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11038 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComMerger_D1_RK1
11039#endif
11040 use pm_kind, only: RKG => RK1
11041 real(RKG) , intent(inout) , contiguous :: array(:)
11042 procedure(logical(LK)) :: isSorted
11043 type(merger_type) , intent(in) :: method
11044 end subroutine
11045#endif
11046
11047 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11048
11049#if PDT_ENABLED
11050
11051#if SK5_ENABLED
11052 recursive module subroutine setSortedArrCusComMerger_D1_PSSK5(array, isSorted, method)
11053#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11054 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComMerger_D1_PSSK5
11055#endif
11056 use pm_kind, only: SKG => SK5
11057 use pm_container, only: css_pdt
11058 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
11059 procedure(logical(LK)) :: isSorted
11060 type(merger_type) , intent(in) :: method
11061 end subroutine
11062#endif
11063
11064#if SK4_ENABLED
11065 recursive module subroutine setSortedArrCusComMerger_D1_PSSK4(array, isSorted, method)
11066#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11067 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComMerger_D1_PSSK4
11068#endif
11069 use pm_kind, only: SKG => SK4
11070 use pm_container, only: css_pdt
11071 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
11072 procedure(logical(LK)) :: isSorted
11073 type(merger_type) , intent(in) :: method
11074 end subroutine
11075#endif
11076
11077#if SK3_ENABLED
11078 recursive module subroutine setSortedArrCusComMerger_D1_PSSK3(array, isSorted, method)
11079#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11080 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComMerger_D1_PSSK3
11081#endif
11082 use pm_kind, only: SKG => SK3
11083 use pm_container, only: css_pdt
11084 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
11085 procedure(logical(LK)) :: isSorted
11086 type(merger_type) , intent(in) :: method
11087 end subroutine
11088#endif
11089
11090#if SK2_ENABLED
11091 recursive module subroutine setSortedArrCusComMerger_D1_PSSK2(array, isSorted, method)
11092#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11093 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComMerger_D1_PSSK2
11094#endif
11095 use pm_kind, only: SKG => SK2
11096 use pm_container, only: css_pdt
11097 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
11098 procedure(logical(LK)) :: isSorted
11099 type(merger_type) , intent(in) :: method
11100 end subroutine
11101#endif
11102
11103#if SK1_ENABLED
11104 recursive module subroutine setSortedArrCusComMerger_D1_PSSK1(array, isSorted, method)
11105#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11106 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComMerger_D1_PSSK1
11107#endif
11108 use pm_kind, only: SKG => SK1
11109 use pm_container, only: css_pdt
11110 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
11111 procedure(logical(LK)) :: isSorted
11112 type(merger_type) , intent(in) :: method
11113 end subroutine
11114#endif
11115
11116#endif
11117!PDT_ENABLED
11118
11119 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11120
11121 recursive module subroutine setSortedArrCusComMerger_D1_BSSK(array, isSorted, method)
11122#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11123 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComMerger_D1_BSSK
11124#endif
11125 use pm_kind, only: SKG => SK
11126 use pm_container, only: css_type
11127 type(css_type) , intent(inout) , contiguous :: array(:)
11128 procedure(logical(LK)) :: isSorted
11129 type(merger_type) , intent(in) :: method
11130 end subroutine
11131
11132 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11133
11134 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11135 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11136 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11137
11138 end interface
11139
11140 ! setSortedArrCusComSelection
11141
11142 interface setSorted
11143
11144 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11145 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11146 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11147
11148 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11149
11150#if SK5_ENABLED
11151 module subroutine setSortedArrCusComSelection_D0_SK5(array, isSorted, method)
11152#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11153 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComSelection_D0_SK5
11154#endif
11155 use pm_kind, only: SKG => SK5
11156 character(*,SKG) , intent(inout) :: array
11157 procedure(logical(LK)) :: isSorted
11158 type(selection_type) , intent(in) :: method
11159 end subroutine
11160#endif
11161
11162#if SK4_ENABLED
11163 module subroutine setSortedArrCusComSelection_D0_SK4(array, isSorted, method)
11164#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11165 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComSelection_D0_SK4
11166#endif
11167 use pm_kind, only: SKG => SK4
11168 character(*,SKG) , intent(inout) :: array
11169 procedure(logical(LK)) :: isSorted
11170 type(selection_type) , intent(in) :: method
11171 end subroutine
11172#endif
11173
11174#if SK3_ENABLED
11175 module subroutine setSortedArrCusComSelection_D0_SK3(array, isSorted, method)
11176#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11177 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComSelection_D0_SK3
11178#endif
11179 use pm_kind, only: SKG => SK3
11180 character(*,SKG) , intent(inout) :: array
11181 procedure(logical(LK)) :: isSorted
11182 type(selection_type) , intent(in) :: method
11183 end subroutine
11184#endif
11185
11186#if SK2_ENABLED
11187 module subroutine setSortedArrCusComSelection_D0_SK2(array, isSorted, method)
11188#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11189 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComSelection_D0_SK2
11190#endif
11191 use pm_kind, only: SKG => SK2
11192 character(*,SKG) , intent(inout) :: array
11193 procedure(logical(LK)) :: isSorted
11194 type(selection_type) , intent(in) :: method
11195 end subroutine
11196#endif
11197
11198#if SK1_ENABLED
11199 module subroutine setSortedArrCusComSelection_D0_SK1(array, isSorted, method)
11200#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11201 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComSelection_D0_SK1
11202#endif
11203 use pm_kind, only: SKG => SK1
11204 character(*,SKG) , intent(inout) :: array
11205 procedure(logical(LK)) :: isSorted
11206 type(selection_type) , intent(in) :: method
11207 end subroutine
11208#endif
11209
11210 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11211
11212#if SK5_ENABLED
11213 module subroutine setSortedArrCusComSelection_D1_SK5(array, isSorted, method)
11214#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11215 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComSelection_D1_SK5
11216#endif
11217 use pm_kind, only: SKG => SK5
11218 character(*,SKG) , intent(inout) , contiguous :: array(:)
11219 procedure(logical(LK)) :: isSorted
11220 type(selection_type) , intent(in) :: method
11221 end subroutine
11222#endif
11223
11224#if SK4_ENABLED
11225 module subroutine setSortedArrCusComSelection_D1_SK4(array, isSorted, method)
11226#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11227 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComSelection_D1_SK4
11228#endif
11229 use pm_kind, only: SKG => SK4
11230 character(*,SKG) , intent(inout) , contiguous :: array(:)
11231 procedure(logical(LK)) :: isSorted
11232 type(selection_type) , intent(in) :: method
11233 end subroutine
11234#endif
11235
11236#if SK3_ENABLED
11237 module subroutine setSortedArrCusComSelection_D1_SK3(array, isSorted, method)
11238#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11239 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComSelection_D1_SK3
11240#endif
11241 use pm_kind, only: SKG => SK3
11242 character(*,SKG) , intent(inout) , contiguous :: array(:)
11243 procedure(logical(LK)) :: isSorted
11244 type(selection_type) , intent(in) :: method
11245 end subroutine
11246#endif
11247
11248#if SK2_ENABLED
11249 module subroutine setSortedArrCusComSelection_D1_SK2(array, isSorted, method)
11250#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11251 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComSelection_D1_SK2
11252#endif
11253 use pm_kind, only: SKG => SK2
11254 character(*,SKG) , intent(inout) , contiguous :: array(:)
11255 procedure(logical(LK)) :: isSorted
11256 type(selection_type) , intent(in) :: method
11257 end subroutine
11258#endif
11259
11260#if SK1_ENABLED
11261 module subroutine setSortedArrCusComSelection_D1_SK1(array, isSorted, method)
11262#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11263 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComSelection_D1_SK1
11264#endif
11265 use pm_kind, only: SKG => SK1
11266 character(*,SKG) , intent(inout) , contiguous :: array(:)
11267 procedure(logical(LK)) :: isSorted
11268 type(selection_type) , intent(in) :: method
11269 end subroutine
11270#endif
11271
11272 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11273
11274#if IK5_ENABLED
11275 module subroutine setSortedArrCusComSelection_D1_IK5(array, isSorted, method)
11276#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11277 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComSelection_D1_IK5
11278#endif
11279 use pm_kind, only: IKG => IK5
11280 integer(IKG) , intent(inout) , contiguous :: array(:)
11281 procedure(logical(LK)) :: isSorted
11282 type(selection_type) , intent(in) :: method
11283 end subroutine
11284#endif
11285
11286#if IK4_ENABLED
11287 module subroutine setSortedArrCusComSelection_D1_IK4(array, isSorted, method)
11288#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11289 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComSelection_D1_IK4
11290#endif
11291 use pm_kind, only: IKG => IK4
11292 integer(IKG) , intent(inout) , contiguous :: array(:)
11293 procedure(logical(LK)) :: isSorted
11294 type(selection_type) , intent(in) :: method
11295 end subroutine
11296#endif
11297
11298#if IK3_ENABLED
11299 module subroutine setSortedArrCusComSelection_D1_IK3(array, isSorted, method)
11300#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11301 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComSelection_D1_IK3
11302#endif
11303 use pm_kind, only: IKG => IK3
11304 integer(IKG) , intent(inout) , contiguous :: array(:)
11305 procedure(logical(LK)) :: isSorted
11306 type(selection_type) , intent(in) :: method
11307 end subroutine
11308#endif
11309
11310#if IK2_ENABLED
11311 module subroutine setSortedArrCusComSelection_D1_IK2(array, isSorted, method)
11312#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11313 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComSelection_D1_IK2
11314#endif
11315 use pm_kind, only: IKG => IK2
11316 integer(IKG) , intent(inout) , contiguous :: array(:)
11317 procedure(logical(LK)) :: isSorted
11318 type(selection_type) , intent(in) :: method
11319 end subroutine
11320#endif
11321
11322#if IK1_ENABLED
11323 module subroutine setSortedArrCusComSelection_D1_IK1(array, isSorted, method)
11324#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11325 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComSelection_D1_IK1
11326#endif
11327 use pm_kind, only: IKG => IK1
11328 integer(IKG) , intent(inout) , contiguous :: array(:)
11329 procedure(logical(LK)) :: isSorted
11330 type(selection_type) , intent(in) :: method
11331 end subroutine
11332#endif
11333
11334 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11335
11336#if LK5_ENABLED
11337 module subroutine setSortedArrCusComSelection_D1_LK5(array, isSorted, method)
11338#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11339 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComSelection_D1_LK5
11340#endif
11341 use pm_kind, only: LKG => LK5
11342 logical(LKG) , intent(inout) , contiguous :: array(:)
11343 procedure(logical(LK)) :: isSorted
11344 type(selection_type) , intent(in) :: method
11345 end subroutine
11346#endif
11347
11348#if LK4_ENABLED
11349 module subroutine setSortedArrCusComSelection_D1_LK4(array, isSorted, method)
11350#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11351 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComSelection_D1_LK4
11352#endif
11353 use pm_kind, only: LKG => LK4
11354 logical(LKG) , intent(inout) , contiguous :: array(:)
11355 procedure(logical(LK)) :: isSorted
11356 type(selection_type) , intent(in) :: method
11357 end subroutine
11358#endif
11359
11360#if LK3_ENABLED
11361 module subroutine setSortedArrCusComSelection_D1_LK3(array, isSorted, method)
11362#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11363 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComSelection_D1_LK3
11364#endif
11365 use pm_kind, only: LKG => LK3
11366 logical(LKG) , intent(inout) , contiguous :: array(:)
11367 procedure(logical(LK)) :: isSorted
11368 type(selection_type) , intent(in) :: method
11369 end subroutine
11370#endif
11371
11372#if LK2_ENABLED
11373 module subroutine setSortedArrCusComSelection_D1_LK2(array, isSorted, method)
11374#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11375 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComSelection_D1_LK2
11376#endif
11377 use pm_kind, only: LKG => LK2
11378 logical(LKG) , intent(inout) , contiguous :: array(:)
11379 procedure(logical(LK)) :: isSorted
11380 type(selection_type) , intent(in) :: method
11381 end subroutine
11382#endif
11383
11384#if LK1_ENABLED
11385 module subroutine setSortedArrCusComSelection_D1_LK1(array, isSorted, method)
11386#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11387 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComSelection_D1_LK1
11388#endif
11389 use pm_kind, only: LKG => LK1
11390 logical(LKG) , intent(inout) , contiguous :: array(:)
11391 procedure(logical(LK)) :: isSorted
11392 type(selection_type) , intent(in) :: method
11393 end subroutine
11394#endif
11395
11396 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11397
11398#if CK5_ENABLED
11399 module subroutine setSortedArrCusComSelection_D1_CK5(array, isSorted, method)
11400#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11401 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComSelection_D1_CK5
11402#endif
11403 use pm_kind, only: CKG => CK5
11404 complex(CKG) , intent(inout) , contiguous :: array(:)
11405 procedure(logical(LK)) :: isSorted
11406 type(selection_type) , intent(in) :: method
11407 end subroutine
11408#endif
11409
11410#if CK4_ENABLED
11411 module subroutine setSortedArrCusComSelection_D1_CK4(array, isSorted, method)
11412#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11413 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComSelection_D1_CK4
11414#endif
11415 use pm_kind, only: CKG => CK4
11416 complex(CKG) , intent(inout) , contiguous :: array(:)
11417 procedure(logical(LK)) :: isSorted
11418 type(selection_type) , intent(in) :: method
11419 end subroutine
11420#endif
11421
11422#if CK3_ENABLED
11423 module subroutine setSortedArrCusComSelection_D1_CK3(array, isSorted, method)
11424#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11425 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComSelection_D1_CK3
11426#endif
11427 use pm_kind, only: CKG => CK3
11428 complex(CKG) , intent(inout) , contiguous :: array(:)
11429 procedure(logical(LK)) :: isSorted
11430 type(selection_type) , intent(in) :: method
11431 end subroutine
11432#endif
11433
11434#if CK2_ENABLED
11435 module subroutine setSortedArrCusComSelection_D1_CK2(array, isSorted, method)
11436#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11437 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComSelection_D1_CK2
11438#endif
11439 use pm_kind, only: CKG => CK2
11440 complex(CKG) , intent(inout) , contiguous :: array(:)
11441 procedure(logical(LK)) :: isSorted
11442 type(selection_type) , intent(in) :: method
11443 end subroutine
11444#endif
11445
11446#if CK1_ENABLED
11447 module subroutine setSortedArrCusComSelection_D1_CK1(array, isSorted, method)
11448#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11449 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComSelection_D1_CK1
11450#endif
11451 use pm_kind, only: CKG => CK1
11452 complex(CKG) , intent(inout) , contiguous :: array(:)
11453 procedure(logical(LK)) :: isSorted
11454 type(selection_type) , intent(in) :: method
11455 end subroutine
11456#endif
11457
11458 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11459
11460#if RK5_ENABLED
11461 module subroutine setSortedArrCusComSelection_D1_RK5(array, isSorted, method)
11462#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11463 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComSelection_D1_RK5
11464#endif
11465 use pm_kind, only: RKG => RK5
11466 real(RKG) , intent(inout) , contiguous :: array(:)
11467 procedure(logical(LK)) :: isSorted
11468 type(selection_type) , intent(in) :: method
11469 end subroutine
11470#endif
11471
11472#if RK4_ENABLED
11473 module subroutine setSortedArrCusComSelection_D1_RK4(array, isSorted, method)
11474#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11475 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComSelection_D1_RK4
11476#endif
11477 use pm_kind, only: RKG => RK4
11478 real(RKG) , intent(inout) , contiguous :: array(:)
11479 procedure(logical(LK)) :: isSorted
11480 type(selection_type) , intent(in) :: method
11481 end subroutine
11482#endif
11483
11484#if RK3_ENABLED
11485 module subroutine setSortedArrCusComSelection_D1_RK3(array, isSorted, method)
11486#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11487 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComSelection_D1_RK3
11488#endif
11489 use pm_kind, only: RKG => RK3
11490 real(RKG) , intent(inout) , contiguous :: array(:)
11491 procedure(logical(LK)) :: isSorted
11492 type(selection_type) , intent(in) :: method
11493 end subroutine
11494#endif
11495
11496#if RK2_ENABLED
11497 module subroutine setSortedArrCusComSelection_D1_RK2(array, isSorted, method)
11498#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11499 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComSelection_D1_RK2
11500#endif
11501 use pm_kind, only: RKG => RK2
11502 real(RKG) , intent(inout) , contiguous :: array(:)
11503 procedure(logical(LK)) :: isSorted
11504 type(selection_type) , intent(in) :: method
11505 end subroutine
11506#endif
11507
11508#if RK1_ENABLED
11509 module subroutine setSortedArrCusComSelection_D1_RK1(array, isSorted, method)
11510#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11511 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComSelection_D1_RK1
11512#endif
11513 use pm_kind, only: RKG => RK1
11514 real(RKG) , intent(inout) , contiguous :: array(:)
11515 procedure(logical(LK)) :: isSorted
11516 type(selection_type) , intent(in) :: method
11517 end subroutine
11518#endif
11519
11520 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11521
11522#if PDT_ENABLED
11523
11524#if SK5_ENABLED
11525 module subroutine setSortedArrCusComSelection_D1_PSSK5(array, isSorted, method)
11526#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11527 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComSelection_D1_PSSK5
11528#endif
11529 use pm_kind, only: SKG => SK5
11530 use pm_container, only: css_pdt
11531 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
11532 procedure(logical(LK)) :: isSorted
11533 type(selection_type) , intent(in) :: method
11534 end subroutine
11535#endif
11536
11537#if SK4_ENABLED
11538 module subroutine setSortedArrCusComSelection_D1_PSSK4(array, isSorted, method)
11539#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11540 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComSelection_D1_PSSK4
11541#endif
11542 use pm_kind, only: SKG => SK4
11543 use pm_container, only: css_pdt
11544 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
11545 procedure(logical(LK)) :: isSorted
11546 type(selection_type) , intent(in) :: method
11547 end subroutine
11548#endif
11549
11550#if SK3_ENABLED
11551 module subroutine setSortedArrCusComSelection_D1_PSSK3(array, isSorted, method)
11552#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11553 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComSelection_D1_PSSK3
11554#endif
11555 use pm_kind, only: SKG => SK3
11556 use pm_container, only: css_pdt
11557 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
11558 procedure(logical(LK)) :: isSorted
11559 type(selection_type) , intent(in) :: method
11560 end subroutine
11561#endif
11562
11563#if SK2_ENABLED
11564 module subroutine setSortedArrCusComSelection_D1_PSSK2(array, isSorted, method)
11565#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11566 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComSelection_D1_PSSK2
11567#endif
11568 use pm_kind, only: SKG => SK2
11569 use pm_container, only: css_pdt
11570 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
11571 procedure(logical(LK)) :: isSorted
11572 type(selection_type) , intent(in) :: method
11573 end subroutine
11574#endif
11575
11576#if SK1_ENABLED
11577 module subroutine setSortedArrCusComSelection_D1_PSSK1(array, isSorted, method)
11578#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11579 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComSelection_D1_PSSK1
11580#endif
11581 use pm_kind, only: SKG => SK1
11582 use pm_container, only: css_pdt
11583 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
11584 procedure(logical(LK)) :: isSorted
11585 type(selection_type) , intent(in) :: method
11586 end subroutine
11587#endif
11588
11589#endif
11590!PDT_ENABLED
11591
11592 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11593
11594 module subroutine setSortedArrCusComSelection_D1_BSSK(array, isSorted, method)
11595#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11596 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComSelection_D1_BSSK
11597#endif
11598 use pm_kind, only: SKG => SK
11599 use pm_container, only: css_type
11600 type(css_type) , intent(inout) , contiguous :: array(:)
11601 procedure(logical(LK)) :: isSorted
11602 type(selection_type) , intent(in) :: method
11603 end subroutine
11604
11605 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11606
11607 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11608 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11609 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11610
11611 end interface
11612
11613 ! setSortedArrCusComShell
11614
11615 interface setSorted
11616
11617 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11618 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11619 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11620
11621 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11622
11623#if SK5_ENABLED
11624 module subroutine setSortedArrCusComShell_D0_SK5(array, isSorted, method)
11625#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11626 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComShell_D0_SK5
11627#endif
11628 use pm_kind, only: SKG => SK5
11629 character(*,SKG) , intent(inout) :: array
11630 procedure(logical(LK)) :: isSorted
11631 type(shell_type) , intent(in) :: method
11632 end subroutine
11633#endif
11634
11635#if SK4_ENABLED
11636 module subroutine setSortedArrCusComShell_D0_SK4(array, isSorted, method)
11637#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11638 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComShell_D0_SK4
11639#endif
11640 use pm_kind, only: SKG => SK4
11641 character(*,SKG) , intent(inout) :: array
11642 procedure(logical(LK)) :: isSorted
11643 type(shell_type) , intent(in) :: method
11644 end subroutine
11645#endif
11646
11647#if SK3_ENABLED
11648 module subroutine setSortedArrCusComShell_D0_SK3(array, isSorted, method)
11649#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11650 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComShell_D0_SK3
11651#endif
11652 use pm_kind, only: SKG => SK3
11653 character(*,SKG) , intent(inout) :: array
11654 procedure(logical(LK)) :: isSorted
11655 type(shell_type) , intent(in) :: method
11656 end subroutine
11657#endif
11658
11659#if SK2_ENABLED
11660 module subroutine setSortedArrCusComShell_D0_SK2(array, isSorted, method)
11661#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11662 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComShell_D0_SK2
11663#endif
11664 use pm_kind, only: SKG => SK2
11665 character(*,SKG) , intent(inout) :: array
11666 procedure(logical(LK)) :: isSorted
11667 type(shell_type) , intent(in) :: method
11668 end subroutine
11669#endif
11670
11671#if SK1_ENABLED
11672 module subroutine setSortedArrCusComShell_D0_SK1(array, isSorted, method)
11673#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11674 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComShell_D0_SK1
11675#endif
11676 use pm_kind, only: SKG => SK1
11677 character(*,SKG) , intent(inout) :: array
11678 procedure(logical(LK)) :: isSorted
11679 type(shell_type) , intent(in) :: method
11680 end subroutine
11681#endif
11682
11683 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11684
11685#if SK5_ENABLED
11686 module subroutine setSortedArrCusComShell_D1_SK5(array, isSorted, method)
11687#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11688 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComShell_D1_SK5
11689#endif
11690 use pm_kind, only: SKG => SK5
11691 character(*,SKG) , intent(inout) , contiguous :: array(:)
11692 procedure(logical(LK)) :: isSorted
11693 type(shell_type) , intent(in) :: method
11694 end subroutine
11695#endif
11696
11697#if SK4_ENABLED
11698 module subroutine setSortedArrCusComShell_D1_SK4(array, isSorted, method)
11699#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11700 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComShell_D1_SK4
11701#endif
11702 use pm_kind, only: SKG => SK4
11703 character(*,SKG) , intent(inout) , contiguous :: array(:)
11704 procedure(logical(LK)) :: isSorted
11705 type(shell_type) , intent(in) :: method
11706 end subroutine
11707#endif
11708
11709#if SK3_ENABLED
11710 module subroutine setSortedArrCusComShell_D1_SK3(array, isSorted, method)
11711#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11712 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComShell_D1_SK3
11713#endif
11714 use pm_kind, only: SKG => SK3
11715 character(*,SKG) , intent(inout) , contiguous :: array(:)
11716 procedure(logical(LK)) :: isSorted
11717 type(shell_type) , intent(in) :: method
11718 end subroutine
11719#endif
11720
11721#if SK2_ENABLED
11722 module subroutine setSortedArrCusComShell_D1_SK2(array, isSorted, method)
11723#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11724 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComShell_D1_SK2
11725#endif
11726 use pm_kind, only: SKG => SK2
11727 character(*,SKG) , intent(inout) , contiguous :: array(:)
11728 procedure(logical(LK)) :: isSorted
11729 type(shell_type) , intent(in) :: method
11730 end subroutine
11731#endif
11732
11733#if SK1_ENABLED
11734 module subroutine setSortedArrCusComShell_D1_SK1(array, isSorted, method)
11735#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11736 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComShell_D1_SK1
11737#endif
11738 use pm_kind, only: SKG => SK1
11739 character(*,SKG) , intent(inout) , contiguous :: array(:)
11740 procedure(logical(LK)) :: isSorted
11741 type(shell_type) , intent(in) :: method
11742 end subroutine
11743#endif
11744
11745 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11746
11747#if IK5_ENABLED
11748 module subroutine setSortedArrCusComShell_D1_IK5(array, isSorted, method)
11749#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11750 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComShell_D1_IK5
11751#endif
11752 use pm_kind, only: IKG => IK5
11753 integer(IKG) , intent(inout) , contiguous :: array(:)
11754 procedure(logical(LK)) :: isSorted
11755 type(shell_type) , intent(in) :: method
11756 end subroutine
11757#endif
11758
11759#if IK4_ENABLED
11760 module subroutine setSortedArrCusComShell_D1_IK4(array, isSorted, method)
11761#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11762 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComShell_D1_IK4
11763#endif
11764 use pm_kind, only: IKG => IK4
11765 integer(IKG) , intent(inout) , contiguous :: array(:)
11766 procedure(logical(LK)) :: isSorted
11767 type(shell_type) , intent(in) :: method
11768 end subroutine
11769#endif
11770
11771#if IK3_ENABLED
11772 module subroutine setSortedArrCusComShell_D1_IK3(array, isSorted, method)
11773#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11774 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComShell_D1_IK3
11775#endif
11776 use pm_kind, only: IKG => IK3
11777 integer(IKG) , intent(inout) , contiguous :: array(:)
11778 procedure(logical(LK)) :: isSorted
11779 type(shell_type) , intent(in) :: method
11780 end subroutine
11781#endif
11782
11783#if IK2_ENABLED
11784 module subroutine setSortedArrCusComShell_D1_IK2(array, isSorted, method)
11785#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11786 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComShell_D1_IK2
11787#endif
11788 use pm_kind, only: IKG => IK2
11789 integer(IKG) , intent(inout) , contiguous :: array(:)
11790 procedure(logical(LK)) :: isSorted
11791 type(shell_type) , intent(in) :: method
11792 end subroutine
11793#endif
11794
11795#if IK1_ENABLED
11796 module subroutine setSortedArrCusComShell_D1_IK1(array, isSorted, method)
11797#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11798 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComShell_D1_IK1
11799#endif
11800 use pm_kind, only: IKG => IK1
11801 integer(IKG) , intent(inout) , contiguous :: array(:)
11802 procedure(logical(LK)) :: isSorted
11803 type(shell_type) , intent(in) :: method
11804 end subroutine
11805#endif
11806
11807 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11808
11809#if LK5_ENABLED
11810 module subroutine setSortedArrCusComShell_D1_LK5(array, isSorted, method)
11811#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11812 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComShell_D1_LK5
11813#endif
11814 use pm_kind, only: LKG => LK5
11815 logical(LKG) , intent(inout) , contiguous :: array(:)
11816 procedure(logical(LK)) :: isSorted
11817 type(shell_type) , intent(in) :: method
11818 end subroutine
11819#endif
11820
11821#if LK4_ENABLED
11822 module subroutine setSortedArrCusComShell_D1_LK4(array, isSorted, method)
11823#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11824 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComShell_D1_LK4
11825#endif
11826 use pm_kind, only: LKG => LK4
11827 logical(LKG) , intent(inout) , contiguous :: array(:)
11828 procedure(logical(LK)) :: isSorted
11829 type(shell_type) , intent(in) :: method
11830 end subroutine
11831#endif
11832
11833#if LK3_ENABLED
11834 module subroutine setSortedArrCusComShell_D1_LK3(array, isSorted, method)
11835#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11836 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComShell_D1_LK3
11837#endif
11838 use pm_kind, only: LKG => LK3
11839 logical(LKG) , intent(inout) , contiguous :: array(:)
11840 procedure(logical(LK)) :: isSorted
11841 type(shell_type) , intent(in) :: method
11842 end subroutine
11843#endif
11844
11845#if LK2_ENABLED
11846 module subroutine setSortedArrCusComShell_D1_LK2(array, isSorted, method)
11847#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11848 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComShell_D1_LK2
11849#endif
11850 use pm_kind, only: LKG => LK2
11851 logical(LKG) , intent(inout) , contiguous :: array(:)
11852 procedure(logical(LK)) :: isSorted
11853 type(shell_type) , intent(in) :: method
11854 end subroutine
11855#endif
11856
11857#if LK1_ENABLED
11858 module subroutine setSortedArrCusComShell_D1_LK1(array, isSorted, method)
11859#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11860 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComShell_D1_LK1
11861#endif
11862 use pm_kind, only: LKG => LK1
11863 logical(LKG) , intent(inout) , contiguous :: array(:)
11864 procedure(logical(LK)) :: isSorted
11865 type(shell_type) , intent(in) :: method
11866 end subroutine
11867#endif
11868
11869 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11870
11871#if CK5_ENABLED
11872 module subroutine setSortedArrCusComShell_D1_CK5(array, isSorted, method)
11873#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11874 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComShell_D1_CK5
11875#endif
11876 use pm_kind, only: CKG => CK5
11877 complex(CKG) , intent(inout) , contiguous :: array(:)
11878 procedure(logical(LK)) :: isSorted
11879 type(shell_type) , intent(in) :: method
11880 end subroutine
11881#endif
11882
11883#if CK4_ENABLED
11884 module subroutine setSortedArrCusComShell_D1_CK4(array, isSorted, method)
11885#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11886 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComShell_D1_CK4
11887#endif
11888 use pm_kind, only: CKG => CK4
11889 complex(CKG) , intent(inout) , contiguous :: array(:)
11890 procedure(logical(LK)) :: isSorted
11891 type(shell_type) , intent(in) :: method
11892 end subroutine
11893#endif
11894
11895#if CK3_ENABLED
11896 module subroutine setSortedArrCusComShell_D1_CK3(array, isSorted, method)
11897#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11898 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComShell_D1_CK3
11899#endif
11900 use pm_kind, only: CKG => CK3
11901 complex(CKG) , intent(inout) , contiguous :: array(:)
11902 procedure(logical(LK)) :: isSorted
11903 type(shell_type) , intent(in) :: method
11904 end subroutine
11905#endif
11906
11907#if CK2_ENABLED
11908 module subroutine setSortedArrCusComShell_D1_CK2(array, isSorted, method)
11909#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11910 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComShell_D1_CK2
11911#endif
11912 use pm_kind, only: CKG => CK2
11913 complex(CKG) , intent(inout) , contiguous :: array(:)
11914 procedure(logical(LK)) :: isSorted
11915 type(shell_type) , intent(in) :: method
11916 end subroutine
11917#endif
11918
11919#if CK1_ENABLED
11920 module subroutine setSortedArrCusComShell_D1_CK1(array, isSorted, method)
11921#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11922 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComShell_D1_CK1
11923#endif
11924 use pm_kind, only: CKG => CK1
11925 complex(CKG) , intent(inout) , contiguous :: array(:)
11926 procedure(logical(LK)) :: isSorted
11927 type(shell_type) , intent(in) :: method
11928 end subroutine
11929#endif
11930
11931 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11932
11933#if RK5_ENABLED
11934 module subroutine setSortedArrCusComShell_D1_RK5(array, isSorted, method)
11935#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11936 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComShell_D1_RK5
11937#endif
11938 use pm_kind, only: RKG => RK5
11939 real(RKG) , intent(inout) , contiguous :: array(:)
11940 procedure(logical(LK)) :: isSorted
11941 type(shell_type) , intent(in) :: method
11942 end subroutine
11943#endif
11944
11945#if RK4_ENABLED
11946 module subroutine setSortedArrCusComShell_D1_RK4(array, isSorted, method)
11947#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11948 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComShell_D1_RK4
11949#endif
11950 use pm_kind, only: RKG => RK4
11951 real(RKG) , intent(inout) , contiguous :: array(:)
11952 procedure(logical(LK)) :: isSorted
11953 type(shell_type) , intent(in) :: method
11954 end subroutine
11955#endif
11956
11957#if RK3_ENABLED
11958 module subroutine setSortedArrCusComShell_D1_RK3(array, isSorted, method)
11959#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11960 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComShell_D1_RK3
11961#endif
11962 use pm_kind, only: RKG => RK3
11963 real(RKG) , intent(inout) , contiguous :: array(:)
11964 procedure(logical(LK)) :: isSorted
11965 type(shell_type) , intent(in) :: method
11966 end subroutine
11967#endif
11968
11969#if RK2_ENABLED
11970 module subroutine setSortedArrCusComShell_D1_RK2(array, isSorted, method)
11971#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11972 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComShell_D1_RK2
11973#endif
11974 use pm_kind, only: RKG => RK2
11975 real(RKG) , intent(inout) , contiguous :: array(:)
11976 procedure(logical(LK)) :: isSorted
11977 type(shell_type) , intent(in) :: method
11978 end subroutine
11979#endif
11980
11981#if RK1_ENABLED
11982 module subroutine setSortedArrCusComShell_D1_RK1(array, isSorted, method)
11983#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11984 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComShell_D1_RK1
11985#endif
11986 use pm_kind, only: RKG => RK1
11987 real(RKG) , intent(inout) , contiguous :: array(:)
11988 procedure(logical(LK)) :: isSorted
11989 type(shell_type) , intent(in) :: method
11990 end subroutine
11991#endif
11992
11993 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11994
11995#if PDT_ENABLED
11996
11997#if SK5_ENABLED
11998 module subroutine setSortedArrCusComShell_D1_PSSK5(array, isSorted, method)
11999#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12000 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComShell_D1_PSSK5
12001#endif
12002 use pm_kind, only: SKG => SK5
12003 use pm_container, only: css_pdt
12004 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
12005 procedure(logical(LK)) :: isSorted
12006 type(shell_type) , intent(in) :: method
12007 end subroutine
12008#endif
12009
12010#if SK4_ENABLED
12011 module subroutine setSortedArrCusComShell_D1_PSSK4(array, isSorted, method)
12012#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12013 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComShell_D1_PSSK4
12014#endif
12015 use pm_kind, only: SKG => SK4
12016 use pm_container, only: css_pdt
12017 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
12018 procedure(logical(LK)) :: isSorted
12019 type(shell_type) , intent(in) :: method
12020 end subroutine
12021#endif
12022
12023#if SK3_ENABLED
12024 module subroutine setSortedArrCusComShell_D1_PSSK3(array, isSorted, method)
12025#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12026 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComShell_D1_PSSK3
12027#endif
12028 use pm_kind, only: SKG => SK3
12029 use pm_container, only: css_pdt
12030 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
12031 procedure(logical(LK)) :: isSorted
12032 type(shell_type) , intent(in) :: method
12033 end subroutine
12034#endif
12035
12036#if SK2_ENABLED
12037 module subroutine setSortedArrCusComShell_D1_PSSK2(array, isSorted, method)
12038#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12039 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComShell_D1_PSSK2
12040#endif
12041 use pm_kind, only: SKG => SK2
12042 use pm_container, only: css_pdt
12043 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
12044 procedure(logical(LK)) :: isSorted
12045 type(shell_type) , intent(in) :: method
12046 end subroutine
12047#endif
12048
12049#if SK1_ENABLED
12050 module subroutine setSortedArrCusComShell_D1_PSSK1(array, isSorted, method)
12051#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12052 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComShell_D1_PSSK1
12053#endif
12054 use pm_kind, only: SKG => SK1
12055 use pm_container, only: css_pdt
12056 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
12057 procedure(logical(LK)) :: isSorted
12058 type(shell_type) , intent(in) :: method
12059 end subroutine
12060#endif
12061
12062#endif
12063!PDT_ENABLED
12064
12065 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12066
12067 module subroutine setSortedArrCusComShell_D1_BSSK(array, isSorted, method)
12068#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12069 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrCusComShell_D1_BSSK
12070#endif
12071 use pm_kind, only: SKG => SK
12072 use pm_container, only: css_type
12073 type(css_type) , intent(inout) , contiguous :: array(:)
12074 procedure(logical(LK)) :: isSorted
12075 type(shell_type) , intent(in) :: method
12076 end subroutine
12077
12078 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12079
12080 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12081 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12082 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12083
12084 end interface
12085
12086!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12087
12088 ! setSortedArrDefComDef
12089
12090 interface setSorted
12091
12092 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12093 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12094 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12095
12096 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12097
12098#if SK5_ENABLED
12099 pure module subroutine setSortedArrDefComDef_D0_SK5(array)
12100#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12101 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComDef_D0_SK5
12102#endif
12103 use pm_kind, only: SKG => SK5
12104 character(*,SKG) , intent(inout) :: array
12105 end subroutine
12106#endif
12107
12108#if SK4_ENABLED
12109 pure module subroutine setSortedArrDefComDef_D0_SK4(array)
12110#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12111 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComDef_D0_SK4
12112#endif
12113 use pm_kind, only: SKG => SK4
12114 character(*,SKG) , intent(inout) :: array
12115 end subroutine
12116#endif
12117
12118#if SK3_ENABLED
12119 pure module subroutine setSortedArrDefComDef_D0_SK3(array)
12120#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12121 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComDef_D0_SK3
12122#endif
12123 use pm_kind, only: SKG => SK3
12124 character(*,SKG) , intent(inout) :: array
12125 end subroutine
12126#endif
12127
12128#if SK2_ENABLED
12129 pure module subroutine setSortedArrDefComDef_D0_SK2(array)
12130#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12131 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComDef_D0_SK2
12132#endif
12133 use pm_kind, only: SKG => SK2
12134 character(*,SKG) , intent(inout) :: array
12135 end subroutine
12136#endif
12137
12138#if SK1_ENABLED
12139 pure module subroutine setSortedArrDefComDef_D0_SK1(array)
12140#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12141 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComDef_D0_SK1
12142#endif
12143 use pm_kind, only: SKG => SK1
12144 character(*,SKG) , intent(inout) :: array
12145 end subroutine
12146#endif
12147
12148 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12149
12150#if SK5_ENABLED
12151 pure module subroutine setSortedArrDefComDef_D1_SK5(array)
12152#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12153 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComDef_D1_SK5
12154#endif
12155 use pm_kind, only: SKG => SK5
12156 character(*,SKG) , intent(inout) , contiguous :: array(:)
12157 end subroutine
12158#endif
12159
12160#if SK4_ENABLED
12161 pure module subroutine setSortedArrDefComDef_D1_SK4(array)
12162#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12163 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComDef_D1_SK4
12164#endif
12165 use pm_kind, only: SKG => SK4
12166 character(*,SKG) , intent(inout) , contiguous :: array(:)
12167 end subroutine
12168#endif
12169
12170#if SK3_ENABLED
12171 pure module subroutine setSortedArrDefComDef_D1_SK3(array)
12172#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12173 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComDef_D1_SK3
12174#endif
12175 use pm_kind, only: SKG => SK3
12176 character(*,SKG) , intent(inout) , contiguous :: array(:)
12177 end subroutine
12178#endif
12179
12180#if SK2_ENABLED
12181 pure module subroutine setSortedArrDefComDef_D1_SK2(array)
12182#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12183 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComDef_D1_SK2
12184#endif
12185 use pm_kind, only: SKG => SK2
12186 character(*,SKG) , intent(inout) , contiguous :: array(:)
12187 end subroutine
12188#endif
12189
12190#if SK1_ENABLED
12191 pure module subroutine setSortedArrDefComDef_D1_SK1(array)
12192#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12193 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComDef_D1_SK1
12194#endif
12195 use pm_kind, only: SKG => SK1
12196 character(*,SKG) , intent(inout) , contiguous :: array(:)
12197 end subroutine
12198#endif
12199
12200 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12201
12202#if IK5_ENABLED
12203 pure module subroutine setSortedArrDefComDef_D1_IK5(array)
12204#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12205 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComDef_D1_IK5
12206#endif
12207 use pm_kind, only: IKG => IK5
12208 integer(IKG) , intent(inout) , contiguous :: array(:)
12209 end subroutine
12210#endif
12211
12212#if IK4_ENABLED
12213 pure module subroutine setSortedArrDefComDef_D1_IK4(array)
12214#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12215 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComDef_D1_IK4
12216#endif
12217 use pm_kind, only: IKG => IK4
12218 integer(IKG) , intent(inout) , contiguous :: array(:)
12219 end subroutine
12220#endif
12221
12222#if IK3_ENABLED
12223 pure module subroutine setSortedArrDefComDef_D1_IK3(array)
12224#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12225 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComDef_D1_IK3
12226#endif
12227 use pm_kind, only: IKG => IK3
12228 integer(IKG) , intent(inout) , contiguous :: array(:)
12229 end subroutine
12230#endif
12231
12232#if IK2_ENABLED
12233 pure module subroutine setSortedArrDefComDef_D1_IK2(array)
12234#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12235 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComDef_D1_IK2
12236#endif
12237 use pm_kind, only: IKG => IK2
12238 integer(IKG) , intent(inout) , contiguous :: array(:)
12239 end subroutine
12240#endif
12241
12242#if IK1_ENABLED
12243 pure module subroutine setSortedArrDefComDef_D1_IK1(array)
12244#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12245 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComDef_D1_IK1
12246#endif
12247 use pm_kind, only: IKG => IK1
12248 integer(IKG) , intent(inout) , contiguous :: array(:)
12249 end subroutine
12250#endif
12251
12252 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12253
12254#if LK5_ENABLED
12255 pure module subroutine setSortedArrDefComDef_D1_LK5(array)
12256#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12257 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComDef_D1_LK5
12258#endif
12259 use pm_kind, only: LKG => LK5
12260 logical(LKG) , intent(inout) , contiguous :: array(:)
12261 end subroutine
12262#endif
12263
12264#if LK4_ENABLED
12265 pure module subroutine setSortedArrDefComDef_D1_LK4(array)
12266#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12267 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComDef_D1_LK4
12268#endif
12269 use pm_kind, only: LKG => LK4
12270 logical(LKG) , intent(inout) , contiguous :: array(:)
12271 end subroutine
12272#endif
12273
12274#if LK3_ENABLED
12275 pure module subroutine setSortedArrDefComDef_D1_LK3(array)
12276#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12277 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComDef_D1_LK3
12278#endif
12279 use pm_kind, only: LKG => LK3
12280 logical(LKG) , intent(inout) , contiguous :: array(:)
12281 end subroutine
12282#endif
12283
12284#if LK2_ENABLED
12285 pure module subroutine setSortedArrDefComDef_D1_LK2(array)
12286#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12287 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComDef_D1_LK2
12288#endif
12289 use pm_kind, only: LKG => LK2
12290 logical(LKG) , intent(inout) , contiguous :: array(:)
12291 end subroutine
12292#endif
12293
12294#if LK1_ENABLED
12295 pure module subroutine setSortedArrDefComDef_D1_LK1(array)
12296#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12297 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComDef_D1_LK1
12298#endif
12299 use pm_kind, only: LKG => LK1
12300 logical(LKG) , intent(inout) , contiguous :: array(:)
12301 end subroutine
12302#endif
12303
12304 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12305
12306#if CK5_ENABLED
12307 pure module subroutine setSortedArrDefComDef_D1_CK5(array)
12308#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12309 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComDef_D1_CK5
12310#endif
12311 use pm_kind, only: CKG => CK5
12312 complex(CKG) , intent(inout) , contiguous :: array(:)
12313 end subroutine
12314#endif
12315
12316#if CK4_ENABLED
12317 pure module subroutine setSortedArrDefComDef_D1_CK4(array)
12318#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12319 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComDef_D1_CK4
12320#endif
12321 use pm_kind, only: CKG => CK4
12322 complex(CKG) , intent(inout) , contiguous :: array(:)
12323 end subroutine
12324#endif
12325
12326#if CK3_ENABLED
12327 pure module subroutine setSortedArrDefComDef_D1_CK3(array)
12328#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12329 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComDef_D1_CK3
12330#endif
12331 use pm_kind, only: CKG => CK3
12332 complex(CKG) , intent(inout) , contiguous :: array(:)
12333 end subroutine
12334#endif
12335
12336#if CK2_ENABLED
12337 pure module subroutine setSortedArrDefComDef_D1_CK2(array)
12338#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12339 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComDef_D1_CK2
12340#endif
12341 use pm_kind, only: CKG => CK2
12342 complex(CKG) , intent(inout) , contiguous :: array(:)
12343 end subroutine
12344#endif
12345
12346#if CK1_ENABLED
12347 pure module subroutine setSortedArrDefComDef_D1_CK1(array)
12348#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12349 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComDef_D1_CK1
12350#endif
12351 use pm_kind, only: CKG => CK1
12352 complex(CKG) , intent(inout) , contiguous :: array(:)
12353 end subroutine
12354#endif
12355
12356 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12357
12358#if RK5_ENABLED
12359 pure module subroutine setSortedArrDefComDef_D1_RK5(array)
12360#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12361 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComDef_D1_RK5
12362#endif
12363 use pm_kind, only: RKG => RK5
12364 real(RKG) , intent(inout) , contiguous :: array(:)
12365 end subroutine
12366#endif
12367
12368#if RK4_ENABLED
12369 pure module subroutine setSortedArrDefComDef_D1_RK4(array)
12370#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12371 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComDef_D1_RK4
12372#endif
12373 use pm_kind, only: RKG => RK4
12374 real(RKG) , intent(inout) , contiguous :: array(:)
12375 end subroutine
12376#endif
12377
12378#if RK3_ENABLED
12379 pure module subroutine setSortedArrDefComDef_D1_RK3(array)
12380#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12381 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComDef_D1_RK3
12382#endif
12383 use pm_kind, only: RKG => RK3
12384 real(RKG) , intent(inout) , contiguous :: array(:)
12385 end subroutine
12386#endif
12387
12388#if RK2_ENABLED
12389 pure module subroutine setSortedArrDefComDef_D1_RK2(array)
12390#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12391 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComDef_D1_RK2
12392#endif
12393 use pm_kind, only: RKG => RK2
12394 real(RKG) , intent(inout) , contiguous :: array(:)
12395 end subroutine
12396#endif
12397
12398#if RK1_ENABLED
12399 pure module subroutine setSortedArrDefComDef_D1_RK1(array)
12400#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12401 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComDef_D1_RK1
12402#endif
12403 use pm_kind, only: RKG => RK1
12404 real(RKG) , intent(inout) , contiguous :: array(:)
12405 end subroutine
12406#endif
12407
12408 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12409
12410#if PDT_ENABLED
12411
12412#if SK5_ENABLED
12413 pure module subroutine setSortedArrDefComDef_D1_PSSK5(array)
12414#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12415 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComDef_D1_PSSK5
12416#endif
12417 use pm_kind, only: SKG => SK5
12418 use pm_container, only: css_pdt
12419 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
12420 end subroutine
12421#endif
12422
12423#if SK4_ENABLED
12424 pure module subroutine setSortedArrDefComDef_D1_PSSK4(array)
12425#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12426 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComDef_D1_PSSK4
12427#endif
12428 use pm_kind, only: SKG => SK4
12429 use pm_container, only: css_pdt
12430 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
12431 end subroutine
12432#endif
12433
12434#if SK3_ENABLED
12435 pure module subroutine setSortedArrDefComDef_D1_PSSK3(array)
12436#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12437 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComDef_D1_PSSK3
12438#endif
12439 use pm_kind, only: SKG => SK3
12440 use pm_container, only: css_pdt
12441 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
12442 end subroutine
12443#endif
12444
12445#if SK2_ENABLED
12446 pure module subroutine setSortedArrDefComDef_D1_PSSK2(array)
12447#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12448 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComDef_D1_PSSK2
12449#endif
12450 use pm_kind, only: SKG => SK2
12451 use pm_container, only: css_pdt
12452 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
12453 end subroutine
12454#endif
12455
12456#if SK1_ENABLED
12457 pure module subroutine setSortedArrDefComDef_D1_PSSK1(array)
12458#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12459 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComDef_D1_PSSK1
12460#endif
12461 use pm_kind, only: SKG => SK1
12462 use pm_container, only: css_pdt
12463 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
12464 end subroutine
12465#endif
12466
12467#endif
12468!PDT_ENABLED
12469
12470 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12471
12472 pure module subroutine setSortedArrDefComDef_D1_BSSK(array)
12473#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12474 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComDef_D1_BSSK
12475#endif
12476 use pm_kind, only: SKG => SK
12477 use pm_container, only: css_type
12478 type(css_type) , intent(inout) , contiguous :: array(:)
12479 end subroutine
12480
12481 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12482
12483 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12484 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12485 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12486
12487 end interface
12488
12489 ! setSortedArrDefComQsorti
12490
12491 interface setSorted
12492
12493 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12494 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12495 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12496
12497 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12498
12499#if SK5_ENABLED
12500 pure module subroutine setSortedArrDefComQsorti_D0_SK5(array, method)
12501#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12502 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsorti_D0_SK5
12503#endif
12504 use pm_kind, only: SKG => SK5
12505 character(*,SKG) , intent(inout) :: array
12506 type(qsorti_type) , intent(in) :: method
12507 end subroutine
12508#endif
12509
12510#if SK4_ENABLED
12511 pure module subroutine setSortedArrDefComQsorti_D0_SK4(array, method)
12512#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12513 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsorti_D0_SK4
12514#endif
12515 use pm_kind, only: SKG => SK4
12516 character(*,SKG) , intent(inout) :: array
12517 type(qsorti_type) , intent(in) :: method
12518 end subroutine
12519#endif
12520
12521#if SK3_ENABLED
12522 pure module subroutine setSortedArrDefComQsorti_D0_SK3(array, method)
12523#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12524 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsorti_D0_SK3
12525#endif
12526 use pm_kind, only: SKG => SK3
12527 character(*,SKG) , intent(inout) :: array
12528 type(qsorti_type) , intent(in) :: method
12529 end subroutine
12530#endif
12531
12532#if SK2_ENABLED
12533 pure module subroutine setSortedArrDefComQsorti_D0_SK2(array, method)
12534#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12535 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsorti_D0_SK2
12536#endif
12537 use pm_kind, only: SKG => SK2
12538 character(*,SKG) , intent(inout) :: array
12539 type(qsorti_type) , intent(in) :: method
12540 end subroutine
12541#endif
12542
12543#if SK1_ENABLED
12544 pure module subroutine setSortedArrDefComQsorti_D0_SK1(array, method)
12545#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12546 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsorti_D0_SK1
12547#endif
12548 use pm_kind, only: SKG => SK1
12549 character(*,SKG) , intent(inout) :: array
12550 type(qsorti_type) , intent(in) :: method
12551 end subroutine
12552#endif
12553
12554 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12555
12556#if SK5_ENABLED
12557 pure module subroutine setSortedArrDefComQsorti_D1_SK5(array, method)
12558#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12559 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsorti_D1_SK5
12560#endif
12561 use pm_kind, only: SKG => SK5
12562 character(*,SKG) , intent(inout) , contiguous :: array(:)
12563 type(qsorti_type) , intent(in) :: method
12564 end subroutine
12565#endif
12566
12567#if SK4_ENABLED
12568 pure module subroutine setSortedArrDefComQsorti_D1_SK4(array, method)
12569#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12570 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsorti_D1_SK4
12571#endif
12572 use pm_kind, only: SKG => SK4
12573 character(*,SKG) , intent(inout) , contiguous :: array(:)
12574 type(qsorti_type) , intent(in) :: method
12575 end subroutine
12576#endif
12577
12578#if SK3_ENABLED
12579 pure module subroutine setSortedArrDefComQsorti_D1_SK3(array, method)
12580#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12581 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsorti_D1_SK3
12582#endif
12583 use pm_kind, only: SKG => SK3
12584 character(*,SKG) , intent(inout) , contiguous :: array(:)
12585 type(qsorti_type) , intent(in) :: method
12586 end subroutine
12587#endif
12588
12589#if SK2_ENABLED
12590 pure module subroutine setSortedArrDefComQsorti_D1_SK2(array, method)
12591#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12592 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsorti_D1_SK2
12593#endif
12594 use pm_kind, only: SKG => SK2
12595 character(*,SKG) , intent(inout) , contiguous :: array(:)
12596 type(qsorti_type) , intent(in) :: method
12597 end subroutine
12598#endif
12599
12600#if SK1_ENABLED
12601 pure module subroutine setSortedArrDefComQsorti_D1_SK1(array, method)
12602#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12603 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsorti_D1_SK1
12604#endif
12605 use pm_kind, only: SKG => SK1
12606 character(*,SKG) , intent(inout) , contiguous :: array(:)
12607 type(qsorti_type) , intent(in) :: method
12608 end subroutine
12609#endif
12610
12611 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12612
12613#if IK5_ENABLED
12614 pure module subroutine setSortedArrDefComQsorti_D1_IK5(array, method)
12615#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12616 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsorti_D1_IK5
12617#endif
12618 use pm_kind, only: IKG => IK5
12619 integer(IKG) , intent(inout) , contiguous :: array(:)
12620 type(qsorti_type) , intent(in) :: method
12621 end subroutine
12622#endif
12623
12624#if IK4_ENABLED
12625 pure module subroutine setSortedArrDefComQsorti_D1_IK4(array, method)
12626#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12627 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsorti_D1_IK4
12628#endif
12629 use pm_kind, only: IKG => IK4
12630 integer(IKG) , intent(inout) , contiguous :: array(:)
12631 type(qsorti_type) , intent(in) :: method
12632 end subroutine
12633#endif
12634
12635#if IK3_ENABLED
12636 pure module subroutine setSortedArrDefComQsorti_D1_IK3(array, method)
12637#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12638 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsorti_D1_IK3
12639#endif
12640 use pm_kind, only: IKG => IK3
12641 integer(IKG) , intent(inout) , contiguous :: array(:)
12642 type(qsorti_type) , intent(in) :: method
12643 end subroutine
12644#endif
12645
12646#if IK2_ENABLED
12647 pure module subroutine setSortedArrDefComQsorti_D1_IK2(array, method)
12648#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12649 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsorti_D1_IK2
12650#endif
12651 use pm_kind, only: IKG => IK2
12652 integer(IKG) , intent(inout) , contiguous :: array(:)
12653 type(qsorti_type) , intent(in) :: method
12654 end subroutine
12655#endif
12656
12657#if IK1_ENABLED
12658 pure module subroutine setSortedArrDefComQsorti_D1_IK1(array, method)
12659#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12660 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsorti_D1_IK1
12661#endif
12662 use pm_kind, only: IKG => IK1
12663 integer(IKG) , intent(inout) , contiguous :: array(:)
12664 type(qsorti_type) , intent(in) :: method
12665 end subroutine
12666#endif
12667
12668 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12669
12670#if LK5_ENABLED
12671 pure module subroutine setSortedArrDefComQsorti_D1_LK5(array, method)
12672#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12673 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsorti_D1_LK5
12674#endif
12675 use pm_kind, only: LKG => LK5
12676 logical(LKG) , intent(inout) , contiguous :: array(:)
12677 type(qsorti_type) , intent(in) :: method
12678 end subroutine
12679#endif
12680
12681#if LK4_ENABLED
12682 pure module subroutine setSortedArrDefComQsorti_D1_LK4(array, method)
12683#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12684 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsorti_D1_LK4
12685#endif
12686 use pm_kind, only: LKG => LK4
12687 logical(LKG) , intent(inout) , contiguous :: array(:)
12688 type(qsorti_type) , intent(in) :: method
12689 end subroutine
12690#endif
12691
12692#if LK3_ENABLED
12693 pure module subroutine setSortedArrDefComQsorti_D1_LK3(array, method)
12694#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12695 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsorti_D1_LK3
12696#endif
12697 use pm_kind, only: LKG => LK3
12698 logical(LKG) , intent(inout) , contiguous :: array(:)
12699 type(qsorti_type) , intent(in) :: method
12700 end subroutine
12701#endif
12702
12703#if LK2_ENABLED
12704 pure module subroutine setSortedArrDefComQsorti_D1_LK2(array, method)
12705#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12706 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsorti_D1_LK2
12707#endif
12708 use pm_kind, only: LKG => LK2
12709 logical(LKG) , intent(inout) , contiguous :: array(:)
12710 type(qsorti_type) , intent(in) :: method
12711 end subroutine
12712#endif
12713
12714#if LK1_ENABLED
12715 pure module subroutine setSortedArrDefComQsorti_D1_LK1(array, method)
12716#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12717 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsorti_D1_LK1
12718#endif
12719 use pm_kind, only: LKG => LK1
12720 logical(LKG) , intent(inout) , contiguous :: array(:)
12721 type(qsorti_type) , intent(in) :: method
12722 end subroutine
12723#endif
12724
12725 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12726
12727#if CK5_ENABLED
12728 pure module subroutine setSortedArrDefComQsorti_D1_CK5(array, method)
12729#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12730 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsorti_D1_CK5
12731#endif
12732 use pm_kind, only: CKG => CK5
12733 complex(CKG) , intent(inout) , contiguous :: array(:)
12734 type(qsorti_type) , intent(in) :: method
12735 end subroutine
12736#endif
12737
12738#if CK4_ENABLED
12739 pure module subroutine setSortedArrDefComQsorti_D1_CK4(array, method)
12740#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12741 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsorti_D1_CK4
12742#endif
12743 use pm_kind, only: CKG => CK4
12744 complex(CKG) , intent(inout) , contiguous :: array(:)
12745 type(qsorti_type) , intent(in) :: method
12746 end subroutine
12747#endif
12748
12749#if CK3_ENABLED
12750 pure module subroutine setSortedArrDefComQsorti_D1_CK3(array, method)
12751#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12752 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsorti_D1_CK3
12753#endif
12754 use pm_kind, only: CKG => CK3
12755 complex(CKG) , intent(inout) , contiguous :: array(:)
12756 type(qsorti_type) , intent(in) :: method
12757 end subroutine
12758#endif
12759
12760#if CK2_ENABLED
12761 pure module subroutine setSortedArrDefComQsorti_D1_CK2(array, method)
12762#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12763 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsorti_D1_CK2
12764#endif
12765 use pm_kind, only: CKG => CK2
12766 complex(CKG) , intent(inout) , contiguous :: array(:)
12767 type(qsorti_type) , intent(in) :: method
12768 end subroutine
12769#endif
12770
12771#if CK1_ENABLED
12772 pure module subroutine setSortedArrDefComQsorti_D1_CK1(array, method)
12773#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12774 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsorti_D1_CK1
12775#endif
12776 use pm_kind, only: CKG => CK1
12777 complex(CKG) , intent(inout) , contiguous :: array(:)
12778 type(qsorti_type) , intent(in) :: method
12779 end subroutine
12780#endif
12781
12782 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12783
12784#if RK5_ENABLED
12785 pure module subroutine setSortedArrDefComQsorti_D1_RK5(array, method)
12786#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12787 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsorti_D1_RK5
12788#endif
12789 use pm_kind, only: RKG => RK5
12790 real(RKG) , intent(inout) , contiguous :: array(:)
12791 type(qsorti_type) , intent(in) :: method
12792 end subroutine
12793#endif
12794
12795#if RK4_ENABLED
12796 pure module subroutine setSortedArrDefComQsorti_D1_RK4(array, method)
12797#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12798 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsorti_D1_RK4
12799#endif
12800 use pm_kind, only: RKG => RK4
12801 real(RKG) , intent(inout) , contiguous :: array(:)
12802 type(qsorti_type) , intent(in) :: method
12803 end subroutine
12804#endif
12805
12806#if RK3_ENABLED
12807 pure module subroutine setSortedArrDefComQsorti_D1_RK3(array, method)
12808#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12809 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsorti_D1_RK3
12810#endif
12811 use pm_kind, only: RKG => RK3
12812 real(RKG) , intent(inout) , contiguous :: array(:)
12813 type(qsorti_type) , intent(in) :: method
12814 end subroutine
12815#endif
12816
12817#if RK2_ENABLED
12818 pure module subroutine setSortedArrDefComQsorti_D1_RK2(array, method)
12819#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12820 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsorti_D1_RK2
12821#endif
12822 use pm_kind, only: RKG => RK2
12823 real(RKG) , intent(inout) , contiguous :: array(:)
12824 type(qsorti_type) , intent(in) :: method
12825 end subroutine
12826#endif
12827
12828#if RK1_ENABLED
12829 pure module subroutine setSortedArrDefComQsorti_D1_RK1(array, method)
12830#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12831 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsorti_D1_RK1
12832#endif
12833 use pm_kind, only: RKG => RK1
12834 real(RKG) , intent(inout) , contiguous :: array(:)
12835 type(qsorti_type) , intent(in) :: method
12836 end subroutine
12837#endif
12838
12839 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12840
12841#if PDT_ENABLED
12842
12843#if SK5_ENABLED
12844 pure module subroutine setSortedArrDefComQsorti_D1_PSSK5(array, method)
12845#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12846 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsorti_D1_PSSK5
12847#endif
12848 use pm_kind, only: SKG => SK5
12849 use pm_container, only: css_pdt
12850 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
12851 type(qsorti_type) , intent(in) :: method
12852 end subroutine
12853#endif
12854
12855#if SK4_ENABLED
12856 pure module subroutine setSortedArrDefComQsorti_D1_PSSK4(array, method)
12857#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12858 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsorti_D1_PSSK4
12859#endif
12860 use pm_kind, only: SKG => SK4
12861 use pm_container, only: css_pdt
12862 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
12863 type(qsorti_type) , intent(in) :: method
12864 end subroutine
12865#endif
12866
12867#if SK3_ENABLED
12868 pure module subroutine setSortedArrDefComQsorti_D1_PSSK3(array, method)
12869#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12870 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsorti_D1_PSSK3
12871#endif
12872 use pm_kind, only: SKG => SK3
12873 use pm_container, only: css_pdt
12874 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
12875 type(qsorti_type) , intent(in) :: method
12876 end subroutine
12877#endif
12878
12879#if SK2_ENABLED
12880 pure module subroutine setSortedArrDefComQsorti_D1_PSSK2(array, method)
12881#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12882 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsorti_D1_PSSK2
12883#endif
12884 use pm_kind, only: SKG => SK2
12885 use pm_container, only: css_pdt
12886 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
12887 type(qsorti_type) , intent(in) :: method
12888 end subroutine
12889#endif
12890
12891#if SK1_ENABLED
12892 pure module subroutine setSortedArrDefComQsorti_D1_PSSK1(array, method)
12893#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12894 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsorti_D1_PSSK1
12895#endif
12896 use pm_kind, only: SKG => SK1
12897 use pm_container, only: css_pdt
12898 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
12899 type(qsorti_type) , intent(in) :: method
12900 end subroutine
12901#endif
12902
12903#endif
12904!PDT_ENABLED
12905
12906 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12907
12908 pure module subroutine setSortedArrDefComQsorti_D1_BSSK(array, method)
12909#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12910 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsorti_D1_BSSK
12911#endif
12912 use pm_kind, only: SKG => SK
12913 use pm_container, only: css_type
12914 type(css_type) , intent(inout) , contiguous :: array(:)
12915 type(qsorti_type) , intent(in) :: method
12916 end subroutine
12917
12918 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12919
12920 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12921 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12922 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12923
12924 end interface
12925
12926 ! setSortedArrDefComQsortr
12927
12928 interface setSorted
12929
12930 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12931 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12932 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12933
12934 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12935
12936#if SK5_ENABLED
12937 pure recursive module subroutine setSortedArrDefComQsortr_D0_SK5(array, method)
12938#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12939 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortr_D0_SK5
12940#endif
12941 use pm_kind, only: SKG => SK5
12942 character(*,SKG) , intent(inout) :: array
12943 type(qsortr_type) , intent(in) :: method
12944 end subroutine
12945#endif
12946
12947#if SK4_ENABLED
12948 pure recursive module subroutine setSortedArrDefComQsortr_D0_SK4(array, method)
12949#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12950 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortr_D0_SK4
12951#endif
12952 use pm_kind, only: SKG => SK4
12953 character(*,SKG) , intent(inout) :: array
12954 type(qsortr_type) , intent(in) :: method
12955 end subroutine
12956#endif
12957
12958#if SK3_ENABLED
12959 pure recursive module subroutine setSortedArrDefComQsortr_D0_SK3(array, method)
12960#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12961 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortr_D0_SK3
12962#endif
12963 use pm_kind, only: SKG => SK3
12964 character(*,SKG) , intent(inout) :: array
12965 type(qsortr_type) , intent(in) :: method
12966 end subroutine
12967#endif
12968
12969#if SK2_ENABLED
12970 pure recursive module subroutine setSortedArrDefComQsortr_D0_SK2(array, method)
12971#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12972 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortr_D0_SK2
12973#endif
12974 use pm_kind, only: SKG => SK2
12975 character(*,SKG) , intent(inout) :: array
12976 type(qsortr_type) , intent(in) :: method
12977 end subroutine
12978#endif
12979
12980#if SK1_ENABLED
12981 pure recursive module subroutine setSortedArrDefComQsortr_D0_SK1(array, method)
12982#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12983 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortr_D0_SK1
12984#endif
12985 use pm_kind, only: SKG => SK1
12986 character(*,SKG) , intent(inout) :: array
12987 type(qsortr_type) , intent(in) :: method
12988 end subroutine
12989#endif
12990
12991 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12992
12993#if SK5_ENABLED
12994 pure recursive module subroutine setSortedArrDefComQsortr_D1_SK5(array, method)
12995#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12996 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortr_D1_SK5
12997#endif
12998 use pm_kind, only: SKG => SK5
12999 character(*,SKG) , intent(inout) , contiguous :: array(:)
13000 type(qsortr_type) , intent(in) :: method
13001 end subroutine
13002#endif
13003
13004#if SK4_ENABLED
13005 pure recursive module subroutine setSortedArrDefComQsortr_D1_SK4(array, method)
13006#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13007 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortr_D1_SK4
13008#endif
13009 use pm_kind, only: SKG => SK4
13010 character(*,SKG) , intent(inout) , contiguous :: array(:)
13011 type(qsortr_type) , intent(in) :: method
13012 end subroutine
13013#endif
13014
13015#if SK3_ENABLED
13016 pure recursive module subroutine setSortedArrDefComQsortr_D1_SK3(array, method)
13017#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13018 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortr_D1_SK3
13019#endif
13020 use pm_kind, only: SKG => SK3
13021 character(*,SKG) , intent(inout) , contiguous :: array(:)
13022 type(qsortr_type) , intent(in) :: method
13023 end subroutine
13024#endif
13025
13026#if SK2_ENABLED
13027 pure recursive module subroutine setSortedArrDefComQsortr_D1_SK2(array, method)
13028#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13029 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortr_D1_SK2
13030#endif
13031 use pm_kind, only: SKG => SK2
13032 character(*,SKG) , intent(inout) , contiguous :: array(:)
13033 type(qsortr_type) , intent(in) :: method
13034 end subroutine
13035#endif
13036
13037#if SK1_ENABLED
13038 pure recursive module subroutine setSortedArrDefComQsortr_D1_SK1(array, method)
13039#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13040 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortr_D1_SK1
13041#endif
13042 use pm_kind, only: SKG => SK1
13043 character(*,SKG) , intent(inout) , contiguous :: array(:)
13044 type(qsortr_type) , intent(in) :: method
13045 end subroutine
13046#endif
13047
13048 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13049
13050#if IK5_ENABLED
13051 pure recursive module subroutine setSortedArrDefComQsortr_D1_IK5(array, method)
13052#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13053 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortr_D1_IK5
13054#endif
13055 use pm_kind, only: IKG => IK5
13056 integer(IKG) , intent(inout) , contiguous :: array(:)
13057 type(qsortr_type) , intent(in) :: method
13058 end subroutine
13059#endif
13060
13061#if IK4_ENABLED
13062 pure recursive module subroutine setSortedArrDefComQsortr_D1_IK4(array, method)
13063#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13064 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortr_D1_IK4
13065#endif
13066 use pm_kind, only: IKG => IK4
13067 integer(IKG) , intent(inout) , contiguous :: array(:)
13068 type(qsortr_type) , intent(in) :: method
13069 end subroutine
13070#endif
13071
13072#if IK3_ENABLED
13073 pure recursive module subroutine setSortedArrDefComQsortr_D1_IK3(array, method)
13074#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13075 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortr_D1_IK3
13076#endif
13077 use pm_kind, only: IKG => IK3
13078 integer(IKG) , intent(inout) , contiguous :: array(:)
13079 type(qsortr_type) , intent(in) :: method
13080 end subroutine
13081#endif
13082
13083#if IK2_ENABLED
13084 pure recursive module subroutine setSortedArrDefComQsortr_D1_IK2(array, method)
13085#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13086 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortr_D1_IK2
13087#endif
13088 use pm_kind, only: IKG => IK2
13089 integer(IKG) , intent(inout) , contiguous :: array(:)
13090 type(qsortr_type) , intent(in) :: method
13091 end subroutine
13092#endif
13093
13094#if IK1_ENABLED
13095 pure recursive module subroutine setSortedArrDefComQsortr_D1_IK1(array, method)
13096#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13097 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortr_D1_IK1
13098#endif
13099 use pm_kind, only: IKG => IK1
13100 integer(IKG) , intent(inout) , contiguous :: array(:)
13101 type(qsortr_type) , intent(in) :: method
13102 end subroutine
13103#endif
13104
13105 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13106
13107#if LK5_ENABLED
13108 pure recursive module subroutine setSortedArrDefComQsortr_D1_LK5(array, method)
13109#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13110 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortr_D1_LK5
13111#endif
13112 use pm_kind, only: LKG => LK5
13113 logical(LKG) , intent(inout) , contiguous :: array(:)
13114 type(qsortr_type) , intent(in) :: method
13115 end subroutine
13116#endif
13117
13118#if LK4_ENABLED
13119 pure recursive module subroutine setSortedArrDefComQsortr_D1_LK4(array, method)
13120#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13121 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortr_D1_LK4
13122#endif
13123 use pm_kind, only: LKG => LK4
13124 logical(LKG) , intent(inout) , contiguous :: array(:)
13125 type(qsortr_type) , intent(in) :: method
13126 end subroutine
13127#endif
13128
13129#if LK3_ENABLED
13130 pure recursive module subroutine setSortedArrDefComQsortr_D1_LK3(array, method)
13131#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13132 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortr_D1_LK3
13133#endif
13134 use pm_kind, only: LKG => LK3
13135 logical(LKG) , intent(inout) , contiguous :: array(:)
13136 type(qsortr_type) , intent(in) :: method
13137 end subroutine
13138#endif
13139
13140#if LK2_ENABLED
13141 pure recursive module subroutine setSortedArrDefComQsortr_D1_LK2(array, method)
13142#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13143 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortr_D1_LK2
13144#endif
13145 use pm_kind, only: LKG => LK2
13146 logical(LKG) , intent(inout) , contiguous :: array(:)
13147 type(qsortr_type) , intent(in) :: method
13148 end subroutine
13149#endif
13150
13151#if LK1_ENABLED
13152 pure recursive module subroutine setSortedArrDefComQsortr_D1_LK1(array, method)
13153#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13154 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortr_D1_LK1
13155#endif
13156 use pm_kind, only: LKG => LK1
13157 logical(LKG) , intent(inout) , contiguous :: array(:)
13158 type(qsortr_type) , intent(in) :: method
13159 end subroutine
13160#endif
13161
13162 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13163
13164#if CK5_ENABLED
13165 pure recursive module subroutine setSortedArrDefComQsortr_D1_CK5(array, method)
13166#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13167 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortr_D1_CK5
13168#endif
13169 use pm_kind, only: CKG => CK5
13170 complex(CKG) , intent(inout) , contiguous :: array(:)
13171 type(qsortr_type) , intent(in) :: method
13172 end subroutine
13173#endif
13174
13175#if CK4_ENABLED
13176 pure recursive module subroutine setSortedArrDefComQsortr_D1_CK4(array, method)
13177#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13178 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortr_D1_CK4
13179#endif
13180 use pm_kind, only: CKG => CK4
13181 complex(CKG) , intent(inout) , contiguous :: array(:)
13182 type(qsortr_type) , intent(in) :: method
13183 end subroutine
13184#endif
13185
13186#if CK3_ENABLED
13187 pure recursive module subroutine setSortedArrDefComQsortr_D1_CK3(array, method)
13188#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13189 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortr_D1_CK3
13190#endif
13191 use pm_kind, only: CKG => CK3
13192 complex(CKG) , intent(inout) , contiguous :: array(:)
13193 type(qsortr_type) , intent(in) :: method
13194 end subroutine
13195#endif
13196
13197#if CK2_ENABLED
13198 pure recursive module subroutine setSortedArrDefComQsortr_D1_CK2(array, method)
13199#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13200 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortr_D1_CK2
13201#endif
13202 use pm_kind, only: CKG => CK2
13203 complex(CKG) , intent(inout) , contiguous :: array(:)
13204 type(qsortr_type) , intent(in) :: method
13205 end subroutine
13206#endif
13207
13208#if CK1_ENABLED
13209 pure recursive module subroutine setSortedArrDefComQsortr_D1_CK1(array, method)
13210#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13211 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortr_D1_CK1
13212#endif
13213 use pm_kind, only: CKG => CK1
13214 complex(CKG) , intent(inout) , contiguous :: array(:)
13215 type(qsortr_type) , intent(in) :: method
13216 end subroutine
13217#endif
13218
13219 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13220
13221#if RK5_ENABLED
13222 pure recursive module subroutine setSortedArrDefComQsortr_D1_RK5(array, method)
13223#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13224 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortr_D1_RK5
13225#endif
13226 use pm_kind, only: RKG => RK5
13227 real(RKG) , intent(inout) , contiguous :: array(:)
13228 type(qsortr_type) , intent(in) :: method
13229 end subroutine
13230#endif
13231
13232#if RK4_ENABLED
13233 pure recursive module subroutine setSortedArrDefComQsortr_D1_RK4(array, method)
13234#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13235 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortr_D1_RK4
13236#endif
13237 use pm_kind, only: RKG => RK4
13238 real(RKG) , intent(inout) , contiguous :: array(:)
13239 type(qsortr_type) , intent(in) :: method
13240 end subroutine
13241#endif
13242
13243#if RK3_ENABLED
13244 pure recursive module subroutine setSortedArrDefComQsortr_D1_RK3(array, method)
13245#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13246 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortr_D1_RK3
13247#endif
13248 use pm_kind, only: RKG => RK3
13249 real(RKG) , intent(inout) , contiguous :: array(:)
13250 type(qsortr_type) , intent(in) :: method
13251 end subroutine
13252#endif
13253
13254#if RK2_ENABLED
13255 pure recursive module subroutine setSortedArrDefComQsortr_D1_RK2(array, method)
13256#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13257 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortr_D1_RK2
13258#endif
13259 use pm_kind, only: RKG => RK2
13260 real(RKG) , intent(inout) , contiguous :: array(:)
13261 type(qsortr_type) , intent(in) :: method
13262 end subroutine
13263#endif
13264
13265#if RK1_ENABLED
13266 pure recursive module subroutine setSortedArrDefComQsortr_D1_RK1(array, method)
13267#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13268 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortr_D1_RK1
13269#endif
13270 use pm_kind, only: RKG => RK1
13271 real(RKG) , intent(inout) , contiguous :: array(:)
13272 type(qsortr_type) , intent(in) :: method
13273 end subroutine
13274#endif
13275
13276 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13277
13278#if PDT_ENABLED
13279
13280#if SK5_ENABLED
13281 pure recursive module subroutine setSortedArrDefComQsortr_D1_PSSK5(array, method)
13282#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13283 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortr_D1_PSSK5
13284#endif
13285 use pm_kind, only: SKG => SK5
13286 use pm_container, only: css_pdt
13287 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
13288 type(qsortr_type) , intent(in) :: method
13289 end subroutine
13290#endif
13291
13292#if SK4_ENABLED
13293 pure recursive module subroutine setSortedArrDefComQsortr_D1_PSSK4(array, method)
13294#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13295 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortr_D1_PSSK4
13296#endif
13297 use pm_kind, only: SKG => SK4
13298 use pm_container, only: css_pdt
13299 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
13300 type(qsortr_type) , intent(in) :: method
13301 end subroutine
13302#endif
13303
13304#if SK3_ENABLED
13305 pure recursive module subroutine setSortedArrDefComQsortr_D1_PSSK3(array, method)
13306#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13307 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortr_D1_PSSK3
13308#endif
13309 use pm_kind, only: SKG => SK3
13310 use pm_container, only: css_pdt
13311 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
13312 type(qsortr_type) , intent(in) :: method
13313 end subroutine
13314#endif
13315
13316#if SK2_ENABLED
13317 pure recursive module subroutine setSortedArrDefComQsortr_D1_PSSK2(array, method)
13318#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13319 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortr_D1_PSSK2
13320#endif
13321 use pm_kind, only: SKG => SK2
13322 use pm_container, only: css_pdt
13323 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
13324 type(qsortr_type) , intent(in) :: method
13325 end subroutine
13326#endif
13327
13328#if SK1_ENABLED
13329 pure recursive module subroutine setSortedArrDefComQsortr_D1_PSSK1(array, method)
13330#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13331 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortr_D1_PSSK1
13332#endif
13333 use pm_kind, only: SKG => SK1
13334 use pm_container, only: css_pdt
13335 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
13336 type(qsortr_type) , intent(in) :: method
13337 end subroutine
13338#endif
13339
13340#endif
13341!PDT_ENABLED
13342
13343 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13344
13345 pure recursive module subroutine setSortedArrDefComQsortr_D1_BSSK(array, method)
13346#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13347 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortr_D1_BSSK
13348#endif
13349 use pm_kind, only: SKG => SK
13350 use pm_container, only: css_type
13351 type(css_type) , intent(inout) , contiguous :: array(:)
13352 type(qsortr_type) , intent(in) :: method
13353 end subroutine
13354
13355 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13356
13357 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13358 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13359 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13360
13361 end interface
13362
13363 ! setSortedArrDefComQsortrdp
13364
13365 interface setSorted
13366
13367 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13368 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13369 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13370
13371 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13372
13373#if SK5_ENABLED
13374 pure recursive module subroutine setSortedArrDefComQsortrdp_D0_SK5(array, method)
13375#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13376 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortrdp_D0_SK5
13377#endif
13378 use pm_kind, only: SKG => SK5
13379 character(*,SKG) , intent(inout) :: array
13380 type(qsortrdp_type) , intent(in) :: method
13381 end subroutine
13382#endif
13383
13384#if SK4_ENABLED
13385 pure recursive module subroutine setSortedArrDefComQsortrdp_D0_SK4(array, method)
13386#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13387 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortrdp_D0_SK4
13388#endif
13389 use pm_kind, only: SKG => SK4
13390 character(*,SKG) , intent(inout) :: array
13391 type(qsortrdp_type) , intent(in) :: method
13392 end subroutine
13393#endif
13394
13395#if SK3_ENABLED
13396 pure recursive module subroutine setSortedArrDefComQsortrdp_D0_SK3(array, method)
13397#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13398 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortrdp_D0_SK3
13399#endif
13400 use pm_kind, only: SKG => SK3
13401 character(*,SKG) , intent(inout) :: array
13402 type(qsortrdp_type) , intent(in) :: method
13403 end subroutine
13404#endif
13405
13406#if SK2_ENABLED
13407 pure recursive module subroutine setSortedArrDefComQsortrdp_D0_SK2(array, method)
13408#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13409 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortrdp_D0_SK2
13410#endif
13411 use pm_kind, only: SKG => SK2
13412 character(*,SKG) , intent(inout) :: array
13413 type(qsortrdp_type) , intent(in) :: method
13414 end subroutine
13415#endif
13416
13417#if SK1_ENABLED
13418 pure recursive module subroutine setSortedArrDefComQsortrdp_D0_SK1(array, method)
13419#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13420 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortrdp_D0_SK1
13421#endif
13422 use pm_kind, only: SKG => SK1
13423 character(*,SKG) , intent(inout) :: array
13424 type(qsortrdp_type) , intent(in) :: method
13425 end subroutine
13426#endif
13427
13428 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13429
13430#if SK5_ENABLED
13431 pure recursive module subroutine setSortedArrDefComQsortrdp_D1_SK5(array, method)
13432#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13433 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortrdp_D1_SK5
13434#endif
13435 use pm_kind, only: SKG => SK5
13436 character(*,SKG) , intent(inout) , contiguous :: array(:)
13437 type(qsortrdp_type) , intent(in) :: method
13438 end subroutine
13439#endif
13440
13441#if SK4_ENABLED
13442 pure recursive module subroutine setSortedArrDefComQsortrdp_D1_SK4(array, method)
13443#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13444 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortrdp_D1_SK4
13445#endif
13446 use pm_kind, only: SKG => SK4
13447 character(*,SKG) , intent(inout) , contiguous :: array(:)
13448 type(qsortrdp_type) , intent(in) :: method
13449 end subroutine
13450#endif
13451
13452#if SK3_ENABLED
13453 pure recursive module subroutine setSortedArrDefComQsortrdp_D1_SK3(array, method)
13454#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13455 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortrdp_D1_SK3
13456#endif
13457 use pm_kind, only: SKG => SK3
13458 character(*,SKG) , intent(inout) , contiguous :: array(:)
13459 type(qsortrdp_type) , intent(in) :: method
13460 end subroutine
13461#endif
13462
13463#if SK2_ENABLED
13464 pure recursive module subroutine setSortedArrDefComQsortrdp_D1_SK2(array, method)
13465#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13466 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortrdp_D1_SK2
13467#endif
13468 use pm_kind, only: SKG => SK2
13469 character(*,SKG) , intent(inout) , contiguous :: array(:)
13470 type(qsortrdp_type) , intent(in) :: method
13471 end subroutine
13472#endif
13473
13474#if SK1_ENABLED
13475 pure recursive module subroutine setSortedArrDefComQsortrdp_D1_SK1(array, method)
13476#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13477 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortrdp_D1_SK1
13478#endif
13479 use pm_kind, only: SKG => SK1
13480 character(*,SKG) , intent(inout) , contiguous :: array(:)
13481 type(qsortrdp_type) , intent(in) :: method
13482 end subroutine
13483#endif
13484
13485 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13486
13487#if IK5_ENABLED
13488 pure recursive module subroutine setSortedArrDefComQsortrdp_D1_IK5(array, method)
13489#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13490 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortrdp_D1_IK5
13491#endif
13492 use pm_kind, only: IKG => IK5
13493 integer(IKG) , intent(inout) , contiguous :: array(:)
13494 type(qsortrdp_type) , intent(in) :: method
13495 end subroutine
13496#endif
13497
13498#if IK4_ENABLED
13499 pure recursive module subroutine setSortedArrDefComQsortrdp_D1_IK4(array, method)
13500#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13501 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortrdp_D1_IK4
13502#endif
13503 use pm_kind, only: IKG => IK4
13504 integer(IKG) , intent(inout) , contiguous :: array(:)
13505 type(qsortrdp_type) , intent(in) :: method
13506 end subroutine
13507#endif
13508
13509#if IK3_ENABLED
13510 pure recursive module subroutine setSortedArrDefComQsortrdp_D1_IK3(array, method)
13511#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13512 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortrdp_D1_IK3
13513#endif
13514 use pm_kind, only: IKG => IK3
13515 integer(IKG) , intent(inout) , contiguous :: array(:)
13516 type(qsortrdp_type) , intent(in) :: method
13517 end subroutine
13518#endif
13519
13520#if IK2_ENABLED
13521 pure recursive module subroutine setSortedArrDefComQsortrdp_D1_IK2(array, method)
13522#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13523 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortrdp_D1_IK2
13524#endif
13525 use pm_kind, only: IKG => IK2
13526 integer(IKG) , intent(inout) , contiguous :: array(:)
13527 type(qsortrdp_type) , intent(in) :: method
13528 end subroutine
13529#endif
13530
13531#if IK1_ENABLED
13532 pure recursive module subroutine setSortedArrDefComQsortrdp_D1_IK1(array, method)
13533#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13534 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortrdp_D1_IK1
13535#endif
13536 use pm_kind, only: IKG => IK1
13537 integer(IKG) , intent(inout) , contiguous :: array(:)
13538 type(qsortrdp_type) , intent(in) :: method
13539 end subroutine
13540#endif
13541
13542 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13543
13544#if LK5_ENABLED
13545 pure recursive module subroutine setSortedArrDefComQsortrdp_D1_LK5(array, method)
13546#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13547 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortrdp_D1_LK5
13548#endif
13549 use pm_kind, only: LKG => LK5
13550 logical(LKG) , intent(inout) , contiguous :: array(:)
13551 type(qsortrdp_type) , intent(in) :: method
13552 end subroutine
13553#endif
13554
13555#if LK4_ENABLED
13556 pure recursive module subroutine setSortedArrDefComQsortrdp_D1_LK4(array, method)
13557#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13558 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortrdp_D1_LK4
13559#endif
13560 use pm_kind, only: LKG => LK4
13561 logical(LKG) , intent(inout) , contiguous :: array(:)
13562 type(qsortrdp_type) , intent(in) :: method
13563 end subroutine
13564#endif
13565
13566#if LK3_ENABLED
13567 pure recursive module subroutine setSortedArrDefComQsortrdp_D1_LK3(array, method)
13568#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13569 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortrdp_D1_LK3
13570#endif
13571 use pm_kind, only: LKG => LK3
13572 logical(LKG) , intent(inout) , contiguous :: array(:)
13573 type(qsortrdp_type) , intent(in) :: method
13574 end subroutine
13575#endif
13576
13577#if LK2_ENABLED
13578 pure recursive module subroutine setSortedArrDefComQsortrdp_D1_LK2(array, method)
13579#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13580 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortrdp_D1_LK2
13581#endif
13582 use pm_kind, only: LKG => LK2
13583 logical(LKG) , intent(inout) , contiguous :: array(:)
13584 type(qsortrdp_type) , intent(in) :: method
13585 end subroutine
13586#endif
13587
13588#if LK1_ENABLED
13589 pure recursive module subroutine setSortedArrDefComQsortrdp_D1_LK1(array, method)
13590#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13591 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortrdp_D1_LK1
13592#endif
13593 use pm_kind, only: LKG => LK1
13594 logical(LKG) , intent(inout) , contiguous :: array(:)
13595 type(qsortrdp_type) , intent(in) :: method
13596 end subroutine
13597#endif
13598
13599 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13600
13601#if CK5_ENABLED
13602 pure recursive module subroutine setSortedArrDefComQsortrdp_D1_CK5(array, method)
13603#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13604 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortrdp_D1_CK5
13605#endif
13606 use pm_kind, only: CKG => CK5
13607 complex(CKG) , intent(inout) , contiguous :: array(:)
13608 type(qsortrdp_type) , intent(in) :: method
13609 end subroutine
13610#endif
13611
13612#if CK4_ENABLED
13613 pure recursive module subroutine setSortedArrDefComQsortrdp_D1_CK4(array, method)
13614#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13615 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortrdp_D1_CK4
13616#endif
13617 use pm_kind, only: CKG => CK4
13618 complex(CKG) , intent(inout) , contiguous :: array(:)
13619 type(qsortrdp_type) , intent(in) :: method
13620 end subroutine
13621#endif
13622
13623#if CK3_ENABLED
13624 pure recursive module subroutine setSortedArrDefComQsortrdp_D1_CK3(array, method)
13625#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13626 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortrdp_D1_CK3
13627#endif
13628 use pm_kind, only: CKG => CK3
13629 complex(CKG) , intent(inout) , contiguous :: array(:)
13630 type(qsortrdp_type) , intent(in) :: method
13631 end subroutine
13632#endif
13633
13634#if CK2_ENABLED
13635 pure recursive module subroutine setSortedArrDefComQsortrdp_D1_CK2(array, method)
13636#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13637 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortrdp_D1_CK2
13638#endif
13639 use pm_kind, only: CKG => CK2
13640 complex(CKG) , intent(inout) , contiguous :: array(:)
13641 type(qsortrdp_type) , intent(in) :: method
13642 end subroutine
13643#endif
13644
13645#if CK1_ENABLED
13646 pure recursive module subroutine setSortedArrDefComQsortrdp_D1_CK1(array, method)
13647#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13648 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortrdp_D1_CK1
13649#endif
13650 use pm_kind, only: CKG => CK1
13651 complex(CKG) , intent(inout) , contiguous :: array(:)
13652 type(qsortrdp_type) , intent(in) :: method
13653 end subroutine
13654#endif
13655
13656 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13657
13658#if RK5_ENABLED
13659 pure recursive module subroutine setSortedArrDefComQsortrdp_D1_RK5(array, method)
13660#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13661 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortrdp_D1_RK5
13662#endif
13663 use pm_kind, only: RKG => RK5
13664 real(RKG) , intent(inout) , contiguous :: array(:)
13665 type(qsortrdp_type) , intent(in) :: method
13666 end subroutine
13667#endif
13668
13669#if RK4_ENABLED
13670 pure recursive module subroutine setSortedArrDefComQsortrdp_D1_RK4(array, method)
13671#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13672 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortrdp_D1_RK4
13673#endif
13674 use pm_kind, only: RKG => RK4
13675 real(RKG) , intent(inout) , contiguous :: array(:)
13676 type(qsortrdp_type) , intent(in) :: method
13677 end subroutine
13678#endif
13679
13680#if RK3_ENABLED
13681 pure recursive module subroutine setSortedArrDefComQsortrdp_D1_RK3(array, method)
13682#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13683 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortrdp_D1_RK3
13684#endif
13685 use pm_kind, only: RKG => RK3
13686 real(RKG) , intent(inout) , contiguous :: array(:)
13687 type(qsortrdp_type) , intent(in) :: method
13688 end subroutine
13689#endif
13690
13691#if RK2_ENABLED
13692 pure recursive module subroutine setSortedArrDefComQsortrdp_D1_RK2(array, method)
13693#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13694 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortrdp_D1_RK2
13695#endif
13696 use pm_kind, only: RKG => RK2
13697 real(RKG) , intent(inout) , contiguous :: array(:)
13698 type(qsortrdp_type) , intent(in) :: method
13699 end subroutine
13700#endif
13701
13702#if RK1_ENABLED
13703 pure recursive module subroutine setSortedArrDefComQsortrdp_D1_RK1(array, method)
13704#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13705 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortrdp_D1_RK1
13706#endif
13707 use pm_kind, only: RKG => RK1
13708 real(RKG) , intent(inout) , contiguous :: array(:)
13709 type(qsortrdp_type) , intent(in) :: method
13710 end subroutine
13711#endif
13712
13713 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13714
13715#if PDT_ENABLED
13716
13717#if SK5_ENABLED
13718 pure recursive module subroutine setSortedArrDefComQsortrdp_D1_PSSK5(array, method)
13719#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13720 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortrdp_D1_PSSK5
13721#endif
13722 use pm_kind, only: SKG => SK5
13723 use pm_container, only: css_pdt
13724 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
13725 type(qsortrdp_type) , intent(in) :: method
13726 end subroutine
13727#endif
13728
13729#if SK4_ENABLED
13730 pure recursive module subroutine setSortedArrDefComQsortrdp_D1_PSSK4(array, method)
13731#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13732 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortrdp_D1_PSSK4
13733#endif
13734 use pm_kind, only: SKG => SK4
13735 use pm_container, only: css_pdt
13736 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
13737 type(qsortrdp_type) , intent(in) :: method
13738 end subroutine
13739#endif
13740
13741#if SK3_ENABLED
13742 pure recursive module subroutine setSortedArrDefComQsortrdp_D1_PSSK3(array, method)
13743#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13744 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortrdp_D1_PSSK3
13745#endif
13746 use pm_kind, only: SKG => SK3
13747 use pm_container, only: css_pdt
13748 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
13749 type(qsortrdp_type) , intent(in) :: method
13750 end subroutine
13751#endif
13752
13753#if SK2_ENABLED
13754 pure recursive module subroutine setSortedArrDefComQsortrdp_D1_PSSK2(array, method)
13755#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13756 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortrdp_D1_PSSK2
13757#endif
13758 use pm_kind, only: SKG => SK2
13759 use pm_container, only: css_pdt
13760 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
13761 type(qsortrdp_type) , intent(in) :: method
13762 end subroutine
13763#endif
13764
13765#if SK1_ENABLED
13766 pure recursive module subroutine setSortedArrDefComQsortrdp_D1_PSSK1(array, method)
13767#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13768 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortrdp_D1_PSSK1
13769#endif
13770 use pm_kind, only: SKG => SK1
13771 use pm_container, only: css_pdt
13772 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
13773 type(qsortrdp_type) , intent(in) :: method
13774 end subroutine
13775#endif
13776
13777#endif
13778!PDT_ENABLED
13779
13780 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13781
13782 pure recursive module subroutine setSortedArrDefComQsortrdp_D1_BSSK(array, method)
13783#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13784 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComQsortrdp_D1_BSSK
13785#endif
13786 use pm_kind, only: SKG => SK
13787 use pm_container, only: css_type
13788 type(css_type) , intent(inout) , contiguous :: array(:)
13789 type(qsortrdp_type) , intent(in) :: method
13790 end subroutine
13791
13792 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13793
13794 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13795 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13796 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13797
13798 end interface
13799
13800 ! setSortedArrDefComBubble
13801
13802 interface setSorted
13803
13804 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13805 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13806 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13807
13808 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13809
13810#if SK5_ENABLED
13811 pure module subroutine setSortedArrDefComBubble_D0_SK5(array, method)
13812#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13813 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComBubble_D0_SK5
13814#endif
13815 use pm_kind, only: SKG => SK5
13816 character(*,SKG) , intent(inout) :: array
13817 type(bubble_type) , intent(in) :: method
13818 end subroutine
13819#endif
13820
13821#if SK4_ENABLED
13822 pure module subroutine setSortedArrDefComBubble_D0_SK4(array, method)
13823#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13824 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComBubble_D0_SK4
13825#endif
13826 use pm_kind, only: SKG => SK4
13827 character(*,SKG) , intent(inout) :: array
13828 type(bubble_type) , intent(in) :: method
13829 end subroutine
13830#endif
13831
13832#if SK3_ENABLED
13833 pure module subroutine setSortedArrDefComBubble_D0_SK3(array, method)
13834#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13835 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComBubble_D0_SK3
13836#endif
13837 use pm_kind, only: SKG => SK3
13838 character(*,SKG) , intent(inout) :: array
13839 type(bubble_type) , intent(in) :: method
13840 end subroutine
13841#endif
13842
13843#if SK2_ENABLED
13844 pure module subroutine setSortedArrDefComBubble_D0_SK2(array, method)
13845#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13846 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComBubble_D0_SK2
13847#endif
13848 use pm_kind, only: SKG => SK2
13849 character(*,SKG) , intent(inout) :: array
13850 type(bubble_type) , intent(in) :: method
13851 end subroutine
13852#endif
13853
13854#if SK1_ENABLED
13855 pure module subroutine setSortedArrDefComBubble_D0_SK1(array, method)
13856#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13857 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComBubble_D0_SK1
13858#endif
13859 use pm_kind, only: SKG => SK1
13860 character(*,SKG) , intent(inout) :: array
13861 type(bubble_type) , intent(in) :: method
13862 end subroutine
13863#endif
13864
13865 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13866
13867#if SK5_ENABLED
13868 pure module subroutine setSortedArrDefComBubble_D1_SK5(array, method)
13869#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13870 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComBubble_D1_SK5
13871#endif
13872 use pm_kind, only: SKG => SK5
13873 character(*,SKG) , intent(inout) , contiguous :: array(:)
13874 type(bubble_type) , intent(in) :: method
13875 end subroutine
13876#endif
13877
13878#if SK4_ENABLED
13879 pure module subroutine setSortedArrDefComBubble_D1_SK4(array, method)
13880#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13881 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComBubble_D1_SK4
13882#endif
13883 use pm_kind, only: SKG => SK4
13884 character(*,SKG) , intent(inout) , contiguous :: array(:)
13885 type(bubble_type) , intent(in) :: method
13886 end subroutine
13887#endif
13888
13889#if SK3_ENABLED
13890 pure module subroutine setSortedArrDefComBubble_D1_SK3(array, method)
13891#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13892 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComBubble_D1_SK3
13893#endif
13894 use pm_kind, only: SKG => SK3
13895 character(*,SKG) , intent(inout) , contiguous :: array(:)
13896 type(bubble_type) , intent(in) :: method
13897 end subroutine
13898#endif
13899
13900#if SK2_ENABLED
13901 pure module subroutine setSortedArrDefComBubble_D1_SK2(array, method)
13902#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13903 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComBubble_D1_SK2
13904#endif
13905 use pm_kind, only: SKG => SK2
13906 character(*,SKG) , intent(inout) , contiguous :: array(:)
13907 type(bubble_type) , intent(in) :: method
13908 end subroutine
13909#endif
13910
13911#if SK1_ENABLED
13912 pure module subroutine setSortedArrDefComBubble_D1_SK1(array, method)
13913#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13914 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComBubble_D1_SK1
13915#endif
13916 use pm_kind, only: SKG => SK1
13917 character(*,SKG) , intent(inout) , contiguous :: array(:)
13918 type(bubble_type) , intent(in) :: method
13919 end subroutine
13920#endif
13921
13922 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13923
13924#if IK5_ENABLED
13925 pure module subroutine setSortedArrDefComBubble_D1_IK5(array, method)
13926#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13927 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComBubble_D1_IK5
13928#endif
13929 use pm_kind, only: IKG => IK5
13930 integer(IKG) , intent(inout) , contiguous :: array(:)
13931 type(bubble_type) , intent(in) :: method
13932 end subroutine
13933#endif
13934
13935#if IK4_ENABLED
13936 pure module subroutine setSortedArrDefComBubble_D1_IK4(array, method)
13937#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13938 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComBubble_D1_IK4
13939#endif
13940 use pm_kind, only: IKG => IK4
13941 integer(IKG) , intent(inout) , contiguous :: array(:)
13942 type(bubble_type) , intent(in) :: method
13943 end subroutine
13944#endif
13945
13946#if IK3_ENABLED
13947 pure module subroutine setSortedArrDefComBubble_D1_IK3(array, method)
13948#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13949 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComBubble_D1_IK3
13950#endif
13951 use pm_kind, only: IKG => IK3
13952 integer(IKG) , intent(inout) , contiguous :: array(:)
13953 type(bubble_type) , intent(in) :: method
13954 end subroutine
13955#endif
13956
13957#if IK2_ENABLED
13958 pure module subroutine setSortedArrDefComBubble_D1_IK2(array, method)
13959#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13960 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComBubble_D1_IK2
13961#endif
13962 use pm_kind, only: IKG => IK2
13963 integer(IKG) , intent(inout) , contiguous :: array(:)
13964 type(bubble_type) , intent(in) :: method
13965 end subroutine
13966#endif
13967
13968#if IK1_ENABLED
13969 pure module subroutine setSortedArrDefComBubble_D1_IK1(array, method)
13970#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13971 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComBubble_D1_IK1
13972#endif
13973 use pm_kind, only: IKG => IK1
13974 integer(IKG) , intent(inout) , contiguous :: array(:)
13975 type(bubble_type) , intent(in) :: method
13976 end subroutine
13977#endif
13978
13979 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13980
13981#if LK5_ENABLED
13982 pure module subroutine setSortedArrDefComBubble_D1_LK5(array, method)
13983#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13984 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComBubble_D1_LK5
13985#endif
13986 use pm_kind, only: LKG => LK5
13987 logical(LKG) , intent(inout) , contiguous :: array(:)
13988 type(bubble_type) , intent(in) :: method
13989 end subroutine
13990#endif
13991
13992#if LK4_ENABLED
13993 pure module subroutine setSortedArrDefComBubble_D1_LK4(array, method)
13994#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13995 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComBubble_D1_LK4
13996#endif
13997 use pm_kind, only: LKG => LK4
13998 logical(LKG) , intent(inout) , contiguous :: array(:)
13999 type(bubble_type) , intent(in) :: method
14000 end subroutine
14001#endif
14002
14003#if LK3_ENABLED
14004 pure module subroutine setSortedArrDefComBubble_D1_LK3(array, method)
14005#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14006 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComBubble_D1_LK3
14007#endif
14008 use pm_kind, only: LKG => LK3
14009 logical(LKG) , intent(inout) , contiguous :: array(:)
14010 type(bubble_type) , intent(in) :: method
14011 end subroutine
14012#endif
14013
14014#if LK2_ENABLED
14015 pure module subroutine setSortedArrDefComBubble_D1_LK2(array, method)
14016#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14017 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComBubble_D1_LK2
14018#endif
14019 use pm_kind, only: LKG => LK2
14020 logical(LKG) , intent(inout) , contiguous :: array(:)
14021 type(bubble_type) , intent(in) :: method
14022 end subroutine
14023#endif
14024
14025#if LK1_ENABLED
14026 pure module subroutine setSortedArrDefComBubble_D1_LK1(array, method)
14027#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14028 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComBubble_D1_LK1
14029#endif
14030 use pm_kind, only: LKG => LK1
14031 logical(LKG) , intent(inout) , contiguous :: array(:)
14032 type(bubble_type) , intent(in) :: method
14033 end subroutine
14034#endif
14035
14036 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14037
14038#if CK5_ENABLED
14039 pure module subroutine setSortedArrDefComBubble_D1_CK5(array, method)
14040#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14041 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComBubble_D1_CK5
14042#endif
14043 use pm_kind, only: CKG => CK5
14044 complex(CKG) , intent(inout) , contiguous :: array(:)
14045 type(bubble_type) , intent(in) :: method
14046 end subroutine
14047#endif
14048
14049#if CK4_ENABLED
14050 pure module subroutine setSortedArrDefComBubble_D1_CK4(array, method)
14051#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14052 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComBubble_D1_CK4
14053#endif
14054 use pm_kind, only: CKG => CK4
14055 complex(CKG) , intent(inout) , contiguous :: array(:)
14056 type(bubble_type) , intent(in) :: method
14057 end subroutine
14058#endif
14059
14060#if CK3_ENABLED
14061 pure module subroutine setSortedArrDefComBubble_D1_CK3(array, method)
14062#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14063 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComBubble_D1_CK3
14064#endif
14065 use pm_kind, only: CKG => CK3
14066 complex(CKG) , intent(inout) , contiguous :: array(:)
14067 type(bubble_type) , intent(in) :: method
14068 end subroutine
14069#endif
14070
14071#if CK2_ENABLED
14072 pure module subroutine setSortedArrDefComBubble_D1_CK2(array, method)
14073#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14074 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComBubble_D1_CK2
14075#endif
14076 use pm_kind, only: CKG => CK2
14077 complex(CKG) , intent(inout) , contiguous :: array(:)
14078 type(bubble_type) , intent(in) :: method
14079 end subroutine
14080#endif
14081
14082#if CK1_ENABLED
14083 pure module subroutine setSortedArrDefComBubble_D1_CK1(array, method)
14084#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14085 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComBubble_D1_CK1
14086#endif
14087 use pm_kind, only: CKG => CK1
14088 complex(CKG) , intent(inout) , contiguous :: array(:)
14089 type(bubble_type) , intent(in) :: method
14090 end subroutine
14091#endif
14092
14093 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14094
14095#if RK5_ENABLED
14096 pure module subroutine setSortedArrDefComBubble_D1_RK5(array, method)
14097#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14098 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComBubble_D1_RK5
14099#endif
14100 use pm_kind, only: RKG => RK5
14101 real(RKG) , intent(inout) , contiguous :: array(:)
14102 type(bubble_type) , intent(in) :: method
14103 end subroutine
14104#endif
14105
14106#if RK4_ENABLED
14107 pure module subroutine setSortedArrDefComBubble_D1_RK4(array, method)
14108#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14109 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComBubble_D1_RK4
14110#endif
14111 use pm_kind, only: RKG => RK4
14112 real(RKG) , intent(inout) , contiguous :: array(:)
14113 type(bubble_type) , intent(in) :: method
14114 end subroutine
14115#endif
14116
14117#if RK3_ENABLED
14118 pure module subroutine setSortedArrDefComBubble_D1_RK3(array, method)
14119#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14120 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComBubble_D1_RK3
14121#endif
14122 use pm_kind, only: RKG => RK3
14123 real(RKG) , intent(inout) , contiguous :: array(:)
14124 type(bubble_type) , intent(in) :: method
14125 end subroutine
14126#endif
14127
14128#if RK2_ENABLED
14129 pure module subroutine setSortedArrDefComBubble_D1_RK2(array, method)
14130#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14131 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComBubble_D1_RK2
14132#endif
14133 use pm_kind, only: RKG => RK2
14134 real(RKG) , intent(inout) , contiguous :: array(:)
14135 type(bubble_type) , intent(in) :: method
14136 end subroutine
14137#endif
14138
14139#if RK1_ENABLED
14140 pure module subroutine setSortedArrDefComBubble_D1_RK1(array, method)
14141#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14142 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComBubble_D1_RK1
14143#endif
14144 use pm_kind, only: RKG => RK1
14145 real(RKG) , intent(inout) , contiguous :: array(:)
14146 type(bubble_type) , intent(in) :: method
14147 end subroutine
14148#endif
14149
14150 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14151
14152#if PDT_ENABLED
14153
14154#if SK5_ENABLED
14155 pure module subroutine setSortedArrDefComBubble_D1_PSSK5(array, method)
14156#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14157 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComBubble_D1_PSSK5
14158#endif
14159 use pm_kind, only: SKG => SK5
14160 use pm_container, only: css_pdt
14161 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
14162 type(bubble_type) , intent(in) :: method
14163 end subroutine
14164#endif
14165
14166#if SK4_ENABLED
14167 pure module subroutine setSortedArrDefComBubble_D1_PSSK4(array, method)
14168#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14169 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComBubble_D1_PSSK4
14170#endif
14171 use pm_kind, only: SKG => SK4
14172 use pm_container, only: css_pdt
14173 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
14174 type(bubble_type) , intent(in) :: method
14175 end subroutine
14176#endif
14177
14178#if SK3_ENABLED
14179 pure module subroutine setSortedArrDefComBubble_D1_PSSK3(array, method)
14180#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14181 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComBubble_D1_PSSK3
14182#endif
14183 use pm_kind, only: SKG => SK3
14184 use pm_container, only: css_pdt
14185 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
14186 type(bubble_type) , intent(in) :: method
14187 end subroutine
14188#endif
14189
14190#if SK2_ENABLED
14191 pure module subroutine setSortedArrDefComBubble_D1_PSSK2(array, method)
14192#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14193 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComBubble_D1_PSSK2
14194#endif
14195 use pm_kind, only: SKG => SK2
14196 use pm_container, only: css_pdt
14197 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
14198 type(bubble_type) , intent(in) :: method
14199 end subroutine
14200#endif
14201
14202#if SK1_ENABLED
14203 pure module subroutine setSortedArrDefComBubble_D1_PSSK1(array, method)
14204#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14205 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComBubble_D1_PSSK1
14206#endif
14207 use pm_kind, only: SKG => SK1
14208 use pm_container, only: css_pdt
14209 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
14210 type(bubble_type) , intent(in) :: method
14211 end subroutine
14212#endif
14213
14214#endif
14215!PDT_ENABLED
14216
14217 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14218
14219 pure module subroutine setSortedArrDefComBubble_D1_BSSK(array, method)
14220#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14221 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComBubble_D1_BSSK
14222#endif
14223 use pm_kind, only: SKG => SK
14224 use pm_container, only: css_type
14225 type(css_type) , intent(inout) , contiguous :: array(:)
14226 type(bubble_type) , intent(in) :: method
14227 end subroutine
14228
14229 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14230
14231 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14232 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14233 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14234
14235 end interface
14236
14237 ! setSortedArrDefComHeapi
14238
14239 interface setSorted
14240
14241 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14242 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14243 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14244
14245 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14246
14247#if SK5_ENABLED
14248 pure module subroutine setSortedArrDefComHeapi_D0_SK5(array, method)
14249#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14250 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapi_D0_SK5
14251#endif
14252 use pm_kind, only: SKG => SK5
14253 character(*,SKG) , intent(inout) :: array
14254 type(heapi_type) , intent(in) :: method
14255 end subroutine
14256#endif
14257
14258#if SK4_ENABLED
14259 pure module subroutine setSortedArrDefComHeapi_D0_SK4(array, method)
14260#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14261 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapi_D0_SK4
14262#endif
14263 use pm_kind, only: SKG => SK4
14264 character(*,SKG) , intent(inout) :: array
14265 type(heapi_type) , intent(in) :: method
14266 end subroutine
14267#endif
14268
14269#if SK3_ENABLED
14270 pure module subroutine setSortedArrDefComHeapi_D0_SK3(array, method)
14271#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14272 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapi_D0_SK3
14273#endif
14274 use pm_kind, only: SKG => SK3
14275 character(*,SKG) , intent(inout) :: array
14276 type(heapi_type) , intent(in) :: method
14277 end subroutine
14278#endif
14279
14280#if SK2_ENABLED
14281 pure module subroutine setSortedArrDefComHeapi_D0_SK2(array, method)
14282#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14283 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapi_D0_SK2
14284#endif
14285 use pm_kind, only: SKG => SK2
14286 character(*,SKG) , intent(inout) :: array
14287 type(heapi_type) , intent(in) :: method
14288 end subroutine
14289#endif
14290
14291#if SK1_ENABLED
14292 pure module subroutine setSortedArrDefComHeapi_D0_SK1(array, method)
14293#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14294 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapi_D0_SK1
14295#endif
14296 use pm_kind, only: SKG => SK1
14297 character(*,SKG) , intent(inout) :: array
14298 type(heapi_type) , intent(in) :: method
14299 end subroutine
14300#endif
14301
14302 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14303
14304#if SK5_ENABLED
14305 pure module subroutine setSortedArrDefComHeapi_D1_SK5(array, method)
14306#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14307 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapi_D1_SK5
14308#endif
14309 use pm_kind, only: SKG => SK5
14310 character(*,SKG) , intent(inout) , contiguous :: array(:)
14311 type(heapi_type) , intent(in) :: method
14312 end subroutine
14313#endif
14314
14315#if SK4_ENABLED
14316 pure module subroutine setSortedArrDefComHeapi_D1_SK4(array, method)
14317#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14318 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapi_D1_SK4
14319#endif
14320 use pm_kind, only: SKG => SK4
14321 character(*,SKG) , intent(inout) , contiguous :: array(:)
14322 type(heapi_type) , intent(in) :: method
14323 end subroutine
14324#endif
14325
14326#if SK3_ENABLED
14327 pure module subroutine setSortedArrDefComHeapi_D1_SK3(array, method)
14328#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14329 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapi_D1_SK3
14330#endif
14331 use pm_kind, only: SKG => SK3
14332 character(*,SKG) , intent(inout) , contiguous :: array(:)
14333 type(heapi_type) , intent(in) :: method
14334 end subroutine
14335#endif
14336
14337#if SK2_ENABLED
14338 pure module subroutine setSortedArrDefComHeapi_D1_SK2(array, method)
14339#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14340 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapi_D1_SK2
14341#endif
14342 use pm_kind, only: SKG => SK2
14343 character(*,SKG) , intent(inout) , contiguous :: array(:)
14344 type(heapi_type) , intent(in) :: method
14345 end subroutine
14346#endif
14347
14348#if SK1_ENABLED
14349 pure module subroutine setSortedArrDefComHeapi_D1_SK1(array, method)
14350#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14351 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapi_D1_SK1
14352#endif
14353 use pm_kind, only: SKG => SK1
14354 character(*,SKG) , intent(inout) , contiguous :: array(:)
14355 type(heapi_type) , intent(in) :: method
14356 end subroutine
14357#endif
14358
14359 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14360
14361#if IK5_ENABLED
14362 pure module subroutine setSortedArrDefComHeapi_D1_IK5(array, method)
14363#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14364 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapi_D1_IK5
14365#endif
14366 use pm_kind, only: IKG => IK5
14367 integer(IKG) , intent(inout) , contiguous :: array(:)
14368 type(heapi_type) , intent(in) :: method
14369 end subroutine
14370#endif
14371
14372#if IK4_ENABLED
14373 pure module subroutine setSortedArrDefComHeapi_D1_IK4(array, method)
14374#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14375 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapi_D1_IK4
14376#endif
14377 use pm_kind, only: IKG => IK4
14378 integer(IKG) , intent(inout) , contiguous :: array(:)
14379 type(heapi_type) , intent(in) :: method
14380 end subroutine
14381#endif
14382
14383#if IK3_ENABLED
14384 pure module subroutine setSortedArrDefComHeapi_D1_IK3(array, method)
14385#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14386 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapi_D1_IK3
14387#endif
14388 use pm_kind, only: IKG => IK3
14389 integer(IKG) , intent(inout) , contiguous :: array(:)
14390 type(heapi_type) , intent(in) :: method
14391 end subroutine
14392#endif
14393
14394#if IK2_ENABLED
14395 pure module subroutine setSortedArrDefComHeapi_D1_IK2(array, method)
14396#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14397 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapi_D1_IK2
14398#endif
14399 use pm_kind, only: IKG => IK2
14400 integer(IKG) , intent(inout) , contiguous :: array(:)
14401 type(heapi_type) , intent(in) :: method
14402 end subroutine
14403#endif
14404
14405#if IK1_ENABLED
14406 pure module subroutine setSortedArrDefComHeapi_D1_IK1(array, method)
14407#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14408 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapi_D1_IK1
14409#endif
14410 use pm_kind, only: IKG => IK1
14411 integer(IKG) , intent(inout) , contiguous :: array(:)
14412 type(heapi_type) , intent(in) :: method
14413 end subroutine
14414#endif
14415
14416 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14417
14418#if LK5_ENABLED
14419 pure module subroutine setSortedArrDefComHeapi_D1_LK5(array, method)
14420#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14421 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapi_D1_LK5
14422#endif
14423 use pm_kind, only: LKG => LK5
14424 logical(LKG) , intent(inout) , contiguous :: array(:)
14425 type(heapi_type) , intent(in) :: method
14426 end subroutine
14427#endif
14428
14429#if LK4_ENABLED
14430 pure module subroutine setSortedArrDefComHeapi_D1_LK4(array, method)
14431#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14432 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapi_D1_LK4
14433#endif
14434 use pm_kind, only: LKG => LK4
14435 logical(LKG) , intent(inout) , contiguous :: array(:)
14436 type(heapi_type) , intent(in) :: method
14437 end subroutine
14438#endif
14439
14440#if LK3_ENABLED
14441 pure module subroutine setSortedArrDefComHeapi_D1_LK3(array, method)
14442#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14443 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapi_D1_LK3
14444#endif
14445 use pm_kind, only: LKG => LK3
14446 logical(LKG) , intent(inout) , contiguous :: array(:)
14447 type(heapi_type) , intent(in) :: method
14448 end subroutine
14449#endif
14450
14451#if LK2_ENABLED
14452 pure module subroutine setSortedArrDefComHeapi_D1_LK2(array, method)
14453#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14454 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapi_D1_LK2
14455#endif
14456 use pm_kind, only: LKG => LK2
14457 logical(LKG) , intent(inout) , contiguous :: array(:)
14458 type(heapi_type) , intent(in) :: method
14459 end subroutine
14460#endif
14461
14462#if LK1_ENABLED
14463 pure module subroutine setSortedArrDefComHeapi_D1_LK1(array, method)
14464#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14465 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapi_D1_LK1
14466#endif
14467 use pm_kind, only: LKG => LK1
14468 logical(LKG) , intent(inout) , contiguous :: array(:)
14469 type(heapi_type) , intent(in) :: method
14470 end subroutine
14471#endif
14472
14473 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14474
14475#if CK5_ENABLED
14476 pure module subroutine setSortedArrDefComHeapi_D1_CK5(array, method)
14477#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14478 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapi_D1_CK5
14479#endif
14480 use pm_kind, only: CKG => CK5
14481 complex(CKG) , intent(inout) , contiguous :: array(:)
14482 type(heapi_type) , intent(in) :: method
14483 end subroutine
14484#endif
14485
14486#if CK4_ENABLED
14487 pure module subroutine setSortedArrDefComHeapi_D1_CK4(array, method)
14488#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14489 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapi_D1_CK4
14490#endif
14491 use pm_kind, only: CKG => CK4
14492 complex(CKG) , intent(inout) , contiguous :: array(:)
14493 type(heapi_type) , intent(in) :: method
14494 end subroutine
14495#endif
14496
14497#if CK3_ENABLED
14498 pure module subroutine setSortedArrDefComHeapi_D1_CK3(array, method)
14499#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14500 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapi_D1_CK3
14501#endif
14502 use pm_kind, only: CKG => CK3
14503 complex(CKG) , intent(inout) , contiguous :: array(:)
14504 type(heapi_type) , intent(in) :: method
14505 end subroutine
14506#endif
14507
14508#if CK2_ENABLED
14509 pure module subroutine setSortedArrDefComHeapi_D1_CK2(array, method)
14510#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14511 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapi_D1_CK2
14512#endif
14513 use pm_kind, only: CKG => CK2
14514 complex(CKG) , intent(inout) , contiguous :: array(:)
14515 type(heapi_type) , intent(in) :: method
14516 end subroutine
14517#endif
14518
14519#if CK1_ENABLED
14520 pure module subroutine setSortedArrDefComHeapi_D1_CK1(array, method)
14521#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14522 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapi_D1_CK1
14523#endif
14524 use pm_kind, only: CKG => CK1
14525 complex(CKG) , intent(inout) , contiguous :: array(:)
14526 type(heapi_type) , intent(in) :: method
14527 end subroutine
14528#endif
14529
14530 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14531
14532#if RK5_ENABLED
14533 pure module subroutine setSortedArrDefComHeapi_D1_RK5(array, method)
14534#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14535 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapi_D1_RK5
14536#endif
14537 use pm_kind, only: RKG => RK5
14538 real(RKG) , intent(inout) , contiguous :: array(:)
14539 type(heapi_type) , intent(in) :: method
14540 end subroutine
14541#endif
14542
14543#if RK4_ENABLED
14544 pure module subroutine setSortedArrDefComHeapi_D1_RK4(array, method)
14545#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14546 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapi_D1_RK4
14547#endif
14548 use pm_kind, only: RKG => RK4
14549 real(RKG) , intent(inout) , contiguous :: array(:)
14550 type(heapi_type) , intent(in) :: method
14551 end subroutine
14552#endif
14553
14554#if RK3_ENABLED
14555 pure module subroutine setSortedArrDefComHeapi_D1_RK3(array, method)
14556#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14557 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapi_D1_RK3
14558#endif
14559 use pm_kind, only: RKG => RK3
14560 real(RKG) , intent(inout) , contiguous :: array(:)
14561 type(heapi_type) , intent(in) :: method
14562 end subroutine
14563#endif
14564
14565#if RK2_ENABLED
14566 pure module subroutine setSortedArrDefComHeapi_D1_RK2(array, method)
14567#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14568 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapi_D1_RK2
14569#endif
14570 use pm_kind, only: RKG => RK2
14571 real(RKG) , intent(inout) , contiguous :: array(:)
14572 type(heapi_type) , intent(in) :: method
14573 end subroutine
14574#endif
14575
14576#if RK1_ENABLED
14577 pure module subroutine setSortedArrDefComHeapi_D1_RK1(array, method)
14578#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14579 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapi_D1_RK1
14580#endif
14581 use pm_kind, only: RKG => RK1
14582 real(RKG) , intent(inout) , contiguous :: array(:)
14583 type(heapi_type) , intent(in) :: method
14584 end subroutine
14585#endif
14586
14587 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14588
14589#if PDT_ENABLED
14590
14591#if SK5_ENABLED
14592 pure module subroutine setSortedArrDefComHeapi_D1_PSSK5(array, method)
14593#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14594 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapi_D1_PSSK5
14595#endif
14596 use pm_kind, only: SKG => SK5
14597 use pm_container, only: css_pdt
14598 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
14599 type(heapi_type) , intent(in) :: method
14600 end subroutine
14601#endif
14602
14603#if SK4_ENABLED
14604 pure module subroutine setSortedArrDefComHeapi_D1_PSSK4(array, method)
14605#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14606 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapi_D1_PSSK4
14607#endif
14608 use pm_kind, only: SKG => SK4
14609 use pm_container, only: css_pdt
14610 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
14611 type(heapi_type) , intent(in) :: method
14612 end subroutine
14613#endif
14614
14615#if SK3_ENABLED
14616 pure module subroutine setSortedArrDefComHeapi_D1_PSSK3(array, method)
14617#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14618 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapi_D1_PSSK3
14619#endif
14620 use pm_kind, only: SKG => SK3
14621 use pm_container, only: css_pdt
14622 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
14623 type(heapi_type) , intent(in) :: method
14624 end subroutine
14625#endif
14626
14627#if SK2_ENABLED
14628 pure module subroutine setSortedArrDefComHeapi_D1_PSSK2(array, method)
14629#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14630 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapi_D1_PSSK2
14631#endif
14632 use pm_kind, only: SKG => SK2
14633 use pm_container, only: css_pdt
14634 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
14635 type(heapi_type) , intent(in) :: method
14636 end subroutine
14637#endif
14638
14639#if SK1_ENABLED
14640 pure module subroutine setSortedArrDefComHeapi_D1_PSSK1(array, method)
14641#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14642 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapi_D1_PSSK1
14643#endif
14644 use pm_kind, only: SKG => SK1
14645 use pm_container, only: css_pdt
14646 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
14647 type(heapi_type) , intent(in) :: method
14648 end subroutine
14649#endif
14650
14651#endif
14652!PDT_ENABLED
14653
14654 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14655
14656 pure module subroutine setSortedArrDefComHeapi_D1_BSSK(array, method)
14657#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14658 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapi_D1_BSSK
14659#endif
14660 use pm_kind, only: SKG => SK
14661 use pm_container, only: css_type
14662 type(css_type) , intent(inout) , contiguous :: array(:)
14663 type(heapi_type) , intent(in) :: method
14664 end subroutine
14665
14666 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14667
14668 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14669 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14670 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14671
14672 end interface
14673
14674 ! setSortedArrDefComHeapr
14675
14676 interface setSorted
14677
14678 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14679 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14680 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14681
14682 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14683
14684#if SK5_ENABLED
14685 pure module subroutine setSortedArrDefComHeapr_D0_SK5(array, method)
14686#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14687 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapr_D0_SK5
14688#endif
14689 use pm_kind, only: SKG => SK5
14690 character(*,SKG) , intent(inout) :: array
14691 type(heapr_type) , intent(in) :: method
14692 end subroutine
14693#endif
14694
14695#if SK4_ENABLED
14696 pure module subroutine setSortedArrDefComHeapr_D0_SK4(array, method)
14697#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14698 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapr_D0_SK4
14699#endif
14700 use pm_kind, only: SKG => SK4
14701 character(*,SKG) , intent(inout) :: array
14702 type(heapr_type) , intent(in) :: method
14703 end subroutine
14704#endif
14705
14706#if SK3_ENABLED
14707 pure module subroutine setSortedArrDefComHeapr_D0_SK3(array, method)
14708#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14709 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapr_D0_SK3
14710#endif
14711 use pm_kind, only: SKG => SK3
14712 character(*,SKG) , intent(inout) :: array
14713 type(heapr_type) , intent(in) :: method
14714 end subroutine
14715#endif
14716
14717#if SK2_ENABLED
14718 pure module subroutine setSortedArrDefComHeapr_D0_SK2(array, method)
14719#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14720 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapr_D0_SK2
14721#endif
14722 use pm_kind, only: SKG => SK2
14723 character(*,SKG) , intent(inout) :: array
14724 type(heapr_type) , intent(in) :: method
14725 end subroutine
14726#endif
14727
14728#if SK1_ENABLED
14729 pure module subroutine setSortedArrDefComHeapr_D0_SK1(array, method)
14730#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14731 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapr_D0_SK1
14732#endif
14733 use pm_kind, only: SKG => SK1
14734 character(*,SKG) , intent(inout) :: array
14735 type(heapr_type) , intent(in) :: method
14736 end subroutine
14737#endif
14738
14739 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14740
14741#if SK5_ENABLED
14742 pure module subroutine setSortedArrDefComHeapr_D1_SK5(array, method)
14743#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14744 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapr_D1_SK5
14745#endif
14746 use pm_kind, only: SKG => SK5
14747 character(*,SKG) , intent(inout) , contiguous :: array(:)
14748 type(heapr_type) , intent(in) :: method
14749 end subroutine
14750#endif
14751
14752#if SK4_ENABLED
14753 pure module subroutine setSortedArrDefComHeapr_D1_SK4(array, method)
14754#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14755 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapr_D1_SK4
14756#endif
14757 use pm_kind, only: SKG => SK4
14758 character(*,SKG) , intent(inout) , contiguous :: array(:)
14759 type(heapr_type) , intent(in) :: method
14760 end subroutine
14761#endif
14762
14763#if SK3_ENABLED
14764 pure module subroutine setSortedArrDefComHeapr_D1_SK3(array, method)
14765#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14766 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapr_D1_SK3
14767#endif
14768 use pm_kind, only: SKG => SK3
14769 character(*,SKG) , intent(inout) , contiguous :: array(:)
14770 type(heapr_type) , intent(in) :: method
14771 end subroutine
14772#endif
14773
14774#if SK2_ENABLED
14775 pure module subroutine setSortedArrDefComHeapr_D1_SK2(array, method)
14776#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14777 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapr_D1_SK2
14778#endif
14779 use pm_kind, only: SKG => SK2
14780 character(*,SKG) , intent(inout) , contiguous :: array(:)
14781 type(heapr_type) , intent(in) :: method
14782 end subroutine
14783#endif
14784
14785#if SK1_ENABLED
14786 pure module subroutine setSortedArrDefComHeapr_D1_SK1(array, method)
14787#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14788 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapr_D1_SK1
14789#endif
14790 use pm_kind, only: SKG => SK1
14791 character(*,SKG) , intent(inout) , contiguous :: array(:)
14792 type(heapr_type) , intent(in) :: method
14793 end subroutine
14794#endif
14795
14796 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14797
14798#if IK5_ENABLED
14799 pure module subroutine setSortedArrDefComHeapr_D1_IK5(array, method)
14800#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14801 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapr_D1_IK5
14802#endif
14803 use pm_kind, only: IKG => IK5
14804 integer(IKG) , intent(inout) , contiguous :: array(:)
14805 type(heapr_type) , intent(in) :: method
14806 end subroutine
14807#endif
14808
14809#if IK4_ENABLED
14810 pure module subroutine setSortedArrDefComHeapr_D1_IK4(array, method)
14811#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14812 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapr_D1_IK4
14813#endif
14814 use pm_kind, only: IKG => IK4
14815 integer(IKG) , intent(inout) , contiguous :: array(:)
14816 type(heapr_type) , intent(in) :: method
14817 end subroutine
14818#endif
14819
14820#if IK3_ENABLED
14821 pure module subroutine setSortedArrDefComHeapr_D1_IK3(array, method)
14822#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14823 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapr_D1_IK3
14824#endif
14825 use pm_kind, only: IKG => IK3
14826 integer(IKG) , intent(inout) , contiguous :: array(:)
14827 type(heapr_type) , intent(in) :: method
14828 end subroutine
14829#endif
14830
14831#if IK2_ENABLED
14832 pure module subroutine setSortedArrDefComHeapr_D1_IK2(array, method)
14833#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14834 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapr_D1_IK2
14835#endif
14836 use pm_kind, only: IKG => IK2
14837 integer(IKG) , intent(inout) , contiguous :: array(:)
14838 type(heapr_type) , intent(in) :: method
14839 end subroutine
14840#endif
14841
14842#if IK1_ENABLED
14843 pure module subroutine setSortedArrDefComHeapr_D1_IK1(array, method)
14844#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14845 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapr_D1_IK1
14846#endif
14847 use pm_kind, only: IKG => IK1
14848 integer(IKG) , intent(inout) , contiguous :: array(:)
14849 type(heapr_type) , intent(in) :: method
14850 end subroutine
14851#endif
14852
14853 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14854
14855#if LK5_ENABLED
14856 pure module subroutine setSortedArrDefComHeapr_D1_LK5(array, method)
14857#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14858 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapr_D1_LK5
14859#endif
14860 use pm_kind, only: LKG => LK5
14861 logical(LKG) , intent(inout) , contiguous :: array(:)
14862 type(heapr_type) , intent(in) :: method
14863 end subroutine
14864#endif
14865
14866#if LK4_ENABLED
14867 pure module subroutine setSortedArrDefComHeapr_D1_LK4(array, method)
14868#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14869 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapr_D1_LK4
14870#endif
14871 use pm_kind, only: LKG => LK4
14872 logical(LKG) , intent(inout) , contiguous :: array(:)
14873 type(heapr_type) , intent(in) :: method
14874 end subroutine
14875#endif
14876
14877#if LK3_ENABLED
14878 pure module subroutine setSortedArrDefComHeapr_D1_LK3(array, method)
14879#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14880 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapr_D1_LK3
14881#endif
14882 use pm_kind, only: LKG => LK3
14883 logical(LKG) , intent(inout) , contiguous :: array(:)
14884 type(heapr_type) , intent(in) :: method
14885 end subroutine
14886#endif
14887
14888#if LK2_ENABLED
14889 pure module subroutine setSortedArrDefComHeapr_D1_LK2(array, method)
14890#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14891 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapr_D1_LK2
14892#endif
14893 use pm_kind, only: LKG => LK2
14894 logical(LKG) , intent(inout) , contiguous :: array(:)
14895 type(heapr_type) , intent(in) :: method
14896 end subroutine
14897#endif
14898
14899#if LK1_ENABLED
14900 pure module subroutine setSortedArrDefComHeapr_D1_LK1(array, method)
14901#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14902 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapr_D1_LK1
14903#endif
14904 use pm_kind, only: LKG => LK1
14905 logical(LKG) , intent(inout) , contiguous :: array(:)
14906 type(heapr_type) , intent(in) :: method
14907 end subroutine
14908#endif
14909
14910 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14911
14912#if CK5_ENABLED
14913 pure module subroutine setSortedArrDefComHeapr_D1_CK5(array, method)
14914#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14915 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapr_D1_CK5
14916#endif
14917 use pm_kind, only: CKG => CK5
14918 complex(CKG) , intent(inout) , contiguous :: array(:)
14919 type(heapr_type) , intent(in) :: method
14920 end subroutine
14921#endif
14922
14923#if CK4_ENABLED
14924 pure module subroutine setSortedArrDefComHeapr_D1_CK4(array, method)
14925#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14926 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapr_D1_CK4
14927#endif
14928 use pm_kind, only: CKG => CK4
14929 complex(CKG) , intent(inout) , contiguous :: array(:)
14930 type(heapr_type) , intent(in) :: method
14931 end subroutine
14932#endif
14933
14934#if CK3_ENABLED
14935 pure module subroutine setSortedArrDefComHeapr_D1_CK3(array, method)
14936#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14937 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapr_D1_CK3
14938#endif
14939 use pm_kind, only: CKG => CK3
14940 complex(CKG) , intent(inout) , contiguous :: array(:)
14941 type(heapr_type) , intent(in) :: method
14942 end subroutine
14943#endif
14944
14945#if CK2_ENABLED
14946 pure module subroutine setSortedArrDefComHeapr_D1_CK2(array, method)
14947#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14948 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapr_D1_CK2
14949#endif
14950 use pm_kind, only: CKG => CK2
14951 complex(CKG) , intent(inout) , contiguous :: array(:)
14952 type(heapr_type) , intent(in) :: method
14953 end subroutine
14954#endif
14955
14956#if CK1_ENABLED
14957 pure module subroutine setSortedArrDefComHeapr_D1_CK1(array, method)
14958#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14959 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapr_D1_CK1
14960#endif
14961 use pm_kind, only: CKG => CK1
14962 complex(CKG) , intent(inout) , contiguous :: array(:)
14963 type(heapr_type) , intent(in) :: method
14964 end subroutine
14965#endif
14966
14967 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14968
14969#if RK5_ENABLED
14970 pure module subroutine setSortedArrDefComHeapr_D1_RK5(array, method)
14971#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14972 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapr_D1_RK5
14973#endif
14974 use pm_kind, only: RKG => RK5
14975 real(RKG) , intent(inout) , contiguous :: array(:)
14976 type(heapr_type) , intent(in) :: method
14977 end subroutine
14978#endif
14979
14980#if RK4_ENABLED
14981 pure module subroutine setSortedArrDefComHeapr_D1_RK4(array, method)
14982#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14983 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapr_D1_RK4
14984#endif
14985 use pm_kind, only: RKG => RK4
14986 real(RKG) , intent(inout) , contiguous :: array(:)
14987 type(heapr_type) , intent(in) :: method
14988 end subroutine
14989#endif
14990
14991#if RK3_ENABLED
14992 pure module subroutine setSortedArrDefComHeapr_D1_RK3(array, method)
14993#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14994 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapr_D1_RK3
14995#endif
14996 use pm_kind, only: RKG => RK3
14997 real(RKG) , intent(inout) , contiguous :: array(:)
14998 type(heapr_type) , intent(in) :: method
14999 end subroutine
15000#endif
15001
15002#if RK2_ENABLED
15003 pure module subroutine setSortedArrDefComHeapr_D1_RK2(array, method)
15004#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15005 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapr_D1_RK2
15006#endif
15007 use pm_kind, only: RKG => RK2
15008 real(RKG) , intent(inout) , contiguous :: array(:)
15009 type(heapr_type) , intent(in) :: method
15010 end subroutine
15011#endif
15012
15013#if RK1_ENABLED
15014 pure module subroutine setSortedArrDefComHeapr_D1_RK1(array, method)
15015#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15016 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapr_D1_RK1
15017#endif
15018 use pm_kind, only: RKG => RK1
15019 real(RKG) , intent(inout) , contiguous :: array(:)
15020 type(heapr_type) , intent(in) :: method
15021 end subroutine
15022#endif
15023
15024 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15025
15026#if PDT_ENABLED
15027
15028#if SK5_ENABLED
15029 pure module subroutine setSortedArrDefComHeapr_D1_PSSK5(array, method)
15030#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15031 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapr_D1_PSSK5
15032#endif
15033 use pm_kind, only: SKG => SK5
15034 use pm_container, only: css_pdt
15035 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
15036 type(heapr_type) , intent(in) :: method
15037 end subroutine
15038#endif
15039
15040#if SK4_ENABLED
15041 pure module subroutine setSortedArrDefComHeapr_D1_PSSK4(array, method)
15042#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15043 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapr_D1_PSSK4
15044#endif
15045 use pm_kind, only: SKG => SK4
15046 use pm_container, only: css_pdt
15047 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
15048 type(heapr_type) , intent(in) :: method
15049 end subroutine
15050#endif
15051
15052#if SK3_ENABLED
15053 pure module subroutine setSortedArrDefComHeapr_D1_PSSK3(array, method)
15054#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15055 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapr_D1_PSSK3
15056#endif
15057 use pm_kind, only: SKG => SK3
15058 use pm_container, only: css_pdt
15059 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
15060 type(heapr_type) , intent(in) :: method
15061 end subroutine
15062#endif
15063
15064#if SK2_ENABLED
15065 pure module subroutine setSortedArrDefComHeapr_D1_PSSK2(array, method)
15066#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15067 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapr_D1_PSSK2
15068#endif
15069 use pm_kind, only: SKG => SK2
15070 use pm_container, only: css_pdt
15071 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
15072 type(heapr_type) , intent(in) :: method
15073 end subroutine
15074#endif
15075
15076#if SK1_ENABLED
15077 pure module subroutine setSortedArrDefComHeapr_D1_PSSK1(array, method)
15078#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15079 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapr_D1_PSSK1
15080#endif
15081 use pm_kind, only: SKG => SK1
15082 use pm_container, only: css_pdt
15083 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
15084 type(heapr_type) , intent(in) :: method
15085 end subroutine
15086#endif
15087
15088#endif
15089!PDT_ENABLED
15090
15091 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15092
15093 pure module subroutine setSortedArrDefComHeapr_D1_BSSK(array, method)
15094#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15095 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComHeapr_D1_BSSK
15096#endif
15097 use pm_kind, only: SKG => SK
15098 use pm_container, only: css_type
15099 type(css_type) , intent(inout) , contiguous :: array(:)
15100 type(heapr_type) , intent(in) :: method
15101 end subroutine
15102
15103 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15104
15105 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15106 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15107 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15108
15109 end interface
15110
15111 ! setSortedArrDefComInsertionl
15112
15113 interface setSorted
15114
15115 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15116 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15117 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15118
15119 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15120
15121#if SK5_ENABLED
15122 pure module subroutine setSortedArrDefComInsertionl_D0_SK5(array, method)
15123#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15124 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionl_D0_SK5
15125#endif
15126 use pm_kind, only: SKG => SK5
15127 character(*,SKG) , intent(inout) :: array
15128 type(insertionl_type) , intent(in) :: method
15129 end subroutine
15130#endif
15131
15132#if SK4_ENABLED
15133 pure module subroutine setSortedArrDefComInsertionl_D0_SK4(array, method)
15134#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15135 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionl_D0_SK4
15136#endif
15137 use pm_kind, only: SKG => SK4
15138 character(*,SKG) , intent(inout) :: array
15139 type(insertionl_type) , intent(in) :: method
15140 end subroutine
15141#endif
15142
15143#if SK3_ENABLED
15144 pure module subroutine setSortedArrDefComInsertionl_D0_SK3(array, method)
15145#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15146 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionl_D0_SK3
15147#endif
15148 use pm_kind, only: SKG => SK3
15149 character(*,SKG) , intent(inout) :: array
15150 type(insertionl_type) , intent(in) :: method
15151 end subroutine
15152#endif
15153
15154#if SK2_ENABLED
15155 pure module subroutine setSortedArrDefComInsertionl_D0_SK2(array, method)
15156#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15157 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionl_D0_SK2
15158#endif
15159 use pm_kind, only: SKG => SK2
15160 character(*,SKG) , intent(inout) :: array
15161 type(insertionl_type) , intent(in) :: method
15162 end subroutine
15163#endif
15164
15165#if SK1_ENABLED
15166 pure module subroutine setSortedArrDefComInsertionl_D0_SK1(array, method)
15167#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15168 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionl_D0_SK1
15169#endif
15170 use pm_kind, only: SKG => SK1
15171 character(*,SKG) , intent(inout) :: array
15172 type(insertionl_type) , intent(in) :: method
15173 end subroutine
15174#endif
15175
15176 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15177
15178#if SK5_ENABLED
15179 pure module subroutine setSortedArrDefComInsertionl_D1_SK5(array, method)
15180#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15181 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionl_D1_SK5
15182#endif
15183 use pm_kind, only: SKG => SK5
15184 character(*,SKG) , intent(inout) , contiguous :: array(:)
15185 type(insertionl_type) , intent(in) :: method
15186 end subroutine
15187#endif
15188
15189#if SK4_ENABLED
15190 pure module subroutine setSortedArrDefComInsertionl_D1_SK4(array, method)
15191#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15192 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionl_D1_SK4
15193#endif
15194 use pm_kind, only: SKG => SK4
15195 character(*,SKG) , intent(inout) , contiguous :: array(:)
15196 type(insertionl_type) , intent(in) :: method
15197 end subroutine
15198#endif
15199
15200#if SK3_ENABLED
15201 pure module subroutine setSortedArrDefComInsertionl_D1_SK3(array, method)
15202#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15203 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionl_D1_SK3
15204#endif
15205 use pm_kind, only: SKG => SK3
15206 character(*,SKG) , intent(inout) , contiguous :: array(:)
15207 type(insertionl_type) , intent(in) :: method
15208 end subroutine
15209#endif
15210
15211#if SK2_ENABLED
15212 pure module subroutine setSortedArrDefComInsertionl_D1_SK2(array, method)
15213#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15214 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionl_D1_SK2
15215#endif
15216 use pm_kind, only: SKG => SK2
15217 character(*,SKG) , intent(inout) , contiguous :: array(:)
15218 type(insertionl_type) , intent(in) :: method
15219 end subroutine
15220#endif
15221
15222#if SK1_ENABLED
15223 pure module subroutine setSortedArrDefComInsertionl_D1_SK1(array, method)
15224#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15225 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionl_D1_SK1
15226#endif
15227 use pm_kind, only: SKG => SK1
15228 character(*,SKG) , intent(inout) , contiguous :: array(:)
15229 type(insertionl_type) , intent(in) :: method
15230 end subroutine
15231#endif
15232
15233 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15234
15235#if IK5_ENABLED
15236 pure module subroutine setSortedArrDefComInsertionl_D1_IK5(array, method)
15237#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15238 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionl_D1_IK5
15239#endif
15240 use pm_kind, only: IKG => IK5
15241 integer(IKG) , intent(inout) , contiguous :: array(:)
15242 type(insertionl_type) , intent(in) :: method
15243 end subroutine
15244#endif
15245
15246#if IK4_ENABLED
15247 pure module subroutine setSortedArrDefComInsertionl_D1_IK4(array, method)
15248#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15249 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionl_D1_IK4
15250#endif
15251 use pm_kind, only: IKG => IK4
15252 integer(IKG) , intent(inout) , contiguous :: array(:)
15253 type(insertionl_type) , intent(in) :: method
15254 end subroutine
15255#endif
15256
15257#if IK3_ENABLED
15258 pure module subroutine setSortedArrDefComInsertionl_D1_IK3(array, method)
15259#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15260 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionl_D1_IK3
15261#endif
15262 use pm_kind, only: IKG => IK3
15263 integer(IKG) , intent(inout) , contiguous :: array(:)
15264 type(insertionl_type) , intent(in) :: method
15265 end subroutine
15266#endif
15267
15268#if IK2_ENABLED
15269 pure module subroutine setSortedArrDefComInsertionl_D1_IK2(array, method)
15270#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15271 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionl_D1_IK2
15272#endif
15273 use pm_kind, only: IKG => IK2
15274 integer(IKG) , intent(inout) , contiguous :: array(:)
15275 type(insertionl_type) , intent(in) :: method
15276 end subroutine
15277#endif
15278
15279#if IK1_ENABLED
15280 pure module subroutine setSortedArrDefComInsertionl_D1_IK1(array, method)
15281#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15282 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionl_D1_IK1
15283#endif
15284 use pm_kind, only: IKG => IK1
15285 integer(IKG) , intent(inout) , contiguous :: array(:)
15286 type(insertionl_type) , intent(in) :: method
15287 end subroutine
15288#endif
15289
15290 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15291
15292#if LK5_ENABLED
15293 pure module subroutine setSortedArrDefComInsertionl_D1_LK5(array, method)
15294#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15295 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionl_D1_LK5
15296#endif
15297 use pm_kind, only: LKG => LK5
15298 logical(LKG) , intent(inout) , contiguous :: array(:)
15299 type(insertionl_type) , intent(in) :: method
15300 end subroutine
15301#endif
15302
15303#if LK4_ENABLED
15304 pure module subroutine setSortedArrDefComInsertionl_D1_LK4(array, method)
15305#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15306 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionl_D1_LK4
15307#endif
15308 use pm_kind, only: LKG => LK4
15309 logical(LKG) , intent(inout) , contiguous :: array(:)
15310 type(insertionl_type) , intent(in) :: method
15311 end subroutine
15312#endif
15313
15314#if LK3_ENABLED
15315 pure module subroutine setSortedArrDefComInsertionl_D1_LK3(array, method)
15316#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15317 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionl_D1_LK3
15318#endif
15319 use pm_kind, only: LKG => LK3
15320 logical(LKG) , intent(inout) , contiguous :: array(:)
15321 type(insertionl_type) , intent(in) :: method
15322 end subroutine
15323#endif
15324
15325#if LK2_ENABLED
15326 pure module subroutine setSortedArrDefComInsertionl_D1_LK2(array, method)
15327#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15328 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionl_D1_LK2
15329#endif
15330 use pm_kind, only: LKG => LK2
15331 logical(LKG) , intent(inout) , contiguous :: array(:)
15332 type(insertionl_type) , intent(in) :: method
15333 end subroutine
15334#endif
15335
15336#if LK1_ENABLED
15337 pure module subroutine setSortedArrDefComInsertionl_D1_LK1(array, method)
15338#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15339 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionl_D1_LK1
15340#endif
15341 use pm_kind, only: LKG => LK1
15342 logical(LKG) , intent(inout) , contiguous :: array(:)
15343 type(insertionl_type) , intent(in) :: method
15344 end subroutine
15345#endif
15346
15347 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15348
15349#if CK5_ENABLED
15350 pure module subroutine setSortedArrDefComInsertionl_D1_CK5(array, method)
15351#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15352 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionl_D1_CK5
15353#endif
15354 use pm_kind, only: CKG => CK5
15355 complex(CKG) , intent(inout) , contiguous :: array(:)
15356 type(insertionl_type) , intent(in) :: method
15357 end subroutine
15358#endif
15359
15360#if CK4_ENABLED
15361 pure module subroutine setSortedArrDefComInsertionl_D1_CK4(array, method)
15362#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15363 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionl_D1_CK4
15364#endif
15365 use pm_kind, only: CKG => CK4
15366 complex(CKG) , intent(inout) , contiguous :: array(:)
15367 type(insertionl_type) , intent(in) :: method
15368 end subroutine
15369#endif
15370
15371#if CK3_ENABLED
15372 pure module subroutine setSortedArrDefComInsertionl_D1_CK3(array, method)
15373#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15374 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionl_D1_CK3
15375#endif
15376 use pm_kind, only: CKG => CK3
15377 complex(CKG) , intent(inout) , contiguous :: array(:)
15378 type(insertionl_type) , intent(in) :: method
15379 end subroutine
15380#endif
15381
15382#if CK2_ENABLED
15383 pure module subroutine setSortedArrDefComInsertionl_D1_CK2(array, method)
15384#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15385 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionl_D1_CK2
15386#endif
15387 use pm_kind, only: CKG => CK2
15388 complex(CKG) , intent(inout) , contiguous :: array(:)
15389 type(insertionl_type) , intent(in) :: method
15390 end subroutine
15391#endif
15392
15393#if CK1_ENABLED
15394 pure module subroutine setSortedArrDefComInsertionl_D1_CK1(array, method)
15395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15396 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionl_D1_CK1
15397#endif
15398 use pm_kind, only: CKG => CK1
15399 complex(CKG) , intent(inout) , contiguous :: array(:)
15400 type(insertionl_type) , intent(in) :: method
15401 end subroutine
15402#endif
15403
15404 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15405
15406#if RK5_ENABLED
15407 pure module subroutine setSortedArrDefComInsertionl_D1_RK5(array, method)
15408#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15409 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionl_D1_RK5
15410#endif
15411 use pm_kind, only: RKG => RK5
15412 real(RKG) , intent(inout) , contiguous :: array(:)
15413 type(insertionl_type) , intent(in) :: method
15414 end subroutine
15415#endif
15416
15417#if RK4_ENABLED
15418 pure module subroutine setSortedArrDefComInsertionl_D1_RK4(array, method)
15419#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15420 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionl_D1_RK4
15421#endif
15422 use pm_kind, only: RKG => RK4
15423 real(RKG) , intent(inout) , contiguous :: array(:)
15424 type(insertionl_type) , intent(in) :: method
15425 end subroutine
15426#endif
15427
15428#if RK3_ENABLED
15429 pure module subroutine setSortedArrDefComInsertionl_D1_RK3(array, method)
15430#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15431 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionl_D1_RK3
15432#endif
15433 use pm_kind, only: RKG => RK3
15434 real(RKG) , intent(inout) , contiguous :: array(:)
15435 type(insertionl_type) , intent(in) :: method
15436 end subroutine
15437#endif
15438
15439#if RK2_ENABLED
15440 pure module subroutine setSortedArrDefComInsertionl_D1_RK2(array, method)
15441#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15442 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionl_D1_RK2
15443#endif
15444 use pm_kind, only: RKG => RK2
15445 real(RKG) , intent(inout) , contiguous :: array(:)
15446 type(insertionl_type) , intent(in) :: method
15447 end subroutine
15448#endif
15449
15450#if RK1_ENABLED
15451 pure module subroutine setSortedArrDefComInsertionl_D1_RK1(array, method)
15452#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15453 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionl_D1_RK1
15454#endif
15455 use pm_kind, only: RKG => RK1
15456 real(RKG) , intent(inout) , contiguous :: array(:)
15457 type(insertionl_type) , intent(in) :: method
15458 end subroutine
15459#endif
15460
15461 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15462
15463#if PDT_ENABLED
15464
15465#if SK5_ENABLED
15466 pure module subroutine setSortedArrDefComInsertionl_D1_PSSK5(array, method)
15467#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15468 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionl_D1_PSSK5
15469#endif
15470 use pm_kind, only: SKG => SK5
15471 use pm_container, only: css_pdt
15472 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
15473 type(insertionl_type) , intent(in) :: method
15474 end subroutine
15475#endif
15476
15477#if SK4_ENABLED
15478 pure module subroutine setSortedArrDefComInsertionl_D1_PSSK4(array, method)
15479#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15480 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionl_D1_PSSK4
15481#endif
15482 use pm_kind, only: SKG => SK4
15483 use pm_container, only: css_pdt
15484 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
15485 type(insertionl_type) , intent(in) :: method
15486 end subroutine
15487#endif
15488
15489#if SK3_ENABLED
15490 pure module subroutine setSortedArrDefComInsertionl_D1_PSSK3(array, method)
15491#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15492 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionl_D1_PSSK3
15493#endif
15494 use pm_kind, only: SKG => SK3
15495 use pm_container, only: css_pdt
15496 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
15497 type(insertionl_type) , intent(in) :: method
15498 end subroutine
15499#endif
15500
15501#if SK2_ENABLED
15502 pure module subroutine setSortedArrDefComInsertionl_D1_PSSK2(array, method)
15503#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15504 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionl_D1_PSSK2
15505#endif
15506 use pm_kind, only: SKG => SK2
15507 use pm_container, only: css_pdt
15508 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
15509 type(insertionl_type) , intent(in) :: method
15510 end subroutine
15511#endif
15512
15513#if SK1_ENABLED
15514 pure module subroutine setSortedArrDefComInsertionl_D1_PSSK1(array, method)
15515#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15516 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionl_D1_PSSK1
15517#endif
15518 use pm_kind, only: SKG => SK1
15519 use pm_container, only: css_pdt
15520 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
15521 type(insertionl_type) , intent(in) :: method
15522 end subroutine
15523#endif
15524
15525#endif
15526!PDT_ENABLED
15527
15528 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15529
15530 pure module subroutine setSortedArrDefComInsertionl_D1_BSSK(array, method)
15531#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15532 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionl_D1_BSSK
15533#endif
15534 use pm_kind, only: SKG => SK
15535 use pm_container, only: css_type
15536 type(css_type) , intent(inout) , contiguous :: array(:)
15537 type(insertionl_type) , intent(in) :: method
15538 end subroutine
15539
15540 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15541
15542 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15543 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15544 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15545
15546 end interface
15547
15548 ! setSortedArrDefComInsertionb
15549
15550 interface setSorted
15551
15552 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15553 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15554 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15555
15556 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15557
15558#if SK5_ENABLED
15559 pure module subroutine setSortedArrDefComInsertionb_D0_SK5(array, method)
15560#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15561 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionb_D0_SK5
15562#endif
15563 use pm_kind, only: SKG => SK5
15564 character(*,SKG) , intent(inout) :: array
15565 type(insertionb_type) , intent(in) :: method
15566 end subroutine
15567#endif
15568
15569#if SK4_ENABLED
15570 pure module subroutine setSortedArrDefComInsertionb_D0_SK4(array, method)
15571#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15572 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionb_D0_SK4
15573#endif
15574 use pm_kind, only: SKG => SK4
15575 character(*,SKG) , intent(inout) :: array
15576 type(insertionb_type) , intent(in) :: method
15577 end subroutine
15578#endif
15579
15580#if SK3_ENABLED
15581 pure module subroutine setSortedArrDefComInsertionb_D0_SK3(array, method)
15582#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15583 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionb_D0_SK3
15584#endif
15585 use pm_kind, only: SKG => SK3
15586 character(*,SKG) , intent(inout) :: array
15587 type(insertionb_type) , intent(in) :: method
15588 end subroutine
15589#endif
15590
15591#if SK2_ENABLED
15592 pure module subroutine setSortedArrDefComInsertionb_D0_SK2(array, method)
15593#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15594 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionb_D0_SK2
15595#endif
15596 use pm_kind, only: SKG => SK2
15597 character(*,SKG) , intent(inout) :: array
15598 type(insertionb_type) , intent(in) :: method
15599 end subroutine
15600#endif
15601
15602#if SK1_ENABLED
15603 pure module subroutine setSortedArrDefComInsertionb_D0_SK1(array, method)
15604#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15605 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionb_D0_SK1
15606#endif
15607 use pm_kind, only: SKG => SK1
15608 character(*,SKG) , intent(inout) :: array
15609 type(insertionb_type) , intent(in) :: method
15610 end subroutine
15611#endif
15612
15613 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15614
15615#if SK5_ENABLED
15616 pure module subroutine setSortedArrDefComInsertionb_D1_SK5(array, method)
15617#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15618 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionb_D1_SK5
15619#endif
15620 use pm_kind, only: SKG => SK5
15621 character(*,SKG) , intent(inout) , contiguous :: array(:)
15622 type(insertionb_type) , intent(in) :: method
15623 end subroutine
15624#endif
15625
15626#if SK4_ENABLED
15627 pure module subroutine setSortedArrDefComInsertionb_D1_SK4(array, method)
15628#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15629 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionb_D1_SK4
15630#endif
15631 use pm_kind, only: SKG => SK4
15632 character(*,SKG) , intent(inout) , contiguous :: array(:)
15633 type(insertionb_type) , intent(in) :: method
15634 end subroutine
15635#endif
15636
15637#if SK3_ENABLED
15638 pure module subroutine setSortedArrDefComInsertionb_D1_SK3(array, method)
15639#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15640 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionb_D1_SK3
15641#endif
15642 use pm_kind, only: SKG => SK3
15643 character(*,SKG) , intent(inout) , contiguous :: array(:)
15644 type(insertionb_type) , intent(in) :: method
15645 end subroutine
15646#endif
15647
15648#if SK2_ENABLED
15649 pure module subroutine setSortedArrDefComInsertionb_D1_SK2(array, method)
15650#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15651 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionb_D1_SK2
15652#endif
15653 use pm_kind, only: SKG => SK2
15654 character(*,SKG) , intent(inout) , contiguous :: array(:)
15655 type(insertionb_type) , intent(in) :: method
15656 end subroutine
15657#endif
15658
15659#if SK1_ENABLED
15660 pure module subroutine setSortedArrDefComInsertionb_D1_SK1(array, method)
15661#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15662 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionb_D1_SK1
15663#endif
15664 use pm_kind, only: SKG => SK1
15665 character(*,SKG) , intent(inout) , contiguous :: array(:)
15666 type(insertionb_type) , intent(in) :: method
15667 end subroutine
15668#endif
15669
15670 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15671
15672#if IK5_ENABLED
15673 pure module subroutine setSortedArrDefComInsertionb_D1_IK5(array, method)
15674#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15675 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionb_D1_IK5
15676#endif
15677 use pm_kind, only: IKG => IK5
15678 integer(IKG) , intent(inout) , contiguous :: array(:)
15679 type(insertionb_type) , intent(in) :: method
15680 end subroutine
15681#endif
15682
15683#if IK4_ENABLED
15684 pure module subroutine setSortedArrDefComInsertionb_D1_IK4(array, method)
15685#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15686 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionb_D1_IK4
15687#endif
15688 use pm_kind, only: IKG => IK4
15689 integer(IKG) , intent(inout) , contiguous :: array(:)
15690 type(insertionb_type) , intent(in) :: method
15691 end subroutine
15692#endif
15693
15694#if IK3_ENABLED
15695 pure module subroutine setSortedArrDefComInsertionb_D1_IK3(array, method)
15696#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15697 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionb_D1_IK3
15698#endif
15699 use pm_kind, only: IKG => IK3
15700 integer(IKG) , intent(inout) , contiguous :: array(:)
15701 type(insertionb_type) , intent(in) :: method
15702 end subroutine
15703#endif
15704
15705#if IK2_ENABLED
15706 pure module subroutine setSortedArrDefComInsertionb_D1_IK2(array, method)
15707#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15708 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionb_D1_IK2
15709#endif
15710 use pm_kind, only: IKG => IK2
15711 integer(IKG) , intent(inout) , contiguous :: array(:)
15712 type(insertionb_type) , intent(in) :: method
15713 end subroutine
15714#endif
15715
15716#if IK1_ENABLED
15717 pure module subroutine setSortedArrDefComInsertionb_D1_IK1(array, method)
15718#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15719 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionb_D1_IK1
15720#endif
15721 use pm_kind, only: IKG => IK1
15722 integer(IKG) , intent(inout) , contiguous :: array(:)
15723 type(insertionb_type) , intent(in) :: method
15724 end subroutine
15725#endif
15726
15727 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15728
15729#if LK5_ENABLED
15730 pure module subroutine setSortedArrDefComInsertionb_D1_LK5(array, method)
15731#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15732 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionb_D1_LK5
15733#endif
15734 use pm_kind, only: LKG => LK5
15735 logical(LKG) , intent(inout) , contiguous :: array(:)
15736 type(insertionb_type) , intent(in) :: method
15737 end subroutine
15738#endif
15739
15740#if LK4_ENABLED
15741 pure module subroutine setSortedArrDefComInsertionb_D1_LK4(array, method)
15742#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15743 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionb_D1_LK4
15744#endif
15745 use pm_kind, only: LKG => LK4
15746 logical(LKG) , intent(inout) , contiguous :: array(:)
15747 type(insertionb_type) , intent(in) :: method
15748 end subroutine
15749#endif
15750
15751#if LK3_ENABLED
15752 pure module subroutine setSortedArrDefComInsertionb_D1_LK3(array, method)
15753#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15754 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionb_D1_LK3
15755#endif
15756 use pm_kind, only: LKG => LK3
15757 logical(LKG) , intent(inout) , contiguous :: array(:)
15758 type(insertionb_type) , intent(in) :: method
15759 end subroutine
15760#endif
15761
15762#if LK2_ENABLED
15763 pure module subroutine setSortedArrDefComInsertionb_D1_LK2(array, method)
15764#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15765 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionb_D1_LK2
15766#endif
15767 use pm_kind, only: LKG => LK2
15768 logical(LKG) , intent(inout) , contiguous :: array(:)
15769 type(insertionb_type) , intent(in) :: method
15770 end subroutine
15771#endif
15772
15773#if LK1_ENABLED
15774 pure module subroutine setSortedArrDefComInsertionb_D1_LK1(array, method)
15775#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15776 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionb_D1_LK1
15777#endif
15778 use pm_kind, only: LKG => LK1
15779 logical(LKG) , intent(inout) , contiguous :: array(:)
15780 type(insertionb_type) , intent(in) :: method
15781 end subroutine
15782#endif
15783
15784 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15785
15786#if CK5_ENABLED
15787 pure module subroutine setSortedArrDefComInsertionb_D1_CK5(array, method)
15788#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15789 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionb_D1_CK5
15790#endif
15791 use pm_kind, only: CKG => CK5
15792 complex(CKG) , intent(inout) , contiguous :: array(:)
15793 type(insertionb_type) , intent(in) :: method
15794 end subroutine
15795#endif
15796
15797#if CK4_ENABLED
15798 pure module subroutine setSortedArrDefComInsertionb_D1_CK4(array, method)
15799#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15800 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionb_D1_CK4
15801#endif
15802 use pm_kind, only: CKG => CK4
15803 complex(CKG) , intent(inout) , contiguous :: array(:)
15804 type(insertionb_type) , intent(in) :: method
15805 end subroutine
15806#endif
15807
15808#if CK3_ENABLED
15809 pure module subroutine setSortedArrDefComInsertionb_D1_CK3(array, method)
15810#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15811 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionb_D1_CK3
15812#endif
15813 use pm_kind, only: CKG => CK3
15814 complex(CKG) , intent(inout) , contiguous :: array(:)
15815 type(insertionb_type) , intent(in) :: method
15816 end subroutine
15817#endif
15818
15819#if CK2_ENABLED
15820 pure module subroutine setSortedArrDefComInsertionb_D1_CK2(array, method)
15821#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15822 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionb_D1_CK2
15823#endif
15824 use pm_kind, only: CKG => CK2
15825 complex(CKG) , intent(inout) , contiguous :: array(:)
15826 type(insertionb_type) , intent(in) :: method
15827 end subroutine
15828#endif
15829
15830#if CK1_ENABLED
15831 pure module subroutine setSortedArrDefComInsertionb_D1_CK1(array, method)
15832#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15833 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionb_D1_CK1
15834#endif
15835 use pm_kind, only: CKG => CK1
15836 complex(CKG) , intent(inout) , contiguous :: array(:)
15837 type(insertionb_type) , intent(in) :: method
15838 end subroutine
15839#endif
15840
15841 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15842
15843#if RK5_ENABLED
15844 pure module subroutine setSortedArrDefComInsertionb_D1_RK5(array, method)
15845#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15846 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionb_D1_RK5
15847#endif
15848 use pm_kind, only: RKG => RK5
15849 real(RKG) , intent(inout) , contiguous :: array(:)
15850 type(insertionb_type) , intent(in) :: method
15851 end subroutine
15852#endif
15853
15854#if RK4_ENABLED
15855 pure module subroutine setSortedArrDefComInsertionb_D1_RK4(array, method)
15856#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15857 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionb_D1_RK4
15858#endif
15859 use pm_kind, only: RKG => RK4
15860 real(RKG) , intent(inout) , contiguous :: array(:)
15861 type(insertionb_type) , intent(in) :: method
15862 end subroutine
15863#endif
15864
15865#if RK3_ENABLED
15866 pure module subroutine setSortedArrDefComInsertionb_D1_RK3(array, method)
15867#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15868 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionb_D1_RK3
15869#endif
15870 use pm_kind, only: RKG => RK3
15871 real(RKG) , intent(inout) , contiguous :: array(:)
15872 type(insertionb_type) , intent(in) :: method
15873 end subroutine
15874#endif
15875
15876#if RK2_ENABLED
15877 pure module subroutine setSortedArrDefComInsertionb_D1_RK2(array, method)
15878#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15879 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionb_D1_RK2
15880#endif
15881 use pm_kind, only: RKG => RK2
15882 real(RKG) , intent(inout) , contiguous :: array(:)
15883 type(insertionb_type) , intent(in) :: method
15884 end subroutine
15885#endif
15886
15887#if RK1_ENABLED
15888 pure module subroutine setSortedArrDefComInsertionb_D1_RK1(array, method)
15889#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15890 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionb_D1_RK1
15891#endif
15892 use pm_kind, only: RKG => RK1
15893 real(RKG) , intent(inout) , contiguous :: array(:)
15894 type(insertionb_type) , intent(in) :: method
15895 end subroutine
15896#endif
15897
15898 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15899
15900#if PDT_ENABLED
15901
15902#if SK5_ENABLED
15903 pure module subroutine setSortedArrDefComInsertionb_D1_PSSK5(array, method)
15904#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15905 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionb_D1_PSSK5
15906#endif
15907 use pm_kind, only: SKG => SK5
15908 use pm_container, only: css_pdt
15909 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
15910 type(insertionb_type) , intent(in) :: method
15911 end subroutine
15912#endif
15913
15914#if SK4_ENABLED
15915 pure module subroutine setSortedArrDefComInsertionb_D1_PSSK4(array, method)
15916#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15917 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionb_D1_PSSK4
15918#endif
15919 use pm_kind, only: SKG => SK4
15920 use pm_container, only: css_pdt
15921 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
15922 type(insertionb_type) , intent(in) :: method
15923 end subroutine
15924#endif
15925
15926#if SK3_ENABLED
15927 pure module subroutine setSortedArrDefComInsertionb_D1_PSSK3(array, method)
15928#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15929 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionb_D1_PSSK3
15930#endif
15931 use pm_kind, only: SKG => SK3
15932 use pm_container, only: css_pdt
15933 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
15934 type(insertionb_type) , intent(in) :: method
15935 end subroutine
15936#endif
15937
15938#if SK2_ENABLED
15939 pure module subroutine setSortedArrDefComInsertionb_D1_PSSK2(array, method)
15940#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15941 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionb_D1_PSSK2
15942#endif
15943 use pm_kind, only: SKG => SK2
15944 use pm_container, only: css_pdt
15945 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
15946 type(insertionb_type) , intent(in) :: method
15947 end subroutine
15948#endif
15949
15950#if SK1_ENABLED
15951 pure module subroutine setSortedArrDefComInsertionb_D1_PSSK1(array, method)
15952#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15953 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionb_D1_PSSK1
15954#endif
15955 use pm_kind, only: SKG => SK1
15956 use pm_container, only: css_pdt
15957 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
15958 type(insertionb_type) , intent(in) :: method
15959 end subroutine
15960#endif
15961
15962#endif
15963!PDT_ENABLED
15964
15965 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15966
15967 pure module subroutine setSortedArrDefComInsertionb_D1_BSSK(array, method)
15968#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15969 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComInsertionb_D1_BSSK
15970#endif
15971 use pm_kind, only: SKG => SK
15972 use pm_container, only: css_type
15973 type(css_type) , intent(inout) , contiguous :: array(:)
15974 type(insertionb_type) , intent(in) :: method
15975 end subroutine
15976
15977 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15978
15979 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15980 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15981 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15982
15983 end interface
15984
15985 ! setSortedArrDefComMerger
15986
15987 interface setSorted
15988
15989 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15990 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15991 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15992
15993 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15994
15995#if SK5_ENABLED
15996 PURE recursive module subroutine setSortedArrDefComMerger_D0_SK5(array, method)
15997#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15998 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComMerger_D0_SK5
15999#endif
16000 use pm_kind, only: SKG => SK5
16001 character(*,SKG) , intent(inout) :: array
16002 type(merger_type) , intent(in) :: method
16003 end subroutine
16004#endif
16005
16006#if SK4_ENABLED
16007 PURE recursive module subroutine setSortedArrDefComMerger_D0_SK4(array, method)
16008#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16009 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComMerger_D0_SK4
16010#endif
16011 use pm_kind, only: SKG => SK4
16012 character(*,SKG) , intent(inout) :: array
16013 type(merger_type) , intent(in) :: method
16014 end subroutine
16015#endif
16016
16017#if SK3_ENABLED
16018 PURE recursive module subroutine setSortedArrDefComMerger_D0_SK3(array, method)
16019#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16020 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComMerger_D0_SK3
16021#endif
16022 use pm_kind, only: SKG => SK3
16023 character(*,SKG) , intent(inout) :: array
16024 type(merger_type) , intent(in) :: method
16025 end subroutine
16026#endif
16027
16028#if SK2_ENABLED
16029 PURE recursive module subroutine setSortedArrDefComMerger_D0_SK2(array, method)
16030#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16031 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComMerger_D0_SK2
16032#endif
16033 use pm_kind, only: SKG => SK2
16034 character(*,SKG) , intent(inout) :: array
16035 type(merger_type) , intent(in) :: method
16036 end subroutine
16037#endif
16038
16039#if SK1_ENABLED
16040 PURE recursive module subroutine setSortedArrDefComMerger_D0_SK1(array, method)
16041#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16042 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComMerger_D0_SK1
16043#endif
16044 use pm_kind, only: SKG => SK1
16045 character(*,SKG) , intent(inout) :: array
16046 type(merger_type) , intent(in) :: method
16047 end subroutine
16048#endif
16049
16050 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16051
16052#if SK5_ENABLED
16053 PURE recursive module subroutine setSortedArrDefComMerger_D1_SK5(array, method)
16054#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16055 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComMerger_D1_SK5
16056#endif
16057 use pm_kind, only: SKG => SK5
16058 character(*,SKG) , intent(inout) , contiguous :: array(:)
16059 type(merger_type) , intent(in) :: method
16060 end subroutine
16061#endif
16062
16063#if SK4_ENABLED
16064 PURE recursive module subroutine setSortedArrDefComMerger_D1_SK4(array, method)
16065#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16066 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComMerger_D1_SK4
16067#endif
16068 use pm_kind, only: SKG => SK4
16069 character(*,SKG) , intent(inout) , contiguous :: array(:)
16070 type(merger_type) , intent(in) :: method
16071 end subroutine
16072#endif
16073
16074#if SK3_ENABLED
16075 PURE recursive module subroutine setSortedArrDefComMerger_D1_SK3(array, method)
16076#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16077 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComMerger_D1_SK3
16078#endif
16079 use pm_kind, only: SKG => SK3
16080 character(*,SKG) , intent(inout) , contiguous :: array(:)
16081 type(merger_type) , intent(in) :: method
16082 end subroutine
16083#endif
16084
16085#if SK2_ENABLED
16086 PURE recursive module subroutine setSortedArrDefComMerger_D1_SK2(array, method)
16087#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16088 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComMerger_D1_SK2
16089#endif
16090 use pm_kind, only: SKG => SK2
16091 character(*,SKG) , intent(inout) , contiguous :: array(:)
16092 type(merger_type) , intent(in) :: method
16093 end subroutine
16094#endif
16095
16096#if SK1_ENABLED
16097 PURE recursive module subroutine setSortedArrDefComMerger_D1_SK1(array, method)
16098#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16099 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComMerger_D1_SK1
16100#endif
16101 use pm_kind, only: SKG => SK1
16102 character(*,SKG) , intent(inout) , contiguous :: array(:)
16103 type(merger_type) , intent(in) :: method
16104 end subroutine
16105#endif
16106
16107 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16108
16109#if IK5_ENABLED
16110 PURE recursive module subroutine setSortedArrDefComMerger_D1_IK5(array, method)
16111#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16112 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComMerger_D1_IK5
16113#endif
16114 use pm_kind, only: IKG => IK5
16115 integer(IKG) , intent(inout) , contiguous :: array(:)
16116 type(merger_type) , intent(in) :: method
16117 end subroutine
16118#endif
16119
16120#if IK4_ENABLED
16121 PURE recursive module subroutine setSortedArrDefComMerger_D1_IK4(array, method)
16122#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16123 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComMerger_D1_IK4
16124#endif
16125 use pm_kind, only: IKG => IK4
16126 integer(IKG) , intent(inout) , contiguous :: array(:)
16127 type(merger_type) , intent(in) :: method
16128 end subroutine
16129#endif
16130
16131#if IK3_ENABLED
16132 PURE recursive module subroutine setSortedArrDefComMerger_D1_IK3(array, method)
16133#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16134 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComMerger_D1_IK3
16135#endif
16136 use pm_kind, only: IKG => IK3
16137 integer(IKG) , intent(inout) , contiguous :: array(:)
16138 type(merger_type) , intent(in) :: method
16139 end subroutine
16140#endif
16141
16142#if IK2_ENABLED
16143 PURE recursive module subroutine setSortedArrDefComMerger_D1_IK2(array, method)
16144#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16145 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComMerger_D1_IK2
16146#endif
16147 use pm_kind, only: IKG => IK2
16148 integer(IKG) , intent(inout) , contiguous :: array(:)
16149 type(merger_type) , intent(in) :: method
16150 end subroutine
16151#endif
16152
16153#if IK1_ENABLED
16154 PURE recursive module subroutine setSortedArrDefComMerger_D1_IK1(array, method)
16155#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16156 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComMerger_D1_IK1
16157#endif
16158 use pm_kind, only: IKG => IK1
16159 integer(IKG) , intent(inout) , contiguous :: array(:)
16160 type(merger_type) , intent(in) :: method
16161 end subroutine
16162#endif
16163
16164 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16165
16166#if LK5_ENABLED
16167 PURE recursive module subroutine setSortedArrDefComMerger_D1_LK5(array, method)
16168#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16169 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComMerger_D1_LK5
16170#endif
16171 use pm_kind, only: LKG => LK5
16172 logical(LKG) , intent(inout) , contiguous :: array(:)
16173 type(merger_type) , intent(in) :: method
16174 end subroutine
16175#endif
16176
16177#if LK4_ENABLED
16178 PURE recursive module subroutine setSortedArrDefComMerger_D1_LK4(array, method)
16179#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16180 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComMerger_D1_LK4
16181#endif
16182 use pm_kind, only: LKG => LK4
16183 logical(LKG) , intent(inout) , contiguous :: array(:)
16184 type(merger_type) , intent(in) :: method
16185 end subroutine
16186#endif
16187
16188#if LK3_ENABLED
16189 PURE recursive module subroutine setSortedArrDefComMerger_D1_LK3(array, method)
16190#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16191 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComMerger_D1_LK3
16192#endif
16193 use pm_kind, only: LKG => LK3
16194 logical(LKG) , intent(inout) , contiguous :: array(:)
16195 type(merger_type) , intent(in) :: method
16196 end subroutine
16197#endif
16198
16199#if LK2_ENABLED
16200 PURE recursive module subroutine setSortedArrDefComMerger_D1_LK2(array, method)
16201#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16202 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComMerger_D1_LK2
16203#endif
16204 use pm_kind, only: LKG => LK2
16205 logical(LKG) , intent(inout) , contiguous :: array(:)
16206 type(merger_type) , intent(in) :: method
16207 end subroutine
16208#endif
16209
16210#if LK1_ENABLED
16211 PURE recursive module subroutine setSortedArrDefComMerger_D1_LK1(array, method)
16212#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16213 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComMerger_D1_LK1
16214#endif
16215 use pm_kind, only: LKG => LK1
16216 logical(LKG) , intent(inout) , contiguous :: array(:)
16217 type(merger_type) , intent(in) :: method
16218 end subroutine
16219#endif
16220
16221 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16222
16223#if CK5_ENABLED
16224 PURE recursive module subroutine setSortedArrDefComMerger_D1_CK5(array, method)
16225#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16226 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComMerger_D1_CK5
16227#endif
16228 use pm_kind, only: CKG => CK5
16229 complex(CKG) , intent(inout) , contiguous :: array(:)
16230 type(merger_type) , intent(in) :: method
16231 end subroutine
16232#endif
16233
16234#if CK4_ENABLED
16235 PURE recursive module subroutine setSortedArrDefComMerger_D1_CK4(array, method)
16236#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16237 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComMerger_D1_CK4
16238#endif
16239 use pm_kind, only: CKG => CK4
16240 complex(CKG) , intent(inout) , contiguous :: array(:)
16241 type(merger_type) , intent(in) :: method
16242 end subroutine
16243#endif
16244
16245#if CK3_ENABLED
16246 PURE recursive module subroutine setSortedArrDefComMerger_D1_CK3(array, method)
16247#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16248 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComMerger_D1_CK3
16249#endif
16250 use pm_kind, only: CKG => CK3
16251 complex(CKG) , intent(inout) , contiguous :: array(:)
16252 type(merger_type) , intent(in) :: method
16253 end subroutine
16254#endif
16255
16256#if CK2_ENABLED
16257 PURE recursive module subroutine setSortedArrDefComMerger_D1_CK2(array, method)
16258#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16259 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComMerger_D1_CK2
16260#endif
16261 use pm_kind, only: CKG => CK2
16262 complex(CKG) , intent(inout) , contiguous :: array(:)
16263 type(merger_type) , intent(in) :: method
16264 end subroutine
16265#endif
16266
16267#if CK1_ENABLED
16268 PURE recursive module subroutine setSortedArrDefComMerger_D1_CK1(array, method)
16269#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16270 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComMerger_D1_CK1
16271#endif
16272 use pm_kind, only: CKG => CK1
16273 complex(CKG) , intent(inout) , contiguous :: array(:)
16274 type(merger_type) , intent(in) :: method
16275 end subroutine
16276#endif
16277
16278 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16279
16280#if RK5_ENABLED
16281 PURE recursive module subroutine setSortedArrDefComMerger_D1_RK5(array, method)
16282#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16283 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComMerger_D1_RK5
16284#endif
16285 use pm_kind, only: RKG => RK5
16286 real(RKG) , intent(inout) , contiguous :: array(:)
16287 type(merger_type) , intent(in) :: method
16288 end subroutine
16289#endif
16290
16291#if RK4_ENABLED
16292 PURE recursive module subroutine setSortedArrDefComMerger_D1_RK4(array, method)
16293#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16294 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComMerger_D1_RK4
16295#endif
16296 use pm_kind, only: RKG => RK4
16297 real(RKG) , intent(inout) , contiguous :: array(:)
16298 type(merger_type) , intent(in) :: method
16299 end subroutine
16300#endif
16301
16302#if RK3_ENABLED
16303 PURE recursive module subroutine setSortedArrDefComMerger_D1_RK3(array, method)
16304#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16305 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComMerger_D1_RK3
16306#endif
16307 use pm_kind, only: RKG => RK3
16308 real(RKG) , intent(inout) , contiguous :: array(:)
16309 type(merger_type) , intent(in) :: method
16310 end subroutine
16311#endif
16312
16313#if RK2_ENABLED
16314 PURE recursive module subroutine setSortedArrDefComMerger_D1_RK2(array, method)
16315#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16316 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComMerger_D1_RK2
16317#endif
16318 use pm_kind, only: RKG => RK2
16319 real(RKG) , intent(inout) , contiguous :: array(:)
16320 type(merger_type) , intent(in) :: method
16321 end subroutine
16322#endif
16323
16324#if RK1_ENABLED
16325 PURE recursive module subroutine setSortedArrDefComMerger_D1_RK1(array, method)
16326#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16327 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComMerger_D1_RK1
16328#endif
16329 use pm_kind, only: RKG => RK1
16330 real(RKG) , intent(inout) , contiguous :: array(:)
16331 type(merger_type) , intent(in) :: method
16332 end subroutine
16333#endif
16334
16335 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16336
16337#if PDT_ENABLED
16338
16339#if SK5_ENABLED
16340 PURE recursive module subroutine setSortedArrDefComMerger_D1_PSSK5(array, method)
16341#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16342 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComMerger_D1_PSSK5
16343#endif
16344 use pm_kind, only: SKG => SK5
16345 use pm_container, only: css_pdt
16346 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
16347 type(merger_type) , intent(in) :: method
16348 end subroutine
16349#endif
16350
16351#if SK4_ENABLED
16352 PURE recursive module subroutine setSortedArrDefComMerger_D1_PSSK4(array, method)
16353#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16354 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComMerger_D1_PSSK4
16355#endif
16356 use pm_kind, only: SKG => SK4
16357 use pm_container, only: css_pdt
16358 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
16359 type(merger_type) , intent(in) :: method
16360 end subroutine
16361#endif
16362
16363#if SK3_ENABLED
16364 PURE recursive module subroutine setSortedArrDefComMerger_D1_PSSK3(array, method)
16365#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16366 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComMerger_D1_PSSK3
16367#endif
16368 use pm_kind, only: SKG => SK3
16369 use pm_container, only: css_pdt
16370 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
16371 type(merger_type) , intent(in) :: method
16372 end subroutine
16373#endif
16374
16375#if SK2_ENABLED
16376 PURE recursive module subroutine setSortedArrDefComMerger_D1_PSSK2(array, method)
16377#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16378 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComMerger_D1_PSSK2
16379#endif
16380 use pm_kind, only: SKG => SK2
16381 use pm_container, only: css_pdt
16382 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
16383 type(merger_type) , intent(in) :: method
16384 end subroutine
16385#endif
16386
16387#if SK1_ENABLED
16388 PURE recursive module subroutine setSortedArrDefComMerger_D1_PSSK1(array, method)
16389#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16390 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComMerger_D1_PSSK1
16391#endif
16392 use pm_kind, only: SKG => SK1
16393 use pm_container, only: css_pdt
16394 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
16395 type(merger_type) , intent(in) :: method
16396 end subroutine
16397#endif
16398
16399#endif
16400!PDT_ENABLED
16401
16402 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16403
16404 PURE recursive module subroutine setSortedArrDefComMerger_D1_BSSK(array, method)
16405#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16406 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComMerger_D1_BSSK
16407#endif
16408 use pm_kind, only: SKG => SK
16409 use pm_container, only: css_type
16410 type(css_type) , intent(inout) , contiguous :: array(:)
16411 type(merger_type) , intent(in) :: method
16412 end subroutine
16413
16414 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16415
16416 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16417 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16418 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16419
16420 end interface
16421
16422 ! setSortedArrDefComSelection
16423
16424 interface setSorted
16425
16426 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16427 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16428 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16429
16430 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16431
16432#if SK5_ENABLED
16433 pure module subroutine setSortedArrDefComSelection_D0_SK5(array, method)
16434#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16435 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComSelection_D0_SK5
16436#endif
16437 use pm_kind, only: SKG => SK5
16438 character(*,SKG) , intent(inout) :: array
16439 type(selection_type) , intent(in) :: method
16440 end subroutine
16441#endif
16442
16443#if SK4_ENABLED
16444 pure module subroutine setSortedArrDefComSelection_D0_SK4(array, method)
16445#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16446 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComSelection_D0_SK4
16447#endif
16448 use pm_kind, only: SKG => SK4
16449 character(*,SKG) , intent(inout) :: array
16450 type(selection_type) , intent(in) :: method
16451 end subroutine
16452#endif
16453
16454#if SK3_ENABLED
16455 pure module subroutine setSortedArrDefComSelection_D0_SK3(array, method)
16456#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16457 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComSelection_D0_SK3
16458#endif
16459 use pm_kind, only: SKG => SK3
16460 character(*,SKG) , intent(inout) :: array
16461 type(selection_type) , intent(in) :: method
16462 end subroutine
16463#endif
16464
16465#if SK2_ENABLED
16466 pure module subroutine setSortedArrDefComSelection_D0_SK2(array, method)
16467#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16468 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComSelection_D0_SK2
16469#endif
16470 use pm_kind, only: SKG => SK2
16471 character(*,SKG) , intent(inout) :: array
16472 type(selection_type) , intent(in) :: method
16473 end subroutine
16474#endif
16475
16476#if SK1_ENABLED
16477 pure module subroutine setSortedArrDefComSelection_D0_SK1(array, method)
16478#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16479 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComSelection_D0_SK1
16480#endif
16481 use pm_kind, only: SKG => SK1
16482 character(*,SKG) , intent(inout) :: array
16483 type(selection_type) , intent(in) :: method
16484 end subroutine
16485#endif
16486
16487 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16488
16489#if SK5_ENABLED
16490 pure module subroutine setSortedArrDefComSelection_D1_SK5(array, method)
16491#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16492 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComSelection_D1_SK5
16493#endif
16494 use pm_kind, only: SKG => SK5
16495 character(*,SKG) , intent(inout) , contiguous :: array(:)
16496 type(selection_type) , intent(in) :: method
16497 end subroutine
16498#endif
16499
16500#if SK4_ENABLED
16501 pure module subroutine setSortedArrDefComSelection_D1_SK4(array, method)
16502#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16503 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComSelection_D1_SK4
16504#endif
16505 use pm_kind, only: SKG => SK4
16506 character(*,SKG) , intent(inout) , contiguous :: array(:)
16507 type(selection_type) , intent(in) :: method
16508 end subroutine
16509#endif
16510
16511#if SK3_ENABLED
16512 pure module subroutine setSortedArrDefComSelection_D1_SK3(array, method)
16513#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16514 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComSelection_D1_SK3
16515#endif
16516 use pm_kind, only: SKG => SK3
16517 character(*,SKG) , intent(inout) , contiguous :: array(:)
16518 type(selection_type) , intent(in) :: method
16519 end subroutine
16520#endif
16521
16522#if SK2_ENABLED
16523 pure module subroutine setSortedArrDefComSelection_D1_SK2(array, method)
16524#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16525 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComSelection_D1_SK2
16526#endif
16527 use pm_kind, only: SKG => SK2
16528 character(*,SKG) , intent(inout) , contiguous :: array(:)
16529 type(selection_type) , intent(in) :: method
16530 end subroutine
16531#endif
16532
16533#if SK1_ENABLED
16534 pure module subroutine setSortedArrDefComSelection_D1_SK1(array, method)
16535#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16536 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComSelection_D1_SK1
16537#endif
16538 use pm_kind, only: SKG => SK1
16539 character(*,SKG) , intent(inout) , contiguous :: array(:)
16540 type(selection_type) , intent(in) :: method
16541 end subroutine
16542#endif
16543
16544 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16545
16546#if IK5_ENABLED
16547 pure module subroutine setSortedArrDefComSelection_D1_IK5(array, method)
16548#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16549 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComSelection_D1_IK5
16550#endif
16551 use pm_kind, only: IKG => IK5
16552 integer(IKG) , intent(inout) , contiguous :: array(:)
16553 type(selection_type) , intent(in) :: method
16554 end subroutine
16555#endif
16556
16557#if IK4_ENABLED
16558 pure module subroutine setSortedArrDefComSelection_D1_IK4(array, method)
16559#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16560 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComSelection_D1_IK4
16561#endif
16562 use pm_kind, only: IKG => IK4
16563 integer(IKG) , intent(inout) , contiguous :: array(:)
16564 type(selection_type) , intent(in) :: method
16565 end subroutine
16566#endif
16567
16568#if IK3_ENABLED
16569 pure module subroutine setSortedArrDefComSelection_D1_IK3(array, method)
16570#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16571 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComSelection_D1_IK3
16572#endif
16573 use pm_kind, only: IKG => IK3
16574 integer(IKG) , intent(inout) , contiguous :: array(:)
16575 type(selection_type) , intent(in) :: method
16576 end subroutine
16577#endif
16578
16579#if IK2_ENABLED
16580 pure module subroutine setSortedArrDefComSelection_D1_IK2(array, method)
16581#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16582 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComSelection_D1_IK2
16583#endif
16584 use pm_kind, only: IKG => IK2
16585 integer(IKG) , intent(inout) , contiguous :: array(:)
16586 type(selection_type) , intent(in) :: method
16587 end subroutine
16588#endif
16589
16590#if IK1_ENABLED
16591 pure module subroutine setSortedArrDefComSelection_D1_IK1(array, method)
16592#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16593 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComSelection_D1_IK1
16594#endif
16595 use pm_kind, only: IKG => IK1
16596 integer(IKG) , intent(inout) , contiguous :: array(:)
16597 type(selection_type) , intent(in) :: method
16598 end subroutine
16599#endif
16600
16601 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16602
16603#if LK5_ENABLED
16604 pure module subroutine setSortedArrDefComSelection_D1_LK5(array, method)
16605#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16606 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComSelection_D1_LK5
16607#endif
16608 use pm_kind, only: LKG => LK5
16609 logical(LKG) , intent(inout) , contiguous :: array(:)
16610 type(selection_type) , intent(in) :: method
16611 end subroutine
16612#endif
16613
16614#if LK4_ENABLED
16615 pure module subroutine setSortedArrDefComSelection_D1_LK4(array, method)
16616#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16617 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComSelection_D1_LK4
16618#endif
16619 use pm_kind, only: LKG => LK4
16620 logical(LKG) , intent(inout) , contiguous :: array(:)
16621 type(selection_type) , intent(in) :: method
16622 end subroutine
16623#endif
16624
16625#if LK3_ENABLED
16626 pure module subroutine setSortedArrDefComSelection_D1_LK3(array, method)
16627#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16628 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComSelection_D1_LK3
16629#endif
16630 use pm_kind, only: LKG => LK3
16631 logical(LKG) , intent(inout) , contiguous :: array(:)
16632 type(selection_type) , intent(in) :: method
16633 end subroutine
16634#endif
16635
16636#if LK2_ENABLED
16637 pure module subroutine setSortedArrDefComSelection_D1_LK2(array, method)
16638#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16639 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComSelection_D1_LK2
16640#endif
16641 use pm_kind, only: LKG => LK2
16642 logical(LKG) , intent(inout) , contiguous :: array(:)
16643 type(selection_type) , intent(in) :: method
16644 end subroutine
16645#endif
16646
16647#if LK1_ENABLED
16648 pure module subroutine setSortedArrDefComSelection_D1_LK1(array, method)
16649#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16650 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComSelection_D1_LK1
16651#endif
16652 use pm_kind, only: LKG => LK1
16653 logical(LKG) , intent(inout) , contiguous :: array(:)
16654 type(selection_type) , intent(in) :: method
16655 end subroutine
16656#endif
16657
16658 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16659
16660#if CK5_ENABLED
16661 pure module subroutine setSortedArrDefComSelection_D1_CK5(array, method)
16662#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16663 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComSelection_D1_CK5
16664#endif
16665 use pm_kind, only: CKG => CK5
16666 complex(CKG) , intent(inout) , contiguous :: array(:)
16667 type(selection_type) , intent(in) :: method
16668 end subroutine
16669#endif
16670
16671#if CK4_ENABLED
16672 pure module subroutine setSortedArrDefComSelection_D1_CK4(array, method)
16673#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16674 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComSelection_D1_CK4
16675#endif
16676 use pm_kind, only: CKG => CK4
16677 complex(CKG) , intent(inout) , contiguous :: array(:)
16678 type(selection_type) , intent(in) :: method
16679 end subroutine
16680#endif
16681
16682#if CK3_ENABLED
16683 pure module subroutine setSortedArrDefComSelection_D1_CK3(array, method)
16684#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16685 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComSelection_D1_CK3
16686#endif
16687 use pm_kind, only: CKG => CK3
16688 complex(CKG) , intent(inout) , contiguous :: array(:)
16689 type(selection_type) , intent(in) :: method
16690 end subroutine
16691#endif
16692
16693#if CK2_ENABLED
16694 pure module subroutine setSortedArrDefComSelection_D1_CK2(array, method)
16695#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16696 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComSelection_D1_CK2
16697#endif
16698 use pm_kind, only: CKG => CK2
16699 complex(CKG) , intent(inout) , contiguous :: array(:)
16700 type(selection_type) , intent(in) :: method
16701 end subroutine
16702#endif
16703
16704#if CK1_ENABLED
16705 pure module subroutine setSortedArrDefComSelection_D1_CK1(array, method)
16706#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16707 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComSelection_D1_CK1
16708#endif
16709 use pm_kind, only: CKG => CK1
16710 complex(CKG) , intent(inout) , contiguous :: array(:)
16711 type(selection_type) , intent(in) :: method
16712 end subroutine
16713#endif
16714
16715 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16716
16717#if RK5_ENABLED
16718 pure module subroutine setSortedArrDefComSelection_D1_RK5(array, method)
16719#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16720 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComSelection_D1_RK5
16721#endif
16722 use pm_kind, only: RKG => RK5
16723 real(RKG) , intent(inout) , contiguous :: array(:)
16724 type(selection_type) , intent(in) :: method
16725 end subroutine
16726#endif
16727
16728#if RK4_ENABLED
16729 pure module subroutine setSortedArrDefComSelection_D1_RK4(array, method)
16730#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16731 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComSelection_D1_RK4
16732#endif
16733 use pm_kind, only: RKG => RK4
16734 real(RKG) , intent(inout) , contiguous :: array(:)
16735 type(selection_type) , intent(in) :: method
16736 end subroutine
16737#endif
16738
16739#if RK3_ENABLED
16740 pure module subroutine setSortedArrDefComSelection_D1_RK3(array, method)
16741#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16742 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComSelection_D1_RK3
16743#endif
16744 use pm_kind, only: RKG => RK3
16745 real(RKG) , intent(inout) , contiguous :: array(:)
16746 type(selection_type) , intent(in) :: method
16747 end subroutine
16748#endif
16749
16750#if RK2_ENABLED
16751 pure module subroutine setSortedArrDefComSelection_D1_RK2(array, method)
16752#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16753 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComSelection_D1_RK2
16754#endif
16755 use pm_kind, only: RKG => RK2
16756 real(RKG) , intent(inout) , contiguous :: array(:)
16757 type(selection_type) , intent(in) :: method
16758 end subroutine
16759#endif
16760
16761#if RK1_ENABLED
16762 pure module subroutine setSortedArrDefComSelection_D1_RK1(array, method)
16763#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16764 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComSelection_D1_RK1
16765#endif
16766 use pm_kind, only: RKG => RK1
16767 real(RKG) , intent(inout) , contiguous :: array(:)
16768 type(selection_type) , intent(in) :: method
16769 end subroutine
16770#endif
16771
16772 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16773
16774#if PDT_ENABLED
16775
16776#if SK5_ENABLED
16777 pure module subroutine setSortedArrDefComSelection_D1_PSSK5(array, method)
16778#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16779 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComSelection_D1_PSSK5
16780#endif
16781 use pm_kind, only: SKG => SK5
16782 use pm_container, only: css_pdt
16783 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
16784 type(selection_type) , intent(in) :: method
16785 end subroutine
16786#endif
16787
16788#if SK4_ENABLED
16789 pure module subroutine setSortedArrDefComSelection_D1_PSSK4(array, method)
16790#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16791 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComSelection_D1_PSSK4
16792#endif
16793 use pm_kind, only: SKG => SK4
16794 use pm_container, only: css_pdt
16795 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
16796 type(selection_type) , intent(in) :: method
16797 end subroutine
16798#endif
16799
16800#if SK3_ENABLED
16801 pure module subroutine setSortedArrDefComSelection_D1_PSSK3(array, method)
16802#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16803 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComSelection_D1_PSSK3
16804#endif
16805 use pm_kind, only: SKG => SK3
16806 use pm_container, only: css_pdt
16807 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
16808 type(selection_type) , intent(in) :: method
16809 end subroutine
16810#endif
16811
16812#if SK2_ENABLED
16813 pure module subroutine setSortedArrDefComSelection_D1_PSSK2(array, method)
16814#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16815 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComSelection_D1_PSSK2
16816#endif
16817 use pm_kind, only: SKG => SK2
16818 use pm_container, only: css_pdt
16819 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
16820 type(selection_type) , intent(in) :: method
16821 end subroutine
16822#endif
16823
16824#if SK1_ENABLED
16825 pure module subroutine setSortedArrDefComSelection_D1_PSSK1(array, method)
16826#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16827 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComSelection_D1_PSSK1
16828#endif
16829 use pm_kind, only: SKG => SK1
16830 use pm_container, only: css_pdt
16831 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
16832 type(selection_type) , intent(in) :: method
16833 end subroutine
16834#endif
16835
16836#endif
16837!PDT_ENABLED
16838
16839 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16840
16841 pure module subroutine setSortedArrDefComSelection_D1_BSSK(array, method)
16842#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16843 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComSelection_D1_BSSK
16844#endif
16845 use pm_kind, only: SKG => SK
16846 use pm_container, only: css_type
16847 type(css_type) , intent(inout) , contiguous :: array(:)
16848 type(selection_type) , intent(in) :: method
16849 end subroutine
16850
16851 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16852
16853 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16854 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16855 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16856
16857 end interface
16858
16859 ! setSortedArrDefComShell
16860
16861 interface setSorted
16862
16863 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16864 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16865 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16866
16867 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16868
16869#if SK5_ENABLED
16870 pure module subroutine setSortedArrDefComShell_D0_SK5(array, method)
16871#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16872 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComShell_D0_SK5
16873#endif
16874 use pm_kind, only: SKG => SK5
16875 character(*,SKG) , intent(inout) :: array
16876 type(shell_type) , intent(in) :: method
16877 end subroutine
16878#endif
16879
16880#if SK4_ENABLED
16881 pure module subroutine setSortedArrDefComShell_D0_SK4(array, method)
16882#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16883 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComShell_D0_SK4
16884#endif
16885 use pm_kind, only: SKG => SK4
16886 character(*,SKG) , intent(inout) :: array
16887 type(shell_type) , intent(in) :: method
16888 end subroutine
16889#endif
16890
16891#if SK3_ENABLED
16892 pure module subroutine setSortedArrDefComShell_D0_SK3(array, method)
16893#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16894 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComShell_D0_SK3
16895#endif
16896 use pm_kind, only: SKG => SK3
16897 character(*,SKG) , intent(inout) :: array
16898 type(shell_type) , intent(in) :: method
16899 end subroutine
16900#endif
16901
16902#if SK2_ENABLED
16903 pure module subroutine setSortedArrDefComShell_D0_SK2(array, method)
16904#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16905 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComShell_D0_SK2
16906#endif
16907 use pm_kind, only: SKG => SK2
16908 character(*,SKG) , intent(inout) :: array
16909 type(shell_type) , intent(in) :: method
16910 end subroutine
16911#endif
16912
16913#if SK1_ENABLED
16914 pure module subroutine setSortedArrDefComShell_D0_SK1(array, method)
16915#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16916 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComShell_D0_SK1
16917#endif
16918 use pm_kind, only: SKG => SK1
16919 character(*,SKG) , intent(inout) :: array
16920 type(shell_type) , intent(in) :: method
16921 end subroutine
16922#endif
16923
16924 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16925
16926#if SK5_ENABLED
16927 pure module subroutine setSortedArrDefComShell_D1_SK5(array, method)
16928#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16929 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComShell_D1_SK5
16930#endif
16931 use pm_kind, only: SKG => SK5
16932 character(*,SKG) , intent(inout) , contiguous :: array(:)
16933 type(shell_type) , intent(in) :: method
16934 end subroutine
16935#endif
16936
16937#if SK4_ENABLED
16938 pure module subroutine setSortedArrDefComShell_D1_SK4(array, method)
16939#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16940 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComShell_D1_SK4
16941#endif
16942 use pm_kind, only: SKG => SK4
16943 character(*,SKG) , intent(inout) , contiguous :: array(:)
16944 type(shell_type) , intent(in) :: method
16945 end subroutine
16946#endif
16947
16948#if SK3_ENABLED
16949 pure module subroutine setSortedArrDefComShell_D1_SK3(array, method)
16950#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16951 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComShell_D1_SK3
16952#endif
16953 use pm_kind, only: SKG => SK3
16954 character(*,SKG) , intent(inout) , contiguous :: array(:)
16955 type(shell_type) , intent(in) :: method
16956 end subroutine
16957#endif
16958
16959#if SK2_ENABLED
16960 pure module subroutine setSortedArrDefComShell_D1_SK2(array, method)
16961#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16962 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComShell_D1_SK2
16963#endif
16964 use pm_kind, only: SKG => SK2
16965 character(*,SKG) , intent(inout) , contiguous :: array(:)
16966 type(shell_type) , intent(in) :: method
16967 end subroutine
16968#endif
16969
16970#if SK1_ENABLED
16971 pure module subroutine setSortedArrDefComShell_D1_SK1(array, method)
16972#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16973 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComShell_D1_SK1
16974#endif
16975 use pm_kind, only: SKG => SK1
16976 character(*,SKG) , intent(inout) , contiguous :: array(:)
16977 type(shell_type) , intent(in) :: method
16978 end subroutine
16979#endif
16980
16981 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16982
16983#if IK5_ENABLED
16984 pure module subroutine setSortedArrDefComShell_D1_IK5(array, method)
16985#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16986 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComShell_D1_IK5
16987#endif
16988 use pm_kind, only: IKG => IK5
16989 integer(IKG) , intent(inout) , contiguous :: array(:)
16990 type(shell_type) , intent(in) :: method
16991 end subroutine
16992#endif
16993
16994#if IK4_ENABLED
16995 pure module subroutine setSortedArrDefComShell_D1_IK4(array, method)
16996#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16997 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComShell_D1_IK4
16998#endif
16999 use pm_kind, only: IKG => IK4
17000 integer(IKG) , intent(inout) , contiguous :: array(:)
17001 type(shell_type) , intent(in) :: method
17002 end subroutine
17003#endif
17004
17005#if IK3_ENABLED
17006 pure module subroutine setSortedArrDefComShell_D1_IK3(array, method)
17007#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17008 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComShell_D1_IK3
17009#endif
17010 use pm_kind, only: IKG => IK3
17011 integer(IKG) , intent(inout) , contiguous :: array(:)
17012 type(shell_type) , intent(in) :: method
17013 end subroutine
17014#endif
17015
17016#if IK2_ENABLED
17017 pure module subroutine setSortedArrDefComShell_D1_IK2(array, method)
17018#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17019 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComShell_D1_IK2
17020#endif
17021 use pm_kind, only: IKG => IK2
17022 integer(IKG) , intent(inout) , contiguous :: array(:)
17023 type(shell_type) , intent(in) :: method
17024 end subroutine
17025#endif
17026
17027#if IK1_ENABLED
17028 pure module subroutine setSortedArrDefComShell_D1_IK1(array, method)
17029#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17030 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComShell_D1_IK1
17031#endif
17032 use pm_kind, only: IKG => IK1
17033 integer(IKG) , intent(inout) , contiguous :: array(:)
17034 type(shell_type) , intent(in) :: method
17035 end subroutine
17036#endif
17037
17038 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17039
17040#if LK5_ENABLED
17041 pure module subroutine setSortedArrDefComShell_D1_LK5(array, method)
17042#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17043 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComShell_D1_LK5
17044#endif
17045 use pm_kind, only: LKG => LK5
17046 logical(LKG) , intent(inout) , contiguous :: array(:)
17047 type(shell_type) , intent(in) :: method
17048 end subroutine
17049#endif
17050
17051#if LK4_ENABLED
17052 pure module subroutine setSortedArrDefComShell_D1_LK4(array, method)
17053#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17054 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComShell_D1_LK4
17055#endif
17056 use pm_kind, only: LKG => LK4
17057 logical(LKG) , intent(inout) , contiguous :: array(:)
17058 type(shell_type) , intent(in) :: method
17059 end subroutine
17060#endif
17061
17062#if LK3_ENABLED
17063 pure module subroutine setSortedArrDefComShell_D1_LK3(array, method)
17064#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17065 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComShell_D1_LK3
17066#endif
17067 use pm_kind, only: LKG => LK3
17068 logical(LKG) , intent(inout) , contiguous :: array(:)
17069 type(shell_type) , intent(in) :: method
17070 end subroutine
17071#endif
17072
17073#if LK2_ENABLED
17074 pure module subroutine setSortedArrDefComShell_D1_LK2(array, method)
17075#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17076 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComShell_D1_LK2
17077#endif
17078 use pm_kind, only: LKG => LK2
17079 logical(LKG) , intent(inout) , contiguous :: array(:)
17080 type(shell_type) , intent(in) :: method
17081 end subroutine
17082#endif
17083
17084#if LK1_ENABLED
17085 pure module subroutine setSortedArrDefComShell_D1_LK1(array, method)
17086#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17087 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComShell_D1_LK1
17088#endif
17089 use pm_kind, only: LKG => LK1
17090 logical(LKG) , intent(inout) , contiguous :: array(:)
17091 type(shell_type) , intent(in) :: method
17092 end subroutine
17093#endif
17094
17095 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17096
17097#if CK5_ENABLED
17098 pure module subroutine setSortedArrDefComShell_D1_CK5(array, method)
17099#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17100 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComShell_D1_CK5
17101#endif
17102 use pm_kind, only: CKG => CK5
17103 complex(CKG) , intent(inout) , contiguous :: array(:)
17104 type(shell_type) , intent(in) :: method
17105 end subroutine
17106#endif
17107
17108#if CK4_ENABLED
17109 pure module subroutine setSortedArrDefComShell_D1_CK4(array, method)
17110#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17111 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComShell_D1_CK4
17112#endif
17113 use pm_kind, only: CKG => CK4
17114 complex(CKG) , intent(inout) , contiguous :: array(:)
17115 type(shell_type) , intent(in) :: method
17116 end subroutine
17117#endif
17118
17119#if CK3_ENABLED
17120 pure module subroutine setSortedArrDefComShell_D1_CK3(array, method)
17121#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17122 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComShell_D1_CK3
17123#endif
17124 use pm_kind, only: CKG => CK3
17125 complex(CKG) , intent(inout) , contiguous :: array(:)
17126 type(shell_type) , intent(in) :: method
17127 end subroutine
17128#endif
17129
17130#if CK2_ENABLED
17131 pure module subroutine setSortedArrDefComShell_D1_CK2(array, method)
17132#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17133 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComShell_D1_CK2
17134#endif
17135 use pm_kind, only: CKG => CK2
17136 complex(CKG) , intent(inout) , contiguous :: array(:)
17137 type(shell_type) , intent(in) :: method
17138 end subroutine
17139#endif
17140
17141#if CK1_ENABLED
17142 pure module subroutine setSortedArrDefComShell_D1_CK1(array, method)
17143#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17144 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComShell_D1_CK1
17145#endif
17146 use pm_kind, only: CKG => CK1
17147 complex(CKG) , intent(inout) , contiguous :: array(:)
17148 type(shell_type) , intent(in) :: method
17149 end subroutine
17150#endif
17151
17152 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17153
17154#if RK5_ENABLED
17155 pure module subroutine setSortedArrDefComShell_D1_RK5(array, method)
17156#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17157 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComShell_D1_RK5
17158#endif
17159 use pm_kind, only: RKG => RK5
17160 real(RKG) , intent(inout) , contiguous :: array(:)
17161 type(shell_type) , intent(in) :: method
17162 end subroutine
17163#endif
17164
17165#if RK4_ENABLED
17166 pure module subroutine setSortedArrDefComShell_D1_RK4(array, method)
17167#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17168 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComShell_D1_RK4
17169#endif
17170 use pm_kind, only: RKG => RK4
17171 real(RKG) , intent(inout) , contiguous :: array(:)
17172 type(shell_type) , intent(in) :: method
17173 end subroutine
17174#endif
17175
17176#if RK3_ENABLED
17177 pure module subroutine setSortedArrDefComShell_D1_RK3(array, method)
17178#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17179 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComShell_D1_RK3
17180#endif
17181 use pm_kind, only: RKG => RK3
17182 real(RKG) , intent(inout) , contiguous :: array(:)
17183 type(shell_type) , intent(in) :: method
17184 end subroutine
17185#endif
17186
17187#if RK2_ENABLED
17188 pure module subroutine setSortedArrDefComShell_D1_RK2(array, method)
17189#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17190 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComShell_D1_RK2
17191#endif
17192 use pm_kind, only: RKG => RK2
17193 real(RKG) , intent(inout) , contiguous :: array(:)
17194 type(shell_type) , intent(in) :: method
17195 end subroutine
17196#endif
17197
17198#if RK1_ENABLED
17199 pure module subroutine setSortedArrDefComShell_D1_RK1(array, method)
17200#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17201 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComShell_D1_RK1
17202#endif
17203 use pm_kind, only: RKG => RK1
17204 real(RKG) , intent(inout) , contiguous :: array(:)
17205 type(shell_type) , intent(in) :: method
17206 end subroutine
17207#endif
17208
17209 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17210
17211#if PDT_ENABLED
17212
17213#if SK5_ENABLED
17214 pure module subroutine setSortedArrDefComShell_D1_PSSK5(array, method)
17215#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17216 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComShell_D1_PSSK5
17217#endif
17218 use pm_kind, only: SKG => SK5
17219 use pm_container, only: css_pdt
17220 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
17221 type(shell_type) , intent(in) :: method
17222 end subroutine
17223#endif
17224
17225#if SK4_ENABLED
17226 pure module subroutine setSortedArrDefComShell_D1_PSSK4(array, method)
17227#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17228 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComShell_D1_PSSK4
17229#endif
17230 use pm_kind, only: SKG => SK4
17231 use pm_container, only: css_pdt
17232 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
17233 type(shell_type) , intent(in) :: method
17234 end subroutine
17235#endif
17236
17237#if SK3_ENABLED
17238 pure module subroutine setSortedArrDefComShell_D1_PSSK3(array, method)
17239#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17240 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComShell_D1_PSSK3
17241#endif
17242 use pm_kind, only: SKG => SK3
17243 use pm_container, only: css_pdt
17244 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
17245 type(shell_type) , intent(in) :: method
17246 end subroutine
17247#endif
17248
17249#if SK2_ENABLED
17250 pure module subroutine setSortedArrDefComShell_D1_PSSK2(array, method)
17251#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17252 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComShell_D1_PSSK2
17253#endif
17254 use pm_kind, only: SKG => SK2
17255 use pm_container, only: css_pdt
17256 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
17257 type(shell_type) , intent(in) :: method
17258 end subroutine
17259#endif
17260
17261#if SK1_ENABLED
17262 pure module subroutine setSortedArrDefComShell_D1_PSSK1(array, method)
17263#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17264 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComShell_D1_PSSK1
17265#endif
17266 use pm_kind, only: SKG => SK1
17267 use pm_container, only: css_pdt
17268 type(css_pdt(SKG)) , intent(inout) , contiguous :: array(:)
17269 type(shell_type) , intent(in) :: method
17270 end subroutine
17271#endif
17272
17273#endif
17274!PDT_ENABLED
17275
17276 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17277
17278 pure module subroutine setSortedArrDefComShell_D1_BSSK(array, method)
17279#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17280 !DEC$ ATTRIBUTES DLLEXPORT :: setSortedArrDefComShell_D1_BSSK
17281#endif
17282 use pm_kind, only: SKG => SK
17283 use pm_container, only: css_type
17284 type(css_type) , intent(inout) , contiguous :: array(:)
17285 type(shell_type) , intent(in) :: method
17286 end subroutine
17287
17288 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17289
17290 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17291 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17292 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17293
17294 end interface
17295
17296!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17297
17298end module pm_arraySort
Generate and return the sorted elements of the input scalar string or contiguous vector in ascending ...
Generate and return .true. if the input array is sorted in strictly all ascending order (without equa...
Generate and return .true. if the input array is sorted in ascending order (with the possibility of e...
Generate and return .true. if the input array is sorted in strictly all descending order (without equ...
Generate and return .true. if the input array is sorted in descending order (with the possibility of ...
Return .true. if the input array is sorted, either ascending or descending, or all equal.
Sort the input scalar string or contiguous vector in ascending order, or return the sorted indices of...
This module contains procedures and generic interfaces for various sorting tasks.
type(qsorti_type), parameter qsorti
type(isort_type), parameter isort
type(shell_type), parameter shell
type(bubble_type), parameter bubble
character(*, SK), parameter MODULE_NAME
type(qsortr_type), parameter qsortr
type(insertionl_type), parameter insertionl
type(heapi_type), parameter heapi
type(selection_type), parameter selection
type(qsortrdp_type), parameter qsortrdp
type(heapr_type), parameter heapr
type(insertionb_type), parameter insertionb
type(merger_type), parameter merger
This module contains the derived types for generating allocatable containers of scalar,...
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:268
integer, parameter SK5
Definition: pm_kind.F90:326
integer, parameter LK1
Definition: pm_kind.F90:412
integer, parameter IK3
Definition: pm_kind.F90:368
integer, parameter RK5
Definition: pm_kind.F90:478
integer, parameter RK4
Definition: pm_kind.F90:489
integer, parameter SK1
Definition: pm_kind.F90:346
integer, parameter IK1
Definition: pm_kind.F90:382
integer, parameter LK5
Definition: pm_kind.F90:392
integer, parameter RK2
Definition: pm_kind.F90:511
integer, parameter RK
The default real kind in the ParaMonte library: real64 in Fortran, c_double in C-Fortran Interoperati...
Definition: pm_kind.F90:543
integer, parameter CK1
Definition: pm_kind.F90:464
integer, parameter RK3
Definition: pm_kind.F90:500
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:541
integer, parameter LK2
Definition: pm_kind.F90:407
integer, parameter LK4
Definition: pm_kind.F90:397
integer, parameter CK5
Definition: pm_kind.F90:420
integer, parameter CK4
Definition: pm_kind.F90:431
integer, parameter SK4
Definition: pm_kind.F90:331
integer, parameter LK3
Definition: pm_kind.F90:402
integer, parameter IK2
Definition: pm_kind.F90:375
integer, parameter CK2
Definition: pm_kind.F90:453
integer, parameter SK2
Definition: pm_kind.F90:341
integer, parameter CK3
Definition: pm_kind.F90:442
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
integer, parameter IK4
Definition: pm_kind.F90:361
integer, parameter IK5
Definition: pm_kind.F90:354
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
integer, parameter RK1
Definition: pm_kind.F90:522
integer, parameter SK3
Definition: pm_kind.F90:336
This is the css_pdt parameterized type for generating instances of container of scalar of string obje...
This is the css_type type for generating instances of container of scalar of string objects.