150 PURE module function getMergedDefCom_D0_SK5(sortedArray1, sortedArray2)
result(mergedSortedArray)
151#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
152 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedDefCom_D0_SK5
155 character(
*,SKG) ,
intent(in) :: sortedArray1, sortedArray2
156 character(
len(sortedArray1,IK)
+ len(sortedArray2,IK)) :: mergedSortedArray
161 PURE module function getMergedDefCom_D0_SK4(sortedArray1, sortedArray2)
result(mergedSortedArray)
162#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
163 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedDefCom_D0_SK4
166 character(
*,SKG) ,
intent(in) :: sortedArray1, sortedArray2
167 character(
len(sortedArray1,IK)
+ len(sortedArray2,IK)) :: mergedSortedArray
172 PURE module function getMergedDefCom_D0_SK3(sortedArray1, sortedArray2)
result(mergedSortedArray)
173#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
174 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedDefCom_D0_SK3
177 character(
*,SKG) ,
intent(in) :: sortedArray1, sortedArray2
178 character(
len(sortedArray1,IK)
+ len(sortedArray2,IK)) :: mergedSortedArray
183 PURE module function getMergedDefCom_D0_SK2(sortedArray1, sortedArray2)
result(mergedSortedArray)
184#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
185 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedDefCom_D0_SK2
188 character(
*,SKG) ,
intent(in) :: sortedArray1, sortedArray2
189 character(
len(sortedArray1,IK)
+ len(sortedArray2,IK)) :: mergedSortedArray
194 PURE module function getMergedDefCom_D0_SK1(sortedArray1, sortedArray2)
result(mergedSortedArray)
195#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
196 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedDefCom_D0_SK1
199 character(
*,SKG) ,
intent(in) :: sortedArray1, sortedArray2
200 character(
len(sortedArray1,IK)
+ len(sortedArray2,IK)) :: mergedSortedArray
207 PURE module function getMergedDefCom_D1_SK5(sortedArray1, sortedArray2)
result(mergedSortedArray)
208#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
209 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedDefCom_D1_SK5
212 character(
*,SKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
213 character(
len(sortedArray1,IK)) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
218 PURE module function getMergedDefCom_D1_SK4(sortedArray1, sortedArray2)
result(mergedSortedArray)
219#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
220 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedDefCom_D1_SK4
223 character(
*,SKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
224 character(
len(sortedArray1,IK)) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
229 PURE module function getMergedDefCom_D1_SK3(sortedArray1, sortedArray2)
result(mergedSortedArray)
230#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
231 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedDefCom_D1_SK3
234 character(
*,SKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
235 character(
len(sortedArray1,IK)) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
240 PURE module function getMergedDefCom_D1_SK2(sortedArray1, sortedArray2)
result(mergedSortedArray)
241#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
242 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedDefCom_D1_SK2
245 character(
*,SKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
246 character(
len(sortedArray1,IK)) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
251 PURE module function getMergedDefCom_D1_SK1(sortedArray1, sortedArray2)
result(mergedSortedArray)
252#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
253 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedDefCom_D1_SK1
256 character(
*,SKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
257 character(
len(sortedArray1,IK)) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
264 PURE module function getMergedDefCom_D1_IK5(sortedArray1, sortedArray2)
result(mergedSortedArray)
265#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
266 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedDefCom_D1_IK5
269 integer(IKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
270 integer(IKG) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
275 PURE module function getMergedDefCom_D1_IK4(sortedArray1, sortedArray2)
result(mergedSortedArray)
276#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
277 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedDefCom_D1_IK4
280 integer(IKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
281 integer(IKG) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
286 PURE module function getMergedDefCom_D1_IK3(sortedArray1, sortedArray2)
result(mergedSortedArray)
287#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
288 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedDefCom_D1_IK3
291 integer(IKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
292 integer(IKG) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
297 PURE module function getMergedDefCom_D1_IK2(sortedArray1, sortedArray2)
result(mergedSortedArray)
298#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
299 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedDefCom_D1_IK2
302 integer(IKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
303 integer(IKG) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
308 PURE module function getMergedDefCom_D1_IK1(sortedArray1, sortedArray2)
result(mergedSortedArray)
309#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
310 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedDefCom_D1_IK1
313 integer(IKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
314 integer(IKG) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
321 PURE module function getMergedDefCom_D1_LK5(sortedArray1, sortedArray2)
result(mergedSortedArray)
322#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
323 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedDefCom_D1_LK5
326 logical(LKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
327 logical(LKG) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
332 PURE module function getMergedDefCom_D1_LK4(sortedArray1, sortedArray2)
result(mergedSortedArray)
333#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
334 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedDefCom_D1_LK4
337 logical(LKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
338 logical(LKG) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
343 PURE module function getMergedDefCom_D1_LK3(sortedArray1, sortedArray2)
result(mergedSortedArray)
344#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
345 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedDefCom_D1_LK3
348 logical(LKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
349 logical(LKG) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
354 PURE module function getMergedDefCom_D1_LK2(sortedArray1, sortedArray2)
result(mergedSortedArray)
355#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
356 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedDefCom_D1_LK2
359 logical(LKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
360 logical(LKG) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
365 PURE module function getMergedDefCom_D1_LK1(sortedArray1, sortedArray2)
result(mergedSortedArray)
366#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
367 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedDefCom_D1_LK1
370 logical(LKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
371 logical(LKG) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
378 PURE module function getMergedDefCom_D1_CK5(sortedArray1, sortedArray2)
result(mergedSortedArray)
379#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
380 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedDefCom_D1_CK5
383 complex(CKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
384 complex(CKG) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
389 PURE module function getMergedDefCom_D1_CK4(sortedArray1, sortedArray2)
result(mergedSortedArray)
390#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
391 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedDefCom_D1_CK4
394 complex(CKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
395 complex(CKG) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
400 PURE module function getMergedDefCom_D1_CK3(sortedArray1, sortedArray2)
result(mergedSortedArray)
401#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
402 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedDefCom_D1_CK3
405 complex(CKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
406 complex(CKG) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
411 PURE module function getMergedDefCom_D1_CK2(sortedArray1, sortedArray2)
result(mergedSortedArray)
412#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
413 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedDefCom_D1_CK2
416 complex(CKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
417 complex(CKG) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
422 PURE module function getMergedDefCom_D1_CK1(sortedArray1, sortedArray2)
result(mergedSortedArray)
423#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
424 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedDefCom_D1_CK1
427 complex(CKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
428 complex(CKG) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
435 PURE module function getMergedDefCom_D1_RK5(sortedArray1, sortedArray2)
result(mergedSortedArray)
436#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
437 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedDefCom_D1_RK5
440 real(RKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
441 real(RKG) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
446 PURE module function getMergedDefCom_D1_RK4(sortedArray1, sortedArray2)
result(mergedSortedArray)
447#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
448 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedDefCom_D1_RK4
451 real(RKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
452 real(RKG) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
457 PURE module function getMergedDefCom_D1_RK3(sortedArray1, sortedArray2)
result(mergedSortedArray)
458#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
459 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedDefCom_D1_RK3
462 real(RKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
463 real(RKG) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
468 PURE module function getMergedDefCom_D1_RK2(sortedArray1, sortedArray2)
result(mergedSortedArray)
469#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
470 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedDefCom_D1_RK2
473 real(RKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
474 real(RKG) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
479 PURE module function getMergedDefCom_D1_RK1(sortedArray1, sortedArray2)
result(mergedSortedArray)
480#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
481 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedDefCom_D1_RK1
484 real(RKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
485 real(RKG) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
494 PURE module function getMergedDefCom_D1_PSSK5(sortedArray1, sortedArray2)
result(mergedSortedArray)
495#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
496 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedDefCom_D1_PSSK5
500 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
501 type(css_pdt(SKG)) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
506 PURE module function getMergedDefCom_D1_PSSK4(sortedArray1, sortedArray2)
result(mergedSortedArray)
507#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
508 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedDefCom_D1_PSSK4
512 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
513 type(css_pdt(SKG)) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
518 PURE module function getMergedDefCom_D1_PSSK3(sortedArray1, sortedArray2)
result(mergedSortedArray)
519#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
520 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedDefCom_D1_PSSK3
524 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
525 type(css_pdt(SKG)) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
530 PURE module function getMergedDefCom_D1_PSSK2(sortedArray1, sortedArray2)
result(mergedSortedArray)
531#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
532 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedDefCom_D1_PSSK2
536 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
537 type(css_pdt(SKG)) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
542 PURE module function getMergedDefCom_D1_PSSK1(sortedArray1, sortedArray2)
result(mergedSortedArray)
543#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
544 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedDefCom_D1_PSSK1
548 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
549 type(css_pdt(SKG)) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
558 PURE module function getMergedDefCom_D1_BSSK(sortedArray1, sortedArray2)
result(mergedSortedArray)
559#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
560 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedDefCom_D1_BSSK
564 type(css_type) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
565 type(css_type) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
587 module function getMergedCusCom_D0_SK5(sortedArray1, sortedArray2, isSorted)
result(mergedSortedArray)
588#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
589 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedCusCom_D0_SK5
592 character(
*,SKG) ,
intent(in) :: sortedArray1, sortedArray2
593 character(
len(sortedArray1,IK)
+ len(sortedArray2,IK)) :: mergedSortedArray
594 procedure(
logical(LK)) :: isSorted
599 module function getMergedCusCom_D0_SK4(sortedArray1, sortedArray2, isSorted)
result(mergedSortedArray)
600#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
601 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedCusCom_D0_SK4
604 character(
*,SKG) ,
intent(in) :: sortedArray1, sortedArray2
605 character(
len(sortedArray1,IK)
+ len(sortedArray2,IK)) :: mergedSortedArray
606 procedure(
logical(LK)) :: isSorted
611 module function getMergedCusCom_D0_SK3(sortedArray1, sortedArray2, isSorted)
result(mergedSortedArray)
612#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
613 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedCusCom_D0_SK3
616 character(
*,SKG) ,
intent(in) :: sortedArray1, sortedArray2
617 character(
len(sortedArray1,IK)
+ len(sortedArray2,IK)) :: mergedSortedArray
618 procedure(
logical(LK)) :: isSorted
623 module function getMergedCusCom_D0_SK2(sortedArray1, sortedArray2, isSorted)
result(mergedSortedArray)
624#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
625 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedCusCom_D0_SK2
628 character(
*,SKG) ,
intent(in) :: sortedArray1, sortedArray2
629 character(
len(sortedArray1,IK)
+ len(sortedArray2,IK)) :: mergedSortedArray
630 procedure(
logical(LK)) :: isSorted
635 module function getMergedCusCom_D0_SK1(sortedArray1, sortedArray2, isSorted)
result(mergedSortedArray)
636#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
637 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedCusCom_D0_SK1
640 character(
*,SKG) ,
intent(in) :: sortedArray1, sortedArray2
641 character(
len(sortedArray1,IK)
+ len(sortedArray2,IK)) :: mergedSortedArray
642 procedure(
logical(LK)) :: isSorted
649 module function getMergedCusCom_D1_SK5(sortedArray1, sortedArray2, isSorted)
result(mergedSortedArray)
650#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
651 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedCusCom_D1_SK5
654 character(
*,SKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
655 character(
len(sortedArray1,IK)) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
656 procedure(
logical(LK)) :: isSorted
661 module function getMergedCusCom_D1_SK4(sortedArray1, sortedArray2, isSorted)
result(mergedSortedArray)
662#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
663 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedCusCom_D1_SK4
666 character(
*,SKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
667 character(
len(sortedArray1,IK)) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
668 procedure(
logical(LK)) :: isSorted
673 module function getMergedCusCom_D1_SK3(sortedArray1, sortedArray2, isSorted)
result(mergedSortedArray)
674#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
675 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedCusCom_D1_SK3
678 character(
*,SKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
679 character(
len(sortedArray1,IK)) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
680 procedure(
logical(LK)) :: isSorted
685 module function getMergedCusCom_D1_SK2(sortedArray1, sortedArray2, isSorted)
result(mergedSortedArray)
686#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
687 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedCusCom_D1_SK2
690 character(
*,SKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
691 character(
len(sortedArray1,IK)) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
692 procedure(
logical(LK)) :: isSorted
697 module function getMergedCusCom_D1_SK1(sortedArray1, sortedArray2, isSorted)
result(mergedSortedArray)
698#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
699 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedCusCom_D1_SK1
702 character(
*,SKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
703 character(
len(sortedArray1,IK)) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
704 procedure(
logical(LK)) :: isSorted
711 module function getMergedCusCom_D1_IK5(sortedArray1, sortedArray2, isSorted)
result(mergedSortedArray)
712#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
713 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedCusCom_D1_IK5
716 integer(IKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
717 integer(IKG) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
718 procedure(
logical(LK)) :: isSorted
723 module function getMergedCusCom_D1_IK4(sortedArray1, sortedArray2, isSorted)
result(mergedSortedArray)
724#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
725 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedCusCom_D1_IK4
728 integer(IKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
729 integer(IKG) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
730 procedure(
logical(LK)) :: isSorted
735 module function getMergedCusCom_D1_IK3(sortedArray1, sortedArray2, isSorted)
result(mergedSortedArray)
736#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
737 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedCusCom_D1_IK3
740 integer(IKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
741 integer(IKG) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
742 procedure(
logical(LK)) :: isSorted
747 module function getMergedCusCom_D1_IK2(sortedArray1, sortedArray2, isSorted)
result(mergedSortedArray)
748#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
749 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedCusCom_D1_IK2
752 integer(IKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
753 integer(IKG) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
754 procedure(
logical(LK)) :: isSorted
759 module function getMergedCusCom_D1_IK1(sortedArray1, sortedArray2, isSorted)
result(mergedSortedArray)
760#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
761 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedCusCom_D1_IK1
764 integer(IKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
765 integer(IKG) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
766 procedure(
logical(LK)) :: isSorted
773 module function getMergedCusCom_D1_LK5(sortedArray1, sortedArray2, isSorted)
result(mergedSortedArray)
774#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
775 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedCusCom_D1_LK5
778 logical(LKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
779 logical(LKG) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
780 procedure(
logical(LK)) :: isSorted
785 module function getMergedCusCom_D1_LK4(sortedArray1, sortedArray2, isSorted)
result(mergedSortedArray)
786#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
787 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedCusCom_D1_LK4
790 logical(LKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
791 logical(LKG) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
792 procedure(
logical(LK)) :: isSorted
797 module function getMergedCusCom_D1_LK3(sortedArray1, sortedArray2, isSorted)
result(mergedSortedArray)
798#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
799 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedCusCom_D1_LK3
802 logical(LKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
803 logical(LKG) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
804 procedure(
logical(LK)) :: isSorted
809 module function getMergedCusCom_D1_LK2(sortedArray1, sortedArray2, isSorted)
result(mergedSortedArray)
810#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
811 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedCusCom_D1_LK2
814 logical(LKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
815 logical(LKG) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
816 procedure(
logical(LK)) :: isSorted
821 module function getMergedCusCom_D1_LK1(sortedArray1, sortedArray2, isSorted)
result(mergedSortedArray)
822#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
823 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedCusCom_D1_LK1
826 logical(LKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
827 logical(LKG) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
828 procedure(
logical(LK)) :: isSorted
835 module function getMergedCusCom_D1_CK5(sortedArray1, sortedArray2, isSorted)
result(mergedSortedArray)
836#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
837 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedCusCom_D1_CK5
840 complex(CKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
841 complex(CKG) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
842 procedure(
logical(LK)) :: isSorted
847 module function getMergedCusCom_D1_CK4(sortedArray1, sortedArray2, isSorted)
result(mergedSortedArray)
848#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
849 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedCusCom_D1_CK4
852 complex(CKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
853 complex(CKG) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
854 procedure(
logical(LK)) :: isSorted
859 module function getMergedCusCom_D1_CK3(sortedArray1, sortedArray2, isSorted)
result(mergedSortedArray)
860#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
861 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedCusCom_D1_CK3
864 complex(CKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
865 complex(CKG) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
866 procedure(
logical(LK)) :: isSorted
871 module function getMergedCusCom_D1_CK2(sortedArray1, sortedArray2, isSorted)
result(mergedSortedArray)
872#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
873 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedCusCom_D1_CK2
876 complex(CKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
877 complex(CKG) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
878 procedure(
logical(LK)) :: isSorted
883 module function getMergedCusCom_D1_CK1(sortedArray1, sortedArray2, isSorted)
result(mergedSortedArray)
884#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
885 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedCusCom_D1_CK1
888 complex(CKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
889 complex(CKG) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
890 procedure(
logical(LK)) :: isSorted
897 module function getMergedCusCom_D1_RK5(sortedArray1, sortedArray2, isSorted)
result(mergedSortedArray)
898#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
899 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedCusCom_D1_RK5
902 real(RKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
903 real(RKG) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
904 procedure(
logical(LK)) :: isSorted
909 module function getMergedCusCom_D1_RK4(sortedArray1, sortedArray2, isSorted)
result(mergedSortedArray)
910#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
911 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedCusCom_D1_RK4
914 real(RKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
915 real(RKG) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
916 procedure(
logical(LK)) :: isSorted
921 module function getMergedCusCom_D1_RK3(sortedArray1, sortedArray2, isSorted)
result(mergedSortedArray)
922#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
923 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedCusCom_D1_RK3
926 real(RKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
927 real(RKG) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
928 procedure(
logical(LK)) :: isSorted
933 module function getMergedCusCom_D1_RK2(sortedArray1, sortedArray2, isSorted)
result(mergedSortedArray)
934#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
935 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedCusCom_D1_RK2
938 real(RKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
939 real(RKG) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
940 procedure(
logical(LK)) :: isSorted
945 module function getMergedCusCom_D1_RK1(sortedArray1, sortedArray2, isSorted)
result(mergedSortedArray)
946#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
947 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedCusCom_D1_RK1
950 real(RKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
951 real(RKG) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
952 procedure(
logical(LK)) :: isSorted
961 module function getMergedCusCom_D1_PSSK5(sortedArray1, sortedArray2, isSorted)
result(mergedSortedArray)
962#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
963 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedCusCom_D1_PSSK5
967 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
968 type(css_pdt(SKG)) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
969 procedure(
logical(LK)) :: isSorted
974 module function getMergedCusCom_D1_PSSK4(sortedArray1, sortedArray2, isSorted)
result(mergedSortedArray)
975#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
976 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedCusCom_D1_PSSK4
980 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
981 type(css_pdt(SKG)) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
982 procedure(
logical(LK)) :: isSorted
987 module function getMergedCusCom_D1_PSSK3(sortedArray1, sortedArray2, isSorted)
result(mergedSortedArray)
988#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
989 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedCusCom_D1_PSSK3
993 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
994 type(css_pdt(SKG)) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
995 procedure(
logical(LK)) :: isSorted
1000 module function getMergedCusCom_D1_PSSK2(sortedArray1, sortedArray2, isSorted)
result(mergedSortedArray)
1001#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1002 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedCusCom_D1_PSSK2
1006 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1007 type(css_pdt(SKG)) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
1008 procedure(
logical(LK)) :: isSorted
1013 module function getMergedCusCom_D1_PSSK1(sortedArray1, sortedArray2, isSorted)
result(mergedSortedArray)
1014#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1015 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedCusCom_D1_PSSK1
1019 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1020 type(css_pdt(SKG)) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
1021 procedure(
logical(LK)) :: isSorted
1030 module function getMergedCusCom_D1_BSSK(sortedArray1, sortedArray2, isSorted)
result(mergedSortedArray)
1031#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1032 !DEC$ ATTRIBUTES DLLEXPORT :: getMergedCusCom_D1_BSSK
1036 type(css_type) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1037 type(css_type) :: mergedSortedArray(
size(sortedArray1)
+ size(sortedArray2))
1038 procedure(
logical(LK)) :: isSorted
1155 PURE module subroutine setMergedDefCom_D0_SK5(mergedSortedArray, sortedArray1, sortedArray2)
1156#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1157 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedDefCom_D0_SK5
1160 character(
*,SKG) ,
intent(out) :: mergedSortedArray
1161 character(
*,SKG) ,
intent(in) :: sortedArray1, sortedArray2
1166 PURE module subroutine setMergedDefCom_D0_SK4(mergedSortedArray, sortedArray1, sortedArray2)
1167#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1168 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedDefCom_D0_SK4
1171 character(
*,SKG) ,
intent(in) :: sortedArray1, sortedArray2
1172 character(
*,SKG) ,
intent(out) :: mergedSortedArray
1177 PURE module subroutine setMergedDefCom_D0_SK3(mergedSortedArray, sortedArray1, sortedArray2)
1178#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1179 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedDefCom_D0_SK3
1182 character(
*,SKG) ,
intent(in) :: sortedArray1, sortedArray2
1183 character(
*,SKG) ,
intent(out) :: mergedSortedArray
1188 PURE module subroutine setMergedDefCom_D0_SK2(mergedSortedArray, sortedArray1, sortedArray2)
1189#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1190 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedDefCom_D0_SK2
1193 character(
*,SKG) ,
intent(in) :: sortedArray1, sortedArray2
1194 character(
*,SKG) ,
intent(out) :: mergedSortedArray
1199 PURE module subroutine setMergedDefCom_D0_SK1(mergedSortedArray, sortedArray1, sortedArray2)
1200#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1201 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedDefCom_D0_SK1
1204 character(
*,SKG) ,
intent(in) :: sortedArray1, sortedArray2
1205 character(
*,SKG) ,
intent(out) :: mergedSortedArray
1212 PURE module subroutine setMergedDefCom_D1_SK5(mergedSortedArray, sortedArray1, sortedArray2)
1213#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1214 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedDefCom_D1_SK5
1217 character(
*,SKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1218 character(
*,SKG) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
1223 PURE module subroutine setMergedDefCom_D1_SK4(mergedSortedArray, sortedArray1, sortedArray2)
1224#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1225 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedDefCom_D1_SK4
1228 character(
*,SKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1229 character(
*,SKG) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
1234 PURE module subroutine setMergedDefCom_D1_SK3(mergedSortedArray, sortedArray1, sortedArray2)
1235#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1236 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedDefCom_D1_SK3
1239 character(
*,SKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1240 character(
*,SKG) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
1245 PURE module subroutine setMergedDefCom_D1_SK2(mergedSortedArray, sortedArray1, sortedArray2)
1246#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1247 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedDefCom_D1_SK2
1250 character(
*,SKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1251 character(
*,SKG) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
1256 PURE module subroutine setMergedDefCom_D1_SK1(mergedSortedArray, sortedArray1, sortedArray2)
1257#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1258 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedDefCom_D1_SK1
1261 character(
*,SKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1262 character(
*,SKG) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
1269 PURE module subroutine setMergedDefCom_D1_IK5(mergedSortedArray, sortedArray1, sortedArray2)
1270#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1271 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedDefCom_D1_IK5
1274 integer(IKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1275 integer(IKG) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
1280 PURE module subroutine setMergedDefCom_D1_IK4(mergedSortedArray, sortedArray1, sortedArray2)
1281#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1282 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedDefCom_D1_IK4
1285 integer(IKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1286 integer(IKG) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
1291 PURE module subroutine setMergedDefCom_D1_IK3(mergedSortedArray, sortedArray1, sortedArray2)
1292#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1293 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedDefCom_D1_IK3
1296 integer(IKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1297 integer(IKG) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
1302 PURE module subroutine setMergedDefCom_D1_IK2(mergedSortedArray, sortedArray1, sortedArray2)
1303#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1304 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedDefCom_D1_IK2
1307 integer(IKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1308 integer(IKG) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
1313 PURE module subroutine setMergedDefCom_D1_IK1(mergedSortedArray, sortedArray1, sortedArray2)
1314#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1315 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedDefCom_D1_IK1
1318 integer(IKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1319 integer(IKG) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
1326 PURE module subroutine setMergedDefCom_D1_LK5(mergedSortedArray, sortedArray1, sortedArray2)
1327#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1328 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedDefCom_D1_LK5
1331 logical(LKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1332 logical(LKG) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
1337 PURE module subroutine setMergedDefCom_D1_LK4(mergedSortedArray, sortedArray1, sortedArray2)
1338#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1339 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedDefCom_D1_LK4
1342 logical(LKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1343 logical(LKG) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
1348 PURE module subroutine setMergedDefCom_D1_LK3(mergedSortedArray, sortedArray1, sortedArray2)
1349#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1350 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedDefCom_D1_LK3
1353 logical(LKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1354 logical(LKG) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
1359 PURE module subroutine setMergedDefCom_D1_LK2(mergedSortedArray, sortedArray1, sortedArray2)
1360#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1361 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedDefCom_D1_LK2
1364 logical(LKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1365 logical(LKG) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
1370 PURE module subroutine setMergedDefCom_D1_LK1(mergedSortedArray, sortedArray1, sortedArray2)
1371#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1372 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedDefCom_D1_LK1
1375 logical(LKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1376 logical(LKG) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
1383 PURE module subroutine setMergedDefCom_D1_CK5(mergedSortedArray, sortedArray1, sortedArray2)
1384#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1385 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedDefCom_D1_CK5
1388 complex(CKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1389 complex(CKG) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
1394 PURE module subroutine setMergedDefCom_D1_CK4(mergedSortedArray, sortedArray1, sortedArray2)
1395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1396 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedDefCom_D1_CK4
1399 complex(CKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1400 complex(CKG) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
1405 PURE module subroutine setMergedDefCom_D1_CK3(mergedSortedArray, sortedArray1, sortedArray2)
1406#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1407 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedDefCom_D1_CK3
1410 complex(CKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1411 complex(CKG) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
1416 PURE module subroutine setMergedDefCom_D1_CK2(mergedSortedArray, sortedArray1, sortedArray2)
1417#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1418 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedDefCom_D1_CK2
1421 complex(CKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1422 complex(CKG) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
1427 PURE module subroutine setMergedDefCom_D1_CK1(mergedSortedArray, sortedArray1, sortedArray2)
1428#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1429 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedDefCom_D1_CK1
1432 complex(CKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1433 complex(CKG) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
1440 PURE module subroutine setMergedDefCom_D1_RK5(mergedSortedArray, sortedArray1, sortedArray2)
1441#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1442 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedDefCom_D1_RK5
1445 real(RKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1446 real(RKG) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
1451 PURE module subroutine setMergedDefCom_D1_RK4(mergedSortedArray, sortedArray1, sortedArray2)
1452#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1453 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedDefCom_D1_RK4
1456 real(RKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1457 real(RKG) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
1462 PURE module subroutine setMergedDefCom_D1_RK3(mergedSortedArray, sortedArray1, sortedArray2)
1463#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1464 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedDefCom_D1_RK3
1467 real(RKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1468 real(RKG) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
1473 PURE module subroutine setMergedDefCom_D1_RK2(mergedSortedArray, sortedArray1, sortedArray2)
1474#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1475 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedDefCom_D1_RK2
1478 real(RKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1479 real(RKG) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
1484 PURE module subroutine setMergedDefCom_D1_RK1(mergedSortedArray, sortedArray1, sortedArray2)
1485#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1486 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedDefCom_D1_RK1
1489 real(RKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1490 real(RKG) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
1499 PURE module subroutine setMergedDefCom_D1_PSSK5(mergedSortedArray, sortedArray1, sortedArray2)
1500#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1501 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedDefCom_D1_PSSK5
1505 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1506 type(css_pdt(SKG)) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
1511 PURE module subroutine setMergedDefCom_D1_PSSK4(mergedSortedArray, sortedArray1, sortedArray2)
1512#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1513 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedDefCom_D1_PSSK4
1517 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1518 type(css_pdt(SKG)) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
1523 PURE module subroutine setMergedDefCom_D1_PSSK3(mergedSortedArray, sortedArray1, sortedArray2)
1524#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1525 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedDefCom_D1_PSSK3
1529 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1530 type(css_pdt(SKG)) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
1535 PURE module subroutine setMergedDefCom_D1_PSSK2(mergedSortedArray, sortedArray1, sortedArray2)
1536#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1537 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedDefCom_D1_PSSK2
1541 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1542 type(css_pdt(SKG)) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
1547 PURE module subroutine setMergedDefCom_D1_PSSK1(mergedSortedArray, sortedArray1, sortedArray2)
1548#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1549 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedDefCom_D1_PSSK1
1553 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1554 type(css_pdt(SKG)) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
1563 PURE module subroutine setMergedDefCom_D1_BSSK(mergedSortedArray, sortedArray1, sortedArray2)
1564#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1565 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedDefCom_D1_BSSK
1569 type(css_type) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1570 type(css_type) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
1592 module subroutine setMergedCusCom_D0_SK5(mergedSortedArray, sortedArray1, sortedArray2, isSorted)
1593#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1594 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedCusCom_D0_SK5
1597 character(
*,SKG) ,
intent(in) :: sortedArray1, sortedArray2
1598 character(
*,SKG) ,
intent(out) :: mergedSortedArray
1599 procedure(
logical(LK)) :: isSorted
1604 module subroutine setMergedCusCom_D0_SK4(mergedSortedArray, sortedArray1, sortedArray2, isSorted)
1605#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1606 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedCusCom_D0_SK4
1609 character(
*,SKG) ,
intent(in) :: sortedArray1, sortedArray2
1610 character(
*,SKG) ,
intent(out) :: mergedSortedArray
1611 procedure(
logical(LK)) :: isSorted
1616 module subroutine setMergedCusCom_D0_SK3(mergedSortedArray, sortedArray1, sortedArray2, isSorted)
1617#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1618 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedCusCom_D0_SK3
1621 character(
*,SKG) ,
intent(in) :: sortedArray1, sortedArray2
1622 character(
*,SKG) ,
intent(out) :: mergedSortedArray
1623 procedure(
logical(LK)) :: isSorted
1628 module subroutine setMergedCusCom_D0_SK2(mergedSortedArray, sortedArray1, sortedArray2, isSorted)
1629#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1630 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedCusCom_D0_SK2
1633 character(
*,SKG) ,
intent(in) :: sortedArray1, sortedArray2
1634 character(
*,SKG) ,
intent(out) :: mergedSortedArray
1635 procedure(
logical(LK)) :: isSorted
1640 module subroutine setMergedCusCom_D0_SK1(mergedSortedArray, sortedArray1, sortedArray2, isSorted)
1641#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1642 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedCusCom_D0_SK1
1645 character(
*,SKG) ,
intent(in) :: sortedArray1, sortedArray2
1646 character(
*,SKG) ,
intent(out) :: mergedSortedArray
1647 procedure(
logical(LK)) :: isSorted
1654 module subroutine setMergedCusCom_D1_SK5(mergedSortedArray, sortedArray1, sortedArray2, isSorted)
1655#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1656 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedCusCom_D1_SK5
1659 character(
*,SKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1660 character(
*,SKG) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
1661 procedure(
logical(LK)) :: isSorted
1666 module subroutine setMergedCusCom_D1_SK4(mergedSortedArray, sortedArray1, sortedArray2, isSorted)
1667#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1668 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedCusCom_D1_SK4
1671 character(
*,SKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1672 character(
*,SKG) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
1673 procedure(
logical(LK)) :: isSorted
1678 module subroutine setMergedCusCom_D1_SK3(mergedSortedArray, sortedArray1, sortedArray2, isSorted)
1679#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1680 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedCusCom_D1_SK3
1683 character(
*,SKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1684 character(
*,SKG) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
1685 procedure(
logical(LK)) :: isSorted
1690 module subroutine setMergedCusCom_D1_SK2(mergedSortedArray, sortedArray1, sortedArray2, isSorted)
1691#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1692 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedCusCom_D1_SK2
1695 character(
*,SKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1696 character(
*,SKG) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
1697 procedure(
logical(LK)) :: isSorted
1702 module subroutine setMergedCusCom_D1_SK1(mergedSortedArray, sortedArray1, sortedArray2, isSorted)
1703#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1704 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedCusCom_D1_SK1
1707 character(
*,SKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1708 character(
*,SKG) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
1709 procedure(
logical(LK)) :: isSorted
1716 module subroutine setMergedCusCom_D1_IK5(mergedSortedArray, sortedArray1, sortedArray2, isSorted)
1717#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1718 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedCusCom_D1_IK5
1721 integer(IKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1722 integer(IKG) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
1723 procedure(
logical(LK)) :: isSorted
1728 module subroutine setMergedCusCom_D1_IK4(mergedSortedArray, sortedArray1, sortedArray2, isSorted)
1729#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1730 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedCusCom_D1_IK4
1733 integer(IKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1734 integer(IKG) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
1735 procedure(
logical(LK)) :: isSorted
1740 module subroutine setMergedCusCom_D1_IK3(mergedSortedArray, sortedArray1, sortedArray2, isSorted)
1741#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1742 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedCusCom_D1_IK3
1745 integer(IKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1746 integer(IKG) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
1747 procedure(
logical(LK)) :: isSorted
1752 module subroutine setMergedCusCom_D1_IK2(mergedSortedArray, sortedArray1, sortedArray2, isSorted)
1753#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1754 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedCusCom_D1_IK2
1757 integer(IKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1758 integer(IKG) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
1759 procedure(
logical(LK)) :: isSorted
1764 module subroutine setMergedCusCom_D1_IK1(mergedSortedArray, sortedArray1, sortedArray2, isSorted)
1765#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1766 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedCusCom_D1_IK1
1769 integer(IKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1770 integer(IKG) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
1771 procedure(
logical(LK)) :: isSorted
1778 module subroutine setMergedCusCom_D1_LK5(mergedSortedArray, sortedArray1, sortedArray2, isSorted)
1779#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1780 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedCusCom_D1_LK5
1783 logical(LKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1784 logical(LKG) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
1785 procedure(
logical(LK)) :: isSorted
1790 module subroutine setMergedCusCom_D1_LK4(mergedSortedArray, sortedArray1, sortedArray2, isSorted)
1791#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1792 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedCusCom_D1_LK4
1795 logical(LKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1796 logical(LKG) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
1797 procedure(
logical(LK)) :: isSorted
1802 module subroutine setMergedCusCom_D1_LK3(mergedSortedArray, sortedArray1, sortedArray2, isSorted)
1803#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1804 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedCusCom_D1_LK3
1807 logical(LKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1808 logical(LKG) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
1809 procedure(
logical(LK)) :: isSorted
1814 module subroutine setMergedCusCom_D1_LK2(mergedSortedArray, sortedArray1, sortedArray2, isSorted)
1815#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1816 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedCusCom_D1_LK2
1819 logical(LKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1820 logical(LKG) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
1821 procedure(
logical(LK)) :: isSorted
1826 module subroutine setMergedCusCom_D1_LK1(mergedSortedArray, sortedArray1, sortedArray2, isSorted)
1827#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1828 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedCusCom_D1_LK1
1831 logical(LKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1832 logical(LKG) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
1833 procedure(
logical(LK)) :: isSorted
1840 module subroutine setMergedCusCom_D1_CK5(mergedSortedArray, sortedArray1, sortedArray2, isSorted)
1841#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1842 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedCusCom_D1_CK5
1845 complex(CKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1846 complex(CKG) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
1847 procedure(
logical(LK)) :: isSorted
1852 module subroutine setMergedCusCom_D1_CK4(mergedSortedArray, sortedArray1, sortedArray2, isSorted)
1853#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1854 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedCusCom_D1_CK4
1857 complex(CKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1858 complex(CKG) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
1859 procedure(
logical(LK)) :: isSorted
1864 module subroutine setMergedCusCom_D1_CK3(mergedSortedArray, sortedArray1, sortedArray2, isSorted)
1865#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1866 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedCusCom_D1_CK3
1869 complex(CKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1870 complex(CKG) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
1871 procedure(
logical(LK)) :: isSorted
1876 module subroutine setMergedCusCom_D1_CK2(mergedSortedArray, sortedArray1, sortedArray2, isSorted)
1877#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1878 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedCusCom_D1_CK2
1881 complex(CKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1882 complex(CKG) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
1883 procedure(
logical(LK)) :: isSorted
1888 module subroutine setMergedCusCom_D1_CK1(mergedSortedArray, sortedArray1, sortedArray2, isSorted)
1889#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1890 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedCusCom_D1_CK1
1893 complex(CKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1894 complex(CKG) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
1895 procedure(
logical(LK)) :: isSorted
1902 module subroutine setMergedCusCom_D1_RK5(mergedSortedArray, sortedArray1, sortedArray2, isSorted)
1903#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1904 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedCusCom_D1_RK5
1907 real(RKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1908 real(RKG) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
1909 procedure(
logical(LK)) :: isSorted
1914 module subroutine setMergedCusCom_D1_RK4(mergedSortedArray, sortedArray1, sortedArray2, isSorted)
1915#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1916 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedCusCom_D1_RK4
1919 real(RKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1920 real(RKG) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
1921 procedure(
logical(LK)) :: isSorted
1926 module subroutine setMergedCusCom_D1_RK3(mergedSortedArray, sortedArray1, sortedArray2, isSorted)
1927#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1928 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedCusCom_D1_RK3
1931 real(RKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1932 real(RKG) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
1933 procedure(
logical(LK)) :: isSorted
1938 module subroutine setMergedCusCom_D1_RK2(mergedSortedArray, sortedArray1, sortedArray2, isSorted)
1939#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1940 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedCusCom_D1_RK2
1943 real(RKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1944 real(RKG) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
1945 procedure(
logical(LK)) :: isSorted
1950 module subroutine setMergedCusCom_D1_RK1(mergedSortedArray, sortedArray1, sortedArray2, isSorted)
1951#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1952 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedCusCom_D1_RK1
1955 real(RKG) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1956 real(RKG) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
1957 procedure(
logical(LK)) :: isSorted
1966 module subroutine setMergedCusCom_D1_PSSK5(mergedSortedArray, sortedArray1, sortedArray2, isSorted)
1967#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1968 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedCusCom_D1_PSSK5
1972 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1973 type(css_pdt(SKG)) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
1974 procedure(
logical(LK)) :: isSorted
1979 module subroutine setMergedCusCom_D1_PSSK4(mergedSortedArray, sortedArray1, sortedArray2, isSorted)
1980#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1981 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedCusCom_D1_PSSK4
1985 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1986 type(css_pdt(SKG)) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
1987 procedure(
logical(LK)) :: isSorted
1992 module subroutine setMergedCusCom_D1_PSSK3(mergedSortedArray, sortedArray1, sortedArray2, isSorted)
1993#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1994 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedCusCom_D1_PSSK3
1998 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
1999 type(css_pdt(SKG)) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
2000 procedure(
logical(LK)) :: isSorted
2005 module subroutine setMergedCusCom_D1_PSSK2(mergedSortedArray, sortedArray1, sortedArray2, isSorted)
2006#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2007 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedCusCom_D1_PSSK2
2011 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
2012 type(css_pdt(SKG)) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
2013 procedure(
logical(LK)) :: isSorted
2018 module subroutine setMergedCusCom_D1_PSSK1(mergedSortedArray, sortedArray1, sortedArray2, isSorted)
2019#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2020 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedCusCom_D1_PSSK1
2024 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
2025 type(css_pdt(SKG)) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
2026 procedure(
logical(LK)) :: isSorted
2035 module subroutine setMergedCusCom_D1_BSSK(mergedSortedArray, sortedArray1, sortedArray2, isSorted)
2036#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2037 !DEC$ ATTRIBUTES DLLEXPORT :: setMergedCusCom_D1_BSSK
2041 type(css_type) ,
intent(in) ,
contiguous :: sortedArray1(:), sortedArray2(:)
2042 type(css_type) ,
intent(out) ,
contiguous :: mergedSortedArray(:)
2043 procedure(
logical(LK)) :: isSorted
2056end module pm_arrayMerge
Generate an ascending-sorted merger of the two ascending-sorted input arrays.
Merge two ascending-sorted arrays such that the resulting merged array contains all elements of the t...
This module contains procedures and generic interfaces for sorting and merging two previously-sorted ...
character(*, SK), parameter MODULE_NAME
This module contains the derived types for generating allocatable containers of scalar,...
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
integer, parameter RK
The default real kind in the ParaMonte library: real64 in Fortran, c_double in C-Fortran Interoperati...
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
This is the css_pdt parameterized type for generating instances of container of scalar of string obje...
This is the css_type type for generating instances of container of scalar of string objects.