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
89module pm_arraySort
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
146 type(insertionl_type), parameter :: insertionl = insertionl_type()
147#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
148 !DIR$ ATTRIBUTES DLLEXPORT :: insertionl
149#endif
150 type(insertionb_type), parameter :: insertionb = insertionb_type()
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
158 type(selection_type), parameter :: selection = selection_type()
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
231 interface isAscendingAll
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
730 interface isDescendingAll
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
1724 interface isDescending
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
pm_arraySort::getSorted
Generate and return the sorted elements of the input scalar string or contiguous vector in ascending ...
Definition: pm_arraySort.F90:3349
pm_arraySort::isAscendingAll
Generate and return .true. if the input array is sorted in strictly all ascending order (without equa...
Definition: pm_arraySort.F90:231
pm_arraySort::isAscending
Generate and return .true. if the input array is sorted in ascending order (with the possibility of e...
Definition: pm_arraySort.F90:1229
pm_arraySort::isDescendingAll
Generate and return .true. if the input array is sorted in strictly all descending order (without equ...
Definition: pm_arraySort.F90:730
pm_arraySort::isDescending
Generate and return .true. if the input array is sorted in descending order (with the possibility of ...
Definition: pm_arraySort.F90:1724
pm_arraySort::isSorted
Return .true. if the input array is sorted, either ascending or descending, or all equal.
Definition: pm_arraySort.F90:2251
pm_arraySort::setSorted
Sort the input scalar string or contiguous vector in ascending order, or return the sorted indices of...
Definition: pm_arraySort.F90:5540
pm_arraySort
This module contains procedures and generic interfaces for various sorting tasks.
Definition: pm_arraySort.F90:89
pm_arraySort::qsorti
type(qsorti_type), parameter qsorti
Definition: pm_arraySort.F90:122
pm_arraySort::isort
type(isort_type), parameter isort
Definition: pm_arraySort.F90:117
pm_arraySort::shell
type(shell_type), parameter shell
Definition: pm_arraySort.F90:162
pm_arraySort::bubble
type(bubble_type), parameter bubble
Definition: pm_arraySort.F90:134
pm_arraySort::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_arraySort.F90:95
pm_arraySort::qsortr
type(qsortr_type), parameter qsortr
Definition: pm_arraySort.F90:126
pm_arraySort::insertionl
type(insertionl_type), parameter insertionl
Definition: pm_arraySort.F90:146
pm_arraySort::heapi
type(heapi_type), parameter heapi
Definition: pm_arraySort.F90:138
pm_arraySort::selection
type(selection_type), parameter selection
Definition: pm_arraySort.F90:158
pm_arraySort::qsortrdp
type(qsortrdp_type), parameter qsortrdp
Definition: pm_arraySort.F90:130
pm_arraySort::heapr
type(heapr_type), parameter heapr
Definition: pm_arraySort.F90:142
pm_arraySort::insertionb
type(insertionb_type), parameter insertionb
Definition: pm_arraySort.F90:150
pm_arraySort::merger
type(merger_type), parameter merger
Definition: pm_arraySort.F90:154
pm_container
This module contains the derived types for generating allocatable containers of scalar,...
Definition: pm_container.F90:113
pm_kind
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:268
pm_kind::SK5
integer, parameter SK5
Definition: pm_kind.F90:326
pm_kind::LK1
integer, parameter LK1
Definition: pm_kind.F90:412
pm_kind::IK3
integer, parameter IK3
Definition: pm_kind.F90:368
pm_kind::RK5
integer, parameter RK5
Definition: pm_kind.F90:478
pm_kind::RK4
integer, parameter RK4
Definition: pm_kind.F90:489
pm_kind::SK1
integer, parameter SK1
Definition: pm_kind.F90:346
pm_kind::IK1
integer, parameter IK1
Definition: pm_kind.F90:382
pm_kind::LK5
integer, parameter LK5
Definition: pm_kind.F90:392
pm_kind::RK2
integer, parameter RK2
Definition: pm_kind.F90:511
pm_kind::RK
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
pm_kind::CK1
integer, parameter CK1
Definition: pm_kind.F90:464
pm_kind::RK3
integer, parameter RK3
Definition: pm_kind.F90:500
pm_kind::LK
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:541
pm_kind::LK2
integer, parameter LK2
Definition: pm_kind.F90:407
pm_kind::LK4
integer, parameter LK4
Definition: pm_kind.F90:397
pm_kind::CK5
integer, parameter CK5
Definition: pm_kind.F90:420
pm_kind::CK4
integer, parameter CK4
Definition: pm_kind.F90:431
pm_kind::SK4
integer, parameter SK4
Definition: pm_kind.F90:331
pm_kind::LK3
integer, parameter LK3
Definition: pm_kind.F90:402
pm_kind::IK2
integer, parameter IK2
Definition: pm_kind.F90:375
pm_kind::CK2
integer, parameter CK2
Definition: pm_kind.F90:453
pm_kind::SK2
integer, parameter SK2
Definition: pm_kind.F90:341
pm_kind::CK3
integer, parameter CK3
Definition: pm_kind.F90:442
pm_kind::IK
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:540
pm_kind::IK4
integer, parameter IK4
Definition: pm_kind.F90:361
pm_kind::IK5
integer, parameter IK5
Definition: pm_kind.F90:354
pm_kind::SK
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
Definition: pm_kind.F90:539
pm_kind::RK1
integer, parameter RK1
Definition: pm_kind.F90:522
pm_kind::SK3
integer, parameter SK3
Definition: pm_kind.F90:336
pm_arraySort::bubble_type
Definition: pm_arraySort.F90:108
pm_arraySort::heap_type
Definition: pm_arraySort.F90:103
pm_arraySort::heapi_type
Definition: pm_arraySort.F90:109
pm_arraySort::heapr_type
Definition: pm_arraySort.F90:110
pm_arraySort::insertion_type
Definition: pm_arraySort.F90:104
pm_arraySort::insertionb_type
Definition: pm_arraySort.F90:112
pm_arraySort::insertionl_type
Definition: pm_arraySort.F90:111
pm_arraySort::isort_type
Definition: pm_arraySort.F90:99
pm_arraySort::merger_type
Definition: pm_arraySort.F90:113
pm_arraySort::qsort_type
Definition: pm_arraySort.F90:101
pm_arraySort::qsorti_type
Definition: pm_arraySort.F90:102
pm_arraySort::qsortr_type
Definition: pm_arraySort.F90:106
pm_arraySort::qsortrdp_type
Definition: pm_arraySort.F90:107
pm_arraySort::selection_type
Definition: pm_arraySort.F90:114
pm_arraySort::shell_type
Definition: pm_arraySort.F90:115
pm_arraySort::sort_type
Definition: pm_arraySort.F90:100
pm_container::css_pdt
This is the css_pdt parameterized type for generating instances of container of scalar of string obje...
Definition: pm_container.F90:783
pm_container::css_type
This is the css_type type for generating instances of container of scalar of string objects.
Definition: pm_container.F90:191