ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
pm_matrixCopy.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
110
111!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
112
114
115 use pm_kind, only: SK, IK, LK
116 use pm_matrixSubset, only: dia, dia_type
117 use pm_matrixSubset, only: low, low_type
118 use pm_matrixSubset, only: upp, upp_type
127
128 implicit none
129
130 character(*, SK), parameter :: MODULE_NAME = "@pm_matrixCopy"
131
132!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
133
297
298 ! package: rdpack, rdpack
299
300 interface getMatCopy
301
302 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
303 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
304 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
305
306 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
307 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
308 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
309
310 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
311
312#if SK5_ENABLED
313 PURE module function getMatCopy_RDP_RDP_UXX_AIO_SK5(dpack, source, spack, subset, doff, init) result(destin)
314#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
315 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_AIO_SK5
316#endif
317 use pm_kind, only: SKG => SK5
318 type(rdpack_type) , intent(in) :: dpack
319 type(rdpack_type) , intent(in) :: spack
320 type(upp_type) , intent(in) :: subset
321 integer(IK) , intent(in) , optional :: doff
322 character(*,SKG) , intent(in) , optional :: init
323 character(*,SKG) , intent(in) :: source(:,:)
324 character(len(source,IK),SKG) :: destin(size(source, 1, IK), size(source, 2, IK))
325 end function
326#endif
327
328#if SK4_ENABLED
329 PURE module function getMatCopy_RDP_RDP_UXX_AIO_SK4(dpack, source, spack, subset, doff, init) result(destin)
330#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
331 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_AIO_SK4
332#endif
333 use pm_kind, only: SKG => SK4
334 type(rdpack_type) , intent(in) :: dpack
335 type(rdpack_type) , intent(in) :: spack
336 type(upp_type) , intent(in) :: subset
337 integer(IK) , intent(in) , optional :: doff
338 character(*,SKG) , intent(in) , optional :: init
339 character(*,SKG) , intent(in) :: source(:,:)
340 character(len(source,IK),SKG) :: destin(size(source, 1, IK), size(source, 2, IK))
341 end function
342#endif
343
344#if SK3_ENABLED
345 PURE module function getMatCopy_RDP_RDP_UXX_AIO_SK3(dpack, source, spack, subset, doff, init) result(destin)
346#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
347 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_AIO_SK3
348#endif
349 use pm_kind, only: SKG => SK3
350 type(rdpack_type) , intent(in) :: dpack
351 type(rdpack_type) , intent(in) :: spack
352 type(upp_type) , intent(in) :: subset
353 integer(IK) , intent(in) , optional :: doff
354 character(*,SKG) , intent(in) , optional :: init
355 character(*,SKG) , intent(in) :: source(:,:)
356 character(len(source,IK),SKG) :: destin(size(source, 1, IK), size(source, 2, IK))
357 end function
358#endif
359
360#if SK2_ENABLED
361 PURE module function getMatCopy_RDP_RDP_UXX_AIO_SK2(dpack, source, spack, subset, doff, init) result(destin)
362#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
363 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_AIO_SK2
364#endif
365 use pm_kind, only: SKG => SK2
366 type(rdpack_type) , intent(in) :: dpack
367 type(rdpack_type) , intent(in) :: spack
368 type(upp_type) , intent(in) :: subset
369 integer(IK) , intent(in) , optional :: doff
370 character(*,SKG) , intent(in) , optional :: init
371 character(*,SKG) , intent(in) :: source(:,:)
372 character(len(source,IK),SKG) :: destin(size(source, 1, IK), size(source, 2, IK))
373 end function
374#endif
375
376#if SK1_ENABLED
377 PURE module function getMatCopy_RDP_RDP_UXX_AIO_SK1(dpack, source, spack, subset, doff, init) result(destin)
378#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
379 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_AIO_SK1
380#endif
381 use pm_kind, only: SKG => SK1
382 type(rdpack_type) , intent(in) :: dpack
383 type(rdpack_type) , intent(in) :: spack
384 type(upp_type) , intent(in) :: subset
385 integer(IK) , intent(in) , optional :: doff
386 character(*,SKG) , intent(in) , optional :: init
387 character(*,SKG) , intent(in) :: source(:,:)
388 character(len(source,IK),SKG) :: destin(size(source, 1, IK), size(source, 2, IK))
389 end function
390#endif
391
392 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
393
394#if IK5_ENABLED
395 PURE module function getMatCopy_RDP_RDP_UXX_AIO_IK5(dpack, source, spack, subset, doff, init) result(destin)
396#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
397 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_AIO_IK5
398#endif
399 use pm_kind, only: IKG => IK5
400 type(rdpack_type) , intent(in) :: dpack
401 type(rdpack_type) , intent(in) :: spack
402 type(upp_type) , intent(in) :: subset
403 integer(IK) , intent(in) , optional :: doff
404 integer(IKG) , intent(in) , optional :: init
405 integer(IKG) , intent(in) :: source(:,:)
406 integer(IKG) :: destin(size(source, 1, IK), size(source, 2, IK))
407 end function
408#endif
409
410#if IK4_ENABLED
411 PURE module function getMatCopy_RDP_RDP_UXX_AIO_IK4(dpack, source, spack, subset, doff, init) result(destin)
412#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
413 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_AIO_IK4
414#endif
415 use pm_kind, only: IKG => IK4
416 type(rdpack_type) , intent(in) :: dpack
417 type(rdpack_type) , intent(in) :: spack
418 type(upp_type) , intent(in) :: subset
419 integer(IK) , intent(in) , optional :: doff
420 integer(IKG) , intent(in) , optional :: init
421 integer(IKG) , intent(in) :: source(:,:)
422 integer(IKG) :: destin(size(source, 1, IK), size(source, 2, IK))
423 end function
424#endif
425
426#if IK3_ENABLED
427 PURE module function getMatCopy_RDP_RDP_UXX_AIO_IK3(dpack, source, spack, subset, doff, init) result(destin)
428#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
429 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_AIO_IK3
430#endif
431 use pm_kind, only: IKG => IK3
432 type(rdpack_type) , intent(in) :: dpack
433 type(rdpack_type) , intent(in) :: spack
434 type(upp_type) , intent(in) :: subset
435 integer(IK) , intent(in) , optional :: doff
436 integer(IKG) , intent(in) , optional :: init
437 integer(IKG) , intent(in) :: source(:,:)
438 integer(IKG) :: destin(size(source, 1, IK), size(source, 2, IK))
439 end function
440#endif
441
442#if IK2_ENABLED
443 PURE module function getMatCopy_RDP_RDP_UXX_AIO_IK2(dpack, source, spack, subset, doff, init) result(destin)
444#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
445 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_AIO_IK2
446#endif
447 use pm_kind, only: IKG => IK2
448 type(rdpack_type) , intent(in) :: dpack
449 type(rdpack_type) , intent(in) :: spack
450 type(upp_type) , intent(in) :: subset
451 integer(IK) , intent(in) , optional :: doff
452 integer(IKG) , intent(in) , optional :: init
453 integer(IKG) , intent(in) :: source(:,:)
454 integer(IKG) :: destin(size(source, 1, IK), size(source, 2, IK))
455 end function
456#endif
457
458#if IK1_ENABLED
459 PURE module function getMatCopy_RDP_RDP_UXX_AIO_IK1(dpack, source, spack, subset, doff, init) result(destin)
460#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
461 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_AIO_IK1
462#endif
463 use pm_kind, only: IKG => IK1
464 type(rdpack_type) , intent(in) :: dpack
465 type(rdpack_type) , intent(in) :: spack
466 type(upp_type) , intent(in) :: subset
467 integer(IK) , intent(in) , optional :: doff
468 integer(IKG) , intent(in) , optional :: init
469 integer(IKG) , intent(in) :: source(:,:)
470 integer(IKG) :: destin(size(source, 1, IK), size(source, 2, IK))
471 end function
472#endif
473
474 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
475
476#if LK5_ENABLED
477 PURE module function getMatCopy_RDP_RDP_UXX_AIO_LK5(dpack, source, spack, subset, doff, init) result(destin)
478#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
479 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_AIO_LK5
480#endif
481 use pm_kind, only: LKG => LK5
482 type(rdpack_type) , intent(in) :: dpack
483 type(rdpack_type) , intent(in) :: spack
484 type(upp_type) , intent(in) :: subset
485 integer(IK) , intent(in) , optional :: doff
486 logical(LKG) , intent(in) , optional :: init
487 logical(LKG) , intent(in) :: source(:,:)
488 logical(LKG) :: destin(size(source, 1, IK), size(source, 2, IK))
489 end function
490#endif
491
492#if LK4_ENABLED
493 PURE module function getMatCopy_RDP_RDP_UXX_AIO_LK4(dpack, source, spack, subset, doff, init) result(destin)
494#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
495 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_AIO_LK4
496#endif
497 use pm_kind, only: LKG => LK4
498 type(rdpack_type) , intent(in) :: dpack
499 type(rdpack_type) , intent(in) :: spack
500 type(upp_type) , intent(in) :: subset
501 integer(IK) , intent(in) , optional :: doff
502 logical(LKG) , intent(in) , optional :: init
503 logical(LKG) , intent(in) :: source(:,:)
504 logical(LKG) :: destin(size(source, 1, IK), size(source, 2, IK))
505 end function
506#endif
507
508#if LK3_ENABLED
509 PURE module function getMatCopy_RDP_RDP_UXX_AIO_LK3(dpack, source, spack, subset, doff, init) result(destin)
510#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
511 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_AIO_LK3
512#endif
513 use pm_kind, only: LKG => LK3
514 type(rdpack_type) , intent(in) :: dpack
515 type(rdpack_type) , intent(in) :: spack
516 type(upp_type) , intent(in) :: subset
517 integer(IK) , intent(in) , optional :: doff
518 logical(LKG) , intent(in) , optional :: init
519 logical(LKG) , intent(in) :: source(:,:)
520 logical(LKG) :: destin(size(source, 1, IK), size(source, 2, IK))
521 end function
522#endif
523
524#if LK2_ENABLED
525 PURE module function getMatCopy_RDP_RDP_UXX_AIO_LK2(dpack, source, spack, subset, doff, init) result(destin)
526#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
527 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_AIO_LK2
528#endif
529 use pm_kind, only: LKG => LK2
530 type(rdpack_type) , intent(in) :: dpack
531 type(rdpack_type) , intent(in) :: spack
532 type(upp_type) , intent(in) :: subset
533 integer(IK) , intent(in) , optional :: doff
534 logical(LKG) , intent(in) , optional :: init
535 logical(LKG) , intent(in) :: source(:,:)
536 logical(LKG) :: destin(size(source, 1, IK), size(source, 2, IK))
537 end function
538#endif
539
540#if LK1_ENABLED
541 PURE module function getMatCopy_RDP_RDP_UXX_AIO_LK1(dpack, source, spack, subset, doff, init) result(destin)
542#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
543 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_AIO_LK1
544#endif
545 use pm_kind, only: LKG => LK1
546 type(rdpack_type) , intent(in) :: dpack
547 type(rdpack_type) , intent(in) :: spack
548 type(upp_type) , intent(in) :: subset
549 integer(IK) , intent(in) , optional :: doff
550 logical(LKG) , intent(in) , optional :: init
551 logical(LKG) , intent(in) :: source(:,:)
552 logical(LKG) :: destin(size(source, 1, IK), size(source, 2, IK))
553 end function
554#endif
555
556 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
557
558#if CK5_ENABLED
559 PURE module function getMatCopy_RDP_RDP_UXX_AIO_CK5(dpack, source, spack, subset, doff, init) result(destin)
560#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
561 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_AIO_CK5
562#endif
563 use pm_kind, only: CKG => CK5
564 type(rdpack_type) , intent(in) :: dpack
565 type(rdpack_type) , intent(in) :: spack
566 type(upp_type) , intent(in) :: subset
567 integer(IK) , intent(in) , optional :: doff
568 complex(CKG) , intent(in) , optional :: init
569 complex(CKG) , intent(in) :: source(:,:)
570 complex(CKG) :: destin(size(source, 1, IK), size(source, 2, IK))
571 end function
572#endif
573
574#if CK4_ENABLED
575 PURE module function getMatCopy_RDP_RDP_UXX_AIO_CK4(dpack, source, spack, subset, doff, init) result(destin)
576#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
577 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_AIO_CK4
578#endif
579 use pm_kind, only: CKG => CK4
580 type(rdpack_type) , intent(in) :: dpack
581 type(rdpack_type) , intent(in) :: spack
582 type(upp_type) , intent(in) :: subset
583 integer(IK) , intent(in) , optional :: doff
584 complex(CKG) , intent(in) , optional :: init
585 complex(CKG) , intent(in) :: source(:,:)
586 complex(CKG) :: destin(size(source, 1, IK), size(source, 2, IK))
587 end function
588#endif
589
590#if CK3_ENABLED
591 PURE module function getMatCopy_RDP_RDP_UXX_AIO_CK3(dpack, source, spack, subset, doff, init) result(destin)
592#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
593 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_AIO_CK3
594#endif
595 use pm_kind, only: CKG => CK3
596 type(rdpack_type) , intent(in) :: dpack
597 type(rdpack_type) , intent(in) :: spack
598 type(upp_type) , intent(in) :: subset
599 integer(IK) , intent(in) , optional :: doff
600 complex(CKG) , intent(in) , optional :: init
601 complex(CKG) , intent(in) :: source(:,:)
602 complex(CKG) :: destin(size(source, 1, IK), size(source, 2, IK))
603 end function
604#endif
605
606#if CK2_ENABLED
607 PURE module function getMatCopy_RDP_RDP_UXX_AIO_CK2(dpack, source, spack, subset, doff, init) result(destin)
608#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
609 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_AIO_CK2
610#endif
611 use pm_kind, only: CKG => CK2
612 type(rdpack_type) , intent(in) :: dpack
613 type(rdpack_type) , intent(in) :: spack
614 type(upp_type) , intent(in) :: subset
615 integer(IK) , intent(in) , optional :: doff
616 complex(CKG) , intent(in) , optional :: init
617 complex(CKG) , intent(in) :: source(:,:)
618 complex(CKG) :: destin(size(source, 1, IK), size(source, 2, IK))
619 end function
620#endif
621
622#if CK1_ENABLED
623 PURE module function getMatCopy_RDP_RDP_UXX_AIO_CK1(dpack, source, spack, subset, doff, init) result(destin)
624#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
625 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_AIO_CK1
626#endif
627 use pm_kind, only: CKG => CK1
628 type(rdpack_type) , intent(in) :: dpack
629 type(rdpack_type) , intent(in) :: spack
630 type(upp_type) , intent(in) :: subset
631 integer(IK) , intent(in) , optional :: doff
632 complex(CKG) , intent(in) , optional :: init
633 complex(CKG) , intent(in) :: source(:,:)
634 complex(CKG) :: destin(size(source, 1, IK), size(source, 2, IK))
635 end function
636#endif
637
638 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
639
640#if RK5_ENABLED
641 PURE module function getMatCopy_RDP_RDP_UXX_AIO_RK5(dpack, source, spack, subset, doff, init) result(destin)
642#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
643 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_AIO_RK5
644#endif
645 use pm_kind, only: RKG => RK5
646 type(rdpack_type) , intent(in) :: dpack
647 type(rdpack_type) , intent(in) :: spack
648 type(upp_type) , intent(in) :: subset
649 integer(IK) , intent(in) , optional :: doff
650 real(RKG) , intent(in) , optional :: init
651 real(RKG) , intent(in) :: source(:,:)
652 real(RKG) :: destin(size(source, 1, IK), size(source, 2, IK))
653 end function
654#endif
655
656#if RK4_ENABLED
657 PURE module function getMatCopy_RDP_RDP_UXX_AIO_RK4(dpack, source, spack, subset, doff, init) result(destin)
658#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
659 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_AIO_RK4
660#endif
661 use pm_kind, only: RKG => RK4
662 type(rdpack_type) , intent(in) :: dpack
663 type(rdpack_type) , intent(in) :: spack
664 type(upp_type) , intent(in) :: subset
665 integer(IK) , intent(in) , optional :: doff
666 real(RKG) , intent(in) , optional :: init
667 real(RKG) , intent(in) :: source(:,:)
668 real(RKG) :: destin(size(source, 1, IK), size(source, 2, IK))
669 end function
670#endif
671
672#if RK3_ENABLED
673 PURE module function getMatCopy_RDP_RDP_UXX_AIO_RK3(dpack, source, spack, subset, doff, init) result(destin)
674#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
675 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_AIO_RK3
676#endif
677 use pm_kind, only: RKG => RK3
678 type(rdpack_type) , intent(in) :: dpack
679 type(rdpack_type) , intent(in) :: spack
680 type(upp_type) , intent(in) :: subset
681 integer(IK) , intent(in) , optional :: doff
682 real(RKG) , intent(in) , optional :: init
683 real(RKG) , intent(in) :: source(:,:)
684 real(RKG) :: destin(size(source, 1, IK), size(source, 2, IK))
685 end function
686#endif
687
688#if RK2_ENABLED
689 PURE module function getMatCopy_RDP_RDP_UXX_AIO_RK2(dpack, source, spack, subset, doff, init) result(destin)
690#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
691 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_AIO_RK2
692#endif
693 use pm_kind, only: RKG => RK2
694 type(rdpack_type) , intent(in) :: dpack
695 type(rdpack_type) , intent(in) :: spack
696 type(upp_type) , intent(in) :: subset
697 integer(IK) , intent(in) , optional :: doff
698 real(RKG) , intent(in) , optional :: init
699 real(RKG) , intent(in) :: source(:,:)
700 real(RKG) :: destin(size(source, 1, IK), size(source, 2, IK))
701 end function
702#endif
703
704#if RK1_ENABLED
705 PURE module function getMatCopy_RDP_RDP_UXX_AIO_RK1(dpack, source, spack, subset, doff, init) result(destin)
706#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
707 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_AIO_RK1
708#endif
709 use pm_kind, only: RKG => RK1
710 type(rdpack_type) , intent(in) :: dpack
711 type(rdpack_type) , intent(in) :: spack
712 type(upp_type) , intent(in) :: subset
713 integer(IK) , intent(in) , optional :: doff
714 real(RKG) , intent(in) , optional :: init
715 real(RKG) , intent(in) :: source(:,:)
716 real(RKG) :: destin(size(source, 1, IK), size(source, 2, IK))
717 end function
718#endif
719
720 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
721
722 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
723 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
724 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
725
726 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
727
728#if SK5_ENABLED
729 PURE module function getMatCopy_RDP_RDP_UXX_TSO_SK5(dpack, source, spack, subset, operation, doff, init) result(destin)
730#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
731 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_TSO_SK5
732#endif
733 use pm_kind, only: SKG => SK5
734 type(rdpack_type) , intent(in) :: dpack
735 type(rdpack_type) , intent(in) :: spack
736 type(upp_type) , intent(in) :: subset
737 type(transSymm_type) , intent(in) :: operation
738 integer(IK) , intent(in) , optional :: doff
739 character(*,SKG) , intent(in) , optional :: init
740 character(*,SKG) , intent(in) :: source(:,:)
741 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
742 end function
743#endif
744
745#if SK4_ENABLED
746 PURE module function getMatCopy_RDP_RDP_UXX_TSO_SK4(dpack, source, spack, subset, operation, doff, init) result(destin)
747#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
748 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_TSO_SK4
749#endif
750 use pm_kind, only: SKG => SK4
751 type(rdpack_type) , intent(in) :: dpack
752 type(rdpack_type) , intent(in) :: spack
753 type(upp_type) , intent(in) :: subset
754 type(transSymm_type) , intent(in) :: operation
755 integer(IK) , intent(in) , optional :: doff
756 character(*,SKG) , intent(in) , optional :: init
757 character(*,SKG) , intent(in) :: source(:,:)
758 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
759 end function
760#endif
761
762#if SK3_ENABLED
763 PURE module function getMatCopy_RDP_RDP_UXX_TSO_SK3(dpack, source, spack, subset, operation, doff, init) result(destin)
764#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
765 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_TSO_SK3
766#endif
767 use pm_kind, only: SKG => SK3
768 type(rdpack_type) , intent(in) :: dpack
769 type(rdpack_type) , intent(in) :: spack
770 type(upp_type) , intent(in) :: subset
771 type(transSymm_type) , intent(in) :: operation
772 integer(IK) , intent(in) , optional :: doff
773 character(*,SKG) , intent(in) , optional :: init
774 character(*,SKG) , intent(in) :: source(:,:)
775 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
776 end function
777#endif
778
779#if SK2_ENABLED
780 PURE module function getMatCopy_RDP_RDP_UXX_TSO_SK2(dpack, source, spack, subset, operation, doff, init) result(destin)
781#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
782 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_TSO_SK2
783#endif
784 use pm_kind, only: SKG => SK2
785 type(rdpack_type) , intent(in) :: dpack
786 type(rdpack_type) , intent(in) :: spack
787 type(upp_type) , intent(in) :: subset
788 type(transSymm_type) , intent(in) :: operation
789 integer(IK) , intent(in) , optional :: doff
790 character(*,SKG) , intent(in) , optional :: init
791 character(*,SKG) , intent(in) :: source(:,:)
792 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
793 end function
794#endif
795
796#if SK1_ENABLED
797 PURE module function getMatCopy_RDP_RDP_UXX_TSO_SK1(dpack, source, spack, subset, operation, doff, init) result(destin)
798#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
799 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_TSO_SK1
800#endif
801 use pm_kind, only: SKG => SK1
802 type(rdpack_type) , intent(in) :: dpack
803 type(rdpack_type) , intent(in) :: spack
804 type(upp_type) , intent(in) :: subset
805 type(transSymm_type) , intent(in) :: operation
806 integer(IK) , intent(in) , optional :: doff
807 character(*,SKG) , intent(in) , optional :: init
808 character(*,SKG) , intent(in) :: source(:,:)
809 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
810 end function
811#endif
812
813 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
814
815#if IK5_ENABLED
816 PURE module function getMatCopy_RDP_RDP_UXX_TSO_IK5(dpack, source, spack, subset, operation, doff, init) result(destin)
817#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
818 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_TSO_IK5
819#endif
820 use pm_kind, only: IKG => IK5
821 type(rdpack_type) , intent(in) :: dpack
822 type(rdpack_type) , intent(in) :: spack
823 type(upp_type) , intent(in) :: subset
824 type(transSymm_type) , intent(in) :: operation
825 integer(IK) , intent(in) , optional :: doff
826 integer(IKG) , intent(in) , optional :: init
827 integer(IKG) , intent(in) :: source(:,:)
828 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
829 end function
830#endif
831
832#if IK4_ENABLED
833 PURE module function getMatCopy_RDP_RDP_UXX_TSO_IK4(dpack, source, spack, subset, operation, doff, init) result(destin)
834#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
835 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_TSO_IK4
836#endif
837 use pm_kind, only: IKG => IK4
838 type(rdpack_type) , intent(in) :: dpack
839 type(rdpack_type) , intent(in) :: spack
840 type(upp_type) , intent(in) :: subset
841 type(transSymm_type) , intent(in) :: operation
842 integer(IK) , intent(in) , optional :: doff
843 integer(IKG) , intent(in) , optional :: init
844 integer(IKG) , intent(in) :: source(:,:)
845 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
846 end function
847#endif
848
849#if IK3_ENABLED
850 PURE module function getMatCopy_RDP_RDP_UXX_TSO_IK3(dpack, source, spack, subset, operation, doff, init) result(destin)
851#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
852 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_TSO_IK3
853#endif
854 use pm_kind, only: IKG => IK3
855 type(rdpack_type) , intent(in) :: dpack
856 type(rdpack_type) , intent(in) :: spack
857 type(upp_type) , intent(in) :: subset
858 type(transSymm_type) , intent(in) :: operation
859 integer(IK) , intent(in) , optional :: doff
860 integer(IKG) , intent(in) , optional :: init
861 integer(IKG) , intent(in) :: source(:,:)
862 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
863 end function
864#endif
865
866#if IK2_ENABLED
867 PURE module function getMatCopy_RDP_RDP_UXX_TSO_IK2(dpack, source, spack, subset, operation, doff, init) result(destin)
868#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
869 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_TSO_IK2
870#endif
871 use pm_kind, only: IKG => IK2
872 type(rdpack_type) , intent(in) :: dpack
873 type(rdpack_type) , intent(in) :: spack
874 type(upp_type) , intent(in) :: subset
875 type(transSymm_type) , intent(in) :: operation
876 integer(IK) , intent(in) , optional :: doff
877 integer(IKG) , intent(in) , optional :: init
878 integer(IKG) , intent(in) :: source(:,:)
879 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
880 end function
881#endif
882
883#if IK1_ENABLED
884 PURE module function getMatCopy_RDP_RDP_UXX_TSO_IK1(dpack, source, spack, subset, operation, doff, init) result(destin)
885#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
886 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_TSO_IK1
887#endif
888 use pm_kind, only: IKG => IK1
889 type(rdpack_type) , intent(in) :: dpack
890 type(rdpack_type) , intent(in) :: spack
891 type(upp_type) , intent(in) :: subset
892 type(transSymm_type) , intent(in) :: operation
893 integer(IK) , intent(in) , optional :: doff
894 integer(IKG) , intent(in) , optional :: init
895 integer(IKG) , intent(in) :: source(:,:)
896 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
897 end function
898#endif
899
900 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
901
902#if LK5_ENABLED
903 PURE module function getMatCopy_RDP_RDP_UXX_TSO_LK5(dpack, source, spack, subset, operation, doff, init) result(destin)
904#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
905 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_TSO_LK5
906#endif
907 use pm_kind, only: LKG => LK5
908 type(rdpack_type) , intent(in) :: dpack
909 type(rdpack_type) , intent(in) :: spack
910 type(upp_type) , intent(in) :: subset
911 type(transSymm_type) , intent(in) :: operation
912 integer(IK) , intent(in) , optional :: doff
913 logical(LKG) , intent(in) , optional :: init
914 logical(LKG) , intent(in) :: source(:,:)
915 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
916 end function
917#endif
918
919#if LK4_ENABLED
920 PURE module function getMatCopy_RDP_RDP_UXX_TSO_LK4(dpack, source, spack, subset, operation, doff, init) result(destin)
921#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
922 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_TSO_LK4
923#endif
924 use pm_kind, only: LKG => LK4
925 type(rdpack_type) , intent(in) :: dpack
926 type(rdpack_type) , intent(in) :: spack
927 type(upp_type) , intent(in) :: subset
928 type(transSymm_type) , intent(in) :: operation
929 integer(IK) , intent(in) , optional :: doff
930 logical(LKG) , intent(in) , optional :: init
931 logical(LKG) , intent(in) :: source(:,:)
932 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
933 end function
934#endif
935
936#if LK3_ENABLED
937 PURE module function getMatCopy_RDP_RDP_UXX_TSO_LK3(dpack, source, spack, subset, operation, doff, init) result(destin)
938#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
939 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_TSO_LK3
940#endif
941 use pm_kind, only: LKG => LK3
942 type(rdpack_type) , intent(in) :: dpack
943 type(rdpack_type) , intent(in) :: spack
944 type(upp_type) , intent(in) :: subset
945 type(transSymm_type) , intent(in) :: operation
946 integer(IK) , intent(in) , optional :: doff
947 logical(LKG) , intent(in) , optional :: init
948 logical(LKG) , intent(in) :: source(:,:)
949 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
950 end function
951#endif
952
953#if LK2_ENABLED
954 PURE module function getMatCopy_RDP_RDP_UXX_TSO_LK2(dpack, source, spack, subset, operation, doff, init) result(destin)
955#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
956 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_TSO_LK2
957#endif
958 use pm_kind, only: LKG => LK2
959 type(rdpack_type) , intent(in) :: dpack
960 type(rdpack_type) , intent(in) :: spack
961 type(upp_type) , intent(in) :: subset
962 type(transSymm_type) , intent(in) :: operation
963 integer(IK) , intent(in) , optional :: doff
964 logical(LKG) , intent(in) , optional :: init
965 logical(LKG) , intent(in) :: source(:,:)
966 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
967 end function
968#endif
969
970#if LK1_ENABLED
971 PURE module function getMatCopy_RDP_RDP_UXX_TSO_LK1(dpack, source, spack, subset, operation, doff, init) result(destin)
972#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
973 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_TSO_LK1
974#endif
975 use pm_kind, only: LKG => LK1
976 type(rdpack_type) , intent(in) :: dpack
977 type(rdpack_type) , intent(in) :: spack
978 type(upp_type) , intent(in) :: subset
979 type(transSymm_type) , intent(in) :: operation
980 integer(IK) , intent(in) , optional :: doff
981 logical(LKG) , intent(in) , optional :: init
982 logical(LKG) , intent(in) :: source(:,:)
983 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
984 end function
985#endif
986
987 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
988
989#if CK5_ENABLED
990 PURE module function getMatCopy_RDP_RDP_UXX_TSO_CK5(dpack, source, spack, subset, operation, doff, init) result(destin)
991#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
992 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_TSO_CK5
993#endif
994 use pm_kind, only: CKG => CK5
995 type(rdpack_type) , intent(in) :: dpack
996 type(rdpack_type) , intent(in) :: spack
997 type(upp_type) , intent(in) :: subset
998 type(transSymm_type) , intent(in) :: operation
999 integer(IK) , intent(in) , optional :: doff
1000 complex(CKG) , intent(in) , optional :: init
1001 complex(CKG) , intent(in) :: source(:,:)
1002 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
1003 end function
1004#endif
1005
1006#if CK4_ENABLED
1007 PURE module function getMatCopy_RDP_RDP_UXX_TSO_CK4(dpack, source, spack, subset, operation, doff, init) result(destin)
1008#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1009 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_TSO_CK4
1010#endif
1011 use pm_kind, only: CKG => CK4
1012 type(rdpack_type) , intent(in) :: dpack
1013 type(rdpack_type) , intent(in) :: spack
1014 type(upp_type) , intent(in) :: subset
1015 type(transSymm_type) , intent(in) :: operation
1016 integer(IK) , intent(in) , optional :: doff
1017 complex(CKG) , intent(in) , optional :: init
1018 complex(CKG) , intent(in) :: source(:,:)
1019 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
1020 end function
1021#endif
1022
1023#if CK3_ENABLED
1024 PURE module function getMatCopy_RDP_RDP_UXX_TSO_CK3(dpack, source, spack, subset, operation, doff, init) result(destin)
1025#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1026 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_TSO_CK3
1027#endif
1028 use pm_kind, only: CKG => CK3
1029 type(rdpack_type) , intent(in) :: dpack
1030 type(rdpack_type) , intent(in) :: spack
1031 type(upp_type) , intent(in) :: subset
1032 type(transSymm_type) , intent(in) :: operation
1033 integer(IK) , intent(in) , optional :: doff
1034 complex(CKG) , intent(in) , optional :: init
1035 complex(CKG) , intent(in) :: source(:,:)
1036 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
1037 end function
1038#endif
1039
1040#if CK2_ENABLED
1041 PURE module function getMatCopy_RDP_RDP_UXX_TSO_CK2(dpack, source, spack, subset, operation, doff, init) result(destin)
1042#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1043 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_TSO_CK2
1044#endif
1045 use pm_kind, only: CKG => CK2
1046 type(rdpack_type) , intent(in) :: dpack
1047 type(rdpack_type) , intent(in) :: spack
1048 type(upp_type) , intent(in) :: subset
1049 type(transSymm_type) , intent(in) :: operation
1050 integer(IK) , intent(in) , optional :: doff
1051 complex(CKG) , intent(in) , optional :: init
1052 complex(CKG) , intent(in) :: source(:,:)
1053 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
1054 end function
1055#endif
1056
1057#if CK1_ENABLED
1058 PURE module function getMatCopy_RDP_RDP_UXX_TSO_CK1(dpack, source, spack, subset, operation, doff, init) result(destin)
1059#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1060 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_TSO_CK1
1061#endif
1062 use pm_kind, only: CKG => CK1
1063 type(rdpack_type) , intent(in) :: dpack
1064 type(rdpack_type) , intent(in) :: spack
1065 type(upp_type) , intent(in) :: subset
1066 type(transSymm_type) , intent(in) :: operation
1067 integer(IK) , intent(in) , optional :: doff
1068 complex(CKG) , intent(in) , optional :: init
1069 complex(CKG) , intent(in) :: source(:,:)
1070 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
1071 end function
1072#endif
1073
1074 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1075
1076#if RK5_ENABLED
1077 PURE module function getMatCopy_RDP_RDP_UXX_TSO_RK5(dpack, source, spack, subset, operation, doff, init) result(destin)
1078#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1079 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_TSO_RK5
1080#endif
1081 use pm_kind, only: RKG => RK5
1082 type(rdpack_type) , intent(in) :: dpack
1083 type(rdpack_type) , intent(in) :: spack
1084 type(upp_type) , intent(in) :: subset
1085 type(transSymm_type) , intent(in) :: operation
1086 integer(IK) , intent(in) , optional :: doff
1087 real(RKG) , intent(in) , optional :: init
1088 real(RKG) , intent(in) :: source(:,:)
1089 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
1090 end function
1091#endif
1092
1093#if RK4_ENABLED
1094 PURE module function getMatCopy_RDP_RDP_UXX_TSO_RK4(dpack, source, spack, subset, operation, doff, init) result(destin)
1095#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1096 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_TSO_RK4
1097#endif
1098 use pm_kind, only: RKG => RK4
1099 type(rdpack_type) , intent(in) :: dpack
1100 type(rdpack_type) , intent(in) :: spack
1101 type(upp_type) , intent(in) :: subset
1102 type(transSymm_type) , intent(in) :: operation
1103 integer(IK) , intent(in) , optional :: doff
1104 real(RKG) , intent(in) , optional :: init
1105 real(RKG) , intent(in) :: source(:,:)
1106 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
1107 end function
1108#endif
1109
1110#if RK3_ENABLED
1111 PURE module function getMatCopy_RDP_RDP_UXX_TSO_RK3(dpack, source, spack, subset, operation, doff, init) result(destin)
1112#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1113 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_TSO_RK3
1114#endif
1115 use pm_kind, only: RKG => RK3
1116 type(rdpack_type) , intent(in) :: dpack
1117 type(rdpack_type) , intent(in) :: spack
1118 type(upp_type) , intent(in) :: subset
1119 type(transSymm_type) , intent(in) :: operation
1120 integer(IK) , intent(in) , optional :: doff
1121 real(RKG) , intent(in) , optional :: init
1122 real(RKG) , intent(in) :: source(:,:)
1123 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
1124 end function
1125#endif
1126
1127#if RK2_ENABLED
1128 PURE module function getMatCopy_RDP_RDP_UXX_TSO_RK2(dpack, source, spack, subset, operation, doff, init) result(destin)
1129#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1130 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_TSO_RK2
1131#endif
1132 use pm_kind, only: RKG => RK2
1133 type(rdpack_type) , intent(in) :: dpack
1134 type(rdpack_type) , intent(in) :: spack
1135 type(upp_type) , intent(in) :: subset
1136 type(transSymm_type) , intent(in) :: operation
1137 integer(IK) , intent(in) , optional :: doff
1138 real(RKG) , intent(in) , optional :: init
1139 real(RKG) , intent(in) :: source(:,:)
1140 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
1141 end function
1142#endif
1143
1144#if RK1_ENABLED
1145 PURE module function getMatCopy_RDP_RDP_UXX_TSO_RK1(dpack, source, spack, subset, operation, doff, init) result(destin)
1146#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1147 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_TSO_RK1
1148#endif
1149 use pm_kind, only: RKG => RK1
1150 type(rdpack_type) , intent(in) :: dpack
1151 type(rdpack_type) , intent(in) :: spack
1152 type(upp_type) , intent(in) :: subset
1153 type(transSymm_type) , intent(in) :: operation
1154 integer(IK) , intent(in) , optional :: doff
1155 real(RKG) , intent(in) , optional :: init
1156 real(RKG) , intent(in) :: source(:,:)
1157 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
1158 end function
1159#endif
1160
1161 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1162
1163 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1164 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1165 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1166
1167 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1168
1169#if SK5_ENABLED
1170 PURE module function getMatCopy_RDP_RDP_UXX_THO_SK5(dpack, source, spack, subset, operation, doff, init) result(destin)
1171#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1172 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_THO_SK5
1173#endif
1174 use pm_kind, only: SKG => SK5
1175 type(rdpack_type) , intent(in) :: dpack
1176 type(rdpack_type) , intent(in) :: spack
1177 type(upp_type) , intent(in) :: subset
1178 type(transHerm_type) , intent(in) :: operation
1179 integer(IK) , intent(in) , optional :: doff
1180 character(*,SKG) , intent(in) , optional :: init
1181 character(*,SKG) , intent(in) :: source(:,:)
1182 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
1183 end function
1184#endif
1185
1186#if SK4_ENABLED
1187 PURE module function getMatCopy_RDP_RDP_UXX_THO_SK4(dpack, source, spack, subset, operation, doff, init) result(destin)
1188#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1189 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_THO_SK4
1190#endif
1191 use pm_kind, only: SKG => SK4
1192 type(rdpack_type) , intent(in) :: dpack
1193 type(rdpack_type) , intent(in) :: spack
1194 type(upp_type) , intent(in) :: subset
1195 type(rdpack_type) , intent(in) :: dpack
1196 type(rdpack_type) , intent(in) :: spack
1197 type(transHerm_type) , intent(in) :: operation
1198 integer(IK) , intent(in) , optional :: doff
1199 character(*,SKG) , intent(in) , optional :: init
1200 character(*,SKG) , intent(in) :: source(:,:)
1201 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
1202 end function
1203#endif
1204
1205#if SK3_ENABLED
1206 PURE module function getMatCopy_RDP_RDP_UXX_THO_SK3(dpack, source, spack, subset, operation, doff, init) result(destin)
1207#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1208 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_THO_SK3
1209#endif
1210 use pm_kind, only: SKG => SK3
1211 type(rdpack_type) , intent(in) :: dpack
1212 type(rdpack_type) , intent(in) :: spack
1213 type(upp_type) , intent(in) :: subset
1214 type(transHerm_type) , intent(in) :: operation
1215 integer(IK) , intent(in) , optional :: doff
1216 character(*,SKG) , intent(in) , optional :: init
1217 character(*,SKG) , intent(in) :: source(:,:)
1218 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
1219 end function
1220#endif
1221
1222#if SK2_ENABLED
1223 PURE module function getMatCopy_RDP_RDP_UXX_THO_SK2(dpack, source, spack, subset, operation, doff, init) result(destin)
1224#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1225 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_THO_SK2
1226#endif
1227 use pm_kind, only: SKG => SK2
1228 type(rdpack_type) , intent(in) :: dpack
1229 type(rdpack_type) , intent(in) :: spack
1230 type(upp_type) , intent(in) :: subset
1231 type(transHerm_type) , intent(in) :: operation
1232 integer(IK) , intent(in) , optional :: doff
1233 character(*,SKG) , intent(in) , optional :: init
1234 character(*,SKG) , intent(in) :: source(:,:)
1235 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
1236 end function
1237#endif
1238
1239#if SK1_ENABLED
1240 PURE module function getMatCopy_RDP_RDP_UXX_THO_SK1(dpack, source, spack, subset, operation, doff, init) result(destin)
1241#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1242 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_THO_SK1
1243#endif
1244 use pm_kind, only: SKG => SK1
1245 type(rdpack_type) , intent(in) :: dpack
1246 type(rdpack_type) , intent(in) :: spack
1247 type(upp_type) , intent(in) :: subset
1248 type(transHerm_type) , intent(in) :: operation
1249 integer(IK) , intent(in) , optional :: doff
1250 character(*,SKG) , intent(in) , optional :: init
1251 character(*,SKG) , intent(in) :: source(:,:)
1252 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
1253 end function
1254#endif
1255
1256 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1257
1258#if IK5_ENABLED
1259 PURE module function getMatCopy_RDP_RDP_UXX_THO_IK5(dpack, source, spack, subset, operation, doff, init) result(destin)
1260#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1261 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_THO_IK5
1262#endif
1263 use pm_kind, only: IKG => IK5
1264 type(rdpack_type) , intent(in) :: dpack
1265 type(rdpack_type) , intent(in) :: spack
1266 type(upp_type) , intent(in) :: subset
1267 type(transHerm_type) , intent(in) :: operation
1268 integer(IK) , intent(in) , optional :: doff
1269 integer(IKG) , intent(in) , optional :: init
1270 integer(IKG) , intent(in) :: source(:,:)
1271 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
1272 end function
1273#endif
1274
1275#if IK4_ENABLED
1276 PURE module function getMatCopy_RDP_RDP_UXX_THO_IK4(dpack, source, spack, subset, operation, doff, init) result(destin)
1277#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1278 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_THO_IK4
1279#endif
1280 use pm_kind, only: IKG => IK4
1281 type(rdpack_type) , intent(in) :: dpack
1282 type(rdpack_type) , intent(in) :: spack
1283 type(upp_type) , intent(in) :: subset
1284 type(transHerm_type) , intent(in) :: operation
1285 integer(IK) , intent(in) , optional :: doff
1286 integer(IKG) , intent(in) , optional :: init
1287 integer(IKG) , intent(in) :: source(:,:)
1288 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
1289 end function
1290#endif
1291
1292#if IK3_ENABLED
1293 PURE module function getMatCopy_RDP_RDP_UXX_THO_IK3(dpack, source, spack, subset, operation, doff, init) result(destin)
1294#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1295 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_THO_IK3
1296#endif
1297 use pm_kind, only: IKG => IK3
1298 type(rdpack_type) , intent(in) :: dpack
1299 type(rdpack_type) , intent(in) :: spack
1300 type(upp_type) , intent(in) :: subset
1301 type(transHerm_type) , intent(in) :: operation
1302 integer(IK) , intent(in) , optional :: doff
1303 integer(IKG) , intent(in) , optional :: init
1304 integer(IKG) , intent(in) :: source(:,:)
1305 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
1306 end function
1307#endif
1308
1309#if IK2_ENABLED
1310 PURE module function getMatCopy_RDP_RDP_UXX_THO_IK2(dpack, source, spack, subset, operation, doff, init) result(destin)
1311#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1312 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_THO_IK2
1313#endif
1314 use pm_kind, only: IKG => IK2
1315 type(rdpack_type) , intent(in) :: dpack
1316 type(rdpack_type) , intent(in) :: spack
1317 type(upp_type) , intent(in) :: subset
1318 type(transHerm_type) , intent(in) :: operation
1319 integer(IK) , intent(in) , optional :: doff
1320 integer(IKG) , intent(in) , optional :: init
1321 integer(IKG) , intent(in) :: source(:,:)
1322 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
1323 end function
1324#endif
1325
1326#if IK1_ENABLED
1327 PURE module function getMatCopy_RDP_RDP_UXX_THO_IK1(dpack, source, spack, subset, operation, doff, init) result(destin)
1328#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1329 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_THO_IK1
1330#endif
1331 use pm_kind, only: IKG => IK1
1332 type(rdpack_type) , intent(in) :: dpack
1333 type(rdpack_type) , intent(in) :: spack
1334 type(upp_type) , intent(in) :: subset
1335 type(transHerm_type) , intent(in) :: operation
1336 integer(IK) , intent(in) , optional :: doff
1337 integer(IKG) , intent(in) , optional :: init
1338 integer(IKG) , intent(in) :: source(:,:)
1339 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
1340 end function
1341#endif
1342
1343 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1344
1345#if LK5_ENABLED
1346 PURE module function getMatCopy_RDP_RDP_UXX_THO_LK5(dpack, source, spack, subset, operation, doff, init) result(destin)
1347#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1348 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_THO_LK5
1349#endif
1350 use pm_kind, only: LKG => LK5
1351 type(rdpack_type) , intent(in) :: dpack
1352 type(rdpack_type) , intent(in) :: spack
1353 type(upp_type) , intent(in) :: subset
1354 type(transHerm_type) , intent(in) :: operation
1355 integer(IK) , intent(in) , optional :: doff
1356 logical(LKG) , intent(in) , optional :: init
1357 logical(LKG) , intent(in) :: source(:,:)
1358 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
1359 end function
1360#endif
1361
1362#if LK4_ENABLED
1363 PURE module function getMatCopy_RDP_RDP_UXX_THO_LK4(dpack, source, spack, subset, operation, doff, init) result(destin)
1364#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1365 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_THO_LK4
1366#endif
1367 use pm_kind, only: LKG => LK4
1368 type(rdpack_type) , intent(in) :: dpack
1369 type(rdpack_type) , intent(in) :: spack
1370 type(upp_type) , intent(in) :: subset
1371 type(transHerm_type) , intent(in) :: operation
1372 integer(IK) , intent(in) , optional :: doff
1373 logical(LKG) , intent(in) , optional :: init
1374 logical(LKG) , intent(in) :: source(:,:)
1375 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
1376 end function
1377#endif
1378
1379#if LK3_ENABLED
1380 PURE module function getMatCopy_RDP_RDP_UXX_THO_LK3(dpack, source, spack, subset, operation, doff, init) result(destin)
1381#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1382 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_THO_LK3
1383#endif
1384 use pm_kind, only: LKG => LK3
1385 type(rdpack_type) , intent(in) :: dpack
1386 type(rdpack_type) , intent(in) :: spack
1387 type(upp_type) , intent(in) :: subset
1388 type(transHerm_type) , intent(in) :: operation
1389 integer(IK) , intent(in) , optional :: doff
1390 logical(LKG) , intent(in) , optional :: init
1391 logical(LKG) , intent(in) :: source(:,:)
1392 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
1393 end function
1394#endif
1395
1396#if LK2_ENABLED
1397 PURE module function getMatCopy_RDP_RDP_UXX_THO_LK2(dpack, source, spack, subset, operation, doff, init) result(destin)
1398#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1399 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_THO_LK2
1400#endif
1401 use pm_kind, only: LKG => LK2
1402 type(rdpack_type) , intent(in) :: dpack
1403 type(rdpack_type) , intent(in) :: spack
1404 type(upp_type) , intent(in) :: subset
1405 type(transHerm_type) , intent(in) :: operation
1406 integer(IK) , intent(in) , optional :: doff
1407 logical(LKG) , intent(in) , optional :: init
1408 logical(LKG) , intent(in) :: source(:,:)
1409 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
1410 end function
1411#endif
1412
1413#if LK1_ENABLED
1414 PURE module function getMatCopy_RDP_RDP_UXX_THO_LK1(dpack, source, spack, subset, operation, doff, init) result(destin)
1415#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1416 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_THO_LK1
1417#endif
1418 use pm_kind, only: LKG => LK1
1419 type(rdpack_type) , intent(in) :: dpack
1420 type(rdpack_type) , intent(in) :: spack
1421 type(upp_type) , intent(in) :: subset
1422 type(transHerm_type) , intent(in) :: operation
1423 integer(IK) , intent(in) , optional :: doff
1424 logical(LKG) , intent(in) , optional :: init
1425 logical(LKG) , intent(in) :: source(:,:)
1426 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
1427 end function
1428#endif
1429
1430 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1431
1432#if CK5_ENABLED
1433 PURE module function getMatCopy_RDP_RDP_UXX_THO_CK5(dpack, source, spack, subset, operation, doff, init) result(destin)
1434#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1435 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_THO_CK5
1436#endif
1437 use pm_kind, only: CKG => CK5
1438 type(rdpack_type) , intent(in) :: dpack
1439 type(rdpack_type) , intent(in) :: spack
1440 type(upp_type) , intent(in) :: subset
1441 type(transHerm_type) , intent(in) :: operation
1442 integer(IK) , intent(in) , optional :: doff
1443 complex(CKG) , intent(in) , optional :: init
1444 complex(CKG) , intent(in) :: source(:,:)
1445 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
1446 end function
1447#endif
1448
1449#if CK4_ENABLED
1450 PURE module function getMatCopy_RDP_RDP_UXX_THO_CK4(dpack, source, spack, subset, operation, doff, init) result(destin)
1451#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1452 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_THO_CK4
1453#endif
1454 use pm_kind, only: CKG => CK4
1455 type(rdpack_type) , intent(in) :: dpack
1456 type(rdpack_type) , intent(in) :: spack
1457 type(upp_type) , intent(in) :: subset
1458 type(transHerm_type) , intent(in) :: operation
1459 integer(IK) , intent(in) , optional :: doff
1460 complex(CKG) , intent(in) , optional :: init
1461 complex(CKG) , intent(in) :: source(:,:)
1462 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
1463 end function
1464#endif
1465
1466#if CK3_ENABLED
1467 PURE module function getMatCopy_RDP_RDP_UXX_THO_CK3(dpack, source, spack, subset, operation, doff, init) result(destin)
1468#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1469 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_THO_CK3
1470#endif
1471 use pm_kind, only: CKG => CK3
1472 type(rdpack_type) , intent(in) :: dpack
1473 type(rdpack_type) , intent(in) :: spack
1474 type(upp_type) , intent(in) :: subset
1475 type(transHerm_type) , intent(in) :: operation
1476 integer(IK) , intent(in) , optional :: doff
1477 complex(CKG) , intent(in) , optional :: init
1478 complex(CKG) , intent(in) :: source(:,:)
1479 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
1480 end function
1481#endif
1482
1483#if CK2_ENABLED
1484 PURE module function getMatCopy_RDP_RDP_UXX_THO_CK2(dpack, source, spack, subset, operation, doff, init) result(destin)
1485#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1486 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_THO_CK2
1487#endif
1488 use pm_kind, only: CKG => CK2
1489 type(rdpack_type) , intent(in) :: dpack
1490 type(rdpack_type) , intent(in) :: spack
1491 type(upp_type) , intent(in) :: subset
1492 type(transHerm_type) , intent(in) :: operation
1493 integer(IK) , intent(in) , optional :: doff
1494 complex(CKG) , intent(in) , optional :: init
1495 complex(CKG) , intent(in) :: source(:,:)
1496 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
1497 end function
1498#endif
1499
1500#if CK1_ENABLED
1501 PURE module function getMatCopy_RDP_RDP_UXX_THO_CK1(dpack, source, spack, subset, operation, doff, init) result(destin)
1502#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1503 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_THO_CK1
1504#endif
1505 use pm_kind, only: CKG => CK1
1506 type(rdpack_type) , intent(in) :: dpack
1507 type(rdpack_type) , intent(in) :: spack
1508 type(upp_type) , intent(in) :: subset
1509 type(transHerm_type) , intent(in) :: operation
1510 integer(IK) , intent(in) , optional :: doff
1511 complex(CKG) , intent(in) , optional :: init
1512 complex(CKG) , intent(in) :: source(:,:)
1513 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
1514 end function
1515#endif
1516
1517 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1518
1519#if RK5_ENABLED
1520 PURE module function getMatCopy_RDP_RDP_UXX_THO_RK5(dpack, source, spack, subset, operation, doff, init) result(destin)
1521#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1522 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_THO_RK5
1523#endif
1524 use pm_kind, only: RKG => RK5
1525 type(rdpack_type) , intent(in) :: dpack
1526 type(rdpack_type) , intent(in) :: spack
1527 type(upp_type) , intent(in) :: subset
1528 type(transHerm_type) , intent(in) :: operation
1529 integer(IK) , intent(in) , optional :: doff
1530 real(RKG) , intent(in) , optional :: init
1531 real(RKG) , intent(in) :: source(:,:)
1532 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
1533 end function
1534#endif
1535
1536#if RK4_ENABLED
1537 PURE module function getMatCopy_RDP_RDP_UXX_THO_RK4(dpack, source, spack, subset, operation, doff, init) result(destin)
1538#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1539 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_THO_RK4
1540#endif
1541 use pm_kind, only: RKG => RK4
1542 type(rdpack_type) , intent(in) :: dpack
1543 type(rdpack_type) , intent(in) :: spack
1544 type(upp_type) , intent(in) :: subset
1545 type(transHerm_type) , intent(in) :: operation
1546 integer(IK) , intent(in) , optional :: doff
1547 real(RKG) , intent(in) , optional :: init
1548 real(RKG) , intent(in) :: source(:,:)
1549 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
1550 end function
1551#endif
1552
1553#if RK3_ENABLED
1554 PURE module function getMatCopy_RDP_RDP_UXX_THO_RK3(dpack, source, spack, subset, operation, doff, init) result(destin)
1555#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1556 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_THO_RK3
1557#endif
1558 use pm_kind, only: RKG => RK3
1559 type(rdpack_type) , intent(in) :: dpack
1560 type(rdpack_type) , intent(in) :: spack
1561 type(upp_type) , intent(in) :: subset
1562 type(transHerm_type) , intent(in) :: operation
1563 integer(IK) , intent(in) , optional :: doff
1564 real(RKG) , intent(in) , optional :: init
1565 real(RKG) , intent(in) :: source(:,:)
1566 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
1567 end function
1568#endif
1569
1570#if RK2_ENABLED
1571 PURE module function getMatCopy_RDP_RDP_UXX_THO_RK2(dpack, source, spack, subset, operation, doff, init) result(destin)
1572#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1573 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_THO_RK2
1574#endif
1575 use pm_kind, only: RKG => RK2
1576 type(rdpack_type) , intent(in) :: dpack
1577 type(rdpack_type) , intent(in) :: spack
1578 type(upp_type) , intent(in) :: subset
1579 type(transHerm_type) , intent(in) :: operation
1580 integer(IK) , intent(in) , optional :: doff
1581 real(RKG) , intent(in) , optional :: init
1582 real(RKG) , intent(in) :: source(:,:)
1583 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
1584 end function
1585#endif
1586
1587#if RK1_ENABLED
1588 PURE module function getMatCopy_RDP_RDP_UXX_THO_RK1(dpack, source, spack, subset, operation, doff, init) result(destin)
1589#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1590 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXX_THO_RK1
1591#endif
1592 use pm_kind, only: RKG => RK1
1593 type(rdpack_type) , intent(in) :: dpack
1594 type(rdpack_type) , intent(in) :: spack
1595 type(upp_type) , intent(in) :: subset
1596 type(transHerm_type) , intent(in) :: operation
1597 integer(IK) , intent(in) , optional :: doff
1598 real(RKG) , intent(in) , optional :: init
1599 real(RKG) , intent(in) :: source(:,:)
1600 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
1601 end function
1602#endif
1603
1604 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1605
1606 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1607 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1608 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1609
1610 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1611 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1612 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1613
1614 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1615
1616#if SK5_ENABLED
1617 PURE module function getMatCopy_RDP_RDP_XLX_AIO_SK5(dpack, source, spack, subset, doff, init) result(destin)
1618#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1619 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_AIO_SK5
1620#endif
1621 use pm_kind, only: SKG => SK5
1622 type(rdpack_type) , intent(in) :: dpack
1623 type(rdpack_type) , intent(in) :: spack
1624 type(low_type) , intent(in) :: subset
1625 integer(IK) , intent(in) , optional :: doff
1626 character(*,SKG) , intent(in) , optional :: init
1627 character(*,SKG) , intent(in) :: source(:,:)
1628 character(len(source,IK),SKG) :: destin(size(source, 1, IK), size(source, 2, IK))
1629 end function
1630#endif
1631
1632#if SK4_ENABLED
1633 PURE module function getMatCopy_RDP_RDP_XLX_AIO_SK4(dpack, source, spack, subset, doff, init) result(destin)
1634#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1635 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_AIO_SK4
1636#endif
1637 use pm_kind, only: SKG => SK4
1638 type(rdpack_type) , intent(in) :: dpack
1639 type(rdpack_type) , intent(in) :: spack
1640 type(low_type) , intent(in) :: subset
1641 integer(IK) , intent(in) , optional :: doff
1642 character(*,SKG) , intent(in) , optional :: init
1643 character(*,SKG) , intent(in) :: source(:,:)
1644 character(len(source,IK),SKG) :: destin(size(source, 1, IK), size(source, 2, IK))
1645 end function
1646#endif
1647
1648#if SK3_ENABLED
1649 PURE module function getMatCopy_RDP_RDP_XLX_AIO_SK3(dpack, source, spack, subset, doff, init) result(destin)
1650#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1651 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_AIO_SK3
1652#endif
1653 use pm_kind, only: SKG => SK3
1654 type(rdpack_type) , intent(in) :: dpack
1655 type(rdpack_type) , intent(in) :: spack
1656 type(low_type) , intent(in) :: subset
1657 integer(IK) , intent(in) , optional :: doff
1658 character(*,SKG) , intent(in) , optional :: init
1659 character(*,SKG) , intent(in) :: source(:,:)
1660 character(len(source,IK),SKG) :: destin(size(source, 1, IK), size(source, 2, IK))
1661 end function
1662#endif
1663
1664#if SK2_ENABLED
1665 PURE module function getMatCopy_RDP_RDP_XLX_AIO_SK2(dpack, source, spack, subset, doff, init) result(destin)
1666#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1667 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_AIO_SK2
1668#endif
1669 use pm_kind, only: SKG => SK2
1670 type(rdpack_type) , intent(in) :: dpack
1671 type(rdpack_type) , intent(in) :: spack
1672 type(low_type) , intent(in) :: subset
1673 integer(IK) , intent(in) , optional :: doff
1674 character(*,SKG) , intent(in) , optional :: init
1675 character(*,SKG) , intent(in) :: source(:,:)
1676 character(len(source,IK),SKG) :: destin(size(source, 1, IK), size(source, 2, IK))
1677 end function
1678#endif
1679
1680#if SK1_ENABLED
1681 PURE module function getMatCopy_RDP_RDP_XLX_AIO_SK1(dpack, source, spack, subset, doff, init) result(destin)
1682#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1683 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_AIO_SK1
1684#endif
1685 use pm_kind, only: SKG => SK1
1686 type(rdpack_type) , intent(in) :: dpack
1687 type(rdpack_type) , intent(in) :: spack
1688 type(low_type) , intent(in) :: subset
1689 integer(IK) , intent(in) , optional :: doff
1690 character(*,SKG) , intent(in) , optional :: init
1691 character(*,SKG) , intent(in) :: source(:,:)
1692 character(len(source,IK),SKG) :: destin(size(source, 1, IK), size(source, 2, IK))
1693 end function
1694#endif
1695
1696 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1697
1698#if IK5_ENABLED
1699 PURE module function getMatCopy_RDP_RDP_XLX_AIO_IK5(dpack, source, spack, subset, doff, init) result(destin)
1700#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1701 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_AIO_IK5
1702#endif
1703 use pm_kind, only: IKG => IK5
1704 type(rdpack_type) , intent(in) :: dpack
1705 type(rdpack_type) , intent(in) :: spack
1706 type(low_type) , intent(in) :: subset
1707 integer(IK) , intent(in) , optional :: doff
1708 integer(IKG) , intent(in) , optional :: init
1709 integer(IKG) , intent(in) :: source(:,:)
1710 integer(IKG) :: destin(size(source, 1, IK), size(source, 2, IK))
1711 end function
1712#endif
1713
1714#if IK4_ENABLED
1715 PURE module function getMatCopy_RDP_RDP_XLX_AIO_IK4(dpack, source, spack, subset, doff, init) result(destin)
1716#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1717 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_AIO_IK4
1718#endif
1719 use pm_kind, only: IKG => IK4
1720 type(rdpack_type) , intent(in) :: dpack
1721 type(rdpack_type) , intent(in) :: spack
1722 type(low_type) , intent(in) :: subset
1723 integer(IK) , intent(in) , optional :: doff
1724 integer(IKG) , intent(in) , optional :: init
1725 integer(IKG) , intent(in) :: source(:,:)
1726 integer(IKG) :: destin(size(source, 1, IK), size(source, 2, IK))
1727 end function
1728#endif
1729
1730#if IK3_ENABLED
1731 PURE module function getMatCopy_RDP_RDP_XLX_AIO_IK3(dpack, source, spack, subset, doff, init) result(destin)
1732#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1733 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_AIO_IK3
1734#endif
1735 use pm_kind, only: IKG => IK3
1736 type(rdpack_type) , intent(in) :: dpack
1737 type(rdpack_type) , intent(in) :: spack
1738 type(low_type) , intent(in) :: subset
1739 integer(IK) , intent(in) , optional :: doff
1740 integer(IKG) , intent(in) , optional :: init
1741 integer(IKG) , intent(in) :: source(:,:)
1742 integer(IKG) :: destin(size(source, 1, IK), size(source, 2, IK))
1743 end function
1744#endif
1745
1746#if IK2_ENABLED
1747 PURE module function getMatCopy_RDP_RDP_XLX_AIO_IK2(dpack, source, spack, subset, doff, init) result(destin)
1748#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1749 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_AIO_IK2
1750#endif
1751 use pm_kind, only: IKG => IK2
1752 type(rdpack_type) , intent(in) :: dpack
1753 type(rdpack_type) , intent(in) :: spack
1754 type(low_type) , intent(in) :: subset
1755 integer(IK) , intent(in) , optional :: doff
1756 integer(IKG) , intent(in) , optional :: init
1757 integer(IKG) , intent(in) :: source(:,:)
1758 integer(IKG) :: destin(size(source, 1, IK), size(source, 2, IK))
1759 end function
1760#endif
1761
1762#if IK1_ENABLED
1763 PURE module function getMatCopy_RDP_RDP_XLX_AIO_IK1(dpack, source, spack, subset, doff, init) result(destin)
1764#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1765 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_AIO_IK1
1766#endif
1767 use pm_kind, only: IKG => IK1
1768 type(rdpack_type) , intent(in) :: dpack
1769 type(rdpack_type) , intent(in) :: spack
1770 type(low_type) , intent(in) :: subset
1771 integer(IK) , intent(in) , optional :: doff
1772 integer(IKG) , intent(in) , optional :: init
1773 integer(IKG) , intent(in) :: source(:,:)
1774 integer(IKG) :: destin(size(source, 1, IK), size(source, 2, IK))
1775 end function
1776#endif
1777
1778 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1779
1780#if LK5_ENABLED
1781 PURE module function getMatCopy_RDP_RDP_XLX_AIO_LK5(dpack, source, spack, subset, doff, init) result(destin)
1782#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1783 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_AIO_LK5
1784#endif
1785 use pm_kind, only: LKG => LK5
1786 type(rdpack_type) , intent(in) :: dpack
1787 type(rdpack_type) , intent(in) :: spack
1788 type(low_type) , intent(in) :: subset
1789 integer(IK) , intent(in) , optional :: doff
1790 logical(LKG) , intent(in) , optional :: init
1791 logical(LKG) , intent(in) :: source(:,:)
1792 logical(LKG) :: destin(size(source, 1, IK), size(source, 2, IK))
1793 end function
1794#endif
1795
1796#if LK4_ENABLED
1797 PURE module function getMatCopy_RDP_RDP_XLX_AIO_LK4(dpack, source, spack, subset, doff, init) result(destin)
1798#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1799 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_AIO_LK4
1800#endif
1801 use pm_kind, only: LKG => LK4
1802 type(rdpack_type) , intent(in) :: dpack
1803 type(rdpack_type) , intent(in) :: spack
1804 type(low_type) , intent(in) :: subset
1805 integer(IK) , intent(in) , optional :: doff
1806 logical(LKG) , intent(in) , optional :: init
1807 logical(LKG) , intent(in) :: source(:,:)
1808 logical(LKG) :: destin(size(source, 1, IK), size(source, 2, IK))
1809 end function
1810#endif
1811
1812#if LK3_ENABLED
1813 PURE module function getMatCopy_RDP_RDP_XLX_AIO_LK3(dpack, source, spack, subset, doff, init) result(destin)
1814#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1815 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_AIO_LK3
1816#endif
1817 use pm_kind, only: LKG => LK3
1818 type(rdpack_type) , intent(in) :: dpack
1819 type(rdpack_type) , intent(in) :: spack
1820 type(low_type) , intent(in) :: subset
1821 integer(IK) , intent(in) , optional :: doff
1822 logical(LKG) , intent(in) , optional :: init
1823 logical(LKG) , intent(in) :: source(:,:)
1824 logical(LKG) :: destin(size(source, 1, IK), size(source, 2, IK))
1825 end function
1826#endif
1827
1828#if LK2_ENABLED
1829 PURE module function getMatCopy_RDP_RDP_XLX_AIO_LK2(dpack, source, spack, subset, doff, init) result(destin)
1830#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1831 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_AIO_LK2
1832#endif
1833 use pm_kind, only: LKG => LK2
1834 type(rdpack_type) , intent(in) :: dpack
1835 type(rdpack_type) , intent(in) :: spack
1836 type(low_type) , intent(in) :: subset
1837 integer(IK) , intent(in) , optional :: doff
1838 logical(LKG) , intent(in) , optional :: init
1839 logical(LKG) , intent(in) :: source(:,:)
1840 logical(LKG) :: destin(size(source, 1, IK), size(source, 2, IK))
1841 end function
1842#endif
1843
1844#if LK1_ENABLED
1845 PURE module function getMatCopy_RDP_RDP_XLX_AIO_LK1(dpack, source, spack, subset, doff, init) result(destin)
1846#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1847 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_AIO_LK1
1848#endif
1849 use pm_kind, only: LKG => LK1
1850 type(rdpack_type) , intent(in) :: dpack
1851 type(rdpack_type) , intent(in) :: spack
1852 type(low_type) , intent(in) :: subset
1853 integer(IK) , intent(in) , optional :: doff
1854 logical(LKG) , intent(in) , optional :: init
1855 logical(LKG) , intent(in) :: source(:,:)
1856 logical(LKG) :: destin(size(source, 1, IK), size(source, 2, IK))
1857 end function
1858#endif
1859
1860 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1861
1862#if CK5_ENABLED
1863 PURE module function getMatCopy_RDP_RDP_XLX_AIO_CK5(dpack, source, spack, subset, doff, init) result(destin)
1864#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1865 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_AIO_CK5
1866#endif
1867 use pm_kind, only: CKG => CK5
1868 type(rdpack_type) , intent(in) :: dpack
1869 type(rdpack_type) , intent(in) :: spack
1870 type(low_type) , intent(in) :: subset
1871 integer(IK) , intent(in) , optional :: doff
1872 complex(CKG) , intent(in) , optional :: init
1873 complex(CKG) , intent(in) :: source(:,:)
1874 complex(CKG) :: destin(size(source, 1, IK), size(source, 2, IK))
1875 end function
1876#endif
1877
1878#if CK4_ENABLED
1879 PURE module function getMatCopy_RDP_RDP_XLX_AIO_CK4(dpack, source, spack, subset, doff, init) result(destin)
1880#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1881 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_AIO_CK4
1882#endif
1883 use pm_kind, only: CKG => CK4
1884 type(rdpack_type) , intent(in) :: dpack
1885 type(rdpack_type) , intent(in) :: spack
1886 type(low_type) , intent(in) :: subset
1887 integer(IK) , intent(in) , optional :: doff
1888 complex(CKG) , intent(in) , optional :: init
1889 complex(CKG) , intent(in) :: source(:,:)
1890 complex(CKG) :: destin(size(source, 1, IK), size(source, 2, IK))
1891 end function
1892#endif
1893
1894#if CK3_ENABLED
1895 PURE module function getMatCopy_RDP_RDP_XLX_AIO_CK3(dpack, source, spack, subset, doff, init) result(destin)
1896#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1897 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_AIO_CK3
1898#endif
1899 use pm_kind, only: CKG => CK3
1900 type(rdpack_type) , intent(in) :: dpack
1901 type(rdpack_type) , intent(in) :: spack
1902 type(low_type) , intent(in) :: subset
1903 integer(IK) , intent(in) , optional :: doff
1904 complex(CKG) , intent(in) , optional :: init
1905 complex(CKG) , intent(in) :: source(:,:)
1906 complex(CKG) :: destin(size(source, 1, IK), size(source, 2, IK))
1907 end function
1908#endif
1909
1910#if CK2_ENABLED
1911 PURE module function getMatCopy_RDP_RDP_XLX_AIO_CK2(dpack, source, spack, subset, doff, init) result(destin)
1912#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1913 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_AIO_CK2
1914#endif
1915 use pm_kind, only: CKG => CK2
1916 type(rdpack_type) , intent(in) :: dpack
1917 type(rdpack_type) , intent(in) :: spack
1918 type(low_type) , intent(in) :: subset
1919 integer(IK) , intent(in) , optional :: doff
1920 complex(CKG) , intent(in) , optional :: init
1921 complex(CKG) , intent(in) :: source(:,:)
1922 complex(CKG) :: destin(size(source, 1, IK), size(source, 2, IK))
1923 end function
1924#endif
1925
1926#if CK1_ENABLED
1927 PURE module function getMatCopy_RDP_RDP_XLX_AIO_CK1(dpack, source, spack, subset, doff, init) result(destin)
1928#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1929 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_AIO_CK1
1930#endif
1931 use pm_kind, only: CKG => CK1
1932 type(rdpack_type) , intent(in) :: dpack
1933 type(rdpack_type) , intent(in) :: spack
1934 type(low_type) , intent(in) :: subset
1935 integer(IK) , intent(in) , optional :: doff
1936 complex(CKG) , intent(in) , optional :: init
1937 complex(CKG) , intent(in) :: source(:,:)
1938 complex(CKG) :: destin(size(source, 1, IK), size(source, 2, IK))
1939 end function
1940#endif
1941
1942 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1943
1944#if RK5_ENABLED
1945 PURE module function getMatCopy_RDP_RDP_XLX_AIO_RK5(dpack, source, spack, subset, doff, init) result(destin)
1946#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1947 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_AIO_RK5
1948#endif
1949 use pm_kind, only: RKG => RK5
1950 type(rdpack_type) , intent(in) :: dpack
1951 type(rdpack_type) , intent(in) :: spack
1952 type(low_type) , intent(in) :: subset
1953 integer(IK) , intent(in) , optional :: doff
1954 real(RKG) , intent(in) , optional :: init
1955 real(RKG) , intent(in) :: source(:,:)
1956 real(RKG) :: destin(size(source, 1, IK), size(source, 2, IK))
1957 end function
1958#endif
1959
1960#if RK4_ENABLED
1961 PURE module function getMatCopy_RDP_RDP_XLX_AIO_RK4(dpack, source, spack, subset, doff, init) result(destin)
1962#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1963 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_AIO_RK4
1964#endif
1965 use pm_kind, only: RKG => RK4
1966 type(rdpack_type) , intent(in) :: dpack
1967 type(rdpack_type) , intent(in) :: spack
1968 type(low_type) , intent(in) :: subset
1969 integer(IK) , intent(in) , optional :: doff
1970 real(RKG) , intent(in) , optional :: init
1971 real(RKG) , intent(in) :: source(:,:)
1972 real(RKG) :: destin(size(source, 1, IK), size(source, 2, IK))
1973 end function
1974#endif
1975
1976#if RK3_ENABLED
1977 PURE module function getMatCopy_RDP_RDP_XLX_AIO_RK3(dpack, source, spack, subset, doff, init) result(destin)
1978#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1979 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_AIO_RK3
1980#endif
1981 use pm_kind, only: RKG => RK3
1982 type(rdpack_type) , intent(in) :: dpack
1983 type(rdpack_type) , intent(in) :: spack
1984 type(low_type) , intent(in) :: subset
1985 integer(IK) , intent(in) , optional :: doff
1986 real(RKG) , intent(in) , optional :: init
1987 real(RKG) , intent(in) :: source(:,:)
1988 real(RKG) :: destin(size(source, 1, IK), size(source, 2, IK))
1989 end function
1990#endif
1991
1992#if RK2_ENABLED
1993 PURE module function getMatCopy_RDP_RDP_XLX_AIO_RK2(dpack, source, spack, subset, doff, init) result(destin)
1994#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1995 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_AIO_RK2
1996#endif
1997 use pm_kind, only: RKG => RK2
1998 type(rdpack_type) , intent(in) :: dpack
1999 type(rdpack_type) , intent(in) :: spack
2000 type(low_type) , intent(in) :: subset
2001 integer(IK) , intent(in) , optional :: doff
2002 real(RKG) , intent(in) , optional :: init
2003 real(RKG) , intent(in) :: source(:,:)
2004 real(RKG) :: destin(size(source, 1, IK), size(source, 2, IK))
2005 end function
2006#endif
2007
2008#if RK1_ENABLED
2009 PURE module function getMatCopy_RDP_RDP_XLX_AIO_RK1(dpack, source, spack, subset, doff, init) result(destin)
2010#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2011 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_AIO_RK1
2012#endif
2013 use pm_kind, only: RKG => RK1
2014 type(rdpack_type) , intent(in) :: dpack
2015 type(rdpack_type) , intent(in) :: spack
2016 type(low_type) , intent(in) :: subset
2017 integer(IK) , intent(in) , optional :: doff
2018 real(RKG) , intent(in) , optional :: init
2019 real(RKG) , intent(in) :: source(:,:)
2020 real(RKG) :: destin(size(source, 1, IK), size(source, 2, IK))
2021 end function
2022#endif
2023
2024 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2025
2026 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2027 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2028 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2029
2030 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2031
2032#if SK5_ENABLED
2033 PURE module function getMatCopy_RDP_RDP_XLX_TSO_SK5(dpack, source, spack, subset, operation, doff, init) result(destin)
2034#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2035 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_TSO_SK5
2036#endif
2037 use pm_kind, only: SKG => SK5
2038 type(rdpack_type) , intent(in) :: dpack
2039 type(rdpack_type) , intent(in) :: spack
2040 type(low_type) , intent(in) :: subset
2041 type(transSymm_type) , intent(in) :: operation
2042 integer(IK) , intent(in) , optional :: doff
2043 character(*,SKG) , intent(in) , optional :: init
2044 character(*,SKG) , intent(in) :: source(:,:)
2045 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
2046 end function
2047#endif
2048
2049#if SK4_ENABLED
2050 PURE module function getMatCopy_RDP_RDP_XLX_TSO_SK4(dpack, source, spack, subset, operation, doff, init) result(destin)
2051#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2052 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_TSO_SK4
2053#endif
2054 use pm_kind, only: SKG => SK4
2055 type(rdpack_type) , intent(in) :: dpack
2056 type(rdpack_type) , intent(in) :: spack
2057 type(low_type) , intent(in) :: subset
2058 type(transSymm_type) , intent(in) :: operation
2059 integer(IK) , intent(in) , optional :: doff
2060 character(*,SKG) , intent(in) , optional :: init
2061 character(*,SKG) , intent(in) :: source(:,:)
2062 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
2063 end function
2064#endif
2065
2066#if SK3_ENABLED
2067 PURE module function getMatCopy_RDP_RDP_XLX_TSO_SK3(dpack, source, spack, subset, operation, doff, init) result(destin)
2068#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2069 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_TSO_SK3
2070#endif
2071 use pm_kind, only: SKG => SK3
2072 type(rdpack_type) , intent(in) :: dpack
2073 type(rdpack_type) , intent(in) :: spack
2074 type(low_type) , intent(in) :: subset
2075 type(transSymm_type) , intent(in) :: operation
2076 integer(IK) , intent(in) , optional :: doff
2077 character(*,SKG) , intent(in) , optional :: init
2078 character(*,SKG) , intent(in) :: source(:,:)
2079 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
2080 end function
2081#endif
2082
2083#if SK2_ENABLED
2084 PURE module function getMatCopy_RDP_RDP_XLX_TSO_SK2(dpack, source, spack, subset, operation, doff, init) result(destin)
2085#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2086 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_TSO_SK2
2087#endif
2088 use pm_kind, only: SKG => SK2
2089 type(rdpack_type) , intent(in) :: dpack
2090 type(rdpack_type) , intent(in) :: spack
2091 type(low_type) , intent(in) :: subset
2092 type(transSymm_type) , intent(in) :: operation
2093 integer(IK) , intent(in) , optional :: doff
2094 character(*,SKG) , intent(in) , optional :: init
2095 character(*,SKG) , intent(in) :: source(:,:)
2096 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
2097 end function
2098#endif
2099
2100#if SK1_ENABLED
2101 PURE module function getMatCopy_RDP_RDP_XLX_TSO_SK1(dpack, source, spack, subset, operation, doff, init) result(destin)
2102#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2103 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_TSO_SK1
2104#endif
2105 use pm_kind, only: SKG => SK1
2106 type(rdpack_type) , intent(in) :: dpack
2107 type(rdpack_type) , intent(in) :: spack
2108 type(low_type) , intent(in) :: subset
2109 type(transSymm_type) , intent(in) :: operation
2110 integer(IK) , intent(in) , optional :: doff
2111 character(*,SKG) , intent(in) , optional :: init
2112 character(*,SKG) , intent(in) :: source(:,:)
2113 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
2114 end function
2115#endif
2116
2117 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2118
2119#if IK5_ENABLED
2120 PURE module function getMatCopy_RDP_RDP_XLX_TSO_IK5(dpack, source, spack, subset, operation, doff, init) result(destin)
2121#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2122 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_TSO_IK5
2123#endif
2124 use pm_kind, only: IKG => IK5
2125 type(rdpack_type) , intent(in) :: dpack
2126 type(rdpack_type) , intent(in) :: spack
2127 type(low_type) , intent(in) :: subset
2128 type(transSymm_type) , intent(in) :: operation
2129 integer(IK) , intent(in) , optional :: doff
2130 integer(IKG) , intent(in) , optional :: init
2131 integer(IKG) , intent(in) :: source(:,:)
2132 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
2133 end function
2134#endif
2135
2136#if IK4_ENABLED
2137 PURE module function getMatCopy_RDP_RDP_XLX_TSO_IK4(dpack, source, spack, subset, operation, doff, init) result(destin)
2138#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2139 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_TSO_IK4
2140#endif
2141 use pm_kind, only: IKG => IK4
2142 type(rdpack_type) , intent(in) :: dpack
2143 type(rdpack_type) , intent(in) :: spack
2144 type(low_type) , intent(in) :: subset
2145 type(transSymm_type) , intent(in) :: operation
2146 integer(IK) , intent(in) , optional :: doff
2147 integer(IKG) , intent(in) , optional :: init
2148 integer(IKG) , intent(in) :: source(:,:)
2149 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
2150 end function
2151#endif
2152
2153#if IK3_ENABLED
2154 PURE module function getMatCopy_RDP_RDP_XLX_TSO_IK3(dpack, source, spack, subset, operation, doff, init) result(destin)
2155#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2156 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_TSO_IK3
2157#endif
2158 use pm_kind, only: IKG => IK3
2159 type(rdpack_type) , intent(in) :: dpack
2160 type(rdpack_type) , intent(in) :: spack
2161 type(low_type) , intent(in) :: subset
2162 type(transSymm_type) , intent(in) :: operation
2163 integer(IK) , intent(in) , optional :: doff
2164 integer(IKG) , intent(in) , optional :: init
2165 integer(IKG) , intent(in) :: source(:,:)
2166 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
2167 end function
2168#endif
2169
2170#if IK2_ENABLED
2171 PURE module function getMatCopy_RDP_RDP_XLX_TSO_IK2(dpack, source, spack, subset, operation, doff, init) result(destin)
2172#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2173 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_TSO_IK2
2174#endif
2175 use pm_kind, only: IKG => IK2
2176 type(rdpack_type) , intent(in) :: dpack
2177 type(rdpack_type) , intent(in) :: spack
2178 type(low_type) , intent(in) :: subset
2179 type(transSymm_type) , intent(in) :: operation
2180 integer(IK) , intent(in) , optional :: doff
2181 integer(IKG) , intent(in) , optional :: init
2182 integer(IKG) , intent(in) :: source(:,:)
2183 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
2184 end function
2185#endif
2186
2187#if IK1_ENABLED
2188 PURE module function getMatCopy_RDP_RDP_XLX_TSO_IK1(dpack, source, spack, subset, operation, doff, init) result(destin)
2189#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2190 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_TSO_IK1
2191#endif
2192 use pm_kind, only: IKG => IK1
2193 type(rdpack_type) , intent(in) :: dpack
2194 type(rdpack_type) , intent(in) :: spack
2195 type(low_type) , intent(in) :: subset
2196 type(transSymm_type) , intent(in) :: operation
2197 integer(IK) , intent(in) , optional :: doff
2198 integer(IKG) , intent(in) , optional :: init
2199 integer(IKG) , intent(in) :: source(:,:)
2200 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
2201 end function
2202#endif
2203
2204 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2205
2206#if LK5_ENABLED
2207 PURE module function getMatCopy_RDP_RDP_XLX_TSO_LK5(dpack, source, spack, subset, operation, doff, init) result(destin)
2208#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2209 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_TSO_LK5
2210#endif
2211 use pm_kind, only: LKG => LK5
2212 type(rdpack_type) , intent(in) :: dpack
2213 type(rdpack_type) , intent(in) :: spack
2214 type(low_type) , intent(in) :: subset
2215 type(transSymm_type) , intent(in) :: operation
2216 integer(IK) , intent(in) , optional :: doff
2217 logical(LKG) , intent(in) , optional :: init
2218 logical(LKG) , intent(in) :: source(:,:)
2219 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
2220 end function
2221#endif
2222
2223#if LK4_ENABLED
2224 PURE module function getMatCopy_RDP_RDP_XLX_TSO_LK4(dpack, source, spack, subset, operation, doff, init) result(destin)
2225#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2226 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_TSO_LK4
2227#endif
2228 use pm_kind, only: LKG => LK4
2229 type(rdpack_type) , intent(in) :: dpack
2230 type(rdpack_type) , intent(in) :: spack
2231 type(low_type) , intent(in) :: subset
2232 type(transSymm_type) , intent(in) :: operation
2233 integer(IK) , intent(in) , optional :: doff
2234 logical(LKG) , intent(in) , optional :: init
2235 logical(LKG) , intent(in) :: source(:,:)
2236 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
2237 end function
2238#endif
2239
2240#if LK3_ENABLED
2241 PURE module function getMatCopy_RDP_RDP_XLX_TSO_LK3(dpack, source, spack, subset, operation, doff, init) result(destin)
2242#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2243 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_TSO_LK3
2244#endif
2245 use pm_kind, only: LKG => LK3
2246 type(rdpack_type) , intent(in) :: dpack
2247 type(rdpack_type) , intent(in) :: spack
2248 type(low_type) , intent(in) :: subset
2249 type(transSymm_type) , intent(in) :: operation
2250 integer(IK) , intent(in) , optional :: doff
2251 logical(LKG) , intent(in) , optional :: init
2252 logical(LKG) , intent(in) :: source(:,:)
2253 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
2254 end function
2255#endif
2256
2257#if LK2_ENABLED
2258 PURE module function getMatCopy_RDP_RDP_XLX_TSO_LK2(dpack, source, spack, subset, operation, doff, init) result(destin)
2259#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2260 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_TSO_LK2
2261#endif
2262 use pm_kind, only: LKG => LK2
2263 type(rdpack_type) , intent(in) :: dpack
2264 type(rdpack_type) , intent(in) :: spack
2265 type(low_type) , intent(in) :: subset
2266 type(transSymm_type) , intent(in) :: operation
2267 integer(IK) , intent(in) , optional :: doff
2268 logical(LKG) , intent(in) , optional :: init
2269 logical(LKG) , intent(in) :: source(:,:)
2270 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
2271 end function
2272#endif
2273
2274#if LK1_ENABLED
2275 PURE module function getMatCopy_RDP_RDP_XLX_TSO_LK1(dpack, source, spack, subset, operation, doff, init) result(destin)
2276#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2277 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_TSO_LK1
2278#endif
2279 use pm_kind, only: LKG => LK1
2280 type(rdpack_type) , intent(in) :: dpack
2281 type(rdpack_type) , intent(in) :: spack
2282 type(low_type) , intent(in) :: subset
2283 type(transSymm_type) , intent(in) :: operation
2284 integer(IK) , intent(in) , optional :: doff
2285 logical(LKG) , intent(in) , optional :: init
2286 logical(LKG) , intent(in) :: source(:,:)
2287 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
2288 end function
2289#endif
2290
2291 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2292
2293#if CK5_ENABLED
2294 PURE module function getMatCopy_RDP_RDP_XLX_TSO_CK5(dpack, source, spack, subset, operation, doff, init) result(destin)
2295#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2296 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_TSO_CK5
2297#endif
2298 use pm_kind, only: CKG => CK5
2299 type(rdpack_type) , intent(in) :: dpack
2300 type(rdpack_type) , intent(in) :: spack
2301 type(low_type) , intent(in) :: subset
2302 type(transSymm_type) , intent(in) :: operation
2303 integer(IK) , intent(in) , optional :: doff
2304 complex(CKG) , intent(in) , optional :: init
2305 complex(CKG) , intent(in) :: source(:,:)
2306 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
2307 end function
2308#endif
2309
2310#if CK4_ENABLED
2311 PURE module function getMatCopy_RDP_RDP_XLX_TSO_CK4(dpack, source, spack, subset, operation, doff, init) result(destin)
2312#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2313 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_TSO_CK4
2314#endif
2315 use pm_kind, only: CKG => CK4
2316 type(rdpack_type) , intent(in) :: dpack
2317 type(rdpack_type) , intent(in) :: spack
2318 type(low_type) , intent(in) :: subset
2319 type(transSymm_type) , intent(in) :: operation
2320 integer(IK) , intent(in) , optional :: doff
2321 complex(CKG) , intent(in) , optional :: init
2322 complex(CKG) , intent(in) :: source(:,:)
2323 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
2324 end function
2325#endif
2326
2327#if CK3_ENABLED
2328 PURE module function getMatCopy_RDP_RDP_XLX_TSO_CK3(dpack, source, spack, subset, operation, doff, init) result(destin)
2329#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2330 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_TSO_CK3
2331#endif
2332 use pm_kind, only: CKG => CK3
2333 type(rdpack_type) , intent(in) :: dpack
2334 type(rdpack_type) , intent(in) :: spack
2335 type(low_type) , intent(in) :: subset
2336 type(transSymm_type) , intent(in) :: operation
2337 integer(IK) , intent(in) , optional :: doff
2338 complex(CKG) , intent(in) , optional :: init
2339 complex(CKG) , intent(in) :: source(:,:)
2340 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
2341 end function
2342#endif
2343
2344#if CK2_ENABLED
2345 PURE module function getMatCopy_RDP_RDP_XLX_TSO_CK2(dpack, source, spack, subset, operation, doff, init) result(destin)
2346#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2347 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_TSO_CK2
2348#endif
2349 use pm_kind, only: CKG => CK2
2350 type(rdpack_type) , intent(in) :: dpack
2351 type(rdpack_type) , intent(in) :: spack
2352 type(low_type) , intent(in) :: subset
2353 type(transSymm_type) , intent(in) :: operation
2354 integer(IK) , intent(in) , optional :: doff
2355 complex(CKG) , intent(in) , optional :: init
2356 complex(CKG) , intent(in) :: source(:,:)
2357 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
2358 end function
2359#endif
2360
2361#if CK1_ENABLED
2362 PURE module function getMatCopy_RDP_RDP_XLX_TSO_CK1(dpack, source, spack, subset, operation, doff, init) result(destin)
2363#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2364 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_TSO_CK1
2365#endif
2366 use pm_kind, only: CKG => CK1
2367 type(rdpack_type) , intent(in) :: dpack
2368 type(rdpack_type) , intent(in) :: spack
2369 type(low_type) , intent(in) :: subset
2370 type(transSymm_type) , intent(in) :: operation
2371 integer(IK) , intent(in) , optional :: doff
2372 complex(CKG) , intent(in) , optional :: init
2373 complex(CKG) , intent(in) :: source(:,:)
2374 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
2375 end function
2376#endif
2377
2378 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2379
2380#if RK5_ENABLED
2381 PURE module function getMatCopy_RDP_RDP_XLX_TSO_RK5(dpack, source, spack, subset, operation, doff, init) result(destin)
2382#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2383 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_TSO_RK5
2384#endif
2385 use pm_kind, only: RKG => RK5
2386 type(rdpack_type) , intent(in) :: dpack
2387 type(rdpack_type) , intent(in) :: spack
2388 type(low_type) , intent(in) :: subset
2389 type(transSymm_type) , intent(in) :: operation
2390 integer(IK) , intent(in) , optional :: doff
2391 real(RKG) , intent(in) , optional :: init
2392 real(RKG) , intent(in) :: source(:,:)
2393 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
2394 end function
2395#endif
2396
2397#if RK4_ENABLED
2398 PURE module function getMatCopy_RDP_RDP_XLX_TSO_RK4(dpack, source, spack, subset, operation, doff, init) result(destin)
2399#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2400 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_TSO_RK4
2401#endif
2402 use pm_kind, only: RKG => RK4
2403 type(rdpack_type) , intent(in) :: dpack
2404 type(rdpack_type) , intent(in) :: spack
2405 type(low_type) , intent(in) :: subset
2406 type(transSymm_type) , intent(in) :: operation
2407 integer(IK) , intent(in) , optional :: doff
2408 real(RKG) , intent(in) , optional :: init
2409 real(RKG) , intent(in) :: source(:,:)
2410 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
2411 end function
2412#endif
2413
2414#if RK3_ENABLED
2415 PURE module function getMatCopy_RDP_RDP_XLX_TSO_RK3(dpack, source, spack, subset, operation, doff, init) result(destin)
2416#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2417 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_TSO_RK3
2418#endif
2419 use pm_kind, only: RKG => RK3
2420 type(rdpack_type) , intent(in) :: dpack
2421 type(rdpack_type) , intent(in) :: spack
2422 type(low_type) , intent(in) :: subset
2423 type(transSymm_type) , intent(in) :: operation
2424 integer(IK) , intent(in) , optional :: doff
2425 real(RKG) , intent(in) , optional :: init
2426 real(RKG) , intent(in) :: source(:,:)
2427 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
2428 end function
2429#endif
2430
2431#if RK2_ENABLED
2432 PURE module function getMatCopy_RDP_RDP_XLX_TSO_RK2(dpack, source, spack, subset, operation, doff, init) result(destin)
2433#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2434 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_TSO_RK2
2435#endif
2436 use pm_kind, only: RKG => RK2
2437 type(rdpack_type) , intent(in) :: dpack
2438 type(rdpack_type) , intent(in) :: spack
2439 type(low_type) , intent(in) :: subset
2440 type(transSymm_type) , intent(in) :: operation
2441 integer(IK) , intent(in) , optional :: doff
2442 real(RKG) , intent(in) , optional :: init
2443 real(RKG) , intent(in) :: source(:,:)
2444 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
2445 end function
2446#endif
2447
2448#if RK1_ENABLED
2449 PURE module function getMatCopy_RDP_RDP_XLX_TSO_RK1(dpack, source, spack, subset, operation, doff, init) result(destin)
2450#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2451 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_TSO_RK1
2452#endif
2453 use pm_kind, only: RKG => RK1
2454 type(rdpack_type) , intent(in) :: dpack
2455 type(rdpack_type) , intent(in) :: spack
2456 type(low_type) , intent(in) :: subset
2457 type(transSymm_type) , intent(in) :: operation
2458 integer(IK) , intent(in) , optional :: doff
2459 real(RKG) , intent(in) , optional :: init
2460 real(RKG) , intent(in) :: source(:,:)
2461 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
2462 end function
2463#endif
2464
2465 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2466
2467 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2468 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2469 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2470
2471 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2472
2473#if SK5_ENABLED
2474 PURE module function getMatCopy_RDP_RDP_XLX_THO_SK5(dpack, source, spack, subset, operation, doff, init) result(destin)
2475#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2476 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_THO_SK5
2477#endif
2478 use pm_kind, only: SKG => SK5
2479 type(rdpack_type) , intent(in) :: dpack
2480 type(rdpack_type) , intent(in) :: spack
2481 type(low_type) , intent(in) :: subset
2482 type(transHerm_type) , intent(in) :: operation
2483 integer(IK) , intent(in) , optional :: doff
2484 character(*,SKG) , intent(in) , optional :: init
2485 character(*,SKG) , intent(in) :: source(:,:)
2486 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
2487 end function
2488#endif
2489
2490#if SK4_ENABLED
2491 PURE module function getMatCopy_RDP_RDP_XLX_THO_SK4(dpack, source, spack, subset, operation, doff, init) result(destin)
2492#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2493 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_THO_SK4
2494#endif
2495 use pm_kind, only: SKG => SK4
2496 type(rdpack_type) , intent(in) :: dpack
2497 type(rdpack_type) , intent(in) :: spack
2498 type(low_type) , intent(in) :: subset
2499 type(rdpack_type) , intent(in) :: dpack
2500 type(rdpack_type) , intent(in) :: spack
2501 type(transHerm_type) , intent(in) :: operation
2502 integer(IK) , intent(in) , optional :: doff
2503 character(*,SKG) , intent(in) , optional :: init
2504 character(*,SKG) , intent(in) :: source(:,:)
2505 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
2506 end function
2507#endif
2508
2509#if SK3_ENABLED
2510 PURE module function getMatCopy_RDP_RDP_XLX_THO_SK3(dpack, source, spack, subset, operation, doff, init) result(destin)
2511#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2512 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_THO_SK3
2513#endif
2514 use pm_kind, only: SKG => SK3
2515 type(rdpack_type) , intent(in) :: dpack
2516 type(rdpack_type) , intent(in) :: spack
2517 type(low_type) , intent(in) :: subset
2518 type(transHerm_type) , intent(in) :: operation
2519 integer(IK) , intent(in) , optional :: doff
2520 character(*,SKG) , intent(in) , optional :: init
2521 character(*,SKG) , intent(in) :: source(:,:)
2522 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
2523 end function
2524#endif
2525
2526#if SK2_ENABLED
2527 PURE module function getMatCopy_RDP_RDP_XLX_THO_SK2(dpack, source, spack, subset, operation, doff, init) result(destin)
2528#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2529 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_THO_SK2
2530#endif
2531 use pm_kind, only: SKG => SK2
2532 type(rdpack_type) , intent(in) :: dpack
2533 type(rdpack_type) , intent(in) :: spack
2534 type(low_type) , intent(in) :: subset
2535 type(transHerm_type) , intent(in) :: operation
2536 integer(IK) , intent(in) , optional :: doff
2537 character(*,SKG) , intent(in) , optional :: init
2538 character(*,SKG) , intent(in) :: source(:,:)
2539 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
2540 end function
2541#endif
2542
2543#if SK1_ENABLED
2544 PURE module function getMatCopy_RDP_RDP_XLX_THO_SK1(dpack, source, spack, subset, operation, doff, init) result(destin)
2545#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2546 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_THO_SK1
2547#endif
2548 use pm_kind, only: SKG => SK1
2549 type(rdpack_type) , intent(in) :: dpack
2550 type(rdpack_type) , intent(in) :: spack
2551 type(low_type) , intent(in) :: subset
2552 type(transHerm_type) , intent(in) :: operation
2553 integer(IK) , intent(in) , optional :: doff
2554 character(*,SKG) , intent(in) , optional :: init
2555 character(*,SKG) , intent(in) :: source(:,:)
2556 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
2557 end function
2558#endif
2559
2560 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2561
2562#if IK5_ENABLED
2563 PURE module function getMatCopy_RDP_RDP_XLX_THO_IK5(dpack, source, spack, subset, operation, doff, init) result(destin)
2564#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2565 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_THO_IK5
2566#endif
2567 use pm_kind, only: IKG => IK5
2568 type(rdpack_type) , intent(in) :: dpack
2569 type(rdpack_type) , intent(in) :: spack
2570 type(low_type) , intent(in) :: subset
2571 type(transHerm_type) , intent(in) :: operation
2572 integer(IK) , intent(in) , optional :: doff
2573 integer(IKG) , intent(in) , optional :: init
2574 integer(IKG) , intent(in) :: source(:,:)
2575 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
2576 end function
2577#endif
2578
2579#if IK4_ENABLED
2580 PURE module function getMatCopy_RDP_RDP_XLX_THO_IK4(dpack, source, spack, subset, operation, doff, init) result(destin)
2581#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2582 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_THO_IK4
2583#endif
2584 use pm_kind, only: IKG => IK4
2585 type(rdpack_type) , intent(in) :: dpack
2586 type(rdpack_type) , intent(in) :: spack
2587 type(low_type) , intent(in) :: subset
2588 type(transHerm_type) , intent(in) :: operation
2589 integer(IK) , intent(in) , optional :: doff
2590 integer(IKG) , intent(in) , optional :: init
2591 integer(IKG) , intent(in) :: source(:,:)
2592 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
2593 end function
2594#endif
2595
2596#if IK3_ENABLED
2597 PURE module function getMatCopy_RDP_RDP_XLX_THO_IK3(dpack, source, spack, subset, operation, doff, init) result(destin)
2598#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2599 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_THO_IK3
2600#endif
2601 use pm_kind, only: IKG => IK3
2602 type(rdpack_type) , intent(in) :: dpack
2603 type(rdpack_type) , intent(in) :: spack
2604 type(low_type) , intent(in) :: subset
2605 type(transHerm_type) , intent(in) :: operation
2606 integer(IK) , intent(in) , optional :: doff
2607 integer(IKG) , intent(in) , optional :: init
2608 integer(IKG) , intent(in) :: source(:,:)
2609 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
2610 end function
2611#endif
2612
2613#if IK2_ENABLED
2614 PURE module function getMatCopy_RDP_RDP_XLX_THO_IK2(dpack, source, spack, subset, operation, doff, init) result(destin)
2615#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2616 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_THO_IK2
2617#endif
2618 use pm_kind, only: IKG => IK2
2619 type(rdpack_type) , intent(in) :: dpack
2620 type(rdpack_type) , intent(in) :: spack
2621 type(low_type) , intent(in) :: subset
2622 type(transHerm_type) , intent(in) :: operation
2623 integer(IK) , intent(in) , optional :: doff
2624 integer(IKG) , intent(in) , optional :: init
2625 integer(IKG) , intent(in) :: source(:,:)
2626 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
2627 end function
2628#endif
2629
2630#if IK1_ENABLED
2631 PURE module function getMatCopy_RDP_RDP_XLX_THO_IK1(dpack, source, spack, subset, operation, doff, init) result(destin)
2632#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2633 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_THO_IK1
2634#endif
2635 use pm_kind, only: IKG => IK1
2636 type(rdpack_type) , intent(in) :: dpack
2637 type(rdpack_type) , intent(in) :: spack
2638 type(low_type) , intent(in) :: subset
2639 type(transHerm_type) , intent(in) :: operation
2640 integer(IK) , intent(in) , optional :: doff
2641 integer(IKG) , intent(in) , optional :: init
2642 integer(IKG) , intent(in) :: source(:,:)
2643 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
2644 end function
2645#endif
2646
2647 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2648
2649#if LK5_ENABLED
2650 PURE module function getMatCopy_RDP_RDP_XLX_THO_LK5(dpack, source, spack, subset, operation, doff, init) result(destin)
2651#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2652 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_THO_LK5
2653#endif
2654 use pm_kind, only: LKG => LK5
2655 type(rdpack_type) , intent(in) :: dpack
2656 type(rdpack_type) , intent(in) :: spack
2657 type(low_type) , intent(in) :: subset
2658 type(transHerm_type) , intent(in) :: operation
2659 integer(IK) , intent(in) , optional :: doff
2660 logical(LKG) , intent(in) , optional :: init
2661 logical(LKG) , intent(in) :: source(:,:)
2662 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
2663 end function
2664#endif
2665
2666#if LK4_ENABLED
2667 PURE module function getMatCopy_RDP_RDP_XLX_THO_LK4(dpack, source, spack, subset, operation, doff, init) result(destin)
2668#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2669 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_THO_LK4
2670#endif
2671 use pm_kind, only: LKG => LK4
2672 type(rdpack_type) , intent(in) :: dpack
2673 type(rdpack_type) , intent(in) :: spack
2674 type(low_type) , intent(in) :: subset
2675 type(transHerm_type) , intent(in) :: operation
2676 integer(IK) , intent(in) , optional :: doff
2677 logical(LKG) , intent(in) , optional :: init
2678 logical(LKG) , intent(in) :: source(:,:)
2679 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
2680 end function
2681#endif
2682
2683#if LK3_ENABLED
2684 PURE module function getMatCopy_RDP_RDP_XLX_THO_LK3(dpack, source, spack, subset, operation, doff, init) result(destin)
2685#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2686 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_THO_LK3
2687#endif
2688 use pm_kind, only: LKG => LK3
2689 type(rdpack_type) , intent(in) :: dpack
2690 type(rdpack_type) , intent(in) :: spack
2691 type(low_type) , intent(in) :: subset
2692 type(transHerm_type) , intent(in) :: operation
2693 integer(IK) , intent(in) , optional :: doff
2694 logical(LKG) , intent(in) , optional :: init
2695 logical(LKG) , intent(in) :: source(:,:)
2696 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
2697 end function
2698#endif
2699
2700#if LK2_ENABLED
2701 PURE module function getMatCopy_RDP_RDP_XLX_THO_LK2(dpack, source, spack, subset, operation, doff, init) result(destin)
2702#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2703 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_THO_LK2
2704#endif
2705 use pm_kind, only: LKG => LK2
2706 type(rdpack_type) , intent(in) :: dpack
2707 type(rdpack_type) , intent(in) :: spack
2708 type(low_type) , intent(in) :: subset
2709 type(transHerm_type) , intent(in) :: operation
2710 integer(IK) , intent(in) , optional :: doff
2711 logical(LKG) , intent(in) , optional :: init
2712 logical(LKG) , intent(in) :: source(:,:)
2713 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
2714 end function
2715#endif
2716
2717#if LK1_ENABLED
2718 PURE module function getMatCopy_RDP_RDP_XLX_THO_LK1(dpack, source, spack, subset, operation, doff, init) result(destin)
2719#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2720 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_THO_LK1
2721#endif
2722 use pm_kind, only: LKG => LK1
2723 type(rdpack_type) , intent(in) :: dpack
2724 type(rdpack_type) , intent(in) :: spack
2725 type(low_type) , intent(in) :: subset
2726 type(transHerm_type) , intent(in) :: operation
2727 integer(IK) , intent(in) , optional :: doff
2728 logical(LKG) , intent(in) , optional :: init
2729 logical(LKG) , intent(in) :: source(:,:)
2730 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
2731 end function
2732#endif
2733
2734 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2735
2736#if CK5_ENABLED
2737 PURE module function getMatCopy_RDP_RDP_XLX_THO_CK5(dpack, source, spack, subset, operation, doff, init) result(destin)
2738#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2739 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_THO_CK5
2740#endif
2741 use pm_kind, only: CKG => CK5
2742 type(rdpack_type) , intent(in) :: dpack
2743 type(rdpack_type) , intent(in) :: spack
2744 type(low_type) , intent(in) :: subset
2745 type(transHerm_type) , intent(in) :: operation
2746 integer(IK) , intent(in) , optional :: doff
2747 complex(CKG) , intent(in) , optional :: init
2748 complex(CKG) , intent(in) :: source(:,:)
2749 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
2750 end function
2751#endif
2752
2753#if CK4_ENABLED
2754 PURE module function getMatCopy_RDP_RDP_XLX_THO_CK4(dpack, source, spack, subset, operation, doff, init) result(destin)
2755#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2756 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_THO_CK4
2757#endif
2758 use pm_kind, only: CKG => CK4
2759 type(rdpack_type) , intent(in) :: dpack
2760 type(rdpack_type) , intent(in) :: spack
2761 type(low_type) , intent(in) :: subset
2762 type(transHerm_type) , intent(in) :: operation
2763 integer(IK) , intent(in) , optional :: doff
2764 complex(CKG) , intent(in) , optional :: init
2765 complex(CKG) , intent(in) :: source(:,:)
2766 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
2767 end function
2768#endif
2769
2770#if CK3_ENABLED
2771 PURE module function getMatCopy_RDP_RDP_XLX_THO_CK3(dpack, source, spack, subset, operation, doff, init) result(destin)
2772#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2773 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_THO_CK3
2774#endif
2775 use pm_kind, only: CKG => CK3
2776 type(rdpack_type) , intent(in) :: dpack
2777 type(rdpack_type) , intent(in) :: spack
2778 type(low_type) , intent(in) :: subset
2779 type(transHerm_type) , intent(in) :: operation
2780 integer(IK) , intent(in) , optional :: doff
2781 complex(CKG) , intent(in) , optional :: init
2782 complex(CKG) , intent(in) :: source(:,:)
2783 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
2784 end function
2785#endif
2786
2787#if CK2_ENABLED
2788 PURE module function getMatCopy_RDP_RDP_XLX_THO_CK2(dpack, source, spack, subset, operation, doff, init) result(destin)
2789#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2790 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_THO_CK2
2791#endif
2792 use pm_kind, only: CKG => CK2
2793 type(rdpack_type) , intent(in) :: dpack
2794 type(rdpack_type) , intent(in) :: spack
2795 type(low_type) , intent(in) :: subset
2796 type(transHerm_type) , intent(in) :: operation
2797 integer(IK) , intent(in) , optional :: doff
2798 complex(CKG) , intent(in) , optional :: init
2799 complex(CKG) , intent(in) :: source(:,:)
2800 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
2801 end function
2802#endif
2803
2804#if CK1_ENABLED
2805 PURE module function getMatCopy_RDP_RDP_XLX_THO_CK1(dpack, source, spack, subset, operation, doff, init) result(destin)
2806#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2807 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_THO_CK1
2808#endif
2809 use pm_kind, only: CKG => CK1
2810 type(rdpack_type) , intent(in) :: dpack
2811 type(rdpack_type) , intent(in) :: spack
2812 type(low_type) , intent(in) :: subset
2813 type(transHerm_type) , intent(in) :: operation
2814 integer(IK) , intent(in) , optional :: doff
2815 complex(CKG) , intent(in) , optional :: init
2816 complex(CKG) , intent(in) :: source(:,:)
2817 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
2818 end function
2819#endif
2820
2821 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2822
2823#if RK5_ENABLED
2824 PURE module function getMatCopy_RDP_RDP_XLX_THO_RK5(dpack, source, spack, subset, operation, doff, init) result(destin)
2825#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2826 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_THO_RK5
2827#endif
2828 use pm_kind, only: RKG => RK5
2829 type(rdpack_type) , intent(in) :: dpack
2830 type(rdpack_type) , intent(in) :: spack
2831 type(low_type) , intent(in) :: subset
2832 type(transHerm_type) , intent(in) :: operation
2833 integer(IK) , intent(in) , optional :: doff
2834 real(RKG) , intent(in) , optional :: init
2835 real(RKG) , intent(in) :: source(:,:)
2836 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
2837 end function
2838#endif
2839
2840#if RK4_ENABLED
2841 PURE module function getMatCopy_RDP_RDP_XLX_THO_RK4(dpack, source, spack, subset, operation, doff, init) result(destin)
2842#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2843 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_THO_RK4
2844#endif
2845 use pm_kind, only: RKG => RK4
2846 type(rdpack_type) , intent(in) :: dpack
2847 type(rdpack_type) , intent(in) :: spack
2848 type(low_type) , intent(in) :: subset
2849 type(transHerm_type) , intent(in) :: operation
2850 integer(IK) , intent(in) , optional :: doff
2851 real(RKG) , intent(in) , optional :: init
2852 real(RKG) , intent(in) :: source(:,:)
2853 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
2854 end function
2855#endif
2856
2857#if RK3_ENABLED
2858 PURE module function getMatCopy_RDP_RDP_XLX_THO_RK3(dpack, source, spack, subset, operation, doff, init) result(destin)
2859#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2860 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_THO_RK3
2861#endif
2862 use pm_kind, only: RKG => RK3
2863 type(rdpack_type) , intent(in) :: dpack
2864 type(rdpack_type) , intent(in) :: spack
2865 type(low_type) , intent(in) :: subset
2866 type(transHerm_type) , intent(in) :: operation
2867 integer(IK) , intent(in) , optional :: doff
2868 real(RKG) , intent(in) , optional :: init
2869 real(RKG) , intent(in) :: source(:,:)
2870 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
2871 end function
2872#endif
2873
2874#if RK2_ENABLED
2875 PURE module function getMatCopy_RDP_RDP_XLX_THO_RK2(dpack, source, spack, subset, operation, doff, init) result(destin)
2876#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2877 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_THO_RK2
2878#endif
2879 use pm_kind, only: RKG => RK2
2880 type(rdpack_type) , intent(in) :: dpack
2881 type(rdpack_type) , intent(in) :: spack
2882 type(low_type) , intent(in) :: subset
2883 type(transHerm_type) , intent(in) :: operation
2884 integer(IK) , intent(in) , optional :: doff
2885 real(RKG) , intent(in) , optional :: init
2886 real(RKG) , intent(in) :: source(:,:)
2887 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
2888 end function
2889#endif
2890
2891#if RK1_ENABLED
2892 PURE module function getMatCopy_RDP_RDP_XLX_THO_RK1(dpack, source, spack, subset, operation, doff, init) result(destin)
2893#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2894 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLX_THO_RK1
2895#endif
2896 use pm_kind, only: RKG => RK1
2897 type(rdpack_type) , intent(in) :: dpack
2898 type(rdpack_type) , intent(in) :: spack
2899 type(low_type) , intent(in) :: subset
2900 type(transHerm_type) , intent(in) :: operation
2901 integer(IK) , intent(in) , optional :: doff
2902 real(RKG) , intent(in) , optional :: init
2903 real(RKG) , intent(in) :: source(:,:)
2904 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
2905 end function
2906#endif
2907
2908 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2909
2910 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2911 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2912 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2913
2914 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2915 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2916 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2917
2918 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2919
2920#if SK5_ENABLED
2921 PURE module function getMatCopy_RDP_RDP_XXD_AIO_SK5(dpack, source, spack, subset, doff, init) result(destin)
2922#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2923 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_AIO_SK5
2924#endif
2925 use pm_kind, only: SKG => SK5
2926 type(rdpack_type) , intent(in) :: dpack
2927 type(rdpack_type) , intent(in) :: spack
2928 type(dia_type) , intent(in) :: subset
2929 integer(IK) , intent(in) , optional :: doff
2930 character(*,SKG) , intent(in) , optional :: init
2931 character(*,SKG) , intent(in) :: source(:,:)
2932 character(len(source,IK),SKG) :: destin(size(source, 1, IK), size(source, 2, IK))
2933 end function
2934#endif
2935
2936#if SK4_ENABLED
2937 PURE module function getMatCopy_RDP_RDP_XXD_AIO_SK4(dpack, source, spack, subset, doff, init) result(destin)
2938#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2939 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_AIO_SK4
2940#endif
2941 use pm_kind, only: SKG => SK4
2942 type(rdpack_type) , intent(in) :: dpack
2943 type(rdpack_type) , intent(in) :: spack
2944 type(dia_type) , intent(in) :: subset
2945 integer(IK) , intent(in) , optional :: doff
2946 character(*,SKG) , intent(in) , optional :: init
2947 character(*,SKG) , intent(in) :: source(:,:)
2948 character(len(source,IK),SKG) :: destin(size(source, 1, IK), size(source, 2, IK))
2949 end function
2950#endif
2951
2952#if SK3_ENABLED
2953 PURE module function getMatCopy_RDP_RDP_XXD_AIO_SK3(dpack, source, spack, subset, doff, init) result(destin)
2954#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2955 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_AIO_SK3
2956#endif
2957 use pm_kind, only: SKG => SK3
2958 type(rdpack_type) , intent(in) :: dpack
2959 type(rdpack_type) , intent(in) :: spack
2960 type(dia_type) , intent(in) :: subset
2961 integer(IK) , intent(in) , optional :: doff
2962 character(*,SKG) , intent(in) , optional :: init
2963 character(*,SKG) , intent(in) :: source(:,:)
2964 character(len(source,IK),SKG) :: destin(size(source, 1, IK), size(source, 2, IK))
2965 end function
2966#endif
2967
2968#if SK2_ENABLED
2969 PURE module function getMatCopy_RDP_RDP_XXD_AIO_SK2(dpack, source, spack, subset, doff, init) result(destin)
2970#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2971 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_AIO_SK2
2972#endif
2973 use pm_kind, only: SKG => SK2
2974 type(rdpack_type) , intent(in) :: dpack
2975 type(rdpack_type) , intent(in) :: spack
2976 type(dia_type) , intent(in) :: subset
2977 integer(IK) , intent(in) , optional :: doff
2978 character(*,SKG) , intent(in) , optional :: init
2979 character(*,SKG) , intent(in) :: source(:,:)
2980 character(len(source,IK),SKG) :: destin(size(source, 1, IK), size(source, 2, IK))
2981 end function
2982#endif
2983
2984#if SK1_ENABLED
2985 PURE module function getMatCopy_RDP_RDP_XXD_AIO_SK1(dpack, source, spack, subset, doff, init) result(destin)
2986#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2987 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_AIO_SK1
2988#endif
2989 use pm_kind, only: SKG => SK1
2990 type(rdpack_type) , intent(in) :: dpack
2991 type(rdpack_type) , intent(in) :: spack
2992 type(dia_type) , intent(in) :: subset
2993 integer(IK) , intent(in) , optional :: doff
2994 character(*,SKG) , intent(in) , optional :: init
2995 character(*,SKG) , intent(in) :: source(:,:)
2996 character(len(source,IK),SKG) :: destin(size(source, 1, IK), size(source, 2, IK))
2997 end function
2998#endif
2999
3000 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3001
3002#if IK5_ENABLED
3003 PURE module function getMatCopy_RDP_RDP_XXD_AIO_IK5(dpack, source, spack, subset, doff, init) result(destin)
3004#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3005 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_AIO_IK5
3006#endif
3007 use pm_kind, only: IKG => IK5
3008 type(rdpack_type) , intent(in) :: dpack
3009 type(rdpack_type) , intent(in) :: spack
3010 type(dia_type) , intent(in) :: subset
3011 integer(IK) , intent(in) , optional :: doff
3012 integer(IKG) , intent(in) , optional :: init
3013 integer(IKG) , intent(in) :: source(:,:)
3014 integer(IKG) :: destin(size(source, 1, IK), size(source, 2, IK))
3015 end function
3016#endif
3017
3018#if IK4_ENABLED
3019 PURE module function getMatCopy_RDP_RDP_XXD_AIO_IK4(dpack, source, spack, subset, doff, init) result(destin)
3020#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3021 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_AIO_IK4
3022#endif
3023 use pm_kind, only: IKG => IK4
3024 type(rdpack_type) , intent(in) :: dpack
3025 type(rdpack_type) , intent(in) :: spack
3026 type(dia_type) , intent(in) :: subset
3027 integer(IK) , intent(in) , optional :: doff
3028 integer(IKG) , intent(in) , optional :: init
3029 integer(IKG) , intent(in) :: source(:,:)
3030 integer(IKG) :: destin(size(source, 1, IK), size(source, 2, IK))
3031 end function
3032#endif
3033
3034#if IK3_ENABLED
3035 PURE module function getMatCopy_RDP_RDP_XXD_AIO_IK3(dpack, source, spack, subset, doff, init) result(destin)
3036#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3037 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_AIO_IK3
3038#endif
3039 use pm_kind, only: IKG => IK3
3040 type(rdpack_type) , intent(in) :: dpack
3041 type(rdpack_type) , intent(in) :: spack
3042 type(dia_type) , intent(in) :: subset
3043 integer(IK) , intent(in) , optional :: doff
3044 integer(IKG) , intent(in) , optional :: init
3045 integer(IKG) , intent(in) :: source(:,:)
3046 integer(IKG) :: destin(size(source, 1, IK), size(source, 2, IK))
3047 end function
3048#endif
3049
3050#if IK2_ENABLED
3051 PURE module function getMatCopy_RDP_RDP_XXD_AIO_IK2(dpack, source, spack, subset, doff, init) result(destin)
3052#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3053 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_AIO_IK2
3054#endif
3055 use pm_kind, only: IKG => IK2
3056 type(rdpack_type) , intent(in) :: dpack
3057 type(rdpack_type) , intent(in) :: spack
3058 type(dia_type) , intent(in) :: subset
3059 integer(IK) , intent(in) , optional :: doff
3060 integer(IKG) , intent(in) , optional :: init
3061 integer(IKG) , intent(in) :: source(:,:)
3062 integer(IKG) :: destin(size(source, 1, IK), size(source, 2, IK))
3063 end function
3064#endif
3065
3066#if IK1_ENABLED
3067 PURE module function getMatCopy_RDP_RDP_XXD_AIO_IK1(dpack, source, spack, subset, doff, init) result(destin)
3068#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3069 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_AIO_IK1
3070#endif
3071 use pm_kind, only: IKG => IK1
3072 type(rdpack_type) , intent(in) :: dpack
3073 type(rdpack_type) , intent(in) :: spack
3074 type(dia_type) , intent(in) :: subset
3075 integer(IK) , intent(in) , optional :: doff
3076 integer(IKG) , intent(in) , optional :: init
3077 integer(IKG) , intent(in) :: source(:,:)
3078 integer(IKG) :: destin(size(source, 1, IK), size(source, 2, IK))
3079 end function
3080#endif
3081
3082 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3083
3084#if LK5_ENABLED
3085 PURE module function getMatCopy_RDP_RDP_XXD_AIO_LK5(dpack, source, spack, subset, doff, init) result(destin)
3086#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3087 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_AIO_LK5
3088#endif
3089 use pm_kind, only: LKG => LK5
3090 type(rdpack_type) , intent(in) :: dpack
3091 type(rdpack_type) , intent(in) :: spack
3092 type(dia_type) , intent(in) :: subset
3093 integer(IK) , intent(in) , optional :: doff
3094 logical(LKG) , intent(in) , optional :: init
3095 logical(LKG) , intent(in) :: source(:,:)
3096 logical(LKG) :: destin(size(source, 1, IK), size(source, 2, IK))
3097 end function
3098#endif
3099
3100#if LK4_ENABLED
3101 PURE module function getMatCopy_RDP_RDP_XXD_AIO_LK4(dpack, source, spack, subset, doff, init) result(destin)
3102#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3103 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_AIO_LK4
3104#endif
3105 use pm_kind, only: LKG => LK4
3106 type(rdpack_type) , intent(in) :: dpack
3107 type(rdpack_type) , intent(in) :: spack
3108 type(dia_type) , intent(in) :: subset
3109 integer(IK) , intent(in) , optional :: doff
3110 logical(LKG) , intent(in) , optional :: init
3111 logical(LKG) , intent(in) :: source(:,:)
3112 logical(LKG) :: destin(size(source, 1, IK), size(source, 2, IK))
3113 end function
3114#endif
3115
3116#if LK3_ENABLED
3117 PURE module function getMatCopy_RDP_RDP_XXD_AIO_LK3(dpack, source, spack, subset, doff, init) result(destin)
3118#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3119 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_AIO_LK3
3120#endif
3121 use pm_kind, only: LKG => LK3
3122 type(rdpack_type) , intent(in) :: dpack
3123 type(rdpack_type) , intent(in) :: spack
3124 type(dia_type) , intent(in) :: subset
3125 integer(IK) , intent(in) , optional :: doff
3126 logical(LKG) , intent(in) , optional :: init
3127 logical(LKG) , intent(in) :: source(:,:)
3128 logical(LKG) :: destin(size(source, 1, IK), size(source, 2, IK))
3129 end function
3130#endif
3131
3132#if LK2_ENABLED
3133 PURE module function getMatCopy_RDP_RDP_XXD_AIO_LK2(dpack, source, spack, subset, doff, init) result(destin)
3134#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3135 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_AIO_LK2
3136#endif
3137 use pm_kind, only: LKG => LK2
3138 type(rdpack_type) , intent(in) :: dpack
3139 type(rdpack_type) , intent(in) :: spack
3140 type(dia_type) , intent(in) :: subset
3141 integer(IK) , intent(in) , optional :: doff
3142 logical(LKG) , intent(in) , optional :: init
3143 logical(LKG) , intent(in) :: source(:,:)
3144 logical(LKG) :: destin(size(source, 1, IK), size(source, 2, IK))
3145 end function
3146#endif
3147
3148#if LK1_ENABLED
3149 PURE module function getMatCopy_RDP_RDP_XXD_AIO_LK1(dpack, source, spack, subset, doff, init) result(destin)
3150#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3151 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_AIO_LK1
3152#endif
3153 use pm_kind, only: LKG => LK1
3154 type(rdpack_type) , intent(in) :: dpack
3155 type(rdpack_type) , intent(in) :: spack
3156 type(dia_type) , intent(in) :: subset
3157 integer(IK) , intent(in) , optional :: doff
3158 logical(LKG) , intent(in) , optional :: init
3159 logical(LKG) , intent(in) :: source(:,:)
3160 logical(LKG) :: destin(size(source, 1, IK), size(source, 2, IK))
3161 end function
3162#endif
3163
3164 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3165
3166#if CK5_ENABLED
3167 PURE module function getMatCopy_RDP_RDP_XXD_AIO_CK5(dpack, source, spack, subset, doff, init) result(destin)
3168#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3169 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_AIO_CK5
3170#endif
3171 use pm_kind, only: CKG => CK5
3172 type(rdpack_type) , intent(in) :: dpack
3173 type(rdpack_type) , intent(in) :: spack
3174 type(dia_type) , intent(in) :: subset
3175 integer(IK) , intent(in) , optional :: doff
3176 complex(CKG) , intent(in) , optional :: init
3177 complex(CKG) , intent(in) :: source(:,:)
3178 complex(CKG) :: destin(size(source, 1, IK), size(source, 2, IK))
3179 end function
3180#endif
3181
3182#if CK4_ENABLED
3183 PURE module function getMatCopy_RDP_RDP_XXD_AIO_CK4(dpack, source, spack, subset, doff, init) result(destin)
3184#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3185 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_AIO_CK4
3186#endif
3187 use pm_kind, only: CKG => CK4
3188 type(rdpack_type) , intent(in) :: dpack
3189 type(rdpack_type) , intent(in) :: spack
3190 type(dia_type) , intent(in) :: subset
3191 integer(IK) , intent(in) , optional :: doff
3192 complex(CKG) , intent(in) , optional :: init
3193 complex(CKG) , intent(in) :: source(:,:)
3194 complex(CKG) :: destin(size(source, 1, IK), size(source, 2, IK))
3195 end function
3196#endif
3197
3198#if CK3_ENABLED
3199 PURE module function getMatCopy_RDP_RDP_XXD_AIO_CK3(dpack, source, spack, subset, doff, init) result(destin)
3200#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3201 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_AIO_CK3
3202#endif
3203 use pm_kind, only: CKG => CK3
3204 type(rdpack_type) , intent(in) :: dpack
3205 type(rdpack_type) , intent(in) :: spack
3206 type(dia_type) , intent(in) :: subset
3207 integer(IK) , intent(in) , optional :: doff
3208 complex(CKG) , intent(in) , optional :: init
3209 complex(CKG) , intent(in) :: source(:,:)
3210 complex(CKG) :: destin(size(source, 1, IK), size(source, 2, IK))
3211 end function
3212#endif
3213
3214#if CK2_ENABLED
3215 PURE module function getMatCopy_RDP_RDP_XXD_AIO_CK2(dpack, source, spack, subset, doff, init) result(destin)
3216#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3217 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_AIO_CK2
3218#endif
3219 use pm_kind, only: CKG => CK2
3220 type(rdpack_type) , intent(in) :: dpack
3221 type(rdpack_type) , intent(in) :: spack
3222 type(dia_type) , intent(in) :: subset
3223 integer(IK) , intent(in) , optional :: doff
3224 complex(CKG) , intent(in) , optional :: init
3225 complex(CKG) , intent(in) :: source(:,:)
3226 complex(CKG) :: destin(size(source, 1, IK), size(source, 2, IK))
3227 end function
3228#endif
3229
3230#if CK1_ENABLED
3231 PURE module function getMatCopy_RDP_RDP_XXD_AIO_CK1(dpack, source, spack, subset, doff, init) result(destin)
3232#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3233 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_AIO_CK1
3234#endif
3235 use pm_kind, only: CKG => CK1
3236 type(rdpack_type) , intent(in) :: dpack
3237 type(rdpack_type) , intent(in) :: spack
3238 type(dia_type) , intent(in) :: subset
3239 integer(IK) , intent(in) , optional :: doff
3240 complex(CKG) , intent(in) , optional :: init
3241 complex(CKG) , intent(in) :: source(:,:)
3242 complex(CKG) :: destin(size(source, 1, IK), size(source, 2, IK))
3243 end function
3244#endif
3245
3246 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3247
3248#if RK5_ENABLED
3249 PURE module function getMatCopy_RDP_RDP_XXD_AIO_RK5(dpack, source, spack, subset, doff, init) result(destin)
3250#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3251 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_AIO_RK5
3252#endif
3253 use pm_kind, only: RKG => RK5
3254 type(rdpack_type) , intent(in) :: dpack
3255 type(rdpack_type) , intent(in) :: spack
3256 type(dia_type) , intent(in) :: subset
3257 integer(IK) , intent(in) , optional :: doff
3258 real(RKG) , intent(in) , optional :: init
3259 real(RKG) , intent(in) :: source(:,:)
3260 real(RKG) :: destin(size(source, 1, IK), size(source, 2, IK))
3261 end function
3262#endif
3263
3264#if RK4_ENABLED
3265 PURE module function getMatCopy_RDP_RDP_XXD_AIO_RK4(dpack, source, spack, subset, doff, init) result(destin)
3266#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3267 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_AIO_RK4
3268#endif
3269 use pm_kind, only: RKG => RK4
3270 type(rdpack_type) , intent(in) :: dpack
3271 type(rdpack_type) , intent(in) :: spack
3272 type(dia_type) , intent(in) :: subset
3273 integer(IK) , intent(in) , optional :: doff
3274 real(RKG) , intent(in) , optional :: init
3275 real(RKG) , intent(in) :: source(:,:)
3276 real(RKG) :: destin(size(source, 1, IK), size(source, 2, IK))
3277 end function
3278#endif
3279
3280#if RK3_ENABLED
3281 PURE module function getMatCopy_RDP_RDP_XXD_AIO_RK3(dpack, source, spack, subset, doff, init) result(destin)
3282#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3283 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_AIO_RK3
3284#endif
3285 use pm_kind, only: RKG => RK3
3286 type(rdpack_type) , intent(in) :: dpack
3287 type(rdpack_type) , intent(in) :: spack
3288 type(dia_type) , intent(in) :: subset
3289 integer(IK) , intent(in) , optional :: doff
3290 real(RKG) , intent(in) , optional :: init
3291 real(RKG) , intent(in) :: source(:,:)
3292 real(RKG) :: destin(size(source, 1, IK), size(source, 2, IK))
3293 end function
3294#endif
3295
3296#if RK2_ENABLED
3297 PURE module function getMatCopy_RDP_RDP_XXD_AIO_RK2(dpack, source, spack, subset, doff, init) result(destin)
3298#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3299 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_AIO_RK2
3300#endif
3301 use pm_kind, only: RKG => RK2
3302 type(rdpack_type) , intent(in) :: dpack
3303 type(rdpack_type) , intent(in) :: spack
3304 type(dia_type) , intent(in) :: subset
3305 integer(IK) , intent(in) , optional :: doff
3306 real(RKG) , intent(in) , optional :: init
3307 real(RKG) , intent(in) :: source(:,:)
3308 real(RKG) :: destin(size(source, 1, IK), size(source, 2, IK))
3309 end function
3310#endif
3311
3312#if RK1_ENABLED
3313 PURE module function getMatCopy_RDP_RDP_XXD_AIO_RK1(dpack, source, spack, subset, doff, init) result(destin)
3314#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3315 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_AIO_RK1
3316#endif
3317 use pm_kind, only: RKG => RK1
3318 type(rdpack_type) , intent(in) :: dpack
3319 type(rdpack_type) , intent(in) :: spack
3320 type(dia_type) , intent(in) :: subset
3321 integer(IK) , intent(in) , optional :: doff
3322 real(RKG) , intent(in) , optional :: init
3323 real(RKG) , intent(in) :: source(:,:)
3324 real(RKG) :: destin(size(source, 1, IK), size(source, 2, IK))
3325 end function
3326#endif
3327
3328 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3329
3330 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3331 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3332 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3333
3334 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3335
3336#if SK5_ENABLED
3337 PURE module function getMatCopy_RDP_RDP_XXD_TSO_SK5(dpack, source, spack, subset, operation, doff, init) result(destin)
3338#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3339 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_TSO_SK5
3340#endif
3341 use pm_kind, only: SKG => SK5
3342 type(rdpack_type) , intent(in) :: dpack
3343 type(rdpack_type) , intent(in) :: spack
3344 type(dia_type) , intent(in) :: subset
3345 type(transSymm_type) , intent(in) :: operation
3346 integer(IK) , intent(in) , optional :: doff
3347 character(*,SKG) , intent(in) , optional :: init
3348 character(*,SKG) , intent(in) :: source(:,:)
3349 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
3350 end function
3351#endif
3352
3353#if SK4_ENABLED
3354 PURE module function getMatCopy_RDP_RDP_XXD_TSO_SK4(dpack, source, spack, subset, operation, doff, init) result(destin)
3355#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3356 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_TSO_SK4
3357#endif
3358 use pm_kind, only: SKG => SK4
3359 type(rdpack_type) , intent(in) :: dpack
3360 type(rdpack_type) , intent(in) :: spack
3361 type(dia_type) , intent(in) :: subset
3362 type(transSymm_type) , intent(in) :: operation
3363 integer(IK) , intent(in) , optional :: doff
3364 character(*,SKG) , intent(in) , optional :: init
3365 character(*,SKG) , intent(in) :: source(:,:)
3366 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
3367 end function
3368#endif
3369
3370#if SK3_ENABLED
3371 PURE module function getMatCopy_RDP_RDP_XXD_TSO_SK3(dpack, source, spack, subset, operation, doff, init) result(destin)
3372#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3373 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_TSO_SK3
3374#endif
3375 use pm_kind, only: SKG => SK3
3376 type(rdpack_type) , intent(in) :: dpack
3377 type(rdpack_type) , intent(in) :: spack
3378 type(dia_type) , intent(in) :: subset
3379 type(transSymm_type) , intent(in) :: operation
3380 integer(IK) , intent(in) , optional :: doff
3381 character(*,SKG) , intent(in) , optional :: init
3382 character(*,SKG) , intent(in) :: source(:,:)
3383 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
3384 end function
3385#endif
3386
3387#if SK2_ENABLED
3388 PURE module function getMatCopy_RDP_RDP_XXD_TSO_SK2(dpack, source, spack, subset, operation, doff, init) result(destin)
3389#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3390 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_TSO_SK2
3391#endif
3392 use pm_kind, only: SKG => SK2
3393 type(rdpack_type) , intent(in) :: dpack
3394 type(rdpack_type) , intent(in) :: spack
3395 type(dia_type) , intent(in) :: subset
3396 type(transSymm_type) , intent(in) :: operation
3397 integer(IK) , intent(in) , optional :: doff
3398 character(*,SKG) , intent(in) , optional :: init
3399 character(*,SKG) , intent(in) :: source(:,:)
3400 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
3401 end function
3402#endif
3403
3404#if SK1_ENABLED
3405 PURE module function getMatCopy_RDP_RDP_XXD_TSO_SK1(dpack, source, spack, subset, operation, doff, init) result(destin)
3406#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3407 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_TSO_SK1
3408#endif
3409 use pm_kind, only: SKG => SK1
3410 type(rdpack_type) , intent(in) :: dpack
3411 type(rdpack_type) , intent(in) :: spack
3412 type(dia_type) , intent(in) :: subset
3413 type(transSymm_type) , intent(in) :: operation
3414 integer(IK) , intent(in) , optional :: doff
3415 character(*,SKG) , intent(in) , optional :: init
3416 character(*,SKG) , intent(in) :: source(:,:)
3417 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
3418 end function
3419#endif
3420
3421 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3422
3423#if IK5_ENABLED
3424 PURE module function getMatCopy_RDP_RDP_XXD_TSO_IK5(dpack, source, spack, subset, operation, doff, init) result(destin)
3425#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3426 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_TSO_IK5
3427#endif
3428 use pm_kind, only: IKG => IK5
3429 type(rdpack_type) , intent(in) :: dpack
3430 type(rdpack_type) , intent(in) :: spack
3431 type(dia_type) , intent(in) :: subset
3432 type(transSymm_type) , intent(in) :: operation
3433 integer(IK) , intent(in) , optional :: doff
3434 integer(IKG) , intent(in) , optional :: init
3435 integer(IKG) , intent(in) :: source(:,:)
3436 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
3437 end function
3438#endif
3439
3440#if IK4_ENABLED
3441 PURE module function getMatCopy_RDP_RDP_XXD_TSO_IK4(dpack, source, spack, subset, operation, doff, init) result(destin)
3442#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3443 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_TSO_IK4
3444#endif
3445 use pm_kind, only: IKG => IK4
3446 type(rdpack_type) , intent(in) :: dpack
3447 type(rdpack_type) , intent(in) :: spack
3448 type(dia_type) , intent(in) :: subset
3449 type(transSymm_type) , intent(in) :: operation
3450 integer(IK) , intent(in) , optional :: doff
3451 integer(IKG) , intent(in) , optional :: init
3452 integer(IKG) , intent(in) :: source(:,:)
3453 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
3454 end function
3455#endif
3456
3457#if IK3_ENABLED
3458 PURE module function getMatCopy_RDP_RDP_XXD_TSO_IK3(dpack, source, spack, subset, operation, doff, init) result(destin)
3459#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3460 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_TSO_IK3
3461#endif
3462 use pm_kind, only: IKG => IK3
3463 type(rdpack_type) , intent(in) :: dpack
3464 type(rdpack_type) , intent(in) :: spack
3465 type(dia_type) , intent(in) :: subset
3466 type(transSymm_type) , intent(in) :: operation
3467 integer(IK) , intent(in) , optional :: doff
3468 integer(IKG) , intent(in) , optional :: init
3469 integer(IKG) , intent(in) :: source(:,:)
3470 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
3471 end function
3472#endif
3473
3474#if IK2_ENABLED
3475 PURE module function getMatCopy_RDP_RDP_XXD_TSO_IK2(dpack, source, spack, subset, operation, doff, init) result(destin)
3476#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3477 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_TSO_IK2
3478#endif
3479 use pm_kind, only: IKG => IK2
3480 type(rdpack_type) , intent(in) :: dpack
3481 type(rdpack_type) , intent(in) :: spack
3482 type(dia_type) , intent(in) :: subset
3483 type(transSymm_type) , intent(in) :: operation
3484 integer(IK) , intent(in) , optional :: doff
3485 integer(IKG) , intent(in) , optional :: init
3486 integer(IKG) , intent(in) :: source(:,:)
3487 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
3488 end function
3489#endif
3490
3491#if IK1_ENABLED
3492 PURE module function getMatCopy_RDP_RDP_XXD_TSO_IK1(dpack, source, spack, subset, operation, doff, init) result(destin)
3493#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3494 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_TSO_IK1
3495#endif
3496 use pm_kind, only: IKG => IK1
3497 type(rdpack_type) , intent(in) :: dpack
3498 type(rdpack_type) , intent(in) :: spack
3499 type(dia_type) , intent(in) :: subset
3500 type(transSymm_type) , intent(in) :: operation
3501 integer(IK) , intent(in) , optional :: doff
3502 integer(IKG) , intent(in) , optional :: init
3503 integer(IKG) , intent(in) :: source(:,:)
3504 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
3505 end function
3506#endif
3507
3508 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3509
3510#if LK5_ENABLED
3511 PURE module function getMatCopy_RDP_RDP_XXD_TSO_LK5(dpack, source, spack, subset, operation, doff, init) result(destin)
3512#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3513 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_TSO_LK5
3514#endif
3515 use pm_kind, only: LKG => LK5
3516 type(rdpack_type) , intent(in) :: dpack
3517 type(rdpack_type) , intent(in) :: spack
3518 type(dia_type) , intent(in) :: subset
3519 type(transSymm_type) , intent(in) :: operation
3520 integer(IK) , intent(in) , optional :: doff
3521 logical(LKG) , intent(in) , optional :: init
3522 logical(LKG) , intent(in) :: source(:,:)
3523 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
3524 end function
3525#endif
3526
3527#if LK4_ENABLED
3528 PURE module function getMatCopy_RDP_RDP_XXD_TSO_LK4(dpack, source, spack, subset, operation, doff, init) result(destin)
3529#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3530 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_TSO_LK4
3531#endif
3532 use pm_kind, only: LKG => LK4
3533 type(rdpack_type) , intent(in) :: dpack
3534 type(rdpack_type) , intent(in) :: spack
3535 type(dia_type) , intent(in) :: subset
3536 type(transSymm_type) , intent(in) :: operation
3537 integer(IK) , intent(in) , optional :: doff
3538 logical(LKG) , intent(in) , optional :: init
3539 logical(LKG) , intent(in) :: source(:,:)
3540 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
3541 end function
3542#endif
3543
3544#if LK3_ENABLED
3545 PURE module function getMatCopy_RDP_RDP_XXD_TSO_LK3(dpack, source, spack, subset, operation, doff, init) result(destin)
3546#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3547 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_TSO_LK3
3548#endif
3549 use pm_kind, only: LKG => LK3
3550 type(rdpack_type) , intent(in) :: dpack
3551 type(rdpack_type) , intent(in) :: spack
3552 type(dia_type) , intent(in) :: subset
3553 type(transSymm_type) , intent(in) :: operation
3554 integer(IK) , intent(in) , optional :: doff
3555 logical(LKG) , intent(in) , optional :: init
3556 logical(LKG) , intent(in) :: source(:,:)
3557 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
3558 end function
3559#endif
3560
3561#if LK2_ENABLED
3562 PURE module function getMatCopy_RDP_RDP_XXD_TSO_LK2(dpack, source, spack, subset, operation, doff, init) result(destin)
3563#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3564 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_TSO_LK2
3565#endif
3566 use pm_kind, only: LKG => LK2
3567 type(rdpack_type) , intent(in) :: dpack
3568 type(rdpack_type) , intent(in) :: spack
3569 type(dia_type) , intent(in) :: subset
3570 type(transSymm_type) , intent(in) :: operation
3571 integer(IK) , intent(in) , optional :: doff
3572 logical(LKG) , intent(in) , optional :: init
3573 logical(LKG) , intent(in) :: source(:,:)
3574 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
3575 end function
3576#endif
3577
3578#if LK1_ENABLED
3579 PURE module function getMatCopy_RDP_RDP_XXD_TSO_LK1(dpack, source, spack, subset, operation, doff, init) result(destin)
3580#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3581 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_TSO_LK1
3582#endif
3583 use pm_kind, only: LKG => LK1
3584 type(rdpack_type) , intent(in) :: dpack
3585 type(rdpack_type) , intent(in) :: spack
3586 type(dia_type) , intent(in) :: subset
3587 type(transSymm_type) , intent(in) :: operation
3588 integer(IK) , intent(in) , optional :: doff
3589 logical(LKG) , intent(in) , optional :: init
3590 logical(LKG) , intent(in) :: source(:,:)
3591 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
3592 end function
3593#endif
3594
3595 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3596
3597#if CK5_ENABLED
3598 PURE module function getMatCopy_RDP_RDP_XXD_TSO_CK5(dpack, source, spack, subset, operation, doff, init) result(destin)
3599#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3600 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_TSO_CK5
3601#endif
3602 use pm_kind, only: CKG => CK5
3603 type(rdpack_type) , intent(in) :: dpack
3604 type(rdpack_type) , intent(in) :: spack
3605 type(dia_type) , intent(in) :: subset
3606 type(transSymm_type) , intent(in) :: operation
3607 integer(IK) , intent(in) , optional :: doff
3608 complex(CKG) , intent(in) , optional :: init
3609 complex(CKG) , intent(in) :: source(:,:)
3610 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
3611 end function
3612#endif
3613
3614#if CK4_ENABLED
3615 PURE module function getMatCopy_RDP_RDP_XXD_TSO_CK4(dpack, source, spack, subset, operation, doff, init) result(destin)
3616#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3617 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_TSO_CK4
3618#endif
3619 use pm_kind, only: CKG => CK4
3620 type(rdpack_type) , intent(in) :: dpack
3621 type(rdpack_type) , intent(in) :: spack
3622 type(dia_type) , intent(in) :: subset
3623 type(transSymm_type) , intent(in) :: operation
3624 integer(IK) , intent(in) , optional :: doff
3625 complex(CKG) , intent(in) , optional :: init
3626 complex(CKG) , intent(in) :: source(:,:)
3627 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
3628 end function
3629#endif
3630
3631#if CK3_ENABLED
3632 PURE module function getMatCopy_RDP_RDP_XXD_TSO_CK3(dpack, source, spack, subset, operation, doff, init) result(destin)
3633#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3634 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_TSO_CK3
3635#endif
3636 use pm_kind, only: CKG => CK3
3637 type(rdpack_type) , intent(in) :: dpack
3638 type(rdpack_type) , intent(in) :: spack
3639 type(dia_type) , intent(in) :: subset
3640 type(transSymm_type) , intent(in) :: operation
3641 integer(IK) , intent(in) , optional :: doff
3642 complex(CKG) , intent(in) , optional :: init
3643 complex(CKG) , intent(in) :: source(:,:)
3644 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
3645 end function
3646#endif
3647
3648#if CK2_ENABLED
3649 PURE module function getMatCopy_RDP_RDP_XXD_TSO_CK2(dpack, source, spack, subset, operation, doff, init) result(destin)
3650#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3651 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_TSO_CK2
3652#endif
3653 use pm_kind, only: CKG => CK2
3654 type(rdpack_type) , intent(in) :: dpack
3655 type(rdpack_type) , intent(in) :: spack
3656 type(dia_type) , intent(in) :: subset
3657 type(transSymm_type) , intent(in) :: operation
3658 integer(IK) , intent(in) , optional :: doff
3659 complex(CKG) , intent(in) , optional :: init
3660 complex(CKG) , intent(in) :: source(:,:)
3661 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
3662 end function
3663#endif
3664
3665#if CK1_ENABLED
3666 PURE module function getMatCopy_RDP_RDP_XXD_TSO_CK1(dpack, source, spack, subset, operation, doff, init) result(destin)
3667#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3668 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_TSO_CK1
3669#endif
3670 use pm_kind, only: CKG => CK1
3671 type(rdpack_type) , intent(in) :: dpack
3672 type(rdpack_type) , intent(in) :: spack
3673 type(dia_type) , intent(in) :: subset
3674 type(transSymm_type) , intent(in) :: operation
3675 integer(IK) , intent(in) , optional :: doff
3676 complex(CKG) , intent(in) , optional :: init
3677 complex(CKG) , intent(in) :: source(:,:)
3678 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
3679 end function
3680#endif
3681
3682 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3683
3684#if RK5_ENABLED
3685 PURE module function getMatCopy_RDP_RDP_XXD_TSO_RK5(dpack, source, spack, subset, operation, doff, init) result(destin)
3686#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3687 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_TSO_RK5
3688#endif
3689 use pm_kind, only: RKG => RK5
3690 type(rdpack_type) , intent(in) :: dpack
3691 type(rdpack_type) , intent(in) :: spack
3692 type(dia_type) , intent(in) :: subset
3693 type(transSymm_type) , intent(in) :: operation
3694 integer(IK) , intent(in) , optional :: doff
3695 real(RKG) , intent(in) , optional :: init
3696 real(RKG) , intent(in) :: source(:,:)
3697 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
3698 end function
3699#endif
3700
3701#if RK4_ENABLED
3702 PURE module function getMatCopy_RDP_RDP_XXD_TSO_RK4(dpack, source, spack, subset, operation, doff, init) result(destin)
3703#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3704 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_TSO_RK4
3705#endif
3706 use pm_kind, only: RKG => RK4
3707 type(rdpack_type) , intent(in) :: dpack
3708 type(rdpack_type) , intent(in) :: spack
3709 type(dia_type) , intent(in) :: subset
3710 type(transSymm_type) , intent(in) :: operation
3711 integer(IK) , intent(in) , optional :: doff
3712 real(RKG) , intent(in) , optional :: init
3713 real(RKG) , intent(in) :: source(:,:)
3714 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
3715 end function
3716#endif
3717
3718#if RK3_ENABLED
3719 PURE module function getMatCopy_RDP_RDP_XXD_TSO_RK3(dpack, source, spack, subset, operation, doff, init) result(destin)
3720#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3721 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_TSO_RK3
3722#endif
3723 use pm_kind, only: RKG => RK3
3724 type(rdpack_type) , intent(in) :: dpack
3725 type(rdpack_type) , intent(in) :: spack
3726 type(dia_type) , intent(in) :: subset
3727 type(transSymm_type) , intent(in) :: operation
3728 integer(IK) , intent(in) , optional :: doff
3729 real(RKG) , intent(in) , optional :: init
3730 real(RKG) , intent(in) :: source(:,:)
3731 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
3732 end function
3733#endif
3734
3735#if RK2_ENABLED
3736 PURE module function getMatCopy_RDP_RDP_XXD_TSO_RK2(dpack, source, spack, subset, operation, doff, init) result(destin)
3737#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3738 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_TSO_RK2
3739#endif
3740 use pm_kind, only: RKG => RK2
3741 type(rdpack_type) , intent(in) :: dpack
3742 type(rdpack_type) , intent(in) :: spack
3743 type(dia_type) , intent(in) :: subset
3744 type(transSymm_type) , intent(in) :: operation
3745 integer(IK) , intent(in) , optional :: doff
3746 real(RKG) , intent(in) , optional :: init
3747 real(RKG) , intent(in) :: source(:,:)
3748 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
3749 end function
3750#endif
3751
3752#if RK1_ENABLED
3753 PURE module function getMatCopy_RDP_RDP_XXD_TSO_RK1(dpack, source, spack, subset, operation, doff, init) result(destin)
3754#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3755 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_TSO_RK1
3756#endif
3757 use pm_kind, only: RKG => RK1
3758 type(rdpack_type) , intent(in) :: dpack
3759 type(rdpack_type) , intent(in) :: spack
3760 type(dia_type) , intent(in) :: subset
3761 type(transSymm_type) , intent(in) :: operation
3762 integer(IK) , intent(in) , optional :: doff
3763 real(RKG) , intent(in) , optional :: init
3764 real(RKG) , intent(in) :: source(:,:)
3765 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
3766 end function
3767#endif
3768
3769 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3770
3771 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3772 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3773 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3774
3775 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3776
3777#if SK5_ENABLED
3778 PURE module function getMatCopy_RDP_RDP_XXD_THO_SK5(dpack, source, spack, subset, operation, doff, init) result(destin)
3779#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3780 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_THO_SK5
3781#endif
3782 use pm_kind, only: SKG => SK5
3783 type(rdpack_type) , intent(in) :: dpack
3784 type(rdpack_type) , intent(in) :: spack
3785 type(dia_type) , intent(in) :: subset
3786 type(transHerm_type) , intent(in) :: operation
3787 integer(IK) , intent(in) , optional :: doff
3788 character(*,SKG) , intent(in) , optional :: init
3789 character(*,SKG) , intent(in) :: source(:,:)
3790 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
3791 end function
3792#endif
3793
3794#if SK4_ENABLED
3795 PURE module function getMatCopy_RDP_RDP_XXD_THO_SK4(dpack, source, spack, subset, operation, doff, init) result(destin)
3796#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3797 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_THO_SK4
3798#endif
3799 use pm_kind, only: SKG => SK4
3800 type(rdpack_type) , intent(in) :: dpack
3801 type(rdpack_type) , intent(in) :: spack
3802 type(dia_type) , intent(in) :: subset
3803 type(rdpack_type) , intent(in) :: dpack
3804 type(rdpack_type) , intent(in) :: spack
3805 type(transHerm_type) , intent(in) :: operation
3806 integer(IK) , intent(in) , optional :: doff
3807 character(*,SKG) , intent(in) , optional :: init
3808 character(*,SKG) , intent(in) :: source(:,:)
3809 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
3810 end function
3811#endif
3812
3813#if SK3_ENABLED
3814 PURE module function getMatCopy_RDP_RDP_XXD_THO_SK3(dpack, source, spack, subset, operation, doff, init) result(destin)
3815#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3816 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_THO_SK3
3817#endif
3818 use pm_kind, only: SKG => SK3
3819 type(rdpack_type) , intent(in) :: dpack
3820 type(rdpack_type) , intent(in) :: spack
3821 type(dia_type) , intent(in) :: subset
3822 type(transHerm_type) , intent(in) :: operation
3823 integer(IK) , intent(in) , optional :: doff
3824 character(*,SKG) , intent(in) , optional :: init
3825 character(*,SKG) , intent(in) :: source(:,:)
3826 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
3827 end function
3828#endif
3829
3830#if SK2_ENABLED
3831 PURE module function getMatCopy_RDP_RDP_XXD_THO_SK2(dpack, source, spack, subset, operation, doff, init) result(destin)
3832#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3833 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_THO_SK2
3834#endif
3835 use pm_kind, only: SKG => SK2
3836 type(rdpack_type) , intent(in) :: dpack
3837 type(rdpack_type) , intent(in) :: spack
3838 type(dia_type) , intent(in) :: subset
3839 type(transHerm_type) , intent(in) :: operation
3840 integer(IK) , intent(in) , optional :: doff
3841 character(*,SKG) , intent(in) , optional :: init
3842 character(*,SKG) , intent(in) :: source(:,:)
3843 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
3844 end function
3845#endif
3846
3847#if SK1_ENABLED
3848 PURE module function getMatCopy_RDP_RDP_XXD_THO_SK1(dpack, source, spack, subset, operation, doff, init) result(destin)
3849#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3850 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_THO_SK1
3851#endif
3852 use pm_kind, only: SKG => SK1
3853 type(rdpack_type) , intent(in) :: dpack
3854 type(rdpack_type) , intent(in) :: spack
3855 type(dia_type) , intent(in) :: subset
3856 type(transHerm_type) , intent(in) :: operation
3857 integer(IK) , intent(in) , optional :: doff
3858 character(*,SKG) , intent(in) , optional :: init
3859 character(*,SKG) , intent(in) :: source(:,:)
3860 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
3861 end function
3862#endif
3863
3864 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3865
3866#if IK5_ENABLED
3867 PURE module function getMatCopy_RDP_RDP_XXD_THO_IK5(dpack, source, spack, subset, operation, doff, init) result(destin)
3868#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3869 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_THO_IK5
3870#endif
3871 use pm_kind, only: IKG => IK5
3872 type(rdpack_type) , intent(in) :: dpack
3873 type(rdpack_type) , intent(in) :: spack
3874 type(dia_type) , intent(in) :: subset
3875 type(transHerm_type) , intent(in) :: operation
3876 integer(IK) , intent(in) , optional :: doff
3877 integer(IKG) , intent(in) , optional :: init
3878 integer(IKG) , intent(in) :: source(:,:)
3879 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
3880 end function
3881#endif
3882
3883#if IK4_ENABLED
3884 PURE module function getMatCopy_RDP_RDP_XXD_THO_IK4(dpack, source, spack, subset, operation, doff, init) result(destin)
3885#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3886 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_THO_IK4
3887#endif
3888 use pm_kind, only: IKG => IK4
3889 type(rdpack_type) , intent(in) :: dpack
3890 type(rdpack_type) , intent(in) :: spack
3891 type(dia_type) , intent(in) :: subset
3892 type(transHerm_type) , intent(in) :: operation
3893 integer(IK) , intent(in) , optional :: doff
3894 integer(IKG) , intent(in) , optional :: init
3895 integer(IKG) , intent(in) :: source(:,:)
3896 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
3897 end function
3898#endif
3899
3900#if IK3_ENABLED
3901 PURE module function getMatCopy_RDP_RDP_XXD_THO_IK3(dpack, source, spack, subset, operation, doff, init) result(destin)
3902#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3903 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_THO_IK3
3904#endif
3905 use pm_kind, only: IKG => IK3
3906 type(rdpack_type) , intent(in) :: dpack
3907 type(rdpack_type) , intent(in) :: spack
3908 type(dia_type) , intent(in) :: subset
3909 type(transHerm_type) , intent(in) :: operation
3910 integer(IK) , intent(in) , optional :: doff
3911 integer(IKG) , intent(in) , optional :: init
3912 integer(IKG) , intent(in) :: source(:,:)
3913 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
3914 end function
3915#endif
3916
3917#if IK2_ENABLED
3918 PURE module function getMatCopy_RDP_RDP_XXD_THO_IK2(dpack, source, spack, subset, operation, doff, init) result(destin)
3919#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3920 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_THO_IK2
3921#endif
3922 use pm_kind, only: IKG => IK2
3923 type(rdpack_type) , intent(in) :: dpack
3924 type(rdpack_type) , intent(in) :: spack
3925 type(dia_type) , intent(in) :: subset
3926 type(transHerm_type) , intent(in) :: operation
3927 integer(IK) , intent(in) , optional :: doff
3928 integer(IKG) , intent(in) , optional :: init
3929 integer(IKG) , intent(in) :: source(:,:)
3930 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
3931 end function
3932#endif
3933
3934#if IK1_ENABLED
3935 PURE module function getMatCopy_RDP_RDP_XXD_THO_IK1(dpack, source, spack, subset, operation, doff, init) result(destin)
3936#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3937 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_THO_IK1
3938#endif
3939 use pm_kind, only: IKG => IK1
3940 type(rdpack_type) , intent(in) :: dpack
3941 type(rdpack_type) , intent(in) :: spack
3942 type(dia_type) , intent(in) :: subset
3943 type(transHerm_type) , intent(in) :: operation
3944 integer(IK) , intent(in) , optional :: doff
3945 integer(IKG) , intent(in) , optional :: init
3946 integer(IKG) , intent(in) :: source(:,:)
3947 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
3948 end function
3949#endif
3950
3951 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3952
3953#if LK5_ENABLED
3954 PURE module function getMatCopy_RDP_RDP_XXD_THO_LK5(dpack, source, spack, subset, operation, doff, init) result(destin)
3955#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3956 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_THO_LK5
3957#endif
3958 use pm_kind, only: LKG => LK5
3959 type(rdpack_type) , intent(in) :: dpack
3960 type(rdpack_type) , intent(in) :: spack
3961 type(dia_type) , intent(in) :: subset
3962 type(transHerm_type) , intent(in) :: operation
3963 integer(IK) , intent(in) , optional :: doff
3964 logical(LKG) , intent(in) , optional :: init
3965 logical(LKG) , intent(in) :: source(:,:)
3966 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
3967 end function
3968#endif
3969
3970#if LK4_ENABLED
3971 PURE module function getMatCopy_RDP_RDP_XXD_THO_LK4(dpack, source, spack, subset, operation, doff, init) result(destin)
3972#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3973 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_THO_LK4
3974#endif
3975 use pm_kind, only: LKG => LK4
3976 type(rdpack_type) , intent(in) :: dpack
3977 type(rdpack_type) , intent(in) :: spack
3978 type(dia_type) , intent(in) :: subset
3979 type(transHerm_type) , intent(in) :: operation
3980 integer(IK) , intent(in) , optional :: doff
3981 logical(LKG) , intent(in) , optional :: init
3982 logical(LKG) , intent(in) :: source(:,:)
3983 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
3984 end function
3985#endif
3986
3987#if LK3_ENABLED
3988 PURE module function getMatCopy_RDP_RDP_XXD_THO_LK3(dpack, source, spack, subset, operation, doff, init) result(destin)
3989#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3990 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_THO_LK3
3991#endif
3992 use pm_kind, only: LKG => LK3
3993 type(rdpack_type) , intent(in) :: dpack
3994 type(rdpack_type) , intent(in) :: spack
3995 type(dia_type) , intent(in) :: subset
3996 type(transHerm_type) , intent(in) :: operation
3997 integer(IK) , intent(in) , optional :: doff
3998 logical(LKG) , intent(in) , optional :: init
3999 logical(LKG) , intent(in) :: source(:,:)
4000 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
4001 end function
4002#endif
4003
4004#if LK2_ENABLED
4005 PURE module function getMatCopy_RDP_RDP_XXD_THO_LK2(dpack, source, spack, subset, operation, doff, init) result(destin)
4006#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4007 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_THO_LK2
4008#endif
4009 use pm_kind, only: LKG => LK2
4010 type(rdpack_type) , intent(in) :: dpack
4011 type(rdpack_type) , intent(in) :: spack
4012 type(dia_type) , intent(in) :: subset
4013 type(transHerm_type) , intent(in) :: operation
4014 integer(IK) , intent(in) , optional :: doff
4015 logical(LKG) , intent(in) , optional :: init
4016 logical(LKG) , intent(in) :: source(:,:)
4017 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
4018 end function
4019#endif
4020
4021#if LK1_ENABLED
4022 PURE module function getMatCopy_RDP_RDP_XXD_THO_LK1(dpack, source, spack, subset, operation, doff, init) result(destin)
4023#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4024 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_THO_LK1
4025#endif
4026 use pm_kind, only: LKG => LK1
4027 type(rdpack_type) , intent(in) :: dpack
4028 type(rdpack_type) , intent(in) :: spack
4029 type(dia_type) , intent(in) :: subset
4030 type(transHerm_type) , intent(in) :: operation
4031 integer(IK) , intent(in) , optional :: doff
4032 logical(LKG) , intent(in) , optional :: init
4033 logical(LKG) , intent(in) :: source(:,:)
4034 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
4035 end function
4036#endif
4037
4038 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4039
4040#if CK5_ENABLED
4041 PURE module function getMatCopy_RDP_RDP_XXD_THO_CK5(dpack, source, spack, subset, operation, doff, init) result(destin)
4042#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4043 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_THO_CK5
4044#endif
4045 use pm_kind, only: CKG => CK5
4046 type(rdpack_type) , intent(in) :: dpack
4047 type(rdpack_type) , intent(in) :: spack
4048 type(dia_type) , intent(in) :: subset
4049 type(transHerm_type) , intent(in) :: operation
4050 integer(IK) , intent(in) , optional :: doff
4051 complex(CKG) , intent(in) , optional :: init
4052 complex(CKG) , intent(in) :: source(:,:)
4053 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
4054 end function
4055#endif
4056
4057#if CK4_ENABLED
4058 PURE module function getMatCopy_RDP_RDP_XXD_THO_CK4(dpack, source, spack, subset, operation, doff, init) result(destin)
4059#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4060 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_THO_CK4
4061#endif
4062 use pm_kind, only: CKG => CK4
4063 type(rdpack_type) , intent(in) :: dpack
4064 type(rdpack_type) , intent(in) :: spack
4065 type(dia_type) , intent(in) :: subset
4066 type(transHerm_type) , intent(in) :: operation
4067 integer(IK) , intent(in) , optional :: doff
4068 complex(CKG) , intent(in) , optional :: init
4069 complex(CKG) , intent(in) :: source(:,:)
4070 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
4071 end function
4072#endif
4073
4074#if CK3_ENABLED
4075 PURE module function getMatCopy_RDP_RDP_XXD_THO_CK3(dpack, source, spack, subset, operation, doff, init) result(destin)
4076#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4077 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_THO_CK3
4078#endif
4079 use pm_kind, only: CKG => CK3
4080 type(rdpack_type) , intent(in) :: dpack
4081 type(rdpack_type) , intent(in) :: spack
4082 type(dia_type) , intent(in) :: subset
4083 type(transHerm_type) , intent(in) :: operation
4084 integer(IK) , intent(in) , optional :: doff
4085 complex(CKG) , intent(in) , optional :: init
4086 complex(CKG) , intent(in) :: source(:,:)
4087 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
4088 end function
4089#endif
4090
4091#if CK2_ENABLED
4092 PURE module function getMatCopy_RDP_RDP_XXD_THO_CK2(dpack, source, spack, subset, operation, doff, init) result(destin)
4093#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4094 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_THO_CK2
4095#endif
4096 use pm_kind, only: CKG => CK2
4097 type(rdpack_type) , intent(in) :: dpack
4098 type(rdpack_type) , intent(in) :: spack
4099 type(dia_type) , intent(in) :: subset
4100 type(transHerm_type) , intent(in) :: operation
4101 integer(IK) , intent(in) , optional :: doff
4102 complex(CKG) , intent(in) , optional :: init
4103 complex(CKG) , intent(in) :: source(:,:)
4104 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
4105 end function
4106#endif
4107
4108#if CK1_ENABLED
4109 PURE module function getMatCopy_RDP_RDP_XXD_THO_CK1(dpack, source, spack, subset, operation, doff, init) result(destin)
4110#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4111 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_THO_CK1
4112#endif
4113 use pm_kind, only: CKG => CK1
4114 type(rdpack_type) , intent(in) :: dpack
4115 type(rdpack_type) , intent(in) :: spack
4116 type(dia_type) , intent(in) :: subset
4117 type(transHerm_type) , intent(in) :: operation
4118 integer(IK) , intent(in) , optional :: doff
4119 complex(CKG) , intent(in) , optional :: init
4120 complex(CKG) , intent(in) :: source(:,:)
4121 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
4122 end function
4123#endif
4124
4125 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4126
4127#if RK5_ENABLED
4128 PURE module function getMatCopy_RDP_RDP_XXD_THO_RK5(dpack, source, spack, subset, operation, doff, init) result(destin)
4129#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4130 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_THO_RK5
4131#endif
4132 use pm_kind, only: RKG => RK5
4133 type(rdpack_type) , intent(in) :: dpack
4134 type(rdpack_type) , intent(in) :: spack
4135 type(dia_type) , intent(in) :: subset
4136 type(transHerm_type) , intent(in) :: operation
4137 integer(IK) , intent(in) , optional :: doff
4138 real(RKG) , intent(in) , optional :: init
4139 real(RKG) , intent(in) :: source(:,:)
4140 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
4141 end function
4142#endif
4143
4144#if RK4_ENABLED
4145 PURE module function getMatCopy_RDP_RDP_XXD_THO_RK4(dpack, source, spack, subset, operation, doff, init) result(destin)
4146#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4147 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_THO_RK4
4148#endif
4149 use pm_kind, only: RKG => RK4
4150 type(rdpack_type) , intent(in) :: dpack
4151 type(rdpack_type) , intent(in) :: spack
4152 type(dia_type) , intent(in) :: subset
4153 type(transHerm_type) , intent(in) :: operation
4154 integer(IK) , intent(in) , optional :: doff
4155 real(RKG) , intent(in) , optional :: init
4156 real(RKG) , intent(in) :: source(:,:)
4157 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
4158 end function
4159#endif
4160
4161#if RK3_ENABLED
4162 PURE module function getMatCopy_RDP_RDP_XXD_THO_RK3(dpack, source, spack, subset, operation, doff, init) result(destin)
4163#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4164 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_THO_RK3
4165#endif
4166 use pm_kind, only: RKG => RK3
4167 type(rdpack_type) , intent(in) :: dpack
4168 type(rdpack_type) , intent(in) :: spack
4169 type(dia_type) , intent(in) :: subset
4170 type(transHerm_type) , intent(in) :: operation
4171 integer(IK) , intent(in) , optional :: doff
4172 real(RKG) , intent(in) , optional :: init
4173 real(RKG) , intent(in) :: source(:,:)
4174 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
4175 end function
4176#endif
4177
4178#if RK2_ENABLED
4179 PURE module function getMatCopy_RDP_RDP_XXD_THO_RK2(dpack, source, spack, subset, operation, doff, init) result(destin)
4180#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4181 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_THO_RK2
4182#endif
4183 use pm_kind, only: RKG => RK2
4184 type(rdpack_type) , intent(in) :: dpack
4185 type(rdpack_type) , intent(in) :: spack
4186 type(dia_type) , intent(in) :: subset
4187 type(transHerm_type) , intent(in) :: operation
4188 integer(IK) , intent(in) , optional :: doff
4189 real(RKG) , intent(in) , optional :: init
4190 real(RKG) , intent(in) :: source(:,:)
4191 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
4192 end function
4193#endif
4194
4195#if RK1_ENABLED
4196 PURE module function getMatCopy_RDP_RDP_XXD_THO_RK1(dpack, source, spack, subset, operation, doff, init) result(destin)
4197#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4198 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XXD_THO_RK1
4199#endif
4200 use pm_kind, only: RKG => RK1
4201 type(rdpack_type) , intent(in) :: dpack
4202 type(rdpack_type) , intent(in) :: spack
4203 type(dia_type) , intent(in) :: subset
4204 type(transHerm_type) , intent(in) :: operation
4205 integer(IK) , intent(in) , optional :: doff
4206 real(RKG) , intent(in) , optional :: init
4207 real(RKG) , intent(in) :: source(:,:)
4208 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
4209 end function
4210#endif
4211
4212 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4213
4214 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4215 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4216 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4217
4218 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4219 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4220 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4221
4222 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4223
4224#if SK5_ENABLED
4225 PURE module function getMatCopy_RDP_RDP_UXD_AIO_SK5(dpack, source, spack, subset, doff, init) result(destin)
4226#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4227 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_AIO_SK5
4228#endif
4229 use pm_kind, only: SKG => SK5
4230 type(rdpack_type) , intent(in) :: dpack
4231 type(rdpack_type) , intent(in) :: spack
4232 type(uppDia_type) , intent(in) :: subset
4233 integer(IK) , intent(in) , optional :: doff
4234 character(*,SKG) , intent(in) , optional :: init
4235 character(*,SKG) , intent(in) :: source(:,:)
4236 character(len(source,IK),SKG) :: destin(size(source, 1, IK), size(source, 2, IK))
4237 end function
4238#endif
4239
4240#if SK4_ENABLED
4241 PURE module function getMatCopy_RDP_RDP_UXD_AIO_SK4(dpack, source, spack, subset, doff, init) result(destin)
4242#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4243 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_AIO_SK4
4244#endif
4245 use pm_kind, only: SKG => SK4
4246 type(rdpack_type) , intent(in) :: dpack
4247 type(rdpack_type) , intent(in) :: spack
4248 type(uppDia_type) , intent(in) :: subset
4249 integer(IK) , intent(in) , optional :: doff
4250 character(*,SKG) , intent(in) , optional :: init
4251 character(*,SKG) , intent(in) :: source(:,:)
4252 character(len(source,IK),SKG) :: destin(size(source, 1, IK), size(source, 2, IK))
4253 end function
4254#endif
4255
4256#if SK3_ENABLED
4257 PURE module function getMatCopy_RDP_RDP_UXD_AIO_SK3(dpack, source, spack, subset, doff, init) result(destin)
4258#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4259 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_AIO_SK3
4260#endif
4261 use pm_kind, only: SKG => SK3
4262 type(rdpack_type) , intent(in) :: dpack
4263 type(rdpack_type) , intent(in) :: spack
4264 type(uppDia_type) , intent(in) :: subset
4265 integer(IK) , intent(in) , optional :: doff
4266 character(*,SKG) , intent(in) , optional :: init
4267 character(*,SKG) , intent(in) :: source(:,:)
4268 character(len(source,IK),SKG) :: destin(size(source, 1, IK), size(source, 2, IK))
4269 end function
4270#endif
4271
4272#if SK2_ENABLED
4273 PURE module function getMatCopy_RDP_RDP_UXD_AIO_SK2(dpack, source, spack, subset, doff, init) result(destin)
4274#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4275 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_AIO_SK2
4276#endif
4277 use pm_kind, only: SKG => SK2
4278 type(rdpack_type) , intent(in) :: dpack
4279 type(rdpack_type) , intent(in) :: spack
4280 type(uppDia_type) , intent(in) :: subset
4281 integer(IK) , intent(in) , optional :: doff
4282 character(*,SKG) , intent(in) , optional :: init
4283 character(*,SKG) , intent(in) :: source(:,:)
4284 character(len(source,IK),SKG) :: destin(size(source, 1, IK), size(source, 2, IK))
4285 end function
4286#endif
4287
4288#if SK1_ENABLED
4289 PURE module function getMatCopy_RDP_RDP_UXD_AIO_SK1(dpack, source, spack, subset, doff, init) result(destin)
4290#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4291 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_AIO_SK1
4292#endif
4293 use pm_kind, only: SKG => SK1
4294 type(rdpack_type) , intent(in) :: dpack
4295 type(rdpack_type) , intent(in) :: spack
4296 type(uppDia_type) , intent(in) :: subset
4297 integer(IK) , intent(in) , optional :: doff
4298 character(*,SKG) , intent(in) , optional :: init
4299 character(*,SKG) , intent(in) :: source(:,:)
4300 character(len(source,IK),SKG) :: destin(size(source, 1, IK), size(source, 2, IK))
4301 end function
4302#endif
4303
4304 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4305
4306#if IK5_ENABLED
4307 PURE module function getMatCopy_RDP_RDP_UXD_AIO_IK5(dpack, source, spack, subset, doff, init) result(destin)
4308#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4309 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_AIO_IK5
4310#endif
4311 use pm_kind, only: IKG => IK5
4312 type(rdpack_type) , intent(in) :: dpack
4313 type(rdpack_type) , intent(in) :: spack
4314 type(uppDia_type) , intent(in) :: subset
4315 integer(IK) , intent(in) , optional :: doff
4316 integer(IKG) , intent(in) , optional :: init
4317 integer(IKG) , intent(in) :: source(:,:)
4318 integer(IKG) :: destin(size(source, 1, IK), size(source, 2, IK))
4319 end function
4320#endif
4321
4322#if IK4_ENABLED
4323 PURE module function getMatCopy_RDP_RDP_UXD_AIO_IK4(dpack, source, spack, subset, doff, init) result(destin)
4324#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4325 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_AIO_IK4
4326#endif
4327 use pm_kind, only: IKG => IK4
4328 type(rdpack_type) , intent(in) :: dpack
4329 type(rdpack_type) , intent(in) :: spack
4330 type(uppDia_type) , intent(in) :: subset
4331 integer(IK) , intent(in) , optional :: doff
4332 integer(IKG) , intent(in) , optional :: init
4333 integer(IKG) , intent(in) :: source(:,:)
4334 integer(IKG) :: destin(size(source, 1, IK), size(source, 2, IK))
4335 end function
4336#endif
4337
4338#if IK3_ENABLED
4339 PURE module function getMatCopy_RDP_RDP_UXD_AIO_IK3(dpack, source, spack, subset, doff, init) result(destin)
4340#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4341 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_AIO_IK3
4342#endif
4343 use pm_kind, only: IKG => IK3
4344 type(rdpack_type) , intent(in) :: dpack
4345 type(rdpack_type) , intent(in) :: spack
4346 type(uppDia_type) , intent(in) :: subset
4347 integer(IK) , intent(in) , optional :: doff
4348 integer(IKG) , intent(in) , optional :: init
4349 integer(IKG) , intent(in) :: source(:,:)
4350 integer(IKG) :: destin(size(source, 1, IK), size(source, 2, IK))
4351 end function
4352#endif
4353
4354#if IK2_ENABLED
4355 PURE module function getMatCopy_RDP_RDP_UXD_AIO_IK2(dpack, source, spack, subset, doff, init) result(destin)
4356#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4357 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_AIO_IK2
4358#endif
4359 use pm_kind, only: IKG => IK2
4360 type(rdpack_type) , intent(in) :: dpack
4361 type(rdpack_type) , intent(in) :: spack
4362 type(uppDia_type) , intent(in) :: subset
4363 integer(IK) , intent(in) , optional :: doff
4364 integer(IKG) , intent(in) , optional :: init
4365 integer(IKG) , intent(in) :: source(:,:)
4366 integer(IKG) :: destin(size(source, 1, IK), size(source, 2, IK))
4367 end function
4368#endif
4369
4370#if IK1_ENABLED
4371 PURE module function getMatCopy_RDP_RDP_UXD_AIO_IK1(dpack, source, spack, subset, doff, init) result(destin)
4372#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4373 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_AIO_IK1
4374#endif
4375 use pm_kind, only: IKG => IK1
4376 type(rdpack_type) , intent(in) :: dpack
4377 type(rdpack_type) , intent(in) :: spack
4378 type(uppDia_type) , intent(in) :: subset
4379 integer(IK) , intent(in) , optional :: doff
4380 integer(IKG) , intent(in) , optional :: init
4381 integer(IKG) , intent(in) :: source(:,:)
4382 integer(IKG) :: destin(size(source, 1, IK), size(source, 2, IK))
4383 end function
4384#endif
4385
4386 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4387
4388#if LK5_ENABLED
4389 PURE module function getMatCopy_RDP_RDP_UXD_AIO_LK5(dpack, source, spack, subset, doff, init) result(destin)
4390#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4391 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_AIO_LK5
4392#endif
4393 use pm_kind, only: LKG => LK5
4394 type(rdpack_type) , intent(in) :: dpack
4395 type(rdpack_type) , intent(in) :: spack
4396 type(uppDia_type) , intent(in) :: subset
4397 integer(IK) , intent(in) , optional :: doff
4398 logical(LKG) , intent(in) , optional :: init
4399 logical(LKG) , intent(in) :: source(:,:)
4400 logical(LKG) :: destin(size(source, 1, IK), size(source, 2, IK))
4401 end function
4402#endif
4403
4404#if LK4_ENABLED
4405 PURE module function getMatCopy_RDP_RDP_UXD_AIO_LK4(dpack, source, spack, subset, doff, init) result(destin)
4406#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4407 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_AIO_LK4
4408#endif
4409 use pm_kind, only: LKG => LK4
4410 type(rdpack_type) , intent(in) :: dpack
4411 type(rdpack_type) , intent(in) :: spack
4412 type(uppDia_type) , intent(in) :: subset
4413 integer(IK) , intent(in) , optional :: doff
4414 logical(LKG) , intent(in) , optional :: init
4415 logical(LKG) , intent(in) :: source(:,:)
4416 logical(LKG) :: destin(size(source, 1, IK), size(source, 2, IK))
4417 end function
4418#endif
4419
4420#if LK3_ENABLED
4421 PURE module function getMatCopy_RDP_RDP_UXD_AIO_LK3(dpack, source, spack, subset, doff, init) result(destin)
4422#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4423 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_AIO_LK3
4424#endif
4425 use pm_kind, only: LKG => LK3
4426 type(rdpack_type) , intent(in) :: dpack
4427 type(rdpack_type) , intent(in) :: spack
4428 type(uppDia_type) , intent(in) :: subset
4429 integer(IK) , intent(in) , optional :: doff
4430 logical(LKG) , intent(in) , optional :: init
4431 logical(LKG) , intent(in) :: source(:,:)
4432 logical(LKG) :: destin(size(source, 1, IK), size(source, 2, IK))
4433 end function
4434#endif
4435
4436#if LK2_ENABLED
4437 PURE module function getMatCopy_RDP_RDP_UXD_AIO_LK2(dpack, source, spack, subset, doff, init) result(destin)
4438#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4439 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_AIO_LK2
4440#endif
4441 use pm_kind, only: LKG => LK2
4442 type(rdpack_type) , intent(in) :: dpack
4443 type(rdpack_type) , intent(in) :: spack
4444 type(uppDia_type) , intent(in) :: subset
4445 integer(IK) , intent(in) , optional :: doff
4446 logical(LKG) , intent(in) , optional :: init
4447 logical(LKG) , intent(in) :: source(:,:)
4448 logical(LKG) :: destin(size(source, 1, IK), size(source, 2, IK))
4449 end function
4450#endif
4451
4452#if LK1_ENABLED
4453 PURE module function getMatCopy_RDP_RDP_UXD_AIO_LK1(dpack, source, spack, subset, doff, init) result(destin)
4454#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4455 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_AIO_LK1
4456#endif
4457 use pm_kind, only: LKG => LK1
4458 type(rdpack_type) , intent(in) :: dpack
4459 type(rdpack_type) , intent(in) :: spack
4460 type(uppDia_type) , intent(in) :: subset
4461 integer(IK) , intent(in) , optional :: doff
4462 logical(LKG) , intent(in) , optional :: init
4463 logical(LKG) , intent(in) :: source(:,:)
4464 logical(LKG) :: destin(size(source, 1, IK), size(source, 2, IK))
4465 end function
4466#endif
4467
4468 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4469
4470#if CK5_ENABLED
4471 PURE module function getMatCopy_RDP_RDP_UXD_AIO_CK5(dpack, source, spack, subset, doff, init) result(destin)
4472#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4473 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_AIO_CK5
4474#endif
4475 use pm_kind, only: CKG => CK5
4476 type(rdpack_type) , intent(in) :: dpack
4477 type(rdpack_type) , intent(in) :: spack
4478 type(uppDia_type) , intent(in) :: subset
4479 integer(IK) , intent(in) , optional :: doff
4480 complex(CKG) , intent(in) , optional :: init
4481 complex(CKG) , intent(in) :: source(:,:)
4482 complex(CKG) :: destin(size(source, 1, IK), size(source, 2, IK))
4483 end function
4484#endif
4485
4486#if CK4_ENABLED
4487 PURE module function getMatCopy_RDP_RDP_UXD_AIO_CK4(dpack, source, spack, subset, doff, init) result(destin)
4488#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4489 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_AIO_CK4
4490#endif
4491 use pm_kind, only: CKG => CK4
4492 type(rdpack_type) , intent(in) :: dpack
4493 type(rdpack_type) , intent(in) :: spack
4494 type(uppDia_type) , intent(in) :: subset
4495 integer(IK) , intent(in) , optional :: doff
4496 complex(CKG) , intent(in) , optional :: init
4497 complex(CKG) , intent(in) :: source(:,:)
4498 complex(CKG) :: destin(size(source, 1, IK), size(source, 2, IK))
4499 end function
4500#endif
4501
4502#if CK3_ENABLED
4503 PURE module function getMatCopy_RDP_RDP_UXD_AIO_CK3(dpack, source, spack, subset, doff, init) result(destin)
4504#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4505 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_AIO_CK3
4506#endif
4507 use pm_kind, only: CKG => CK3
4508 type(rdpack_type) , intent(in) :: dpack
4509 type(rdpack_type) , intent(in) :: spack
4510 type(uppDia_type) , intent(in) :: subset
4511 integer(IK) , intent(in) , optional :: doff
4512 complex(CKG) , intent(in) , optional :: init
4513 complex(CKG) , intent(in) :: source(:,:)
4514 complex(CKG) :: destin(size(source, 1, IK), size(source, 2, IK))
4515 end function
4516#endif
4517
4518#if CK2_ENABLED
4519 PURE module function getMatCopy_RDP_RDP_UXD_AIO_CK2(dpack, source, spack, subset, doff, init) result(destin)
4520#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4521 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_AIO_CK2
4522#endif
4523 use pm_kind, only: CKG => CK2
4524 type(rdpack_type) , intent(in) :: dpack
4525 type(rdpack_type) , intent(in) :: spack
4526 type(uppDia_type) , intent(in) :: subset
4527 integer(IK) , intent(in) , optional :: doff
4528 complex(CKG) , intent(in) , optional :: init
4529 complex(CKG) , intent(in) :: source(:,:)
4530 complex(CKG) :: destin(size(source, 1, IK), size(source, 2, IK))
4531 end function
4532#endif
4533
4534#if CK1_ENABLED
4535 PURE module function getMatCopy_RDP_RDP_UXD_AIO_CK1(dpack, source, spack, subset, doff, init) result(destin)
4536#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4537 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_AIO_CK1
4538#endif
4539 use pm_kind, only: CKG => CK1
4540 type(rdpack_type) , intent(in) :: dpack
4541 type(rdpack_type) , intent(in) :: spack
4542 type(uppDia_type) , intent(in) :: subset
4543 integer(IK) , intent(in) , optional :: doff
4544 complex(CKG) , intent(in) , optional :: init
4545 complex(CKG) , intent(in) :: source(:,:)
4546 complex(CKG) :: destin(size(source, 1, IK), size(source, 2, IK))
4547 end function
4548#endif
4549
4550 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4551
4552#if RK5_ENABLED
4553 PURE module function getMatCopy_RDP_RDP_UXD_AIO_RK5(dpack, source, spack, subset, doff, init) result(destin)
4554#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4555 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_AIO_RK5
4556#endif
4557 use pm_kind, only: RKG => RK5
4558 type(rdpack_type) , intent(in) :: dpack
4559 type(rdpack_type) , intent(in) :: spack
4560 type(uppDia_type) , intent(in) :: subset
4561 integer(IK) , intent(in) , optional :: doff
4562 real(RKG) , intent(in) , optional :: init
4563 real(RKG) , intent(in) :: source(:,:)
4564 real(RKG) :: destin(size(source, 1, IK), size(source, 2, IK))
4565 end function
4566#endif
4567
4568#if RK4_ENABLED
4569 PURE module function getMatCopy_RDP_RDP_UXD_AIO_RK4(dpack, source, spack, subset, doff, init) result(destin)
4570#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4571 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_AIO_RK4
4572#endif
4573 use pm_kind, only: RKG => RK4
4574 type(rdpack_type) , intent(in) :: dpack
4575 type(rdpack_type) , intent(in) :: spack
4576 type(uppDia_type) , intent(in) :: subset
4577 integer(IK) , intent(in) , optional :: doff
4578 real(RKG) , intent(in) , optional :: init
4579 real(RKG) , intent(in) :: source(:,:)
4580 real(RKG) :: destin(size(source, 1, IK), size(source, 2, IK))
4581 end function
4582#endif
4583
4584#if RK3_ENABLED
4585 PURE module function getMatCopy_RDP_RDP_UXD_AIO_RK3(dpack, source, spack, subset, doff, init) result(destin)
4586#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4587 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_AIO_RK3
4588#endif
4589 use pm_kind, only: RKG => RK3
4590 type(rdpack_type) , intent(in) :: dpack
4591 type(rdpack_type) , intent(in) :: spack
4592 type(uppDia_type) , intent(in) :: subset
4593 integer(IK) , intent(in) , optional :: doff
4594 real(RKG) , intent(in) , optional :: init
4595 real(RKG) , intent(in) :: source(:,:)
4596 real(RKG) :: destin(size(source, 1, IK), size(source, 2, IK))
4597 end function
4598#endif
4599
4600#if RK2_ENABLED
4601 PURE module function getMatCopy_RDP_RDP_UXD_AIO_RK2(dpack, source, spack, subset, doff, init) result(destin)
4602#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4603 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_AIO_RK2
4604#endif
4605 use pm_kind, only: RKG => RK2
4606 type(rdpack_type) , intent(in) :: dpack
4607 type(rdpack_type) , intent(in) :: spack
4608 type(uppDia_type) , intent(in) :: subset
4609 integer(IK) , intent(in) , optional :: doff
4610 real(RKG) , intent(in) , optional :: init
4611 real(RKG) , intent(in) :: source(:,:)
4612 real(RKG) :: destin(size(source, 1, IK), size(source, 2, IK))
4613 end function
4614#endif
4615
4616#if RK1_ENABLED
4617 PURE module function getMatCopy_RDP_RDP_UXD_AIO_RK1(dpack, source, spack, subset, doff, init) result(destin)
4618#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4619 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_AIO_RK1
4620#endif
4621 use pm_kind, only: RKG => RK1
4622 type(rdpack_type) , intent(in) :: dpack
4623 type(rdpack_type) , intent(in) :: spack
4624 type(uppDia_type) , intent(in) :: subset
4625 integer(IK) , intent(in) , optional :: doff
4626 real(RKG) , intent(in) , optional :: init
4627 real(RKG) , intent(in) :: source(:,:)
4628 real(RKG) :: destin(size(source, 1, IK), size(source, 2, IK))
4629 end function
4630#endif
4631
4632 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4633
4634 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4635 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4636 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4637
4638 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4639
4640#if SK5_ENABLED
4641 PURE module function getMatCopy_RDP_RDP_UXD_TSO_SK5(dpack, source, spack, subset, operation, doff, init) result(destin)
4642#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4643 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_TSO_SK5
4644#endif
4645 use pm_kind, only: SKG => SK5
4646 type(rdpack_type) , intent(in) :: dpack
4647 type(rdpack_type) , intent(in) :: spack
4648 type(uppDia_type) , intent(in) :: subset
4649 type(transSymm_type) , intent(in) :: operation
4650 integer(IK) , intent(in) , optional :: doff
4651 character(*,SKG) , intent(in) , optional :: init
4652 character(*,SKG) , intent(in) :: source(:,:)
4653 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
4654 end function
4655#endif
4656
4657#if SK4_ENABLED
4658 PURE module function getMatCopy_RDP_RDP_UXD_TSO_SK4(dpack, source, spack, subset, operation, doff, init) result(destin)
4659#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4660 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_TSO_SK4
4661#endif
4662 use pm_kind, only: SKG => SK4
4663 type(rdpack_type) , intent(in) :: dpack
4664 type(rdpack_type) , intent(in) :: spack
4665 type(uppDia_type) , intent(in) :: subset
4666 type(transSymm_type) , intent(in) :: operation
4667 integer(IK) , intent(in) , optional :: doff
4668 character(*,SKG) , intent(in) , optional :: init
4669 character(*,SKG) , intent(in) :: source(:,:)
4670 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
4671 end function
4672#endif
4673
4674#if SK3_ENABLED
4675 PURE module function getMatCopy_RDP_RDP_UXD_TSO_SK3(dpack, source, spack, subset, operation, doff, init) result(destin)
4676#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4677 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_TSO_SK3
4678#endif
4679 use pm_kind, only: SKG => SK3
4680 type(rdpack_type) , intent(in) :: dpack
4681 type(rdpack_type) , intent(in) :: spack
4682 type(uppDia_type) , intent(in) :: subset
4683 type(transSymm_type) , intent(in) :: operation
4684 integer(IK) , intent(in) , optional :: doff
4685 character(*,SKG) , intent(in) , optional :: init
4686 character(*,SKG) , intent(in) :: source(:,:)
4687 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
4688 end function
4689#endif
4690
4691#if SK2_ENABLED
4692 PURE module function getMatCopy_RDP_RDP_UXD_TSO_SK2(dpack, source, spack, subset, operation, doff, init) result(destin)
4693#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4694 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_TSO_SK2
4695#endif
4696 use pm_kind, only: SKG => SK2
4697 type(rdpack_type) , intent(in) :: dpack
4698 type(rdpack_type) , intent(in) :: spack
4699 type(uppDia_type) , intent(in) :: subset
4700 type(transSymm_type) , intent(in) :: operation
4701 integer(IK) , intent(in) , optional :: doff
4702 character(*,SKG) , intent(in) , optional :: init
4703 character(*,SKG) , intent(in) :: source(:,:)
4704 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
4705 end function
4706#endif
4707
4708#if SK1_ENABLED
4709 PURE module function getMatCopy_RDP_RDP_UXD_TSO_SK1(dpack, source, spack, subset, operation, doff, init) result(destin)
4710#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4711 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_TSO_SK1
4712#endif
4713 use pm_kind, only: SKG => SK1
4714 type(rdpack_type) , intent(in) :: dpack
4715 type(rdpack_type) , intent(in) :: spack
4716 type(uppDia_type) , intent(in) :: subset
4717 type(transSymm_type) , intent(in) :: operation
4718 integer(IK) , intent(in) , optional :: doff
4719 character(*,SKG) , intent(in) , optional :: init
4720 character(*,SKG) , intent(in) :: source(:,:)
4721 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
4722 end function
4723#endif
4724
4725 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4726
4727#if IK5_ENABLED
4728 PURE module function getMatCopy_RDP_RDP_UXD_TSO_IK5(dpack, source, spack, subset, operation, doff, init) result(destin)
4729#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4730 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_TSO_IK5
4731#endif
4732 use pm_kind, only: IKG => IK5
4733 type(rdpack_type) , intent(in) :: dpack
4734 type(rdpack_type) , intent(in) :: spack
4735 type(uppDia_type) , intent(in) :: subset
4736 type(transSymm_type) , intent(in) :: operation
4737 integer(IK) , intent(in) , optional :: doff
4738 integer(IKG) , intent(in) , optional :: init
4739 integer(IKG) , intent(in) :: source(:,:)
4740 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
4741 end function
4742#endif
4743
4744#if IK4_ENABLED
4745 PURE module function getMatCopy_RDP_RDP_UXD_TSO_IK4(dpack, source, spack, subset, operation, doff, init) result(destin)
4746#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4747 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_TSO_IK4
4748#endif
4749 use pm_kind, only: IKG => IK4
4750 type(rdpack_type) , intent(in) :: dpack
4751 type(rdpack_type) , intent(in) :: spack
4752 type(uppDia_type) , intent(in) :: subset
4753 type(transSymm_type) , intent(in) :: operation
4754 integer(IK) , intent(in) , optional :: doff
4755 integer(IKG) , intent(in) , optional :: init
4756 integer(IKG) , intent(in) :: source(:,:)
4757 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
4758 end function
4759#endif
4760
4761#if IK3_ENABLED
4762 PURE module function getMatCopy_RDP_RDP_UXD_TSO_IK3(dpack, source, spack, subset, operation, doff, init) result(destin)
4763#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4764 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_TSO_IK3
4765#endif
4766 use pm_kind, only: IKG => IK3
4767 type(rdpack_type) , intent(in) :: dpack
4768 type(rdpack_type) , intent(in) :: spack
4769 type(uppDia_type) , intent(in) :: subset
4770 type(transSymm_type) , intent(in) :: operation
4771 integer(IK) , intent(in) , optional :: doff
4772 integer(IKG) , intent(in) , optional :: init
4773 integer(IKG) , intent(in) :: source(:,:)
4774 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
4775 end function
4776#endif
4777
4778#if IK2_ENABLED
4779 PURE module function getMatCopy_RDP_RDP_UXD_TSO_IK2(dpack, source, spack, subset, operation, doff, init) result(destin)
4780#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4781 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_TSO_IK2
4782#endif
4783 use pm_kind, only: IKG => IK2
4784 type(rdpack_type) , intent(in) :: dpack
4785 type(rdpack_type) , intent(in) :: spack
4786 type(uppDia_type) , intent(in) :: subset
4787 type(transSymm_type) , intent(in) :: operation
4788 integer(IK) , intent(in) , optional :: doff
4789 integer(IKG) , intent(in) , optional :: init
4790 integer(IKG) , intent(in) :: source(:,:)
4791 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
4792 end function
4793#endif
4794
4795#if IK1_ENABLED
4796 PURE module function getMatCopy_RDP_RDP_UXD_TSO_IK1(dpack, source, spack, subset, operation, doff, init) result(destin)
4797#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4798 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_TSO_IK1
4799#endif
4800 use pm_kind, only: IKG => IK1
4801 type(rdpack_type) , intent(in) :: dpack
4802 type(rdpack_type) , intent(in) :: spack
4803 type(uppDia_type) , intent(in) :: subset
4804 type(transSymm_type) , intent(in) :: operation
4805 integer(IK) , intent(in) , optional :: doff
4806 integer(IKG) , intent(in) , optional :: init
4807 integer(IKG) , intent(in) :: source(:,:)
4808 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
4809 end function
4810#endif
4811
4812 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4813
4814#if LK5_ENABLED
4815 PURE module function getMatCopy_RDP_RDP_UXD_TSO_LK5(dpack, source, spack, subset, operation, doff, init) result(destin)
4816#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4817 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_TSO_LK5
4818#endif
4819 use pm_kind, only: LKG => LK5
4820 type(rdpack_type) , intent(in) :: dpack
4821 type(rdpack_type) , intent(in) :: spack
4822 type(uppDia_type) , intent(in) :: subset
4823 type(transSymm_type) , intent(in) :: operation
4824 integer(IK) , intent(in) , optional :: doff
4825 logical(LKG) , intent(in) , optional :: init
4826 logical(LKG) , intent(in) :: source(:,:)
4827 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
4828 end function
4829#endif
4830
4831#if LK4_ENABLED
4832 PURE module function getMatCopy_RDP_RDP_UXD_TSO_LK4(dpack, source, spack, subset, operation, doff, init) result(destin)
4833#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4834 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_TSO_LK4
4835#endif
4836 use pm_kind, only: LKG => LK4
4837 type(rdpack_type) , intent(in) :: dpack
4838 type(rdpack_type) , intent(in) :: spack
4839 type(uppDia_type) , intent(in) :: subset
4840 type(transSymm_type) , intent(in) :: operation
4841 integer(IK) , intent(in) , optional :: doff
4842 logical(LKG) , intent(in) , optional :: init
4843 logical(LKG) , intent(in) :: source(:,:)
4844 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
4845 end function
4846#endif
4847
4848#if LK3_ENABLED
4849 PURE module function getMatCopy_RDP_RDP_UXD_TSO_LK3(dpack, source, spack, subset, operation, doff, init) result(destin)
4850#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4851 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_TSO_LK3
4852#endif
4853 use pm_kind, only: LKG => LK3
4854 type(rdpack_type) , intent(in) :: dpack
4855 type(rdpack_type) , intent(in) :: spack
4856 type(uppDia_type) , intent(in) :: subset
4857 type(transSymm_type) , intent(in) :: operation
4858 integer(IK) , intent(in) , optional :: doff
4859 logical(LKG) , intent(in) , optional :: init
4860 logical(LKG) , intent(in) :: source(:,:)
4861 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
4862 end function
4863#endif
4864
4865#if LK2_ENABLED
4866 PURE module function getMatCopy_RDP_RDP_UXD_TSO_LK2(dpack, source, spack, subset, operation, doff, init) result(destin)
4867#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4868 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_TSO_LK2
4869#endif
4870 use pm_kind, only: LKG => LK2
4871 type(rdpack_type) , intent(in) :: dpack
4872 type(rdpack_type) , intent(in) :: spack
4873 type(uppDia_type) , intent(in) :: subset
4874 type(transSymm_type) , intent(in) :: operation
4875 integer(IK) , intent(in) , optional :: doff
4876 logical(LKG) , intent(in) , optional :: init
4877 logical(LKG) , intent(in) :: source(:,:)
4878 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
4879 end function
4880#endif
4881
4882#if LK1_ENABLED
4883 PURE module function getMatCopy_RDP_RDP_UXD_TSO_LK1(dpack, source, spack, subset, operation, doff, init) result(destin)
4884#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4885 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_TSO_LK1
4886#endif
4887 use pm_kind, only: LKG => LK1
4888 type(rdpack_type) , intent(in) :: dpack
4889 type(rdpack_type) , intent(in) :: spack
4890 type(uppDia_type) , intent(in) :: subset
4891 type(transSymm_type) , intent(in) :: operation
4892 integer(IK) , intent(in) , optional :: doff
4893 logical(LKG) , intent(in) , optional :: init
4894 logical(LKG) , intent(in) :: source(:,:)
4895 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
4896 end function
4897#endif
4898
4899 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4900
4901#if CK5_ENABLED
4902 PURE module function getMatCopy_RDP_RDP_UXD_TSO_CK5(dpack, source, spack, subset, operation, doff, init) result(destin)
4903#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4904 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_TSO_CK5
4905#endif
4906 use pm_kind, only: CKG => CK5
4907 type(rdpack_type) , intent(in) :: dpack
4908 type(rdpack_type) , intent(in) :: spack
4909 type(uppDia_type) , intent(in) :: subset
4910 type(transSymm_type) , intent(in) :: operation
4911 integer(IK) , intent(in) , optional :: doff
4912 complex(CKG) , intent(in) , optional :: init
4913 complex(CKG) , intent(in) :: source(:,:)
4914 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
4915 end function
4916#endif
4917
4918#if CK4_ENABLED
4919 PURE module function getMatCopy_RDP_RDP_UXD_TSO_CK4(dpack, source, spack, subset, operation, doff, init) result(destin)
4920#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4921 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_TSO_CK4
4922#endif
4923 use pm_kind, only: CKG => CK4
4924 type(rdpack_type) , intent(in) :: dpack
4925 type(rdpack_type) , intent(in) :: spack
4926 type(uppDia_type) , intent(in) :: subset
4927 type(transSymm_type) , intent(in) :: operation
4928 integer(IK) , intent(in) , optional :: doff
4929 complex(CKG) , intent(in) , optional :: init
4930 complex(CKG) , intent(in) :: source(:,:)
4931 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
4932 end function
4933#endif
4934
4935#if CK3_ENABLED
4936 PURE module function getMatCopy_RDP_RDP_UXD_TSO_CK3(dpack, source, spack, subset, operation, doff, init) result(destin)
4937#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4938 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_TSO_CK3
4939#endif
4940 use pm_kind, only: CKG => CK3
4941 type(rdpack_type) , intent(in) :: dpack
4942 type(rdpack_type) , intent(in) :: spack
4943 type(uppDia_type) , intent(in) :: subset
4944 type(transSymm_type) , intent(in) :: operation
4945 integer(IK) , intent(in) , optional :: doff
4946 complex(CKG) , intent(in) , optional :: init
4947 complex(CKG) , intent(in) :: source(:,:)
4948 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
4949 end function
4950#endif
4951
4952#if CK2_ENABLED
4953 PURE module function getMatCopy_RDP_RDP_UXD_TSO_CK2(dpack, source, spack, subset, operation, doff, init) result(destin)
4954#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4955 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_TSO_CK2
4956#endif
4957 use pm_kind, only: CKG => CK2
4958 type(rdpack_type) , intent(in) :: dpack
4959 type(rdpack_type) , intent(in) :: spack
4960 type(uppDia_type) , intent(in) :: subset
4961 type(transSymm_type) , intent(in) :: operation
4962 integer(IK) , intent(in) , optional :: doff
4963 complex(CKG) , intent(in) , optional :: init
4964 complex(CKG) , intent(in) :: source(:,:)
4965 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
4966 end function
4967#endif
4968
4969#if CK1_ENABLED
4970 PURE module function getMatCopy_RDP_RDP_UXD_TSO_CK1(dpack, source, spack, subset, operation, doff, init) result(destin)
4971#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4972 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_TSO_CK1
4973#endif
4974 use pm_kind, only: CKG => CK1
4975 type(rdpack_type) , intent(in) :: dpack
4976 type(rdpack_type) , intent(in) :: spack
4977 type(uppDia_type) , intent(in) :: subset
4978 type(transSymm_type) , intent(in) :: operation
4979 integer(IK) , intent(in) , optional :: doff
4980 complex(CKG) , intent(in) , optional :: init
4981 complex(CKG) , intent(in) :: source(:,:)
4982 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
4983 end function
4984#endif
4985
4986 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4987
4988#if RK5_ENABLED
4989 PURE module function getMatCopy_RDP_RDP_UXD_TSO_RK5(dpack, source, spack, subset, operation, doff, init) result(destin)
4990#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4991 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_TSO_RK5
4992#endif
4993 use pm_kind, only: RKG => RK5
4994 type(rdpack_type) , intent(in) :: dpack
4995 type(rdpack_type) , intent(in) :: spack
4996 type(uppDia_type) , intent(in) :: subset
4997 type(transSymm_type) , intent(in) :: operation
4998 integer(IK) , intent(in) , optional :: doff
4999 real(RKG) , intent(in) , optional :: init
5000 real(RKG) , intent(in) :: source(:,:)
5001 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
5002 end function
5003#endif
5004
5005#if RK4_ENABLED
5006 PURE module function getMatCopy_RDP_RDP_UXD_TSO_RK4(dpack, source, spack, subset, operation, doff, init) result(destin)
5007#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5008 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_TSO_RK4
5009#endif
5010 use pm_kind, only: RKG => RK4
5011 type(rdpack_type) , intent(in) :: dpack
5012 type(rdpack_type) , intent(in) :: spack
5013 type(uppDia_type) , intent(in) :: subset
5014 type(transSymm_type) , intent(in) :: operation
5015 integer(IK) , intent(in) , optional :: doff
5016 real(RKG) , intent(in) , optional :: init
5017 real(RKG) , intent(in) :: source(:,:)
5018 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
5019 end function
5020#endif
5021
5022#if RK3_ENABLED
5023 PURE module function getMatCopy_RDP_RDP_UXD_TSO_RK3(dpack, source, spack, subset, operation, doff, init) result(destin)
5024#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5025 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_TSO_RK3
5026#endif
5027 use pm_kind, only: RKG => RK3
5028 type(rdpack_type) , intent(in) :: dpack
5029 type(rdpack_type) , intent(in) :: spack
5030 type(uppDia_type) , intent(in) :: subset
5031 type(transSymm_type) , intent(in) :: operation
5032 integer(IK) , intent(in) , optional :: doff
5033 real(RKG) , intent(in) , optional :: init
5034 real(RKG) , intent(in) :: source(:,:)
5035 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
5036 end function
5037#endif
5038
5039#if RK2_ENABLED
5040 PURE module function getMatCopy_RDP_RDP_UXD_TSO_RK2(dpack, source, spack, subset, operation, doff, init) result(destin)
5041#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5042 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_TSO_RK2
5043#endif
5044 use pm_kind, only: RKG => RK2
5045 type(rdpack_type) , intent(in) :: dpack
5046 type(rdpack_type) , intent(in) :: spack
5047 type(uppDia_type) , intent(in) :: subset
5048 type(transSymm_type) , intent(in) :: operation
5049 integer(IK) , intent(in) , optional :: doff
5050 real(RKG) , intent(in) , optional :: init
5051 real(RKG) , intent(in) :: source(:,:)
5052 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
5053 end function
5054#endif
5055
5056#if RK1_ENABLED
5057 PURE module function getMatCopy_RDP_RDP_UXD_TSO_RK1(dpack, source, spack, subset, operation, doff, init) result(destin)
5058#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5059 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_TSO_RK1
5060#endif
5061 use pm_kind, only: RKG => RK1
5062 type(rdpack_type) , intent(in) :: dpack
5063 type(rdpack_type) , intent(in) :: spack
5064 type(uppDia_type) , intent(in) :: subset
5065 type(transSymm_type) , intent(in) :: operation
5066 integer(IK) , intent(in) , optional :: doff
5067 real(RKG) , intent(in) , optional :: init
5068 real(RKG) , intent(in) :: source(:,:)
5069 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
5070 end function
5071#endif
5072
5073 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5074
5075 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5076 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5077 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5078
5079 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5080
5081#if SK5_ENABLED
5082 PURE module function getMatCopy_RDP_RDP_UXD_THO_SK5(dpack, source, spack, subset, operation, doff, init) result(destin)
5083#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5084 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_THO_SK5
5085#endif
5086 use pm_kind, only: SKG => SK5
5087 type(rdpack_type) , intent(in) :: dpack
5088 type(rdpack_type) , intent(in) :: spack
5089 type(uppDia_type) , intent(in) :: subset
5090 type(transHerm_type) , intent(in) :: operation
5091 integer(IK) , intent(in) , optional :: doff
5092 character(*,SKG) , intent(in) , optional :: init
5093 character(*,SKG) , intent(in) :: source(:,:)
5094 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
5095 end function
5096#endif
5097
5098#if SK4_ENABLED
5099 PURE module function getMatCopy_RDP_RDP_UXD_THO_SK4(dpack, source, spack, subset, operation, doff, init) result(destin)
5100#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5101 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_THO_SK4
5102#endif
5103 use pm_kind, only: SKG => SK4
5104 type(rdpack_type) , intent(in) :: dpack
5105 type(rdpack_type) , intent(in) :: spack
5106 type(uppDia_type) , intent(in) :: subset
5107 type(transHerm_type) , intent(in) :: operation
5108 integer(IK) , intent(in) , optional :: doff
5109 character(*,SKG) , intent(in) , optional :: init
5110 character(*,SKG) , intent(in) :: source(:,:)
5111 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
5112 end function
5113#endif
5114
5115#if SK3_ENABLED
5116 PURE module function getMatCopy_RDP_RDP_UXD_THO_SK3(dpack, source, spack, subset, operation, doff, init) result(destin)
5117#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5118 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_THO_SK3
5119#endif
5120 use pm_kind, only: SKG => SK3
5121 type(rdpack_type) , intent(in) :: dpack
5122 type(rdpack_type) , intent(in) :: spack
5123 type(uppDia_type) , intent(in) :: subset
5124 type(transHerm_type) , intent(in) :: operation
5125 integer(IK) , intent(in) , optional :: doff
5126 character(*,SKG) , intent(in) , optional :: init
5127 character(*,SKG) , intent(in) :: source(:,:)
5128 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
5129 end function
5130#endif
5131
5132#if SK2_ENABLED
5133 PURE module function getMatCopy_RDP_RDP_UXD_THO_SK2(dpack, source, spack, subset, operation, doff, init) result(destin)
5134#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5135 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_THO_SK2
5136#endif
5137 use pm_kind, only: SKG => SK2
5138 type(rdpack_type) , intent(in) :: dpack
5139 type(rdpack_type) , intent(in) :: spack
5140 type(uppDia_type) , intent(in) :: subset
5141 type(transHerm_type) , intent(in) :: operation
5142 integer(IK) , intent(in) , optional :: doff
5143 character(*,SKG) , intent(in) , optional :: init
5144 character(*,SKG) , intent(in) :: source(:,:)
5145 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
5146 end function
5147#endif
5148
5149#if SK1_ENABLED
5150 PURE module function getMatCopy_RDP_RDP_UXD_THO_SK1(dpack, source, spack, subset, operation, doff, init) result(destin)
5151#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5152 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_THO_SK1
5153#endif
5154 use pm_kind, only: SKG => SK1
5155 type(rdpack_type) , intent(in) :: dpack
5156 type(rdpack_type) , intent(in) :: spack
5157 type(uppDia_type) , intent(in) :: subset
5158 type(transHerm_type) , intent(in) :: operation
5159 integer(IK) , intent(in) , optional :: doff
5160 character(*,SKG) , intent(in) , optional :: init
5161 character(*,SKG) , intent(in) :: source(:,:)
5162 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
5163 end function
5164#endif
5165
5166 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5167
5168#if IK5_ENABLED
5169 PURE module function getMatCopy_RDP_RDP_UXD_THO_IK5(dpack, source, spack, subset, operation, doff, init) result(destin)
5170#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5171 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_THO_IK5
5172#endif
5173 use pm_kind, only: IKG => IK5
5174 type(rdpack_type) , intent(in) :: dpack
5175 type(rdpack_type) , intent(in) :: spack
5176 type(uppDia_type) , intent(in) :: subset
5177 type(transHerm_type) , intent(in) :: operation
5178 integer(IK) , intent(in) , optional :: doff
5179 integer(IKG) , intent(in) , optional :: init
5180 integer(IKG) , intent(in) :: source(:,:)
5181 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
5182 end function
5183#endif
5184
5185#if IK4_ENABLED
5186 PURE module function getMatCopy_RDP_RDP_UXD_THO_IK4(dpack, source, spack, subset, operation, doff, init) result(destin)
5187#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5188 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_THO_IK4
5189#endif
5190 use pm_kind, only: IKG => IK4
5191 type(rdpack_type) , intent(in) :: dpack
5192 type(rdpack_type) , intent(in) :: spack
5193 type(uppDia_type) , intent(in) :: subset
5194 type(transHerm_type) , intent(in) :: operation
5195 integer(IK) , intent(in) , optional :: doff
5196 integer(IKG) , intent(in) , optional :: init
5197 integer(IKG) , intent(in) :: source(:,:)
5198 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
5199 end function
5200#endif
5201
5202#if IK3_ENABLED
5203 PURE module function getMatCopy_RDP_RDP_UXD_THO_IK3(dpack, source, spack, subset, operation, doff, init) result(destin)
5204#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5205 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_THO_IK3
5206#endif
5207 use pm_kind, only: IKG => IK3
5208 type(rdpack_type) , intent(in) :: dpack
5209 type(rdpack_type) , intent(in) :: spack
5210 type(uppDia_type) , intent(in) :: subset
5211 type(transHerm_type) , intent(in) :: operation
5212 integer(IK) , intent(in) , optional :: doff
5213 integer(IKG) , intent(in) , optional :: init
5214 integer(IKG) , intent(in) :: source(:,:)
5215 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
5216 end function
5217#endif
5218
5219#if IK2_ENABLED
5220 PURE module function getMatCopy_RDP_RDP_UXD_THO_IK2(dpack, source, spack, subset, operation, doff, init) result(destin)
5221#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5222 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_THO_IK2
5223#endif
5224 use pm_kind, only: IKG => IK2
5225 type(rdpack_type) , intent(in) :: dpack
5226 type(rdpack_type) , intent(in) :: spack
5227 type(uppDia_type) , intent(in) :: subset
5228 type(transHerm_type) , intent(in) :: operation
5229 integer(IK) , intent(in) , optional :: doff
5230 integer(IKG) , intent(in) , optional :: init
5231 integer(IKG) , intent(in) :: source(:,:)
5232 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
5233 end function
5234#endif
5235
5236#if IK1_ENABLED
5237 PURE module function getMatCopy_RDP_RDP_UXD_THO_IK1(dpack, source, spack, subset, operation, doff, init) result(destin)
5238#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5239 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_THO_IK1
5240#endif
5241 use pm_kind, only: IKG => IK1
5242 type(rdpack_type) , intent(in) :: dpack
5243 type(rdpack_type) , intent(in) :: spack
5244 type(uppDia_type) , intent(in) :: subset
5245 type(transHerm_type) , intent(in) :: operation
5246 integer(IK) , intent(in) , optional :: doff
5247 integer(IKG) , intent(in) , optional :: init
5248 integer(IKG) , intent(in) :: source(:,:)
5249 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
5250 end function
5251#endif
5252
5253 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5254
5255#if LK5_ENABLED
5256 PURE module function getMatCopy_RDP_RDP_UXD_THO_LK5(dpack, source, spack, subset, operation, doff, init) result(destin)
5257#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5258 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_THO_LK5
5259#endif
5260 use pm_kind, only: LKG => LK5
5261 type(rdpack_type) , intent(in) :: dpack
5262 type(rdpack_type) , intent(in) :: spack
5263 type(uppDia_type) , intent(in) :: subset
5264 type(transHerm_type) , intent(in) :: operation
5265 integer(IK) , intent(in) , optional :: doff
5266 logical(LKG) , intent(in) , optional :: init
5267 logical(LKG) , intent(in) :: source(:,:)
5268 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
5269 end function
5270#endif
5271
5272#if LK4_ENABLED
5273 PURE module function getMatCopy_RDP_RDP_UXD_THO_LK4(dpack, source, spack, subset, operation, doff, init) result(destin)
5274#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5275 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_THO_LK4
5276#endif
5277 use pm_kind, only: LKG => LK4
5278 type(rdpack_type) , intent(in) :: dpack
5279 type(rdpack_type) , intent(in) :: spack
5280 type(uppDia_type) , intent(in) :: subset
5281 type(transHerm_type) , intent(in) :: operation
5282 integer(IK) , intent(in) , optional :: doff
5283 logical(LKG) , intent(in) , optional :: init
5284 logical(LKG) , intent(in) :: source(:,:)
5285 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
5286 end function
5287#endif
5288
5289#if LK3_ENABLED
5290 PURE module function getMatCopy_RDP_RDP_UXD_THO_LK3(dpack, source, spack, subset, operation, doff, init) result(destin)
5291#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5292 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_THO_LK3
5293#endif
5294 use pm_kind, only: LKG => LK3
5295 type(rdpack_type) , intent(in) :: dpack
5296 type(rdpack_type) , intent(in) :: spack
5297 type(uppDia_type) , intent(in) :: subset
5298 type(transHerm_type) , intent(in) :: operation
5299 integer(IK) , intent(in) , optional :: doff
5300 logical(LKG) , intent(in) , optional :: init
5301 logical(LKG) , intent(in) :: source(:,:)
5302 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
5303 end function
5304#endif
5305
5306#if LK2_ENABLED
5307 PURE module function getMatCopy_RDP_RDP_UXD_THO_LK2(dpack, source, spack, subset, operation, doff, init) result(destin)
5308#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5309 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_THO_LK2
5310#endif
5311 use pm_kind, only: LKG => LK2
5312 type(rdpack_type) , intent(in) :: dpack
5313 type(rdpack_type) , intent(in) :: spack
5314 type(uppDia_type) , intent(in) :: subset
5315 type(transHerm_type) , intent(in) :: operation
5316 integer(IK) , intent(in) , optional :: doff
5317 logical(LKG) , intent(in) , optional :: init
5318 logical(LKG) , intent(in) :: source(:,:)
5319 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
5320 end function
5321#endif
5322
5323#if LK1_ENABLED
5324 PURE module function getMatCopy_RDP_RDP_UXD_THO_LK1(dpack, source, spack, subset, operation, doff, init) result(destin)
5325#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5326 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_THO_LK1
5327#endif
5328 use pm_kind, only: LKG => LK1
5329 type(rdpack_type) , intent(in) :: dpack
5330 type(rdpack_type) , intent(in) :: spack
5331 type(uppDia_type) , intent(in) :: subset
5332 type(transHerm_type) , intent(in) :: operation
5333 integer(IK) , intent(in) , optional :: doff
5334 logical(LKG) , intent(in) , optional :: init
5335 logical(LKG) , intent(in) :: source(:,:)
5336 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
5337 end function
5338#endif
5339
5340 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5341
5342#if CK5_ENABLED
5343 PURE module function getMatCopy_RDP_RDP_UXD_THO_CK5(dpack, source, spack, subset, operation, doff, init) result(destin)
5344#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5345 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_THO_CK5
5346#endif
5347 use pm_kind, only: CKG => CK5
5348 type(rdpack_type) , intent(in) :: dpack
5349 type(rdpack_type) , intent(in) :: spack
5350 type(uppDia_type) , intent(in) :: subset
5351 type(transHerm_type) , intent(in) :: operation
5352 integer(IK) , intent(in) , optional :: doff
5353 complex(CKG) , intent(in) , optional :: init
5354 complex(CKG) , intent(in) :: source(:,:)
5355 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
5356 end function
5357#endif
5358
5359#if CK4_ENABLED
5360 PURE module function getMatCopy_RDP_RDP_UXD_THO_CK4(dpack, source, spack, subset, operation, doff, init) result(destin)
5361#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5362 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_THO_CK4
5363#endif
5364 use pm_kind, only: CKG => CK4
5365 type(rdpack_type) , intent(in) :: dpack
5366 type(rdpack_type) , intent(in) :: spack
5367 type(uppDia_type) , intent(in) :: subset
5368 type(transHerm_type) , intent(in) :: operation
5369 integer(IK) , intent(in) , optional :: doff
5370 complex(CKG) , intent(in) , optional :: init
5371 complex(CKG) , intent(in) :: source(:,:)
5372 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
5373 end function
5374#endif
5375
5376#if CK3_ENABLED
5377 PURE module function getMatCopy_RDP_RDP_UXD_THO_CK3(dpack, source, spack, subset, operation, doff, init) result(destin)
5378#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5379 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_THO_CK3
5380#endif
5381 use pm_kind, only: CKG => CK3
5382 type(rdpack_type) , intent(in) :: dpack
5383 type(rdpack_type) , intent(in) :: spack
5384 type(uppDia_type) , intent(in) :: subset
5385 type(transHerm_type) , intent(in) :: operation
5386 integer(IK) , intent(in) , optional :: doff
5387 complex(CKG) , intent(in) , optional :: init
5388 complex(CKG) , intent(in) :: source(:,:)
5389 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
5390 end function
5391#endif
5392
5393#if CK2_ENABLED
5394 PURE module function getMatCopy_RDP_RDP_UXD_THO_CK2(dpack, source, spack, subset, operation, doff, init) result(destin)
5395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5396 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_THO_CK2
5397#endif
5398 use pm_kind, only: CKG => CK2
5399 type(rdpack_type) , intent(in) :: dpack
5400 type(rdpack_type) , intent(in) :: spack
5401 type(uppDia_type) , intent(in) :: subset
5402 type(transHerm_type) , intent(in) :: operation
5403 integer(IK) , intent(in) , optional :: doff
5404 complex(CKG) , intent(in) , optional :: init
5405 complex(CKG) , intent(in) :: source(:,:)
5406 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
5407 end function
5408#endif
5409
5410#if CK1_ENABLED
5411 PURE module function getMatCopy_RDP_RDP_UXD_THO_CK1(dpack, source, spack, subset, operation, doff, init) result(destin)
5412#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5413 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_THO_CK1
5414#endif
5415 use pm_kind, only: CKG => CK1
5416 type(rdpack_type) , intent(in) :: dpack
5417 type(rdpack_type) , intent(in) :: spack
5418 type(uppDia_type) , intent(in) :: subset
5419 type(transHerm_type) , intent(in) :: operation
5420 integer(IK) , intent(in) , optional :: doff
5421 complex(CKG) , intent(in) , optional :: init
5422 complex(CKG) , intent(in) :: source(:,:)
5423 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
5424 end function
5425#endif
5426
5427 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5428
5429#if RK5_ENABLED
5430 PURE module function getMatCopy_RDP_RDP_UXD_THO_RK5(dpack, source, spack, subset, operation, doff, init) result(destin)
5431#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5432 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_THO_RK5
5433#endif
5434 use pm_kind, only: RKG => RK5
5435 type(rdpack_type) , intent(in) :: dpack
5436 type(rdpack_type) , intent(in) :: spack
5437 type(uppDia_type) , intent(in) :: subset
5438 type(transHerm_type) , intent(in) :: operation
5439 integer(IK) , intent(in) , optional :: doff
5440 real(RKG) , intent(in) , optional :: init
5441 real(RKG) , intent(in) :: source(:,:)
5442 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
5443 end function
5444#endif
5445
5446#if RK4_ENABLED
5447 PURE module function getMatCopy_RDP_RDP_UXD_THO_RK4(dpack, source, spack, subset, operation, doff, init) result(destin)
5448#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5449 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_THO_RK4
5450#endif
5451 use pm_kind, only: RKG => RK4
5452 type(rdpack_type) , intent(in) :: dpack
5453 type(rdpack_type) , intent(in) :: spack
5454 type(uppDia_type) , intent(in) :: subset
5455 type(transHerm_type) , intent(in) :: operation
5456 integer(IK) , intent(in) , optional :: doff
5457 real(RKG) , intent(in) , optional :: init
5458 real(RKG) , intent(in) :: source(:,:)
5459 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
5460 end function
5461#endif
5462
5463#if RK3_ENABLED
5464 PURE module function getMatCopy_RDP_RDP_UXD_THO_RK3(dpack, source, spack, subset, operation, doff, init) result(destin)
5465#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5466 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_THO_RK3
5467#endif
5468 use pm_kind, only: RKG => RK3
5469 type(rdpack_type) , intent(in) :: dpack
5470 type(rdpack_type) , intent(in) :: spack
5471 type(uppDia_type) , intent(in) :: subset
5472 type(transHerm_type) , intent(in) :: operation
5473 integer(IK) , intent(in) , optional :: doff
5474 real(RKG) , intent(in) , optional :: init
5475 real(RKG) , intent(in) :: source(:,:)
5476 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
5477 end function
5478#endif
5479
5480#if RK2_ENABLED
5481 PURE module function getMatCopy_RDP_RDP_UXD_THO_RK2(dpack, source, spack, subset, operation, doff, init) result(destin)
5482#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5483 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_THO_RK2
5484#endif
5485 use pm_kind, only: RKG => RK2
5486 type(rdpack_type) , intent(in) :: dpack
5487 type(rdpack_type) , intent(in) :: spack
5488 type(uppDia_type) , intent(in) :: subset
5489 type(transHerm_type) , intent(in) :: operation
5490 integer(IK) , intent(in) , optional :: doff
5491 real(RKG) , intent(in) , optional :: init
5492 real(RKG) , intent(in) :: source(:,:)
5493 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
5494 end function
5495#endif
5496
5497#if RK1_ENABLED
5498 PURE module function getMatCopy_RDP_RDP_UXD_THO_RK1(dpack, source, spack, subset, operation, doff, init) result(destin)
5499#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5500 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_UXD_THO_RK1
5501#endif
5502 use pm_kind, only: RKG => RK1
5503 type(rdpack_type) , intent(in) :: dpack
5504 type(rdpack_type) , intent(in) :: spack
5505 type(uppDia_type) , intent(in) :: subset
5506 type(transHerm_type) , intent(in) :: operation
5507 integer(IK) , intent(in) , optional :: doff
5508 real(RKG) , intent(in) , optional :: init
5509 real(RKG) , intent(in) :: source(:,:)
5510 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
5511 end function
5512#endif
5513
5514 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5515
5516 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5517 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5518 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5519
5520 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5521 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5522 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5523
5524 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5525
5526#if SK5_ENABLED
5527 PURE module function getMatCopy_RDP_RDP_XLD_AIO_SK5(dpack, source, spack, subset, doff, init) result(destin)
5528#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5529 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_AIO_SK5
5530#endif
5531 use pm_kind, only: SKG => SK5
5532 type(rdpack_type) , intent(in) :: dpack
5533 type(rdpack_type) , intent(in) :: spack
5534 type(lowDia_type) , intent(in) :: subset
5535 integer(IK) , intent(in) , optional :: doff
5536 character(*,SKG) , intent(in) , optional :: init
5537 character(*,SKG) , intent(in) :: source(:,:)
5538 character(len(source,IK),SKG) :: destin(size(source, 1, IK), size(source, 2, IK))
5539 end function
5540#endif
5541
5542#if SK4_ENABLED
5543 PURE module function getMatCopy_RDP_RDP_XLD_AIO_SK4(dpack, source, spack, subset, doff, init) result(destin)
5544#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5545 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_AIO_SK4
5546#endif
5547 use pm_kind, only: SKG => SK4
5548 type(rdpack_type) , intent(in) :: dpack
5549 type(rdpack_type) , intent(in) :: spack
5550 type(lowDia_type) , intent(in) :: subset
5551 integer(IK) , intent(in) , optional :: doff
5552 character(*,SKG) , intent(in) , optional :: init
5553 character(*,SKG) , intent(in) :: source(:,:)
5554 character(len(source,IK),SKG) :: destin(size(source, 1, IK), size(source, 2, IK))
5555 end function
5556#endif
5557
5558#if SK3_ENABLED
5559 PURE module function getMatCopy_RDP_RDP_XLD_AIO_SK3(dpack, source, spack, subset, doff, init) result(destin)
5560#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5561 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_AIO_SK3
5562#endif
5563 use pm_kind, only: SKG => SK3
5564 type(rdpack_type) , intent(in) :: dpack
5565 type(rdpack_type) , intent(in) :: spack
5566 type(lowDia_type) , intent(in) :: subset
5567 integer(IK) , intent(in) , optional :: doff
5568 character(*,SKG) , intent(in) , optional :: init
5569 character(*,SKG) , intent(in) :: source(:,:)
5570 character(len(source,IK),SKG) :: destin(size(source, 1, IK), size(source, 2, IK))
5571 end function
5572#endif
5573
5574#if SK2_ENABLED
5575 PURE module function getMatCopy_RDP_RDP_XLD_AIO_SK2(dpack, source, spack, subset, doff, init) result(destin)
5576#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5577 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_AIO_SK2
5578#endif
5579 use pm_kind, only: SKG => SK2
5580 type(rdpack_type) , intent(in) :: dpack
5581 type(rdpack_type) , intent(in) :: spack
5582 type(lowDia_type) , intent(in) :: subset
5583 integer(IK) , intent(in) , optional :: doff
5584 character(*,SKG) , intent(in) , optional :: init
5585 character(*,SKG) , intent(in) :: source(:,:)
5586 character(len(source,IK),SKG) :: destin(size(source, 1, IK), size(source, 2, IK))
5587 end function
5588#endif
5589
5590#if SK1_ENABLED
5591 PURE module function getMatCopy_RDP_RDP_XLD_AIO_SK1(dpack, source, spack, subset, doff, init) result(destin)
5592#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5593 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_AIO_SK1
5594#endif
5595 use pm_kind, only: SKG => SK1
5596 type(rdpack_type) , intent(in) :: dpack
5597 type(rdpack_type) , intent(in) :: spack
5598 type(lowDia_type) , intent(in) :: subset
5599 integer(IK) , intent(in) , optional :: doff
5600 character(*,SKG) , intent(in) , optional :: init
5601 character(*,SKG) , intent(in) :: source(:,:)
5602 character(len(source,IK),SKG) :: destin(size(source, 1, IK), size(source, 2, IK))
5603 end function
5604#endif
5605
5606 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5607
5608#if IK5_ENABLED
5609 PURE module function getMatCopy_RDP_RDP_XLD_AIO_IK5(dpack, source, spack, subset, doff, init) result(destin)
5610#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5611 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_AIO_IK5
5612#endif
5613 use pm_kind, only: IKG => IK5
5614 type(rdpack_type) , intent(in) :: dpack
5615 type(rdpack_type) , intent(in) :: spack
5616 type(lowDia_type) , intent(in) :: subset
5617 integer(IK) , intent(in) , optional :: doff
5618 integer(IKG) , intent(in) , optional :: init
5619 integer(IKG) , intent(in) :: source(:,:)
5620 integer(IKG) :: destin(size(source, 1, IK), size(source, 2, IK))
5621 end function
5622#endif
5623
5624#if IK4_ENABLED
5625 PURE module function getMatCopy_RDP_RDP_XLD_AIO_IK4(dpack, source, spack, subset, doff, init) result(destin)
5626#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5627 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_AIO_IK4
5628#endif
5629 use pm_kind, only: IKG => IK4
5630 type(rdpack_type) , intent(in) :: dpack
5631 type(rdpack_type) , intent(in) :: spack
5632 type(lowDia_type) , intent(in) :: subset
5633 integer(IK) , intent(in) , optional :: doff
5634 integer(IKG) , intent(in) , optional :: init
5635 integer(IKG) , intent(in) :: source(:,:)
5636 integer(IKG) :: destin(size(source, 1, IK), size(source, 2, IK))
5637 end function
5638#endif
5639
5640#if IK3_ENABLED
5641 PURE module function getMatCopy_RDP_RDP_XLD_AIO_IK3(dpack, source, spack, subset, doff, init) result(destin)
5642#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5643 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_AIO_IK3
5644#endif
5645 use pm_kind, only: IKG => IK3
5646 type(rdpack_type) , intent(in) :: dpack
5647 type(rdpack_type) , intent(in) :: spack
5648 type(lowDia_type) , intent(in) :: subset
5649 integer(IK) , intent(in) , optional :: doff
5650 integer(IKG) , intent(in) , optional :: init
5651 integer(IKG) , intent(in) :: source(:,:)
5652 integer(IKG) :: destin(size(source, 1, IK), size(source, 2, IK))
5653 end function
5654#endif
5655
5656#if IK2_ENABLED
5657 PURE module function getMatCopy_RDP_RDP_XLD_AIO_IK2(dpack, source, spack, subset, doff, init) result(destin)
5658#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5659 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_AIO_IK2
5660#endif
5661 use pm_kind, only: IKG => IK2
5662 type(rdpack_type) , intent(in) :: dpack
5663 type(rdpack_type) , intent(in) :: spack
5664 type(lowDia_type) , intent(in) :: subset
5665 integer(IK) , intent(in) , optional :: doff
5666 integer(IKG) , intent(in) , optional :: init
5667 integer(IKG) , intent(in) :: source(:,:)
5668 integer(IKG) :: destin(size(source, 1, IK), size(source, 2, IK))
5669 end function
5670#endif
5671
5672#if IK1_ENABLED
5673 PURE module function getMatCopy_RDP_RDP_XLD_AIO_IK1(dpack, source, spack, subset, doff, init) result(destin)
5674#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5675 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_AIO_IK1
5676#endif
5677 use pm_kind, only: IKG => IK1
5678 type(rdpack_type) , intent(in) :: dpack
5679 type(rdpack_type) , intent(in) :: spack
5680 type(lowDia_type) , intent(in) :: subset
5681 integer(IK) , intent(in) , optional :: doff
5682 integer(IKG) , intent(in) , optional :: init
5683 integer(IKG) , intent(in) :: source(:,:)
5684 integer(IKG) :: destin(size(source, 1, IK), size(source, 2, IK))
5685 end function
5686#endif
5687
5688 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5689
5690#if LK5_ENABLED
5691 PURE module function getMatCopy_RDP_RDP_XLD_AIO_LK5(dpack, source, spack, subset, doff, init) result(destin)
5692#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5693 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_AIO_LK5
5694#endif
5695 use pm_kind, only: LKG => LK5
5696 type(rdpack_type) , intent(in) :: dpack
5697 type(rdpack_type) , intent(in) :: spack
5698 type(lowDia_type) , intent(in) :: subset
5699 integer(IK) , intent(in) , optional :: doff
5700 logical(LKG) , intent(in) , optional :: init
5701 logical(LKG) , intent(in) :: source(:,:)
5702 logical(LKG) :: destin(size(source, 1, IK), size(source, 2, IK))
5703 end function
5704#endif
5705
5706#if LK4_ENABLED
5707 PURE module function getMatCopy_RDP_RDP_XLD_AIO_LK4(dpack, source, spack, subset, doff, init) result(destin)
5708#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5709 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_AIO_LK4
5710#endif
5711 use pm_kind, only: LKG => LK4
5712 type(rdpack_type) , intent(in) :: dpack
5713 type(rdpack_type) , intent(in) :: spack
5714 type(lowDia_type) , intent(in) :: subset
5715 integer(IK) , intent(in) , optional :: doff
5716 logical(LKG) , intent(in) , optional :: init
5717 logical(LKG) , intent(in) :: source(:,:)
5718 logical(LKG) :: destin(size(source, 1, IK), size(source, 2, IK))
5719 end function
5720#endif
5721
5722#if LK3_ENABLED
5723 PURE module function getMatCopy_RDP_RDP_XLD_AIO_LK3(dpack, source, spack, subset, doff, init) result(destin)
5724#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5725 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_AIO_LK3
5726#endif
5727 use pm_kind, only: LKG => LK3
5728 type(rdpack_type) , intent(in) :: dpack
5729 type(rdpack_type) , intent(in) :: spack
5730 type(lowDia_type) , intent(in) :: subset
5731 integer(IK) , intent(in) , optional :: doff
5732 logical(LKG) , intent(in) , optional :: init
5733 logical(LKG) , intent(in) :: source(:,:)
5734 logical(LKG) :: destin(size(source, 1, IK), size(source, 2, IK))
5735 end function
5736#endif
5737
5738#if LK2_ENABLED
5739 PURE module function getMatCopy_RDP_RDP_XLD_AIO_LK2(dpack, source, spack, subset, doff, init) result(destin)
5740#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5741 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_AIO_LK2
5742#endif
5743 use pm_kind, only: LKG => LK2
5744 type(rdpack_type) , intent(in) :: dpack
5745 type(rdpack_type) , intent(in) :: spack
5746 type(lowDia_type) , intent(in) :: subset
5747 integer(IK) , intent(in) , optional :: doff
5748 logical(LKG) , intent(in) , optional :: init
5749 logical(LKG) , intent(in) :: source(:,:)
5750 logical(LKG) :: destin(size(source, 1, IK), size(source, 2, IK))
5751 end function
5752#endif
5753
5754#if LK1_ENABLED
5755 PURE module function getMatCopy_RDP_RDP_XLD_AIO_LK1(dpack, source, spack, subset, doff, init) result(destin)
5756#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5757 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_AIO_LK1
5758#endif
5759 use pm_kind, only: LKG => LK1
5760 type(rdpack_type) , intent(in) :: dpack
5761 type(rdpack_type) , intent(in) :: spack
5762 type(lowDia_type) , intent(in) :: subset
5763 integer(IK) , intent(in) , optional :: doff
5764 logical(LKG) , intent(in) , optional :: init
5765 logical(LKG) , intent(in) :: source(:,:)
5766 logical(LKG) :: destin(size(source, 1, IK), size(source, 2, IK))
5767 end function
5768#endif
5769
5770 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5771
5772#if CK5_ENABLED
5773 PURE module function getMatCopy_RDP_RDP_XLD_AIO_CK5(dpack, source, spack, subset, doff, init) result(destin)
5774#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5775 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_AIO_CK5
5776#endif
5777 use pm_kind, only: CKG => CK5
5778 type(rdpack_type) , intent(in) :: dpack
5779 type(rdpack_type) , intent(in) :: spack
5780 type(lowDia_type) , intent(in) :: subset
5781 integer(IK) , intent(in) , optional :: doff
5782 complex(CKG) , intent(in) , optional :: init
5783 complex(CKG) , intent(in) :: source(:,:)
5784 complex(CKG) :: destin(size(source, 1, IK), size(source, 2, IK))
5785 end function
5786#endif
5787
5788#if CK4_ENABLED
5789 PURE module function getMatCopy_RDP_RDP_XLD_AIO_CK4(dpack, source, spack, subset, doff, init) result(destin)
5790#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5791 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_AIO_CK4
5792#endif
5793 use pm_kind, only: CKG => CK4
5794 type(rdpack_type) , intent(in) :: dpack
5795 type(rdpack_type) , intent(in) :: spack
5796 type(lowDia_type) , intent(in) :: subset
5797 integer(IK) , intent(in) , optional :: doff
5798 complex(CKG) , intent(in) , optional :: init
5799 complex(CKG) , intent(in) :: source(:,:)
5800 complex(CKG) :: destin(size(source, 1, IK), size(source, 2, IK))
5801 end function
5802#endif
5803
5804#if CK3_ENABLED
5805 PURE module function getMatCopy_RDP_RDP_XLD_AIO_CK3(dpack, source, spack, subset, doff, init) result(destin)
5806#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5807 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_AIO_CK3
5808#endif
5809 use pm_kind, only: CKG => CK3
5810 type(rdpack_type) , intent(in) :: dpack
5811 type(rdpack_type) , intent(in) :: spack
5812 type(lowDia_type) , intent(in) :: subset
5813 integer(IK) , intent(in) , optional :: doff
5814 complex(CKG) , intent(in) , optional :: init
5815 complex(CKG) , intent(in) :: source(:,:)
5816 complex(CKG) :: destin(size(source, 1, IK), size(source, 2, IK))
5817 end function
5818#endif
5819
5820#if CK2_ENABLED
5821 PURE module function getMatCopy_RDP_RDP_XLD_AIO_CK2(dpack, source, spack, subset, doff, init) result(destin)
5822#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5823 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_AIO_CK2
5824#endif
5825 use pm_kind, only: CKG => CK2
5826 type(rdpack_type) , intent(in) :: dpack
5827 type(rdpack_type) , intent(in) :: spack
5828 type(lowDia_type) , intent(in) :: subset
5829 integer(IK) , intent(in) , optional :: doff
5830 complex(CKG) , intent(in) , optional :: init
5831 complex(CKG) , intent(in) :: source(:,:)
5832 complex(CKG) :: destin(size(source, 1, IK), size(source, 2, IK))
5833 end function
5834#endif
5835
5836#if CK1_ENABLED
5837 PURE module function getMatCopy_RDP_RDP_XLD_AIO_CK1(dpack, source, spack, subset, doff, init) result(destin)
5838#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5839 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_AIO_CK1
5840#endif
5841 use pm_kind, only: CKG => CK1
5842 type(rdpack_type) , intent(in) :: dpack
5843 type(rdpack_type) , intent(in) :: spack
5844 type(lowDia_type) , intent(in) :: subset
5845 integer(IK) , intent(in) , optional :: doff
5846 complex(CKG) , intent(in) , optional :: init
5847 complex(CKG) , intent(in) :: source(:,:)
5848 complex(CKG) :: destin(size(source, 1, IK), size(source, 2, IK))
5849 end function
5850#endif
5851
5852 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5853
5854#if RK5_ENABLED
5855 PURE module function getMatCopy_RDP_RDP_XLD_AIO_RK5(dpack, source, spack, subset, doff, init) result(destin)
5856#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5857 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_AIO_RK5
5858#endif
5859 use pm_kind, only: RKG => RK5
5860 type(rdpack_type) , intent(in) :: dpack
5861 type(rdpack_type) , intent(in) :: spack
5862 type(lowDia_type) , intent(in) :: subset
5863 integer(IK) , intent(in) , optional :: doff
5864 real(RKG) , intent(in) , optional :: init
5865 real(RKG) , intent(in) :: source(:,:)
5866 real(RKG) :: destin(size(source, 1, IK), size(source, 2, IK))
5867 end function
5868#endif
5869
5870#if RK4_ENABLED
5871 PURE module function getMatCopy_RDP_RDP_XLD_AIO_RK4(dpack, source, spack, subset, doff, init) result(destin)
5872#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5873 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_AIO_RK4
5874#endif
5875 use pm_kind, only: RKG => RK4
5876 type(rdpack_type) , intent(in) :: dpack
5877 type(rdpack_type) , intent(in) :: spack
5878 type(lowDia_type) , intent(in) :: subset
5879 integer(IK) , intent(in) , optional :: doff
5880 real(RKG) , intent(in) , optional :: init
5881 real(RKG) , intent(in) :: source(:,:)
5882 real(RKG) :: destin(size(source, 1, IK), size(source, 2, IK))
5883 end function
5884#endif
5885
5886#if RK3_ENABLED
5887 PURE module function getMatCopy_RDP_RDP_XLD_AIO_RK3(dpack, source, spack, subset, doff, init) result(destin)
5888#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5889 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_AIO_RK3
5890#endif
5891 use pm_kind, only: RKG => RK3
5892 type(rdpack_type) , intent(in) :: dpack
5893 type(rdpack_type) , intent(in) :: spack
5894 type(lowDia_type) , intent(in) :: subset
5895 integer(IK) , intent(in) , optional :: doff
5896 real(RKG) , intent(in) , optional :: init
5897 real(RKG) , intent(in) :: source(:,:)
5898 real(RKG) :: destin(size(source, 1, IK), size(source, 2, IK))
5899 end function
5900#endif
5901
5902#if RK2_ENABLED
5903 PURE module function getMatCopy_RDP_RDP_XLD_AIO_RK2(dpack, source, spack, subset, doff, init) result(destin)
5904#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5905 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_AIO_RK2
5906#endif
5907 use pm_kind, only: RKG => RK2
5908 type(rdpack_type) , intent(in) :: dpack
5909 type(rdpack_type) , intent(in) :: spack
5910 type(lowDia_type) , intent(in) :: subset
5911 integer(IK) , intent(in) , optional :: doff
5912 real(RKG) , intent(in) , optional :: init
5913 real(RKG) , intent(in) :: source(:,:)
5914 real(RKG) :: destin(size(source, 1, IK), size(source, 2, IK))
5915 end function
5916#endif
5917
5918#if RK1_ENABLED
5919 PURE module function getMatCopy_RDP_RDP_XLD_AIO_RK1(dpack, source, spack, subset, doff, init) result(destin)
5920#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5921 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_AIO_RK1
5922#endif
5923 use pm_kind, only: RKG => RK1
5924 type(rdpack_type) , intent(in) :: dpack
5925 type(rdpack_type) , intent(in) :: spack
5926 type(lowDia_type) , intent(in) :: subset
5927 integer(IK) , intent(in) , optional :: doff
5928 real(RKG) , intent(in) , optional :: init
5929 real(RKG) , intent(in) :: source(:,:)
5930 real(RKG) :: destin(size(source, 1, IK), size(source, 2, IK))
5931 end function
5932#endif
5933
5934 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5935
5936 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5937 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5938 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5939
5940 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5941
5942#if SK5_ENABLED
5943 PURE module function getMatCopy_RDP_RDP_XLD_TSO_SK5(dpack, source, spack, subset, operation, doff, init) result(destin)
5944#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5945 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_TSO_SK5
5946#endif
5947 use pm_kind, only: SKG => SK5
5948 type(rdpack_type) , intent(in) :: dpack
5949 type(rdpack_type) , intent(in) :: spack
5950 type(lowDia_type) , intent(in) :: subset
5951 type(transSymm_type) , intent(in) :: operation
5952 integer(IK) , intent(in) , optional :: doff
5953 character(*,SKG) , intent(in) , optional :: init
5954 character(*,SKG) , intent(in) :: source(:,:)
5955 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
5956 end function
5957#endif
5958
5959#if SK4_ENABLED
5960 PURE module function getMatCopy_RDP_RDP_XLD_TSO_SK4(dpack, source, spack, subset, operation, doff, init) result(destin)
5961#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5962 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_TSO_SK4
5963#endif
5964 use pm_kind, only: SKG => SK4
5965 type(rdpack_type) , intent(in) :: dpack
5966 type(rdpack_type) , intent(in) :: spack
5967 type(lowDia_type) , intent(in) :: subset
5968 type(transSymm_type) , intent(in) :: operation
5969 integer(IK) , intent(in) , optional :: doff
5970 character(*,SKG) , intent(in) , optional :: init
5971 character(*,SKG) , intent(in) :: source(:,:)
5972 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
5973 end function
5974#endif
5975
5976#if SK3_ENABLED
5977 PURE module function getMatCopy_RDP_RDP_XLD_TSO_SK3(dpack, source, spack, subset, operation, doff, init) result(destin)
5978#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5979 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_TSO_SK3
5980#endif
5981 use pm_kind, only: SKG => SK3
5982 type(rdpack_type) , intent(in) :: dpack
5983 type(rdpack_type) , intent(in) :: spack
5984 type(lowDia_type) , intent(in) :: subset
5985 type(transSymm_type) , intent(in) :: operation
5986 integer(IK) , intent(in) , optional :: doff
5987 character(*,SKG) , intent(in) , optional :: init
5988 character(*,SKG) , intent(in) :: source(:,:)
5989 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
5990 end function
5991#endif
5992
5993#if SK2_ENABLED
5994 PURE module function getMatCopy_RDP_RDP_XLD_TSO_SK2(dpack, source, spack, subset, operation, doff, init) result(destin)
5995#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5996 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_TSO_SK2
5997#endif
5998 use pm_kind, only: SKG => SK2
5999 type(rdpack_type) , intent(in) :: dpack
6000 type(rdpack_type) , intent(in) :: spack
6001 type(lowDia_type) , intent(in) :: subset
6002 type(transSymm_type) , intent(in) :: operation
6003 integer(IK) , intent(in) , optional :: doff
6004 character(*,SKG) , intent(in) , optional :: init
6005 character(*,SKG) , intent(in) :: source(:,:)
6006 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
6007 end function
6008#endif
6009
6010#if SK1_ENABLED
6011 PURE module function getMatCopy_RDP_RDP_XLD_TSO_SK1(dpack, source, spack, subset, operation, doff, init) result(destin)
6012#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6013 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_TSO_SK1
6014#endif
6015 use pm_kind, only: SKG => SK1
6016 type(rdpack_type) , intent(in) :: dpack
6017 type(rdpack_type) , intent(in) :: spack
6018 type(lowDia_type) , intent(in) :: subset
6019 type(transSymm_type) , intent(in) :: operation
6020 integer(IK) , intent(in) , optional :: doff
6021 character(*,SKG) , intent(in) , optional :: init
6022 character(*,SKG) , intent(in) :: source(:,:)
6023 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
6024 end function
6025#endif
6026
6027 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6028
6029#if IK5_ENABLED
6030 PURE module function getMatCopy_RDP_RDP_XLD_TSO_IK5(dpack, source, spack, subset, operation, doff, init) result(destin)
6031#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6032 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_TSO_IK5
6033#endif
6034 use pm_kind, only: IKG => IK5
6035 type(rdpack_type) , intent(in) :: dpack
6036 type(rdpack_type) , intent(in) :: spack
6037 type(lowDia_type) , intent(in) :: subset
6038 type(transSymm_type) , intent(in) :: operation
6039 integer(IK) , intent(in) , optional :: doff
6040 integer(IKG) , intent(in) , optional :: init
6041 integer(IKG) , intent(in) :: source(:,:)
6042 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
6043 end function
6044#endif
6045
6046#if IK4_ENABLED
6047 PURE module function getMatCopy_RDP_RDP_XLD_TSO_IK4(dpack, source, spack, subset, operation, doff, init) result(destin)
6048#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6049 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_TSO_IK4
6050#endif
6051 use pm_kind, only: IKG => IK4
6052 type(rdpack_type) , intent(in) :: dpack
6053 type(rdpack_type) , intent(in) :: spack
6054 type(lowDia_type) , intent(in) :: subset
6055 type(transSymm_type) , intent(in) :: operation
6056 integer(IK) , intent(in) , optional :: doff
6057 integer(IKG) , intent(in) , optional :: init
6058 integer(IKG) , intent(in) :: source(:,:)
6059 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
6060 end function
6061#endif
6062
6063#if IK3_ENABLED
6064 PURE module function getMatCopy_RDP_RDP_XLD_TSO_IK3(dpack, source, spack, subset, operation, doff, init) result(destin)
6065#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6066 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_TSO_IK3
6067#endif
6068 use pm_kind, only: IKG => IK3
6069 type(rdpack_type) , intent(in) :: dpack
6070 type(rdpack_type) , intent(in) :: spack
6071 type(lowDia_type) , intent(in) :: subset
6072 type(transSymm_type) , intent(in) :: operation
6073 integer(IK) , intent(in) , optional :: doff
6074 integer(IKG) , intent(in) , optional :: init
6075 integer(IKG) , intent(in) :: source(:,:)
6076 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
6077 end function
6078#endif
6079
6080#if IK2_ENABLED
6081 PURE module function getMatCopy_RDP_RDP_XLD_TSO_IK2(dpack, source, spack, subset, operation, doff, init) result(destin)
6082#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6083 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_TSO_IK2
6084#endif
6085 use pm_kind, only: IKG => IK2
6086 type(rdpack_type) , intent(in) :: dpack
6087 type(rdpack_type) , intent(in) :: spack
6088 type(lowDia_type) , intent(in) :: subset
6089 type(transSymm_type) , intent(in) :: operation
6090 integer(IK) , intent(in) , optional :: doff
6091 integer(IKG) , intent(in) , optional :: init
6092 integer(IKG) , intent(in) :: source(:,:)
6093 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
6094 end function
6095#endif
6096
6097#if IK1_ENABLED
6098 PURE module function getMatCopy_RDP_RDP_XLD_TSO_IK1(dpack, source, spack, subset, operation, doff, init) result(destin)
6099#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6100 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_TSO_IK1
6101#endif
6102 use pm_kind, only: IKG => IK1
6103 type(rdpack_type) , intent(in) :: dpack
6104 type(rdpack_type) , intent(in) :: spack
6105 type(lowDia_type) , intent(in) :: subset
6106 type(transSymm_type) , intent(in) :: operation
6107 integer(IK) , intent(in) , optional :: doff
6108 integer(IKG) , intent(in) , optional :: init
6109 integer(IKG) , intent(in) :: source(:,:)
6110 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
6111 end function
6112#endif
6113
6114 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6115
6116#if LK5_ENABLED
6117 PURE module function getMatCopy_RDP_RDP_XLD_TSO_LK5(dpack, source, spack, subset, operation, doff, init) result(destin)
6118#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6119 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_TSO_LK5
6120#endif
6121 use pm_kind, only: LKG => LK5
6122 type(rdpack_type) , intent(in) :: dpack
6123 type(rdpack_type) , intent(in) :: spack
6124 type(lowDia_type) , intent(in) :: subset
6125 type(transSymm_type) , intent(in) :: operation
6126 integer(IK) , intent(in) , optional :: doff
6127 logical(LKG) , intent(in) , optional :: init
6128 logical(LKG) , intent(in) :: source(:,:)
6129 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
6130 end function
6131#endif
6132
6133#if LK4_ENABLED
6134 PURE module function getMatCopy_RDP_RDP_XLD_TSO_LK4(dpack, source, spack, subset, operation, doff, init) result(destin)
6135#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6136 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_TSO_LK4
6137#endif
6138 use pm_kind, only: LKG => LK4
6139 type(rdpack_type) , intent(in) :: dpack
6140 type(rdpack_type) , intent(in) :: spack
6141 type(lowDia_type) , intent(in) :: subset
6142 type(transSymm_type) , intent(in) :: operation
6143 integer(IK) , intent(in) , optional :: doff
6144 logical(LKG) , intent(in) , optional :: init
6145 logical(LKG) , intent(in) :: source(:,:)
6146 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
6147 end function
6148#endif
6149
6150#if LK3_ENABLED
6151 PURE module function getMatCopy_RDP_RDP_XLD_TSO_LK3(dpack, source, spack, subset, operation, doff, init) result(destin)
6152#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6153 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_TSO_LK3
6154#endif
6155 use pm_kind, only: LKG => LK3
6156 type(rdpack_type) , intent(in) :: dpack
6157 type(rdpack_type) , intent(in) :: spack
6158 type(lowDia_type) , intent(in) :: subset
6159 type(transSymm_type) , intent(in) :: operation
6160 integer(IK) , intent(in) , optional :: doff
6161 logical(LKG) , intent(in) , optional :: init
6162 logical(LKG) , intent(in) :: source(:,:)
6163 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
6164 end function
6165#endif
6166
6167#if LK2_ENABLED
6168 PURE module function getMatCopy_RDP_RDP_XLD_TSO_LK2(dpack, source, spack, subset, operation, doff, init) result(destin)
6169#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6170 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_TSO_LK2
6171#endif
6172 use pm_kind, only: LKG => LK2
6173 type(rdpack_type) , intent(in) :: dpack
6174 type(rdpack_type) , intent(in) :: spack
6175 type(lowDia_type) , intent(in) :: subset
6176 type(transSymm_type) , intent(in) :: operation
6177 integer(IK) , intent(in) , optional :: doff
6178 logical(LKG) , intent(in) , optional :: init
6179 logical(LKG) , intent(in) :: source(:,:)
6180 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
6181 end function
6182#endif
6183
6184#if LK1_ENABLED
6185 PURE module function getMatCopy_RDP_RDP_XLD_TSO_LK1(dpack, source, spack, subset, operation, doff, init) result(destin)
6186#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6187 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_TSO_LK1
6188#endif
6189 use pm_kind, only: LKG => LK1
6190 type(rdpack_type) , intent(in) :: dpack
6191 type(rdpack_type) , intent(in) :: spack
6192 type(lowDia_type) , intent(in) :: subset
6193 type(transSymm_type) , intent(in) :: operation
6194 integer(IK) , intent(in) , optional :: doff
6195 logical(LKG) , intent(in) , optional :: init
6196 logical(LKG) , intent(in) :: source(:,:)
6197 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
6198 end function
6199#endif
6200
6201 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6202
6203#if CK5_ENABLED
6204 PURE module function getMatCopy_RDP_RDP_XLD_TSO_CK5(dpack, source, spack, subset, operation, doff, init) result(destin)
6205#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6206 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_TSO_CK5
6207#endif
6208 use pm_kind, only: CKG => CK5
6209 type(rdpack_type) , intent(in) :: dpack
6210 type(rdpack_type) , intent(in) :: spack
6211 type(lowDia_type) , intent(in) :: subset
6212 type(transSymm_type) , intent(in) :: operation
6213 integer(IK) , intent(in) , optional :: doff
6214 complex(CKG) , intent(in) , optional :: init
6215 complex(CKG) , intent(in) :: source(:,:)
6216 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
6217 end function
6218#endif
6219
6220#if CK4_ENABLED
6221 PURE module function getMatCopy_RDP_RDP_XLD_TSO_CK4(dpack, source, spack, subset, operation, doff, init) result(destin)
6222#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6223 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_TSO_CK4
6224#endif
6225 use pm_kind, only: CKG => CK4
6226 type(rdpack_type) , intent(in) :: dpack
6227 type(rdpack_type) , intent(in) :: spack
6228 type(lowDia_type) , intent(in) :: subset
6229 type(transSymm_type) , intent(in) :: operation
6230 integer(IK) , intent(in) , optional :: doff
6231 complex(CKG) , intent(in) , optional :: init
6232 complex(CKG) , intent(in) :: source(:,:)
6233 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
6234 end function
6235#endif
6236
6237#if CK3_ENABLED
6238 PURE module function getMatCopy_RDP_RDP_XLD_TSO_CK3(dpack, source, spack, subset, operation, doff, init) result(destin)
6239#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6240 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_TSO_CK3
6241#endif
6242 use pm_kind, only: CKG => CK3
6243 type(rdpack_type) , intent(in) :: dpack
6244 type(rdpack_type) , intent(in) :: spack
6245 type(lowDia_type) , intent(in) :: subset
6246 type(transSymm_type) , intent(in) :: operation
6247 integer(IK) , intent(in) , optional :: doff
6248 complex(CKG) , intent(in) , optional :: init
6249 complex(CKG) , intent(in) :: source(:,:)
6250 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
6251 end function
6252#endif
6253
6254#if CK2_ENABLED
6255 PURE module function getMatCopy_RDP_RDP_XLD_TSO_CK2(dpack, source, spack, subset, operation, doff, init) result(destin)
6256#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6257 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_TSO_CK2
6258#endif
6259 use pm_kind, only: CKG => CK2
6260 type(rdpack_type) , intent(in) :: dpack
6261 type(rdpack_type) , intent(in) :: spack
6262 type(lowDia_type) , intent(in) :: subset
6263 type(transSymm_type) , intent(in) :: operation
6264 integer(IK) , intent(in) , optional :: doff
6265 complex(CKG) , intent(in) , optional :: init
6266 complex(CKG) , intent(in) :: source(:,:)
6267 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
6268 end function
6269#endif
6270
6271#if CK1_ENABLED
6272 PURE module function getMatCopy_RDP_RDP_XLD_TSO_CK1(dpack, source, spack, subset, operation, doff, init) result(destin)
6273#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6274 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_TSO_CK1
6275#endif
6276 use pm_kind, only: CKG => CK1
6277 type(rdpack_type) , intent(in) :: dpack
6278 type(rdpack_type) , intent(in) :: spack
6279 type(lowDia_type) , intent(in) :: subset
6280 type(transSymm_type) , intent(in) :: operation
6281 integer(IK) , intent(in) , optional :: doff
6282 complex(CKG) , intent(in) , optional :: init
6283 complex(CKG) , intent(in) :: source(:,:)
6284 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
6285 end function
6286#endif
6287
6288 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6289
6290#if RK5_ENABLED
6291 PURE module function getMatCopy_RDP_RDP_XLD_TSO_RK5(dpack, source, spack, subset, operation, doff, init) result(destin)
6292#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6293 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_TSO_RK5
6294#endif
6295 use pm_kind, only: RKG => RK5
6296 type(rdpack_type) , intent(in) :: dpack
6297 type(rdpack_type) , intent(in) :: spack
6298 type(lowDia_type) , intent(in) :: subset
6299 type(transSymm_type) , intent(in) :: operation
6300 integer(IK) , intent(in) , optional :: doff
6301 real(RKG) , intent(in) , optional :: init
6302 real(RKG) , intent(in) :: source(:,:)
6303 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
6304 end function
6305#endif
6306
6307#if RK4_ENABLED
6308 PURE module function getMatCopy_RDP_RDP_XLD_TSO_RK4(dpack, source, spack, subset, operation, doff, init) result(destin)
6309#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6310 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_TSO_RK4
6311#endif
6312 use pm_kind, only: RKG => RK4
6313 type(rdpack_type) , intent(in) :: dpack
6314 type(rdpack_type) , intent(in) :: spack
6315 type(lowDia_type) , intent(in) :: subset
6316 type(transSymm_type) , intent(in) :: operation
6317 integer(IK) , intent(in) , optional :: doff
6318 real(RKG) , intent(in) , optional :: init
6319 real(RKG) , intent(in) :: source(:,:)
6320 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
6321 end function
6322#endif
6323
6324#if RK3_ENABLED
6325 PURE module function getMatCopy_RDP_RDP_XLD_TSO_RK3(dpack, source, spack, subset, operation, doff, init) result(destin)
6326#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6327 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_TSO_RK3
6328#endif
6329 use pm_kind, only: RKG => RK3
6330 type(rdpack_type) , intent(in) :: dpack
6331 type(rdpack_type) , intent(in) :: spack
6332 type(lowDia_type) , intent(in) :: subset
6333 type(transSymm_type) , intent(in) :: operation
6334 integer(IK) , intent(in) , optional :: doff
6335 real(RKG) , intent(in) , optional :: init
6336 real(RKG) , intent(in) :: source(:,:)
6337 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
6338 end function
6339#endif
6340
6341#if RK2_ENABLED
6342 PURE module function getMatCopy_RDP_RDP_XLD_TSO_RK2(dpack, source, spack, subset, operation, doff, init) result(destin)
6343#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6344 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_TSO_RK2
6345#endif
6346 use pm_kind, only: RKG => RK2
6347 type(rdpack_type) , intent(in) :: dpack
6348 type(rdpack_type) , intent(in) :: spack
6349 type(lowDia_type) , intent(in) :: subset
6350 type(transSymm_type) , intent(in) :: operation
6351 integer(IK) , intent(in) , optional :: doff
6352 real(RKG) , intent(in) , optional :: init
6353 real(RKG) , intent(in) :: source(:,:)
6354 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
6355 end function
6356#endif
6357
6358#if RK1_ENABLED
6359 PURE module function getMatCopy_RDP_RDP_XLD_TSO_RK1(dpack, source, spack, subset, operation, doff, init) result(destin)
6360#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6361 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_TSO_RK1
6362#endif
6363 use pm_kind, only: RKG => RK1
6364 type(rdpack_type) , intent(in) :: dpack
6365 type(rdpack_type) , intent(in) :: spack
6366 type(lowDia_type) , intent(in) :: subset
6367 type(transSymm_type) , intent(in) :: operation
6368 integer(IK) , intent(in) , optional :: doff
6369 real(RKG) , intent(in) , optional :: init
6370 real(RKG) , intent(in) :: source(:,:)
6371 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
6372 end function
6373#endif
6374
6375 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6376
6377 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6378 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6379 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6380
6381 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6382
6383#if SK5_ENABLED
6384 PURE module function getMatCopy_RDP_RDP_XLD_THO_SK5(dpack, source, spack, subset, operation, doff, init) result(destin)
6385#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6386 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_THO_SK5
6387#endif
6388 use pm_kind, only: SKG => SK5
6389 type(rdpack_type) , intent(in) :: dpack
6390 type(rdpack_type) , intent(in) :: spack
6391 type(lowDia_type) , intent(in) :: subset
6392 type(transHerm_type) , intent(in) :: operation
6393 integer(IK) , intent(in) , optional :: doff
6394 character(*,SKG) , intent(in) , optional :: init
6395 character(*,SKG) , intent(in) :: source(:,:)
6396 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
6397 end function
6398#endif
6399
6400#if SK4_ENABLED
6401 PURE module function getMatCopy_RDP_RDP_XLD_THO_SK4(dpack, source, spack, subset, operation, doff, init) result(destin)
6402#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6403 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_THO_SK4
6404#endif
6405 use pm_kind, only: SKG => SK4
6406 type(rdpack_type) , intent(in) :: dpack
6407 type(rdpack_type) , intent(in) :: spack
6408 type(lowDia_type) , intent(in) :: subset
6409 type(transHerm_type) , intent(in) :: operation
6410 integer(IK) , intent(in) , optional :: doff
6411 character(*,SKG) , intent(in) , optional :: init
6412 character(*,SKG) , intent(in) :: source(:,:)
6413 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
6414 end function
6415#endif
6416
6417#if SK3_ENABLED
6418 PURE module function getMatCopy_RDP_RDP_XLD_THO_SK3(dpack, source, spack, subset, operation, doff, init) result(destin)
6419#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6420 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_THO_SK3
6421#endif
6422 use pm_kind, only: SKG => SK3
6423 type(rdpack_type) , intent(in) :: dpack
6424 type(rdpack_type) , intent(in) :: spack
6425 type(lowDia_type) , intent(in) :: subset
6426 type(transHerm_type) , intent(in) :: operation
6427 integer(IK) , intent(in) , optional :: doff
6428 character(*,SKG) , intent(in) , optional :: init
6429 character(*,SKG) , intent(in) :: source(:,:)
6430 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
6431 end function
6432#endif
6433
6434#if SK2_ENABLED
6435 PURE module function getMatCopy_RDP_RDP_XLD_THO_SK2(dpack, source, spack, subset, operation, doff, init) result(destin)
6436#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6437 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_THO_SK2
6438#endif
6439 use pm_kind, only: SKG => SK2
6440 type(rdpack_type) , intent(in) :: dpack
6441 type(rdpack_type) , intent(in) :: spack
6442 type(lowDia_type) , intent(in) :: subset
6443 type(transHerm_type) , intent(in) :: operation
6444 integer(IK) , intent(in) , optional :: doff
6445 character(*,SKG) , intent(in) , optional :: init
6446 character(*,SKG) , intent(in) :: source(:,:)
6447 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
6448 end function
6449#endif
6450
6451#if SK1_ENABLED
6452 PURE module function getMatCopy_RDP_RDP_XLD_THO_SK1(dpack, source, spack, subset, operation, doff, init) result(destin)
6453#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6454 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_THO_SK1
6455#endif
6456 use pm_kind, only: SKG => SK1
6457 type(rdpack_type) , intent(in) :: dpack
6458 type(rdpack_type) , intent(in) :: spack
6459 type(lowDia_type) , intent(in) :: subset
6460 type(transHerm_type) , intent(in) :: operation
6461 integer(IK) , intent(in) , optional :: doff
6462 character(*,SKG) , intent(in) , optional :: init
6463 character(*,SKG) , intent(in) :: source(:,:)
6464 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
6465 end function
6466#endif
6467
6468 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6469
6470#if IK5_ENABLED
6471 PURE module function getMatCopy_RDP_RDP_XLD_THO_IK5(dpack, source, spack, subset, operation, doff, init) result(destin)
6472#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6473 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_THO_IK5
6474#endif
6475 use pm_kind, only: IKG => IK5
6476 type(rdpack_type) , intent(in) :: dpack
6477 type(rdpack_type) , intent(in) :: spack
6478 type(lowDia_type) , intent(in) :: subset
6479 type(transHerm_type) , intent(in) :: operation
6480 integer(IK) , intent(in) , optional :: doff
6481 integer(IKG) , intent(in) , optional :: init
6482 integer(IKG) , intent(in) :: source(:,:)
6483 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
6484 end function
6485#endif
6486
6487#if IK4_ENABLED
6488 PURE module function getMatCopy_RDP_RDP_XLD_THO_IK4(dpack, source, spack, subset, operation, doff, init) result(destin)
6489#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6490 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_THO_IK4
6491#endif
6492 use pm_kind, only: IKG => IK4
6493 type(rdpack_type) , intent(in) :: dpack
6494 type(rdpack_type) , intent(in) :: spack
6495 type(lowDia_type) , intent(in) :: subset
6496 type(transHerm_type) , intent(in) :: operation
6497 integer(IK) , intent(in) , optional :: doff
6498 integer(IKG) , intent(in) , optional :: init
6499 integer(IKG) , intent(in) :: source(:,:)
6500 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
6501 end function
6502#endif
6503
6504#if IK3_ENABLED
6505 PURE module function getMatCopy_RDP_RDP_XLD_THO_IK3(dpack, source, spack, subset, operation, doff, init) result(destin)
6506#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6507 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_THO_IK3
6508#endif
6509 use pm_kind, only: IKG => IK3
6510 type(rdpack_type) , intent(in) :: dpack
6511 type(rdpack_type) , intent(in) :: spack
6512 type(lowDia_type) , intent(in) :: subset
6513 type(transHerm_type) , intent(in) :: operation
6514 integer(IK) , intent(in) , optional :: doff
6515 integer(IKG) , intent(in) , optional :: init
6516 integer(IKG) , intent(in) :: source(:,:)
6517 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
6518 end function
6519#endif
6520
6521#if IK2_ENABLED
6522 PURE module function getMatCopy_RDP_RDP_XLD_THO_IK2(dpack, source, spack, subset, operation, doff, init) result(destin)
6523#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6524 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_THO_IK2
6525#endif
6526 use pm_kind, only: IKG => IK2
6527 type(rdpack_type) , intent(in) :: dpack
6528 type(rdpack_type) , intent(in) :: spack
6529 type(lowDia_type) , intent(in) :: subset
6530 type(transHerm_type) , intent(in) :: operation
6531 integer(IK) , intent(in) , optional :: doff
6532 integer(IKG) , intent(in) , optional :: init
6533 integer(IKG) , intent(in) :: source(:,:)
6534 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
6535 end function
6536#endif
6537
6538#if IK1_ENABLED
6539 PURE module function getMatCopy_RDP_RDP_XLD_THO_IK1(dpack, source, spack, subset, operation, doff, init) result(destin)
6540#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6541 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_THO_IK1
6542#endif
6543 use pm_kind, only: IKG => IK1
6544 type(rdpack_type) , intent(in) :: dpack
6545 type(rdpack_type) , intent(in) :: spack
6546 type(lowDia_type) , intent(in) :: subset
6547 type(transHerm_type) , intent(in) :: operation
6548 integer(IK) , intent(in) , optional :: doff
6549 integer(IKG) , intent(in) , optional :: init
6550 integer(IKG) , intent(in) :: source(:,:)
6551 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
6552 end function
6553#endif
6554
6555 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6556
6557#if LK5_ENABLED
6558 PURE module function getMatCopy_RDP_RDP_XLD_THO_LK5(dpack, source, spack, subset, operation, doff, init) result(destin)
6559#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6560 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_THO_LK5
6561#endif
6562 use pm_kind, only: LKG => LK5
6563 type(rdpack_type) , intent(in) :: dpack
6564 type(rdpack_type) , intent(in) :: spack
6565 type(lowDia_type) , intent(in) :: subset
6566 type(transHerm_type) , intent(in) :: operation
6567 integer(IK) , intent(in) , optional :: doff
6568 logical(LKG) , intent(in) , optional :: init
6569 logical(LKG) , intent(in) :: source(:,:)
6570 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
6571 end function
6572#endif
6573
6574#if LK4_ENABLED
6575 PURE module function getMatCopy_RDP_RDP_XLD_THO_LK4(dpack, source, spack, subset, operation, doff, init) result(destin)
6576#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6577 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_THO_LK4
6578#endif
6579 use pm_kind, only: LKG => LK4
6580 type(rdpack_type) , intent(in) :: dpack
6581 type(rdpack_type) , intent(in) :: spack
6582 type(lowDia_type) , intent(in) :: subset
6583 type(transHerm_type) , intent(in) :: operation
6584 integer(IK) , intent(in) , optional :: doff
6585 logical(LKG) , intent(in) , optional :: init
6586 logical(LKG) , intent(in) :: source(:,:)
6587 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
6588 end function
6589#endif
6590
6591#if LK3_ENABLED
6592 PURE module function getMatCopy_RDP_RDP_XLD_THO_LK3(dpack, source, spack, subset, operation, doff, init) result(destin)
6593#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6594 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_THO_LK3
6595#endif
6596 use pm_kind, only: LKG => LK3
6597 type(rdpack_type) , intent(in) :: dpack
6598 type(rdpack_type) , intent(in) :: spack
6599 type(lowDia_type) , intent(in) :: subset
6600 type(transHerm_type) , intent(in) :: operation
6601 integer(IK) , intent(in) , optional :: doff
6602 logical(LKG) , intent(in) , optional :: init
6603 logical(LKG) , intent(in) :: source(:,:)
6604 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
6605 end function
6606#endif
6607
6608#if LK2_ENABLED
6609 PURE module function getMatCopy_RDP_RDP_XLD_THO_LK2(dpack, source, spack, subset, operation, doff, init) result(destin)
6610#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6611 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_THO_LK2
6612#endif
6613 use pm_kind, only: LKG => LK2
6614 type(rdpack_type) , intent(in) :: dpack
6615 type(rdpack_type) , intent(in) :: spack
6616 type(lowDia_type) , intent(in) :: subset
6617 type(transHerm_type) , intent(in) :: operation
6618 integer(IK) , intent(in) , optional :: doff
6619 logical(LKG) , intent(in) , optional :: init
6620 logical(LKG) , intent(in) :: source(:,:)
6621 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
6622 end function
6623#endif
6624
6625#if LK1_ENABLED
6626 PURE module function getMatCopy_RDP_RDP_XLD_THO_LK1(dpack, source, spack, subset, operation, doff, init) result(destin)
6627#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6628 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_THO_LK1
6629#endif
6630 use pm_kind, only: LKG => LK1
6631 type(rdpack_type) , intent(in) :: dpack
6632 type(rdpack_type) , intent(in) :: spack
6633 type(lowDia_type) , intent(in) :: subset
6634 type(transHerm_type) , intent(in) :: operation
6635 integer(IK) , intent(in) , optional :: doff
6636 logical(LKG) , intent(in) , optional :: init
6637 logical(LKG) , intent(in) :: source(:,:)
6638 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
6639 end function
6640#endif
6641
6642 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6643
6644#if CK5_ENABLED
6645 PURE module function getMatCopy_RDP_RDP_XLD_THO_CK5(dpack, source, spack, subset, operation, doff, init) result(destin)
6646#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6647 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_THO_CK5
6648#endif
6649 use pm_kind, only: CKG => CK5
6650 type(rdpack_type) , intent(in) :: dpack
6651 type(rdpack_type) , intent(in) :: spack
6652 type(lowDia_type) , intent(in) :: subset
6653 type(transHerm_type) , intent(in) :: operation
6654 integer(IK) , intent(in) , optional :: doff
6655 complex(CKG) , intent(in) , optional :: init
6656 complex(CKG) , intent(in) :: source(:,:)
6657 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
6658 end function
6659#endif
6660
6661#if CK4_ENABLED
6662 PURE module function getMatCopy_RDP_RDP_XLD_THO_CK4(dpack, source, spack, subset, operation, doff, init) result(destin)
6663#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6664 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_THO_CK4
6665#endif
6666 use pm_kind, only: CKG => CK4
6667 type(rdpack_type) , intent(in) :: dpack
6668 type(rdpack_type) , intent(in) :: spack
6669 type(lowDia_type) , intent(in) :: subset
6670 type(transHerm_type) , intent(in) :: operation
6671 integer(IK) , intent(in) , optional :: doff
6672 complex(CKG) , intent(in) , optional :: init
6673 complex(CKG) , intent(in) :: source(:,:)
6674 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
6675 end function
6676#endif
6677
6678#if CK3_ENABLED
6679 PURE module function getMatCopy_RDP_RDP_XLD_THO_CK3(dpack, source, spack, subset, operation, doff, init) result(destin)
6680#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6681 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_THO_CK3
6682#endif
6683 use pm_kind, only: CKG => CK3
6684 type(rdpack_type) , intent(in) :: dpack
6685 type(rdpack_type) , intent(in) :: spack
6686 type(lowDia_type) , intent(in) :: subset
6687 type(transHerm_type) , intent(in) :: operation
6688 integer(IK) , intent(in) , optional :: doff
6689 complex(CKG) , intent(in) , optional :: init
6690 complex(CKG) , intent(in) :: source(:,:)
6691 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
6692 end function
6693#endif
6694
6695#if CK2_ENABLED
6696 PURE module function getMatCopy_RDP_RDP_XLD_THO_CK2(dpack, source, spack, subset, operation, doff, init) result(destin)
6697#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6698 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_THO_CK2
6699#endif
6700 use pm_kind, only: CKG => CK2
6701 type(rdpack_type) , intent(in) :: dpack
6702 type(rdpack_type) , intent(in) :: spack
6703 type(lowDia_type) , intent(in) :: subset
6704 type(transHerm_type) , intent(in) :: operation
6705 integer(IK) , intent(in) , optional :: doff
6706 complex(CKG) , intent(in) , optional :: init
6707 complex(CKG) , intent(in) :: source(:,:)
6708 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
6709 end function
6710#endif
6711
6712#if CK1_ENABLED
6713 PURE module function getMatCopy_RDP_RDP_XLD_THO_CK1(dpack, source, spack, subset, operation, doff, init) result(destin)
6714#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6715 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_THO_CK1
6716#endif
6717 use pm_kind, only: CKG => CK1
6718 type(rdpack_type) , intent(in) :: dpack
6719 type(rdpack_type) , intent(in) :: spack
6720 type(lowDia_type) , intent(in) :: subset
6721 type(transHerm_type) , intent(in) :: operation
6722 integer(IK) , intent(in) , optional :: doff
6723 complex(CKG) , intent(in) , optional :: init
6724 complex(CKG) , intent(in) :: source(:,:)
6725 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
6726 end function
6727#endif
6728
6729 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6730
6731#if RK5_ENABLED
6732 PURE module function getMatCopy_RDP_RDP_XLD_THO_RK5(dpack, source, spack, subset, operation, doff, init) result(destin)
6733#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6734 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_THO_RK5
6735#endif
6736 use pm_kind, only: RKG => RK5
6737 type(rdpack_type) , intent(in) :: dpack
6738 type(rdpack_type) , intent(in) :: spack
6739 type(lowDia_type) , intent(in) :: subset
6740 type(transHerm_type) , intent(in) :: operation
6741 integer(IK) , intent(in) , optional :: doff
6742 real(RKG) , intent(in) , optional :: init
6743 real(RKG) , intent(in) :: source(:,:)
6744 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
6745 end function
6746#endif
6747
6748#if RK4_ENABLED
6749 PURE module function getMatCopy_RDP_RDP_XLD_THO_RK4(dpack, source, spack, subset, operation, doff, init) result(destin)
6750#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6751 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_THO_RK4
6752#endif
6753 use pm_kind, only: RKG => RK4
6754 type(rdpack_type) , intent(in) :: dpack
6755 type(rdpack_type) , intent(in) :: spack
6756 type(lowDia_type) , intent(in) :: subset
6757 type(transHerm_type) , intent(in) :: operation
6758 integer(IK) , intent(in) , optional :: doff
6759 real(RKG) , intent(in) , optional :: init
6760 real(RKG) , intent(in) :: source(:,:)
6761 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
6762 end function
6763#endif
6764
6765#if RK3_ENABLED
6766 PURE module function getMatCopy_RDP_RDP_XLD_THO_RK3(dpack, source, spack, subset, operation, doff, init) result(destin)
6767#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6768 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_THO_RK3
6769#endif
6770 use pm_kind, only: RKG => RK3
6771 type(rdpack_type) , intent(in) :: dpack
6772 type(rdpack_type) , intent(in) :: spack
6773 type(lowDia_type) , intent(in) :: subset
6774 type(transHerm_type) , intent(in) :: operation
6775 integer(IK) , intent(in) , optional :: doff
6776 real(RKG) , intent(in) , optional :: init
6777 real(RKG) , intent(in) :: source(:,:)
6778 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
6779 end function
6780#endif
6781
6782#if RK2_ENABLED
6783 PURE module function getMatCopy_RDP_RDP_XLD_THO_RK2(dpack, source, spack, subset, operation, doff, init) result(destin)
6784#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6785 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_THO_RK2
6786#endif
6787 use pm_kind, only: RKG => RK2
6788 type(rdpack_type) , intent(in) :: dpack
6789 type(rdpack_type) , intent(in) :: spack
6790 type(lowDia_type) , intent(in) :: subset
6791 type(transHerm_type) , intent(in) :: operation
6792 integer(IK) , intent(in) , optional :: doff
6793 real(RKG) , intent(in) , optional :: init
6794 real(RKG) , intent(in) :: source(:,:)
6795 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
6796 end function
6797#endif
6798
6799#if RK1_ENABLED
6800 PURE module function getMatCopy_RDP_RDP_XLD_THO_RK1(dpack, source, spack, subset, operation, doff, init) result(destin)
6801#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6802 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_XLD_THO_RK1
6803#endif
6804 use pm_kind, only: RKG => RK1
6805 type(rdpack_type) , intent(in) :: dpack
6806 type(rdpack_type) , intent(in) :: spack
6807 type(lowDia_type) , intent(in) :: subset
6808 type(transHerm_type) , intent(in) :: operation
6809 integer(IK) , intent(in) , optional :: doff
6810 real(RKG) , intent(in) , optional :: init
6811 real(RKG) , intent(in) :: source(:,:)
6812 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
6813 end function
6814#endif
6815
6816 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6817
6818 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6819 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6820 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6821
6822 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6823 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6824 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6825
6826 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6827
6828#if SK5_ENABLED
6829 PURE module function getMatCopy_RDP_RDP_ULX_AIO_SK5(dpack, source, spack, subset, doff, init) result(destin)
6830#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6831 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_AIO_SK5
6832#endif
6833 use pm_kind, only: SKG => SK5
6834 type(rdpack_type) , intent(in) :: dpack
6835 type(rdpack_type) , intent(in) :: spack
6836 type(uppLow_type) , intent(in) :: subset
6837 integer(IK) , intent(in) , optional :: doff
6838 character(*,SKG) , intent(in) , optional :: init
6839 character(*,SKG) , intent(in) :: source(:,:)
6840 character(len(source,IK),SKG) :: destin(size(source, 1, IK), size(source, 2, IK))
6841 end function
6842#endif
6843
6844#if SK4_ENABLED
6845 PURE module function getMatCopy_RDP_RDP_ULX_AIO_SK4(dpack, source, spack, subset, doff, init) result(destin)
6846#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6847 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_AIO_SK4
6848#endif
6849 use pm_kind, only: SKG => SK4
6850 type(rdpack_type) , intent(in) :: dpack
6851 type(rdpack_type) , intent(in) :: spack
6852 type(uppLow_type) , intent(in) :: subset
6853 integer(IK) , intent(in) , optional :: doff
6854 character(*,SKG) , intent(in) , optional :: init
6855 character(*,SKG) , intent(in) :: source(:,:)
6856 character(len(source,IK),SKG) :: destin(size(source, 1, IK), size(source, 2, IK))
6857 end function
6858#endif
6859
6860#if SK3_ENABLED
6861 PURE module function getMatCopy_RDP_RDP_ULX_AIO_SK3(dpack, source, spack, subset, doff, init) result(destin)
6862#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6863 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_AIO_SK3
6864#endif
6865 use pm_kind, only: SKG => SK3
6866 type(rdpack_type) , intent(in) :: dpack
6867 type(rdpack_type) , intent(in) :: spack
6868 type(uppLow_type) , intent(in) :: subset
6869 integer(IK) , intent(in) , optional :: doff
6870 character(*,SKG) , intent(in) , optional :: init
6871 character(*,SKG) , intent(in) :: source(:,:)
6872 character(len(source,IK),SKG) :: destin(size(source, 1, IK), size(source, 2, IK))
6873 end function
6874#endif
6875
6876#if SK2_ENABLED
6877 PURE module function getMatCopy_RDP_RDP_ULX_AIO_SK2(dpack, source, spack, subset, doff, init) result(destin)
6878#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6879 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_AIO_SK2
6880#endif
6881 use pm_kind, only: SKG => SK2
6882 type(rdpack_type) , intent(in) :: dpack
6883 type(rdpack_type) , intent(in) :: spack
6884 type(uppLow_type) , intent(in) :: subset
6885 integer(IK) , intent(in) , optional :: doff
6886 character(*,SKG) , intent(in) , optional :: init
6887 character(*,SKG) , intent(in) :: source(:,:)
6888 character(len(source,IK),SKG) :: destin(size(source, 1, IK), size(source, 2, IK))
6889 end function
6890#endif
6891
6892#if SK1_ENABLED
6893 PURE module function getMatCopy_RDP_RDP_ULX_AIO_SK1(dpack, source, spack, subset, doff, init) result(destin)
6894#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6895 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_AIO_SK1
6896#endif
6897 use pm_kind, only: SKG => SK1
6898 type(rdpack_type) , intent(in) :: dpack
6899 type(rdpack_type) , intent(in) :: spack
6900 type(uppLow_type) , intent(in) :: subset
6901 integer(IK) , intent(in) , optional :: doff
6902 character(*,SKG) , intent(in) , optional :: init
6903 character(*,SKG) , intent(in) :: source(:,:)
6904 character(len(source,IK),SKG) :: destin(size(source, 1, IK), size(source, 2, IK))
6905 end function
6906#endif
6907
6908 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6909
6910#if IK5_ENABLED
6911 PURE module function getMatCopy_RDP_RDP_ULX_AIO_IK5(dpack, source, spack, subset, doff, init) result(destin)
6912#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6913 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_AIO_IK5
6914#endif
6915 use pm_kind, only: IKG => IK5
6916 type(rdpack_type) , intent(in) :: dpack
6917 type(rdpack_type) , intent(in) :: spack
6918 type(uppLow_type) , intent(in) :: subset
6919 integer(IK) , intent(in) , optional :: doff
6920 integer(IKG) , intent(in) , optional :: init
6921 integer(IKG) , intent(in) :: source(:,:)
6922 integer(IKG) :: destin(size(source, 1, IK), size(source, 2, IK))
6923 end function
6924#endif
6925
6926#if IK4_ENABLED
6927 PURE module function getMatCopy_RDP_RDP_ULX_AIO_IK4(dpack, source, spack, subset, doff, init) result(destin)
6928#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6929 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_AIO_IK4
6930#endif
6931 use pm_kind, only: IKG => IK4
6932 type(rdpack_type) , intent(in) :: dpack
6933 type(rdpack_type) , intent(in) :: spack
6934 type(uppLow_type) , intent(in) :: subset
6935 integer(IK) , intent(in) , optional :: doff
6936 integer(IKG) , intent(in) , optional :: init
6937 integer(IKG) , intent(in) :: source(:,:)
6938 integer(IKG) :: destin(size(source, 1, IK), size(source, 2, IK))
6939 end function
6940#endif
6941
6942#if IK3_ENABLED
6943 PURE module function getMatCopy_RDP_RDP_ULX_AIO_IK3(dpack, source, spack, subset, doff, init) result(destin)
6944#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6945 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_AIO_IK3
6946#endif
6947 use pm_kind, only: IKG => IK3
6948 type(rdpack_type) , intent(in) :: dpack
6949 type(rdpack_type) , intent(in) :: spack
6950 type(uppLow_type) , intent(in) :: subset
6951 integer(IK) , intent(in) , optional :: doff
6952 integer(IKG) , intent(in) , optional :: init
6953 integer(IKG) , intent(in) :: source(:,:)
6954 integer(IKG) :: destin(size(source, 1, IK), size(source, 2, IK))
6955 end function
6956#endif
6957
6958#if IK2_ENABLED
6959 PURE module function getMatCopy_RDP_RDP_ULX_AIO_IK2(dpack, source, spack, subset, doff, init) result(destin)
6960#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6961 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_AIO_IK2
6962#endif
6963 use pm_kind, only: IKG => IK2
6964 type(rdpack_type) , intent(in) :: dpack
6965 type(rdpack_type) , intent(in) :: spack
6966 type(uppLow_type) , intent(in) :: subset
6967 integer(IK) , intent(in) , optional :: doff
6968 integer(IKG) , intent(in) , optional :: init
6969 integer(IKG) , intent(in) :: source(:,:)
6970 integer(IKG) :: destin(size(source, 1, IK), size(source, 2, IK))
6971 end function
6972#endif
6973
6974#if IK1_ENABLED
6975 PURE module function getMatCopy_RDP_RDP_ULX_AIO_IK1(dpack, source, spack, subset, doff, init) result(destin)
6976#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6977 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_AIO_IK1
6978#endif
6979 use pm_kind, only: IKG => IK1
6980 type(rdpack_type) , intent(in) :: dpack
6981 type(rdpack_type) , intent(in) :: spack
6982 type(uppLow_type) , intent(in) :: subset
6983 integer(IK) , intent(in) , optional :: doff
6984 integer(IKG) , intent(in) , optional :: init
6985 integer(IKG) , intent(in) :: source(:,:)
6986 integer(IKG) :: destin(size(source, 1, IK), size(source, 2, IK))
6987 end function
6988#endif
6989
6990 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6991
6992#if LK5_ENABLED
6993 PURE module function getMatCopy_RDP_RDP_ULX_AIO_LK5(dpack, source, spack, subset, doff, init) result(destin)
6994#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6995 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_AIO_LK5
6996#endif
6997 use pm_kind, only: LKG => LK5
6998 type(rdpack_type) , intent(in) :: dpack
6999 type(rdpack_type) , intent(in) :: spack
7000 type(uppLow_type) , intent(in) :: subset
7001 integer(IK) , intent(in) , optional :: doff
7002 logical(LKG) , intent(in) , optional :: init
7003 logical(LKG) , intent(in) :: source(:,:)
7004 logical(LKG) :: destin(size(source, 1, IK), size(source, 2, IK))
7005 end function
7006#endif
7007
7008#if LK4_ENABLED
7009 PURE module function getMatCopy_RDP_RDP_ULX_AIO_LK4(dpack, source, spack, subset, doff, init) result(destin)
7010#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7011 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_AIO_LK4
7012#endif
7013 use pm_kind, only: LKG => LK4
7014 type(rdpack_type) , intent(in) :: dpack
7015 type(rdpack_type) , intent(in) :: spack
7016 type(uppLow_type) , intent(in) :: subset
7017 integer(IK) , intent(in) , optional :: doff
7018 logical(LKG) , intent(in) , optional :: init
7019 logical(LKG) , intent(in) :: source(:,:)
7020 logical(LKG) :: destin(size(source, 1, IK), size(source, 2, IK))
7021 end function
7022#endif
7023
7024#if LK3_ENABLED
7025 PURE module function getMatCopy_RDP_RDP_ULX_AIO_LK3(dpack, source, spack, subset, doff, init) result(destin)
7026#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7027 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_AIO_LK3
7028#endif
7029 use pm_kind, only: LKG => LK3
7030 type(rdpack_type) , intent(in) :: dpack
7031 type(rdpack_type) , intent(in) :: spack
7032 type(uppLow_type) , intent(in) :: subset
7033 integer(IK) , intent(in) , optional :: doff
7034 logical(LKG) , intent(in) , optional :: init
7035 logical(LKG) , intent(in) :: source(:,:)
7036 logical(LKG) :: destin(size(source, 1, IK), size(source, 2, IK))
7037 end function
7038#endif
7039
7040#if LK2_ENABLED
7041 PURE module function getMatCopy_RDP_RDP_ULX_AIO_LK2(dpack, source, spack, subset, doff, init) result(destin)
7042#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7043 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_AIO_LK2
7044#endif
7045 use pm_kind, only: LKG => LK2
7046 type(rdpack_type) , intent(in) :: dpack
7047 type(rdpack_type) , intent(in) :: spack
7048 type(uppLow_type) , intent(in) :: subset
7049 integer(IK) , intent(in) , optional :: doff
7050 logical(LKG) , intent(in) , optional :: init
7051 logical(LKG) , intent(in) :: source(:,:)
7052 logical(LKG) :: destin(size(source, 1, IK), size(source, 2, IK))
7053 end function
7054#endif
7055
7056#if LK1_ENABLED
7057 PURE module function getMatCopy_RDP_RDP_ULX_AIO_LK1(dpack, source, spack, subset, doff, init) result(destin)
7058#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7059 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_AIO_LK1
7060#endif
7061 use pm_kind, only: LKG => LK1
7062 type(rdpack_type) , intent(in) :: dpack
7063 type(rdpack_type) , intent(in) :: spack
7064 type(uppLow_type) , intent(in) :: subset
7065 integer(IK) , intent(in) , optional :: doff
7066 logical(LKG) , intent(in) , optional :: init
7067 logical(LKG) , intent(in) :: source(:,:)
7068 logical(LKG) :: destin(size(source, 1, IK), size(source, 2, IK))
7069 end function
7070#endif
7071
7072 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7073
7074#if CK5_ENABLED
7075 PURE module function getMatCopy_RDP_RDP_ULX_AIO_CK5(dpack, source, spack, subset, doff, init) result(destin)
7076#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7077 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_AIO_CK5
7078#endif
7079 use pm_kind, only: CKG => CK5
7080 type(rdpack_type) , intent(in) :: dpack
7081 type(rdpack_type) , intent(in) :: spack
7082 type(uppLow_type) , intent(in) :: subset
7083 integer(IK) , intent(in) , optional :: doff
7084 complex(CKG) , intent(in) , optional :: init
7085 complex(CKG) , intent(in) :: source(:,:)
7086 complex(CKG) :: destin(size(source, 1, IK), size(source, 2, IK))
7087 end function
7088#endif
7089
7090#if CK4_ENABLED
7091 PURE module function getMatCopy_RDP_RDP_ULX_AIO_CK4(dpack, source, spack, subset, doff, init) result(destin)
7092#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7093 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_AIO_CK4
7094#endif
7095 use pm_kind, only: CKG => CK4
7096 type(rdpack_type) , intent(in) :: dpack
7097 type(rdpack_type) , intent(in) :: spack
7098 type(uppLow_type) , intent(in) :: subset
7099 integer(IK) , intent(in) , optional :: doff
7100 complex(CKG) , intent(in) , optional :: init
7101 complex(CKG) , intent(in) :: source(:,:)
7102 complex(CKG) :: destin(size(source, 1, IK), size(source, 2, IK))
7103 end function
7104#endif
7105
7106#if CK3_ENABLED
7107 PURE module function getMatCopy_RDP_RDP_ULX_AIO_CK3(dpack, source, spack, subset, doff, init) result(destin)
7108#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7109 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_AIO_CK3
7110#endif
7111 use pm_kind, only: CKG => CK3
7112 type(rdpack_type) , intent(in) :: dpack
7113 type(rdpack_type) , intent(in) :: spack
7114 type(uppLow_type) , intent(in) :: subset
7115 integer(IK) , intent(in) , optional :: doff
7116 complex(CKG) , intent(in) , optional :: init
7117 complex(CKG) , intent(in) :: source(:,:)
7118 complex(CKG) :: destin(size(source, 1, IK), size(source, 2, IK))
7119 end function
7120#endif
7121
7122#if CK2_ENABLED
7123 PURE module function getMatCopy_RDP_RDP_ULX_AIO_CK2(dpack, source, spack, subset, doff, init) result(destin)
7124#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7125 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_AIO_CK2
7126#endif
7127 use pm_kind, only: CKG => CK2
7128 type(rdpack_type) , intent(in) :: dpack
7129 type(rdpack_type) , intent(in) :: spack
7130 type(uppLow_type) , intent(in) :: subset
7131 integer(IK) , intent(in) , optional :: doff
7132 complex(CKG) , intent(in) , optional :: init
7133 complex(CKG) , intent(in) :: source(:,:)
7134 complex(CKG) :: destin(size(source, 1, IK), size(source, 2, IK))
7135 end function
7136#endif
7137
7138#if CK1_ENABLED
7139 PURE module function getMatCopy_RDP_RDP_ULX_AIO_CK1(dpack, source, spack, subset, doff, init) result(destin)
7140#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7141 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_AIO_CK1
7142#endif
7143 use pm_kind, only: CKG => CK1
7144 type(rdpack_type) , intent(in) :: dpack
7145 type(rdpack_type) , intent(in) :: spack
7146 type(uppLow_type) , intent(in) :: subset
7147 integer(IK) , intent(in) , optional :: doff
7148 complex(CKG) , intent(in) , optional :: init
7149 complex(CKG) , intent(in) :: source(:,:)
7150 complex(CKG) :: destin(size(source, 1, IK), size(source, 2, IK))
7151 end function
7152#endif
7153
7154 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7155
7156#if RK5_ENABLED
7157 PURE module function getMatCopy_RDP_RDP_ULX_AIO_RK5(dpack, source, spack, subset, doff, init) result(destin)
7158#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7159 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_AIO_RK5
7160#endif
7161 use pm_kind, only: RKG => RK5
7162 type(rdpack_type) , intent(in) :: dpack
7163 type(rdpack_type) , intent(in) :: spack
7164 type(uppLow_type) , intent(in) :: subset
7165 integer(IK) , intent(in) , optional :: doff
7166 real(RKG) , intent(in) , optional :: init
7167 real(RKG) , intent(in) :: source(:,:)
7168 real(RKG) :: destin(size(source, 1, IK), size(source, 2, IK))
7169 end function
7170#endif
7171
7172#if RK4_ENABLED
7173 PURE module function getMatCopy_RDP_RDP_ULX_AIO_RK4(dpack, source, spack, subset, doff, init) result(destin)
7174#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7175 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_AIO_RK4
7176#endif
7177 use pm_kind, only: RKG => RK4
7178 type(rdpack_type) , intent(in) :: dpack
7179 type(rdpack_type) , intent(in) :: spack
7180 type(uppLow_type) , intent(in) :: subset
7181 integer(IK) , intent(in) , optional :: doff
7182 real(RKG) , intent(in) , optional :: init
7183 real(RKG) , intent(in) :: source(:,:)
7184 real(RKG) :: destin(size(source, 1, IK), size(source, 2, IK))
7185 end function
7186#endif
7187
7188#if RK3_ENABLED
7189 PURE module function getMatCopy_RDP_RDP_ULX_AIO_RK3(dpack, source, spack, subset, doff, init) result(destin)
7190#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7191 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_AIO_RK3
7192#endif
7193 use pm_kind, only: RKG => RK3
7194 type(rdpack_type) , intent(in) :: dpack
7195 type(rdpack_type) , intent(in) :: spack
7196 type(uppLow_type) , intent(in) :: subset
7197 integer(IK) , intent(in) , optional :: doff
7198 real(RKG) , intent(in) , optional :: init
7199 real(RKG) , intent(in) :: source(:,:)
7200 real(RKG) :: destin(size(source, 1, IK), size(source, 2, IK))
7201 end function
7202#endif
7203
7204#if RK2_ENABLED
7205 PURE module function getMatCopy_RDP_RDP_ULX_AIO_RK2(dpack, source, spack, subset, doff, init) result(destin)
7206#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7207 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_AIO_RK2
7208#endif
7209 use pm_kind, only: RKG => RK2
7210 type(rdpack_type) , intent(in) :: dpack
7211 type(rdpack_type) , intent(in) :: spack
7212 type(uppLow_type) , intent(in) :: subset
7213 integer(IK) , intent(in) , optional :: doff
7214 real(RKG) , intent(in) , optional :: init
7215 real(RKG) , intent(in) :: source(:,:)
7216 real(RKG) :: destin(size(source, 1, IK), size(source, 2, IK))
7217 end function
7218#endif
7219
7220#if RK1_ENABLED
7221 PURE module function getMatCopy_RDP_RDP_ULX_AIO_RK1(dpack, source, spack, subset, doff, init) result(destin)
7222#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7223 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_AIO_RK1
7224#endif
7225 use pm_kind, only: RKG => RK1
7226 type(rdpack_type) , intent(in) :: dpack
7227 type(rdpack_type) , intent(in) :: spack
7228 type(uppLow_type) , intent(in) :: subset
7229 integer(IK) , intent(in) , optional :: doff
7230 real(RKG) , intent(in) , optional :: init
7231 real(RKG) , intent(in) :: source(:,:)
7232 real(RKG) :: destin(size(source, 1, IK), size(source, 2, IK))
7233 end function
7234#endif
7235
7236 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7237
7238 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7239 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7240 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7241
7242 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7243
7244#if SK5_ENABLED
7245 PURE module function getMatCopy_RDP_RDP_ULX_TSO_SK5(dpack, source, spack, subset, operation, doff, init) result(destin)
7246#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7247 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_TSO_SK5
7248#endif
7249 use pm_kind, only: SKG => SK5
7250 type(rdpack_type) , intent(in) :: dpack
7251 type(rdpack_type) , intent(in) :: spack
7252 type(uppLow_type) , intent(in) :: subset
7253 type(transSymm_type) , intent(in) :: operation
7254 integer(IK) , intent(in) , optional :: doff
7255 character(*,SKG) , intent(in) , optional :: init
7256 character(*,SKG) , intent(in) :: source(:,:)
7257 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
7258 end function
7259#endif
7260
7261#if SK4_ENABLED
7262 PURE module function getMatCopy_RDP_RDP_ULX_TSO_SK4(dpack, source, spack, subset, operation, doff, init) result(destin)
7263#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7264 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_TSO_SK4
7265#endif
7266 use pm_kind, only: SKG => SK4
7267 type(rdpack_type) , intent(in) :: dpack
7268 type(rdpack_type) , intent(in) :: spack
7269 type(uppLow_type) , intent(in) :: subset
7270 type(transSymm_type) , intent(in) :: operation
7271 integer(IK) , intent(in) , optional :: doff
7272 character(*,SKG) , intent(in) , optional :: init
7273 character(*,SKG) , intent(in) :: source(:,:)
7274 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
7275 end function
7276#endif
7277
7278#if SK3_ENABLED
7279 PURE module function getMatCopy_RDP_RDP_ULX_TSO_SK3(dpack, source, spack, subset, operation, doff, init) result(destin)
7280#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7281 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_TSO_SK3
7282#endif
7283 use pm_kind, only: SKG => SK3
7284 type(rdpack_type) , intent(in) :: dpack
7285 type(rdpack_type) , intent(in) :: spack
7286 type(uppLow_type) , intent(in) :: subset
7287 type(transSymm_type) , intent(in) :: operation
7288 integer(IK) , intent(in) , optional :: doff
7289 character(*,SKG) , intent(in) , optional :: init
7290 character(*,SKG) , intent(in) :: source(:,:)
7291 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
7292 end function
7293#endif
7294
7295#if SK2_ENABLED
7296 PURE module function getMatCopy_RDP_RDP_ULX_TSO_SK2(dpack, source, spack, subset, operation, doff, init) result(destin)
7297#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7298 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_TSO_SK2
7299#endif
7300 use pm_kind, only: SKG => SK2
7301 type(rdpack_type) , intent(in) :: dpack
7302 type(rdpack_type) , intent(in) :: spack
7303 type(uppLow_type) , intent(in) :: subset
7304 type(transSymm_type) , intent(in) :: operation
7305 integer(IK) , intent(in) , optional :: doff
7306 character(*,SKG) , intent(in) , optional :: init
7307 character(*,SKG) , intent(in) :: source(:,:)
7308 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
7309 end function
7310#endif
7311
7312#if SK1_ENABLED
7313 PURE module function getMatCopy_RDP_RDP_ULX_TSO_SK1(dpack, source, spack, subset, operation, doff, init) result(destin)
7314#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7315 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_TSO_SK1
7316#endif
7317 use pm_kind, only: SKG => SK1
7318 type(rdpack_type) , intent(in) :: dpack
7319 type(rdpack_type) , intent(in) :: spack
7320 type(uppLow_type) , intent(in) :: subset
7321 type(transSymm_type) , intent(in) :: operation
7322 integer(IK) , intent(in) , optional :: doff
7323 character(*,SKG) , intent(in) , optional :: init
7324 character(*,SKG) , intent(in) :: source(:,:)
7325 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
7326 end function
7327#endif
7328
7329 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7330
7331#if IK5_ENABLED
7332 PURE module function getMatCopy_RDP_RDP_ULX_TSO_IK5(dpack, source, spack, subset, operation, doff, init) result(destin)
7333#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7334 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_TSO_IK5
7335#endif
7336 use pm_kind, only: IKG => IK5
7337 type(rdpack_type) , intent(in) :: dpack
7338 type(rdpack_type) , intent(in) :: spack
7339 type(uppLow_type) , intent(in) :: subset
7340 type(transSymm_type) , intent(in) :: operation
7341 integer(IK) , intent(in) , optional :: doff
7342 integer(IKG) , intent(in) , optional :: init
7343 integer(IKG) , intent(in) :: source(:,:)
7344 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
7345 end function
7346#endif
7347
7348#if IK4_ENABLED
7349 PURE module function getMatCopy_RDP_RDP_ULX_TSO_IK4(dpack, source, spack, subset, operation, doff, init) result(destin)
7350#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7351 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_TSO_IK4
7352#endif
7353 use pm_kind, only: IKG => IK4
7354 type(rdpack_type) , intent(in) :: dpack
7355 type(rdpack_type) , intent(in) :: spack
7356 type(uppLow_type) , intent(in) :: subset
7357 type(transSymm_type) , intent(in) :: operation
7358 integer(IK) , intent(in) , optional :: doff
7359 integer(IKG) , intent(in) , optional :: init
7360 integer(IKG) , intent(in) :: source(:,:)
7361 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
7362 end function
7363#endif
7364
7365#if IK3_ENABLED
7366 PURE module function getMatCopy_RDP_RDP_ULX_TSO_IK3(dpack, source, spack, subset, operation, doff, init) result(destin)
7367#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7368 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_TSO_IK3
7369#endif
7370 use pm_kind, only: IKG => IK3
7371 type(rdpack_type) , intent(in) :: dpack
7372 type(rdpack_type) , intent(in) :: spack
7373 type(uppLow_type) , intent(in) :: subset
7374 type(transSymm_type) , intent(in) :: operation
7375 integer(IK) , intent(in) , optional :: doff
7376 integer(IKG) , intent(in) , optional :: init
7377 integer(IKG) , intent(in) :: source(:,:)
7378 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
7379 end function
7380#endif
7381
7382#if IK2_ENABLED
7383 PURE module function getMatCopy_RDP_RDP_ULX_TSO_IK2(dpack, source, spack, subset, operation, doff, init) result(destin)
7384#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7385 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_TSO_IK2
7386#endif
7387 use pm_kind, only: IKG => IK2
7388 type(rdpack_type) , intent(in) :: dpack
7389 type(rdpack_type) , intent(in) :: spack
7390 type(uppLow_type) , intent(in) :: subset
7391 type(transSymm_type) , intent(in) :: operation
7392 integer(IK) , intent(in) , optional :: doff
7393 integer(IKG) , intent(in) , optional :: init
7394 integer(IKG) , intent(in) :: source(:,:)
7395 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
7396 end function
7397#endif
7398
7399#if IK1_ENABLED
7400 PURE module function getMatCopy_RDP_RDP_ULX_TSO_IK1(dpack, source, spack, subset, operation, doff, init) result(destin)
7401#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7402 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_TSO_IK1
7403#endif
7404 use pm_kind, only: IKG => IK1
7405 type(rdpack_type) , intent(in) :: dpack
7406 type(rdpack_type) , intent(in) :: spack
7407 type(uppLow_type) , intent(in) :: subset
7408 type(transSymm_type) , intent(in) :: operation
7409 integer(IK) , intent(in) , optional :: doff
7410 integer(IKG) , intent(in) , optional :: init
7411 integer(IKG) , intent(in) :: source(:,:)
7412 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
7413 end function
7414#endif
7415
7416 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7417
7418#if LK5_ENABLED
7419 PURE module function getMatCopy_RDP_RDP_ULX_TSO_LK5(dpack, source, spack, subset, operation, doff, init) result(destin)
7420#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7421 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_TSO_LK5
7422#endif
7423 use pm_kind, only: LKG => LK5
7424 type(rdpack_type) , intent(in) :: dpack
7425 type(rdpack_type) , intent(in) :: spack
7426 type(uppLow_type) , intent(in) :: subset
7427 type(transSymm_type) , intent(in) :: operation
7428 integer(IK) , intent(in) , optional :: doff
7429 logical(LKG) , intent(in) , optional :: init
7430 logical(LKG) , intent(in) :: source(:,:)
7431 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
7432 end function
7433#endif
7434
7435#if LK4_ENABLED
7436 PURE module function getMatCopy_RDP_RDP_ULX_TSO_LK4(dpack, source, spack, subset, operation, doff, init) result(destin)
7437#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7438 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_TSO_LK4
7439#endif
7440 use pm_kind, only: LKG => LK4
7441 type(rdpack_type) , intent(in) :: dpack
7442 type(rdpack_type) , intent(in) :: spack
7443 type(uppLow_type) , intent(in) :: subset
7444 type(transSymm_type) , intent(in) :: operation
7445 integer(IK) , intent(in) , optional :: doff
7446 logical(LKG) , intent(in) , optional :: init
7447 logical(LKG) , intent(in) :: source(:,:)
7448 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
7449 end function
7450#endif
7451
7452#if LK3_ENABLED
7453 PURE module function getMatCopy_RDP_RDP_ULX_TSO_LK3(dpack, source, spack, subset, operation, doff, init) result(destin)
7454#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7455 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_TSO_LK3
7456#endif
7457 use pm_kind, only: LKG => LK3
7458 type(rdpack_type) , intent(in) :: dpack
7459 type(rdpack_type) , intent(in) :: spack
7460 type(uppLow_type) , intent(in) :: subset
7461 type(transSymm_type) , intent(in) :: operation
7462 integer(IK) , intent(in) , optional :: doff
7463 logical(LKG) , intent(in) , optional :: init
7464 logical(LKG) , intent(in) :: source(:,:)
7465 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
7466 end function
7467#endif
7468
7469#if LK2_ENABLED
7470 PURE module function getMatCopy_RDP_RDP_ULX_TSO_LK2(dpack, source, spack, subset, operation, doff, init) result(destin)
7471#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7472 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_TSO_LK2
7473#endif
7474 use pm_kind, only: LKG => LK2
7475 type(rdpack_type) , intent(in) :: dpack
7476 type(rdpack_type) , intent(in) :: spack
7477 type(uppLow_type) , intent(in) :: subset
7478 type(transSymm_type) , intent(in) :: operation
7479 integer(IK) , intent(in) , optional :: doff
7480 logical(LKG) , intent(in) , optional :: init
7481 logical(LKG) , intent(in) :: source(:,:)
7482 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
7483 end function
7484#endif
7485
7486#if LK1_ENABLED
7487 PURE module function getMatCopy_RDP_RDP_ULX_TSO_LK1(dpack, source, spack, subset, operation, doff, init) result(destin)
7488#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7489 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_TSO_LK1
7490#endif
7491 use pm_kind, only: LKG => LK1
7492 type(rdpack_type) , intent(in) :: dpack
7493 type(rdpack_type) , intent(in) :: spack
7494 type(uppLow_type) , intent(in) :: subset
7495 type(transSymm_type) , intent(in) :: operation
7496 integer(IK) , intent(in) , optional :: doff
7497 logical(LKG) , intent(in) , optional :: init
7498 logical(LKG) , intent(in) :: source(:,:)
7499 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
7500 end function
7501#endif
7502
7503 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7504
7505#if CK5_ENABLED
7506 PURE module function getMatCopy_RDP_RDP_ULX_TSO_CK5(dpack, source, spack, subset, operation, doff, init) result(destin)
7507#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7508 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_TSO_CK5
7509#endif
7510 use pm_kind, only: CKG => CK5
7511 type(rdpack_type) , intent(in) :: dpack
7512 type(rdpack_type) , intent(in) :: spack
7513 type(uppLow_type) , intent(in) :: subset
7514 type(transSymm_type) , intent(in) :: operation
7515 integer(IK) , intent(in) , optional :: doff
7516 complex(CKG) , intent(in) , optional :: init
7517 complex(CKG) , intent(in) :: source(:,:)
7518 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
7519 end function
7520#endif
7521
7522#if CK4_ENABLED
7523 PURE module function getMatCopy_RDP_RDP_ULX_TSO_CK4(dpack, source, spack, subset, operation, doff, init) result(destin)
7524#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7525 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_TSO_CK4
7526#endif
7527 use pm_kind, only: CKG => CK4
7528 type(rdpack_type) , intent(in) :: dpack
7529 type(rdpack_type) , intent(in) :: spack
7530 type(uppLow_type) , intent(in) :: subset
7531 type(transSymm_type) , intent(in) :: operation
7532 integer(IK) , intent(in) , optional :: doff
7533 complex(CKG) , intent(in) , optional :: init
7534 complex(CKG) , intent(in) :: source(:,:)
7535 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
7536 end function
7537#endif
7538
7539#if CK3_ENABLED
7540 PURE module function getMatCopy_RDP_RDP_ULX_TSO_CK3(dpack, source, spack, subset, operation, doff, init) result(destin)
7541#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7542 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_TSO_CK3
7543#endif
7544 use pm_kind, only: CKG => CK3
7545 type(rdpack_type) , intent(in) :: dpack
7546 type(rdpack_type) , intent(in) :: spack
7547 type(uppLow_type) , intent(in) :: subset
7548 type(transSymm_type) , intent(in) :: operation
7549 integer(IK) , intent(in) , optional :: doff
7550 complex(CKG) , intent(in) , optional :: init
7551 complex(CKG) , intent(in) :: source(:,:)
7552 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
7553 end function
7554#endif
7555
7556#if CK2_ENABLED
7557 PURE module function getMatCopy_RDP_RDP_ULX_TSO_CK2(dpack, source, spack, subset, operation, doff, init) result(destin)
7558#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7559 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_TSO_CK2
7560#endif
7561 use pm_kind, only: CKG => CK2
7562 type(rdpack_type) , intent(in) :: dpack
7563 type(rdpack_type) , intent(in) :: spack
7564 type(uppLow_type) , intent(in) :: subset
7565 type(transSymm_type) , intent(in) :: operation
7566 integer(IK) , intent(in) , optional :: doff
7567 complex(CKG) , intent(in) , optional :: init
7568 complex(CKG) , intent(in) :: source(:,:)
7569 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
7570 end function
7571#endif
7572
7573#if CK1_ENABLED
7574 PURE module function getMatCopy_RDP_RDP_ULX_TSO_CK1(dpack, source, spack, subset, operation, doff, init) result(destin)
7575#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7576 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_TSO_CK1
7577#endif
7578 use pm_kind, only: CKG => CK1
7579 type(rdpack_type) , intent(in) :: dpack
7580 type(rdpack_type) , intent(in) :: spack
7581 type(uppLow_type) , intent(in) :: subset
7582 type(transSymm_type) , intent(in) :: operation
7583 integer(IK) , intent(in) , optional :: doff
7584 complex(CKG) , intent(in) , optional :: init
7585 complex(CKG) , intent(in) :: source(:,:)
7586 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
7587 end function
7588#endif
7589
7590 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7591
7592#if RK5_ENABLED
7593 PURE module function getMatCopy_RDP_RDP_ULX_TSO_RK5(dpack, source, spack, subset, operation, doff, init) result(destin)
7594#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7595 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_TSO_RK5
7596#endif
7597 use pm_kind, only: RKG => RK5
7598 type(rdpack_type) , intent(in) :: dpack
7599 type(rdpack_type) , intent(in) :: spack
7600 type(uppLow_type) , intent(in) :: subset
7601 type(transSymm_type) , intent(in) :: operation
7602 integer(IK) , intent(in) , optional :: doff
7603 real(RKG) , intent(in) , optional :: init
7604 real(RKG) , intent(in) :: source(:,:)
7605 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
7606 end function
7607#endif
7608
7609#if RK4_ENABLED
7610 PURE module function getMatCopy_RDP_RDP_ULX_TSO_RK4(dpack, source, spack, subset, operation, doff, init) result(destin)
7611#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7612 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_TSO_RK4
7613#endif
7614 use pm_kind, only: RKG => RK4
7615 type(rdpack_type) , intent(in) :: dpack
7616 type(rdpack_type) , intent(in) :: spack
7617 type(uppLow_type) , intent(in) :: subset
7618 type(transSymm_type) , intent(in) :: operation
7619 integer(IK) , intent(in) , optional :: doff
7620 real(RKG) , intent(in) , optional :: init
7621 real(RKG) , intent(in) :: source(:,:)
7622 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
7623 end function
7624#endif
7625
7626#if RK3_ENABLED
7627 PURE module function getMatCopy_RDP_RDP_ULX_TSO_RK3(dpack, source, spack, subset, operation, doff, init) result(destin)
7628#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7629 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_TSO_RK3
7630#endif
7631 use pm_kind, only: RKG => RK3
7632 type(rdpack_type) , intent(in) :: dpack
7633 type(rdpack_type) , intent(in) :: spack
7634 type(uppLow_type) , intent(in) :: subset
7635 type(transSymm_type) , intent(in) :: operation
7636 integer(IK) , intent(in) , optional :: doff
7637 real(RKG) , intent(in) , optional :: init
7638 real(RKG) , intent(in) :: source(:,:)
7639 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
7640 end function
7641#endif
7642
7643#if RK2_ENABLED
7644 PURE module function getMatCopy_RDP_RDP_ULX_TSO_RK2(dpack, source, spack, subset, operation, doff, init) result(destin)
7645#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7646 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_TSO_RK2
7647#endif
7648 use pm_kind, only: RKG => RK2
7649 type(rdpack_type) , intent(in) :: dpack
7650 type(rdpack_type) , intent(in) :: spack
7651 type(uppLow_type) , intent(in) :: subset
7652 type(transSymm_type) , intent(in) :: operation
7653 integer(IK) , intent(in) , optional :: doff
7654 real(RKG) , intent(in) , optional :: init
7655 real(RKG) , intent(in) :: source(:,:)
7656 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
7657 end function
7658#endif
7659
7660#if RK1_ENABLED
7661 PURE module function getMatCopy_RDP_RDP_ULX_TSO_RK1(dpack, source, spack, subset, operation, doff, init) result(destin)
7662#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7663 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_TSO_RK1
7664#endif
7665 use pm_kind, only: RKG => RK1
7666 type(rdpack_type) , intent(in) :: dpack
7667 type(rdpack_type) , intent(in) :: spack
7668 type(uppLow_type) , intent(in) :: subset
7669 type(transSymm_type) , intent(in) :: operation
7670 integer(IK) , intent(in) , optional :: doff
7671 real(RKG) , intent(in) , optional :: init
7672 real(RKG) , intent(in) :: source(:,:)
7673 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
7674 end function
7675#endif
7676
7677 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7678
7679 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7680 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7681 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7682
7683 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7684
7685#if SK5_ENABLED
7686 PURE module function getMatCopy_RDP_RDP_ULX_THO_SK5(dpack, source, spack, subset, operation, doff, init) result(destin)
7687#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7688 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_THO_SK5
7689#endif
7690 use pm_kind, only: SKG => SK5
7691 type(rdpack_type) , intent(in) :: dpack
7692 type(rdpack_type) , intent(in) :: spack
7693 type(uppLow_type) , intent(in) :: subset
7694 type(transHerm_type) , intent(in) :: operation
7695 integer(IK) , intent(in) , optional :: doff
7696 character(*,SKG) , intent(in) , optional :: init
7697 character(*,SKG) , intent(in) :: source(:,:)
7698 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
7699 end function
7700#endif
7701
7702#if SK4_ENABLED
7703 PURE module function getMatCopy_RDP_RDP_ULX_THO_SK4(dpack, source, spack, subset, operation, doff, init) result(destin)
7704#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7705 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_THO_SK4
7706#endif
7707 use pm_kind, only: SKG => SK4
7708 type(rdpack_type) , intent(in) :: dpack
7709 type(rdpack_type) , intent(in) :: spack
7710 type(uppLow_type) , intent(in) :: subset
7711 type(transHerm_type) , intent(in) :: operation
7712 integer(IK) , intent(in) , optional :: doff
7713 character(*,SKG) , intent(in) , optional :: init
7714 character(*,SKG) , intent(in) :: source(:,:)
7715 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
7716 end function
7717#endif
7718
7719#if SK3_ENABLED
7720 PURE module function getMatCopy_RDP_RDP_ULX_THO_SK3(dpack, source, spack, subset, operation, doff, init) result(destin)
7721#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7722 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_THO_SK3
7723#endif
7724 use pm_kind, only: SKG => SK3
7725 type(rdpack_type) , intent(in) :: dpack
7726 type(rdpack_type) , intent(in) :: spack
7727 type(uppLow_type) , intent(in) :: subset
7728 type(transHerm_type) , intent(in) :: operation
7729 integer(IK) , intent(in) , optional :: doff
7730 character(*,SKG) , intent(in) , optional :: init
7731 character(*,SKG) , intent(in) :: source(:,:)
7732 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
7733 end function
7734#endif
7735
7736#if SK2_ENABLED
7737 PURE module function getMatCopy_RDP_RDP_ULX_THO_SK2(dpack, source, spack, subset, operation, doff, init) result(destin)
7738#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7739 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_THO_SK2
7740#endif
7741 use pm_kind, only: SKG => SK2
7742 type(rdpack_type) , intent(in) :: dpack
7743 type(rdpack_type) , intent(in) :: spack
7744 type(uppLow_type) , intent(in) :: subset
7745 type(transHerm_type) , intent(in) :: operation
7746 integer(IK) , intent(in) , optional :: doff
7747 character(*,SKG) , intent(in) , optional :: init
7748 character(*,SKG) , intent(in) :: source(:,:)
7749 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
7750 end function
7751#endif
7752
7753#if SK1_ENABLED
7754 PURE module function getMatCopy_RDP_RDP_ULX_THO_SK1(dpack, source, spack, subset, operation, doff, init) result(destin)
7755#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7756 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_THO_SK1
7757#endif
7758 use pm_kind, only: SKG => SK1
7759 type(rdpack_type) , intent(in) :: dpack
7760 type(rdpack_type) , intent(in) :: spack
7761 type(uppLow_type) , intent(in) :: subset
7762 type(transHerm_type) , intent(in) :: operation
7763 integer(IK) , intent(in) , optional :: doff
7764 character(*,SKG) , intent(in) , optional :: init
7765 character(*,SKG) , intent(in) :: source(:,:)
7766 character(len(source,IK),SKG) :: destin(size(source, 2, IK), size(source, 1, IK))
7767 end function
7768#endif
7769
7770 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7771
7772#if IK5_ENABLED
7773 PURE module function getMatCopy_RDP_RDP_ULX_THO_IK5(dpack, source, spack, subset, operation, doff, init) result(destin)
7774#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7775 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_THO_IK5
7776#endif
7777 use pm_kind, only: IKG => IK5
7778 type(rdpack_type) , intent(in) :: dpack
7779 type(rdpack_type) , intent(in) :: spack
7780 type(uppLow_type) , intent(in) :: subset
7781 type(transHerm_type) , intent(in) :: operation
7782 integer(IK) , intent(in) , optional :: doff
7783 integer(IKG) , intent(in) , optional :: init
7784 integer(IKG) , intent(in) :: source(:,:)
7785 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
7786 end function
7787#endif
7788
7789#if IK4_ENABLED
7790 PURE module function getMatCopy_RDP_RDP_ULX_THO_IK4(dpack, source, spack, subset, operation, doff, init) result(destin)
7791#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7792 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_THO_IK4
7793#endif
7794 use pm_kind, only: IKG => IK4
7795 type(rdpack_type) , intent(in) :: dpack
7796 type(rdpack_type) , intent(in) :: spack
7797 type(uppLow_type) , intent(in) :: subset
7798 type(transHerm_type) , intent(in) :: operation
7799 integer(IK) , intent(in) , optional :: doff
7800 integer(IKG) , intent(in) , optional :: init
7801 integer(IKG) , intent(in) :: source(:,:)
7802 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
7803 end function
7804#endif
7805
7806#if IK3_ENABLED
7807 PURE module function getMatCopy_RDP_RDP_ULX_THO_IK3(dpack, source, spack, subset, operation, doff, init) result(destin)
7808#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7809 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_THO_IK3
7810#endif
7811 use pm_kind, only: IKG => IK3
7812 type(rdpack_type) , intent(in) :: dpack
7813 type(rdpack_type) , intent(in) :: spack
7814 type(uppLow_type) , intent(in) :: subset
7815 type(transHerm_type) , intent(in) :: operation
7816 integer(IK) , intent(in) , optional :: doff
7817 integer(IKG) , intent(in) , optional :: init
7818 integer(IKG) , intent(in) :: source(:,:)
7819 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
7820 end function
7821#endif
7822
7823#if IK2_ENABLED
7824 PURE module function getMatCopy_RDP_RDP_ULX_THO_IK2(dpack, source, spack, subset, operation, doff, init) result(destin)
7825#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7826 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_THO_IK2
7827#endif
7828 use pm_kind, only: IKG => IK2
7829 type(rdpack_type) , intent(in) :: dpack
7830 type(rdpack_type) , intent(in) :: spack
7831 type(uppLow_type) , intent(in) :: subset
7832 type(transHerm_type) , intent(in) :: operation
7833 integer(IK) , intent(in) , optional :: doff
7834 integer(IKG) , intent(in) , optional :: init
7835 integer(IKG) , intent(in) :: source(:,:)
7836 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
7837 end function
7838#endif
7839
7840#if IK1_ENABLED
7841 PURE module function getMatCopy_RDP_RDP_ULX_THO_IK1(dpack, source, spack, subset, operation, doff, init) result(destin)
7842#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7843 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_THO_IK1
7844#endif
7845 use pm_kind, only: IKG => IK1
7846 type(rdpack_type) , intent(in) :: dpack
7847 type(rdpack_type) , intent(in) :: spack
7848 type(uppLow_type) , intent(in) :: subset
7849 type(transHerm_type) , intent(in) :: operation
7850 integer(IK) , intent(in) , optional :: doff
7851 integer(IKG) , intent(in) , optional :: init
7852 integer(IKG) , intent(in) :: source(:,:)
7853 integer(IKG) :: destin(size(source, 2, IK), size(source, 1, IK))
7854 end function
7855#endif
7856
7857 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7858
7859#if LK5_ENABLED
7860 PURE module function getMatCopy_RDP_RDP_ULX_THO_LK5(dpack, source, spack, subset, operation, doff, init) result(destin)
7861#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7862 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_THO_LK5
7863#endif
7864 use pm_kind, only: LKG => LK5
7865 type(rdpack_type) , intent(in) :: dpack
7866 type(rdpack_type) , intent(in) :: spack
7867 type(uppLow_type) , intent(in) :: subset
7868 type(transHerm_type) , intent(in) :: operation
7869 integer(IK) , intent(in) , optional :: doff
7870 logical(LKG) , intent(in) , optional :: init
7871 logical(LKG) , intent(in) :: source(:,:)
7872 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
7873 end function
7874#endif
7875
7876#if LK4_ENABLED
7877 PURE module function getMatCopy_RDP_RDP_ULX_THO_LK4(dpack, source, spack, subset, operation, doff, init) result(destin)
7878#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7879 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_THO_LK4
7880#endif
7881 use pm_kind, only: LKG => LK4
7882 type(rdpack_type) , intent(in) :: dpack
7883 type(rdpack_type) , intent(in) :: spack
7884 type(uppLow_type) , intent(in) :: subset
7885 type(transHerm_type) , intent(in) :: operation
7886 integer(IK) , intent(in) , optional :: doff
7887 logical(LKG) , intent(in) , optional :: init
7888 logical(LKG) , intent(in) :: source(:,:)
7889 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
7890 end function
7891#endif
7892
7893#if LK3_ENABLED
7894 PURE module function getMatCopy_RDP_RDP_ULX_THO_LK3(dpack, source, spack, subset, operation, doff, init) result(destin)
7895#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7896 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_THO_LK3
7897#endif
7898 use pm_kind, only: LKG => LK3
7899 type(rdpack_type) , intent(in) :: dpack
7900 type(rdpack_type) , intent(in) :: spack
7901 type(uppLow_type) , intent(in) :: subset
7902 type(transHerm_type) , intent(in) :: operation
7903 integer(IK) , intent(in) , optional :: doff
7904 logical(LKG) , intent(in) , optional :: init
7905 logical(LKG) , intent(in) :: source(:,:)
7906 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
7907 end function
7908#endif
7909
7910#if LK2_ENABLED
7911 PURE module function getMatCopy_RDP_RDP_ULX_THO_LK2(dpack, source, spack, subset, operation, doff, init) result(destin)
7912#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7913 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_THO_LK2
7914#endif
7915 use pm_kind, only: LKG => LK2
7916 type(rdpack_type) , intent(in) :: dpack
7917 type(rdpack_type) , intent(in) :: spack
7918 type(uppLow_type) , intent(in) :: subset
7919 type(transHerm_type) , intent(in) :: operation
7920 integer(IK) , intent(in) , optional :: doff
7921 logical(LKG) , intent(in) , optional :: init
7922 logical(LKG) , intent(in) :: source(:,:)
7923 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
7924 end function
7925#endif
7926
7927#if LK1_ENABLED
7928 PURE module function getMatCopy_RDP_RDP_ULX_THO_LK1(dpack, source, spack, subset, operation, doff, init) result(destin)
7929#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7930 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_THO_LK1
7931#endif
7932 use pm_kind, only: LKG => LK1
7933 type(rdpack_type) , intent(in) :: dpack
7934 type(rdpack_type) , intent(in) :: spack
7935 type(uppLow_type) , intent(in) :: subset
7936 type(transHerm_type) , intent(in) :: operation
7937 integer(IK) , intent(in) , optional :: doff
7938 logical(LKG) , intent(in) , optional :: init
7939 logical(LKG) , intent(in) :: source(:,:)
7940 logical(LKG) :: destin(size(source, 2, IK), size(source, 1, IK))
7941 end function
7942#endif
7943
7944 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7945
7946#if CK5_ENABLED
7947 PURE module function getMatCopy_RDP_RDP_ULX_THO_CK5(dpack, source, spack, subset, operation, doff, init) result(destin)
7948#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7949 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_THO_CK5
7950#endif
7951 use pm_kind, only: CKG => CK5
7952 type(rdpack_type) , intent(in) :: dpack
7953 type(rdpack_type) , intent(in) :: spack
7954 type(uppLow_type) , intent(in) :: subset
7955 type(transHerm_type) , intent(in) :: operation
7956 integer(IK) , intent(in) , optional :: doff
7957 complex(CKG) , intent(in) , optional :: init
7958 complex(CKG) , intent(in) :: source(:,:)
7959 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
7960 end function
7961#endif
7962
7963#if CK4_ENABLED
7964 PURE module function getMatCopy_RDP_RDP_ULX_THO_CK4(dpack, source, spack, subset, operation, doff, init) result(destin)
7965#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7966 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_THO_CK4
7967#endif
7968 use pm_kind, only: CKG => CK4
7969 type(rdpack_type) , intent(in) :: dpack
7970 type(rdpack_type) , intent(in) :: spack
7971 type(uppLow_type) , intent(in) :: subset
7972 type(transHerm_type) , intent(in) :: operation
7973 integer(IK) , intent(in) , optional :: doff
7974 complex(CKG) , intent(in) , optional :: init
7975 complex(CKG) , intent(in) :: source(:,:)
7976 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
7977 end function
7978#endif
7979
7980#if CK3_ENABLED
7981 PURE module function getMatCopy_RDP_RDP_ULX_THO_CK3(dpack, source, spack, subset, operation, doff, init) result(destin)
7982#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7983 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_THO_CK3
7984#endif
7985 use pm_kind, only: CKG => CK3
7986 type(rdpack_type) , intent(in) :: dpack
7987 type(rdpack_type) , intent(in) :: spack
7988 type(uppLow_type) , intent(in) :: subset
7989 type(transHerm_type) , intent(in) :: operation
7990 integer(IK) , intent(in) , optional :: doff
7991 complex(CKG) , intent(in) , optional :: init
7992 complex(CKG) , intent(in) :: source(:,:)
7993 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
7994 end function
7995#endif
7996
7997#if CK2_ENABLED
7998 PURE module function getMatCopy_RDP_RDP_ULX_THO_CK2(dpack, source, spack, subset, operation, doff, init) result(destin)
7999#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8000 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_THO_CK2
8001#endif
8002 use pm_kind, only: CKG => CK2
8003 type(rdpack_type) , intent(in) :: dpack
8004 type(rdpack_type) , intent(in) :: spack
8005 type(uppLow_type) , intent(in) :: subset
8006 type(transHerm_type) , intent(in) :: operation
8007 integer(IK) , intent(in) , optional :: doff
8008 complex(CKG) , intent(in) , optional :: init
8009 complex(CKG) , intent(in) :: source(:,:)
8010 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
8011 end function
8012#endif
8013
8014#if CK1_ENABLED
8015 PURE module function getMatCopy_RDP_RDP_ULX_THO_CK1(dpack, source, spack, subset, operation, doff, init) result(destin)
8016#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8017 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_THO_CK1
8018#endif
8019 use pm_kind, only: CKG => CK1
8020 type(rdpack_type) , intent(in) :: dpack
8021 type(rdpack_type) , intent(in) :: spack
8022 type(uppLow_type) , intent(in) :: subset
8023 type(transHerm_type) , intent(in) :: operation
8024 integer(IK) , intent(in) , optional :: doff
8025 complex(CKG) , intent(in) , optional :: init
8026 complex(CKG) , intent(in) :: source(:,:)
8027 complex(CKG) :: destin(size(source, 2, IK), size(source, 1, IK))
8028 end function
8029#endif
8030
8031 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8032
8033#if RK5_ENABLED
8034 PURE module function getMatCopy_RDP_RDP_ULX_THO_RK5(dpack, source, spack, subset, operation, doff, init) result(destin)
8035#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8036 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_THO_RK5
8037#endif
8038 use pm_kind, only: RKG => RK5
8039 type(rdpack_type) , intent(in) :: dpack
8040 type(rdpack_type) , intent(in) :: spack
8041 type(uppLow_type) , intent(in) :: subset
8042 type(transHerm_type) , intent(in) :: operation
8043 integer(IK) , intent(in) , optional :: doff
8044 real(RKG) , intent(in) , optional :: init
8045 real(RKG) , intent(in) :: source(:,:)
8046 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
8047 end function
8048#endif
8049
8050#if RK4_ENABLED
8051 PURE module function getMatCopy_RDP_RDP_ULX_THO_RK4(dpack, source, spack, subset, operation, doff, init) result(destin)
8052#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8053 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_THO_RK4
8054#endif
8055 use pm_kind, only: RKG => RK4
8056 type(rdpack_type) , intent(in) :: dpack
8057 type(rdpack_type) , intent(in) :: spack
8058 type(uppLow_type) , intent(in) :: subset
8059 type(transHerm_type) , intent(in) :: operation
8060 integer(IK) , intent(in) , optional :: doff
8061 real(RKG) , intent(in) , optional :: init
8062 real(RKG) , intent(in) :: source(:,:)
8063 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
8064 end function
8065#endif
8066
8067#if RK3_ENABLED
8068 PURE module function getMatCopy_RDP_RDP_ULX_THO_RK3(dpack, source, spack, subset, operation, doff, init) result(destin)
8069#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8070 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_THO_RK3
8071#endif
8072 use pm_kind, only: RKG => RK3
8073 type(rdpack_type) , intent(in) :: dpack
8074 type(rdpack_type) , intent(in) :: spack
8075 type(uppLow_type) , intent(in) :: subset
8076 type(transHerm_type) , intent(in) :: operation
8077 integer(IK) , intent(in) , optional :: doff
8078 real(RKG) , intent(in) , optional :: init
8079 real(RKG) , intent(in) :: source(:,:)
8080 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
8081 end function
8082#endif
8083
8084#if RK2_ENABLED
8085 PURE module function getMatCopy_RDP_RDP_ULX_THO_RK2(dpack, source, spack, subset, operation, doff, init) result(destin)
8086#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8087 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_THO_RK2
8088#endif
8089 use pm_kind, only: RKG => RK2
8090 type(rdpack_type) , intent(in) :: dpack
8091 type(rdpack_type) , intent(in) :: spack
8092 type(uppLow_type) , intent(in) :: subset
8093 type(transHerm_type) , intent(in) :: operation
8094 integer(IK) , intent(in) , optional :: doff
8095 real(RKG) , intent(in) , optional :: init
8096 real(RKG) , intent(in) :: source(:,:)
8097 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
8098 end function
8099#endif
8100
8101#if RK1_ENABLED
8102 PURE module function getMatCopy_RDP_RDP_ULX_THO_RK1(dpack, source, spack, subset, operation, doff, init) result(destin)
8103#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8104 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RDP_ULX_THO_RK1
8105#endif
8106 use pm_kind, only: RKG => RK1
8107 type(rdpack_type) , intent(in) :: dpack
8108 type(rdpack_type) , intent(in) :: spack
8109 type(uppLow_type) , intent(in) :: subset
8110 type(transHerm_type) , intent(in) :: operation
8111 integer(IK) , intent(in) , optional :: doff
8112 real(RKG) , intent(in) , optional :: init
8113 real(RKG) , intent(in) :: source(:,:)
8114 real(RKG) :: destin(size(source, 2, IK), size(source, 1, IK))
8115 end function
8116#endif
8117
8118 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8119
8120 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8121 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8122 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8123
8124 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8125 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8126 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8127
8128 end interface getMatCopy
8129
8130 ! package: rdpack, lfpack
8131
8132 interface getMatCopy
8133
8134 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8135 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8136 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8137
8138 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8139 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8140 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8141
8142 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8143
8144#if SK5_ENABLED
8145 PURE module function getMatCopy_RDP_LFP_XXD_AIO_SK5(dpack, source, spack, subset, doff, shape, init) result(destin)
8146#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8147 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_AIO_SK5
8148#endif
8149 use pm_kind, only: SKG => SK5
8150 type(rdpack_type) , intent(in) :: dpack
8151 type(lfpack_type) , intent(in) :: spack
8152 type(dia_type) , intent(in) :: subset
8153 integer(IK) , intent(in) , optional :: shape(2), doff
8154 character(*,SKG) , intent(in) , optional :: init
8155 character(*,SKG) , intent(in) :: source(:)
8156 character(len(source,IK),SKG) , allocatable :: destin(:,:)
8157 end function
8158#endif
8159
8160#if SK4_ENABLED
8161 PURE module function getMatCopy_RDP_LFP_XXD_AIO_SK4(dpack, source, spack, subset, doff, shape, init) result(destin)
8162#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8163 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_AIO_SK4
8164#endif
8165 use pm_kind, only: SKG => SK4
8166 type(rdpack_type) , intent(in) :: dpack
8167 type(lfpack_type) , intent(in) :: spack
8168 type(dia_type) , intent(in) :: subset
8169 integer(IK) , intent(in) , optional :: shape(2), doff
8170 character(*,SKG) , intent(in) , optional :: init
8171 character(*,SKG) , intent(in) :: source(:)
8172 character(len(source,IK),SKG) , allocatable :: destin(:,:)
8173 end function
8174#endif
8175
8176#if SK3_ENABLED
8177 PURE module function getMatCopy_RDP_LFP_XXD_AIO_SK3(dpack, source, spack, subset, doff, shape, init) result(destin)
8178#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8179 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_AIO_SK3
8180#endif
8181 use pm_kind, only: SKG => SK3
8182 type(rdpack_type) , intent(in) :: dpack
8183 type(lfpack_type) , intent(in) :: spack
8184 type(dia_type) , intent(in) :: subset
8185 integer(IK) , intent(in) , optional :: shape(2), doff
8186 character(*,SKG) , intent(in) , optional :: init
8187 character(*,SKG) , intent(in) :: source(:)
8188 character(len(source,IK),SKG) , allocatable :: destin(:,:)
8189 end function
8190#endif
8191
8192#if SK2_ENABLED
8193 PURE module function getMatCopy_RDP_LFP_XXD_AIO_SK2(dpack, source, spack, subset, doff, shape, init) result(destin)
8194#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8195 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_AIO_SK2
8196#endif
8197 use pm_kind, only: SKG => SK2
8198 type(rdpack_type) , intent(in) :: dpack
8199 type(lfpack_type) , intent(in) :: spack
8200 type(dia_type) , intent(in) :: subset
8201 integer(IK) , intent(in) , optional :: shape(2), doff
8202 character(*,SKG) , intent(in) , optional :: init
8203 character(*,SKG) , intent(in) :: source(:)
8204 character(len(source,IK),SKG) , allocatable :: destin(:,:)
8205 end function
8206#endif
8207
8208#if SK1_ENABLED
8209 PURE module function getMatCopy_RDP_LFP_XXD_AIO_SK1(dpack, source, spack, subset, doff, shape, init) result(destin)
8210#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8211 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_AIO_SK1
8212#endif
8213 use pm_kind, only: SKG => SK1
8214 type(rdpack_type) , intent(in) :: dpack
8215 type(lfpack_type) , intent(in) :: spack
8216 type(dia_type) , intent(in) :: subset
8217 integer(IK) , intent(in) , optional :: shape(2), doff
8218 character(*,SKG) , intent(in) , optional :: init
8219 character(*,SKG) , intent(in) :: source(:)
8220 character(len(source,IK),SKG) , allocatable :: destin(:,:)
8221 end function
8222#endif
8223
8224 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8225
8226#if IK5_ENABLED
8227 PURE module function getMatCopy_RDP_LFP_XXD_AIO_IK5(dpack, source, spack, subset, doff, shape, init) result(destin)
8228#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8229 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_AIO_IK5
8230#endif
8231 use pm_kind, only: IKG => IK5
8232 type(rdpack_type) , intent(in) :: dpack
8233 type(lfpack_type) , intent(in) :: spack
8234 type(dia_type) , intent(in) :: subset
8235 integer(IK) , intent(in) , optional :: shape(2), doff
8236 integer(IKG) , intent(in) , optional :: init
8237 integer(IKG) , intent(in) :: source(:)
8238 integer(IKG) , allocatable :: destin(:,:)
8239 end function
8240#endif
8241
8242#if IK4_ENABLED
8243 PURE module function getMatCopy_RDP_LFP_XXD_AIO_IK4(dpack, source, spack, subset, doff, shape, init) result(destin)
8244#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8245 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_AIO_IK4
8246#endif
8247 use pm_kind, only: IKG => IK4
8248 type(rdpack_type) , intent(in) :: dpack
8249 type(lfpack_type) , intent(in) :: spack
8250 type(dia_type) , intent(in) :: subset
8251 integer(IK) , intent(in) , optional :: shape(2), doff
8252 integer(IKG) , intent(in) , optional :: init
8253 integer(IKG) , intent(in) :: source(:)
8254 integer(IKG) , allocatable :: destin(:,:)
8255 end function
8256#endif
8257
8258#if IK3_ENABLED
8259 PURE module function getMatCopy_RDP_LFP_XXD_AIO_IK3(dpack, source, spack, subset, doff, shape, init) result(destin)
8260#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8261 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_AIO_IK3
8262#endif
8263 use pm_kind, only: IKG => IK3
8264 type(rdpack_type) , intent(in) :: dpack
8265 type(lfpack_type) , intent(in) :: spack
8266 type(dia_type) , intent(in) :: subset
8267 integer(IK) , intent(in) , optional :: shape(2), doff
8268 integer(IKG) , intent(in) , optional :: init
8269 integer(IKG) , intent(in) :: source(:)
8270 integer(IKG) , allocatable :: destin(:,:)
8271 end function
8272#endif
8273
8274#if IK2_ENABLED
8275 PURE module function getMatCopy_RDP_LFP_XXD_AIO_IK2(dpack, source, spack, subset, doff, shape, init) result(destin)
8276#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8277 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_AIO_IK2
8278#endif
8279 use pm_kind, only: IKG => IK2
8280 type(rdpack_type) , intent(in) :: dpack
8281 type(lfpack_type) , intent(in) :: spack
8282 type(dia_type) , intent(in) :: subset
8283 integer(IK) , intent(in) , optional :: shape(2), doff
8284 integer(IKG) , intent(in) , optional :: init
8285 integer(IKG) , intent(in) :: source(:)
8286 integer(IKG) , allocatable :: destin(:,:)
8287 end function
8288#endif
8289
8290#if IK1_ENABLED
8291 PURE module function getMatCopy_RDP_LFP_XXD_AIO_IK1(dpack, source, spack, subset, doff, shape, init) result(destin)
8292#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8293 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_AIO_IK1
8294#endif
8295 use pm_kind, only: IKG => IK1
8296 type(rdpack_type) , intent(in) :: dpack
8297 type(lfpack_type) , intent(in) :: spack
8298 type(dia_type) , intent(in) :: subset
8299 integer(IK) , intent(in) , optional :: shape(2), doff
8300 integer(IKG) , intent(in) , optional :: init
8301 integer(IKG) , intent(in) :: source(:)
8302 integer(IKG) , allocatable :: destin(:,:)
8303 end function
8304#endif
8305
8306 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8307
8308#if LK5_ENABLED
8309 PURE module function getMatCopy_RDP_LFP_XXD_AIO_LK5(dpack, source, spack, subset, doff, shape, init) result(destin)
8310#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8311 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_AIO_LK5
8312#endif
8313 use pm_kind, only: LKG => LK5
8314 type(rdpack_type) , intent(in) :: dpack
8315 type(lfpack_type) , intent(in) :: spack
8316 type(dia_type) , intent(in) :: subset
8317 integer(IK) , intent(in) , optional :: shape(2), doff
8318 logical(LKG) , intent(in) , optional :: init
8319 logical(LKG) , intent(in) :: source(:)
8320 logical(LKG) , allocatable :: destin(:,:)
8321 end function
8322#endif
8323
8324#if LK4_ENABLED
8325 PURE module function getMatCopy_RDP_LFP_XXD_AIO_LK4(dpack, source, spack, subset, doff, shape, init) result(destin)
8326#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8327 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_AIO_LK4
8328#endif
8329 use pm_kind, only: LKG => LK4
8330 type(rdpack_type) , intent(in) :: dpack
8331 type(lfpack_type) , intent(in) :: spack
8332 type(dia_type) , intent(in) :: subset
8333 integer(IK) , intent(in) , optional :: shape(2), doff
8334 logical(LKG) , intent(in) , optional :: init
8335 logical(LKG) , intent(in) :: source(:)
8336 logical(LKG) , allocatable :: destin(:,:)
8337 end function
8338#endif
8339
8340#if LK3_ENABLED
8341 PURE module function getMatCopy_RDP_LFP_XXD_AIO_LK3(dpack, source, spack, subset, doff, shape, init) result(destin)
8342#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8343 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_AIO_LK3
8344#endif
8345 use pm_kind, only: LKG => LK3
8346 type(rdpack_type) , intent(in) :: dpack
8347 type(lfpack_type) , intent(in) :: spack
8348 type(dia_type) , intent(in) :: subset
8349 integer(IK) , intent(in) , optional :: shape(2), doff
8350 logical(LKG) , intent(in) , optional :: init
8351 logical(LKG) , intent(in) :: source(:)
8352 logical(LKG) , allocatable :: destin(:,:)
8353 end function
8354#endif
8355
8356#if LK2_ENABLED
8357 PURE module function getMatCopy_RDP_LFP_XXD_AIO_LK2(dpack, source, spack, subset, doff, shape, init) result(destin)
8358#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8359 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_AIO_LK2
8360#endif
8361 use pm_kind, only: LKG => LK2
8362 type(rdpack_type) , intent(in) :: dpack
8363 type(lfpack_type) , intent(in) :: spack
8364 type(dia_type) , intent(in) :: subset
8365 integer(IK) , intent(in) , optional :: shape(2), doff
8366 logical(LKG) , intent(in) , optional :: init
8367 logical(LKG) , intent(in) :: source(:)
8368 logical(LKG) , allocatable :: destin(:,:)
8369 end function
8370#endif
8371
8372#if LK1_ENABLED
8373 PURE module function getMatCopy_RDP_LFP_XXD_AIO_LK1(dpack, source, spack, subset, doff, shape, init) result(destin)
8374#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8375 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_AIO_LK1
8376#endif
8377 use pm_kind, only: LKG => LK1
8378 type(rdpack_type) , intent(in) :: dpack
8379 type(lfpack_type) , intent(in) :: spack
8380 type(dia_type) , intent(in) :: subset
8381 integer(IK) , intent(in) , optional :: shape(2), doff
8382 logical(LKG) , intent(in) , optional :: init
8383 logical(LKG) , intent(in) :: source(:)
8384 logical(LKG) , allocatable :: destin(:,:)
8385 end function
8386#endif
8387
8388 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8389
8390#if CK5_ENABLED
8391 PURE module function getMatCopy_RDP_LFP_XXD_AIO_CK5(dpack, source, spack, subset, doff, shape, init) result(destin)
8392#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8393 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_AIO_CK5
8394#endif
8395 use pm_kind, only: CKG => CK5
8396 type(rdpack_type) , intent(in) :: dpack
8397 type(lfpack_type) , intent(in) :: spack
8398 type(dia_type) , intent(in) :: subset
8399 integer(IK) , intent(in) , optional :: shape(2), doff
8400 complex(CKG) , intent(in) , optional :: init
8401 complex(CKG) , intent(in) :: source(:)
8402 complex(CKG) , allocatable :: destin(:,:)
8403 end function
8404#endif
8405
8406#if CK4_ENABLED
8407 PURE module function getMatCopy_RDP_LFP_XXD_AIO_CK4(dpack, source, spack, subset, doff, shape, init) result(destin)
8408#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8409 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_AIO_CK4
8410#endif
8411 use pm_kind, only: CKG => CK4
8412 type(rdpack_type) , intent(in) :: dpack
8413 type(lfpack_type) , intent(in) :: spack
8414 type(dia_type) , intent(in) :: subset
8415 integer(IK) , intent(in) , optional :: shape(2), doff
8416 complex(CKG) , intent(in) , optional :: init
8417 complex(CKG) , intent(in) :: source(:)
8418 complex(CKG) , allocatable :: destin(:,:)
8419 end function
8420#endif
8421
8422#if CK3_ENABLED
8423 PURE module function getMatCopy_RDP_LFP_XXD_AIO_CK3(dpack, source, spack, subset, doff, shape, init) result(destin)
8424#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8425 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_AIO_CK3
8426#endif
8427 use pm_kind, only: CKG => CK3
8428 type(rdpack_type) , intent(in) :: dpack
8429 type(lfpack_type) , intent(in) :: spack
8430 type(dia_type) , intent(in) :: subset
8431 integer(IK) , intent(in) , optional :: shape(2), doff
8432 complex(CKG) , intent(in) , optional :: init
8433 complex(CKG) , intent(in) :: source(:)
8434 complex(CKG) , allocatable :: destin(:,:)
8435 end function
8436#endif
8437
8438#if CK2_ENABLED
8439 PURE module function getMatCopy_RDP_LFP_XXD_AIO_CK2(dpack, source, spack, subset, doff, shape, init) result(destin)
8440#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8441 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_AIO_CK2
8442#endif
8443 use pm_kind, only: CKG => CK2
8444 type(rdpack_type) , intent(in) :: dpack
8445 type(lfpack_type) , intent(in) :: spack
8446 type(dia_type) , intent(in) :: subset
8447 integer(IK) , intent(in) , optional :: shape(2), doff
8448 complex(CKG) , intent(in) , optional :: init
8449 complex(CKG) , intent(in) :: source(:)
8450 complex(CKG) , allocatable :: destin(:,:)
8451 end function
8452#endif
8453
8454#if CK1_ENABLED
8455 PURE module function getMatCopy_RDP_LFP_XXD_AIO_CK1(dpack, source, spack, subset, doff, shape, init) result(destin)
8456#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8457 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_AIO_CK1
8458#endif
8459 use pm_kind, only: CKG => CK1
8460 type(rdpack_type) , intent(in) :: dpack
8461 type(lfpack_type) , intent(in) :: spack
8462 type(dia_type) , intent(in) :: subset
8463 integer(IK) , intent(in) , optional :: shape(2), doff
8464 complex(CKG) , intent(in) , optional :: init
8465 complex(CKG) , intent(in) :: source(:)
8466 complex(CKG) , allocatable :: destin(:,:)
8467 end function
8468#endif
8469
8470 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8471
8472#if RK5_ENABLED
8473 PURE module function getMatCopy_RDP_LFP_XXD_AIO_RK5(dpack, source, spack, subset, doff, shape, init) result(destin)
8474#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8475 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_AIO_RK5
8476#endif
8477 use pm_kind, only: RKG => RK5
8478 type(rdpack_type) , intent(in) :: dpack
8479 type(lfpack_type) , intent(in) :: spack
8480 type(dia_type) , intent(in) :: subset
8481 integer(IK) , intent(in) , optional :: shape(2), doff
8482 real(RKG) , intent(in) , optional :: init
8483 real(RKG) , intent(in) :: source(:)
8484 real(RKG) , allocatable :: destin(:,:)
8485 end function
8486#endif
8487
8488#if RK4_ENABLED
8489 PURE module function getMatCopy_RDP_LFP_XXD_AIO_RK4(dpack, source, spack, subset, doff, shape, init) result(destin)
8490#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8491 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_AIO_RK4
8492#endif
8493 use pm_kind, only: RKG => RK4
8494 type(rdpack_type) , intent(in) :: dpack
8495 type(lfpack_type) , intent(in) :: spack
8496 type(dia_type) , intent(in) :: subset
8497 integer(IK) , intent(in) , optional :: shape(2), doff
8498 real(RKG) , intent(in) , optional :: init
8499 real(RKG) , intent(in) :: source(:)
8500 real(RKG) , allocatable :: destin(:,:)
8501 end function
8502#endif
8503
8504#if RK3_ENABLED
8505 PURE module function getMatCopy_RDP_LFP_XXD_AIO_RK3(dpack, source, spack, subset, doff, shape, init) result(destin)
8506#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8507 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_AIO_RK3
8508#endif
8509 use pm_kind, only: RKG => RK3
8510 type(rdpack_type) , intent(in) :: dpack
8511 type(lfpack_type) , intent(in) :: spack
8512 type(dia_type) , intent(in) :: subset
8513 integer(IK) , intent(in) , optional :: shape(2), doff
8514 real(RKG) , intent(in) , optional :: init
8515 real(RKG) , intent(in) :: source(:)
8516 real(RKG) , allocatable :: destin(:,:)
8517 end function
8518#endif
8519
8520#if RK2_ENABLED
8521 PURE module function getMatCopy_RDP_LFP_XXD_AIO_RK2(dpack, source, spack, subset, doff, shape, init) result(destin)
8522#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8523 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_AIO_RK2
8524#endif
8525 use pm_kind, only: RKG => RK2
8526 type(rdpack_type) , intent(in) :: dpack
8527 type(lfpack_type) , intent(in) :: spack
8528 type(dia_type) , intent(in) :: subset
8529 integer(IK) , intent(in) , optional :: shape(2), doff
8530 real(RKG) , intent(in) , optional :: init
8531 real(RKG) , intent(in) :: source(:)
8532 real(RKG) , allocatable :: destin(:,:)
8533 end function
8534#endif
8535
8536#if RK1_ENABLED
8537 PURE module function getMatCopy_RDP_LFP_XXD_AIO_RK1(dpack, source, spack, subset, doff, shape, init) result(destin)
8538#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8539 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_AIO_RK1
8540#endif
8541 use pm_kind, only: RKG => RK1
8542 type(rdpack_type) , intent(in) :: dpack
8543 type(lfpack_type) , intent(in) :: spack
8544 type(dia_type) , intent(in) :: subset
8545 integer(IK) , intent(in) , optional :: shape(2), doff
8546 real(RKG) , intent(in) , optional :: init
8547 real(RKG) , intent(in) :: source(:)
8548 real(RKG) , allocatable :: destin(:,:)
8549 end function
8550#endif
8551
8552 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8553
8554 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8555 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8556 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8557
8558 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8559
8560#if SK5_ENABLED
8561 PURE module function getMatCopy_RDP_LFP_XXD_TSO_SK5(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
8562#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8563 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_TSO_SK5
8564#endif
8565 use pm_kind, only: SKG => SK5
8566 type(rdpack_type) , intent(in) :: dpack
8567 type(lfpack_type) , intent(in) :: spack
8568 type(dia_type) , intent(in) :: subset
8569 type(transSymm_type) , intent(in) :: operation
8570 integer(IK) , intent(in) , optional :: shape(2), doff
8571 character(*,SKG) , intent(in) , optional :: init
8572 character(*,SKG) , intent(in) :: source(:)
8573 character(len(source,IK),SKG) , allocatable :: destin(:,:)
8574 end function
8575#endif
8576
8577#if SK4_ENABLED
8578 PURE module function getMatCopy_RDP_LFP_XXD_TSO_SK4(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
8579#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8580 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_TSO_SK4
8581#endif
8582 use pm_kind, only: SKG => SK4
8583 type(rdpack_type) , intent(in) :: dpack
8584 type(lfpack_type) , intent(in) :: spack
8585 type(dia_type) , intent(in) :: subset
8586 type(transSymm_type) , intent(in) :: operation
8587 integer(IK) , intent(in) , optional :: shape(2), doff
8588 character(*,SKG) , intent(in) , optional :: init
8589 character(*,SKG) , intent(in) :: source(:)
8590 character(len(source,IK),SKG) , allocatable :: destin(:,:)
8591 end function
8592#endif
8593
8594#if SK3_ENABLED
8595 PURE module function getMatCopy_RDP_LFP_XXD_TSO_SK3(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
8596#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8597 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_TSO_SK3
8598#endif
8599 use pm_kind, only: SKG => SK3
8600 type(rdpack_type) , intent(in) :: dpack
8601 type(lfpack_type) , intent(in) :: spack
8602 type(dia_type) , intent(in) :: subset
8603 type(transSymm_type) , intent(in) :: operation
8604 integer(IK) , intent(in) , optional :: shape(2), doff
8605 character(*,SKG) , intent(in) , optional :: init
8606 character(*,SKG) , intent(in) :: source(:)
8607 character(len(source,IK),SKG) , allocatable :: destin(:,:)
8608 end function
8609#endif
8610
8611#if SK2_ENABLED
8612 PURE module function getMatCopy_RDP_LFP_XXD_TSO_SK2(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
8613#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8614 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_TSO_SK2
8615#endif
8616 use pm_kind, only: SKG => SK2
8617 type(rdpack_type) , intent(in) :: dpack
8618 type(lfpack_type) , intent(in) :: spack
8619 type(dia_type) , intent(in) :: subset
8620 type(transSymm_type) , intent(in) :: operation
8621 integer(IK) , intent(in) , optional :: shape(2), doff
8622 character(*,SKG) , intent(in) , optional :: init
8623 character(*,SKG) , intent(in) :: source(:)
8624 character(len(source,IK),SKG) , allocatable :: destin(:,:)
8625 end function
8626#endif
8627
8628#if SK1_ENABLED
8629 PURE module function getMatCopy_RDP_LFP_XXD_TSO_SK1(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
8630#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8631 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_TSO_SK1
8632#endif
8633 use pm_kind, only: SKG => SK1
8634 type(rdpack_type) , intent(in) :: dpack
8635 type(lfpack_type) , intent(in) :: spack
8636 type(dia_type) , intent(in) :: subset
8637 type(transSymm_type) , intent(in) :: operation
8638 integer(IK) , intent(in) , optional :: shape(2), doff
8639 character(*,SKG) , intent(in) , optional :: init
8640 character(*,SKG) , intent(in) :: source(:)
8641 character(len(source,IK),SKG) , allocatable :: destin(:,:)
8642 end function
8643#endif
8644
8645 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8646
8647#if IK5_ENABLED
8648 PURE module function getMatCopy_RDP_LFP_XXD_TSO_IK5(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
8649#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8650 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_TSO_IK5
8651#endif
8652 use pm_kind, only: IKG => IK5
8653 type(rdpack_type) , intent(in) :: dpack
8654 type(lfpack_type) , intent(in) :: spack
8655 type(dia_type) , intent(in) :: subset
8656 type(transSymm_type) , intent(in) :: operation
8657 integer(IK) , intent(in) , optional :: shape(2), doff
8658 integer(IKG) , intent(in) , optional :: init
8659 integer(IKG) , intent(in) :: source(:)
8660 integer(IKG) , allocatable :: destin(:,:)
8661 end function
8662#endif
8663
8664#if IK4_ENABLED
8665 PURE module function getMatCopy_RDP_LFP_XXD_TSO_IK4(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
8666#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8667 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_TSO_IK4
8668#endif
8669 use pm_kind, only: IKG => IK4
8670 type(rdpack_type) , intent(in) :: dpack
8671 type(lfpack_type) , intent(in) :: spack
8672 type(dia_type) , intent(in) :: subset
8673 type(transSymm_type) , intent(in) :: operation
8674 integer(IK) , intent(in) , optional :: shape(2), doff
8675 integer(IKG) , intent(in) , optional :: init
8676 integer(IKG) , intent(in) :: source(:)
8677 integer(IKG) , allocatable :: destin(:,:)
8678 end function
8679#endif
8680
8681#if IK3_ENABLED
8682 PURE module function getMatCopy_RDP_LFP_XXD_TSO_IK3(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
8683#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8684 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_TSO_IK3
8685#endif
8686 use pm_kind, only: IKG => IK3
8687 type(rdpack_type) , intent(in) :: dpack
8688 type(lfpack_type) , intent(in) :: spack
8689 type(dia_type) , intent(in) :: subset
8690 type(transSymm_type) , intent(in) :: operation
8691 integer(IK) , intent(in) , optional :: shape(2), doff
8692 integer(IKG) , intent(in) , optional :: init
8693 integer(IKG) , intent(in) :: source(:)
8694 integer(IKG) , allocatable :: destin(:,:)
8695 end function
8696#endif
8697
8698#if IK2_ENABLED
8699 PURE module function getMatCopy_RDP_LFP_XXD_TSO_IK2(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
8700#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8701 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_TSO_IK2
8702#endif
8703 use pm_kind, only: IKG => IK2
8704 type(rdpack_type) , intent(in) :: dpack
8705 type(lfpack_type) , intent(in) :: spack
8706 type(dia_type) , intent(in) :: subset
8707 type(transSymm_type) , intent(in) :: operation
8708 integer(IK) , intent(in) , optional :: shape(2), doff
8709 integer(IKG) , intent(in) , optional :: init
8710 integer(IKG) , intent(in) :: source(:)
8711 integer(IKG) , allocatable :: destin(:,:)
8712 end function
8713#endif
8714
8715#if IK1_ENABLED
8716 PURE module function getMatCopy_RDP_LFP_XXD_TSO_IK1(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
8717#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8718 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_TSO_IK1
8719#endif
8720 use pm_kind, only: IKG => IK1
8721 type(rdpack_type) , intent(in) :: dpack
8722 type(lfpack_type) , intent(in) :: spack
8723 type(dia_type) , intent(in) :: subset
8724 type(transSymm_type) , intent(in) :: operation
8725 integer(IK) , intent(in) , optional :: shape(2), doff
8726 integer(IKG) , intent(in) , optional :: init
8727 integer(IKG) , intent(in) :: source(:)
8728 integer(IKG) , allocatable :: destin(:,:)
8729 end function
8730#endif
8731
8732 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8733
8734#if LK5_ENABLED
8735 PURE module function getMatCopy_RDP_LFP_XXD_TSO_LK5(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
8736#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8737 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_TSO_LK5
8738#endif
8739 use pm_kind, only: LKG => LK5
8740 type(rdpack_type) , intent(in) :: dpack
8741 type(lfpack_type) , intent(in) :: spack
8742 type(dia_type) , intent(in) :: subset
8743 type(transSymm_type) , intent(in) :: operation
8744 integer(IK) , intent(in) , optional :: shape(2), doff
8745 logical(LKG) , intent(in) , optional :: init
8746 logical(LKG) , intent(in) :: source(:)
8747 logical(LKG) , allocatable :: destin(:,:)
8748 end function
8749#endif
8750
8751#if LK4_ENABLED
8752 PURE module function getMatCopy_RDP_LFP_XXD_TSO_LK4(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
8753#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8754 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_TSO_LK4
8755#endif
8756 use pm_kind, only: LKG => LK4
8757 type(rdpack_type) , intent(in) :: dpack
8758 type(lfpack_type) , intent(in) :: spack
8759 type(dia_type) , intent(in) :: subset
8760 type(transSymm_type) , intent(in) :: operation
8761 integer(IK) , intent(in) , optional :: shape(2), doff
8762 logical(LKG) , intent(in) , optional :: init
8763 logical(LKG) , intent(in) :: source(:)
8764 logical(LKG) , allocatable :: destin(:,:)
8765 end function
8766#endif
8767
8768#if LK3_ENABLED
8769 PURE module function getMatCopy_RDP_LFP_XXD_TSO_LK3(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
8770#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8771 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_TSO_LK3
8772#endif
8773 use pm_kind, only: LKG => LK3
8774 type(rdpack_type) , intent(in) :: dpack
8775 type(lfpack_type) , intent(in) :: spack
8776 type(dia_type) , intent(in) :: subset
8777 type(transSymm_type) , intent(in) :: operation
8778 integer(IK) , intent(in) , optional :: shape(2), doff
8779 logical(LKG) , intent(in) , optional :: init
8780 logical(LKG) , intent(in) :: source(:)
8781 logical(LKG) , allocatable :: destin(:,:)
8782 end function
8783#endif
8784
8785#if LK2_ENABLED
8786 PURE module function getMatCopy_RDP_LFP_XXD_TSO_LK2(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
8787#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8788 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_TSO_LK2
8789#endif
8790 use pm_kind, only: LKG => LK2
8791 type(rdpack_type) , intent(in) :: dpack
8792 type(lfpack_type) , intent(in) :: spack
8793 type(dia_type) , intent(in) :: subset
8794 type(transSymm_type) , intent(in) :: operation
8795 integer(IK) , intent(in) , optional :: shape(2), doff
8796 logical(LKG) , intent(in) , optional :: init
8797 logical(LKG) , intent(in) :: source(:)
8798 logical(LKG) , allocatable :: destin(:,:)
8799 end function
8800#endif
8801
8802#if LK1_ENABLED
8803 PURE module function getMatCopy_RDP_LFP_XXD_TSO_LK1(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
8804#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8805 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_TSO_LK1
8806#endif
8807 use pm_kind, only: LKG => LK1
8808 type(rdpack_type) , intent(in) :: dpack
8809 type(lfpack_type) , intent(in) :: spack
8810 type(dia_type) , intent(in) :: subset
8811 type(transSymm_type) , intent(in) :: operation
8812 integer(IK) , intent(in) , optional :: shape(2), doff
8813 logical(LKG) , intent(in) , optional :: init
8814 logical(LKG) , intent(in) :: source(:)
8815 logical(LKG) , allocatable :: destin(:,:)
8816 end function
8817#endif
8818
8819 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8820
8821#if CK5_ENABLED
8822 PURE module function getMatCopy_RDP_LFP_XXD_TSO_CK5(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
8823#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8824 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_TSO_CK5
8825#endif
8826 use pm_kind, only: CKG => CK5
8827 type(rdpack_type) , intent(in) :: dpack
8828 type(lfpack_type) , intent(in) :: spack
8829 type(dia_type) , intent(in) :: subset
8830 type(transSymm_type) , intent(in) :: operation
8831 integer(IK) , intent(in) , optional :: shape(2), doff
8832 complex(CKG) , intent(in) , optional :: init
8833 complex(CKG) , intent(in) :: source(:)
8834 complex(CKG) , allocatable :: destin(:,:)
8835 end function
8836#endif
8837
8838#if CK4_ENABLED
8839 PURE module function getMatCopy_RDP_LFP_XXD_TSO_CK4(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
8840#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8841 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_TSO_CK4
8842#endif
8843 use pm_kind, only: CKG => CK4
8844 type(rdpack_type) , intent(in) :: dpack
8845 type(lfpack_type) , intent(in) :: spack
8846 type(dia_type) , intent(in) :: subset
8847 type(transSymm_type) , intent(in) :: operation
8848 integer(IK) , intent(in) , optional :: shape(2), doff
8849 complex(CKG) , intent(in) , optional :: init
8850 complex(CKG) , intent(in) :: source(:)
8851 complex(CKG) , allocatable :: destin(:,:)
8852 end function
8853#endif
8854
8855#if CK3_ENABLED
8856 PURE module function getMatCopy_RDP_LFP_XXD_TSO_CK3(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
8857#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8858 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_TSO_CK3
8859#endif
8860 use pm_kind, only: CKG => CK3
8861 type(rdpack_type) , intent(in) :: dpack
8862 type(lfpack_type) , intent(in) :: spack
8863 type(dia_type) , intent(in) :: subset
8864 type(transSymm_type) , intent(in) :: operation
8865 integer(IK) , intent(in) , optional :: shape(2), doff
8866 complex(CKG) , intent(in) , optional :: init
8867 complex(CKG) , intent(in) :: source(:)
8868 complex(CKG) , allocatable :: destin(:,:)
8869 end function
8870#endif
8871
8872#if CK2_ENABLED
8873 PURE module function getMatCopy_RDP_LFP_XXD_TSO_CK2(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
8874#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8875 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_TSO_CK2
8876#endif
8877 use pm_kind, only: CKG => CK2
8878 type(rdpack_type) , intent(in) :: dpack
8879 type(lfpack_type) , intent(in) :: spack
8880 type(dia_type) , intent(in) :: subset
8881 type(transSymm_type) , intent(in) :: operation
8882 integer(IK) , intent(in) , optional :: shape(2), doff
8883 complex(CKG) , intent(in) , optional :: init
8884 complex(CKG) , intent(in) :: source(:)
8885 complex(CKG) , allocatable :: destin(:,:)
8886 end function
8887#endif
8888
8889#if CK1_ENABLED
8890 PURE module function getMatCopy_RDP_LFP_XXD_TSO_CK1(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
8891#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8892 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_TSO_CK1
8893#endif
8894 use pm_kind, only: CKG => CK1
8895 type(rdpack_type) , intent(in) :: dpack
8896 type(lfpack_type) , intent(in) :: spack
8897 type(dia_type) , intent(in) :: subset
8898 type(transSymm_type) , intent(in) :: operation
8899 integer(IK) , intent(in) , optional :: shape(2), doff
8900 complex(CKG) , intent(in) , optional :: init
8901 complex(CKG) , intent(in) :: source(:)
8902 complex(CKG) , allocatable :: destin(:,:)
8903 end function
8904#endif
8905
8906 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8907
8908#if RK5_ENABLED
8909 PURE module function getMatCopy_RDP_LFP_XXD_TSO_RK5(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
8910#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8911 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_TSO_RK5
8912#endif
8913 use pm_kind, only: RKG => RK5
8914 type(rdpack_type) , intent(in) :: dpack
8915 type(lfpack_type) , intent(in) :: spack
8916 type(dia_type) , intent(in) :: subset
8917 type(transSymm_type) , intent(in) :: operation
8918 integer(IK) , intent(in) , optional :: shape(2), doff
8919 real(RKG) , intent(in) , optional :: init
8920 real(RKG) , intent(in) :: source(:)
8921 real(RKG) , allocatable :: destin(:,:)
8922 end function
8923#endif
8924
8925#if RK4_ENABLED
8926 PURE module function getMatCopy_RDP_LFP_XXD_TSO_RK4(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
8927#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8928 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_TSO_RK4
8929#endif
8930 use pm_kind, only: RKG => RK4
8931 type(rdpack_type) , intent(in) :: dpack
8932 type(lfpack_type) , intent(in) :: spack
8933 type(dia_type) , intent(in) :: subset
8934 type(transSymm_type) , intent(in) :: operation
8935 integer(IK) , intent(in) , optional :: shape(2), doff
8936 real(RKG) , intent(in) , optional :: init
8937 real(RKG) , intent(in) :: source(:)
8938 real(RKG) , allocatable :: destin(:,:)
8939 end function
8940#endif
8941
8942#if RK3_ENABLED
8943 PURE module function getMatCopy_RDP_LFP_XXD_TSO_RK3(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
8944#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8945 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_TSO_RK3
8946#endif
8947 use pm_kind, only: RKG => RK3
8948 type(rdpack_type) , intent(in) :: dpack
8949 type(lfpack_type) , intent(in) :: spack
8950 type(dia_type) , intent(in) :: subset
8951 type(transSymm_type) , intent(in) :: operation
8952 integer(IK) , intent(in) , optional :: shape(2), doff
8953 real(RKG) , intent(in) , optional :: init
8954 real(RKG) , intent(in) :: source(:)
8955 real(RKG) , allocatable :: destin(:,:)
8956 end function
8957#endif
8958
8959#if RK2_ENABLED
8960 PURE module function getMatCopy_RDP_LFP_XXD_TSO_RK2(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
8961#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8962 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_TSO_RK2
8963#endif
8964 use pm_kind, only: RKG => RK2
8965 type(rdpack_type) , intent(in) :: dpack
8966 type(lfpack_type) , intent(in) :: spack
8967 type(dia_type) , intent(in) :: subset
8968 type(transSymm_type) , intent(in) :: operation
8969 integer(IK) , intent(in) , optional :: shape(2), doff
8970 real(RKG) , intent(in) , optional :: init
8971 real(RKG) , intent(in) :: source(:)
8972 real(RKG) , allocatable :: destin(:,:)
8973 end function
8974#endif
8975
8976#if RK1_ENABLED
8977 PURE module function getMatCopy_RDP_LFP_XXD_TSO_RK1(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
8978#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8979 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_TSO_RK1
8980#endif
8981 use pm_kind, only: RKG => RK1
8982 type(rdpack_type) , intent(in) :: dpack
8983 type(lfpack_type) , intent(in) :: spack
8984 type(dia_type) , intent(in) :: subset
8985 type(transSymm_type) , intent(in) :: operation
8986 integer(IK) , intent(in) , optional :: shape(2), doff
8987 real(RKG) , intent(in) , optional :: init
8988 real(RKG) , intent(in) :: source(:)
8989 real(RKG) , allocatable :: destin(:,:)
8990 end function
8991#endif
8992
8993 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8994
8995 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8996 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8997 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8998
8999 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9000
9001#if SK5_ENABLED
9002 PURE module function getMatCopy_RDP_LFP_XXD_THO_SK5(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
9003#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9004 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_THO_SK5
9005#endif
9006 use pm_kind, only: SKG => SK5
9007 type(rdpack_type) , intent(in) :: dpack
9008 type(lfpack_type) , intent(in) :: spack
9009 type(dia_type) , intent(in) :: subset
9010 type(transHerm_type) , intent(in) :: operation
9011 integer(IK) , intent(in) , optional :: shape(2), doff
9012 character(*,SKG) , intent(in) , optional :: init
9013 character(*,SKG) , intent(in) :: source(:)
9014 character(len(source,IK),SKG) , allocatable :: destin(:,:)
9015 end function
9016#endif
9017
9018#if SK4_ENABLED
9019 PURE module function getMatCopy_RDP_LFP_XXD_THO_SK4(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
9020#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9021 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_THO_SK4
9022#endif
9023 use pm_kind, only: SKG => SK4
9024 type(rdpack_type) , intent(in) :: dpack
9025 type(lfpack_type) , intent(in) :: spack
9026 type(dia_type) , intent(in) :: subset
9027 type(transHerm_type) , intent(in) :: operation
9028 integer(IK) , intent(in) , optional :: shape(2), doff
9029 character(*,SKG) , intent(in) , optional :: init
9030 character(*,SKG) , intent(in) :: source(:)
9031 character(len(source,IK),SKG) , allocatable :: destin(:,:)
9032 end function
9033#endif
9034
9035#if SK3_ENABLED
9036 PURE module function getMatCopy_RDP_LFP_XXD_THO_SK3(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
9037#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9038 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_THO_SK3
9039#endif
9040 use pm_kind, only: SKG => SK3
9041 type(rdpack_type) , intent(in) :: dpack
9042 type(lfpack_type) , intent(in) :: spack
9043 type(dia_type) , intent(in) :: subset
9044 type(transHerm_type) , intent(in) :: operation
9045 integer(IK) , intent(in) , optional :: shape(2), doff
9046 character(*,SKG) , intent(in) , optional :: init
9047 character(*,SKG) , intent(in) :: source(:)
9048 character(len(source,IK),SKG) , allocatable :: destin(:,:)
9049 end function
9050#endif
9051
9052#if SK2_ENABLED
9053 PURE module function getMatCopy_RDP_LFP_XXD_THO_SK2(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
9054#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9055 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_THO_SK2
9056#endif
9057 use pm_kind, only: SKG => SK2
9058 type(rdpack_type) , intent(in) :: dpack
9059 type(lfpack_type) , intent(in) :: spack
9060 type(dia_type) , intent(in) :: subset
9061 type(transHerm_type) , intent(in) :: operation
9062 integer(IK) , intent(in) , optional :: shape(2), doff
9063 character(*,SKG) , intent(in) , optional :: init
9064 character(*,SKG) , intent(in) :: source(:)
9065 character(len(source,IK),SKG) , allocatable :: destin(:,:)
9066 end function
9067#endif
9068
9069#if SK1_ENABLED
9070 PURE module function getMatCopy_RDP_LFP_XXD_THO_SK1(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
9071#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9072 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_THO_SK1
9073#endif
9074 use pm_kind, only: SKG => SK1
9075 type(rdpack_type) , intent(in) :: dpack
9076 type(lfpack_type) , intent(in) :: spack
9077 type(dia_type) , intent(in) :: subset
9078 type(transHerm_type) , intent(in) :: operation
9079 integer(IK) , intent(in) , optional :: shape(2), doff
9080 character(*,SKG) , intent(in) , optional :: init
9081 character(*,SKG) , intent(in) :: source(:)
9082 character(len(source,IK),SKG) , allocatable :: destin(:,:)
9083 end function
9084#endif
9085
9086 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9087
9088#if IK5_ENABLED
9089 PURE module function getMatCopy_RDP_LFP_XXD_THO_IK5(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
9090#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9091 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_THO_IK5
9092#endif
9093 use pm_kind, only: IKG => IK5
9094 type(rdpack_type) , intent(in) :: dpack
9095 type(lfpack_type) , intent(in) :: spack
9096 type(dia_type) , intent(in) :: subset
9097 type(transHerm_type) , intent(in) :: operation
9098 integer(IK) , intent(in) , optional :: shape(2), doff
9099 integer(IKG) , intent(in) , optional :: init
9100 integer(IKG) , intent(in) :: source(:)
9101 integer(IKG) , allocatable :: destin(:,:)
9102 end function
9103#endif
9104
9105#if IK4_ENABLED
9106 PURE module function getMatCopy_RDP_LFP_XXD_THO_IK4(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
9107#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9108 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_THO_IK4
9109#endif
9110 use pm_kind, only: IKG => IK4
9111 type(rdpack_type) , intent(in) :: dpack
9112 type(lfpack_type) , intent(in) :: spack
9113 type(dia_type) , intent(in) :: subset
9114 type(transHerm_type) , intent(in) :: operation
9115 integer(IK) , intent(in) , optional :: shape(2), doff
9116 integer(IKG) , intent(in) , optional :: init
9117 integer(IKG) , intent(in) :: source(:)
9118 integer(IKG) , allocatable :: destin(:,:)
9119 end function
9120#endif
9121
9122#if IK3_ENABLED
9123 PURE module function getMatCopy_RDP_LFP_XXD_THO_IK3(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
9124#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9125 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_THO_IK3
9126#endif
9127 use pm_kind, only: IKG => IK3
9128 type(rdpack_type) , intent(in) :: dpack
9129 type(lfpack_type) , intent(in) :: spack
9130 type(dia_type) , intent(in) :: subset
9131 type(transHerm_type) , intent(in) :: operation
9132 integer(IK) , intent(in) , optional :: shape(2), doff
9133 integer(IKG) , intent(in) , optional :: init
9134 integer(IKG) , intent(in) :: source(:)
9135 integer(IKG) , allocatable :: destin(:,:)
9136 end function
9137#endif
9138
9139#if IK2_ENABLED
9140 PURE module function getMatCopy_RDP_LFP_XXD_THO_IK2(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
9141#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9142 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_THO_IK2
9143#endif
9144 use pm_kind, only: IKG => IK2
9145 type(rdpack_type) , intent(in) :: dpack
9146 type(lfpack_type) , intent(in) :: spack
9147 type(dia_type) , intent(in) :: subset
9148 type(transHerm_type) , intent(in) :: operation
9149 integer(IK) , intent(in) , optional :: shape(2), doff
9150 integer(IKG) , intent(in) , optional :: init
9151 integer(IKG) , intent(in) :: source(:)
9152 integer(IKG) , allocatable :: destin(:,:)
9153 end function
9154#endif
9155
9156#if IK1_ENABLED
9157 PURE module function getMatCopy_RDP_LFP_XXD_THO_IK1(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
9158#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9159 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_THO_IK1
9160#endif
9161 use pm_kind, only: IKG => IK1
9162 type(rdpack_type) , intent(in) :: dpack
9163 type(lfpack_type) , intent(in) :: spack
9164 type(dia_type) , intent(in) :: subset
9165 type(transHerm_type) , intent(in) :: operation
9166 integer(IK) , intent(in) , optional :: shape(2), doff
9167 integer(IKG) , intent(in) , optional :: init
9168 integer(IKG) , intent(in) :: source(:)
9169 integer(IKG) , allocatable :: destin(:,:)
9170 end function
9171#endif
9172
9173 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9174
9175#if LK5_ENABLED
9176 PURE module function getMatCopy_RDP_LFP_XXD_THO_LK5(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
9177#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9178 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_THO_LK5
9179#endif
9180 use pm_kind, only: LKG => LK5
9181 type(rdpack_type) , intent(in) :: dpack
9182 type(lfpack_type) , intent(in) :: spack
9183 type(dia_type) , intent(in) :: subset
9184 type(transHerm_type) , intent(in) :: operation
9185 integer(IK) , intent(in) , optional :: shape(2), doff
9186 logical(LKG) , intent(in) , optional :: init
9187 logical(LKG) , intent(in) :: source(:)
9188 logical(LKG) , allocatable :: destin(:,:)
9189 end function
9190#endif
9191
9192#if LK4_ENABLED
9193 PURE module function getMatCopy_RDP_LFP_XXD_THO_LK4(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
9194#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9195 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_THO_LK4
9196#endif
9197 use pm_kind, only: LKG => LK4
9198 type(rdpack_type) , intent(in) :: dpack
9199 type(lfpack_type) , intent(in) :: spack
9200 type(dia_type) , intent(in) :: subset
9201 type(transHerm_type) , intent(in) :: operation
9202 integer(IK) , intent(in) , optional :: shape(2), doff
9203 logical(LKG) , intent(in) , optional :: init
9204 logical(LKG) , intent(in) :: source(:)
9205 logical(LKG) , allocatable :: destin(:,:)
9206 end function
9207#endif
9208
9209#if LK3_ENABLED
9210 PURE module function getMatCopy_RDP_LFP_XXD_THO_LK3(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
9211#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9212 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_THO_LK3
9213#endif
9214 use pm_kind, only: LKG => LK3
9215 type(rdpack_type) , intent(in) :: dpack
9216 type(lfpack_type) , intent(in) :: spack
9217 type(dia_type) , intent(in) :: subset
9218 type(transHerm_type) , intent(in) :: operation
9219 integer(IK) , intent(in) , optional :: shape(2), doff
9220 logical(LKG) , intent(in) , optional :: init
9221 logical(LKG) , intent(in) :: source(:)
9222 logical(LKG) , allocatable :: destin(:,:)
9223 end function
9224#endif
9225
9226#if LK2_ENABLED
9227 PURE module function getMatCopy_RDP_LFP_XXD_THO_LK2(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
9228#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9229 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_THO_LK2
9230#endif
9231 use pm_kind, only: LKG => LK2
9232 type(rdpack_type) , intent(in) :: dpack
9233 type(lfpack_type) , intent(in) :: spack
9234 type(dia_type) , intent(in) :: subset
9235 type(transHerm_type) , intent(in) :: operation
9236 integer(IK) , intent(in) , optional :: shape(2), doff
9237 logical(LKG) , intent(in) , optional :: init
9238 logical(LKG) , intent(in) :: source(:)
9239 logical(LKG) , allocatable :: destin(:,:)
9240 end function
9241#endif
9242
9243#if LK1_ENABLED
9244 PURE module function getMatCopy_RDP_LFP_XXD_THO_LK1(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
9245#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9246 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_THO_LK1
9247#endif
9248 use pm_kind, only: LKG => LK1
9249 type(rdpack_type) , intent(in) :: dpack
9250 type(lfpack_type) , intent(in) :: spack
9251 type(dia_type) , intent(in) :: subset
9252 type(transHerm_type) , intent(in) :: operation
9253 integer(IK) , intent(in) , optional :: shape(2), doff
9254 logical(LKG) , intent(in) , optional :: init
9255 logical(LKG) , intent(in) :: source(:)
9256 logical(LKG) , allocatable :: destin(:,:)
9257 end function
9258#endif
9259
9260 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9261
9262#if CK5_ENABLED
9263 PURE module function getMatCopy_RDP_LFP_XXD_THO_CK5(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
9264#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9265 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_THO_CK5
9266#endif
9267 use pm_kind, only: CKG => CK5
9268 type(rdpack_type) , intent(in) :: dpack
9269 type(lfpack_type) , intent(in) :: spack
9270 type(dia_type) , intent(in) :: subset
9271 type(transHerm_type) , intent(in) :: operation
9272 integer(IK) , intent(in) , optional :: shape(2), doff
9273 complex(CKG) , intent(in) , optional :: init
9274 complex(CKG) , intent(in) :: source(:)
9275 complex(CKG) , allocatable :: destin(:,:)
9276 end function
9277#endif
9278
9279#if CK4_ENABLED
9280 PURE module function getMatCopy_RDP_LFP_XXD_THO_CK4(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
9281#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9282 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_THO_CK4
9283#endif
9284 use pm_kind, only: CKG => CK4
9285 type(rdpack_type) , intent(in) :: dpack
9286 type(lfpack_type) , intent(in) :: spack
9287 type(dia_type) , intent(in) :: subset
9288 type(transHerm_type) , intent(in) :: operation
9289 integer(IK) , intent(in) , optional :: shape(2), doff
9290 complex(CKG) , intent(in) , optional :: init
9291 complex(CKG) , intent(in) :: source(:)
9292 complex(CKG) , allocatable :: destin(:,:)
9293 end function
9294#endif
9295
9296#if CK3_ENABLED
9297 PURE module function getMatCopy_RDP_LFP_XXD_THO_CK3(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
9298#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9299 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_THO_CK3
9300#endif
9301 use pm_kind, only: CKG => CK3
9302 type(rdpack_type) , intent(in) :: dpack
9303 type(lfpack_type) , intent(in) :: spack
9304 type(dia_type) , intent(in) :: subset
9305 type(transHerm_type) , intent(in) :: operation
9306 integer(IK) , intent(in) , optional :: shape(2), doff
9307 complex(CKG) , intent(in) , optional :: init
9308 complex(CKG) , intent(in) :: source(:)
9309 complex(CKG) , allocatable :: destin(:,:)
9310 end function
9311#endif
9312
9313#if CK2_ENABLED
9314 PURE module function getMatCopy_RDP_LFP_XXD_THO_CK2(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
9315#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9316 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_THO_CK2
9317#endif
9318 use pm_kind, only: CKG => CK2
9319 type(rdpack_type) , intent(in) :: dpack
9320 type(lfpack_type) , intent(in) :: spack
9321 type(dia_type) , intent(in) :: subset
9322 type(transHerm_type) , intent(in) :: operation
9323 integer(IK) , intent(in) , optional :: shape(2), doff
9324 complex(CKG) , intent(in) , optional :: init
9325 complex(CKG) , intent(in) :: source(:)
9326 complex(CKG) , allocatable :: destin(:,:)
9327 end function
9328#endif
9329
9330#if CK1_ENABLED
9331 PURE module function getMatCopy_RDP_LFP_XXD_THO_CK1(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
9332#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9333 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_THO_CK1
9334#endif
9335 use pm_kind, only: CKG => CK1
9336 type(rdpack_type) , intent(in) :: dpack
9337 type(lfpack_type) , intent(in) :: spack
9338 type(dia_type) , intent(in) :: subset
9339 type(transHerm_type) , intent(in) :: operation
9340 integer(IK) , intent(in) , optional :: shape(2), doff
9341 complex(CKG) , intent(in) , optional :: init
9342 complex(CKG) , intent(in) :: source(:)
9343 complex(CKG) , allocatable :: destin(:,:)
9344 end function
9345#endif
9346
9347 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9348
9349#if RK5_ENABLED
9350 PURE module function getMatCopy_RDP_LFP_XXD_THO_RK5(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
9351#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9352 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_THO_RK5
9353#endif
9354 use pm_kind, only: RKG => RK5
9355 type(rdpack_type) , intent(in) :: dpack
9356 type(lfpack_type) , intent(in) :: spack
9357 type(dia_type) , intent(in) :: subset
9358 type(transHerm_type) , intent(in) :: operation
9359 integer(IK) , intent(in) , optional :: shape(2), doff
9360 real(RKG) , intent(in) , optional :: init
9361 real(RKG) , intent(in) :: source(:)
9362 real(RKG) , allocatable :: destin(:,:)
9363 end function
9364#endif
9365
9366#if RK4_ENABLED
9367 PURE module function getMatCopy_RDP_LFP_XXD_THO_RK4(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
9368#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9369 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_THO_RK4
9370#endif
9371 use pm_kind, only: RKG => RK4
9372 type(rdpack_type) , intent(in) :: dpack
9373 type(lfpack_type) , intent(in) :: spack
9374 type(dia_type) , intent(in) :: subset
9375 type(transHerm_type) , intent(in) :: operation
9376 integer(IK) , intent(in) , optional :: shape(2), doff
9377 real(RKG) , intent(in) , optional :: init
9378 real(RKG) , intent(in) :: source(:)
9379 real(RKG) , allocatable :: destin(:,:)
9380 end function
9381#endif
9382
9383#if RK3_ENABLED
9384 PURE module function getMatCopy_RDP_LFP_XXD_THO_RK3(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
9385#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9386 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_THO_RK3
9387#endif
9388 use pm_kind, only: RKG => RK3
9389 type(rdpack_type) , intent(in) :: dpack
9390 type(lfpack_type) , intent(in) :: spack
9391 type(dia_type) , intent(in) :: subset
9392 type(transHerm_type) , intent(in) :: operation
9393 integer(IK) , intent(in) , optional :: shape(2), doff
9394 real(RKG) , intent(in) , optional :: init
9395 real(RKG) , intent(in) :: source(:)
9396 real(RKG) , allocatable :: destin(:,:)
9397 end function
9398#endif
9399
9400#if RK2_ENABLED
9401 PURE module function getMatCopy_RDP_LFP_XXD_THO_RK2(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
9402#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9403 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_THO_RK2
9404#endif
9405 use pm_kind, only: RKG => RK2
9406 type(rdpack_type) , intent(in) :: dpack
9407 type(lfpack_type) , intent(in) :: spack
9408 type(dia_type) , intent(in) :: subset
9409 type(transHerm_type) , intent(in) :: operation
9410 integer(IK) , intent(in) , optional :: shape(2), doff
9411 real(RKG) , intent(in) , optional :: init
9412 real(RKG) , intent(in) :: source(:)
9413 real(RKG) , allocatable :: destin(:,:)
9414 end function
9415#endif
9416
9417#if RK1_ENABLED
9418 PURE module function getMatCopy_RDP_LFP_XXD_THO_RK1(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
9419#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9420 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XXD_THO_RK1
9421#endif
9422 use pm_kind, only: RKG => RK1
9423 type(rdpack_type) , intent(in) :: dpack
9424 type(lfpack_type) , intent(in) :: spack
9425 type(dia_type) , intent(in) :: subset
9426 type(transHerm_type) , intent(in) :: operation
9427 integer(IK) , intent(in) , optional :: shape(2), doff
9428 real(RKG) , intent(in) , optional :: init
9429 real(RKG) , intent(in) :: source(:)
9430 real(RKG) , allocatable :: destin(:,:)
9431 end function
9432#endif
9433
9434 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9435
9436 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9437 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9438 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9439
9440 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9441 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9442 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9443
9444 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9445
9446#if SK5_ENABLED
9447 PURE module function getMatCopy_RDP_LFP_UXD_AIO_SK5(dpack, source, spack, subset, doff, shape, init) result(destin)
9448#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9449 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_AIO_SK5
9450#endif
9451 use pm_kind, only: SKG => SK5
9452 type(rdpack_type) , intent(in) :: dpack
9453 type(lfpack_type) , intent(in) :: spack
9454 type(uppDia_type) , intent(in) :: subset
9455 integer(IK) , intent(in) , optional :: shape(2), doff
9456 character(*,SKG) , intent(in) , optional :: init
9457 character(*,SKG) , intent(in) :: source(:)
9458 character(len(source,IK),SKG) , allocatable :: destin(:,:)
9459 end function
9460#endif
9461
9462#if SK4_ENABLED
9463 PURE module function getMatCopy_RDP_LFP_UXD_AIO_SK4(dpack, source, spack, subset, doff, shape, init) result(destin)
9464#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9465 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_AIO_SK4
9466#endif
9467 use pm_kind, only: SKG => SK4
9468 type(rdpack_type) , intent(in) :: dpack
9469 type(lfpack_type) , intent(in) :: spack
9470 type(uppDia_type) , intent(in) :: subset
9471 integer(IK) , intent(in) , optional :: shape(2), doff
9472 character(*,SKG) , intent(in) , optional :: init
9473 character(*,SKG) , intent(in) :: source(:)
9474 character(len(source,IK),SKG) , allocatable :: destin(:,:)
9475 end function
9476#endif
9477
9478#if SK3_ENABLED
9479 PURE module function getMatCopy_RDP_LFP_UXD_AIO_SK3(dpack, source, spack, subset, doff, shape, init) result(destin)
9480#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9481 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_AIO_SK3
9482#endif
9483 use pm_kind, only: SKG => SK3
9484 type(rdpack_type) , intent(in) :: dpack
9485 type(lfpack_type) , intent(in) :: spack
9486 type(uppDia_type) , intent(in) :: subset
9487 integer(IK) , intent(in) , optional :: shape(2), doff
9488 character(*,SKG) , intent(in) , optional :: init
9489 character(*,SKG) , intent(in) :: source(:)
9490 character(len(source,IK),SKG) , allocatable :: destin(:,:)
9491 end function
9492#endif
9493
9494#if SK2_ENABLED
9495 PURE module function getMatCopy_RDP_LFP_UXD_AIO_SK2(dpack, source, spack, subset, doff, shape, init) result(destin)
9496#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9497 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_AIO_SK2
9498#endif
9499 use pm_kind, only: SKG => SK2
9500 type(rdpack_type) , intent(in) :: dpack
9501 type(lfpack_type) , intent(in) :: spack
9502 type(uppDia_type) , intent(in) :: subset
9503 integer(IK) , intent(in) , optional :: shape(2), doff
9504 character(*,SKG) , intent(in) , optional :: init
9505 character(*,SKG) , intent(in) :: source(:)
9506 character(len(source,IK),SKG) , allocatable :: destin(:,:)
9507 end function
9508#endif
9509
9510#if SK1_ENABLED
9511 PURE module function getMatCopy_RDP_LFP_UXD_AIO_SK1(dpack, source, spack, subset, doff, shape, init) result(destin)
9512#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9513 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_AIO_SK1
9514#endif
9515 use pm_kind, only: SKG => SK1
9516 type(rdpack_type) , intent(in) :: dpack
9517 type(lfpack_type) , intent(in) :: spack
9518 type(uppDia_type) , intent(in) :: subset
9519 integer(IK) , intent(in) , optional :: shape(2), doff
9520 character(*,SKG) , intent(in) , optional :: init
9521 character(*,SKG) , intent(in) :: source(:)
9522 character(len(source,IK),SKG) , allocatable :: destin(:,:)
9523 end function
9524#endif
9525
9526 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9527
9528#if IK5_ENABLED
9529 PURE module function getMatCopy_RDP_LFP_UXD_AIO_IK5(dpack, source, spack, subset, doff, shape, init) result(destin)
9530#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9531 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_AIO_IK5
9532#endif
9533 use pm_kind, only: IKG => IK5
9534 type(rdpack_type) , intent(in) :: dpack
9535 type(lfpack_type) , intent(in) :: spack
9536 type(uppDia_type) , intent(in) :: subset
9537 integer(IK) , intent(in) , optional :: shape(2), doff
9538 integer(IKG) , intent(in) , optional :: init
9539 integer(IKG) , intent(in) :: source(:)
9540 integer(IKG) , allocatable :: destin(:,:)
9541 end function
9542#endif
9543
9544#if IK4_ENABLED
9545 PURE module function getMatCopy_RDP_LFP_UXD_AIO_IK4(dpack, source, spack, subset, doff, shape, init) result(destin)
9546#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9547 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_AIO_IK4
9548#endif
9549 use pm_kind, only: IKG => IK4
9550 type(rdpack_type) , intent(in) :: dpack
9551 type(lfpack_type) , intent(in) :: spack
9552 type(uppDia_type) , intent(in) :: subset
9553 integer(IK) , intent(in) , optional :: shape(2), doff
9554 integer(IKG) , intent(in) , optional :: init
9555 integer(IKG) , intent(in) :: source(:)
9556 integer(IKG) , allocatable :: destin(:,:)
9557 end function
9558#endif
9559
9560#if IK3_ENABLED
9561 PURE module function getMatCopy_RDP_LFP_UXD_AIO_IK3(dpack, source, spack, subset, doff, shape, init) result(destin)
9562#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9563 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_AIO_IK3
9564#endif
9565 use pm_kind, only: IKG => IK3
9566 type(rdpack_type) , intent(in) :: dpack
9567 type(lfpack_type) , intent(in) :: spack
9568 type(uppDia_type) , intent(in) :: subset
9569 integer(IK) , intent(in) , optional :: shape(2), doff
9570 integer(IKG) , intent(in) , optional :: init
9571 integer(IKG) , intent(in) :: source(:)
9572 integer(IKG) , allocatable :: destin(:,:)
9573 end function
9574#endif
9575
9576#if IK2_ENABLED
9577 PURE module function getMatCopy_RDP_LFP_UXD_AIO_IK2(dpack, source, spack, subset, doff, shape, init) result(destin)
9578#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9579 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_AIO_IK2
9580#endif
9581 use pm_kind, only: IKG => IK2
9582 type(rdpack_type) , intent(in) :: dpack
9583 type(lfpack_type) , intent(in) :: spack
9584 type(uppDia_type) , intent(in) :: subset
9585 integer(IK) , intent(in) , optional :: shape(2), doff
9586 integer(IKG) , intent(in) , optional :: init
9587 integer(IKG) , intent(in) :: source(:)
9588 integer(IKG) , allocatable :: destin(:,:)
9589 end function
9590#endif
9591
9592#if IK1_ENABLED
9593 PURE module function getMatCopy_RDP_LFP_UXD_AIO_IK1(dpack, source, spack, subset, doff, shape, init) result(destin)
9594#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9595 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_AIO_IK1
9596#endif
9597 use pm_kind, only: IKG => IK1
9598 type(rdpack_type) , intent(in) :: dpack
9599 type(lfpack_type) , intent(in) :: spack
9600 type(uppDia_type) , intent(in) :: subset
9601 integer(IK) , intent(in) , optional :: shape(2), doff
9602 integer(IKG) , intent(in) , optional :: init
9603 integer(IKG) , intent(in) :: source(:)
9604 integer(IKG) , allocatable :: destin(:,:)
9605 end function
9606#endif
9607
9608 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9609
9610#if LK5_ENABLED
9611 PURE module function getMatCopy_RDP_LFP_UXD_AIO_LK5(dpack, source, spack, subset, doff, shape, init) result(destin)
9612#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9613 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_AIO_LK5
9614#endif
9615 use pm_kind, only: LKG => LK5
9616 type(rdpack_type) , intent(in) :: dpack
9617 type(lfpack_type) , intent(in) :: spack
9618 type(uppDia_type) , intent(in) :: subset
9619 integer(IK) , intent(in) , optional :: shape(2), doff
9620 logical(LKG) , intent(in) , optional :: init
9621 logical(LKG) , intent(in) :: source(:)
9622 logical(LKG) , allocatable :: destin(:,:)
9623 end function
9624#endif
9625
9626#if LK4_ENABLED
9627 PURE module function getMatCopy_RDP_LFP_UXD_AIO_LK4(dpack, source, spack, subset, doff, shape, init) result(destin)
9628#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9629 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_AIO_LK4
9630#endif
9631 use pm_kind, only: LKG => LK4
9632 type(rdpack_type) , intent(in) :: dpack
9633 type(lfpack_type) , intent(in) :: spack
9634 type(uppDia_type) , intent(in) :: subset
9635 integer(IK) , intent(in) , optional :: shape(2), doff
9636 logical(LKG) , intent(in) , optional :: init
9637 logical(LKG) , intent(in) :: source(:)
9638 logical(LKG) , allocatable :: destin(:,:)
9639 end function
9640#endif
9641
9642#if LK3_ENABLED
9643 PURE module function getMatCopy_RDP_LFP_UXD_AIO_LK3(dpack, source, spack, subset, doff, shape, init) result(destin)
9644#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9645 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_AIO_LK3
9646#endif
9647 use pm_kind, only: LKG => LK3
9648 type(rdpack_type) , intent(in) :: dpack
9649 type(lfpack_type) , intent(in) :: spack
9650 type(uppDia_type) , intent(in) :: subset
9651 integer(IK) , intent(in) , optional :: shape(2), doff
9652 logical(LKG) , intent(in) , optional :: init
9653 logical(LKG) , intent(in) :: source(:)
9654 logical(LKG) , allocatable :: destin(:,:)
9655 end function
9656#endif
9657
9658#if LK2_ENABLED
9659 PURE module function getMatCopy_RDP_LFP_UXD_AIO_LK2(dpack, source, spack, subset, doff, shape, init) result(destin)
9660#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9661 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_AIO_LK2
9662#endif
9663 use pm_kind, only: LKG => LK2
9664 type(rdpack_type) , intent(in) :: dpack
9665 type(lfpack_type) , intent(in) :: spack
9666 type(uppDia_type) , intent(in) :: subset
9667 integer(IK) , intent(in) , optional :: shape(2), doff
9668 logical(LKG) , intent(in) , optional :: init
9669 logical(LKG) , intent(in) :: source(:)
9670 logical(LKG) , allocatable :: destin(:,:)
9671 end function
9672#endif
9673
9674#if LK1_ENABLED
9675 PURE module function getMatCopy_RDP_LFP_UXD_AIO_LK1(dpack, source, spack, subset, doff, shape, init) result(destin)
9676#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9677 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_AIO_LK1
9678#endif
9679 use pm_kind, only: LKG => LK1
9680 type(rdpack_type) , intent(in) :: dpack
9681 type(lfpack_type) , intent(in) :: spack
9682 type(uppDia_type) , intent(in) :: subset
9683 integer(IK) , intent(in) , optional :: shape(2), doff
9684 logical(LKG) , intent(in) , optional :: init
9685 logical(LKG) , intent(in) :: source(:)
9686 logical(LKG) , allocatable :: destin(:,:)
9687 end function
9688#endif
9689
9690 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9691
9692#if CK5_ENABLED
9693 PURE module function getMatCopy_RDP_LFP_UXD_AIO_CK5(dpack, source, spack, subset, doff, shape, init) result(destin)
9694#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9695 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_AIO_CK5
9696#endif
9697 use pm_kind, only: CKG => CK5
9698 type(rdpack_type) , intent(in) :: dpack
9699 type(lfpack_type) , intent(in) :: spack
9700 type(uppDia_type) , intent(in) :: subset
9701 integer(IK) , intent(in) , optional :: shape(2), doff
9702 complex(CKG) , intent(in) , optional :: init
9703 complex(CKG) , intent(in) :: source(:)
9704 complex(CKG) , allocatable :: destin(:,:)
9705 end function
9706#endif
9707
9708#if CK4_ENABLED
9709 PURE module function getMatCopy_RDP_LFP_UXD_AIO_CK4(dpack, source, spack, subset, doff, shape, init) result(destin)
9710#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9711 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_AIO_CK4
9712#endif
9713 use pm_kind, only: CKG => CK4
9714 type(rdpack_type) , intent(in) :: dpack
9715 type(lfpack_type) , intent(in) :: spack
9716 type(uppDia_type) , intent(in) :: subset
9717 integer(IK) , intent(in) , optional :: shape(2), doff
9718 complex(CKG) , intent(in) , optional :: init
9719 complex(CKG) , intent(in) :: source(:)
9720 complex(CKG) , allocatable :: destin(:,:)
9721 end function
9722#endif
9723
9724#if CK3_ENABLED
9725 PURE module function getMatCopy_RDP_LFP_UXD_AIO_CK3(dpack, source, spack, subset, doff, shape, init) result(destin)
9726#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9727 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_AIO_CK3
9728#endif
9729 use pm_kind, only: CKG => CK3
9730 type(rdpack_type) , intent(in) :: dpack
9731 type(lfpack_type) , intent(in) :: spack
9732 type(uppDia_type) , intent(in) :: subset
9733 integer(IK) , intent(in) , optional :: shape(2), doff
9734 complex(CKG) , intent(in) , optional :: init
9735 complex(CKG) , intent(in) :: source(:)
9736 complex(CKG) , allocatable :: destin(:,:)
9737 end function
9738#endif
9739
9740#if CK2_ENABLED
9741 PURE module function getMatCopy_RDP_LFP_UXD_AIO_CK2(dpack, source, spack, subset, doff, shape, init) result(destin)
9742#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9743 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_AIO_CK2
9744#endif
9745 use pm_kind, only: CKG => CK2
9746 type(rdpack_type) , intent(in) :: dpack
9747 type(lfpack_type) , intent(in) :: spack
9748 type(uppDia_type) , intent(in) :: subset
9749 integer(IK) , intent(in) , optional :: shape(2), doff
9750 complex(CKG) , intent(in) , optional :: init
9751 complex(CKG) , intent(in) :: source(:)
9752 complex(CKG) , allocatable :: destin(:,:)
9753 end function
9754#endif
9755
9756#if CK1_ENABLED
9757 PURE module function getMatCopy_RDP_LFP_UXD_AIO_CK1(dpack, source, spack, subset, doff, shape, init) result(destin)
9758#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9759 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_AIO_CK1
9760#endif
9761 use pm_kind, only: CKG => CK1
9762 type(rdpack_type) , intent(in) :: dpack
9763 type(lfpack_type) , intent(in) :: spack
9764 type(uppDia_type) , intent(in) :: subset
9765 integer(IK) , intent(in) , optional :: shape(2), doff
9766 complex(CKG) , intent(in) , optional :: init
9767 complex(CKG) , intent(in) :: source(:)
9768 complex(CKG) , allocatable :: destin(:,:)
9769 end function
9770#endif
9771
9772 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9773
9774#if RK5_ENABLED
9775 PURE module function getMatCopy_RDP_LFP_UXD_AIO_RK5(dpack, source, spack, subset, doff, shape, init) result(destin)
9776#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9777 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_AIO_RK5
9778#endif
9779 use pm_kind, only: RKG => RK5
9780 type(rdpack_type) , intent(in) :: dpack
9781 type(lfpack_type) , intent(in) :: spack
9782 type(uppDia_type) , intent(in) :: subset
9783 integer(IK) , intent(in) , optional :: shape(2), doff
9784 real(RKG) , intent(in) , optional :: init
9785 real(RKG) , intent(in) :: source(:)
9786 real(RKG) , allocatable :: destin(:,:)
9787 end function
9788#endif
9789
9790#if RK4_ENABLED
9791 PURE module function getMatCopy_RDP_LFP_UXD_AIO_RK4(dpack, source, spack, subset, doff, shape, init) result(destin)
9792#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9793 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_AIO_RK4
9794#endif
9795 use pm_kind, only: RKG => RK4
9796 type(rdpack_type) , intent(in) :: dpack
9797 type(lfpack_type) , intent(in) :: spack
9798 type(uppDia_type) , intent(in) :: subset
9799 integer(IK) , intent(in) , optional :: shape(2), doff
9800 real(RKG) , intent(in) , optional :: init
9801 real(RKG) , intent(in) :: source(:)
9802 real(RKG) , allocatable :: destin(:,:)
9803 end function
9804#endif
9805
9806#if RK3_ENABLED
9807 PURE module function getMatCopy_RDP_LFP_UXD_AIO_RK3(dpack, source, spack, subset, doff, shape, init) result(destin)
9808#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9809 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_AIO_RK3
9810#endif
9811 use pm_kind, only: RKG => RK3
9812 type(rdpack_type) , intent(in) :: dpack
9813 type(lfpack_type) , intent(in) :: spack
9814 type(uppDia_type) , intent(in) :: subset
9815 integer(IK) , intent(in) , optional :: shape(2), doff
9816 real(RKG) , intent(in) , optional :: init
9817 real(RKG) , intent(in) :: source(:)
9818 real(RKG) , allocatable :: destin(:,:)
9819 end function
9820#endif
9821
9822#if RK2_ENABLED
9823 PURE module function getMatCopy_RDP_LFP_UXD_AIO_RK2(dpack, source, spack, subset, doff, shape, init) result(destin)
9824#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9825 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_AIO_RK2
9826#endif
9827 use pm_kind, only: RKG => RK2
9828 type(rdpack_type) , intent(in) :: dpack
9829 type(lfpack_type) , intent(in) :: spack
9830 type(uppDia_type) , intent(in) :: subset
9831 integer(IK) , intent(in) , optional :: shape(2), doff
9832 real(RKG) , intent(in) , optional :: init
9833 real(RKG) , intent(in) :: source(:)
9834 real(RKG) , allocatable :: destin(:,:)
9835 end function
9836#endif
9837
9838#if RK1_ENABLED
9839 PURE module function getMatCopy_RDP_LFP_UXD_AIO_RK1(dpack, source, spack, subset, doff, shape, init) result(destin)
9840#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9841 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_AIO_RK1
9842#endif
9843 use pm_kind, only: RKG => RK1
9844 type(rdpack_type) , intent(in) :: dpack
9845 type(lfpack_type) , intent(in) :: spack
9846 type(uppDia_type) , intent(in) :: subset
9847 integer(IK) , intent(in) , optional :: shape(2), doff
9848 real(RKG) , intent(in) , optional :: init
9849 real(RKG) , intent(in) :: source(:)
9850 real(RKG) , allocatable :: destin(:,:)
9851 end function
9852#endif
9853
9854 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9855
9856 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9857 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9858 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9859
9860 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9861
9862#if SK5_ENABLED
9863 PURE module function getMatCopy_RDP_LFP_UXD_TSO_SK5(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
9864#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9865 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_TSO_SK5
9866#endif
9867 use pm_kind, only: SKG => SK5
9868 type(rdpack_type) , intent(in) :: dpack
9869 type(lfpack_type) , intent(in) :: spack
9870 type(uppDia_type) , intent(in) :: subset
9871 type(transSymm_type) , intent(in) :: operation
9872 integer(IK) , intent(in) , optional :: shape(2), doff
9873 character(*,SKG) , intent(in) , optional :: init
9874 character(*,SKG) , intent(in) :: source(:)
9875 character(len(source,IK),SKG) , allocatable :: destin(:,:)
9876 end function
9877#endif
9878
9879#if SK4_ENABLED
9880 PURE module function getMatCopy_RDP_LFP_UXD_TSO_SK4(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
9881#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9882 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_TSO_SK4
9883#endif
9884 use pm_kind, only: SKG => SK4
9885 type(rdpack_type) , intent(in) :: dpack
9886 type(lfpack_type) , intent(in) :: spack
9887 type(uppDia_type) , intent(in) :: subset
9888 type(transSymm_type) , intent(in) :: operation
9889 integer(IK) , intent(in) , optional :: shape(2), doff
9890 character(*,SKG) , intent(in) , optional :: init
9891 character(*,SKG) , intent(in) :: source(:)
9892 character(len(source,IK),SKG) , allocatable :: destin(:,:)
9893 end function
9894#endif
9895
9896#if SK3_ENABLED
9897 PURE module function getMatCopy_RDP_LFP_UXD_TSO_SK3(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
9898#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9899 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_TSO_SK3
9900#endif
9901 use pm_kind, only: SKG => SK3
9902 type(rdpack_type) , intent(in) :: dpack
9903 type(lfpack_type) , intent(in) :: spack
9904 type(uppDia_type) , intent(in) :: subset
9905 type(transSymm_type) , intent(in) :: operation
9906 integer(IK) , intent(in) , optional :: shape(2), doff
9907 character(*,SKG) , intent(in) , optional :: init
9908 character(*,SKG) , intent(in) :: source(:)
9909 character(len(source,IK),SKG) , allocatable :: destin(:,:)
9910 end function
9911#endif
9912
9913#if SK2_ENABLED
9914 PURE module function getMatCopy_RDP_LFP_UXD_TSO_SK2(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
9915#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9916 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_TSO_SK2
9917#endif
9918 use pm_kind, only: SKG => SK2
9919 type(rdpack_type) , intent(in) :: dpack
9920 type(lfpack_type) , intent(in) :: spack
9921 type(uppDia_type) , intent(in) :: subset
9922 type(transSymm_type) , intent(in) :: operation
9923 integer(IK) , intent(in) , optional :: shape(2), doff
9924 character(*,SKG) , intent(in) , optional :: init
9925 character(*,SKG) , intent(in) :: source(:)
9926 character(len(source,IK),SKG) , allocatable :: destin(:,:)
9927 end function
9928#endif
9929
9930#if SK1_ENABLED
9931 PURE module function getMatCopy_RDP_LFP_UXD_TSO_SK1(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
9932#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9933 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_TSO_SK1
9934#endif
9935 use pm_kind, only: SKG => SK1
9936 type(rdpack_type) , intent(in) :: dpack
9937 type(lfpack_type) , intent(in) :: spack
9938 type(uppDia_type) , intent(in) :: subset
9939 type(transSymm_type) , intent(in) :: operation
9940 integer(IK) , intent(in) , optional :: shape(2), doff
9941 character(*,SKG) , intent(in) , optional :: init
9942 character(*,SKG) , intent(in) :: source(:)
9943 character(len(source,IK),SKG) , allocatable :: destin(:,:)
9944 end function
9945#endif
9946
9947 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9948
9949#if IK5_ENABLED
9950 PURE module function getMatCopy_RDP_LFP_UXD_TSO_IK5(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
9951#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9952 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_TSO_IK5
9953#endif
9954 use pm_kind, only: IKG => IK5
9955 type(rdpack_type) , intent(in) :: dpack
9956 type(lfpack_type) , intent(in) :: spack
9957 type(uppDia_type) , intent(in) :: subset
9958 type(transSymm_type) , intent(in) :: operation
9959 integer(IK) , intent(in) , optional :: shape(2), doff
9960 integer(IKG) , intent(in) , optional :: init
9961 integer(IKG) , intent(in) :: source(:)
9962 integer(IKG) , allocatable :: destin(:,:)
9963 end function
9964#endif
9965
9966#if IK4_ENABLED
9967 PURE module function getMatCopy_RDP_LFP_UXD_TSO_IK4(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
9968#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9969 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_TSO_IK4
9970#endif
9971 use pm_kind, only: IKG => IK4
9972 type(rdpack_type) , intent(in) :: dpack
9973 type(lfpack_type) , intent(in) :: spack
9974 type(uppDia_type) , intent(in) :: subset
9975 type(transSymm_type) , intent(in) :: operation
9976 integer(IK) , intent(in) , optional :: shape(2), doff
9977 integer(IKG) , intent(in) , optional :: init
9978 integer(IKG) , intent(in) :: source(:)
9979 integer(IKG) , allocatable :: destin(:,:)
9980 end function
9981#endif
9982
9983#if IK3_ENABLED
9984 PURE module function getMatCopy_RDP_LFP_UXD_TSO_IK3(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
9985#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9986 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_TSO_IK3
9987#endif
9988 use pm_kind, only: IKG => IK3
9989 type(rdpack_type) , intent(in) :: dpack
9990 type(lfpack_type) , intent(in) :: spack
9991 type(uppDia_type) , intent(in) :: subset
9992 type(transSymm_type) , intent(in) :: operation
9993 integer(IK) , intent(in) , optional :: shape(2), doff
9994 integer(IKG) , intent(in) , optional :: init
9995 integer(IKG) , intent(in) :: source(:)
9996 integer(IKG) , allocatable :: destin(:,:)
9997 end function
9998#endif
9999
10000#if IK2_ENABLED
10001 PURE module function getMatCopy_RDP_LFP_UXD_TSO_IK2(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
10002#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10003 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_TSO_IK2
10004#endif
10005 use pm_kind, only: IKG => IK2
10006 type(rdpack_type) , intent(in) :: dpack
10007 type(lfpack_type) , intent(in) :: spack
10008 type(uppDia_type) , intent(in) :: subset
10009 type(transSymm_type) , intent(in) :: operation
10010 integer(IK) , intent(in) , optional :: shape(2), doff
10011 integer(IKG) , intent(in) , optional :: init
10012 integer(IKG) , intent(in) :: source(:)
10013 integer(IKG) , allocatable :: destin(:,:)
10014 end function
10015#endif
10016
10017#if IK1_ENABLED
10018 PURE module function getMatCopy_RDP_LFP_UXD_TSO_IK1(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
10019#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10020 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_TSO_IK1
10021#endif
10022 use pm_kind, only: IKG => IK1
10023 type(rdpack_type) , intent(in) :: dpack
10024 type(lfpack_type) , intent(in) :: spack
10025 type(uppDia_type) , intent(in) :: subset
10026 type(transSymm_type) , intent(in) :: operation
10027 integer(IK) , intent(in) , optional :: shape(2), doff
10028 integer(IKG) , intent(in) , optional :: init
10029 integer(IKG) , intent(in) :: source(:)
10030 integer(IKG) , allocatable :: destin(:,:)
10031 end function
10032#endif
10033
10034 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10035
10036#if LK5_ENABLED
10037 PURE module function getMatCopy_RDP_LFP_UXD_TSO_LK5(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
10038#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10039 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_TSO_LK5
10040#endif
10041 use pm_kind, only: LKG => LK5
10042 type(rdpack_type) , intent(in) :: dpack
10043 type(lfpack_type) , intent(in) :: spack
10044 type(uppDia_type) , intent(in) :: subset
10045 type(transSymm_type) , intent(in) :: operation
10046 integer(IK) , intent(in) , optional :: shape(2), doff
10047 logical(LKG) , intent(in) , optional :: init
10048 logical(LKG) , intent(in) :: source(:)
10049 logical(LKG) , allocatable :: destin(:,:)
10050 end function
10051#endif
10052
10053#if LK4_ENABLED
10054 PURE module function getMatCopy_RDP_LFP_UXD_TSO_LK4(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
10055#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10056 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_TSO_LK4
10057#endif
10058 use pm_kind, only: LKG => LK4
10059 type(rdpack_type) , intent(in) :: dpack
10060 type(lfpack_type) , intent(in) :: spack
10061 type(uppDia_type) , intent(in) :: subset
10062 type(transSymm_type) , intent(in) :: operation
10063 integer(IK) , intent(in) , optional :: shape(2), doff
10064 logical(LKG) , intent(in) , optional :: init
10065 logical(LKG) , intent(in) :: source(:)
10066 logical(LKG) , allocatable :: destin(:,:)
10067 end function
10068#endif
10069
10070#if LK3_ENABLED
10071 PURE module function getMatCopy_RDP_LFP_UXD_TSO_LK3(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
10072#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10073 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_TSO_LK3
10074#endif
10075 use pm_kind, only: LKG => LK3
10076 type(rdpack_type) , intent(in) :: dpack
10077 type(lfpack_type) , intent(in) :: spack
10078 type(uppDia_type) , intent(in) :: subset
10079 type(transSymm_type) , intent(in) :: operation
10080 integer(IK) , intent(in) , optional :: shape(2), doff
10081 logical(LKG) , intent(in) , optional :: init
10082 logical(LKG) , intent(in) :: source(:)
10083 logical(LKG) , allocatable :: destin(:,:)
10084 end function
10085#endif
10086
10087#if LK2_ENABLED
10088 PURE module function getMatCopy_RDP_LFP_UXD_TSO_LK2(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
10089#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10090 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_TSO_LK2
10091#endif
10092 use pm_kind, only: LKG => LK2
10093 type(rdpack_type) , intent(in) :: dpack
10094 type(lfpack_type) , intent(in) :: spack
10095 type(uppDia_type) , intent(in) :: subset
10096 type(transSymm_type) , intent(in) :: operation
10097 integer(IK) , intent(in) , optional :: shape(2), doff
10098 logical(LKG) , intent(in) , optional :: init
10099 logical(LKG) , intent(in) :: source(:)
10100 logical(LKG) , allocatable :: destin(:,:)
10101 end function
10102#endif
10103
10104#if LK1_ENABLED
10105 PURE module function getMatCopy_RDP_LFP_UXD_TSO_LK1(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
10106#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10107 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_TSO_LK1
10108#endif
10109 use pm_kind, only: LKG => LK1
10110 type(rdpack_type) , intent(in) :: dpack
10111 type(lfpack_type) , intent(in) :: spack
10112 type(uppDia_type) , intent(in) :: subset
10113 type(transSymm_type) , intent(in) :: operation
10114 integer(IK) , intent(in) , optional :: shape(2), doff
10115 logical(LKG) , intent(in) , optional :: init
10116 logical(LKG) , intent(in) :: source(:)
10117 logical(LKG) , allocatable :: destin(:,:)
10118 end function
10119#endif
10120
10121 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10122
10123#if CK5_ENABLED
10124 PURE module function getMatCopy_RDP_LFP_UXD_TSO_CK5(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
10125#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10126 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_TSO_CK5
10127#endif
10128 use pm_kind, only: CKG => CK5
10129 type(rdpack_type) , intent(in) :: dpack
10130 type(lfpack_type) , intent(in) :: spack
10131 type(uppDia_type) , intent(in) :: subset
10132 type(transSymm_type) , intent(in) :: operation
10133 integer(IK) , intent(in) , optional :: shape(2), doff
10134 complex(CKG) , intent(in) , optional :: init
10135 complex(CKG) , intent(in) :: source(:)
10136 complex(CKG) , allocatable :: destin(:,:)
10137 end function
10138#endif
10139
10140#if CK4_ENABLED
10141 PURE module function getMatCopy_RDP_LFP_UXD_TSO_CK4(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
10142#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10143 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_TSO_CK4
10144#endif
10145 use pm_kind, only: CKG => CK4
10146 type(rdpack_type) , intent(in) :: dpack
10147 type(lfpack_type) , intent(in) :: spack
10148 type(uppDia_type) , intent(in) :: subset
10149 type(transSymm_type) , intent(in) :: operation
10150 integer(IK) , intent(in) , optional :: shape(2), doff
10151 complex(CKG) , intent(in) , optional :: init
10152 complex(CKG) , intent(in) :: source(:)
10153 complex(CKG) , allocatable :: destin(:,:)
10154 end function
10155#endif
10156
10157#if CK3_ENABLED
10158 PURE module function getMatCopy_RDP_LFP_UXD_TSO_CK3(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
10159#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10160 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_TSO_CK3
10161#endif
10162 use pm_kind, only: CKG => CK3
10163 type(rdpack_type) , intent(in) :: dpack
10164 type(lfpack_type) , intent(in) :: spack
10165 type(uppDia_type) , intent(in) :: subset
10166 type(transSymm_type) , intent(in) :: operation
10167 integer(IK) , intent(in) , optional :: shape(2), doff
10168 complex(CKG) , intent(in) , optional :: init
10169 complex(CKG) , intent(in) :: source(:)
10170 complex(CKG) , allocatable :: destin(:,:)
10171 end function
10172#endif
10173
10174#if CK2_ENABLED
10175 PURE module function getMatCopy_RDP_LFP_UXD_TSO_CK2(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
10176#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10177 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_TSO_CK2
10178#endif
10179 use pm_kind, only: CKG => CK2
10180 type(rdpack_type) , intent(in) :: dpack
10181 type(lfpack_type) , intent(in) :: spack
10182 type(uppDia_type) , intent(in) :: subset
10183 type(transSymm_type) , intent(in) :: operation
10184 integer(IK) , intent(in) , optional :: shape(2), doff
10185 complex(CKG) , intent(in) , optional :: init
10186 complex(CKG) , intent(in) :: source(:)
10187 complex(CKG) , allocatable :: destin(:,:)
10188 end function
10189#endif
10190
10191#if CK1_ENABLED
10192 PURE module function getMatCopy_RDP_LFP_UXD_TSO_CK1(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
10193#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10194 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_TSO_CK1
10195#endif
10196 use pm_kind, only: CKG => CK1
10197 type(rdpack_type) , intent(in) :: dpack
10198 type(lfpack_type) , intent(in) :: spack
10199 type(uppDia_type) , intent(in) :: subset
10200 type(transSymm_type) , intent(in) :: operation
10201 integer(IK) , intent(in) , optional :: shape(2), doff
10202 complex(CKG) , intent(in) , optional :: init
10203 complex(CKG) , intent(in) :: source(:)
10204 complex(CKG) , allocatable :: destin(:,:)
10205 end function
10206#endif
10207
10208 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10209
10210#if RK5_ENABLED
10211 PURE module function getMatCopy_RDP_LFP_UXD_TSO_RK5(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
10212#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10213 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_TSO_RK5
10214#endif
10215 use pm_kind, only: RKG => RK5
10216 type(rdpack_type) , intent(in) :: dpack
10217 type(lfpack_type) , intent(in) :: spack
10218 type(uppDia_type) , intent(in) :: subset
10219 type(transSymm_type) , intent(in) :: operation
10220 integer(IK) , intent(in) , optional :: shape(2), doff
10221 real(RKG) , intent(in) , optional :: init
10222 real(RKG) , intent(in) :: source(:)
10223 real(RKG) , allocatable :: destin(:,:)
10224 end function
10225#endif
10226
10227#if RK4_ENABLED
10228 PURE module function getMatCopy_RDP_LFP_UXD_TSO_RK4(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
10229#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10230 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_TSO_RK4
10231#endif
10232 use pm_kind, only: RKG => RK4
10233 type(rdpack_type) , intent(in) :: dpack
10234 type(lfpack_type) , intent(in) :: spack
10235 type(uppDia_type) , intent(in) :: subset
10236 type(transSymm_type) , intent(in) :: operation
10237 integer(IK) , intent(in) , optional :: shape(2), doff
10238 real(RKG) , intent(in) , optional :: init
10239 real(RKG) , intent(in) :: source(:)
10240 real(RKG) , allocatable :: destin(:,:)
10241 end function
10242#endif
10243
10244#if RK3_ENABLED
10245 PURE module function getMatCopy_RDP_LFP_UXD_TSO_RK3(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
10246#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10247 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_TSO_RK3
10248#endif
10249 use pm_kind, only: RKG => RK3
10250 type(rdpack_type) , intent(in) :: dpack
10251 type(lfpack_type) , intent(in) :: spack
10252 type(uppDia_type) , intent(in) :: subset
10253 type(transSymm_type) , intent(in) :: operation
10254 integer(IK) , intent(in) , optional :: shape(2), doff
10255 real(RKG) , intent(in) , optional :: init
10256 real(RKG) , intent(in) :: source(:)
10257 real(RKG) , allocatable :: destin(:,:)
10258 end function
10259#endif
10260
10261#if RK2_ENABLED
10262 PURE module function getMatCopy_RDP_LFP_UXD_TSO_RK2(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
10263#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10264 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_TSO_RK2
10265#endif
10266 use pm_kind, only: RKG => RK2
10267 type(rdpack_type) , intent(in) :: dpack
10268 type(lfpack_type) , intent(in) :: spack
10269 type(uppDia_type) , intent(in) :: subset
10270 type(transSymm_type) , intent(in) :: operation
10271 integer(IK) , intent(in) , optional :: shape(2), doff
10272 real(RKG) , intent(in) , optional :: init
10273 real(RKG) , intent(in) :: source(:)
10274 real(RKG) , allocatable :: destin(:,:)
10275 end function
10276#endif
10277
10278#if RK1_ENABLED
10279 PURE module function getMatCopy_RDP_LFP_UXD_TSO_RK1(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
10280#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10281 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_TSO_RK1
10282#endif
10283 use pm_kind, only: RKG => RK1
10284 type(rdpack_type) , intent(in) :: dpack
10285 type(lfpack_type) , intent(in) :: spack
10286 type(uppDia_type) , intent(in) :: subset
10287 type(transSymm_type) , intent(in) :: operation
10288 integer(IK) , intent(in) , optional :: shape(2), doff
10289 real(RKG) , intent(in) , optional :: init
10290 real(RKG) , intent(in) :: source(:)
10291 real(RKG) , allocatable :: destin(:,:)
10292 end function
10293#endif
10294
10295 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10296
10297 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10298 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10299 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10300
10301 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10302
10303#if SK5_ENABLED
10304 PURE module function getMatCopy_RDP_LFP_UXD_THO_SK5(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
10305#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10306 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_THO_SK5
10307#endif
10308 use pm_kind, only: SKG => SK5
10309 type(rdpack_type) , intent(in) :: dpack
10310 type(lfpack_type) , intent(in) :: spack
10311 type(uppDia_type) , intent(in) :: subset
10312 type(transHerm_type) , intent(in) :: operation
10313 integer(IK) , intent(in) , optional :: shape(2), doff
10314 character(*,SKG) , intent(in) , optional :: init
10315 character(*,SKG) , intent(in) :: source(:)
10316 character(len(source,IK),SKG) , allocatable :: destin(:,:)
10317 end function
10318#endif
10319
10320#if SK4_ENABLED
10321 PURE module function getMatCopy_RDP_LFP_UXD_THO_SK4(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
10322#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10323 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_THO_SK4
10324#endif
10325 use pm_kind, only: SKG => SK4
10326 type(rdpack_type) , intent(in) :: dpack
10327 type(lfpack_type) , intent(in) :: spack
10328 type(uppDia_type) , intent(in) :: subset
10329 type(transHerm_type) , intent(in) :: operation
10330 integer(IK) , intent(in) , optional :: shape(2), doff
10331 character(*,SKG) , intent(in) , optional :: init
10332 character(*,SKG) , intent(in) :: source(:)
10333 character(len(source,IK),SKG) , allocatable :: destin(:,:)
10334 end function
10335#endif
10336
10337#if SK3_ENABLED
10338 PURE module function getMatCopy_RDP_LFP_UXD_THO_SK3(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
10339#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10340 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_THO_SK3
10341#endif
10342 use pm_kind, only: SKG => SK3
10343 type(rdpack_type) , intent(in) :: dpack
10344 type(lfpack_type) , intent(in) :: spack
10345 type(uppDia_type) , intent(in) :: subset
10346 type(transHerm_type) , intent(in) :: operation
10347 integer(IK) , intent(in) , optional :: shape(2), doff
10348 character(*,SKG) , intent(in) , optional :: init
10349 character(*,SKG) , intent(in) :: source(:)
10350 character(len(source,IK),SKG) , allocatable :: destin(:,:)
10351 end function
10352#endif
10353
10354#if SK2_ENABLED
10355 PURE module function getMatCopy_RDP_LFP_UXD_THO_SK2(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
10356#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10357 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_THO_SK2
10358#endif
10359 use pm_kind, only: SKG => SK2
10360 type(rdpack_type) , intent(in) :: dpack
10361 type(lfpack_type) , intent(in) :: spack
10362 type(uppDia_type) , intent(in) :: subset
10363 type(transHerm_type) , intent(in) :: operation
10364 integer(IK) , intent(in) , optional :: shape(2), doff
10365 character(*,SKG) , intent(in) , optional :: init
10366 character(*,SKG) , intent(in) :: source(:)
10367 character(len(source,IK),SKG) , allocatable :: destin(:,:)
10368 end function
10369#endif
10370
10371#if SK1_ENABLED
10372 PURE module function getMatCopy_RDP_LFP_UXD_THO_SK1(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
10373#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10374 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_THO_SK1
10375#endif
10376 use pm_kind, only: SKG => SK1
10377 type(rdpack_type) , intent(in) :: dpack
10378 type(lfpack_type) , intent(in) :: spack
10379 type(uppDia_type) , intent(in) :: subset
10380 type(transHerm_type) , intent(in) :: operation
10381 integer(IK) , intent(in) , optional :: shape(2), doff
10382 character(*,SKG) , intent(in) , optional :: init
10383 character(*,SKG) , intent(in) :: source(:)
10384 character(len(source,IK),SKG) , allocatable :: destin(:,:)
10385 end function
10386#endif
10387
10388 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10389
10390#if IK5_ENABLED
10391 PURE module function getMatCopy_RDP_LFP_UXD_THO_IK5(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
10392#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10393 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_THO_IK5
10394#endif
10395 use pm_kind, only: IKG => IK5
10396 type(rdpack_type) , intent(in) :: dpack
10397 type(lfpack_type) , intent(in) :: spack
10398 type(uppDia_type) , intent(in) :: subset
10399 type(transHerm_type) , intent(in) :: operation
10400 integer(IK) , intent(in) , optional :: shape(2), doff
10401 integer(IKG) , intent(in) , optional :: init
10402 integer(IKG) , intent(in) :: source(:)
10403 integer(IKG) , allocatable :: destin(:,:)
10404 end function
10405#endif
10406
10407#if IK4_ENABLED
10408 PURE module function getMatCopy_RDP_LFP_UXD_THO_IK4(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
10409#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10410 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_THO_IK4
10411#endif
10412 use pm_kind, only: IKG => IK4
10413 type(rdpack_type) , intent(in) :: dpack
10414 type(lfpack_type) , intent(in) :: spack
10415 type(uppDia_type) , intent(in) :: subset
10416 type(transHerm_type) , intent(in) :: operation
10417 integer(IK) , intent(in) , optional :: shape(2), doff
10418 integer(IKG) , intent(in) , optional :: init
10419 integer(IKG) , intent(in) :: source(:)
10420 integer(IKG) , allocatable :: destin(:,:)
10421 end function
10422#endif
10423
10424#if IK3_ENABLED
10425 PURE module function getMatCopy_RDP_LFP_UXD_THO_IK3(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
10426#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10427 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_THO_IK3
10428#endif
10429 use pm_kind, only: IKG => IK3
10430 type(rdpack_type) , intent(in) :: dpack
10431 type(lfpack_type) , intent(in) :: spack
10432 type(uppDia_type) , intent(in) :: subset
10433 type(transHerm_type) , intent(in) :: operation
10434 integer(IK) , intent(in) , optional :: shape(2), doff
10435 integer(IKG) , intent(in) , optional :: init
10436 integer(IKG) , intent(in) :: source(:)
10437 integer(IKG) , allocatable :: destin(:,:)
10438 end function
10439#endif
10440
10441#if IK2_ENABLED
10442 PURE module function getMatCopy_RDP_LFP_UXD_THO_IK2(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
10443#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10444 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_THO_IK2
10445#endif
10446 use pm_kind, only: IKG => IK2
10447 type(rdpack_type) , intent(in) :: dpack
10448 type(lfpack_type) , intent(in) :: spack
10449 type(uppDia_type) , intent(in) :: subset
10450 type(transHerm_type) , intent(in) :: operation
10451 integer(IK) , intent(in) , optional :: shape(2), doff
10452 integer(IKG) , intent(in) , optional :: init
10453 integer(IKG) , intent(in) :: source(:)
10454 integer(IKG) , allocatable :: destin(:,:)
10455 end function
10456#endif
10457
10458#if IK1_ENABLED
10459 PURE module function getMatCopy_RDP_LFP_UXD_THO_IK1(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
10460#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10461 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_THO_IK1
10462#endif
10463 use pm_kind, only: IKG => IK1
10464 type(rdpack_type) , intent(in) :: dpack
10465 type(lfpack_type) , intent(in) :: spack
10466 type(uppDia_type) , intent(in) :: subset
10467 type(transHerm_type) , intent(in) :: operation
10468 integer(IK) , intent(in) , optional :: shape(2), doff
10469 integer(IKG) , intent(in) , optional :: init
10470 integer(IKG) , intent(in) :: source(:)
10471 integer(IKG) , allocatable :: destin(:,:)
10472 end function
10473#endif
10474
10475 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10476
10477#if LK5_ENABLED
10478 PURE module function getMatCopy_RDP_LFP_UXD_THO_LK5(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
10479#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10480 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_THO_LK5
10481#endif
10482 use pm_kind, only: LKG => LK5
10483 type(rdpack_type) , intent(in) :: dpack
10484 type(lfpack_type) , intent(in) :: spack
10485 type(uppDia_type) , intent(in) :: subset
10486 type(transHerm_type) , intent(in) :: operation
10487 integer(IK) , intent(in) , optional :: shape(2), doff
10488 logical(LKG) , intent(in) , optional :: init
10489 logical(LKG) , intent(in) :: source(:)
10490 logical(LKG) , allocatable :: destin(:,:)
10491 end function
10492#endif
10493
10494#if LK4_ENABLED
10495 PURE module function getMatCopy_RDP_LFP_UXD_THO_LK4(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
10496#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10497 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_THO_LK4
10498#endif
10499 use pm_kind, only: LKG => LK4
10500 type(rdpack_type) , intent(in) :: dpack
10501 type(lfpack_type) , intent(in) :: spack
10502 type(uppDia_type) , intent(in) :: subset
10503 type(transHerm_type) , intent(in) :: operation
10504 integer(IK) , intent(in) , optional :: shape(2), doff
10505 logical(LKG) , intent(in) , optional :: init
10506 logical(LKG) , intent(in) :: source(:)
10507 logical(LKG) , allocatable :: destin(:,:)
10508 end function
10509#endif
10510
10511#if LK3_ENABLED
10512 PURE module function getMatCopy_RDP_LFP_UXD_THO_LK3(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
10513#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10514 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_THO_LK3
10515#endif
10516 use pm_kind, only: LKG => LK3
10517 type(rdpack_type) , intent(in) :: dpack
10518 type(lfpack_type) , intent(in) :: spack
10519 type(uppDia_type) , intent(in) :: subset
10520 type(transHerm_type) , intent(in) :: operation
10521 integer(IK) , intent(in) , optional :: shape(2), doff
10522 logical(LKG) , intent(in) , optional :: init
10523 logical(LKG) , intent(in) :: source(:)
10524 logical(LKG) , allocatable :: destin(:,:)
10525 end function
10526#endif
10527
10528#if LK2_ENABLED
10529 PURE module function getMatCopy_RDP_LFP_UXD_THO_LK2(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
10530#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10531 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_THO_LK2
10532#endif
10533 use pm_kind, only: LKG => LK2
10534 type(rdpack_type) , intent(in) :: dpack
10535 type(lfpack_type) , intent(in) :: spack
10536 type(uppDia_type) , intent(in) :: subset
10537 type(transHerm_type) , intent(in) :: operation
10538 integer(IK) , intent(in) , optional :: shape(2), doff
10539 logical(LKG) , intent(in) , optional :: init
10540 logical(LKG) , intent(in) :: source(:)
10541 logical(LKG) , allocatable :: destin(:,:)
10542 end function
10543#endif
10544
10545#if LK1_ENABLED
10546 PURE module function getMatCopy_RDP_LFP_UXD_THO_LK1(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
10547#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10548 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_THO_LK1
10549#endif
10550 use pm_kind, only: LKG => LK1
10551 type(rdpack_type) , intent(in) :: dpack
10552 type(lfpack_type) , intent(in) :: spack
10553 type(uppDia_type) , intent(in) :: subset
10554 type(transHerm_type) , intent(in) :: operation
10555 integer(IK) , intent(in) , optional :: shape(2), doff
10556 logical(LKG) , intent(in) , optional :: init
10557 logical(LKG) , intent(in) :: source(:)
10558 logical(LKG) , allocatable :: destin(:,:)
10559 end function
10560#endif
10561
10562 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10563
10564#if CK5_ENABLED
10565 PURE module function getMatCopy_RDP_LFP_UXD_THO_CK5(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
10566#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10567 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_THO_CK5
10568#endif
10569 use pm_kind, only: CKG => CK5
10570 type(rdpack_type) , intent(in) :: dpack
10571 type(lfpack_type) , intent(in) :: spack
10572 type(uppDia_type) , intent(in) :: subset
10573 type(transHerm_type) , intent(in) :: operation
10574 integer(IK) , intent(in) , optional :: shape(2), doff
10575 complex(CKG) , intent(in) , optional :: init
10576 complex(CKG) , intent(in) :: source(:)
10577 complex(CKG) , allocatable :: destin(:,:)
10578 end function
10579#endif
10580
10581#if CK4_ENABLED
10582 PURE module function getMatCopy_RDP_LFP_UXD_THO_CK4(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
10583#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10584 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_THO_CK4
10585#endif
10586 use pm_kind, only: CKG => CK4
10587 type(rdpack_type) , intent(in) :: dpack
10588 type(lfpack_type) , intent(in) :: spack
10589 type(uppDia_type) , intent(in) :: subset
10590 type(transHerm_type) , intent(in) :: operation
10591 integer(IK) , intent(in) , optional :: shape(2), doff
10592 complex(CKG) , intent(in) , optional :: init
10593 complex(CKG) , intent(in) :: source(:)
10594 complex(CKG) , allocatable :: destin(:,:)
10595 end function
10596#endif
10597
10598#if CK3_ENABLED
10599 PURE module function getMatCopy_RDP_LFP_UXD_THO_CK3(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
10600#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10601 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_THO_CK3
10602#endif
10603 use pm_kind, only: CKG => CK3
10604 type(rdpack_type) , intent(in) :: dpack
10605 type(lfpack_type) , intent(in) :: spack
10606 type(uppDia_type) , intent(in) :: subset
10607 type(transHerm_type) , intent(in) :: operation
10608 integer(IK) , intent(in) , optional :: shape(2), doff
10609 complex(CKG) , intent(in) , optional :: init
10610 complex(CKG) , intent(in) :: source(:)
10611 complex(CKG) , allocatable :: destin(:,:)
10612 end function
10613#endif
10614
10615#if CK2_ENABLED
10616 PURE module function getMatCopy_RDP_LFP_UXD_THO_CK2(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
10617#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10618 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_THO_CK2
10619#endif
10620 use pm_kind, only: CKG => CK2
10621 type(rdpack_type) , intent(in) :: dpack
10622 type(lfpack_type) , intent(in) :: spack
10623 type(uppDia_type) , intent(in) :: subset
10624 type(transHerm_type) , intent(in) :: operation
10625 integer(IK) , intent(in) , optional :: shape(2), doff
10626 complex(CKG) , intent(in) , optional :: init
10627 complex(CKG) , intent(in) :: source(:)
10628 complex(CKG) , allocatable :: destin(:,:)
10629 end function
10630#endif
10631
10632#if CK1_ENABLED
10633 PURE module function getMatCopy_RDP_LFP_UXD_THO_CK1(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
10634#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10635 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_THO_CK1
10636#endif
10637 use pm_kind, only: CKG => CK1
10638 type(rdpack_type) , intent(in) :: dpack
10639 type(lfpack_type) , intent(in) :: spack
10640 type(uppDia_type) , intent(in) :: subset
10641 type(transHerm_type) , intent(in) :: operation
10642 integer(IK) , intent(in) , optional :: shape(2), doff
10643 complex(CKG) , intent(in) , optional :: init
10644 complex(CKG) , intent(in) :: source(:)
10645 complex(CKG) , allocatable :: destin(:,:)
10646 end function
10647#endif
10648
10649 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10650
10651#if RK5_ENABLED
10652 PURE module function getMatCopy_RDP_LFP_UXD_THO_RK5(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
10653#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10654 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_THO_RK5
10655#endif
10656 use pm_kind, only: RKG => RK5
10657 type(rdpack_type) , intent(in) :: dpack
10658 type(lfpack_type) , intent(in) :: spack
10659 type(uppDia_type) , intent(in) :: subset
10660 type(transHerm_type) , intent(in) :: operation
10661 integer(IK) , intent(in) , optional :: shape(2), doff
10662 real(RKG) , intent(in) , optional :: init
10663 real(RKG) , intent(in) :: source(:)
10664 real(RKG) , allocatable :: destin(:,:)
10665 end function
10666#endif
10667
10668#if RK4_ENABLED
10669 PURE module function getMatCopy_RDP_LFP_UXD_THO_RK4(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
10670#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10671 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_THO_RK4
10672#endif
10673 use pm_kind, only: RKG => RK4
10674 type(rdpack_type) , intent(in) :: dpack
10675 type(lfpack_type) , intent(in) :: spack
10676 type(uppDia_type) , intent(in) :: subset
10677 type(transHerm_type) , intent(in) :: operation
10678 integer(IK) , intent(in) , optional :: shape(2), doff
10679 real(RKG) , intent(in) , optional :: init
10680 real(RKG) , intent(in) :: source(:)
10681 real(RKG) , allocatable :: destin(:,:)
10682 end function
10683#endif
10684
10685#if RK3_ENABLED
10686 PURE module function getMatCopy_RDP_LFP_UXD_THO_RK3(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
10687#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10688 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_THO_RK3
10689#endif
10690 use pm_kind, only: RKG => RK3
10691 type(rdpack_type) , intent(in) :: dpack
10692 type(lfpack_type) , intent(in) :: spack
10693 type(uppDia_type) , intent(in) :: subset
10694 type(transHerm_type) , intent(in) :: operation
10695 integer(IK) , intent(in) , optional :: shape(2), doff
10696 real(RKG) , intent(in) , optional :: init
10697 real(RKG) , intent(in) :: source(:)
10698 real(RKG) , allocatable :: destin(:,:)
10699 end function
10700#endif
10701
10702#if RK2_ENABLED
10703 PURE module function getMatCopy_RDP_LFP_UXD_THO_RK2(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
10704#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10705 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_THO_RK2
10706#endif
10707 use pm_kind, only: RKG => RK2
10708 type(rdpack_type) , intent(in) :: dpack
10709 type(lfpack_type) , intent(in) :: spack
10710 type(uppDia_type) , intent(in) :: subset
10711 type(transHerm_type) , intent(in) :: operation
10712 integer(IK) , intent(in) , optional :: shape(2), doff
10713 real(RKG) , intent(in) , optional :: init
10714 real(RKG) , intent(in) :: source(:)
10715 real(RKG) , allocatable :: destin(:,:)
10716 end function
10717#endif
10718
10719#if RK1_ENABLED
10720 PURE module function getMatCopy_RDP_LFP_UXD_THO_RK1(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
10721#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10722 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_UXD_THO_RK1
10723#endif
10724 use pm_kind, only: RKG => RK1
10725 type(rdpack_type) , intent(in) :: dpack
10726 type(lfpack_type) , intent(in) :: spack
10727 type(uppDia_type) , intent(in) :: subset
10728 type(transHerm_type) , intent(in) :: operation
10729 integer(IK) , intent(in) , optional :: shape(2), doff
10730 real(RKG) , intent(in) , optional :: init
10731 real(RKG) , intent(in) :: source(:)
10732 real(RKG) , allocatable :: destin(:,:)
10733 end function
10734#endif
10735
10736 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10737
10738 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10739 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10740 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10741
10742 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10743 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10744 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10745
10746 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10747
10748#if SK5_ENABLED
10749 PURE module function getMatCopy_RDP_LFP_XLD_AIO_SK5(dpack, source, spack, subset, doff, shape, init) result(destin)
10750#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10751 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_AIO_SK5
10752#endif
10753 use pm_kind, only: SKG => SK5
10754 type(rdpack_type) , intent(in) :: dpack
10755 type(lfpack_type) , intent(in) :: spack
10756 type(lowDia_type) , intent(in) :: subset
10757 integer(IK) , intent(in) , optional :: shape(2), doff
10758 character(*,SKG) , intent(in) , optional :: init
10759 character(*,SKG) , intent(in) :: source(:)
10760 character(len(source,IK),SKG) , allocatable :: destin(:,:)
10761 end function
10762#endif
10763
10764#if SK4_ENABLED
10765 PURE module function getMatCopy_RDP_LFP_XLD_AIO_SK4(dpack, source, spack, subset, doff, shape, init) result(destin)
10766#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10767 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_AIO_SK4
10768#endif
10769 use pm_kind, only: SKG => SK4
10770 type(rdpack_type) , intent(in) :: dpack
10771 type(lfpack_type) , intent(in) :: spack
10772 type(lowDia_type) , intent(in) :: subset
10773 integer(IK) , intent(in) , optional :: shape(2), doff
10774 character(*,SKG) , intent(in) , optional :: init
10775 character(*,SKG) , intent(in) :: source(:)
10776 character(len(source,IK),SKG) , allocatable :: destin(:,:)
10777 end function
10778#endif
10779
10780#if SK3_ENABLED
10781 PURE module function getMatCopy_RDP_LFP_XLD_AIO_SK3(dpack, source, spack, subset, doff, shape, init) result(destin)
10782#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10783 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_AIO_SK3
10784#endif
10785 use pm_kind, only: SKG => SK3
10786 type(rdpack_type) , intent(in) :: dpack
10787 type(lfpack_type) , intent(in) :: spack
10788 type(lowDia_type) , intent(in) :: subset
10789 integer(IK) , intent(in) , optional :: shape(2), doff
10790 character(*,SKG) , intent(in) , optional :: init
10791 character(*,SKG) , intent(in) :: source(:)
10792 character(len(source,IK),SKG) , allocatable :: destin(:,:)
10793 end function
10794#endif
10795
10796#if SK2_ENABLED
10797 PURE module function getMatCopy_RDP_LFP_XLD_AIO_SK2(dpack, source, spack, subset, doff, shape, init) result(destin)
10798#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10799 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_AIO_SK2
10800#endif
10801 use pm_kind, only: SKG => SK2
10802 type(rdpack_type) , intent(in) :: dpack
10803 type(lfpack_type) , intent(in) :: spack
10804 type(lowDia_type) , intent(in) :: subset
10805 integer(IK) , intent(in) , optional :: shape(2), doff
10806 character(*,SKG) , intent(in) , optional :: init
10807 character(*,SKG) , intent(in) :: source(:)
10808 character(len(source,IK),SKG) , allocatable :: destin(:,:)
10809 end function
10810#endif
10811
10812#if SK1_ENABLED
10813 PURE module function getMatCopy_RDP_LFP_XLD_AIO_SK1(dpack, source, spack, subset, doff, shape, init) result(destin)
10814#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10815 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_AIO_SK1
10816#endif
10817 use pm_kind, only: SKG => SK1
10818 type(rdpack_type) , intent(in) :: dpack
10819 type(lfpack_type) , intent(in) :: spack
10820 type(lowDia_type) , intent(in) :: subset
10821 integer(IK) , intent(in) , optional :: shape(2), doff
10822 character(*,SKG) , intent(in) , optional :: init
10823 character(*,SKG) , intent(in) :: source(:)
10824 character(len(source,IK),SKG) , allocatable :: destin(:,:)
10825 end function
10826#endif
10827
10828 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10829
10830#if IK5_ENABLED
10831 PURE module function getMatCopy_RDP_LFP_XLD_AIO_IK5(dpack, source, spack, subset, doff, shape, init) result(destin)
10832#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10833 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_AIO_IK5
10834#endif
10835 use pm_kind, only: IKG => IK5
10836 type(rdpack_type) , intent(in) :: dpack
10837 type(lfpack_type) , intent(in) :: spack
10838 type(lowDia_type) , intent(in) :: subset
10839 integer(IK) , intent(in) , optional :: shape(2), doff
10840 integer(IKG) , intent(in) , optional :: init
10841 integer(IKG) , intent(in) :: source(:)
10842 integer(IKG) , allocatable :: destin(:,:)
10843 end function
10844#endif
10845
10846#if IK4_ENABLED
10847 PURE module function getMatCopy_RDP_LFP_XLD_AIO_IK4(dpack, source, spack, subset, doff, shape, init) result(destin)
10848#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10849 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_AIO_IK4
10850#endif
10851 use pm_kind, only: IKG => IK4
10852 type(rdpack_type) , intent(in) :: dpack
10853 type(lfpack_type) , intent(in) :: spack
10854 type(lowDia_type) , intent(in) :: subset
10855 integer(IK) , intent(in) , optional :: shape(2), doff
10856 integer(IKG) , intent(in) , optional :: init
10857 integer(IKG) , intent(in) :: source(:)
10858 integer(IKG) , allocatable :: destin(:,:)
10859 end function
10860#endif
10861
10862#if IK3_ENABLED
10863 PURE module function getMatCopy_RDP_LFP_XLD_AIO_IK3(dpack, source, spack, subset, doff, shape, init) result(destin)
10864#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10865 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_AIO_IK3
10866#endif
10867 use pm_kind, only: IKG => IK3
10868 type(rdpack_type) , intent(in) :: dpack
10869 type(lfpack_type) , intent(in) :: spack
10870 type(lowDia_type) , intent(in) :: subset
10871 integer(IK) , intent(in) , optional :: shape(2), doff
10872 integer(IKG) , intent(in) , optional :: init
10873 integer(IKG) , intent(in) :: source(:)
10874 integer(IKG) , allocatable :: destin(:,:)
10875 end function
10876#endif
10877
10878#if IK2_ENABLED
10879 PURE module function getMatCopy_RDP_LFP_XLD_AIO_IK2(dpack, source, spack, subset, doff, shape, init) result(destin)
10880#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10881 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_AIO_IK2
10882#endif
10883 use pm_kind, only: IKG => IK2
10884 type(rdpack_type) , intent(in) :: dpack
10885 type(lfpack_type) , intent(in) :: spack
10886 type(lowDia_type) , intent(in) :: subset
10887 integer(IK) , intent(in) , optional :: shape(2), doff
10888 integer(IKG) , intent(in) , optional :: init
10889 integer(IKG) , intent(in) :: source(:)
10890 integer(IKG) , allocatable :: destin(:,:)
10891 end function
10892#endif
10893
10894#if IK1_ENABLED
10895 PURE module function getMatCopy_RDP_LFP_XLD_AIO_IK1(dpack, source, spack, subset, doff, shape, init) result(destin)
10896#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10897 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_AIO_IK1
10898#endif
10899 use pm_kind, only: IKG => IK1
10900 type(rdpack_type) , intent(in) :: dpack
10901 type(lfpack_type) , intent(in) :: spack
10902 type(lowDia_type) , intent(in) :: subset
10903 integer(IK) , intent(in) , optional :: shape(2), doff
10904 integer(IKG) , intent(in) , optional :: init
10905 integer(IKG) , intent(in) :: source(:)
10906 integer(IKG) , allocatable :: destin(:,:)
10907 end function
10908#endif
10909
10910 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10911
10912#if LK5_ENABLED
10913 PURE module function getMatCopy_RDP_LFP_XLD_AIO_LK5(dpack, source, spack, subset, doff, shape, init) result(destin)
10914#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10915 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_AIO_LK5
10916#endif
10917 use pm_kind, only: LKG => LK5
10918 type(rdpack_type) , intent(in) :: dpack
10919 type(lfpack_type) , intent(in) :: spack
10920 type(lowDia_type) , intent(in) :: subset
10921 integer(IK) , intent(in) , optional :: shape(2), doff
10922 logical(LKG) , intent(in) , optional :: init
10923 logical(LKG) , intent(in) :: source(:)
10924 logical(LKG) , allocatable :: destin(:,:)
10925 end function
10926#endif
10927
10928#if LK4_ENABLED
10929 PURE module function getMatCopy_RDP_LFP_XLD_AIO_LK4(dpack, source, spack, subset, doff, shape, init) result(destin)
10930#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10931 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_AIO_LK4
10932#endif
10933 use pm_kind, only: LKG => LK4
10934 type(rdpack_type) , intent(in) :: dpack
10935 type(lfpack_type) , intent(in) :: spack
10936 type(lowDia_type) , intent(in) :: subset
10937 integer(IK) , intent(in) , optional :: shape(2), doff
10938 logical(LKG) , intent(in) , optional :: init
10939 logical(LKG) , intent(in) :: source(:)
10940 logical(LKG) , allocatable :: destin(:,:)
10941 end function
10942#endif
10943
10944#if LK3_ENABLED
10945 PURE module function getMatCopy_RDP_LFP_XLD_AIO_LK3(dpack, source, spack, subset, doff, shape, init) result(destin)
10946#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10947 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_AIO_LK3
10948#endif
10949 use pm_kind, only: LKG => LK3
10950 type(rdpack_type) , intent(in) :: dpack
10951 type(lfpack_type) , intent(in) :: spack
10952 type(lowDia_type) , intent(in) :: subset
10953 integer(IK) , intent(in) , optional :: shape(2), doff
10954 logical(LKG) , intent(in) , optional :: init
10955 logical(LKG) , intent(in) :: source(:)
10956 logical(LKG) , allocatable :: destin(:,:)
10957 end function
10958#endif
10959
10960#if LK2_ENABLED
10961 PURE module function getMatCopy_RDP_LFP_XLD_AIO_LK2(dpack, source, spack, subset, doff, shape, init) result(destin)
10962#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10963 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_AIO_LK2
10964#endif
10965 use pm_kind, only: LKG => LK2
10966 type(rdpack_type) , intent(in) :: dpack
10967 type(lfpack_type) , intent(in) :: spack
10968 type(lowDia_type) , intent(in) :: subset
10969 integer(IK) , intent(in) , optional :: shape(2), doff
10970 logical(LKG) , intent(in) , optional :: init
10971 logical(LKG) , intent(in) :: source(:)
10972 logical(LKG) , allocatable :: destin(:,:)
10973 end function
10974#endif
10975
10976#if LK1_ENABLED
10977 PURE module function getMatCopy_RDP_LFP_XLD_AIO_LK1(dpack, source, spack, subset, doff, shape, init) result(destin)
10978#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10979 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_AIO_LK1
10980#endif
10981 use pm_kind, only: LKG => LK1
10982 type(rdpack_type) , intent(in) :: dpack
10983 type(lfpack_type) , intent(in) :: spack
10984 type(lowDia_type) , intent(in) :: subset
10985 integer(IK) , intent(in) , optional :: shape(2), doff
10986 logical(LKG) , intent(in) , optional :: init
10987 logical(LKG) , intent(in) :: source(:)
10988 logical(LKG) , allocatable :: destin(:,:)
10989 end function
10990#endif
10991
10992 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10993
10994#if CK5_ENABLED
10995 PURE module function getMatCopy_RDP_LFP_XLD_AIO_CK5(dpack, source, spack, subset, doff, shape, init) result(destin)
10996#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10997 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_AIO_CK5
10998#endif
10999 use pm_kind, only: CKG => CK5
11000 type(rdpack_type) , intent(in) :: dpack
11001 type(lfpack_type) , intent(in) :: spack
11002 type(lowDia_type) , intent(in) :: subset
11003 integer(IK) , intent(in) , optional :: shape(2), doff
11004 complex(CKG) , intent(in) , optional :: init
11005 complex(CKG) , intent(in) :: source(:)
11006 complex(CKG) , allocatable :: destin(:,:)
11007 end function
11008#endif
11009
11010#if CK4_ENABLED
11011 PURE module function getMatCopy_RDP_LFP_XLD_AIO_CK4(dpack, source, spack, subset, doff, shape, init) result(destin)
11012#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11013 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_AIO_CK4
11014#endif
11015 use pm_kind, only: CKG => CK4
11016 type(rdpack_type) , intent(in) :: dpack
11017 type(lfpack_type) , intent(in) :: spack
11018 type(lowDia_type) , intent(in) :: subset
11019 integer(IK) , intent(in) , optional :: shape(2), doff
11020 complex(CKG) , intent(in) , optional :: init
11021 complex(CKG) , intent(in) :: source(:)
11022 complex(CKG) , allocatable :: destin(:,:)
11023 end function
11024#endif
11025
11026#if CK3_ENABLED
11027 PURE module function getMatCopy_RDP_LFP_XLD_AIO_CK3(dpack, source, spack, subset, doff, shape, init) result(destin)
11028#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11029 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_AIO_CK3
11030#endif
11031 use pm_kind, only: CKG => CK3
11032 type(rdpack_type) , intent(in) :: dpack
11033 type(lfpack_type) , intent(in) :: spack
11034 type(lowDia_type) , intent(in) :: subset
11035 integer(IK) , intent(in) , optional :: shape(2), doff
11036 complex(CKG) , intent(in) , optional :: init
11037 complex(CKG) , intent(in) :: source(:)
11038 complex(CKG) , allocatable :: destin(:,:)
11039 end function
11040#endif
11041
11042#if CK2_ENABLED
11043 PURE module function getMatCopy_RDP_LFP_XLD_AIO_CK2(dpack, source, spack, subset, doff, shape, init) result(destin)
11044#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11045 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_AIO_CK2
11046#endif
11047 use pm_kind, only: CKG => CK2
11048 type(rdpack_type) , intent(in) :: dpack
11049 type(lfpack_type) , intent(in) :: spack
11050 type(lowDia_type) , intent(in) :: subset
11051 integer(IK) , intent(in) , optional :: shape(2), doff
11052 complex(CKG) , intent(in) , optional :: init
11053 complex(CKG) , intent(in) :: source(:)
11054 complex(CKG) , allocatable :: destin(:,:)
11055 end function
11056#endif
11057
11058#if CK1_ENABLED
11059 PURE module function getMatCopy_RDP_LFP_XLD_AIO_CK1(dpack, source, spack, subset, doff, shape, init) result(destin)
11060#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11061 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_AIO_CK1
11062#endif
11063 use pm_kind, only: CKG => CK1
11064 type(rdpack_type) , intent(in) :: dpack
11065 type(lfpack_type) , intent(in) :: spack
11066 type(lowDia_type) , intent(in) :: subset
11067 integer(IK) , intent(in) , optional :: shape(2), doff
11068 complex(CKG) , intent(in) , optional :: init
11069 complex(CKG) , intent(in) :: source(:)
11070 complex(CKG) , allocatable :: destin(:,:)
11071 end function
11072#endif
11073
11074 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11075
11076#if RK5_ENABLED
11077 PURE module function getMatCopy_RDP_LFP_XLD_AIO_RK5(dpack, source, spack, subset, doff, shape, init) result(destin)
11078#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11079 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_AIO_RK5
11080#endif
11081 use pm_kind, only: RKG => RK5
11082 type(rdpack_type) , intent(in) :: dpack
11083 type(lfpack_type) , intent(in) :: spack
11084 type(lowDia_type) , intent(in) :: subset
11085 integer(IK) , intent(in) , optional :: shape(2), doff
11086 real(RKG) , intent(in) , optional :: init
11087 real(RKG) , intent(in) :: source(:)
11088 real(RKG) , allocatable :: destin(:,:)
11089 end function
11090#endif
11091
11092#if RK4_ENABLED
11093 PURE module function getMatCopy_RDP_LFP_XLD_AIO_RK4(dpack, source, spack, subset, doff, shape, init) result(destin)
11094#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11095 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_AIO_RK4
11096#endif
11097 use pm_kind, only: RKG => RK4
11098 type(rdpack_type) , intent(in) :: dpack
11099 type(lfpack_type) , intent(in) :: spack
11100 type(lowDia_type) , intent(in) :: subset
11101 integer(IK) , intent(in) , optional :: shape(2), doff
11102 real(RKG) , intent(in) , optional :: init
11103 real(RKG) , intent(in) :: source(:)
11104 real(RKG) , allocatable :: destin(:,:)
11105 end function
11106#endif
11107
11108#if RK3_ENABLED
11109 PURE module function getMatCopy_RDP_LFP_XLD_AIO_RK3(dpack, source, spack, subset, doff, shape, init) result(destin)
11110#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11111 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_AIO_RK3
11112#endif
11113 use pm_kind, only: RKG => RK3
11114 type(rdpack_type) , intent(in) :: dpack
11115 type(lfpack_type) , intent(in) :: spack
11116 type(lowDia_type) , intent(in) :: subset
11117 integer(IK) , intent(in) , optional :: shape(2), doff
11118 real(RKG) , intent(in) , optional :: init
11119 real(RKG) , intent(in) :: source(:)
11120 real(RKG) , allocatable :: destin(:,:)
11121 end function
11122#endif
11123
11124#if RK2_ENABLED
11125 PURE module function getMatCopy_RDP_LFP_XLD_AIO_RK2(dpack, source, spack, subset, doff, shape, init) result(destin)
11126#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11127 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_AIO_RK2
11128#endif
11129 use pm_kind, only: RKG => RK2
11130 type(rdpack_type) , intent(in) :: dpack
11131 type(lfpack_type) , intent(in) :: spack
11132 type(lowDia_type) , intent(in) :: subset
11133 integer(IK) , intent(in) , optional :: shape(2), doff
11134 real(RKG) , intent(in) , optional :: init
11135 real(RKG) , intent(in) :: source(:)
11136 real(RKG) , allocatable :: destin(:,:)
11137 end function
11138#endif
11139
11140#if RK1_ENABLED
11141 PURE module function getMatCopy_RDP_LFP_XLD_AIO_RK1(dpack, source, spack, subset, doff, shape, init) result(destin)
11142#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11143 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_AIO_RK1
11144#endif
11145 use pm_kind, only: RKG => RK1
11146 type(rdpack_type) , intent(in) :: dpack
11147 type(lfpack_type) , intent(in) :: spack
11148 type(lowDia_type) , intent(in) :: subset
11149 integer(IK) , intent(in) , optional :: shape(2), doff
11150 real(RKG) , intent(in) , optional :: init
11151 real(RKG) , intent(in) :: source(:)
11152 real(RKG) , allocatable :: destin(:,:)
11153 end function
11154#endif
11155
11156 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11157
11158 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11159 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11160 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11161
11162 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11163
11164#if SK5_ENABLED
11165 PURE module function getMatCopy_RDP_LFP_XLD_TSO_SK5(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
11166#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11167 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_TSO_SK5
11168#endif
11169 use pm_kind, only: SKG => SK5
11170 type(rdpack_type) , intent(in) :: dpack
11171 type(lfpack_type) , intent(in) :: spack
11172 type(lowDia_type) , intent(in) :: subset
11173 type(transSymm_type) , intent(in) :: operation
11174 integer(IK) , intent(in) , optional :: shape(2), doff
11175 character(*,SKG) , intent(in) , optional :: init
11176 character(*,SKG) , intent(in) :: source(:)
11177 character(len(source,IK),SKG) , allocatable :: destin(:,:)
11178 end function
11179#endif
11180
11181#if SK4_ENABLED
11182 PURE module function getMatCopy_RDP_LFP_XLD_TSO_SK4(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
11183#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11184 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_TSO_SK4
11185#endif
11186 use pm_kind, only: SKG => SK4
11187 type(rdpack_type) , intent(in) :: dpack
11188 type(lfpack_type) , intent(in) :: spack
11189 type(lowDia_type) , intent(in) :: subset
11190 type(transSymm_type) , intent(in) :: operation
11191 integer(IK) , intent(in) , optional :: shape(2), doff
11192 character(*,SKG) , intent(in) , optional :: init
11193 character(*,SKG) , intent(in) :: source(:)
11194 character(len(source,IK),SKG) , allocatable :: destin(:,:)
11195 end function
11196#endif
11197
11198#if SK3_ENABLED
11199 PURE module function getMatCopy_RDP_LFP_XLD_TSO_SK3(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
11200#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11201 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_TSO_SK3
11202#endif
11203 use pm_kind, only: SKG => SK3
11204 type(rdpack_type) , intent(in) :: dpack
11205 type(lfpack_type) , intent(in) :: spack
11206 type(lowDia_type) , intent(in) :: subset
11207 type(transSymm_type) , intent(in) :: operation
11208 integer(IK) , intent(in) , optional :: shape(2), doff
11209 character(*,SKG) , intent(in) , optional :: init
11210 character(*,SKG) , intent(in) :: source(:)
11211 character(len(source,IK),SKG) , allocatable :: destin(:,:)
11212 end function
11213#endif
11214
11215#if SK2_ENABLED
11216 PURE module function getMatCopy_RDP_LFP_XLD_TSO_SK2(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
11217#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11218 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_TSO_SK2
11219#endif
11220 use pm_kind, only: SKG => SK2
11221 type(rdpack_type) , intent(in) :: dpack
11222 type(lfpack_type) , intent(in) :: spack
11223 type(lowDia_type) , intent(in) :: subset
11224 type(transSymm_type) , intent(in) :: operation
11225 integer(IK) , intent(in) , optional :: shape(2), doff
11226 character(*,SKG) , intent(in) , optional :: init
11227 character(*,SKG) , intent(in) :: source(:)
11228 character(len(source,IK),SKG) , allocatable :: destin(:,:)
11229 end function
11230#endif
11231
11232#if SK1_ENABLED
11233 PURE module function getMatCopy_RDP_LFP_XLD_TSO_SK1(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
11234#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11235 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_TSO_SK1
11236#endif
11237 use pm_kind, only: SKG => SK1
11238 type(rdpack_type) , intent(in) :: dpack
11239 type(lfpack_type) , intent(in) :: spack
11240 type(lowDia_type) , intent(in) :: subset
11241 type(transSymm_type) , intent(in) :: operation
11242 integer(IK) , intent(in) , optional :: shape(2), doff
11243 character(*,SKG) , intent(in) , optional :: init
11244 character(*,SKG) , intent(in) :: source(:)
11245 character(len(source,IK),SKG) , allocatable :: destin(:,:)
11246 end function
11247#endif
11248
11249 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11250
11251#if IK5_ENABLED
11252 PURE module function getMatCopy_RDP_LFP_XLD_TSO_IK5(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
11253#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11254 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_TSO_IK5
11255#endif
11256 use pm_kind, only: IKG => IK5
11257 type(rdpack_type) , intent(in) :: dpack
11258 type(lfpack_type) , intent(in) :: spack
11259 type(lowDia_type) , intent(in) :: subset
11260 type(transSymm_type) , intent(in) :: operation
11261 integer(IK) , intent(in) , optional :: shape(2), doff
11262 integer(IKG) , intent(in) , optional :: init
11263 integer(IKG) , intent(in) :: source(:)
11264 integer(IKG) , allocatable :: destin(:,:)
11265 end function
11266#endif
11267
11268#if IK4_ENABLED
11269 PURE module function getMatCopy_RDP_LFP_XLD_TSO_IK4(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
11270#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11271 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_TSO_IK4
11272#endif
11273 use pm_kind, only: IKG => IK4
11274 type(rdpack_type) , intent(in) :: dpack
11275 type(lfpack_type) , intent(in) :: spack
11276 type(lowDia_type) , intent(in) :: subset
11277 type(transSymm_type) , intent(in) :: operation
11278 integer(IK) , intent(in) , optional :: shape(2), doff
11279 integer(IKG) , intent(in) , optional :: init
11280 integer(IKG) , intent(in) :: source(:)
11281 integer(IKG) , allocatable :: destin(:,:)
11282 end function
11283#endif
11284
11285#if IK3_ENABLED
11286 PURE module function getMatCopy_RDP_LFP_XLD_TSO_IK3(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
11287#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11288 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_TSO_IK3
11289#endif
11290 use pm_kind, only: IKG => IK3
11291 type(rdpack_type) , intent(in) :: dpack
11292 type(lfpack_type) , intent(in) :: spack
11293 type(lowDia_type) , intent(in) :: subset
11294 type(transSymm_type) , intent(in) :: operation
11295 integer(IK) , intent(in) , optional :: shape(2), doff
11296 integer(IKG) , intent(in) , optional :: init
11297 integer(IKG) , intent(in) :: source(:)
11298 integer(IKG) , allocatable :: destin(:,:)
11299 end function
11300#endif
11301
11302#if IK2_ENABLED
11303 PURE module function getMatCopy_RDP_LFP_XLD_TSO_IK2(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
11304#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11305 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_TSO_IK2
11306#endif
11307 use pm_kind, only: IKG => IK2
11308 type(rdpack_type) , intent(in) :: dpack
11309 type(lfpack_type) , intent(in) :: spack
11310 type(lowDia_type) , intent(in) :: subset
11311 type(transSymm_type) , intent(in) :: operation
11312 integer(IK) , intent(in) , optional :: shape(2), doff
11313 integer(IKG) , intent(in) , optional :: init
11314 integer(IKG) , intent(in) :: source(:)
11315 integer(IKG) , allocatable :: destin(:,:)
11316 end function
11317#endif
11318
11319#if IK1_ENABLED
11320 PURE module function getMatCopy_RDP_LFP_XLD_TSO_IK1(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
11321#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11322 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_TSO_IK1
11323#endif
11324 use pm_kind, only: IKG => IK1
11325 type(rdpack_type) , intent(in) :: dpack
11326 type(lfpack_type) , intent(in) :: spack
11327 type(lowDia_type) , intent(in) :: subset
11328 type(transSymm_type) , intent(in) :: operation
11329 integer(IK) , intent(in) , optional :: shape(2), doff
11330 integer(IKG) , intent(in) , optional :: init
11331 integer(IKG) , intent(in) :: source(:)
11332 integer(IKG) , allocatable :: destin(:,:)
11333 end function
11334#endif
11335
11336 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11337
11338#if LK5_ENABLED
11339 PURE module function getMatCopy_RDP_LFP_XLD_TSO_LK5(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
11340#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11341 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_TSO_LK5
11342#endif
11343 use pm_kind, only: LKG => LK5
11344 type(rdpack_type) , intent(in) :: dpack
11345 type(lfpack_type) , intent(in) :: spack
11346 type(lowDia_type) , intent(in) :: subset
11347 type(transSymm_type) , intent(in) :: operation
11348 integer(IK) , intent(in) , optional :: shape(2), doff
11349 logical(LKG) , intent(in) , optional :: init
11350 logical(LKG) , intent(in) :: source(:)
11351 logical(LKG) , allocatable :: destin(:,:)
11352 end function
11353#endif
11354
11355#if LK4_ENABLED
11356 PURE module function getMatCopy_RDP_LFP_XLD_TSO_LK4(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
11357#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11358 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_TSO_LK4
11359#endif
11360 use pm_kind, only: LKG => LK4
11361 type(rdpack_type) , intent(in) :: dpack
11362 type(lfpack_type) , intent(in) :: spack
11363 type(lowDia_type) , intent(in) :: subset
11364 type(transSymm_type) , intent(in) :: operation
11365 integer(IK) , intent(in) , optional :: shape(2), doff
11366 logical(LKG) , intent(in) , optional :: init
11367 logical(LKG) , intent(in) :: source(:)
11368 logical(LKG) , allocatable :: destin(:,:)
11369 end function
11370#endif
11371
11372#if LK3_ENABLED
11373 PURE module function getMatCopy_RDP_LFP_XLD_TSO_LK3(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
11374#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11375 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_TSO_LK3
11376#endif
11377 use pm_kind, only: LKG => LK3
11378 type(rdpack_type) , intent(in) :: dpack
11379 type(lfpack_type) , intent(in) :: spack
11380 type(lowDia_type) , intent(in) :: subset
11381 type(transSymm_type) , intent(in) :: operation
11382 integer(IK) , intent(in) , optional :: shape(2), doff
11383 logical(LKG) , intent(in) , optional :: init
11384 logical(LKG) , intent(in) :: source(:)
11385 logical(LKG) , allocatable :: destin(:,:)
11386 end function
11387#endif
11388
11389#if LK2_ENABLED
11390 PURE module function getMatCopy_RDP_LFP_XLD_TSO_LK2(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
11391#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11392 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_TSO_LK2
11393#endif
11394 use pm_kind, only: LKG => LK2
11395 type(rdpack_type) , intent(in) :: dpack
11396 type(lfpack_type) , intent(in) :: spack
11397 type(lowDia_type) , intent(in) :: subset
11398 type(transSymm_type) , intent(in) :: operation
11399 integer(IK) , intent(in) , optional :: shape(2), doff
11400 logical(LKG) , intent(in) , optional :: init
11401 logical(LKG) , intent(in) :: source(:)
11402 logical(LKG) , allocatable :: destin(:,:)
11403 end function
11404#endif
11405
11406#if LK1_ENABLED
11407 PURE module function getMatCopy_RDP_LFP_XLD_TSO_LK1(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
11408#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11409 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_TSO_LK1
11410#endif
11411 use pm_kind, only: LKG => LK1
11412 type(rdpack_type) , intent(in) :: dpack
11413 type(lfpack_type) , intent(in) :: spack
11414 type(lowDia_type) , intent(in) :: subset
11415 type(transSymm_type) , intent(in) :: operation
11416 integer(IK) , intent(in) , optional :: shape(2), doff
11417 logical(LKG) , intent(in) , optional :: init
11418 logical(LKG) , intent(in) :: source(:)
11419 logical(LKG) , allocatable :: destin(:,:)
11420 end function
11421#endif
11422
11423 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11424
11425#if CK5_ENABLED
11426 PURE module function getMatCopy_RDP_LFP_XLD_TSO_CK5(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
11427#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11428 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_TSO_CK5
11429#endif
11430 use pm_kind, only: CKG => CK5
11431 type(rdpack_type) , intent(in) :: dpack
11432 type(lfpack_type) , intent(in) :: spack
11433 type(lowDia_type) , intent(in) :: subset
11434 type(transSymm_type) , intent(in) :: operation
11435 integer(IK) , intent(in) , optional :: shape(2), doff
11436 complex(CKG) , intent(in) , optional :: init
11437 complex(CKG) , intent(in) :: source(:)
11438 complex(CKG) , allocatable :: destin(:,:)
11439 end function
11440#endif
11441
11442#if CK4_ENABLED
11443 PURE module function getMatCopy_RDP_LFP_XLD_TSO_CK4(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
11444#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11445 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_TSO_CK4
11446#endif
11447 use pm_kind, only: CKG => CK4
11448 type(rdpack_type) , intent(in) :: dpack
11449 type(lfpack_type) , intent(in) :: spack
11450 type(lowDia_type) , intent(in) :: subset
11451 type(transSymm_type) , intent(in) :: operation
11452 integer(IK) , intent(in) , optional :: shape(2), doff
11453 complex(CKG) , intent(in) , optional :: init
11454 complex(CKG) , intent(in) :: source(:)
11455 complex(CKG) , allocatable :: destin(:,:)
11456 end function
11457#endif
11458
11459#if CK3_ENABLED
11460 PURE module function getMatCopy_RDP_LFP_XLD_TSO_CK3(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
11461#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11462 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_TSO_CK3
11463#endif
11464 use pm_kind, only: CKG => CK3
11465 type(rdpack_type) , intent(in) :: dpack
11466 type(lfpack_type) , intent(in) :: spack
11467 type(lowDia_type) , intent(in) :: subset
11468 type(transSymm_type) , intent(in) :: operation
11469 integer(IK) , intent(in) , optional :: shape(2), doff
11470 complex(CKG) , intent(in) , optional :: init
11471 complex(CKG) , intent(in) :: source(:)
11472 complex(CKG) , allocatable :: destin(:,:)
11473 end function
11474#endif
11475
11476#if CK2_ENABLED
11477 PURE module function getMatCopy_RDP_LFP_XLD_TSO_CK2(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
11478#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11479 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_TSO_CK2
11480#endif
11481 use pm_kind, only: CKG => CK2
11482 type(rdpack_type) , intent(in) :: dpack
11483 type(lfpack_type) , intent(in) :: spack
11484 type(lowDia_type) , intent(in) :: subset
11485 type(transSymm_type) , intent(in) :: operation
11486 integer(IK) , intent(in) , optional :: shape(2), doff
11487 complex(CKG) , intent(in) , optional :: init
11488 complex(CKG) , intent(in) :: source(:)
11489 complex(CKG) , allocatable :: destin(:,:)
11490 end function
11491#endif
11492
11493#if CK1_ENABLED
11494 PURE module function getMatCopy_RDP_LFP_XLD_TSO_CK1(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
11495#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11496 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_TSO_CK1
11497#endif
11498 use pm_kind, only: CKG => CK1
11499 type(rdpack_type) , intent(in) :: dpack
11500 type(lfpack_type) , intent(in) :: spack
11501 type(lowDia_type) , intent(in) :: subset
11502 type(transSymm_type) , intent(in) :: operation
11503 integer(IK) , intent(in) , optional :: shape(2), doff
11504 complex(CKG) , intent(in) , optional :: init
11505 complex(CKG) , intent(in) :: source(:)
11506 complex(CKG) , allocatable :: destin(:,:)
11507 end function
11508#endif
11509
11510 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11511
11512#if RK5_ENABLED
11513 PURE module function getMatCopy_RDP_LFP_XLD_TSO_RK5(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
11514#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11515 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_TSO_RK5
11516#endif
11517 use pm_kind, only: RKG => RK5
11518 type(rdpack_type) , intent(in) :: dpack
11519 type(lfpack_type) , intent(in) :: spack
11520 type(lowDia_type) , intent(in) :: subset
11521 type(transSymm_type) , intent(in) :: operation
11522 integer(IK) , intent(in) , optional :: shape(2), doff
11523 real(RKG) , intent(in) , optional :: init
11524 real(RKG) , intent(in) :: source(:)
11525 real(RKG) , allocatable :: destin(:,:)
11526 end function
11527#endif
11528
11529#if RK4_ENABLED
11530 PURE module function getMatCopy_RDP_LFP_XLD_TSO_RK4(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
11531#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11532 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_TSO_RK4
11533#endif
11534 use pm_kind, only: RKG => RK4
11535 type(rdpack_type) , intent(in) :: dpack
11536 type(lfpack_type) , intent(in) :: spack
11537 type(lowDia_type) , intent(in) :: subset
11538 type(transSymm_type) , intent(in) :: operation
11539 integer(IK) , intent(in) , optional :: shape(2), doff
11540 real(RKG) , intent(in) , optional :: init
11541 real(RKG) , intent(in) :: source(:)
11542 real(RKG) , allocatable :: destin(:,:)
11543 end function
11544#endif
11545
11546#if RK3_ENABLED
11547 PURE module function getMatCopy_RDP_LFP_XLD_TSO_RK3(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
11548#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11549 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_TSO_RK3
11550#endif
11551 use pm_kind, only: RKG => RK3
11552 type(rdpack_type) , intent(in) :: dpack
11553 type(lfpack_type) , intent(in) :: spack
11554 type(lowDia_type) , intent(in) :: subset
11555 type(transSymm_type) , intent(in) :: operation
11556 integer(IK) , intent(in) , optional :: shape(2), doff
11557 real(RKG) , intent(in) , optional :: init
11558 real(RKG) , intent(in) :: source(:)
11559 real(RKG) , allocatable :: destin(:,:)
11560 end function
11561#endif
11562
11563#if RK2_ENABLED
11564 PURE module function getMatCopy_RDP_LFP_XLD_TSO_RK2(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
11565#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11566 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_TSO_RK2
11567#endif
11568 use pm_kind, only: RKG => RK2
11569 type(rdpack_type) , intent(in) :: dpack
11570 type(lfpack_type) , intent(in) :: spack
11571 type(lowDia_type) , intent(in) :: subset
11572 type(transSymm_type) , intent(in) :: operation
11573 integer(IK) , intent(in) , optional :: shape(2), doff
11574 real(RKG) , intent(in) , optional :: init
11575 real(RKG) , intent(in) :: source(:)
11576 real(RKG) , allocatable :: destin(:,:)
11577 end function
11578#endif
11579
11580#if RK1_ENABLED
11581 PURE module function getMatCopy_RDP_LFP_XLD_TSO_RK1(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
11582#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11583 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_TSO_RK1
11584#endif
11585 use pm_kind, only: RKG => RK1
11586 type(rdpack_type) , intent(in) :: dpack
11587 type(lfpack_type) , intent(in) :: spack
11588 type(lowDia_type) , intent(in) :: subset
11589 type(transSymm_type) , intent(in) :: operation
11590 integer(IK) , intent(in) , optional :: shape(2), doff
11591 real(RKG) , intent(in) , optional :: init
11592 real(RKG) , intent(in) :: source(:)
11593 real(RKG) , allocatable :: destin(:,:)
11594 end function
11595#endif
11596
11597 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11598
11599 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11600 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11601 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11602
11603 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11604
11605#if SK5_ENABLED
11606 PURE module function getMatCopy_RDP_LFP_XLD_THO_SK5(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
11607#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11608 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_THO_SK5
11609#endif
11610 use pm_kind, only: SKG => SK5
11611 type(rdpack_type) , intent(in) :: dpack
11612 type(lfpack_type) , intent(in) :: spack
11613 type(lowDia_type) , intent(in) :: subset
11614 type(transHerm_type) , intent(in) :: operation
11615 integer(IK) , intent(in) , optional :: shape(2), doff
11616 character(*,SKG) , intent(in) , optional :: init
11617 character(*,SKG) , intent(in) :: source(:)
11618 character(len(source,IK),SKG) , allocatable :: destin(:,:)
11619 end function
11620#endif
11621
11622#if SK4_ENABLED
11623 PURE module function getMatCopy_RDP_LFP_XLD_THO_SK4(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
11624#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11625 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_THO_SK4
11626#endif
11627 use pm_kind, only: SKG => SK4
11628 type(rdpack_type) , intent(in) :: dpack
11629 type(lfpack_type) , intent(in) :: spack
11630 type(lowDia_type) , intent(in) :: subset
11631 type(transHerm_type) , intent(in) :: operation
11632 integer(IK) , intent(in) , optional :: shape(2), doff
11633 character(*,SKG) , intent(in) , optional :: init
11634 character(*,SKG) , intent(in) :: source(:)
11635 character(len(source,IK),SKG) , allocatable :: destin(:,:)
11636 end function
11637#endif
11638
11639#if SK3_ENABLED
11640 PURE module function getMatCopy_RDP_LFP_XLD_THO_SK3(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
11641#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11642 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_THO_SK3
11643#endif
11644 use pm_kind, only: SKG => SK3
11645 type(rdpack_type) , intent(in) :: dpack
11646 type(lfpack_type) , intent(in) :: spack
11647 type(lowDia_type) , intent(in) :: subset
11648 type(transHerm_type) , intent(in) :: operation
11649 integer(IK) , intent(in) , optional :: shape(2), doff
11650 character(*,SKG) , intent(in) , optional :: init
11651 character(*,SKG) , intent(in) :: source(:)
11652 character(len(source,IK),SKG) , allocatable :: destin(:,:)
11653 end function
11654#endif
11655
11656#if SK2_ENABLED
11657 PURE module function getMatCopy_RDP_LFP_XLD_THO_SK2(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
11658#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11659 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_THO_SK2
11660#endif
11661 use pm_kind, only: SKG => SK2
11662 type(rdpack_type) , intent(in) :: dpack
11663 type(lfpack_type) , intent(in) :: spack
11664 type(lowDia_type) , intent(in) :: subset
11665 type(transHerm_type) , intent(in) :: operation
11666 integer(IK) , intent(in) , optional :: shape(2), doff
11667 character(*,SKG) , intent(in) , optional :: init
11668 character(*,SKG) , intent(in) :: source(:)
11669 character(len(source,IK),SKG) , allocatable :: destin(:,:)
11670 end function
11671#endif
11672
11673#if SK1_ENABLED
11674 PURE module function getMatCopy_RDP_LFP_XLD_THO_SK1(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
11675#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11676 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_THO_SK1
11677#endif
11678 use pm_kind, only: SKG => SK1
11679 type(rdpack_type) , intent(in) :: dpack
11680 type(lfpack_type) , intent(in) :: spack
11681 type(lowDia_type) , intent(in) :: subset
11682 type(transHerm_type) , intent(in) :: operation
11683 integer(IK) , intent(in) , optional :: shape(2), doff
11684 character(*,SKG) , intent(in) , optional :: init
11685 character(*,SKG) , intent(in) :: source(:)
11686 character(len(source,IK),SKG) , allocatable :: destin(:,:)
11687 end function
11688#endif
11689
11690 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11691
11692#if IK5_ENABLED
11693 PURE module function getMatCopy_RDP_LFP_XLD_THO_IK5(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
11694#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11695 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_THO_IK5
11696#endif
11697 use pm_kind, only: IKG => IK5
11698 type(rdpack_type) , intent(in) :: dpack
11699 type(lfpack_type) , intent(in) :: spack
11700 type(lowDia_type) , intent(in) :: subset
11701 type(transHerm_type) , intent(in) :: operation
11702 integer(IK) , intent(in) , optional :: shape(2), doff
11703 integer(IKG) , intent(in) , optional :: init
11704 integer(IKG) , intent(in) :: source(:)
11705 integer(IKG) , allocatable :: destin(:,:)
11706 end function
11707#endif
11708
11709#if IK4_ENABLED
11710 PURE module function getMatCopy_RDP_LFP_XLD_THO_IK4(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
11711#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11712 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_THO_IK4
11713#endif
11714 use pm_kind, only: IKG => IK4
11715 type(rdpack_type) , intent(in) :: dpack
11716 type(lfpack_type) , intent(in) :: spack
11717 type(lowDia_type) , intent(in) :: subset
11718 type(transHerm_type) , intent(in) :: operation
11719 integer(IK) , intent(in) , optional :: shape(2), doff
11720 integer(IKG) , intent(in) , optional :: init
11721 integer(IKG) , intent(in) :: source(:)
11722 integer(IKG) , allocatable :: destin(:,:)
11723 end function
11724#endif
11725
11726#if IK3_ENABLED
11727 PURE module function getMatCopy_RDP_LFP_XLD_THO_IK3(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
11728#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11729 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_THO_IK3
11730#endif
11731 use pm_kind, only: IKG => IK3
11732 type(rdpack_type) , intent(in) :: dpack
11733 type(lfpack_type) , intent(in) :: spack
11734 type(lowDia_type) , intent(in) :: subset
11735 type(transHerm_type) , intent(in) :: operation
11736 integer(IK) , intent(in) , optional :: shape(2), doff
11737 integer(IKG) , intent(in) , optional :: init
11738 integer(IKG) , intent(in) :: source(:)
11739 integer(IKG) , allocatable :: destin(:,:)
11740 end function
11741#endif
11742
11743#if IK2_ENABLED
11744 PURE module function getMatCopy_RDP_LFP_XLD_THO_IK2(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
11745#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11746 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_THO_IK2
11747#endif
11748 use pm_kind, only: IKG => IK2
11749 type(rdpack_type) , intent(in) :: dpack
11750 type(lfpack_type) , intent(in) :: spack
11751 type(lowDia_type) , intent(in) :: subset
11752 type(transHerm_type) , intent(in) :: operation
11753 integer(IK) , intent(in) , optional :: shape(2), doff
11754 integer(IKG) , intent(in) , optional :: init
11755 integer(IKG) , intent(in) :: source(:)
11756 integer(IKG) , allocatable :: destin(:,:)
11757 end function
11758#endif
11759
11760#if IK1_ENABLED
11761 PURE module function getMatCopy_RDP_LFP_XLD_THO_IK1(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
11762#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11763 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_THO_IK1
11764#endif
11765 use pm_kind, only: IKG => IK1
11766 type(rdpack_type) , intent(in) :: dpack
11767 type(lfpack_type) , intent(in) :: spack
11768 type(lowDia_type) , intent(in) :: subset
11769 type(transHerm_type) , intent(in) :: operation
11770 integer(IK) , intent(in) , optional :: shape(2), doff
11771 integer(IKG) , intent(in) , optional :: init
11772 integer(IKG) , intent(in) :: source(:)
11773 integer(IKG) , allocatable :: destin(:,:)
11774 end function
11775#endif
11776
11777 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11778
11779#if LK5_ENABLED
11780 PURE module function getMatCopy_RDP_LFP_XLD_THO_LK5(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
11781#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11782 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_THO_LK5
11783#endif
11784 use pm_kind, only: LKG => LK5
11785 type(rdpack_type) , intent(in) :: dpack
11786 type(lfpack_type) , intent(in) :: spack
11787 type(lowDia_type) , intent(in) :: subset
11788 type(transHerm_type) , intent(in) :: operation
11789 integer(IK) , intent(in) , optional :: shape(2), doff
11790 logical(LKG) , intent(in) , optional :: init
11791 logical(LKG) , intent(in) :: source(:)
11792 logical(LKG) , allocatable :: destin(:,:)
11793 end function
11794#endif
11795
11796#if LK4_ENABLED
11797 PURE module function getMatCopy_RDP_LFP_XLD_THO_LK4(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
11798#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11799 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_THO_LK4
11800#endif
11801 use pm_kind, only: LKG => LK4
11802 type(rdpack_type) , intent(in) :: dpack
11803 type(lfpack_type) , intent(in) :: spack
11804 type(lowDia_type) , intent(in) :: subset
11805 type(transHerm_type) , intent(in) :: operation
11806 integer(IK) , intent(in) , optional :: shape(2), doff
11807 logical(LKG) , intent(in) , optional :: init
11808 logical(LKG) , intent(in) :: source(:)
11809 logical(LKG) , allocatable :: destin(:,:)
11810 end function
11811#endif
11812
11813#if LK3_ENABLED
11814 PURE module function getMatCopy_RDP_LFP_XLD_THO_LK3(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
11815#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11816 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_THO_LK3
11817#endif
11818 use pm_kind, only: LKG => LK3
11819 type(rdpack_type) , intent(in) :: dpack
11820 type(lfpack_type) , intent(in) :: spack
11821 type(lowDia_type) , intent(in) :: subset
11822 type(transHerm_type) , intent(in) :: operation
11823 integer(IK) , intent(in) , optional :: shape(2), doff
11824 logical(LKG) , intent(in) , optional :: init
11825 logical(LKG) , intent(in) :: source(:)
11826 logical(LKG) , allocatable :: destin(:,:)
11827 end function
11828#endif
11829
11830#if LK2_ENABLED
11831 PURE module function getMatCopy_RDP_LFP_XLD_THO_LK2(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
11832#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11833 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_THO_LK2
11834#endif
11835 use pm_kind, only: LKG => LK2
11836 type(rdpack_type) , intent(in) :: dpack
11837 type(lfpack_type) , intent(in) :: spack
11838 type(lowDia_type) , intent(in) :: subset
11839 type(transHerm_type) , intent(in) :: operation
11840 integer(IK) , intent(in) , optional :: shape(2), doff
11841 logical(LKG) , intent(in) , optional :: init
11842 logical(LKG) , intent(in) :: source(:)
11843 logical(LKG) , allocatable :: destin(:,:)
11844 end function
11845#endif
11846
11847#if LK1_ENABLED
11848 PURE module function getMatCopy_RDP_LFP_XLD_THO_LK1(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
11849#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11850 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_THO_LK1
11851#endif
11852 use pm_kind, only: LKG => LK1
11853 type(rdpack_type) , intent(in) :: dpack
11854 type(lfpack_type) , intent(in) :: spack
11855 type(lowDia_type) , intent(in) :: subset
11856 type(transHerm_type) , intent(in) :: operation
11857 integer(IK) , intent(in) , optional :: shape(2), doff
11858 logical(LKG) , intent(in) , optional :: init
11859 logical(LKG) , intent(in) :: source(:)
11860 logical(LKG) , allocatable :: destin(:,:)
11861 end function
11862#endif
11863
11864 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11865
11866#if CK5_ENABLED
11867 PURE module function getMatCopy_RDP_LFP_XLD_THO_CK5(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
11868#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11869 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_THO_CK5
11870#endif
11871 use pm_kind, only: CKG => CK5
11872 type(rdpack_type) , intent(in) :: dpack
11873 type(lfpack_type) , intent(in) :: spack
11874 type(lowDia_type) , intent(in) :: subset
11875 type(transHerm_type) , intent(in) :: operation
11876 integer(IK) , intent(in) , optional :: shape(2), doff
11877 complex(CKG) , intent(in) , optional :: init
11878 complex(CKG) , intent(in) :: source(:)
11879 complex(CKG) , allocatable :: destin(:,:)
11880 end function
11881#endif
11882
11883#if CK4_ENABLED
11884 PURE module function getMatCopy_RDP_LFP_XLD_THO_CK4(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
11885#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11886 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_THO_CK4
11887#endif
11888 use pm_kind, only: CKG => CK4
11889 type(rdpack_type) , intent(in) :: dpack
11890 type(lfpack_type) , intent(in) :: spack
11891 type(lowDia_type) , intent(in) :: subset
11892 type(transHerm_type) , intent(in) :: operation
11893 integer(IK) , intent(in) , optional :: shape(2), doff
11894 complex(CKG) , intent(in) , optional :: init
11895 complex(CKG) , intent(in) :: source(:)
11896 complex(CKG) , allocatable :: destin(:,:)
11897 end function
11898#endif
11899
11900#if CK3_ENABLED
11901 PURE module function getMatCopy_RDP_LFP_XLD_THO_CK3(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
11902#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11903 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_THO_CK3
11904#endif
11905 use pm_kind, only: CKG => CK3
11906 type(rdpack_type) , intent(in) :: dpack
11907 type(lfpack_type) , intent(in) :: spack
11908 type(lowDia_type) , intent(in) :: subset
11909 type(transHerm_type) , intent(in) :: operation
11910 integer(IK) , intent(in) , optional :: shape(2), doff
11911 complex(CKG) , intent(in) , optional :: init
11912 complex(CKG) , intent(in) :: source(:)
11913 complex(CKG) , allocatable :: destin(:,:)
11914 end function
11915#endif
11916
11917#if CK2_ENABLED
11918 PURE module function getMatCopy_RDP_LFP_XLD_THO_CK2(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
11919#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11920 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_THO_CK2
11921#endif
11922 use pm_kind, only: CKG => CK2
11923 type(rdpack_type) , intent(in) :: dpack
11924 type(lfpack_type) , intent(in) :: spack
11925 type(lowDia_type) , intent(in) :: subset
11926 type(transHerm_type) , intent(in) :: operation
11927 integer(IK) , intent(in) , optional :: shape(2), doff
11928 complex(CKG) , intent(in) , optional :: init
11929 complex(CKG) , intent(in) :: source(:)
11930 complex(CKG) , allocatable :: destin(:,:)
11931 end function
11932#endif
11933
11934#if CK1_ENABLED
11935 PURE module function getMatCopy_RDP_LFP_XLD_THO_CK1(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
11936#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11937 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_THO_CK1
11938#endif
11939 use pm_kind, only: CKG => CK1
11940 type(rdpack_type) , intent(in) :: dpack
11941 type(lfpack_type) , intent(in) :: spack
11942 type(lowDia_type) , intent(in) :: subset
11943 type(transHerm_type) , intent(in) :: operation
11944 integer(IK) , intent(in) , optional :: shape(2), doff
11945 complex(CKG) , intent(in) , optional :: init
11946 complex(CKG) , intent(in) :: source(:)
11947 complex(CKG) , allocatable :: destin(:,:)
11948 end function
11949#endif
11950
11951 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11952
11953#if RK5_ENABLED
11954 PURE module function getMatCopy_RDP_LFP_XLD_THO_RK5(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
11955#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11956 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_THO_RK5
11957#endif
11958 use pm_kind, only: RKG => RK5
11959 type(rdpack_type) , intent(in) :: dpack
11960 type(lfpack_type) , intent(in) :: spack
11961 type(lowDia_type) , intent(in) :: subset
11962 type(transHerm_type) , intent(in) :: operation
11963 integer(IK) , intent(in) , optional :: shape(2), doff
11964 real(RKG) , intent(in) , optional :: init
11965 real(RKG) , intent(in) :: source(:)
11966 real(RKG) , allocatable :: destin(:,:)
11967 end function
11968#endif
11969
11970#if RK4_ENABLED
11971 PURE module function getMatCopy_RDP_LFP_XLD_THO_RK4(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
11972#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11973 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_THO_RK4
11974#endif
11975 use pm_kind, only: RKG => RK4
11976 type(rdpack_type) , intent(in) :: dpack
11977 type(lfpack_type) , intent(in) :: spack
11978 type(lowDia_type) , intent(in) :: subset
11979 type(transHerm_type) , intent(in) :: operation
11980 integer(IK) , intent(in) , optional :: shape(2), doff
11981 real(RKG) , intent(in) , optional :: init
11982 real(RKG) , intent(in) :: source(:)
11983 real(RKG) , allocatable :: destin(:,:)
11984 end function
11985#endif
11986
11987#if RK3_ENABLED
11988 PURE module function getMatCopy_RDP_LFP_XLD_THO_RK3(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
11989#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11990 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_THO_RK3
11991#endif
11992 use pm_kind, only: RKG => RK3
11993 type(rdpack_type) , intent(in) :: dpack
11994 type(lfpack_type) , intent(in) :: spack
11995 type(lowDia_type) , intent(in) :: subset
11996 type(transHerm_type) , intent(in) :: operation
11997 integer(IK) , intent(in) , optional :: shape(2), doff
11998 real(RKG) , intent(in) , optional :: init
11999 real(RKG) , intent(in) :: source(:)
12000 real(RKG) , allocatable :: destin(:,:)
12001 end function
12002#endif
12003
12004#if RK2_ENABLED
12005 PURE module function getMatCopy_RDP_LFP_XLD_THO_RK2(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
12006#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12007 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_THO_RK2
12008#endif
12009 use pm_kind, only: RKG => RK2
12010 type(rdpack_type) , intent(in) :: dpack
12011 type(lfpack_type) , intent(in) :: spack
12012 type(lowDia_type) , intent(in) :: subset
12013 type(transHerm_type) , intent(in) :: operation
12014 integer(IK) , intent(in) , optional :: shape(2), doff
12015 real(RKG) , intent(in) , optional :: init
12016 real(RKG) , intent(in) :: source(:)
12017 real(RKG) , allocatable :: destin(:,:)
12018 end function
12019#endif
12020
12021#if RK1_ENABLED
12022 PURE module function getMatCopy_RDP_LFP_XLD_THO_RK1(dpack, source, spack, subset, operation, doff, shape, init) result(destin)
12023#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12024 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_LFP_XLD_THO_RK1
12025#endif
12026 use pm_kind, only: RKG => RK1
12027 type(rdpack_type) , intent(in) :: dpack
12028 type(lfpack_type) , intent(in) :: spack
12029 type(lowDia_type) , intent(in) :: subset
12030 type(transHerm_type) , intent(in) :: operation
12031 integer(IK) , intent(in) , optional :: shape(2), doff
12032 real(RKG) , intent(in) , optional :: init
12033 real(RKG) , intent(in) :: source(:)
12034 real(RKG) , allocatable :: destin(:,:)
12035 end function
12036#endif
12037
12038 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12039
12040 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12041 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12042 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12043
12044 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12045 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12046 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12047
12048 end interface getMatCopy
12049
12050 ! package: lfpack, rdpack
12051
12052 interface getMatCopy
12053
12054 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12055 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12056 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12057
12058 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12059 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12060 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12061
12062 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12063
12064#if SK5_ENABLED
12065 PURE module function getMatCopy_LFP_RDP_XXD_AIO_SK5(dpack, source, spack, subset, doff, init) result(destin)
12066#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12067 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_AIO_SK5
12068#endif
12069 use pm_kind, only: SKG => SK5
12070 type(lfpack_type) , intent(in) :: dpack
12071 type(rdpack_type) , intent(in) :: spack
12072 type(dia_type) , intent(in) :: subset
12073 integer(IK) , intent(in) , optional :: doff
12074 character(*,SKG) , intent(in) , optional :: init
12075 character(*,SKG) , intent(in) :: source(:,:)
12076 character(len(source,IK),SKG) , allocatable :: destin(:)
12077 end function
12078#endif
12079
12080#if SK4_ENABLED
12081 PURE module function getMatCopy_LFP_RDP_XXD_AIO_SK4(dpack, source, spack, subset, doff, init) result(destin)
12082#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12083 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_AIO_SK4
12084#endif
12085 use pm_kind, only: SKG => SK4
12086 type(lfpack_type) , intent(in) :: dpack
12087 type(rdpack_type) , intent(in) :: spack
12088 type(dia_type) , intent(in) :: subset
12089 integer(IK) , intent(in) , optional :: doff
12090 character(*,SKG) , intent(in) , optional :: init
12091 character(*,SKG) , intent(in) :: source(:,:)
12092 character(len(source,IK),SKG) , allocatable :: destin(:)
12093 end function
12094#endif
12095
12096#if SK3_ENABLED
12097 PURE module function getMatCopy_LFP_RDP_XXD_AIO_SK3(dpack, source, spack, subset, doff, init) result(destin)
12098#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12099 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_AIO_SK3
12100#endif
12101 use pm_kind, only: SKG => SK3
12102 type(lfpack_type) , intent(in) :: dpack
12103 type(rdpack_type) , intent(in) :: spack
12104 type(dia_type) , intent(in) :: subset
12105 integer(IK) , intent(in) , optional :: doff
12106 character(*,SKG) , intent(in) , optional :: init
12107 character(*,SKG) , intent(in) :: source(:,:)
12108 character(len(source,IK),SKG) , allocatable :: destin(:)
12109 end function
12110#endif
12111
12112#if SK2_ENABLED
12113 PURE module function getMatCopy_LFP_RDP_XXD_AIO_SK2(dpack, source, spack, subset, doff, init) result(destin)
12114#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12115 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_AIO_SK2
12116#endif
12117 use pm_kind, only: SKG => SK2
12118 type(lfpack_type) , intent(in) :: dpack
12119 type(rdpack_type) , intent(in) :: spack
12120 type(dia_type) , intent(in) :: subset
12121 integer(IK) , intent(in) , optional :: doff
12122 character(*,SKG) , intent(in) , optional :: init
12123 character(*,SKG) , intent(in) :: source(:,:)
12124 character(len(source,IK),SKG) , allocatable :: destin(:)
12125 end function
12126#endif
12127
12128#if SK1_ENABLED
12129 PURE module function getMatCopy_LFP_RDP_XXD_AIO_SK1(dpack, source, spack, subset, doff, init) result(destin)
12130#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12131 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_AIO_SK1
12132#endif
12133 use pm_kind, only: SKG => SK1
12134 type(lfpack_type) , intent(in) :: dpack
12135 type(rdpack_type) , intent(in) :: spack
12136 type(dia_type) , intent(in) :: subset
12137 integer(IK) , intent(in) , optional :: doff
12138 character(*,SKG) , intent(in) , optional :: init
12139 character(*,SKG) , intent(in) :: source(:,:)
12140 character(len(source,IK),SKG) , allocatable :: destin(:)
12141 end function
12142#endif
12143
12144 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12145
12146#if IK5_ENABLED
12147 PURE module function getMatCopy_LFP_RDP_XXD_AIO_IK5(dpack, source, spack, subset, doff, init) result(destin)
12148#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12149 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_AIO_IK5
12150#endif
12151 use pm_kind, only: IKG => IK5
12152 type(lfpack_type) , intent(in) :: dpack
12153 type(rdpack_type) , intent(in) :: spack
12154 type(dia_type) , intent(in) :: subset
12155 integer(IK) , intent(in) , optional :: doff
12156 integer(IKG) , intent(in) , optional :: init
12157 integer(IKG) , intent(in) :: source(:,:)
12158 integer(IKG) , allocatable :: destin(:)
12159 end function
12160#endif
12161
12162#if IK4_ENABLED
12163 PURE module function getMatCopy_LFP_RDP_XXD_AIO_IK4(dpack, source, spack, subset, doff, init) result(destin)
12164#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12165 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_AIO_IK4
12166#endif
12167 use pm_kind, only: IKG => IK4
12168 type(lfpack_type) , intent(in) :: dpack
12169 type(rdpack_type) , intent(in) :: spack
12170 type(dia_type) , intent(in) :: subset
12171 integer(IK) , intent(in) , optional :: doff
12172 integer(IKG) , intent(in) , optional :: init
12173 integer(IKG) , intent(in) :: source(:,:)
12174 integer(IKG) , allocatable :: destin(:)
12175 end function
12176#endif
12177
12178#if IK3_ENABLED
12179 PURE module function getMatCopy_LFP_RDP_XXD_AIO_IK3(dpack, source, spack, subset, doff, init) result(destin)
12180#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12181 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_AIO_IK3
12182#endif
12183 use pm_kind, only: IKG => IK3
12184 type(lfpack_type) , intent(in) :: dpack
12185 type(rdpack_type) , intent(in) :: spack
12186 type(dia_type) , intent(in) :: subset
12187 integer(IK) , intent(in) , optional :: doff
12188 integer(IKG) , intent(in) , optional :: init
12189 integer(IKG) , intent(in) :: source(:,:)
12190 integer(IKG) , allocatable :: destin(:)
12191 end function
12192#endif
12193
12194#if IK2_ENABLED
12195 PURE module function getMatCopy_LFP_RDP_XXD_AIO_IK2(dpack, source, spack, subset, doff, init) result(destin)
12196#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12197 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_AIO_IK2
12198#endif
12199 use pm_kind, only: IKG => IK2
12200 type(lfpack_type) , intent(in) :: dpack
12201 type(rdpack_type) , intent(in) :: spack
12202 type(dia_type) , intent(in) :: subset
12203 integer(IK) , intent(in) , optional :: doff
12204 integer(IKG) , intent(in) , optional :: init
12205 integer(IKG) , intent(in) :: source(:,:)
12206 integer(IKG) , allocatable :: destin(:)
12207 end function
12208#endif
12209
12210#if IK1_ENABLED
12211 PURE module function getMatCopy_LFP_RDP_XXD_AIO_IK1(dpack, source, spack, subset, doff, init) result(destin)
12212#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12213 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_AIO_IK1
12214#endif
12215 use pm_kind, only: IKG => IK1
12216 type(lfpack_type) , intent(in) :: dpack
12217 type(rdpack_type) , intent(in) :: spack
12218 type(dia_type) , intent(in) :: subset
12219 integer(IK) , intent(in) , optional :: doff
12220 integer(IKG) , intent(in) , optional :: init
12221 integer(IKG) , intent(in) :: source(:,:)
12222 integer(IKG) , allocatable :: destin(:)
12223 end function
12224#endif
12225
12226 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12227
12228#if LK5_ENABLED
12229 PURE module function getMatCopy_LFP_RDP_XXD_AIO_LK5(dpack, source, spack, subset, doff, init) result(destin)
12230#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12231 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_AIO_LK5
12232#endif
12233 use pm_kind, only: LKG => LK5
12234 type(lfpack_type) , intent(in) :: dpack
12235 type(rdpack_type) , intent(in) :: spack
12236 type(dia_type) , intent(in) :: subset
12237 integer(IK) , intent(in) , optional :: doff
12238 logical(LKG) , intent(in) , optional :: init
12239 logical(LKG) , intent(in) :: source(:,:)
12240 logical(LKG) , allocatable :: destin(:)
12241 end function
12242#endif
12243
12244#if LK4_ENABLED
12245 PURE module function getMatCopy_LFP_RDP_XXD_AIO_LK4(dpack, source, spack, subset, doff, init) result(destin)
12246#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12247 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_AIO_LK4
12248#endif
12249 use pm_kind, only: LKG => LK4
12250 type(lfpack_type) , intent(in) :: dpack
12251 type(rdpack_type) , intent(in) :: spack
12252 type(dia_type) , intent(in) :: subset
12253 integer(IK) , intent(in) , optional :: doff
12254 logical(LKG) , intent(in) , optional :: init
12255 logical(LKG) , intent(in) :: source(:,:)
12256 logical(LKG) , allocatable :: destin(:)
12257 end function
12258#endif
12259
12260#if LK3_ENABLED
12261 PURE module function getMatCopy_LFP_RDP_XXD_AIO_LK3(dpack, source, spack, subset, doff, init) result(destin)
12262#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12263 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_AIO_LK3
12264#endif
12265 use pm_kind, only: LKG => LK3
12266 type(lfpack_type) , intent(in) :: dpack
12267 type(rdpack_type) , intent(in) :: spack
12268 type(dia_type) , intent(in) :: subset
12269 integer(IK) , intent(in) , optional :: doff
12270 logical(LKG) , intent(in) , optional :: init
12271 logical(LKG) , intent(in) :: source(:,:)
12272 logical(LKG) , allocatable :: destin(:)
12273 end function
12274#endif
12275
12276#if LK2_ENABLED
12277 PURE module function getMatCopy_LFP_RDP_XXD_AIO_LK2(dpack, source, spack, subset, doff, init) result(destin)
12278#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12279 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_AIO_LK2
12280#endif
12281 use pm_kind, only: LKG => LK2
12282 type(lfpack_type) , intent(in) :: dpack
12283 type(rdpack_type) , intent(in) :: spack
12284 type(dia_type) , intent(in) :: subset
12285 integer(IK) , intent(in) , optional :: doff
12286 logical(LKG) , intent(in) , optional :: init
12287 logical(LKG) , intent(in) :: source(:,:)
12288 logical(LKG) , allocatable :: destin(:)
12289 end function
12290#endif
12291
12292#if LK1_ENABLED
12293 PURE module function getMatCopy_LFP_RDP_XXD_AIO_LK1(dpack, source, spack, subset, doff, init) result(destin)
12294#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12295 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_AIO_LK1
12296#endif
12297 use pm_kind, only: LKG => LK1
12298 type(lfpack_type) , intent(in) :: dpack
12299 type(rdpack_type) , intent(in) :: spack
12300 type(dia_type) , intent(in) :: subset
12301 integer(IK) , intent(in) , optional :: doff
12302 logical(LKG) , intent(in) , optional :: init
12303 logical(LKG) , intent(in) :: source(:,:)
12304 logical(LKG) , allocatable :: destin(:)
12305 end function
12306#endif
12307
12308 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12309
12310#if CK5_ENABLED
12311 PURE module function getMatCopy_LFP_RDP_XXD_AIO_CK5(dpack, source, spack, subset, doff, init) result(destin)
12312#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12313 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_AIO_CK5
12314#endif
12315 use pm_kind, only: CKG => CK5
12316 type(lfpack_type) , intent(in) :: dpack
12317 type(rdpack_type) , intent(in) :: spack
12318 type(dia_type) , intent(in) :: subset
12319 integer(IK) , intent(in) , optional :: doff
12320 complex(CKG) , intent(in) , optional :: init
12321 complex(CKG) , intent(in) :: source(:,:)
12322 complex(CKG) , allocatable :: destin(:)
12323 end function
12324#endif
12325
12326#if CK4_ENABLED
12327 PURE module function getMatCopy_LFP_RDP_XXD_AIO_CK4(dpack, source, spack, subset, doff, init) result(destin)
12328#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12329 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_AIO_CK4
12330#endif
12331 use pm_kind, only: CKG => CK4
12332 type(lfpack_type) , intent(in) :: dpack
12333 type(rdpack_type) , intent(in) :: spack
12334 type(dia_type) , intent(in) :: subset
12335 integer(IK) , intent(in) , optional :: doff
12336 complex(CKG) , intent(in) , optional :: init
12337 complex(CKG) , intent(in) :: source(:,:)
12338 complex(CKG) , allocatable :: destin(:)
12339 end function
12340#endif
12341
12342#if CK3_ENABLED
12343 PURE module function getMatCopy_LFP_RDP_XXD_AIO_CK3(dpack, source, spack, subset, doff, init) result(destin)
12344#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12345 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_AIO_CK3
12346#endif
12347 use pm_kind, only: CKG => CK3
12348 type(lfpack_type) , intent(in) :: dpack
12349 type(rdpack_type) , intent(in) :: spack
12350 type(dia_type) , intent(in) :: subset
12351 integer(IK) , intent(in) , optional :: doff
12352 complex(CKG) , intent(in) , optional :: init
12353 complex(CKG) , intent(in) :: source(:,:)
12354 complex(CKG) , allocatable :: destin(:)
12355 end function
12356#endif
12357
12358#if CK2_ENABLED
12359 PURE module function getMatCopy_LFP_RDP_XXD_AIO_CK2(dpack, source, spack, subset, doff, init) result(destin)
12360#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12361 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_AIO_CK2
12362#endif
12363 use pm_kind, only: CKG => CK2
12364 type(lfpack_type) , intent(in) :: dpack
12365 type(rdpack_type) , intent(in) :: spack
12366 type(dia_type) , intent(in) :: subset
12367 integer(IK) , intent(in) , optional :: doff
12368 complex(CKG) , intent(in) , optional :: init
12369 complex(CKG) , intent(in) :: source(:,:)
12370 complex(CKG) , allocatable :: destin(:)
12371 end function
12372#endif
12373
12374#if CK1_ENABLED
12375 PURE module function getMatCopy_LFP_RDP_XXD_AIO_CK1(dpack, source, spack, subset, doff, init) result(destin)
12376#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12377 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_AIO_CK1
12378#endif
12379 use pm_kind, only: CKG => CK1
12380 type(lfpack_type) , intent(in) :: dpack
12381 type(rdpack_type) , intent(in) :: spack
12382 type(dia_type) , intent(in) :: subset
12383 integer(IK) , intent(in) , optional :: doff
12384 complex(CKG) , intent(in) , optional :: init
12385 complex(CKG) , intent(in) :: source(:,:)
12386 complex(CKG) , allocatable :: destin(:)
12387 end function
12388#endif
12389
12390 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12391
12392#if RK5_ENABLED
12393 PURE module function getMatCopy_LFP_RDP_XXD_AIO_RK5(dpack, source, spack, subset, doff, init) result(destin)
12394#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12395 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_AIO_RK5
12396#endif
12397 use pm_kind, only: RKG => RK5
12398 type(lfpack_type) , intent(in) :: dpack
12399 type(rdpack_type) , intent(in) :: spack
12400 type(dia_type) , intent(in) :: subset
12401 integer(IK) , intent(in) , optional :: doff
12402 real(RKG) , intent(in) , optional :: init
12403 real(RKG) , intent(in) :: source(:,:)
12404 real(RKG) , allocatable :: destin(:)
12405 end function
12406#endif
12407
12408#if RK4_ENABLED
12409 PURE module function getMatCopy_LFP_RDP_XXD_AIO_RK4(dpack, source, spack, subset, doff, init) result(destin)
12410#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12411 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_AIO_RK4
12412#endif
12413 use pm_kind, only: RKG => RK4
12414 type(lfpack_type) , intent(in) :: dpack
12415 type(rdpack_type) , intent(in) :: spack
12416 type(dia_type) , intent(in) :: subset
12417 integer(IK) , intent(in) , optional :: doff
12418 real(RKG) , intent(in) , optional :: init
12419 real(RKG) , intent(in) :: source(:,:)
12420 real(RKG) , allocatable :: destin(:)
12421 end function
12422#endif
12423
12424#if RK3_ENABLED
12425 PURE module function getMatCopy_LFP_RDP_XXD_AIO_RK3(dpack, source, spack, subset, doff, init) result(destin)
12426#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12427 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_AIO_RK3
12428#endif
12429 use pm_kind, only: RKG => RK3
12430 type(lfpack_type) , intent(in) :: dpack
12431 type(rdpack_type) , intent(in) :: spack
12432 type(dia_type) , intent(in) :: subset
12433 integer(IK) , intent(in) , optional :: doff
12434 real(RKG) , intent(in) , optional :: init
12435 real(RKG) , intent(in) :: source(:,:)
12436 real(RKG) , allocatable :: destin(:)
12437 end function
12438#endif
12439
12440#if RK2_ENABLED
12441 PURE module function getMatCopy_LFP_RDP_XXD_AIO_RK2(dpack, source, spack, subset, doff, init) result(destin)
12442#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12443 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_AIO_RK2
12444#endif
12445 use pm_kind, only: RKG => RK2
12446 type(lfpack_type) , intent(in) :: dpack
12447 type(rdpack_type) , intent(in) :: spack
12448 type(dia_type) , intent(in) :: subset
12449 integer(IK) , intent(in) , optional :: doff
12450 real(RKG) , intent(in) , optional :: init
12451 real(RKG) , intent(in) :: source(:,:)
12452 real(RKG) , allocatable :: destin(:)
12453 end function
12454#endif
12455
12456#if RK1_ENABLED
12457 PURE module function getMatCopy_LFP_RDP_XXD_AIO_RK1(dpack, source, spack, subset, doff, init) result(destin)
12458#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12459 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_AIO_RK1
12460#endif
12461 use pm_kind, only: RKG => RK1
12462 type(lfpack_type) , intent(in) :: dpack
12463 type(rdpack_type) , intent(in) :: spack
12464 type(dia_type) , intent(in) :: subset
12465 integer(IK) , intent(in) , optional :: doff
12466 real(RKG) , intent(in) , optional :: init
12467 real(RKG) , intent(in) :: source(:,:)
12468 real(RKG) , allocatable :: destin(:)
12469 end function
12470#endif
12471
12472 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12473
12474 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12475 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12476 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12477
12478 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12479
12480#if SK5_ENABLED
12481 PURE module function getMatCopy_LFP_RDP_XXD_TSO_SK5(dpack, source, spack, subset, operation, doff, init) result(destin)
12482#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12483 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_TSO_SK5
12484#endif
12485 use pm_kind, only: SKG => SK5
12486 type(lfpack_type) , intent(in) :: dpack
12487 type(rdpack_type) , intent(in) :: spack
12488 type(dia_type) , intent(in) :: subset
12489 type(transSymm_type) , intent(in) :: operation
12490 integer(IK) , intent(in) , optional :: doff
12491 character(*,SKG) , intent(in) , optional :: init
12492 character(*,SKG) , intent(in) :: source(:,:)
12493 character(len(source,IK),SKG) , allocatable :: destin(:)
12494 end function
12495#endif
12496
12497#if SK4_ENABLED
12498 PURE module function getMatCopy_LFP_RDP_XXD_TSO_SK4(dpack, source, spack, subset, operation, doff, init) result(destin)
12499#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12500 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_TSO_SK4
12501#endif
12502 use pm_kind, only: SKG => SK4
12503 type(lfpack_type) , intent(in) :: dpack
12504 type(rdpack_type) , intent(in) :: spack
12505 type(dia_type) , intent(in) :: subset
12506 type(transSymm_type) , intent(in) :: operation
12507 integer(IK) , intent(in) , optional :: doff
12508 character(*,SKG) , intent(in) , optional :: init
12509 character(*,SKG) , intent(in) :: source(:,:)
12510 character(len(source,IK),SKG) , allocatable :: destin(:)
12511 end function
12512#endif
12513
12514#if SK3_ENABLED
12515 PURE module function getMatCopy_LFP_RDP_XXD_TSO_SK3(dpack, source, spack, subset, operation, doff, init) result(destin)
12516#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12517 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_TSO_SK3
12518#endif
12519 use pm_kind, only: SKG => SK3
12520 type(lfpack_type) , intent(in) :: dpack
12521 type(rdpack_type) , intent(in) :: spack
12522 type(dia_type) , intent(in) :: subset
12523 type(transSymm_type) , intent(in) :: operation
12524 integer(IK) , intent(in) , optional :: doff
12525 character(*,SKG) , intent(in) , optional :: init
12526 character(*,SKG) , intent(in) :: source(:,:)
12527 character(len(source,IK),SKG) , allocatable :: destin(:)
12528 end function
12529#endif
12530
12531#if SK2_ENABLED
12532 PURE module function getMatCopy_LFP_RDP_XXD_TSO_SK2(dpack, source, spack, subset, operation, doff, init) result(destin)
12533#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12534 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_TSO_SK2
12535#endif
12536 use pm_kind, only: SKG => SK2
12537 type(lfpack_type) , intent(in) :: dpack
12538 type(rdpack_type) , intent(in) :: spack
12539 type(dia_type) , intent(in) :: subset
12540 type(transSymm_type) , intent(in) :: operation
12541 integer(IK) , intent(in) , optional :: doff
12542 character(*,SKG) , intent(in) , optional :: init
12543 character(*,SKG) , intent(in) :: source(:,:)
12544 character(len(source,IK),SKG) , allocatable :: destin(:)
12545 end function
12546#endif
12547
12548#if SK1_ENABLED
12549 PURE module function getMatCopy_LFP_RDP_XXD_TSO_SK1(dpack, source, spack, subset, operation, doff, init) result(destin)
12550#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12551 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_TSO_SK1
12552#endif
12553 use pm_kind, only: SKG => SK1
12554 type(lfpack_type) , intent(in) :: dpack
12555 type(rdpack_type) , intent(in) :: spack
12556 type(dia_type) , intent(in) :: subset
12557 type(transSymm_type) , intent(in) :: operation
12558 integer(IK) , intent(in) , optional :: doff
12559 character(*,SKG) , intent(in) , optional :: init
12560 character(*,SKG) , intent(in) :: source(:,:)
12561 character(len(source,IK),SKG) , allocatable :: destin(:)
12562 end function
12563#endif
12564
12565 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12566
12567#if IK5_ENABLED
12568 PURE module function getMatCopy_LFP_RDP_XXD_TSO_IK5(dpack, source, spack, subset, operation, doff, init) result(destin)
12569#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12570 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_TSO_IK5
12571#endif
12572 use pm_kind, only: IKG => IK5
12573 type(lfpack_type) , intent(in) :: dpack
12574 type(rdpack_type) , intent(in) :: spack
12575 type(dia_type) , intent(in) :: subset
12576 type(transSymm_type) , intent(in) :: operation
12577 integer(IK) , intent(in) , optional :: doff
12578 integer(IKG) , intent(in) , optional :: init
12579 integer(IKG) , intent(in) :: source(:,:)
12580 integer(IKG) , allocatable :: destin(:)
12581 end function
12582#endif
12583
12584#if IK4_ENABLED
12585 PURE module function getMatCopy_LFP_RDP_XXD_TSO_IK4(dpack, source, spack, subset, operation, doff, init) result(destin)
12586#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12587 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_TSO_IK4
12588#endif
12589 use pm_kind, only: IKG => IK4
12590 type(lfpack_type) , intent(in) :: dpack
12591 type(rdpack_type) , intent(in) :: spack
12592 type(dia_type) , intent(in) :: subset
12593 type(transSymm_type) , intent(in) :: operation
12594 integer(IK) , intent(in) , optional :: doff
12595 integer(IKG) , intent(in) , optional :: init
12596 integer(IKG) , intent(in) :: source(:,:)
12597 integer(IKG) , allocatable :: destin(:)
12598 end function
12599#endif
12600
12601#if IK3_ENABLED
12602 PURE module function getMatCopy_LFP_RDP_XXD_TSO_IK3(dpack, source, spack, subset, operation, doff, init) result(destin)
12603#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12604 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_TSO_IK3
12605#endif
12606 use pm_kind, only: IKG => IK3
12607 type(lfpack_type) , intent(in) :: dpack
12608 type(rdpack_type) , intent(in) :: spack
12609 type(dia_type) , intent(in) :: subset
12610 type(transSymm_type) , intent(in) :: operation
12611 integer(IK) , intent(in) , optional :: doff
12612 integer(IKG) , intent(in) , optional :: init
12613 integer(IKG) , intent(in) :: source(:,:)
12614 integer(IKG) , allocatable :: destin(:)
12615 end function
12616#endif
12617
12618#if IK2_ENABLED
12619 PURE module function getMatCopy_LFP_RDP_XXD_TSO_IK2(dpack, source, spack, subset, operation, doff, init) result(destin)
12620#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12621 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_TSO_IK2
12622#endif
12623 use pm_kind, only: IKG => IK2
12624 type(lfpack_type) , intent(in) :: dpack
12625 type(rdpack_type) , intent(in) :: spack
12626 type(dia_type) , intent(in) :: subset
12627 type(transSymm_type) , intent(in) :: operation
12628 integer(IK) , intent(in) , optional :: doff
12629 integer(IKG) , intent(in) , optional :: init
12630 integer(IKG) , intent(in) :: source(:,:)
12631 integer(IKG) , allocatable :: destin(:)
12632 end function
12633#endif
12634
12635#if IK1_ENABLED
12636 PURE module function getMatCopy_LFP_RDP_XXD_TSO_IK1(dpack, source, spack, subset, operation, doff, init) result(destin)
12637#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12638 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_TSO_IK1
12639#endif
12640 use pm_kind, only: IKG => IK1
12641 type(lfpack_type) , intent(in) :: dpack
12642 type(rdpack_type) , intent(in) :: spack
12643 type(dia_type) , intent(in) :: subset
12644 type(transSymm_type) , intent(in) :: operation
12645 integer(IK) , intent(in) , optional :: doff
12646 integer(IKG) , intent(in) , optional :: init
12647 integer(IKG) , intent(in) :: source(:,:)
12648 integer(IKG) , allocatable :: destin(:)
12649 end function
12650#endif
12651
12652 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12653
12654#if LK5_ENABLED
12655 PURE module function getMatCopy_LFP_RDP_XXD_TSO_LK5(dpack, source, spack, subset, operation, doff, init) result(destin)
12656#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12657 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_TSO_LK5
12658#endif
12659 use pm_kind, only: LKG => LK5
12660 type(lfpack_type) , intent(in) :: dpack
12661 type(rdpack_type) , intent(in) :: spack
12662 type(dia_type) , intent(in) :: subset
12663 type(transSymm_type) , intent(in) :: operation
12664 integer(IK) , intent(in) , optional :: doff
12665 logical(LKG) , intent(in) , optional :: init
12666 logical(LKG) , intent(in) :: source(:,:)
12667 logical(LKG) , allocatable :: destin(:)
12668 end function
12669#endif
12670
12671#if LK4_ENABLED
12672 PURE module function getMatCopy_LFP_RDP_XXD_TSO_LK4(dpack, source, spack, subset, operation, doff, init) result(destin)
12673#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12674 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_TSO_LK4
12675#endif
12676 use pm_kind, only: LKG => LK4
12677 type(lfpack_type) , intent(in) :: dpack
12678 type(rdpack_type) , intent(in) :: spack
12679 type(dia_type) , intent(in) :: subset
12680 type(transSymm_type) , intent(in) :: operation
12681 integer(IK) , intent(in) , optional :: doff
12682 logical(LKG) , intent(in) , optional :: init
12683 logical(LKG) , intent(in) :: source(:,:)
12684 logical(LKG) , allocatable :: destin(:)
12685 end function
12686#endif
12687
12688#if LK3_ENABLED
12689 PURE module function getMatCopy_LFP_RDP_XXD_TSO_LK3(dpack, source, spack, subset, operation, doff, init) result(destin)
12690#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12691 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_TSO_LK3
12692#endif
12693 use pm_kind, only: LKG => LK3
12694 type(lfpack_type) , intent(in) :: dpack
12695 type(rdpack_type) , intent(in) :: spack
12696 type(dia_type) , intent(in) :: subset
12697 type(transSymm_type) , intent(in) :: operation
12698 integer(IK) , intent(in) , optional :: doff
12699 logical(LKG) , intent(in) , optional :: init
12700 logical(LKG) , intent(in) :: source(:,:)
12701 logical(LKG) , allocatable :: destin(:)
12702 end function
12703#endif
12704
12705#if LK2_ENABLED
12706 PURE module function getMatCopy_LFP_RDP_XXD_TSO_LK2(dpack, source, spack, subset, operation, doff, init) result(destin)
12707#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12708 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_TSO_LK2
12709#endif
12710 use pm_kind, only: LKG => LK2
12711 type(lfpack_type) , intent(in) :: dpack
12712 type(rdpack_type) , intent(in) :: spack
12713 type(dia_type) , intent(in) :: subset
12714 type(transSymm_type) , intent(in) :: operation
12715 integer(IK) , intent(in) , optional :: doff
12716 logical(LKG) , intent(in) , optional :: init
12717 logical(LKG) , intent(in) :: source(:,:)
12718 logical(LKG) , allocatable :: destin(:)
12719 end function
12720#endif
12721
12722#if LK1_ENABLED
12723 PURE module function getMatCopy_LFP_RDP_XXD_TSO_LK1(dpack, source, spack, subset, operation, doff, init) result(destin)
12724#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12725 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_TSO_LK1
12726#endif
12727 use pm_kind, only: LKG => LK1
12728 type(lfpack_type) , intent(in) :: dpack
12729 type(rdpack_type) , intent(in) :: spack
12730 type(dia_type) , intent(in) :: subset
12731 type(transSymm_type) , intent(in) :: operation
12732 integer(IK) , intent(in) , optional :: doff
12733 logical(LKG) , intent(in) , optional :: init
12734 logical(LKG) , intent(in) :: source(:,:)
12735 logical(LKG) , allocatable :: destin(:)
12736 end function
12737#endif
12738
12739 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12740
12741#if CK5_ENABLED
12742 PURE module function getMatCopy_LFP_RDP_XXD_TSO_CK5(dpack, source, spack, subset, operation, doff, init) result(destin)
12743#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12744 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_TSO_CK5
12745#endif
12746 use pm_kind, only: CKG => CK5
12747 type(lfpack_type) , intent(in) :: dpack
12748 type(rdpack_type) , intent(in) :: spack
12749 type(dia_type) , intent(in) :: subset
12750 type(transSymm_type) , intent(in) :: operation
12751 integer(IK) , intent(in) , optional :: doff
12752 complex(CKG) , intent(in) , optional :: init
12753 complex(CKG) , intent(in) :: source(:,:)
12754 complex(CKG) , allocatable :: destin(:)
12755 end function
12756#endif
12757
12758#if CK4_ENABLED
12759 PURE module function getMatCopy_LFP_RDP_XXD_TSO_CK4(dpack, source, spack, subset, operation, doff, init) result(destin)
12760#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12761 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_TSO_CK4
12762#endif
12763 use pm_kind, only: CKG => CK4
12764 type(lfpack_type) , intent(in) :: dpack
12765 type(rdpack_type) , intent(in) :: spack
12766 type(dia_type) , intent(in) :: subset
12767 type(transSymm_type) , intent(in) :: operation
12768 integer(IK) , intent(in) , optional :: doff
12769 complex(CKG) , intent(in) , optional :: init
12770 complex(CKG) , intent(in) :: source(:,:)
12771 complex(CKG) , allocatable :: destin(:)
12772 end function
12773#endif
12774
12775#if CK3_ENABLED
12776 PURE module function getMatCopy_LFP_RDP_XXD_TSO_CK3(dpack, source, spack, subset, operation, doff, init) result(destin)
12777#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12778 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_TSO_CK3
12779#endif
12780 use pm_kind, only: CKG => CK3
12781 type(lfpack_type) , intent(in) :: dpack
12782 type(rdpack_type) , intent(in) :: spack
12783 type(dia_type) , intent(in) :: subset
12784 type(transSymm_type) , intent(in) :: operation
12785 integer(IK) , intent(in) , optional :: doff
12786 complex(CKG) , intent(in) , optional :: init
12787 complex(CKG) , intent(in) :: source(:,:)
12788 complex(CKG) , allocatable :: destin(:)
12789 end function
12790#endif
12791
12792#if CK2_ENABLED
12793 PURE module function getMatCopy_LFP_RDP_XXD_TSO_CK2(dpack, source, spack, subset, operation, doff, init) result(destin)
12794#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12795 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_TSO_CK2
12796#endif
12797 use pm_kind, only: CKG => CK2
12798 type(lfpack_type) , intent(in) :: dpack
12799 type(rdpack_type) , intent(in) :: spack
12800 type(dia_type) , intent(in) :: subset
12801 type(transSymm_type) , intent(in) :: operation
12802 integer(IK) , intent(in) , optional :: doff
12803 complex(CKG) , intent(in) , optional :: init
12804 complex(CKG) , intent(in) :: source(:,:)
12805 complex(CKG) , allocatable :: destin(:)
12806 end function
12807#endif
12808
12809#if CK1_ENABLED
12810 PURE module function getMatCopy_LFP_RDP_XXD_TSO_CK1(dpack, source, spack, subset, operation, doff, init) result(destin)
12811#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12812 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_TSO_CK1
12813#endif
12814 use pm_kind, only: CKG => CK1
12815 type(lfpack_type) , intent(in) :: dpack
12816 type(rdpack_type) , intent(in) :: spack
12817 type(dia_type) , intent(in) :: subset
12818 type(transSymm_type) , intent(in) :: operation
12819 integer(IK) , intent(in) , optional :: doff
12820 complex(CKG) , intent(in) , optional :: init
12821 complex(CKG) , intent(in) :: source(:,:)
12822 complex(CKG) , allocatable :: destin(:)
12823 end function
12824#endif
12825
12826 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12827
12828#if RK5_ENABLED
12829 PURE module function getMatCopy_LFP_RDP_XXD_TSO_RK5(dpack, source, spack, subset, operation, doff, init) result(destin)
12830#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12831 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_TSO_RK5
12832#endif
12833 use pm_kind, only: RKG => RK5
12834 type(lfpack_type) , intent(in) :: dpack
12835 type(rdpack_type) , intent(in) :: spack
12836 type(dia_type) , intent(in) :: subset
12837 type(transSymm_type) , intent(in) :: operation
12838 integer(IK) , intent(in) , optional :: doff
12839 real(RKG) , intent(in) , optional :: init
12840 real(RKG) , intent(in) :: source(:,:)
12841 real(RKG) , allocatable :: destin(:)
12842 end function
12843#endif
12844
12845#if RK4_ENABLED
12846 PURE module function getMatCopy_LFP_RDP_XXD_TSO_RK4(dpack, source, spack, subset, operation, doff, init) result(destin)
12847#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12848 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_TSO_RK4
12849#endif
12850 use pm_kind, only: RKG => RK4
12851 type(lfpack_type) , intent(in) :: dpack
12852 type(rdpack_type) , intent(in) :: spack
12853 type(dia_type) , intent(in) :: subset
12854 type(transSymm_type) , intent(in) :: operation
12855 integer(IK) , intent(in) , optional :: doff
12856 real(RKG) , intent(in) , optional :: init
12857 real(RKG) , intent(in) :: source(:,:)
12858 real(RKG) , allocatable :: destin(:)
12859 end function
12860#endif
12861
12862#if RK3_ENABLED
12863 PURE module function getMatCopy_LFP_RDP_XXD_TSO_RK3(dpack, source, spack, subset, operation, doff, init) result(destin)
12864#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12865 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_TSO_RK3
12866#endif
12867 use pm_kind, only: RKG => RK3
12868 type(lfpack_type) , intent(in) :: dpack
12869 type(rdpack_type) , intent(in) :: spack
12870 type(dia_type) , intent(in) :: subset
12871 type(transSymm_type) , intent(in) :: operation
12872 integer(IK) , intent(in) , optional :: doff
12873 real(RKG) , intent(in) , optional :: init
12874 real(RKG) , intent(in) :: source(:,:)
12875 real(RKG) , allocatable :: destin(:)
12876 end function
12877#endif
12878
12879#if RK2_ENABLED
12880 PURE module function getMatCopy_LFP_RDP_XXD_TSO_RK2(dpack, source, spack, subset, operation, doff, init) result(destin)
12881#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12882 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_TSO_RK2
12883#endif
12884 use pm_kind, only: RKG => RK2
12885 type(lfpack_type) , intent(in) :: dpack
12886 type(rdpack_type) , intent(in) :: spack
12887 type(dia_type) , intent(in) :: subset
12888 type(transSymm_type) , intent(in) :: operation
12889 integer(IK) , intent(in) , optional :: doff
12890 real(RKG) , intent(in) , optional :: init
12891 real(RKG) , intent(in) :: source(:,:)
12892 real(RKG) , allocatable :: destin(:)
12893 end function
12894#endif
12895
12896#if RK1_ENABLED
12897 PURE module function getMatCopy_LFP_RDP_XXD_TSO_RK1(dpack, source, spack, subset, operation, doff, init) result(destin)
12898#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12899 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_TSO_RK1
12900#endif
12901 use pm_kind, only: RKG => RK1
12902 type(lfpack_type) , intent(in) :: dpack
12903 type(rdpack_type) , intent(in) :: spack
12904 type(dia_type) , intent(in) :: subset
12905 type(transSymm_type) , intent(in) :: operation
12906 integer(IK) , intent(in) , optional :: doff
12907 real(RKG) , intent(in) , optional :: init
12908 real(RKG) , intent(in) :: source(:,:)
12909 real(RKG) , allocatable :: destin(:)
12910 end function
12911#endif
12912
12913 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12914
12915 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12916 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12917 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12918
12919 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12920
12921#if SK5_ENABLED
12922 PURE module function getMatCopy_LFP_RDP_XXD_THO_SK5(dpack, source, spack, subset, operation, doff, init) result(destin)
12923#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12924 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_THO_SK5
12925#endif
12926 use pm_kind, only: SKG => SK5
12927 type(lfpack_type) , intent(in) :: dpack
12928 type(rdpack_type) , intent(in) :: spack
12929 type(dia_type) , intent(in) :: subset
12930 type(transHerm_type) , intent(in) :: operation
12931 integer(IK) , intent(in) , optional :: doff
12932 character(*,SKG) , intent(in) , optional :: init
12933 character(*,SKG) , intent(in) :: source(:,:)
12934 character(len(source,IK),SKG) , allocatable :: destin(:)
12935 end function
12936#endif
12937
12938#if SK4_ENABLED
12939 PURE module function getMatCopy_LFP_RDP_XXD_THO_SK4(dpack, source, spack, subset, operation, doff, init) result(destin)
12940#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12941 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_THO_SK4
12942#endif
12943 use pm_kind, only: SKG => SK4
12944 type(lfpack_type) , intent(in) :: dpack
12945 type(rdpack_type) , intent(in) :: spack
12946 type(dia_type) , intent(in) :: subset
12947 type(transHerm_type) , intent(in) :: operation
12948 integer(IK) , intent(in) , optional :: doff
12949 character(*,SKG) , intent(in) , optional :: init
12950 character(*,SKG) , intent(in) :: source(:,:)
12951 character(len(source,IK),SKG) , allocatable :: destin(:)
12952 end function
12953#endif
12954
12955#if SK3_ENABLED
12956 PURE module function getMatCopy_LFP_RDP_XXD_THO_SK3(dpack, source, spack, subset, operation, doff, init) result(destin)
12957#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12958 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_THO_SK3
12959#endif
12960 use pm_kind, only: SKG => SK3
12961 type(lfpack_type) , intent(in) :: dpack
12962 type(rdpack_type) , intent(in) :: spack
12963 type(dia_type) , intent(in) :: subset
12964 type(transHerm_type) , intent(in) :: operation
12965 integer(IK) , intent(in) , optional :: doff
12966 character(*,SKG) , intent(in) , optional :: init
12967 character(*,SKG) , intent(in) :: source(:,:)
12968 character(len(source,IK),SKG) , allocatable :: destin(:)
12969 end function
12970#endif
12971
12972#if SK2_ENABLED
12973 PURE module function getMatCopy_LFP_RDP_XXD_THO_SK2(dpack, source, spack, subset, operation, doff, init) result(destin)
12974#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12975 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_THO_SK2
12976#endif
12977 use pm_kind, only: SKG => SK2
12978 type(lfpack_type) , intent(in) :: dpack
12979 type(rdpack_type) , intent(in) :: spack
12980 type(dia_type) , intent(in) :: subset
12981 type(transHerm_type) , intent(in) :: operation
12982 integer(IK) , intent(in) , optional :: doff
12983 character(*,SKG) , intent(in) , optional :: init
12984 character(*,SKG) , intent(in) :: source(:,:)
12985 character(len(source,IK),SKG) , allocatable :: destin(:)
12986 end function
12987#endif
12988
12989#if SK1_ENABLED
12990 PURE module function getMatCopy_LFP_RDP_XXD_THO_SK1(dpack, source, spack, subset, operation, doff, init) result(destin)
12991#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12992 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_THO_SK1
12993#endif
12994 use pm_kind, only: SKG => SK1
12995 type(lfpack_type) , intent(in) :: dpack
12996 type(rdpack_type) , intent(in) :: spack
12997 type(dia_type) , intent(in) :: subset
12998 type(transHerm_type) , intent(in) :: operation
12999 integer(IK) , intent(in) , optional :: doff
13000 character(*,SKG) , intent(in) , optional :: init
13001 character(*,SKG) , intent(in) :: source(:,:)
13002 character(len(source,IK),SKG) , allocatable :: destin(:)
13003 end function
13004#endif
13005
13006 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13007
13008#if IK5_ENABLED
13009 PURE module function getMatCopy_LFP_RDP_XXD_THO_IK5(dpack, source, spack, subset, operation, doff, init) result(destin)
13010#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13011 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_THO_IK5
13012#endif
13013 use pm_kind, only: IKG => IK5
13014 type(lfpack_type) , intent(in) :: dpack
13015 type(rdpack_type) , intent(in) :: spack
13016 type(dia_type) , intent(in) :: subset
13017 type(transHerm_type) , intent(in) :: operation
13018 integer(IK) , intent(in) , optional :: doff
13019 integer(IKG) , intent(in) , optional :: init
13020 integer(IKG) , intent(in) :: source(:,:)
13021 integer(IKG) , allocatable :: destin(:)
13022 end function
13023#endif
13024
13025#if IK4_ENABLED
13026 PURE module function getMatCopy_LFP_RDP_XXD_THO_IK4(dpack, source, spack, subset, operation, doff, init) result(destin)
13027#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13028 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_THO_IK4
13029#endif
13030 use pm_kind, only: IKG => IK4
13031 type(lfpack_type) , intent(in) :: dpack
13032 type(rdpack_type) , intent(in) :: spack
13033 type(dia_type) , intent(in) :: subset
13034 type(transHerm_type) , intent(in) :: operation
13035 integer(IK) , intent(in) , optional :: doff
13036 integer(IKG) , intent(in) , optional :: init
13037 integer(IKG) , intent(in) :: source(:,:)
13038 integer(IKG) , allocatable :: destin(:)
13039 end function
13040#endif
13041
13042#if IK3_ENABLED
13043 PURE module function getMatCopy_LFP_RDP_XXD_THO_IK3(dpack, source, spack, subset, operation, doff, init) result(destin)
13044#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13045 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_THO_IK3
13046#endif
13047 use pm_kind, only: IKG => IK3
13048 type(lfpack_type) , intent(in) :: dpack
13049 type(rdpack_type) , intent(in) :: spack
13050 type(dia_type) , intent(in) :: subset
13051 type(transHerm_type) , intent(in) :: operation
13052 integer(IK) , intent(in) , optional :: doff
13053 integer(IKG) , intent(in) , optional :: init
13054 integer(IKG) , intent(in) :: source(:,:)
13055 integer(IKG) , allocatable :: destin(:)
13056 end function
13057#endif
13058
13059#if IK2_ENABLED
13060 PURE module function getMatCopy_LFP_RDP_XXD_THO_IK2(dpack, source, spack, subset, operation, doff, init) result(destin)
13061#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13062 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_THO_IK2
13063#endif
13064 use pm_kind, only: IKG => IK2
13065 type(lfpack_type) , intent(in) :: dpack
13066 type(rdpack_type) , intent(in) :: spack
13067 type(dia_type) , intent(in) :: subset
13068 type(transHerm_type) , intent(in) :: operation
13069 integer(IK) , intent(in) , optional :: doff
13070 integer(IKG) , intent(in) , optional :: init
13071 integer(IKG) , intent(in) :: source(:,:)
13072 integer(IKG) , allocatable :: destin(:)
13073 end function
13074#endif
13075
13076#if IK1_ENABLED
13077 PURE module function getMatCopy_LFP_RDP_XXD_THO_IK1(dpack, source, spack, subset, operation, doff, init) result(destin)
13078#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13079 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_THO_IK1
13080#endif
13081 use pm_kind, only: IKG => IK1
13082 type(lfpack_type) , intent(in) :: dpack
13083 type(rdpack_type) , intent(in) :: spack
13084 type(dia_type) , intent(in) :: subset
13085 type(transHerm_type) , intent(in) :: operation
13086 integer(IK) , intent(in) , optional :: doff
13087 integer(IKG) , intent(in) , optional :: init
13088 integer(IKG) , intent(in) :: source(:,:)
13089 integer(IKG) , allocatable :: destin(:)
13090 end function
13091#endif
13092
13093 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13094
13095#if LK5_ENABLED
13096 PURE module function getMatCopy_LFP_RDP_XXD_THO_LK5(dpack, source, spack, subset, operation, doff, init) result(destin)
13097#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13098 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_THO_LK5
13099#endif
13100 use pm_kind, only: LKG => LK5
13101 type(lfpack_type) , intent(in) :: dpack
13102 type(rdpack_type) , intent(in) :: spack
13103 type(dia_type) , intent(in) :: subset
13104 type(transHerm_type) , intent(in) :: operation
13105 integer(IK) , intent(in) , optional :: doff
13106 logical(LKG) , intent(in) , optional :: init
13107 logical(LKG) , intent(in) :: source(:,:)
13108 logical(LKG) , allocatable :: destin(:)
13109 end function
13110#endif
13111
13112#if LK4_ENABLED
13113 PURE module function getMatCopy_LFP_RDP_XXD_THO_LK4(dpack, source, spack, subset, operation, doff, init) result(destin)
13114#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13115 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_THO_LK4
13116#endif
13117 use pm_kind, only: LKG => LK4
13118 type(lfpack_type) , intent(in) :: dpack
13119 type(rdpack_type) , intent(in) :: spack
13120 type(dia_type) , intent(in) :: subset
13121 type(transHerm_type) , intent(in) :: operation
13122 integer(IK) , intent(in) , optional :: doff
13123 logical(LKG) , intent(in) , optional :: init
13124 logical(LKG) , intent(in) :: source(:,:)
13125 logical(LKG) , allocatable :: destin(:)
13126 end function
13127#endif
13128
13129#if LK3_ENABLED
13130 PURE module function getMatCopy_LFP_RDP_XXD_THO_LK3(dpack, source, spack, subset, operation, doff, init) result(destin)
13131#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13132 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_THO_LK3
13133#endif
13134 use pm_kind, only: LKG => LK3
13135 type(lfpack_type) , intent(in) :: dpack
13136 type(rdpack_type) , intent(in) :: spack
13137 type(dia_type) , intent(in) :: subset
13138 type(transHerm_type) , intent(in) :: operation
13139 integer(IK) , intent(in) , optional :: doff
13140 logical(LKG) , intent(in) , optional :: init
13141 logical(LKG) , intent(in) :: source(:,:)
13142 logical(LKG) , allocatable :: destin(:)
13143 end function
13144#endif
13145
13146#if LK2_ENABLED
13147 PURE module function getMatCopy_LFP_RDP_XXD_THO_LK2(dpack, source, spack, subset, operation, doff, init) result(destin)
13148#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13149 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_THO_LK2
13150#endif
13151 use pm_kind, only: LKG => LK2
13152 type(lfpack_type) , intent(in) :: dpack
13153 type(rdpack_type) , intent(in) :: spack
13154 type(dia_type) , intent(in) :: subset
13155 type(transHerm_type) , intent(in) :: operation
13156 integer(IK) , intent(in) , optional :: doff
13157 logical(LKG) , intent(in) , optional :: init
13158 logical(LKG) , intent(in) :: source(:,:)
13159 logical(LKG) , allocatable :: destin(:)
13160 end function
13161#endif
13162
13163#if LK1_ENABLED
13164 PURE module function getMatCopy_LFP_RDP_XXD_THO_LK1(dpack, source, spack, subset, operation, doff, init) result(destin)
13165#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13166 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_THO_LK1
13167#endif
13168 use pm_kind, only: LKG => LK1
13169 type(lfpack_type) , intent(in) :: dpack
13170 type(rdpack_type) , intent(in) :: spack
13171 type(dia_type) , intent(in) :: subset
13172 type(transHerm_type) , intent(in) :: operation
13173 integer(IK) , intent(in) , optional :: doff
13174 logical(LKG) , intent(in) , optional :: init
13175 logical(LKG) , intent(in) :: source(:,:)
13176 logical(LKG) , allocatable :: destin(:)
13177 end function
13178#endif
13179
13180 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13181
13182#if CK5_ENABLED
13183 PURE module function getMatCopy_LFP_RDP_XXD_THO_CK5(dpack, source, spack, subset, operation, doff, init) result(destin)
13184#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13185 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_THO_CK5
13186#endif
13187 use pm_kind, only: CKG => CK5
13188 type(lfpack_type) , intent(in) :: dpack
13189 type(rdpack_type) , intent(in) :: spack
13190 type(dia_type) , intent(in) :: subset
13191 type(transHerm_type) , intent(in) :: operation
13192 integer(IK) , intent(in) , optional :: doff
13193 complex(CKG) , intent(in) , optional :: init
13194 complex(CKG) , intent(in) :: source(:,:)
13195 complex(CKG) , allocatable :: destin(:)
13196 end function
13197#endif
13198
13199#if CK4_ENABLED
13200 PURE module function getMatCopy_LFP_RDP_XXD_THO_CK4(dpack, source, spack, subset, operation, doff, init) result(destin)
13201#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13202 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_THO_CK4
13203#endif
13204 use pm_kind, only: CKG => CK4
13205 type(lfpack_type) , intent(in) :: dpack
13206 type(rdpack_type) , intent(in) :: spack
13207 type(dia_type) , intent(in) :: subset
13208 type(transHerm_type) , intent(in) :: operation
13209 integer(IK) , intent(in) , optional :: doff
13210 complex(CKG) , intent(in) , optional :: init
13211 complex(CKG) , intent(in) :: source(:,:)
13212 complex(CKG) , allocatable :: destin(:)
13213 end function
13214#endif
13215
13216#if CK3_ENABLED
13217 PURE module function getMatCopy_LFP_RDP_XXD_THO_CK3(dpack, source, spack, subset, operation, doff, init) result(destin)
13218#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13219 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_THO_CK3
13220#endif
13221 use pm_kind, only: CKG => CK3
13222 type(lfpack_type) , intent(in) :: dpack
13223 type(rdpack_type) , intent(in) :: spack
13224 type(dia_type) , intent(in) :: subset
13225 type(transHerm_type) , intent(in) :: operation
13226 integer(IK) , intent(in) , optional :: doff
13227 complex(CKG) , intent(in) , optional :: init
13228 complex(CKG) , intent(in) :: source(:,:)
13229 complex(CKG) , allocatable :: destin(:)
13230 end function
13231#endif
13232
13233#if CK2_ENABLED
13234 PURE module function getMatCopy_LFP_RDP_XXD_THO_CK2(dpack, source, spack, subset, operation, doff, init) result(destin)
13235#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13236 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_THO_CK2
13237#endif
13238 use pm_kind, only: CKG => CK2
13239 type(lfpack_type) , intent(in) :: dpack
13240 type(rdpack_type) , intent(in) :: spack
13241 type(dia_type) , intent(in) :: subset
13242 type(transHerm_type) , intent(in) :: operation
13243 integer(IK) , intent(in) , optional :: doff
13244 complex(CKG) , intent(in) , optional :: init
13245 complex(CKG) , intent(in) :: source(:,:)
13246 complex(CKG) , allocatable :: destin(:)
13247 end function
13248#endif
13249
13250#if CK1_ENABLED
13251 PURE module function getMatCopy_LFP_RDP_XXD_THO_CK1(dpack, source, spack, subset, operation, doff, init) result(destin)
13252#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13253 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_THO_CK1
13254#endif
13255 use pm_kind, only: CKG => CK1
13256 type(lfpack_type) , intent(in) :: dpack
13257 type(rdpack_type) , intent(in) :: spack
13258 type(dia_type) , intent(in) :: subset
13259 type(transHerm_type) , intent(in) :: operation
13260 integer(IK) , intent(in) , optional :: doff
13261 complex(CKG) , intent(in) , optional :: init
13262 complex(CKG) , intent(in) :: source(:,:)
13263 complex(CKG) , allocatable :: destin(:)
13264 end function
13265#endif
13266
13267 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13268
13269#if RK5_ENABLED
13270 PURE module function getMatCopy_LFP_RDP_XXD_THO_RK5(dpack, source, spack, subset, operation, doff, init) result(destin)
13271#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13272 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_THO_RK5
13273#endif
13274 use pm_kind, only: RKG => RK5
13275 type(lfpack_type) , intent(in) :: dpack
13276 type(rdpack_type) , intent(in) :: spack
13277 type(dia_type) , intent(in) :: subset
13278 type(transHerm_type) , intent(in) :: operation
13279 integer(IK) , intent(in) , optional :: doff
13280 real(RKG) , intent(in) , optional :: init
13281 real(RKG) , intent(in) :: source(:,:)
13282 real(RKG) , allocatable :: destin(:)
13283 end function
13284#endif
13285
13286#if RK4_ENABLED
13287 PURE module function getMatCopy_LFP_RDP_XXD_THO_RK4(dpack, source, spack, subset, operation, doff, init) result(destin)
13288#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13289 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_THO_RK4
13290#endif
13291 use pm_kind, only: RKG => RK4
13292 type(lfpack_type) , intent(in) :: dpack
13293 type(rdpack_type) , intent(in) :: spack
13294 type(dia_type) , intent(in) :: subset
13295 type(transHerm_type) , intent(in) :: operation
13296 integer(IK) , intent(in) , optional :: doff
13297 real(RKG) , intent(in) , optional :: init
13298 real(RKG) , intent(in) :: source(:,:)
13299 real(RKG) , allocatable :: destin(:)
13300 end function
13301#endif
13302
13303#if RK3_ENABLED
13304 PURE module function getMatCopy_LFP_RDP_XXD_THO_RK3(dpack, source, spack, subset, operation, doff, init) result(destin)
13305#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13306 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_THO_RK3
13307#endif
13308 use pm_kind, only: RKG => RK3
13309 type(lfpack_type) , intent(in) :: dpack
13310 type(rdpack_type) , intent(in) :: spack
13311 type(dia_type) , intent(in) :: subset
13312 type(transHerm_type) , intent(in) :: operation
13313 integer(IK) , intent(in) , optional :: doff
13314 real(RKG) , intent(in) , optional :: init
13315 real(RKG) , intent(in) :: source(:,:)
13316 real(RKG) , allocatable :: destin(:)
13317 end function
13318#endif
13319
13320#if RK2_ENABLED
13321 PURE module function getMatCopy_LFP_RDP_XXD_THO_RK2(dpack, source, spack, subset, operation, doff, init) result(destin)
13322#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13323 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_THO_RK2
13324#endif
13325 use pm_kind, only: RKG => RK2
13326 type(lfpack_type) , intent(in) :: dpack
13327 type(rdpack_type) , intent(in) :: spack
13328 type(dia_type) , intent(in) :: subset
13329 type(transHerm_type) , intent(in) :: operation
13330 integer(IK) , intent(in) , optional :: doff
13331 real(RKG) , intent(in) , optional :: init
13332 real(RKG) , intent(in) :: source(:,:)
13333 real(RKG) , allocatable :: destin(:)
13334 end function
13335#endif
13336
13337#if RK1_ENABLED
13338 PURE module function getMatCopy_LFP_RDP_XXD_THO_RK1(dpack, source, spack, subset, operation, doff, init) result(destin)
13339#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13340 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XXD_THO_RK1
13341#endif
13342 use pm_kind, only: RKG => RK1
13343 type(lfpack_type) , intent(in) :: dpack
13344 type(rdpack_type) , intent(in) :: spack
13345 type(dia_type) , intent(in) :: subset
13346 type(transHerm_type) , intent(in) :: operation
13347 integer(IK) , intent(in) , optional :: doff
13348 real(RKG) , intent(in) , optional :: init
13349 real(RKG) , intent(in) :: source(:,:)
13350 real(RKG) , allocatable :: destin(:)
13351 end function
13352#endif
13353
13354 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13355
13356 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13357 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13358 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13359
13360 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13361 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13362 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13363
13364 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13365
13366#if SK5_ENABLED
13367 PURE module function getMatCopy_LFP_RDP_UXD_AIO_SK5(dpack, source, spack, subset, doff, init) result(destin)
13368#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13369 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_AIO_SK5
13370#endif
13371 use pm_kind, only: SKG => SK5
13372 type(lfpack_type) , intent(in) :: dpack
13373 type(rdpack_type) , intent(in) :: spack
13374 type(uppDia_type) , intent(in) :: subset
13375 integer(IK) , intent(in) , optional :: doff
13376 character(*,SKG) , intent(in) , optional :: init
13377 character(*,SKG) , intent(in) :: source(:,:)
13378 character(len(source,IK),SKG) , allocatable :: destin(:)
13379 end function
13380#endif
13381
13382#if SK4_ENABLED
13383 PURE module function getMatCopy_LFP_RDP_UXD_AIO_SK4(dpack, source, spack, subset, doff, init) result(destin)
13384#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13385 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_AIO_SK4
13386#endif
13387 use pm_kind, only: SKG => SK4
13388 type(lfpack_type) , intent(in) :: dpack
13389 type(rdpack_type) , intent(in) :: spack
13390 type(uppDia_type) , intent(in) :: subset
13391 integer(IK) , intent(in) , optional :: doff
13392 character(*,SKG) , intent(in) , optional :: init
13393 character(*,SKG) , intent(in) :: source(:,:)
13394 character(len(source,IK),SKG) , allocatable :: destin(:)
13395 end function
13396#endif
13397
13398#if SK3_ENABLED
13399 PURE module function getMatCopy_LFP_RDP_UXD_AIO_SK3(dpack, source, spack, subset, doff, init) result(destin)
13400#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13401 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_AIO_SK3
13402#endif
13403 use pm_kind, only: SKG => SK3
13404 type(lfpack_type) , intent(in) :: dpack
13405 type(rdpack_type) , intent(in) :: spack
13406 type(uppDia_type) , intent(in) :: subset
13407 integer(IK) , intent(in) , optional :: doff
13408 character(*,SKG) , intent(in) , optional :: init
13409 character(*,SKG) , intent(in) :: source(:,:)
13410 character(len(source,IK),SKG) , allocatable :: destin(:)
13411 end function
13412#endif
13413
13414#if SK2_ENABLED
13415 PURE module function getMatCopy_LFP_RDP_UXD_AIO_SK2(dpack, source, spack, subset, doff, init) result(destin)
13416#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13417 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_AIO_SK2
13418#endif
13419 use pm_kind, only: SKG => SK2
13420 type(lfpack_type) , intent(in) :: dpack
13421 type(rdpack_type) , intent(in) :: spack
13422 type(uppDia_type) , intent(in) :: subset
13423 integer(IK) , intent(in) , optional :: doff
13424 character(*,SKG) , intent(in) , optional :: init
13425 character(*,SKG) , intent(in) :: source(:,:)
13426 character(len(source,IK),SKG) , allocatable :: destin(:)
13427 end function
13428#endif
13429
13430#if SK1_ENABLED
13431 PURE module function getMatCopy_LFP_RDP_UXD_AIO_SK1(dpack, source, spack, subset, doff, init) result(destin)
13432#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13433 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_AIO_SK1
13434#endif
13435 use pm_kind, only: SKG => SK1
13436 type(lfpack_type) , intent(in) :: dpack
13437 type(rdpack_type) , intent(in) :: spack
13438 type(uppDia_type) , intent(in) :: subset
13439 integer(IK) , intent(in) , optional :: doff
13440 character(*,SKG) , intent(in) , optional :: init
13441 character(*,SKG) , intent(in) :: source(:,:)
13442 character(len(source,IK),SKG) , allocatable :: destin(:)
13443 end function
13444#endif
13445
13446 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13447
13448#if IK5_ENABLED
13449 PURE module function getMatCopy_LFP_RDP_UXD_AIO_IK5(dpack, source, spack, subset, doff, init) result(destin)
13450#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13451 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_AIO_IK5
13452#endif
13453 use pm_kind, only: IKG => IK5
13454 type(lfpack_type) , intent(in) :: dpack
13455 type(rdpack_type) , intent(in) :: spack
13456 type(uppDia_type) , intent(in) :: subset
13457 integer(IK) , intent(in) , optional :: doff
13458 integer(IKG) , intent(in) , optional :: init
13459 integer(IKG) , intent(in) :: source(:,:)
13460 integer(IKG) , allocatable :: destin(:)
13461 end function
13462#endif
13463
13464#if IK4_ENABLED
13465 PURE module function getMatCopy_LFP_RDP_UXD_AIO_IK4(dpack, source, spack, subset, doff, init) result(destin)
13466#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13467 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_AIO_IK4
13468#endif
13469 use pm_kind, only: IKG => IK4
13470 type(lfpack_type) , intent(in) :: dpack
13471 type(rdpack_type) , intent(in) :: spack
13472 type(uppDia_type) , intent(in) :: subset
13473 integer(IK) , intent(in) , optional :: doff
13474 integer(IKG) , intent(in) , optional :: init
13475 integer(IKG) , intent(in) :: source(:,:)
13476 integer(IKG) , allocatable :: destin(:)
13477 end function
13478#endif
13479
13480#if IK3_ENABLED
13481 PURE module function getMatCopy_LFP_RDP_UXD_AIO_IK3(dpack, source, spack, subset, doff, init) result(destin)
13482#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13483 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_AIO_IK3
13484#endif
13485 use pm_kind, only: IKG => IK3
13486 type(lfpack_type) , intent(in) :: dpack
13487 type(rdpack_type) , intent(in) :: spack
13488 type(uppDia_type) , intent(in) :: subset
13489 integer(IK) , intent(in) , optional :: doff
13490 integer(IKG) , intent(in) , optional :: init
13491 integer(IKG) , intent(in) :: source(:,:)
13492 integer(IKG) , allocatable :: destin(:)
13493 end function
13494#endif
13495
13496#if IK2_ENABLED
13497 PURE module function getMatCopy_LFP_RDP_UXD_AIO_IK2(dpack, source, spack, subset, doff, init) result(destin)
13498#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13499 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_AIO_IK2
13500#endif
13501 use pm_kind, only: IKG => IK2
13502 type(lfpack_type) , intent(in) :: dpack
13503 type(rdpack_type) , intent(in) :: spack
13504 type(uppDia_type) , intent(in) :: subset
13505 integer(IK) , intent(in) , optional :: doff
13506 integer(IKG) , intent(in) , optional :: init
13507 integer(IKG) , intent(in) :: source(:,:)
13508 integer(IKG) , allocatable :: destin(:)
13509 end function
13510#endif
13511
13512#if IK1_ENABLED
13513 PURE module function getMatCopy_LFP_RDP_UXD_AIO_IK1(dpack, source, spack, subset, doff, init) result(destin)
13514#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13515 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_AIO_IK1
13516#endif
13517 use pm_kind, only: IKG => IK1
13518 type(lfpack_type) , intent(in) :: dpack
13519 type(rdpack_type) , intent(in) :: spack
13520 type(uppDia_type) , intent(in) :: subset
13521 integer(IK) , intent(in) , optional :: doff
13522 integer(IKG) , intent(in) , optional :: init
13523 integer(IKG) , intent(in) :: source(:,:)
13524 integer(IKG) , allocatable :: destin(:)
13525 end function
13526#endif
13527
13528 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13529
13530#if LK5_ENABLED
13531 PURE module function getMatCopy_LFP_RDP_UXD_AIO_LK5(dpack, source, spack, subset, doff, init) result(destin)
13532#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13533 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_AIO_LK5
13534#endif
13535 use pm_kind, only: LKG => LK5
13536 type(lfpack_type) , intent(in) :: dpack
13537 type(rdpack_type) , intent(in) :: spack
13538 type(uppDia_type) , intent(in) :: subset
13539 integer(IK) , intent(in) , optional :: doff
13540 logical(LKG) , intent(in) , optional :: init
13541 logical(LKG) , intent(in) :: source(:,:)
13542 logical(LKG) , allocatable :: destin(:)
13543 end function
13544#endif
13545
13546#if LK4_ENABLED
13547 PURE module function getMatCopy_LFP_RDP_UXD_AIO_LK4(dpack, source, spack, subset, doff, init) result(destin)
13548#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13549 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_AIO_LK4
13550#endif
13551 use pm_kind, only: LKG => LK4
13552 type(lfpack_type) , intent(in) :: dpack
13553 type(rdpack_type) , intent(in) :: spack
13554 type(uppDia_type) , intent(in) :: subset
13555 integer(IK) , intent(in) , optional :: doff
13556 logical(LKG) , intent(in) , optional :: init
13557 logical(LKG) , intent(in) :: source(:,:)
13558 logical(LKG) , allocatable :: destin(:)
13559 end function
13560#endif
13561
13562#if LK3_ENABLED
13563 PURE module function getMatCopy_LFP_RDP_UXD_AIO_LK3(dpack, source, spack, subset, doff, init) result(destin)
13564#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13565 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_AIO_LK3
13566#endif
13567 use pm_kind, only: LKG => LK3
13568 type(lfpack_type) , intent(in) :: dpack
13569 type(rdpack_type) , intent(in) :: spack
13570 type(uppDia_type) , intent(in) :: subset
13571 integer(IK) , intent(in) , optional :: doff
13572 logical(LKG) , intent(in) , optional :: init
13573 logical(LKG) , intent(in) :: source(:,:)
13574 logical(LKG) , allocatable :: destin(:)
13575 end function
13576#endif
13577
13578#if LK2_ENABLED
13579 PURE module function getMatCopy_LFP_RDP_UXD_AIO_LK2(dpack, source, spack, subset, doff, init) result(destin)
13580#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13581 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_AIO_LK2
13582#endif
13583 use pm_kind, only: LKG => LK2
13584 type(lfpack_type) , intent(in) :: dpack
13585 type(rdpack_type) , intent(in) :: spack
13586 type(uppDia_type) , intent(in) :: subset
13587 integer(IK) , intent(in) , optional :: doff
13588 logical(LKG) , intent(in) , optional :: init
13589 logical(LKG) , intent(in) :: source(:,:)
13590 logical(LKG) , allocatable :: destin(:)
13591 end function
13592#endif
13593
13594#if LK1_ENABLED
13595 PURE module function getMatCopy_LFP_RDP_UXD_AIO_LK1(dpack, source, spack, subset, doff, init) result(destin)
13596#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13597 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_AIO_LK1
13598#endif
13599 use pm_kind, only: LKG => LK1
13600 type(lfpack_type) , intent(in) :: dpack
13601 type(rdpack_type) , intent(in) :: spack
13602 type(uppDia_type) , intent(in) :: subset
13603 integer(IK) , intent(in) , optional :: doff
13604 logical(LKG) , intent(in) , optional :: init
13605 logical(LKG) , intent(in) :: source(:,:)
13606 logical(LKG) , allocatable :: destin(:)
13607 end function
13608#endif
13609
13610 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13611
13612#if CK5_ENABLED
13613 PURE module function getMatCopy_LFP_RDP_UXD_AIO_CK5(dpack, source, spack, subset, doff, init) result(destin)
13614#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13615 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_AIO_CK5
13616#endif
13617 use pm_kind, only: CKG => CK5
13618 type(lfpack_type) , intent(in) :: dpack
13619 type(rdpack_type) , intent(in) :: spack
13620 type(uppDia_type) , intent(in) :: subset
13621 integer(IK) , intent(in) , optional :: doff
13622 complex(CKG) , intent(in) , optional :: init
13623 complex(CKG) , intent(in) :: source(:,:)
13624 complex(CKG) , allocatable :: destin(:)
13625 end function
13626#endif
13627
13628#if CK4_ENABLED
13629 PURE module function getMatCopy_LFP_RDP_UXD_AIO_CK4(dpack, source, spack, subset, doff, init) result(destin)
13630#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13631 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_AIO_CK4
13632#endif
13633 use pm_kind, only: CKG => CK4
13634 type(lfpack_type) , intent(in) :: dpack
13635 type(rdpack_type) , intent(in) :: spack
13636 type(uppDia_type) , intent(in) :: subset
13637 integer(IK) , intent(in) , optional :: doff
13638 complex(CKG) , intent(in) , optional :: init
13639 complex(CKG) , intent(in) :: source(:,:)
13640 complex(CKG) , allocatable :: destin(:)
13641 end function
13642#endif
13643
13644#if CK3_ENABLED
13645 PURE module function getMatCopy_LFP_RDP_UXD_AIO_CK3(dpack, source, spack, subset, doff, init) result(destin)
13646#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13647 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_AIO_CK3
13648#endif
13649 use pm_kind, only: CKG => CK3
13650 type(lfpack_type) , intent(in) :: dpack
13651 type(rdpack_type) , intent(in) :: spack
13652 type(uppDia_type) , intent(in) :: subset
13653 integer(IK) , intent(in) , optional :: doff
13654 complex(CKG) , intent(in) , optional :: init
13655 complex(CKG) , intent(in) :: source(:,:)
13656 complex(CKG) , allocatable :: destin(:)
13657 end function
13658#endif
13659
13660#if CK2_ENABLED
13661 PURE module function getMatCopy_LFP_RDP_UXD_AIO_CK2(dpack, source, spack, subset, doff, init) result(destin)
13662#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13663 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_AIO_CK2
13664#endif
13665 use pm_kind, only: CKG => CK2
13666 type(lfpack_type) , intent(in) :: dpack
13667 type(rdpack_type) , intent(in) :: spack
13668 type(uppDia_type) , intent(in) :: subset
13669 integer(IK) , intent(in) , optional :: doff
13670 complex(CKG) , intent(in) , optional :: init
13671 complex(CKG) , intent(in) :: source(:,:)
13672 complex(CKG) , allocatable :: destin(:)
13673 end function
13674#endif
13675
13676#if CK1_ENABLED
13677 PURE module function getMatCopy_LFP_RDP_UXD_AIO_CK1(dpack, source, spack, subset, doff, init) result(destin)
13678#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13679 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_AIO_CK1
13680#endif
13681 use pm_kind, only: CKG => CK1
13682 type(lfpack_type) , intent(in) :: dpack
13683 type(rdpack_type) , intent(in) :: spack
13684 type(uppDia_type) , intent(in) :: subset
13685 integer(IK) , intent(in) , optional :: doff
13686 complex(CKG) , intent(in) , optional :: init
13687 complex(CKG) , intent(in) :: source(:,:)
13688 complex(CKG) , allocatable :: destin(:)
13689 end function
13690#endif
13691
13692 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13693
13694#if RK5_ENABLED
13695 PURE module function getMatCopy_LFP_RDP_UXD_AIO_RK5(dpack, source, spack, subset, doff, init) result(destin)
13696#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13697 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_AIO_RK5
13698#endif
13699 use pm_kind, only: RKG => RK5
13700 type(lfpack_type) , intent(in) :: dpack
13701 type(rdpack_type) , intent(in) :: spack
13702 type(uppDia_type) , intent(in) :: subset
13703 integer(IK) , intent(in) , optional :: doff
13704 real(RKG) , intent(in) , optional :: init
13705 real(RKG) , intent(in) :: source(:,:)
13706 real(RKG) , allocatable :: destin(:)
13707 end function
13708#endif
13709
13710#if RK4_ENABLED
13711 PURE module function getMatCopy_LFP_RDP_UXD_AIO_RK4(dpack, source, spack, subset, doff, init) result(destin)
13712#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13713 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_AIO_RK4
13714#endif
13715 use pm_kind, only: RKG => RK4
13716 type(lfpack_type) , intent(in) :: dpack
13717 type(rdpack_type) , intent(in) :: spack
13718 type(uppDia_type) , intent(in) :: subset
13719 integer(IK) , intent(in) , optional :: doff
13720 real(RKG) , intent(in) , optional :: init
13721 real(RKG) , intent(in) :: source(:,:)
13722 real(RKG) , allocatable :: destin(:)
13723 end function
13724#endif
13725
13726#if RK3_ENABLED
13727 PURE module function getMatCopy_LFP_RDP_UXD_AIO_RK3(dpack, source, spack, subset, doff, init) result(destin)
13728#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13729 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_AIO_RK3
13730#endif
13731 use pm_kind, only: RKG => RK3
13732 type(lfpack_type) , intent(in) :: dpack
13733 type(rdpack_type) , intent(in) :: spack
13734 type(uppDia_type) , intent(in) :: subset
13735 integer(IK) , intent(in) , optional :: doff
13736 real(RKG) , intent(in) , optional :: init
13737 real(RKG) , intent(in) :: source(:,:)
13738 real(RKG) , allocatable :: destin(:)
13739 end function
13740#endif
13741
13742#if RK2_ENABLED
13743 PURE module function getMatCopy_LFP_RDP_UXD_AIO_RK2(dpack, source, spack, subset, doff, init) result(destin)
13744#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13745 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_AIO_RK2
13746#endif
13747 use pm_kind, only: RKG => RK2
13748 type(lfpack_type) , intent(in) :: dpack
13749 type(rdpack_type) , intent(in) :: spack
13750 type(uppDia_type) , intent(in) :: subset
13751 integer(IK) , intent(in) , optional :: doff
13752 real(RKG) , intent(in) , optional :: init
13753 real(RKG) , intent(in) :: source(:,:)
13754 real(RKG) , allocatable :: destin(:)
13755 end function
13756#endif
13757
13758#if RK1_ENABLED
13759 PURE module function getMatCopy_LFP_RDP_UXD_AIO_RK1(dpack, source, spack, subset, doff, init) result(destin)
13760#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13761 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_AIO_RK1
13762#endif
13763 use pm_kind, only: RKG => RK1
13764 type(lfpack_type) , intent(in) :: dpack
13765 type(rdpack_type) , intent(in) :: spack
13766 type(uppDia_type) , intent(in) :: subset
13767 integer(IK) , intent(in) , optional :: doff
13768 real(RKG) , intent(in) , optional :: init
13769 real(RKG) , intent(in) :: source(:,:)
13770 real(RKG) , allocatable :: destin(:)
13771 end function
13772#endif
13773
13774 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13775
13776 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13777 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13778 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13779
13780 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13781
13782#if SK5_ENABLED
13783 PURE module function getMatCopy_LFP_RDP_UXD_TSO_SK5(dpack, source, spack, subset, operation, doff, init) result(destin)
13784#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13785 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_TSO_SK5
13786#endif
13787 use pm_kind, only: SKG => SK5
13788 type(lfpack_type) , intent(in) :: dpack
13789 type(rdpack_type) , intent(in) :: spack
13790 type(uppDia_type) , intent(in) :: subset
13791 type(transSymm_type) , intent(in) :: operation
13792 integer(IK) , intent(in) , optional :: doff
13793 character(*,SKG) , intent(in) , optional :: init
13794 character(*,SKG) , intent(in) :: source(:,:)
13795 character(len(source,IK),SKG) , allocatable :: destin(:)
13796 end function
13797#endif
13798
13799#if SK4_ENABLED
13800 PURE module function getMatCopy_LFP_RDP_UXD_TSO_SK4(dpack, source, spack, subset, operation, doff, init) result(destin)
13801#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13802 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_TSO_SK4
13803#endif
13804 use pm_kind, only: SKG => SK4
13805 type(lfpack_type) , intent(in) :: dpack
13806 type(rdpack_type) , intent(in) :: spack
13807 type(uppDia_type) , intent(in) :: subset
13808 type(transSymm_type) , intent(in) :: operation
13809 integer(IK) , intent(in) , optional :: doff
13810 character(*,SKG) , intent(in) , optional :: init
13811 character(*,SKG) , intent(in) :: source(:,:)
13812 character(len(source,IK),SKG) , allocatable :: destin(:)
13813 end function
13814#endif
13815
13816#if SK3_ENABLED
13817 PURE module function getMatCopy_LFP_RDP_UXD_TSO_SK3(dpack, source, spack, subset, operation, doff, init) result(destin)
13818#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13819 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_TSO_SK3
13820#endif
13821 use pm_kind, only: SKG => SK3
13822 type(lfpack_type) , intent(in) :: dpack
13823 type(rdpack_type) , intent(in) :: spack
13824 type(uppDia_type) , intent(in) :: subset
13825 type(transSymm_type) , intent(in) :: operation
13826 integer(IK) , intent(in) , optional :: doff
13827 character(*,SKG) , intent(in) , optional :: init
13828 character(*,SKG) , intent(in) :: source(:,:)
13829 character(len(source,IK),SKG) , allocatable :: destin(:)
13830 end function
13831#endif
13832
13833#if SK2_ENABLED
13834 PURE module function getMatCopy_LFP_RDP_UXD_TSO_SK2(dpack, source, spack, subset, operation, doff, init) result(destin)
13835#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13836 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_TSO_SK2
13837#endif
13838 use pm_kind, only: SKG => SK2
13839 type(lfpack_type) , intent(in) :: dpack
13840 type(rdpack_type) , intent(in) :: spack
13841 type(uppDia_type) , intent(in) :: subset
13842 type(transSymm_type) , intent(in) :: operation
13843 integer(IK) , intent(in) , optional :: doff
13844 character(*,SKG) , intent(in) , optional :: init
13845 character(*,SKG) , intent(in) :: source(:,:)
13846 character(len(source,IK),SKG) , allocatable :: destin(:)
13847 end function
13848#endif
13849
13850#if SK1_ENABLED
13851 PURE module function getMatCopy_LFP_RDP_UXD_TSO_SK1(dpack, source, spack, subset, operation, doff, init) result(destin)
13852#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13853 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_TSO_SK1
13854#endif
13855 use pm_kind, only: SKG => SK1
13856 type(lfpack_type) , intent(in) :: dpack
13857 type(rdpack_type) , intent(in) :: spack
13858 type(uppDia_type) , intent(in) :: subset
13859 type(transSymm_type) , intent(in) :: operation
13860 integer(IK) , intent(in) , optional :: doff
13861 character(*,SKG) , intent(in) , optional :: init
13862 character(*,SKG) , intent(in) :: source(:,:)
13863 character(len(source,IK),SKG) , allocatable :: destin(:)
13864 end function
13865#endif
13866
13867 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13868
13869#if IK5_ENABLED
13870 PURE module function getMatCopy_LFP_RDP_UXD_TSO_IK5(dpack, source, spack, subset, operation, doff, init) result(destin)
13871#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13872 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_TSO_IK5
13873#endif
13874 use pm_kind, only: IKG => IK5
13875 type(lfpack_type) , intent(in) :: dpack
13876 type(rdpack_type) , intent(in) :: spack
13877 type(uppDia_type) , intent(in) :: subset
13878 type(transSymm_type) , intent(in) :: operation
13879 integer(IK) , intent(in) , optional :: doff
13880 integer(IKG) , intent(in) , optional :: init
13881 integer(IKG) , intent(in) :: source(:,:)
13882 integer(IKG) , allocatable :: destin(:)
13883 end function
13884#endif
13885
13886#if IK4_ENABLED
13887 PURE module function getMatCopy_LFP_RDP_UXD_TSO_IK4(dpack, source, spack, subset, operation, doff, init) result(destin)
13888#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13889 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_TSO_IK4
13890#endif
13891 use pm_kind, only: IKG => IK4
13892 type(lfpack_type) , intent(in) :: dpack
13893 type(rdpack_type) , intent(in) :: spack
13894 type(uppDia_type) , intent(in) :: subset
13895 type(transSymm_type) , intent(in) :: operation
13896 integer(IK) , intent(in) , optional :: doff
13897 integer(IKG) , intent(in) , optional :: init
13898 integer(IKG) , intent(in) :: source(:,:)
13899 integer(IKG) , allocatable :: destin(:)
13900 end function
13901#endif
13902
13903#if IK3_ENABLED
13904 PURE module function getMatCopy_LFP_RDP_UXD_TSO_IK3(dpack, source, spack, subset, operation, doff, init) result(destin)
13905#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13906 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_TSO_IK3
13907#endif
13908 use pm_kind, only: IKG => IK3
13909 type(lfpack_type) , intent(in) :: dpack
13910 type(rdpack_type) , intent(in) :: spack
13911 type(uppDia_type) , intent(in) :: subset
13912 type(transSymm_type) , intent(in) :: operation
13913 integer(IK) , intent(in) , optional :: doff
13914 integer(IKG) , intent(in) , optional :: init
13915 integer(IKG) , intent(in) :: source(:,:)
13916 integer(IKG) , allocatable :: destin(:)
13917 end function
13918#endif
13919
13920#if IK2_ENABLED
13921 PURE module function getMatCopy_LFP_RDP_UXD_TSO_IK2(dpack, source, spack, subset, operation, doff, init) result(destin)
13922#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13923 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_TSO_IK2
13924#endif
13925 use pm_kind, only: IKG => IK2
13926 type(lfpack_type) , intent(in) :: dpack
13927 type(rdpack_type) , intent(in) :: spack
13928 type(uppDia_type) , intent(in) :: subset
13929 type(transSymm_type) , intent(in) :: operation
13930 integer(IK) , intent(in) , optional :: doff
13931 integer(IKG) , intent(in) , optional :: init
13932 integer(IKG) , intent(in) :: source(:,:)
13933 integer(IKG) , allocatable :: destin(:)
13934 end function
13935#endif
13936
13937#if IK1_ENABLED
13938 PURE module function getMatCopy_LFP_RDP_UXD_TSO_IK1(dpack, source, spack, subset, operation, doff, init) result(destin)
13939#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13940 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_TSO_IK1
13941#endif
13942 use pm_kind, only: IKG => IK1
13943 type(lfpack_type) , intent(in) :: dpack
13944 type(rdpack_type) , intent(in) :: spack
13945 type(uppDia_type) , intent(in) :: subset
13946 type(transSymm_type) , intent(in) :: operation
13947 integer(IK) , intent(in) , optional :: doff
13948 integer(IKG) , intent(in) , optional :: init
13949 integer(IKG) , intent(in) :: source(:,:)
13950 integer(IKG) , allocatable :: destin(:)
13951 end function
13952#endif
13953
13954 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13955
13956#if LK5_ENABLED
13957 PURE module function getMatCopy_LFP_RDP_UXD_TSO_LK5(dpack, source, spack, subset, operation, doff, init) result(destin)
13958#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13959 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_TSO_LK5
13960#endif
13961 use pm_kind, only: LKG => LK5
13962 type(lfpack_type) , intent(in) :: dpack
13963 type(rdpack_type) , intent(in) :: spack
13964 type(uppDia_type) , intent(in) :: subset
13965 type(transSymm_type) , intent(in) :: operation
13966 integer(IK) , intent(in) , optional :: doff
13967 logical(LKG) , intent(in) , optional :: init
13968 logical(LKG) , intent(in) :: source(:,:)
13969 logical(LKG) , allocatable :: destin(:)
13970 end function
13971#endif
13972
13973#if LK4_ENABLED
13974 PURE module function getMatCopy_LFP_RDP_UXD_TSO_LK4(dpack, source, spack, subset, operation, doff, init) result(destin)
13975#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13976 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_TSO_LK4
13977#endif
13978 use pm_kind, only: LKG => LK4
13979 type(lfpack_type) , intent(in) :: dpack
13980 type(rdpack_type) , intent(in) :: spack
13981 type(uppDia_type) , intent(in) :: subset
13982 type(transSymm_type) , intent(in) :: operation
13983 integer(IK) , intent(in) , optional :: doff
13984 logical(LKG) , intent(in) , optional :: init
13985 logical(LKG) , intent(in) :: source(:,:)
13986 logical(LKG) , allocatable :: destin(:)
13987 end function
13988#endif
13989
13990#if LK3_ENABLED
13991 PURE module function getMatCopy_LFP_RDP_UXD_TSO_LK3(dpack, source, spack, subset, operation, doff, init) result(destin)
13992#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13993 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_TSO_LK3
13994#endif
13995 use pm_kind, only: LKG => LK3
13996 type(lfpack_type) , intent(in) :: dpack
13997 type(rdpack_type) , intent(in) :: spack
13998 type(uppDia_type) , intent(in) :: subset
13999 type(transSymm_type) , intent(in) :: operation
14000 integer(IK) , intent(in) , optional :: doff
14001 logical(LKG) , intent(in) , optional :: init
14002 logical(LKG) , intent(in) :: source(:,:)
14003 logical(LKG) , allocatable :: destin(:)
14004 end function
14005#endif
14006
14007#if LK2_ENABLED
14008 PURE module function getMatCopy_LFP_RDP_UXD_TSO_LK2(dpack, source, spack, subset, operation, doff, init) result(destin)
14009#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14010 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_TSO_LK2
14011#endif
14012 use pm_kind, only: LKG => LK2
14013 type(lfpack_type) , intent(in) :: dpack
14014 type(rdpack_type) , intent(in) :: spack
14015 type(uppDia_type) , intent(in) :: subset
14016 type(transSymm_type) , intent(in) :: operation
14017 integer(IK) , intent(in) , optional :: doff
14018 logical(LKG) , intent(in) , optional :: init
14019 logical(LKG) , intent(in) :: source(:,:)
14020 logical(LKG) , allocatable :: destin(:)
14021 end function
14022#endif
14023
14024#if LK1_ENABLED
14025 PURE module function getMatCopy_LFP_RDP_UXD_TSO_LK1(dpack, source, spack, subset, operation, doff, init) result(destin)
14026#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14027 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_TSO_LK1
14028#endif
14029 use pm_kind, only: LKG => LK1
14030 type(lfpack_type) , intent(in) :: dpack
14031 type(rdpack_type) , intent(in) :: spack
14032 type(uppDia_type) , intent(in) :: subset
14033 type(transSymm_type) , intent(in) :: operation
14034 integer(IK) , intent(in) , optional :: doff
14035 logical(LKG) , intent(in) , optional :: init
14036 logical(LKG) , intent(in) :: source(:,:)
14037 logical(LKG) , allocatable :: destin(:)
14038 end function
14039#endif
14040
14041 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14042
14043#if CK5_ENABLED
14044 PURE module function getMatCopy_LFP_RDP_UXD_TSO_CK5(dpack, source, spack, subset, operation, doff, init) result(destin)
14045#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14046 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_TSO_CK5
14047#endif
14048 use pm_kind, only: CKG => CK5
14049 type(lfpack_type) , intent(in) :: dpack
14050 type(rdpack_type) , intent(in) :: spack
14051 type(uppDia_type) , intent(in) :: subset
14052 type(transSymm_type) , intent(in) :: operation
14053 integer(IK) , intent(in) , optional :: doff
14054 complex(CKG) , intent(in) , optional :: init
14055 complex(CKG) , intent(in) :: source(:,:)
14056 complex(CKG) , allocatable :: destin(:)
14057 end function
14058#endif
14059
14060#if CK4_ENABLED
14061 PURE module function getMatCopy_LFP_RDP_UXD_TSO_CK4(dpack, source, spack, subset, operation, doff, init) result(destin)
14062#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14063 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_TSO_CK4
14064#endif
14065 use pm_kind, only: CKG => CK4
14066 type(lfpack_type) , intent(in) :: dpack
14067 type(rdpack_type) , intent(in) :: spack
14068 type(uppDia_type) , intent(in) :: subset
14069 type(transSymm_type) , intent(in) :: operation
14070 integer(IK) , intent(in) , optional :: doff
14071 complex(CKG) , intent(in) , optional :: init
14072 complex(CKG) , intent(in) :: source(:,:)
14073 complex(CKG) , allocatable :: destin(:)
14074 end function
14075#endif
14076
14077#if CK3_ENABLED
14078 PURE module function getMatCopy_LFP_RDP_UXD_TSO_CK3(dpack, source, spack, subset, operation, doff, init) result(destin)
14079#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14080 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_TSO_CK3
14081#endif
14082 use pm_kind, only: CKG => CK3
14083 type(lfpack_type) , intent(in) :: dpack
14084 type(rdpack_type) , intent(in) :: spack
14085 type(uppDia_type) , intent(in) :: subset
14086 type(transSymm_type) , intent(in) :: operation
14087 integer(IK) , intent(in) , optional :: doff
14088 complex(CKG) , intent(in) , optional :: init
14089 complex(CKG) , intent(in) :: source(:,:)
14090 complex(CKG) , allocatable :: destin(:)
14091 end function
14092#endif
14093
14094#if CK2_ENABLED
14095 PURE module function getMatCopy_LFP_RDP_UXD_TSO_CK2(dpack, source, spack, subset, operation, doff, init) result(destin)
14096#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14097 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_TSO_CK2
14098#endif
14099 use pm_kind, only: CKG => CK2
14100 type(lfpack_type) , intent(in) :: dpack
14101 type(rdpack_type) , intent(in) :: spack
14102 type(uppDia_type) , intent(in) :: subset
14103 type(transSymm_type) , intent(in) :: operation
14104 integer(IK) , intent(in) , optional :: doff
14105 complex(CKG) , intent(in) , optional :: init
14106 complex(CKG) , intent(in) :: source(:,:)
14107 complex(CKG) , allocatable :: destin(:)
14108 end function
14109#endif
14110
14111#if CK1_ENABLED
14112 PURE module function getMatCopy_LFP_RDP_UXD_TSO_CK1(dpack, source, spack, subset, operation, doff, init) result(destin)
14113#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14114 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_TSO_CK1
14115#endif
14116 use pm_kind, only: CKG => CK1
14117 type(lfpack_type) , intent(in) :: dpack
14118 type(rdpack_type) , intent(in) :: spack
14119 type(uppDia_type) , intent(in) :: subset
14120 type(transSymm_type) , intent(in) :: operation
14121 integer(IK) , intent(in) , optional :: doff
14122 complex(CKG) , intent(in) , optional :: init
14123 complex(CKG) , intent(in) :: source(:,:)
14124 complex(CKG) , allocatable :: destin(:)
14125 end function
14126#endif
14127
14128 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14129
14130#if RK5_ENABLED
14131 PURE module function getMatCopy_LFP_RDP_UXD_TSO_RK5(dpack, source, spack, subset, operation, doff, init) result(destin)
14132#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14133 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_TSO_RK5
14134#endif
14135 use pm_kind, only: RKG => RK5
14136 type(lfpack_type) , intent(in) :: dpack
14137 type(rdpack_type) , intent(in) :: spack
14138 type(uppDia_type) , intent(in) :: subset
14139 type(transSymm_type) , intent(in) :: operation
14140 integer(IK) , intent(in) , optional :: doff
14141 real(RKG) , intent(in) , optional :: init
14142 real(RKG) , intent(in) :: source(:,:)
14143 real(RKG) , allocatable :: destin(:)
14144 end function
14145#endif
14146
14147#if RK4_ENABLED
14148 PURE module function getMatCopy_LFP_RDP_UXD_TSO_RK4(dpack, source, spack, subset, operation, doff, init) result(destin)
14149#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14150 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_TSO_RK4
14151#endif
14152 use pm_kind, only: RKG => RK4
14153 type(lfpack_type) , intent(in) :: dpack
14154 type(rdpack_type) , intent(in) :: spack
14155 type(uppDia_type) , intent(in) :: subset
14156 type(transSymm_type) , intent(in) :: operation
14157 integer(IK) , intent(in) , optional :: doff
14158 real(RKG) , intent(in) , optional :: init
14159 real(RKG) , intent(in) :: source(:,:)
14160 real(RKG) , allocatable :: destin(:)
14161 end function
14162#endif
14163
14164#if RK3_ENABLED
14165 PURE module function getMatCopy_LFP_RDP_UXD_TSO_RK3(dpack, source, spack, subset, operation, doff, init) result(destin)
14166#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14167 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_TSO_RK3
14168#endif
14169 use pm_kind, only: RKG => RK3
14170 type(lfpack_type) , intent(in) :: dpack
14171 type(rdpack_type) , intent(in) :: spack
14172 type(uppDia_type) , intent(in) :: subset
14173 type(transSymm_type) , intent(in) :: operation
14174 integer(IK) , intent(in) , optional :: doff
14175 real(RKG) , intent(in) , optional :: init
14176 real(RKG) , intent(in) :: source(:,:)
14177 real(RKG) , allocatable :: destin(:)
14178 end function
14179#endif
14180
14181#if RK2_ENABLED
14182 PURE module function getMatCopy_LFP_RDP_UXD_TSO_RK2(dpack, source, spack, subset, operation, doff, init) result(destin)
14183#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14184 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_TSO_RK2
14185#endif
14186 use pm_kind, only: RKG => RK2
14187 type(lfpack_type) , intent(in) :: dpack
14188 type(rdpack_type) , intent(in) :: spack
14189 type(uppDia_type) , intent(in) :: subset
14190 type(transSymm_type) , intent(in) :: operation
14191 integer(IK) , intent(in) , optional :: doff
14192 real(RKG) , intent(in) , optional :: init
14193 real(RKG) , intent(in) :: source(:,:)
14194 real(RKG) , allocatable :: destin(:)
14195 end function
14196#endif
14197
14198#if RK1_ENABLED
14199 PURE module function getMatCopy_LFP_RDP_UXD_TSO_RK1(dpack, source, spack, subset, operation, doff, init) result(destin)
14200#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14201 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_TSO_RK1
14202#endif
14203 use pm_kind, only: RKG => RK1
14204 type(lfpack_type) , intent(in) :: dpack
14205 type(rdpack_type) , intent(in) :: spack
14206 type(uppDia_type) , intent(in) :: subset
14207 type(transSymm_type) , intent(in) :: operation
14208 integer(IK) , intent(in) , optional :: doff
14209 real(RKG) , intent(in) , optional :: init
14210 real(RKG) , intent(in) :: source(:,:)
14211 real(RKG) , allocatable :: destin(:)
14212 end function
14213#endif
14214
14215 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14216
14217 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14218 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14219 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14220
14221 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14222
14223#if SK5_ENABLED
14224 PURE module function getMatCopy_LFP_RDP_UXD_THO_SK5(dpack, source, spack, subset, operation, doff, init) result(destin)
14225#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14226 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_THO_SK5
14227#endif
14228 use pm_kind, only: SKG => SK5
14229 type(lfpack_type) , intent(in) :: dpack
14230 type(rdpack_type) , intent(in) :: spack
14231 type(uppDia_type) , intent(in) :: subset
14232 type(transHerm_type) , intent(in) :: operation
14233 integer(IK) , intent(in) , optional :: doff
14234 character(*,SKG) , intent(in) , optional :: init
14235 character(*,SKG) , intent(in) :: source(:,:)
14236 character(len(source,IK),SKG) , allocatable :: destin(:)
14237 end function
14238#endif
14239
14240#if SK4_ENABLED
14241 PURE module function getMatCopy_LFP_RDP_UXD_THO_SK4(dpack, source, spack, subset, operation, doff, init) result(destin)
14242#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14243 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_THO_SK4
14244#endif
14245 use pm_kind, only: SKG => SK4
14246 type(lfpack_type) , intent(in) :: dpack
14247 type(rdpack_type) , intent(in) :: spack
14248 type(uppDia_type) , intent(in) :: subset
14249 type(transHerm_type) , intent(in) :: operation
14250 integer(IK) , intent(in) , optional :: doff
14251 character(*,SKG) , intent(in) , optional :: init
14252 character(*,SKG) , intent(in) :: source(:,:)
14253 character(len(source,IK),SKG) , allocatable :: destin(:)
14254 end function
14255#endif
14256
14257#if SK3_ENABLED
14258 PURE module function getMatCopy_LFP_RDP_UXD_THO_SK3(dpack, source, spack, subset, operation, doff, init) result(destin)
14259#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14260 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_THO_SK3
14261#endif
14262 use pm_kind, only: SKG => SK3
14263 type(lfpack_type) , intent(in) :: dpack
14264 type(rdpack_type) , intent(in) :: spack
14265 type(uppDia_type) , intent(in) :: subset
14266 type(transHerm_type) , intent(in) :: operation
14267 integer(IK) , intent(in) , optional :: doff
14268 character(*,SKG) , intent(in) , optional :: init
14269 character(*,SKG) , intent(in) :: source(:,:)
14270 character(len(source,IK),SKG) , allocatable :: destin(:)
14271 end function
14272#endif
14273
14274#if SK2_ENABLED
14275 PURE module function getMatCopy_LFP_RDP_UXD_THO_SK2(dpack, source, spack, subset, operation, doff, init) result(destin)
14276#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14277 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_THO_SK2
14278#endif
14279 use pm_kind, only: SKG => SK2
14280 type(lfpack_type) , intent(in) :: dpack
14281 type(rdpack_type) , intent(in) :: spack
14282 type(uppDia_type) , intent(in) :: subset
14283 type(transHerm_type) , intent(in) :: operation
14284 integer(IK) , intent(in) , optional :: doff
14285 character(*,SKG) , intent(in) , optional :: init
14286 character(*,SKG) , intent(in) :: source(:,:)
14287 character(len(source,IK),SKG) , allocatable :: destin(:)
14288 end function
14289#endif
14290
14291#if SK1_ENABLED
14292 PURE module function getMatCopy_LFP_RDP_UXD_THO_SK1(dpack, source, spack, subset, operation, doff, init) result(destin)
14293#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14294 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_THO_SK1
14295#endif
14296 use pm_kind, only: SKG => SK1
14297 type(lfpack_type) , intent(in) :: dpack
14298 type(rdpack_type) , intent(in) :: spack
14299 type(uppDia_type) , intent(in) :: subset
14300 type(transHerm_type) , intent(in) :: operation
14301 integer(IK) , intent(in) , optional :: doff
14302 character(*,SKG) , intent(in) , optional :: init
14303 character(*,SKG) , intent(in) :: source(:,:)
14304 character(len(source,IK),SKG) , allocatable :: destin(:)
14305 end function
14306#endif
14307
14308 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14309
14310#if IK5_ENABLED
14311 PURE module function getMatCopy_LFP_RDP_UXD_THO_IK5(dpack, source, spack, subset, operation, doff, init) result(destin)
14312#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14313 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_THO_IK5
14314#endif
14315 use pm_kind, only: IKG => IK5
14316 type(lfpack_type) , intent(in) :: dpack
14317 type(rdpack_type) , intent(in) :: spack
14318 type(uppDia_type) , intent(in) :: subset
14319 type(transHerm_type) , intent(in) :: operation
14320 integer(IK) , intent(in) , optional :: doff
14321 integer(IKG) , intent(in) , optional :: init
14322 integer(IKG) , intent(in) :: source(:,:)
14323 integer(IKG) , allocatable :: destin(:)
14324 end function
14325#endif
14326
14327#if IK4_ENABLED
14328 PURE module function getMatCopy_LFP_RDP_UXD_THO_IK4(dpack, source, spack, subset, operation, doff, init) result(destin)
14329#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14330 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_THO_IK4
14331#endif
14332 use pm_kind, only: IKG => IK4
14333 type(lfpack_type) , intent(in) :: dpack
14334 type(rdpack_type) , intent(in) :: spack
14335 type(uppDia_type) , intent(in) :: subset
14336 type(transHerm_type) , intent(in) :: operation
14337 integer(IK) , intent(in) , optional :: doff
14338 integer(IKG) , intent(in) , optional :: init
14339 integer(IKG) , intent(in) :: source(:,:)
14340 integer(IKG) , allocatable :: destin(:)
14341 end function
14342#endif
14343
14344#if IK3_ENABLED
14345 PURE module function getMatCopy_LFP_RDP_UXD_THO_IK3(dpack, source, spack, subset, operation, doff, init) result(destin)
14346#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14347 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_THO_IK3
14348#endif
14349 use pm_kind, only: IKG => IK3
14350 type(lfpack_type) , intent(in) :: dpack
14351 type(rdpack_type) , intent(in) :: spack
14352 type(uppDia_type) , intent(in) :: subset
14353 type(transHerm_type) , intent(in) :: operation
14354 integer(IK) , intent(in) , optional :: doff
14355 integer(IKG) , intent(in) , optional :: init
14356 integer(IKG) , intent(in) :: source(:,:)
14357 integer(IKG) , allocatable :: destin(:)
14358 end function
14359#endif
14360
14361#if IK2_ENABLED
14362 PURE module function getMatCopy_LFP_RDP_UXD_THO_IK2(dpack, source, spack, subset, operation, doff, init) result(destin)
14363#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14364 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_THO_IK2
14365#endif
14366 use pm_kind, only: IKG => IK2
14367 type(lfpack_type) , intent(in) :: dpack
14368 type(rdpack_type) , intent(in) :: spack
14369 type(uppDia_type) , intent(in) :: subset
14370 type(transHerm_type) , intent(in) :: operation
14371 integer(IK) , intent(in) , optional :: doff
14372 integer(IKG) , intent(in) , optional :: init
14373 integer(IKG) , intent(in) :: source(:,:)
14374 integer(IKG) , allocatable :: destin(:)
14375 end function
14376#endif
14377
14378#if IK1_ENABLED
14379 PURE module function getMatCopy_LFP_RDP_UXD_THO_IK1(dpack, source, spack, subset, operation, doff, init) result(destin)
14380#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14381 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_THO_IK1
14382#endif
14383 use pm_kind, only: IKG => IK1
14384 type(lfpack_type) , intent(in) :: dpack
14385 type(rdpack_type) , intent(in) :: spack
14386 type(uppDia_type) , intent(in) :: subset
14387 type(transHerm_type) , intent(in) :: operation
14388 integer(IK) , intent(in) , optional :: doff
14389 integer(IKG) , intent(in) , optional :: init
14390 integer(IKG) , intent(in) :: source(:,:)
14391 integer(IKG) , allocatable :: destin(:)
14392 end function
14393#endif
14394
14395 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14396
14397#if LK5_ENABLED
14398 PURE module function getMatCopy_LFP_RDP_UXD_THO_LK5(dpack, source, spack, subset, operation, doff, init) result(destin)
14399#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14400 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_THO_LK5
14401#endif
14402 use pm_kind, only: LKG => LK5
14403 type(lfpack_type) , intent(in) :: dpack
14404 type(rdpack_type) , intent(in) :: spack
14405 type(uppDia_type) , intent(in) :: subset
14406 type(transHerm_type) , intent(in) :: operation
14407 integer(IK) , intent(in) , optional :: doff
14408 logical(LKG) , intent(in) , optional :: init
14409 logical(LKG) , intent(in) :: source(:,:)
14410 logical(LKG) , allocatable :: destin(:)
14411 end function
14412#endif
14413
14414#if LK4_ENABLED
14415 PURE module function getMatCopy_LFP_RDP_UXD_THO_LK4(dpack, source, spack, subset, operation, doff, init) result(destin)
14416#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14417 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_THO_LK4
14418#endif
14419 use pm_kind, only: LKG => LK4
14420 type(lfpack_type) , intent(in) :: dpack
14421 type(rdpack_type) , intent(in) :: spack
14422 type(uppDia_type) , intent(in) :: subset
14423 type(transHerm_type) , intent(in) :: operation
14424 integer(IK) , intent(in) , optional :: doff
14425 logical(LKG) , intent(in) , optional :: init
14426 logical(LKG) , intent(in) :: source(:,:)
14427 logical(LKG) , allocatable :: destin(:)
14428 end function
14429#endif
14430
14431#if LK3_ENABLED
14432 PURE module function getMatCopy_LFP_RDP_UXD_THO_LK3(dpack, source, spack, subset, operation, doff, init) result(destin)
14433#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14434 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_THO_LK3
14435#endif
14436 use pm_kind, only: LKG => LK3
14437 type(lfpack_type) , intent(in) :: dpack
14438 type(rdpack_type) , intent(in) :: spack
14439 type(uppDia_type) , intent(in) :: subset
14440 type(transHerm_type) , intent(in) :: operation
14441 integer(IK) , intent(in) , optional :: doff
14442 logical(LKG) , intent(in) , optional :: init
14443 logical(LKG) , intent(in) :: source(:,:)
14444 logical(LKG) , allocatable :: destin(:)
14445 end function
14446#endif
14447
14448#if LK2_ENABLED
14449 PURE module function getMatCopy_LFP_RDP_UXD_THO_LK2(dpack, source, spack, subset, operation, doff, init) result(destin)
14450#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14451 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_THO_LK2
14452#endif
14453 use pm_kind, only: LKG => LK2
14454 type(lfpack_type) , intent(in) :: dpack
14455 type(rdpack_type) , intent(in) :: spack
14456 type(uppDia_type) , intent(in) :: subset
14457 type(transHerm_type) , intent(in) :: operation
14458 integer(IK) , intent(in) , optional :: doff
14459 logical(LKG) , intent(in) , optional :: init
14460 logical(LKG) , intent(in) :: source(:,:)
14461 logical(LKG) , allocatable :: destin(:)
14462 end function
14463#endif
14464
14465#if LK1_ENABLED
14466 PURE module function getMatCopy_LFP_RDP_UXD_THO_LK1(dpack, source, spack, subset, operation, doff, init) result(destin)
14467#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14468 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_THO_LK1
14469#endif
14470 use pm_kind, only: LKG => LK1
14471 type(lfpack_type) , intent(in) :: dpack
14472 type(rdpack_type) , intent(in) :: spack
14473 type(uppDia_type) , intent(in) :: subset
14474 type(transHerm_type) , intent(in) :: operation
14475 integer(IK) , intent(in) , optional :: doff
14476 logical(LKG) , intent(in) , optional :: init
14477 logical(LKG) , intent(in) :: source(:,:)
14478 logical(LKG) , allocatable :: destin(:)
14479 end function
14480#endif
14481
14482 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14483
14484#if CK5_ENABLED
14485 PURE module function getMatCopy_LFP_RDP_UXD_THO_CK5(dpack, source, spack, subset, operation, doff, init) result(destin)
14486#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14487 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_THO_CK5
14488#endif
14489 use pm_kind, only: CKG => CK5
14490 type(lfpack_type) , intent(in) :: dpack
14491 type(rdpack_type) , intent(in) :: spack
14492 type(uppDia_type) , intent(in) :: subset
14493 type(transHerm_type) , intent(in) :: operation
14494 integer(IK) , intent(in) , optional :: doff
14495 complex(CKG) , intent(in) , optional :: init
14496 complex(CKG) , intent(in) :: source(:,:)
14497 complex(CKG) , allocatable :: destin(:)
14498 end function
14499#endif
14500
14501#if CK4_ENABLED
14502 PURE module function getMatCopy_LFP_RDP_UXD_THO_CK4(dpack, source, spack, subset, operation, doff, init) result(destin)
14503#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14504 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_THO_CK4
14505#endif
14506 use pm_kind, only: CKG => CK4
14507 type(lfpack_type) , intent(in) :: dpack
14508 type(rdpack_type) , intent(in) :: spack
14509 type(uppDia_type) , intent(in) :: subset
14510 type(transHerm_type) , intent(in) :: operation
14511 integer(IK) , intent(in) , optional :: doff
14512 complex(CKG) , intent(in) , optional :: init
14513 complex(CKG) , intent(in) :: source(:,:)
14514 complex(CKG) , allocatable :: destin(:)
14515 end function
14516#endif
14517
14518#if CK3_ENABLED
14519 PURE module function getMatCopy_LFP_RDP_UXD_THO_CK3(dpack, source, spack, subset, operation, doff, init) result(destin)
14520#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14521 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_THO_CK3
14522#endif
14523 use pm_kind, only: CKG => CK3
14524 type(lfpack_type) , intent(in) :: dpack
14525 type(rdpack_type) , intent(in) :: spack
14526 type(uppDia_type) , intent(in) :: subset
14527 type(transHerm_type) , intent(in) :: operation
14528 integer(IK) , intent(in) , optional :: doff
14529 complex(CKG) , intent(in) , optional :: init
14530 complex(CKG) , intent(in) :: source(:,:)
14531 complex(CKG) , allocatable :: destin(:)
14532 end function
14533#endif
14534
14535#if CK2_ENABLED
14536 PURE module function getMatCopy_LFP_RDP_UXD_THO_CK2(dpack, source, spack, subset, operation, doff, init) result(destin)
14537#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14538 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_THO_CK2
14539#endif
14540 use pm_kind, only: CKG => CK2
14541 type(lfpack_type) , intent(in) :: dpack
14542 type(rdpack_type) , intent(in) :: spack
14543 type(uppDia_type) , intent(in) :: subset
14544 type(transHerm_type) , intent(in) :: operation
14545 integer(IK) , intent(in) , optional :: doff
14546 complex(CKG) , intent(in) , optional :: init
14547 complex(CKG) , intent(in) :: source(:,:)
14548 complex(CKG) , allocatable :: destin(:)
14549 end function
14550#endif
14551
14552#if CK1_ENABLED
14553 PURE module function getMatCopy_LFP_RDP_UXD_THO_CK1(dpack, source, spack, subset, operation, doff, init) result(destin)
14554#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14555 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_THO_CK1
14556#endif
14557 use pm_kind, only: CKG => CK1
14558 type(lfpack_type) , intent(in) :: dpack
14559 type(rdpack_type) , intent(in) :: spack
14560 type(uppDia_type) , intent(in) :: subset
14561 type(transHerm_type) , intent(in) :: operation
14562 integer(IK) , intent(in) , optional :: doff
14563 complex(CKG) , intent(in) , optional :: init
14564 complex(CKG) , intent(in) :: source(:,:)
14565 complex(CKG) , allocatable :: destin(:)
14566 end function
14567#endif
14568
14569 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14570
14571#if RK5_ENABLED
14572 PURE module function getMatCopy_LFP_RDP_UXD_THO_RK5(dpack, source, spack, subset, operation, doff, init) result(destin)
14573#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14574 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_THO_RK5
14575#endif
14576 use pm_kind, only: RKG => RK5
14577 type(lfpack_type) , intent(in) :: dpack
14578 type(rdpack_type) , intent(in) :: spack
14579 type(uppDia_type) , intent(in) :: subset
14580 type(transHerm_type) , intent(in) :: operation
14581 integer(IK) , intent(in) , optional :: doff
14582 real(RKG) , intent(in) , optional :: init
14583 real(RKG) , intent(in) :: source(:,:)
14584 real(RKG) , allocatable :: destin(:)
14585 end function
14586#endif
14587
14588#if RK4_ENABLED
14589 PURE module function getMatCopy_LFP_RDP_UXD_THO_RK4(dpack, source, spack, subset, operation, doff, init) result(destin)
14590#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14591 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_THO_RK4
14592#endif
14593 use pm_kind, only: RKG => RK4
14594 type(lfpack_type) , intent(in) :: dpack
14595 type(rdpack_type) , intent(in) :: spack
14596 type(uppDia_type) , intent(in) :: subset
14597 type(transHerm_type) , intent(in) :: operation
14598 integer(IK) , intent(in) , optional :: doff
14599 real(RKG) , intent(in) , optional :: init
14600 real(RKG) , intent(in) :: source(:,:)
14601 real(RKG) , allocatable :: destin(:)
14602 end function
14603#endif
14604
14605#if RK3_ENABLED
14606 PURE module function getMatCopy_LFP_RDP_UXD_THO_RK3(dpack, source, spack, subset, operation, doff, init) result(destin)
14607#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14608 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_THO_RK3
14609#endif
14610 use pm_kind, only: RKG => RK3
14611 type(lfpack_type) , intent(in) :: dpack
14612 type(rdpack_type) , intent(in) :: spack
14613 type(uppDia_type) , intent(in) :: subset
14614 type(transHerm_type) , intent(in) :: operation
14615 integer(IK) , intent(in) , optional :: doff
14616 real(RKG) , intent(in) , optional :: init
14617 real(RKG) , intent(in) :: source(:,:)
14618 real(RKG) , allocatable :: destin(:)
14619 end function
14620#endif
14621
14622#if RK2_ENABLED
14623 PURE module function getMatCopy_LFP_RDP_UXD_THO_RK2(dpack, source, spack, subset, operation, doff, init) result(destin)
14624#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14625 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_THO_RK2
14626#endif
14627 use pm_kind, only: RKG => RK2
14628 type(lfpack_type) , intent(in) :: dpack
14629 type(rdpack_type) , intent(in) :: spack
14630 type(uppDia_type) , intent(in) :: subset
14631 type(transHerm_type) , intent(in) :: operation
14632 integer(IK) , intent(in) , optional :: doff
14633 real(RKG) , intent(in) , optional :: init
14634 real(RKG) , intent(in) :: source(:,:)
14635 real(RKG) , allocatable :: destin(:)
14636 end function
14637#endif
14638
14639#if RK1_ENABLED
14640 PURE module function getMatCopy_LFP_RDP_UXD_THO_RK1(dpack, source, spack, subset, operation, doff, init) result(destin)
14641#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14642 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_UXD_THO_RK1
14643#endif
14644 use pm_kind, only: RKG => RK1
14645 type(lfpack_type) , intent(in) :: dpack
14646 type(rdpack_type) , intent(in) :: spack
14647 type(uppDia_type) , intent(in) :: subset
14648 type(transHerm_type) , intent(in) :: operation
14649 integer(IK) , intent(in) , optional :: doff
14650 real(RKG) , intent(in) , optional :: init
14651 real(RKG) , intent(in) :: source(:,:)
14652 real(RKG) , allocatable :: destin(:)
14653 end function
14654#endif
14655
14656 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14657
14658 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14659 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14660 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14661
14662 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14663 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14664 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14665
14666 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14667
14668#if SK5_ENABLED
14669 PURE module function getMatCopy_LFP_RDP_XLD_AIO_SK5(dpack, source, spack, subset, doff, init) result(destin)
14670#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14671 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_AIO_SK5
14672#endif
14673 use pm_kind, only: SKG => SK5
14674 type(lfpack_type) , intent(in) :: dpack
14675 type(rdpack_type) , intent(in) :: spack
14676 type(lowDia_type) , intent(in) :: subset
14677 integer(IK) , intent(in) , optional :: doff
14678 character(*,SKG) , intent(in) , optional :: init
14679 character(*,SKG) , intent(in) :: source(:,:)
14680 character(len(source,IK),SKG) , allocatable :: destin(:)
14681 end function
14682#endif
14683
14684#if SK4_ENABLED
14685 PURE module function getMatCopy_LFP_RDP_XLD_AIO_SK4(dpack, source, spack, subset, doff, init) result(destin)
14686#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14687 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_AIO_SK4
14688#endif
14689 use pm_kind, only: SKG => SK4
14690 type(lfpack_type) , intent(in) :: dpack
14691 type(rdpack_type) , intent(in) :: spack
14692 type(lowDia_type) , intent(in) :: subset
14693 integer(IK) , intent(in) , optional :: doff
14694 character(*,SKG) , intent(in) , optional :: init
14695 character(*,SKG) , intent(in) :: source(:,:)
14696 character(len(source,IK),SKG) , allocatable :: destin(:)
14697 end function
14698#endif
14699
14700#if SK3_ENABLED
14701 PURE module function getMatCopy_LFP_RDP_XLD_AIO_SK3(dpack, source, spack, subset, doff, init) result(destin)
14702#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14703 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_AIO_SK3
14704#endif
14705 use pm_kind, only: SKG => SK3
14706 type(lfpack_type) , intent(in) :: dpack
14707 type(rdpack_type) , intent(in) :: spack
14708 type(lowDia_type) , intent(in) :: subset
14709 integer(IK) , intent(in) , optional :: doff
14710 character(*,SKG) , intent(in) , optional :: init
14711 character(*,SKG) , intent(in) :: source(:,:)
14712 character(len(source,IK),SKG) , allocatable :: destin(:)
14713 end function
14714#endif
14715
14716#if SK2_ENABLED
14717 PURE module function getMatCopy_LFP_RDP_XLD_AIO_SK2(dpack, source, spack, subset, doff, init) result(destin)
14718#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14719 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_AIO_SK2
14720#endif
14721 use pm_kind, only: SKG => SK2
14722 type(lfpack_type) , intent(in) :: dpack
14723 type(rdpack_type) , intent(in) :: spack
14724 type(lowDia_type) , intent(in) :: subset
14725 integer(IK) , intent(in) , optional :: doff
14726 character(*,SKG) , intent(in) , optional :: init
14727 character(*,SKG) , intent(in) :: source(:,:)
14728 character(len(source,IK),SKG) , allocatable :: destin(:)
14729 end function
14730#endif
14731
14732#if SK1_ENABLED
14733 PURE module function getMatCopy_LFP_RDP_XLD_AIO_SK1(dpack, source, spack, subset, doff, init) result(destin)
14734#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14735 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_AIO_SK1
14736#endif
14737 use pm_kind, only: SKG => SK1
14738 type(lfpack_type) , intent(in) :: dpack
14739 type(rdpack_type) , intent(in) :: spack
14740 type(lowDia_type) , intent(in) :: subset
14741 integer(IK) , intent(in) , optional :: doff
14742 character(*,SKG) , intent(in) , optional :: init
14743 character(*,SKG) , intent(in) :: source(:,:)
14744 character(len(source,IK),SKG) , allocatable :: destin(:)
14745 end function
14746#endif
14747
14748 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14749
14750#if IK5_ENABLED
14751 PURE module function getMatCopy_LFP_RDP_XLD_AIO_IK5(dpack, source, spack, subset, doff, init) result(destin)
14752#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14753 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_AIO_IK5
14754#endif
14755 use pm_kind, only: IKG => IK5
14756 type(lfpack_type) , intent(in) :: dpack
14757 type(rdpack_type) , intent(in) :: spack
14758 type(lowDia_type) , intent(in) :: subset
14759 integer(IK) , intent(in) , optional :: doff
14760 integer(IKG) , intent(in) , optional :: init
14761 integer(IKG) , intent(in) :: source(:,:)
14762 integer(IKG) , allocatable :: destin(:)
14763 end function
14764#endif
14765
14766#if IK4_ENABLED
14767 PURE module function getMatCopy_LFP_RDP_XLD_AIO_IK4(dpack, source, spack, subset, doff, init) result(destin)
14768#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14769 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_AIO_IK4
14770#endif
14771 use pm_kind, only: IKG => IK4
14772 type(lfpack_type) , intent(in) :: dpack
14773 type(rdpack_type) , intent(in) :: spack
14774 type(lowDia_type) , intent(in) :: subset
14775 integer(IK) , intent(in) , optional :: doff
14776 integer(IKG) , intent(in) , optional :: init
14777 integer(IKG) , intent(in) :: source(:,:)
14778 integer(IKG) , allocatable :: destin(:)
14779 end function
14780#endif
14781
14782#if IK3_ENABLED
14783 PURE module function getMatCopy_LFP_RDP_XLD_AIO_IK3(dpack, source, spack, subset, doff, init) result(destin)
14784#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14785 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_AIO_IK3
14786#endif
14787 use pm_kind, only: IKG => IK3
14788 type(lfpack_type) , intent(in) :: dpack
14789 type(rdpack_type) , intent(in) :: spack
14790 type(lowDia_type) , intent(in) :: subset
14791 integer(IK) , intent(in) , optional :: doff
14792 integer(IKG) , intent(in) , optional :: init
14793 integer(IKG) , intent(in) :: source(:,:)
14794 integer(IKG) , allocatable :: destin(:)
14795 end function
14796#endif
14797
14798#if IK2_ENABLED
14799 PURE module function getMatCopy_LFP_RDP_XLD_AIO_IK2(dpack, source, spack, subset, doff, init) result(destin)
14800#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14801 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_AIO_IK2
14802#endif
14803 use pm_kind, only: IKG => IK2
14804 type(lfpack_type) , intent(in) :: dpack
14805 type(rdpack_type) , intent(in) :: spack
14806 type(lowDia_type) , intent(in) :: subset
14807 integer(IK) , intent(in) , optional :: doff
14808 integer(IKG) , intent(in) , optional :: init
14809 integer(IKG) , intent(in) :: source(:,:)
14810 integer(IKG) , allocatable :: destin(:)
14811 end function
14812#endif
14813
14814#if IK1_ENABLED
14815 PURE module function getMatCopy_LFP_RDP_XLD_AIO_IK1(dpack, source, spack, subset, doff, init) result(destin)
14816#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14817 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_AIO_IK1
14818#endif
14819 use pm_kind, only: IKG => IK1
14820 type(lfpack_type) , intent(in) :: dpack
14821 type(rdpack_type) , intent(in) :: spack
14822 type(lowDia_type) , intent(in) :: subset
14823 integer(IK) , intent(in) , optional :: doff
14824 integer(IKG) , intent(in) , optional :: init
14825 integer(IKG) , intent(in) :: source(:,:)
14826 integer(IKG) , allocatable :: destin(:)
14827 end function
14828#endif
14829
14830 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14831
14832#if LK5_ENABLED
14833 PURE module function getMatCopy_LFP_RDP_XLD_AIO_LK5(dpack, source, spack, subset, doff, init) result(destin)
14834#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14835 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_AIO_LK5
14836#endif
14837 use pm_kind, only: LKG => LK5
14838 type(lfpack_type) , intent(in) :: dpack
14839 type(rdpack_type) , intent(in) :: spack
14840 type(lowDia_type) , intent(in) :: subset
14841 integer(IK) , intent(in) , optional :: doff
14842 logical(LKG) , intent(in) , optional :: init
14843 logical(LKG) , intent(in) :: source(:,:)
14844 logical(LKG) , allocatable :: destin(:)
14845 end function
14846#endif
14847
14848#if LK4_ENABLED
14849 PURE module function getMatCopy_LFP_RDP_XLD_AIO_LK4(dpack, source, spack, subset, doff, init) result(destin)
14850#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14851 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_AIO_LK4
14852#endif
14853 use pm_kind, only: LKG => LK4
14854 type(lfpack_type) , intent(in) :: dpack
14855 type(rdpack_type) , intent(in) :: spack
14856 type(lowDia_type) , intent(in) :: subset
14857 integer(IK) , intent(in) , optional :: doff
14858 logical(LKG) , intent(in) , optional :: init
14859 logical(LKG) , intent(in) :: source(:,:)
14860 logical(LKG) , allocatable :: destin(:)
14861 end function
14862#endif
14863
14864#if LK3_ENABLED
14865 PURE module function getMatCopy_LFP_RDP_XLD_AIO_LK3(dpack, source, spack, subset, doff, init) result(destin)
14866#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14867 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_AIO_LK3
14868#endif
14869 use pm_kind, only: LKG => LK3
14870 type(lfpack_type) , intent(in) :: dpack
14871 type(rdpack_type) , intent(in) :: spack
14872 type(lowDia_type) , intent(in) :: subset
14873 integer(IK) , intent(in) , optional :: doff
14874 logical(LKG) , intent(in) , optional :: init
14875 logical(LKG) , intent(in) :: source(:,:)
14876 logical(LKG) , allocatable :: destin(:)
14877 end function
14878#endif
14879
14880#if LK2_ENABLED
14881 PURE module function getMatCopy_LFP_RDP_XLD_AIO_LK2(dpack, source, spack, subset, doff, init) result(destin)
14882#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14883 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_AIO_LK2
14884#endif
14885 use pm_kind, only: LKG => LK2
14886 type(lfpack_type) , intent(in) :: dpack
14887 type(rdpack_type) , intent(in) :: spack
14888 type(lowDia_type) , intent(in) :: subset
14889 integer(IK) , intent(in) , optional :: doff
14890 logical(LKG) , intent(in) , optional :: init
14891 logical(LKG) , intent(in) :: source(:,:)
14892 logical(LKG) , allocatable :: destin(:)
14893 end function
14894#endif
14895
14896#if LK1_ENABLED
14897 PURE module function getMatCopy_LFP_RDP_XLD_AIO_LK1(dpack, source, spack, subset, doff, init) result(destin)
14898#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14899 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_AIO_LK1
14900#endif
14901 use pm_kind, only: LKG => LK1
14902 type(lfpack_type) , intent(in) :: dpack
14903 type(rdpack_type) , intent(in) :: spack
14904 type(lowDia_type) , intent(in) :: subset
14905 integer(IK) , intent(in) , optional :: doff
14906 logical(LKG) , intent(in) , optional :: init
14907 logical(LKG) , intent(in) :: source(:,:)
14908 logical(LKG) , allocatable :: destin(:)
14909 end function
14910#endif
14911
14912 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14913
14914#if CK5_ENABLED
14915 PURE module function getMatCopy_LFP_RDP_XLD_AIO_CK5(dpack, source, spack, subset, doff, init) result(destin)
14916#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14917 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_AIO_CK5
14918#endif
14919 use pm_kind, only: CKG => CK5
14920 type(lfpack_type) , intent(in) :: dpack
14921 type(rdpack_type) , intent(in) :: spack
14922 type(lowDia_type) , intent(in) :: subset
14923 integer(IK) , intent(in) , optional :: doff
14924 complex(CKG) , intent(in) , optional :: init
14925 complex(CKG) , intent(in) :: source(:,:)
14926 complex(CKG) , allocatable :: destin(:)
14927 end function
14928#endif
14929
14930#if CK4_ENABLED
14931 PURE module function getMatCopy_LFP_RDP_XLD_AIO_CK4(dpack, source, spack, subset, doff, init) result(destin)
14932#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14933 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_AIO_CK4
14934#endif
14935 use pm_kind, only: CKG => CK4
14936 type(lfpack_type) , intent(in) :: dpack
14937 type(rdpack_type) , intent(in) :: spack
14938 type(lowDia_type) , intent(in) :: subset
14939 integer(IK) , intent(in) , optional :: doff
14940 complex(CKG) , intent(in) , optional :: init
14941 complex(CKG) , intent(in) :: source(:,:)
14942 complex(CKG) , allocatable :: destin(:)
14943 end function
14944#endif
14945
14946#if CK3_ENABLED
14947 PURE module function getMatCopy_LFP_RDP_XLD_AIO_CK3(dpack, source, spack, subset, doff, init) result(destin)
14948#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14949 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_AIO_CK3
14950#endif
14951 use pm_kind, only: CKG => CK3
14952 type(lfpack_type) , intent(in) :: dpack
14953 type(rdpack_type) , intent(in) :: spack
14954 type(lowDia_type) , intent(in) :: subset
14955 integer(IK) , intent(in) , optional :: doff
14956 complex(CKG) , intent(in) , optional :: init
14957 complex(CKG) , intent(in) :: source(:,:)
14958 complex(CKG) , allocatable :: destin(:)
14959 end function
14960#endif
14961
14962#if CK2_ENABLED
14963 PURE module function getMatCopy_LFP_RDP_XLD_AIO_CK2(dpack, source, spack, subset, doff, init) result(destin)
14964#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14965 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_AIO_CK2
14966#endif
14967 use pm_kind, only: CKG => CK2
14968 type(lfpack_type) , intent(in) :: dpack
14969 type(rdpack_type) , intent(in) :: spack
14970 type(lowDia_type) , intent(in) :: subset
14971 integer(IK) , intent(in) , optional :: doff
14972 complex(CKG) , intent(in) , optional :: init
14973 complex(CKG) , intent(in) :: source(:,:)
14974 complex(CKG) , allocatable :: destin(:)
14975 end function
14976#endif
14977
14978#if CK1_ENABLED
14979 PURE module function getMatCopy_LFP_RDP_XLD_AIO_CK1(dpack, source, spack, subset, doff, init) result(destin)
14980#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14981 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_AIO_CK1
14982#endif
14983 use pm_kind, only: CKG => CK1
14984 type(lfpack_type) , intent(in) :: dpack
14985 type(rdpack_type) , intent(in) :: spack
14986 type(lowDia_type) , intent(in) :: subset
14987 integer(IK) , intent(in) , optional :: doff
14988 complex(CKG) , intent(in) , optional :: init
14989 complex(CKG) , intent(in) :: source(:,:)
14990 complex(CKG) , allocatable :: destin(:)
14991 end function
14992#endif
14993
14994 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14995
14996#if RK5_ENABLED
14997 PURE module function getMatCopy_LFP_RDP_XLD_AIO_RK5(dpack, source, spack, subset, doff, init) result(destin)
14998#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14999 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_AIO_RK5
15000#endif
15001 use pm_kind, only: RKG => RK5
15002 type(lfpack_type) , intent(in) :: dpack
15003 type(rdpack_type) , intent(in) :: spack
15004 type(lowDia_type) , intent(in) :: subset
15005 integer(IK) , intent(in) , optional :: doff
15006 real(RKG) , intent(in) , optional :: init
15007 real(RKG) , intent(in) :: source(:,:)
15008 real(RKG) , allocatable :: destin(:)
15009 end function
15010#endif
15011
15012#if RK4_ENABLED
15013 PURE module function getMatCopy_LFP_RDP_XLD_AIO_RK4(dpack, source, spack, subset, doff, init) result(destin)
15014#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15015 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_AIO_RK4
15016#endif
15017 use pm_kind, only: RKG => RK4
15018 type(lfpack_type) , intent(in) :: dpack
15019 type(rdpack_type) , intent(in) :: spack
15020 type(lowDia_type) , intent(in) :: subset
15021 integer(IK) , intent(in) , optional :: doff
15022 real(RKG) , intent(in) , optional :: init
15023 real(RKG) , intent(in) :: source(:,:)
15024 real(RKG) , allocatable :: destin(:)
15025 end function
15026#endif
15027
15028#if RK3_ENABLED
15029 PURE module function getMatCopy_LFP_RDP_XLD_AIO_RK3(dpack, source, spack, subset, doff, init) result(destin)
15030#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15031 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_AIO_RK3
15032#endif
15033 use pm_kind, only: RKG => RK3
15034 type(lfpack_type) , intent(in) :: dpack
15035 type(rdpack_type) , intent(in) :: spack
15036 type(lowDia_type) , intent(in) :: subset
15037 integer(IK) , intent(in) , optional :: doff
15038 real(RKG) , intent(in) , optional :: init
15039 real(RKG) , intent(in) :: source(:,:)
15040 real(RKG) , allocatable :: destin(:)
15041 end function
15042#endif
15043
15044#if RK2_ENABLED
15045 PURE module function getMatCopy_LFP_RDP_XLD_AIO_RK2(dpack, source, spack, subset, doff, init) result(destin)
15046#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15047 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_AIO_RK2
15048#endif
15049 use pm_kind, only: RKG => RK2
15050 type(lfpack_type) , intent(in) :: dpack
15051 type(rdpack_type) , intent(in) :: spack
15052 type(lowDia_type) , intent(in) :: subset
15053 integer(IK) , intent(in) , optional :: doff
15054 real(RKG) , intent(in) , optional :: init
15055 real(RKG) , intent(in) :: source(:,:)
15056 real(RKG) , allocatable :: destin(:)
15057 end function
15058#endif
15059
15060#if RK1_ENABLED
15061 PURE module function getMatCopy_LFP_RDP_XLD_AIO_RK1(dpack, source, spack, subset, doff, init) result(destin)
15062#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15063 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_AIO_RK1
15064#endif
15065 use pm_kind, only: RKG => RK1
15066 type(lfpack_type) , intent(in) :: dpack
15067 type(rdpack_type) , intent(in) :: spack
15068 type(lowDia_type) , intent(in) :: subset
15069 integer(IK) , intent(in) , optional :: doff
15070 real(RKG) , intent(in) , optional :: init
15071 real(RKG) , intent(in) :: source(:,:)
15072 real(RKG) , allocatable :: destin(:)
15073 end function
15074#endif
15075
15076 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15077
15078 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15079 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15080 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15081
15082 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15083
15084#if SK5_ENABLED
15085 PURE module function getMatCopy_LFP_RDP_XLD_TSO_SK5(dpack, source, spack, subset, operation, doff, init) result(destin)
15086#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15087 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_TSO_SK5
15088#endif
15089 use pm_kind, only: SKG => SK5
15090 type(lfpack_type) , intent(in) :: dpack
15091 type(rdpack_type) , intent(in) :: spack
15092 type(lowDia_type) , intent(in) :: subset
15093 type(transSymm_type) , intent(in) :: operation
15094 integer(IK) , intent(in) , optional :: doff
15095 character(*,SKG) , intent(in) , optional :: init
15096 character(*,SKG) , intent(in) :: source(:,:)
15097 character(len(source,IK),SKG) , allocatable :: destin(:)
15098 end function
15099#endif
15100
15101#if SK4_ENABLED
15102 PURE module function getMatCopy_LFP_RDP_XLD_TSO_SK4(dpack, source, spack, subset, operation, doff, init) result(destin)
15103#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15104 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_TSO_SK4
15105#endif
15106 use pm_kind, only: SKG => SK4
15107 type(lfpack_type) , intent(in) :: dpack
15108 type(rdpack_type) , intent(in) :: spack
15109 type(lowDia_type) , intent(in) :: subset
15110 type(transSymm_type) , intent(in) :: operation
15111 integer(IK) , intent(in) , optional :: doff
15112 character(*,SKG) , intent(in) , optional :: init
15113 character(*,SKG) , intent(in) :: source(:,:)
15114 character(len(source,IK),SKG) , allocatable :: destin(:)
15115 end function
15116#endif
15117
15118#if SK3_ENABLED
15119 PURE module function getMatCopy_LFP_RDP_XLD_TSO_SK3(dpack, source, spack, subset, operation, doff, init) result(destin)
15120#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15121 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_TSO_SK3
15122#endif
15123 use pm_kind, only: SKG => SK3
15124 type(lfpack_type) , intent(in) :: dpack
15125 type(rdpack_type) , intent(in) :: spack
15126 type(lowDia_type) , intent(in) :: subset
15127 type(transSymm_type) , intent(in) :: operation
15128 integer(IK) , intent(in) , optional :: doff
15129 character(*,SKG) , intent(in) , optional :: init
15130 character(*,SKG) , intent(in) :: source(:,:)
15131 character(len(source,IK),SKG) , allocatable :: destin(:)
15132 end function
15133#endif
15134
15135#if SK2_ENABLED
15136 PURE module function getMatCopy_LFP_RDP_XLD_TSO_SK2(dpack, source, spack, subset, operation, doff, init) result(destin)
15137#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15138 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_TSO_SK2
15139#endif
15140 use pm_kind, only: SKG => SK2
15141 type(lfpack_type) , intent(in) :: dpack
15142 type(rdpack_type) , intent(in) :: spack
15143 type(lowDia_type) , intent(in) :: subset
15144 type(transSymm_type) , intent(in) :: operation
15145 integer(IK) , intent(in) , optional :: doff
15146 character(*,SKG) , intent(in) , optional :: init
15147 character(*,SKG) , intent(in) :: source(:,:)
15148 character(len(source,IK),SKG) , allocatable :: destin(:)
15149 end function
15150#endif
15151
15152#if SK1_ENABLED
15153 PURE module function getMatCopy_LFP_RDP_XLD_TSO_SK1(dpack, source, spack, subset, operation, doff, init) result(destin)
15154#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15155 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_TSO_SK1
15156#endif
15157 use pm_kind, only: SKG => SK1
15158 type(lfpack_type) , intent(in) :: dpack
15159 type(rdpack_type) , intent(in) :: spack
15160 type(lowDia_type) , intent(in) :: subset
15161 type(transSymm_type) , intent(in) :: operation
15162 integer(IK) , intent(in) , optional :: doff
15163 character(*,SKG) , intent(in) , optional :: init
15164 character(*,SKG) , intent(in) :: source(:,:)
15165 character(len(source,IK),SKG) , allocatable :: destin(:)
15166 end function
15167#endif
15168
15169 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15170
15171#if IK5_ENABLED
15172 PURE module function getMatCopy_LFP_RDP_XLD_TSO_IK5(dpack, source, spack, subset, operation, doff, init) result(destin)
15173#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15174 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_TSO_IK5
15175#endif
15176 use pm_kind, only: IKG => IK5
15177 type(lfpack_type) , intent(in) :: dpack
15178 type(rdpack_type) , intent(in) :: spack
15179 type(lowDia_type) , intent(in) :: subset
15180 type(transSymm_type) , intent(in) :: operation
15181 integer(IK) , intent(in) , optional :: doff
15182 integer(IKG) , intent(in) , optional :: init
15183 integer(IKG) , intent(in) :: source(:,:)
15184 integer(IKG) , allocatable :: destin(:)
15185 end function
15186#endif
15187
15188#if IK4_ENABLED
15189 PURE module function getMatCopy_LFP_RDP_XLD_TSO_IK4(dpack, source, spack, subset, operation, doff, init) result(destin)
15190#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15191 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_TSO_IK4
15192#endif
15193 use pm_kind, only: IKG => IK4
15194 type(lfpack_type) , intent(in) :: dpack
15195 type(rdpack_type) , intent(in) :: spack
15196 type(lowDia_type) , intent(in) :: subset
15197 type(transSymm_type) , intent(in) :: operation
15198 integer(IK) , intent(in) , optional :: doff
15199 integer(IKG) , intent(in) , optional :: init
15200 integer(IKG) , intent(in) :: source(:,:)
15201 integer(IKG) , allocatable :: destin(:)
15202 end function
15203#endif
15204
15205#if IK3_ENABLED
15206 PURE module function getMatCopy_LFP_RDP_XLD_TSO_IK3(dpack, source, spack, subset, operation, doff, init) result(destin)
15207#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15208 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_TSO_IK3
15209#endif
15210 use pm_kind, only: IKG => IK3
15211 type(lfpack_type) , intent(in) :: dpack
15212 type(rdpack_type) , intent(in) :: spack
15213 type(lowDia_type) , intent(in) :: subset
15214 type(transSymm_type) , intent(in) :: operation
15215 integer(IK) , intent(in) , optional :: doff
15216 integer(IKG) , intent(in) , optional :: init
15217 integer(IKG) , intent(in) :: source(:,:)
15218 integer(IKG) , allocatable :: destin(:)
15219 end function
15220#endif
15221
15222#if IK2_ENABLED
15223 PURE module function getMatCopy_LFP_RDP_XLD_TSO_IK2(dpack, source, spack, subset, operation, doff, init) result(destin)
15224#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15225 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_TSO_IK2
15226#endif
15227 use pm_kind, only: IKG => IK2
15228 type(lfpack_type) , intent(in) :: dpack
15229 type(rdpack_type) , intent(in) :: spack
15230 type(lowDia_type) , intent(in) :: subset
15231 type(transSymm_type) , intent(in) :: operation
15232 integer(IK) , intent(in) , optional :: doff
15233 integer(IKG) , intent(in) , optional :: init
15234 integer(IKG) , intent(in) :: source(:,:)
15235 integer(IKG) , allocatable :: destin(:)
15236 end function
15237#endif
15238
15239#if IK1_ENABLED
15240 PURE module function getMatCopy_LFP_RDP_XLD_TSO_IK1(dpack, source, spack, subset, operation, doff, init) result(destin)
15241#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15242 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_TSO_IK1
15243#endif
15244 use pm_kind, only: IKG => IK1
15245 type(lfpack_type) , intent(in) :: dpack
15246 type(rdpack_type) , intent(in) :: spack
15247 type(lowDia_type) , intent(in) :: subset
15248 type(transSymm_type) , intent(in) :: operation
15249 integer(IK) , intent(in) , optional :: doff
15250 integer(IKG) , intent(in) , optional :: init
15251 integer(IKG) , intent(in) :: source(:,:)
15252 integer(IKG) , allocatable :: destin(:)
15253 end function
15254#endif
15255
15256 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15257
15258#if LK5_ENABLED
15259 PURE module function getMatCopy_LFP_RDP_XLD_TSO_LK5(dpack, source, spack, subset, operation, doff, init) result(destin)
15260#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15261 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_TSO_LK5
15262#endif
15263 use pm_kind, only: LKG => LK5
15264 type(lfpack_type) , intent(in) :: dpack
15265 type(rdpack_type) , intent(in) :: spack
15266 type(lowDia_type) , intent(in) :: subset
15267 type(transSymm_type) , intent(in) :: operation
15268 integer(IK) , intent(in) , optional :: doff
15269 logical(LKG) , intent(in) , optional :: init
15270 logical(LKG) , intent(in) :: source(:,:)
15271 logical(LKG) , allocatable :: destin(:)
15272 end function
15273#endif
15274
15275#if LK4_ENABLED
15276 PURE module function getMatCopy_LFP_RDP_XLD_TSO_LK4(dpack, source, spack, subset, operation, doff, init) result(destin)
15277#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15278 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_TSO_LK4
15279#endif
15280 use pm_kind, only: LKG => LK4
15281 type(lfpack_type) , intent(in) :: dpack
15282 type(rdpack_type) , intent(in) :: spack
15283 type(lowDia_type) , intent(in) :: subset
15284 type(transSymm_type) , intent(in) :: operation
15285 integer(IK) , intent(in) , optional :: doff
15286 logical(LKG) , intent(in) , optional :: init
15287 logical(LKG) , intent(in) :: source(:,:)
15288 logical(LKG) , allocatable :: destin(:)
15289 end function
15290#endif
15291
15292#if LK3_ENABLED
15293 PURE module function getMatCopy_LFP_RDP_XLD_TSO_LK3(dpack, source, spack, subset, operation, doff, init) result(destin)
15294#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15295 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_TSO_LK3
15296#endif
15297 use pm_kind, only: LKG => LK3
15298 type(lfpack_type) , intent(in) :: dpack
15299 type(rdpack_type) , intent(in) :: spack
15300 type(lowDia_type) , intent(in) :: subset
15301 type(transSymm_type) , intent(in) :: operation
15302 integer(IK) , intent(in) , optional :: doff
15303 logical(LKG) , intent(in) , optional :: init
15304 logical(LKG) , intent(in) :: source(:,:)
15305 logical(LKG) , allocatable :: destin(:)
15306 end function
15307#endif
15308
15309#if LK2_ENABLED
15310 PURE module function getMatCopy_LFP_RDP_XLD_TSO_LK2(dpack, source, spack, subset, operation, doff, init) result(destin)
15311#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15312 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_TSO_LK2
15313#endif
15314 use pm_kind, only: LKG => LK2
15315 type(lfpack_type) , intent(in) :: dpack
15316 type(rdpack_type) , intent(in) :: spack
15317 type(lowDia_type) , intent(in) :: subset
15318 type(transSymm_type) , intent(in) :: operation
15319 integer(IK) , intent(in) , optional :: doff
15320 logical(LKG) , intent(in) , optional :: init
15321 logical(LKG) , intent(in) :: source(:,:)
15322 logical(LKG) , allocatable :: destin(:)
15323 end function
15324#endif
15325
15326#if LK1_ENABLED
15327 PURE module function getMatCopy_LFP_RDP_XLD_TSO_LK1(dpack, source, spack, subset, operation, doff, init) result(destin)
15328#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15329 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_TSO_LK1
15330#endif
15331 use pm_kind, only: LKG => LK1
15332 type(lfpack_type) , intent(in) :: dpack
15333 type(rdpack_type) , intent(in) :: spack
15334 type(lowDia_type) , intent(in) :: subset
15335 type(transSymm_type) , intent(in) :: operation
15336 integer(IK) , intent(in) , optional :: doff
15337 logical(LKG) , intent(in) , optional :: init
15338 logical(LKG) , intent(in) :: source(:,:)
15339 logical(LKG) , allocatable :: destin(:)
15340 end function
15341#endif
15342
15343 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15344
15345#if CK5_ENABLED
15346 PURE module function getMatCopy_LFP_RDP_XLD_TSO_CK5(dpack, source, spack, subset, operation, doff, init) result(destin)
15347#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15348 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_TSO_CK5
15349#endif
15350 use pm_kind, only: CKG => CK5
15351 type(lfpack_type) , intent(in) :: dpack
15352 type(rdpack_type) , intent(in) :: spack
15353 type(lowDia_type) , intent(in) :: subset
15354 type(transSymm_type) , intent(in) :: operation
15355 integer(IK) , intent(in) , optional :: doff
15356 complex(CKG) , intent(in) , optional :: init
15357 complex(CKG) , intent(in) :: source(:,:)
15358 complex(CKG) , allocatable :: destin(:)
15359 end function
15360#endif
15361
15362#if CK4_ENABLED
15363 PURE module function getMatCopy_LFP_RDP_XLD_TSO_CK4(dpack, source, spack, subset, operation, doff, init) result(destin)
15364#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15365 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_TSO_CK4
15366#endif
15367 use pm_kind, only: CKG => CK4
15368 type(lfpack_type) , intent(in) :: dpack
15369 type(rdpack_type) , intent(in) :: spack
15370 type(lowDia_type) , intent(in) :: subset
15371 type(transSymm_type) , intent(in) :: operation
15372 integer(IK) , intent(in) , optional :: doff
15373 complex(CKG) , intent(in) , optional :: init
15374 complex(CKG) , intent(in) :: source(:,:)
15375 complex(CKG) , allocatable :: destin(:)
15376 end function
15377#endif
15378
15379#if CK3_ENABLED
15380 PURE module function getMatCopy_LFP_RDP_XLD_TSO_CK3(dpack, source, spack, subset, operation, doff, init) result(destin)
15381#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15382 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_TSO_CK3
15383#endif
15384 use pm_kind, only: CKG => CK3
15385 type(lfpack_type) , intent(in) :: dpack
15386 type(rdpack_type) , intent(in) :: spack
15387 type(lowDia_type) , intent(in) :: subset
15388 type(transSymm_type) , intent(in) :: operation
15389 integer(IK) , intent(in) , optional :: doff
15390 complex(CKG) , intent(in) , optional :: init
15391 complex(CKG) , intent(in) :: source(:,:)
15392 complex(CKG) , allocatable :: destin(:)
15393 end function
15394#endif
15395
15396#if CK2_ENABLED
15397 PURE module function getMatCopy_LFP_RDP_XLD_TSO_CK2(dpack, source, spack, subset, operation, doff, init) result(destin)
15398#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15399 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_TSO_CK2
15400#endif
15401 use pm_kind, only: CKG => CK2
15402 type(lfpack_type) , intent(in) :: dpack
15403 type(rdpack_type) , intent(in) :: spack
15404 type(lowDia_type) , intent(in) :: subset
15405 type(transSymm_type) , intent(in) :: operation
15406 integer(IK) , intent(in) , optional :: doff
15407 complex(CKG) , intent(in) , optional :: init
15408 complex(CKG) , intent(in) :: source(:,:)
15409 complex(CKG) , allocatable :: destin(:)
15410 end function
15411#endif
15412
15413#if CK1_ENABLED
15414 PURE module function getMatCopy_LFP_RDP_XLD_TSO_CK1(dpack, source, spack, subset, operation, doff, init) result(destin)
15415#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15416 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_TSO_CK1
15417#endif
15418 use pm_kind, only: CKG => CK1
15419 type(lfpack_type) , intent(in) :: dpack
15420 type(rdpack_type) , intent(in) :: spack
15421 type(lowDia_type) , intent(in) :: subset
15422 type(transSymm_type) , intent(in) :: operation
15423 integer(IK) , intent(in) , optional :: doff
15424 complex(CKG) , intent(in) , optional :: init
15425 complex(CKG) , intent(in) :: source(:,:)
15426 complex(CKG) , allocatable :: destin(:)
15427 end function
15428#endif
15429
15430 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15431
15432#if RK5_ENABLED
15433 PURE module function getMatCopy_LFP_RDP_XLD_TSO_RK5(dpack, source, spack, subset, operation, doff, init) result(destin)
15434#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15435 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_TSO_RK5
15436#endif
15437 use pm_kind, only: RKG => RK5
15438 type(lfpack_type) , intent(in) :: dpack
15439 type(rdpack_type) , intent(in) :: spack
15440 type(lowDia_type) , intent(in) :: subset
15441 type(transSymm_type) , intent(in) :: operation
15442 integer(IK) , intent(in) , optional :: doff
15443 real(RKG) , intent(in) , optional :: init
15444 real(RKG) , intent(in) :: source(:,:)
15445 real(RKG) , allocatable :: destin(:)
15446 end function
15447#endif
15448
15449#if RK4_ENABLED
15450 PURE module function getMatCopy_LFP_RDP_XLD_TSO_RK4(dpack, source, spack, subset, operation, doff, init) result(destin)
15451#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15452 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_TSO_RK4
15453#endif
15454 use pm_kind, only: RKG => RK4
15455 type(lfpack_type) , intent(in) :: dpack
15456 type(rdpack_type) , intent(in) :: spack
15457 type(lowDia_type) , intent(in) :: subset
15458 type(transSymm_type) , intent(in) :: operation
15459 integer(IK) , intent(in) , optional :: doff
15460 real(RKG) , intent(in) , optional :: init
15461 real(RKG) , intent(in) :: source(:,:)
15462 real(RKG) , allocatable :: destin(:)
15463 end function
15464#endif
15465
15466#if RK3_ENABLED
15467 PURE module function getMatCopy_LFP_RDP_XLD_TSO_RK3(dpack, source, spack, subset, operation, doff, init) result(destin)
15468#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15469 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_TSO_RK3
15470#endif
15471 use pm_kind, only: RKG => RK3
15472 type(lfpack_type) , intent(in) :: dpack
15473 type(rdpack_type) , intent(in) :: spack
15474 type(lowDia_type) , intent(in) :: subset
15475 type(transSymm_type) , intent(in) :: operation
15476 integer(IK) , intent(in) , optional :: doff
15477 real(RKG) , intent(in) , optional :: init
15478 real(RKG) , intent(in) :: source(:,:)
15479 real(RKG) , allocatable :: destin(:)
15480 end function
15481#endif
15482
15483#if RK2_ENABLED
15484 PURE module function getMatCopy_LFP_RDP_XLD_TSO_RK2(dpack, source, spack, subset, operation, doff, init) result(destin)
15485#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15486 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_TSO_RK2
15487#endif
15488 use pm_kind, only: RKG => RK2
15489 type(lfpack_type) , intent(in) :: dpack
15490 type(rdpack_type) , intent(in) :: spack
15491 type(lowDia_type) , intent(in) :: subset
15492 type(transSymm_type) , intent(in) :: operation
15493 integer(IK) , intent(in) , optional :: doff
15494 real(RKG) , intent(in) , optional :: init
15495 real(RKG) , intent(in) :: source(:,:)
15496 real(RKG) , allocatable :: destin(:)
15497 end function
15498#endif
15499
15500#if RK1_ENABLED
15501 PURE module function getMatCopy_LFP_RDP_XLD_TSO_RK1(dpack, source, spack, subset, operation, doff, init) result(destin)
15502#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15503 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_TSO_RK1
15504#endif
15505 use pm_kind, only: RKG => RK1
15506 type(lfpack_type) , intent(in) :: dpack
15507 type(rdpack_type) , intent(in) :: spack
15508 type(lowDia_type) , intent(in) :: subset
15509 type(transSymm_type) , intent(in) :: operation
15510 integer(IK) , intent(in) , optional :: doff
15511 real(RKG) , intent(in) , optional :: init
15512 real(RKG) , intent(in) :: source(:,:)
15513 real(RKG) , allocatable :: destin(:)
15514 end function
15515#endif
15516
15517 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15518
15519 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15520 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15521 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15522
15523 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15524
15525#if SK5_ENABLED
15526 PURE module function getMatCopy_LFP_RDP_XLD_THO_SK5(dpack, source, spack, subset, operation, doff, init) result(destin)
15527#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15528 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_THO_SK5
15529#endif
15530 use pm_kind, only: SKG => SK5
15531 type(lfpack_type) , intent(in) :: dpack
15532 type(rdpack_type) , intent(in) :: spack
15533 type(lowDia_type) , intent(in) :: subset
15534 type(transHerm_type) , intent(in) :: operation
15535 integer(IK) , intent(in) , optional :: doff
15536 character(*,SKG) , intent(in) , optional :: init
15537 character(*,SKG) , intent(in) :: source(:,:)
15538 character(len(source,IK),SKG) , allocatable :: destin(:)
15539 end function
15540#endif
15541
15542#if SK4_ENABLED
15543 PURE module function getMatCopy_LFP_RDP_XLD_THO_SK4(dpack, source, spack, subset, operation, doff, init) result(destin)
15544#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15545 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_THO_SK4
15546#endif
15547 use pm_kind, only: SKG => SK4
15548 type(lfpack_type) , intent(in) :: dpack
15549 type(rdpack_type) , intent(in) :: spack
15550 type(lowDia_type) , intent(in) :: subset
15551 type(transHerm_type) , intent(in) :: operation
15552 integer(IK) , intent(in) , optional :: doff
15553 character(*,SKG) , intent(in) , optional :: init
15554 character(*,SKG) , intent(in) :: source(:,:)
15555 character(len(source,IK),SKG) , allocatable :: destin(:)
15556 end function
15557#endif
15558
15559#if SK3_ENABLED
15560 PURE module function getMatCopy_LFP_RDP_XLD_THO_SK3(dpack, source, spack, subset, operation, doff, init) result(destin)
15561#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15562 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_THO_SK3
15563#endif
15564 use pm_kind, only: SKG => SK3
15565 type(lfpack_type) , intent(in) :: dpack
15566 type(rdpack_type) , intent(in) :: spack
15567 type(lowDia_type) , intent(in) :: subset
15568 type(transHerm_type) , intent(in) :: operation
15569 integer(IK) , intent(in) , optional :: doff
15570 character(*,SKG) , intent(in) , optional :: init
15571 character(*,SKG) , intent(in) :: source(:,:)
15572 character(len(source,IK),SKG) , allocatable :: destin(:)
15573 end function
15574#endif
15575
15576#if SK2_ENABLED
15577 PURE module function getMatCopy_LFP_RDP_XLD_THO_SK2(dpack, source, spack, subset, operation, doff, init) result(destin)
15578#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15579 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_THO_SK2
15580#endif
15581 use pm_kind, only: SKG => SK2
15582 type(lfpack_type) , intent(in) :: dpack
15583 type(rdpack_type) , intent(in) :: spack
15584 type(lowDia_type) , intent(in) :: subset
15585 type(transHerm_type) , intent(in) :: operation
15586 integer(IK) , intent(in) , optional :: doff
15587 character(*,SKG) , intent(in) , optional :: init
15588 character(*,SKG) , intent(in) :: source(:,:)
15589 character(len(source,IK),SKG) , allocatable :: destin(:)
15590 end function
15591#endif
15592
15593#if SK1_ENABLED
15594 PURE module function getMatCopy_LFP_RDP_XLD_THO_SK1(dpack, source, spack, subset, operation, doff, init) result(destin)
15595#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15596 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_THO_SK1
15597#endif
15598 use pm_kind, only: SKG => SK1
15599 type(lfpack_type) , intent(in) :: dpack
15600 type(rdpack_type) , intent(in) :: spack
15601 type(lowDia_type) , intent(in) :: subset
15602 type(transHerm_type) , intent(in) :: operation
15603 integer(IK) , intent(in) , optional :: doff
15604 character(*,SKG) , intent(in) , optional :: init
15605 character(*,SKG) , intent(in) :: source(:,:)
15606 character(len(source,IK),SKG) , allocatable :: destin(:)
15607 end function
15608#endif
15609
15610 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15611
15612#if IK5_ENABLED
15613 PURE module function getMatCopy_LFP_RDP_XLD_THO_IK5(dpack, source, spack, subset, operation, doff, init) result(destin)
15614#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15615 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_THO_IK5
15616#endif
15617 use pm_kind, only: IKG => IK5
15618 type(lfpack_type) , intent(in) :: dpack
15619 type(rdpack_type) , intent(in) :: spack
15620 type(lowDia_type) , intent(in) :: subset
15621 type(transHerm_type) , intent(in) :: operation
15622 integer(IK) , intent(in) , optional :: doff
15623 integer(IKG) , intent(in) , optional :: init
15624 integer(IKG) , intent(in) :: source(:,:)
15625 integer(IKG) , allocatable :: destin(:)
15626 end function
15627#endif
15628
15629#if IK4_ENABLED
15630 PURE module function getMatCopy_LFP_RDP_XLD_THO_IK4(dpack, source, spack, subset, operation, doff, init) result(destin)
15631#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15632 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_THO_IK4
15633#endif
15634 use pm_kind, only: IKG => IK4
15635 type(lfpack_type) , intent(in) :: dpack
15636 type(rdpack_type) , intent(in) :: spack
15637 type(lowDia_type) , intent(in) :: subset
15638 type(transHerm_type) , intent(in) :: operation
15639 integer(IK) , intent(in) , optional :: doff
15640 integer(IKG) , intent(in) , optional :: init
15641 integer(IKG) , intent(in) :: source(:,:)
15642 integer(IKG) , allocatable :: destin(:)
15643 end function
15644#endif
15645
15646#if IK3_ENABLED
15647 PURE module function getMatCopy_LFP_RDP_XLD_THO_IK3(dpack, source, spack, subset, operation, doff, init) result(destin)
15648#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15649 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_THO_IK3
15650#endif
15651 use pm_kind, only: IKG => IK3
15652 type(lfpack_type) , intent(in) :: dpack
15653 type(rdpack_type) , intent(in) :: spack
15654 type(lowDia_type) , intent(in) :: subset
15655 type(transHerm_type) , intent(in) :: operation
15656 integer(IK) , intent(in) , optional :: doff
15657 integer(IKG) , intent(in) , optional :: init
15658 integer(IKG) , intent(in) :: source(:,:)
15659 integer(IKG) , allocatable :: destin(:)
15660 end function
15661#endif
15662
15663#if IK2_ENABLED
15664 PURE module function getMatCopy_LFP_RDP_XLD_THO_IK2(dpack, source, spack, subset, operation, doff, init) result(destin)
15665#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15666 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_THO_IK2
15667#endif
15668 use pm_kind, only: IKG => IK2
15669 type(lfpack_type) , intent(in) :: dpack
15670 type(rdpack_type) , intent(in) :: spack
15671 type(lowDia_type) , intent(in) :: subset
15672 type(transHerm_type) , intent(in) :: operation
15673 integer(IK) , intent(in) , optional :: doff
15674 integer(IKG) , intent(in) , optional :: init
15675 integer(IKG) , intent(in) :: source(:,:)
15676 integer(IKG) , allocatable :: destin(:)
15677 end function
15678#endif
15679
15680#if IK1_ENABLED
15681 PURE module function getMatCopy_LFP_RDP_XLD_THO_IK1(dpack, source, spack, subset, operation, doff, init) result(destin)
15682#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15683 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_THO_IK1
15684#endif
15685 use pm_kind, only: IKG => IK1
15686 type(lfpack_type) , intent(in) :: dpack
15687 type(rdpack_type) , intent(in) :: spack
15688 type(lowDia_type) , intent(in) :: subset
15689 type(transHerm_type) , intent(in) :: operation
15690 integer(IK) , intent(in) , optional :: doff
15691 integer(IKG) , intent(in) , optional :: init
15692 integer(IKG) , intent(in) :: source(:,:)
15693 integer(IKG) , allocatable :: destin(:)
15694 end function
15695#endif
15696
15697 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15698
15699#if LK5_ENABLED
15700 PURE module function getMatCopy_LFP_RDP_XLD_THO_LK5(dpack, source, spack, subset, operation, doff, init) result(destin)
15701#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15702 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_THO_LK5
15703#endif
15704 use pm_kind, only: LKG => LK5
15705 type(lfpack_type) , intent(in) :: dpack
15706 type(rdpack_type) , intent(in) :: spack
15707 type(lowDia_type) , intent(in) :: subset
15708 type(transHerm_type) , intent(in) :: operation
15709 integer(IK) , intent(in) , optional :: doff
15710 logical(LKG) , intent(in) , optional :: init
15711 logical(LKG) , intent(in) :: source(:,:)
15712 logical(LKG) , allocatable :: destin(:)
15713 end function
15714#endif
15715
15716#if LK4_ENABLED
15717 PURE module function getMatCopy_LFP_RDP_XLD_THO_LK4(dpack, source, spack, subset, operation, doff, init) result(destin)
15718#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15719 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_THO_LK4
15720#endif
15721 use pm_kind, only: LKG => LK4
15722 type(lfpack_type) , intent(in) :: dpack
15723 type(rdpack_type) , intent(in) :: spack
15724 type(lowDia_type) , intent(in) :: subset
15725 type(transHerm_type) , intent(in) :: operation
15726 integer(IK) , intent(in) , optional :: doff
15727 logical(LKG) , intent(in) , optional :: init
15728 logical(LKG) , intent(in) :: source(:,:)
15729 logical(LKG) , allocatable :: destin(:)
15730 end function
15731#endif
15732
15733#if LK3_ENABLED
15734 PURE module function getMatCopy_LFP_RDP_XLD_THO_LK3(dpack, source, spack, subset, operation, doff, init) result(destin)
15735#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15736 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_THO_LK3
15737#endif
15738 use pm_kind, only: LKG => LK3
15739 type(lfpack_type) , intent(in) :: dpack
15740 type(rdpack_type) , intent(in) :: spack
15741 type(lowDia_type) , intent(in) :: subset
15742 type(transHerm_type) , intent(in) :: operation
15743 integer(IK) , intent(in) , optional :: doff
15744 logical(LKG) , intent(in) , optional :: init
15745 logical(LKG) , intent(in) :: source(:,:)
15746 logical(LKG) , allocatable :: destin(:)
15747 end function
15748#endif
15749
15750#if LK2_ENABLED
15751 PURE module function getMatCopy_LFP_RDP_XLD_THO_LK2(dpack, source, spack, subset, operation, doff, init) result(destin)
15752#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15753 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_THO_LK2
15754#endif
15755 use pm_kind, only: LKG => LK2
15756 type(lfpack_type) , intent(in) :: dpack
15757 type(rdpack_type) , intent(in) :: spack
15758 type(lowDia_type) , intent(in) :: subset
15759 type(transHerm_type) , intent(in) :: operation
15760 integer(IK) , intent(in) , optional :: doff
15761 logical(LKG) , intent(in) , optional :: init
15762 logical(LKG) , intent(in) :: source(:,:)
15763 logical(LKG) , allocatable :: destin(:)
15764 end function
15765#endif
15766
15767#if LK1_ENABLED
15768 PURE module function getMatCopy_LFP_RDP_XLD_THO_LK1(dpack, source, spack, subset, operation, doff, init) result(destin)
15769#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15770 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_THO_LK1
15771#endif
15772 use pm_kind, only: LKG => LK1
15773 type(lfpack_type) , intent(in) :: dpack
15774 type(rdpack_type) , intent(in) :: spack
15775 type(lowDia_type) , intent(in) :: subset
15776 type(transHerm_type) , intent(in) :: operation
15777 integer(IK) , intent(in) , optional :: doff
15778 logical(LKG) , intent(in) , optional :: init
15779 logical(LKG) , intent(in) :: source(:,:)
15780 logical(LKG) , allocatable :: destin(:)
15781 end function
15782#endif
15783
15784 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15785
15786#if CK5_ENABLED
15787 PURE module function getMatCopy_LFP_RDP_XLD_THO_CK5(dpack, source, spack, subset, operation, doff, init) result(destin)
15788#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15789 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_THO_CK5
15790#endif
15791 use pm_kind, only: CKG => CK5
15792 type(lfpack_type) , intent(in) :: dpack
15793 type(rdpack_type) , intent(in) :: spack
15794 type(lowDia_type) , intent(in) :: subset
15795 type(transHerm_type) , intent(in) :: operation
15796 integer(IK) , intent(in) , optional :: doff
15797 complex(CKG) , intent(in) , optional :: init
15798 complex(CKG) , intent(in) :: source(:,:)
15799 complex(CKG) , allocatable :: destin(:)
15800 end function
15801#endif
15802
15803#if CK4_ENABLED
15804 PURE module function getMatCopy_LFP_RDP_XLD_THO_CK4(dpack, source, spack, subset, operation, doff, init) result(destin)
15805#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15806 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_THO_CK4
15807#endif
15808 use pm_kind, only: CKG => CK4
15809 type(lfpack_type) , intent(in) :: dpack
15810 type(rdpack_type) , intent(in) :: spack
15811 type(lowDia_type) , intent(in) :: subset
15812 type(transHerm_type) , intent(in) :: operation
15813 integer(IK) , intent(in) , optional :: doff
15814 complex(CKG) , intent(in) , optional :: init
15815 complex(CKG) , intent(in) :: source(:,:)
15816 complex(CKG) , allocatable :: destin(:)
15817 end function
15818#endif
15819
15820#if CK3_ENABLED
15821 PURE module function getMatCopy_LFP_RDP_XLD_THO_CK3(dpack, source, spack, subset, operation, doff, init) result(destin)
15822#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15823 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_THO_CK3
15824#endif
15825 use pm_kind, only: CKG => CK3
15826 type(lfpack_type) , intent(in) :: dpack
15827 type(rdpack_type) , intent(in) :: spack
15828 type(lowDia_type) , intent(in) :: subset
15829 type(transHerm_type) , intent(in) :: operation
15830 integer(IK) , intent(in) , optional :: doff
15831 complex(CKG) , intent(in) , optional :: init
15832 complex(CKG) , intent(in) :: source(:,:)
15833 complex(CKG) , allocatable :: destin(:)
15834 end function
15835#endif
15836
15837#if CK2_ENABLED
15838 PURE module function getMatCopy_LFP_RDP_XLD_THO_CK2(dpack, source, spack, subset, operation, doff, init) result(destin)
15839#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15840 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_THO_CK2
15841#endif
15842 use pm_kind, only: CKG => CK2
15843 type(lfpack_type) , intent(in) :: dpack
15844 type(rdpack_type) , intent(in) :: spack
15845 type(lowDia_type) , intent(in) :: subset
15846 type(transHerm_type) , intent(in) :: operation
15847 integer(IK) , intent(in) , optional :: doff
15848 complex(CKG) , intent(in) , optional :: init
15849 complex(CKG) , intent(in) :: source(:,:)
15850 complex(CKG) , allocatable :: destin(:)
15851 end function
15852#endif
15853
15854#if CK1_ENABLED
15855 PURE module function getMatCopy_LFP_RDP_XLD_THO_CK1(dpack, source, spack, subset, operation, doff, init) result(destin)
15856#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15857 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_THO_CK1
15858#endif
15859 use pm_kind, only: CKG => CK1
15860 type(lfpack_type) , intent(in) :: dpack
15861 type(rdpack_type) , intent(in) :: spack
15862 type(lowDia_type) , intent(in) :: subset
15863 type(transHerm_type) , intent(in) :: operation
15864 integer(IK) , intent(in) , optional :: doff
15865 complex(CKG) , intent(in) , optional :: init
15866 complex(CKG) , intent(in) :: source(:,:)
15867 complex(CKG) , allocatable :: destin(:)
15868 end function
15869#endif
15870
15871 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15872
15873#if RK5_ENABLED
15874 PURE module function getMatCopy_LFP_RDP_XLD_THO_RK5(dpack, source, spack, subset, operation, doff, init) result(destin)
15875#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15876 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_THO_RK5
15877#endif
15878 use pm_kind, only: RKG => RK5
15879 type(lfpack_type) , intent(in) :: dpack
15880 type(rdpack_type) , intent(in) :: spack
15881 type(lowDia_type) , intent(in) :: subset
15882 type(transHerm_type) , intent(in) :: operation
15883 integer(IK) , intent(in) , optional :: doff
15884 real(RKG) , intent(in) , optional :: init
15885 real(RKG) , intent(in) :: source(:,:)
15886 real(RKG) , allocatable :: destin(:)
15887 end function
15888#endif
15889
15890#if RK4_ENABLED
15891 PURE module function getMatCopy_LFP_RDP_XLD_THO_RK4(dpack, source, spack, subset, operation, doff, init) result(destin)
15892#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15893 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_THO_RK4
15894#endif
15895 use pm_kind, only: RKG => RK4
15896 type(lfpack_type) , intent(in) :: dpack
15897 type(rdpack_type) , intent(in) :: spack
15898 type(lowDia_type) , intent(in) :: subset
15899 type(transHerm_type) , intent(in) :: operation
15900 integer(IK) , intent(in) , optional :: doff
15901 real(RKG) , intent(in) , optional :: init
15902 real(RKG) , intent(in) :: source(:,:)
15903 real(RKG) , allocatable :: destin(:)
15904 end function
15905#endif
15906
15907#if RK3_ENABLED
15908 PURE module function getMatCopy_LFP_RDP_XLD_THO_RK3(dpack, source, spack, subset, operation, doff, init) result(destin)
15909#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15910 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_THO_RK3
15911#endif
15912 use pm_kind, only: RKG => RK3
15913 type(lfpack_type) , intent(in) :: dpack
15914 type(rdpack_type) , intent(in) :: spack
15915 type(lowDia_type) , intent(in) :: subset
15916 type(transHerm_type) , intent(in) :: operation
15917 integer(IK) , intent(in) , optional :: doff
15918 real(RKG) , intent(in) , optional :: init
15919 real(RKG) , intent(in) :: source(:,:)
15920 real(RKG) , allocatable :: destin(:)
15921 end function
15922#endif
15923
15924#if RK2_ENABLED
15925 PURE module function getMatCopy_LFP_RDP_XLD_THO_RK2(dpack, source, spack, subset, operation, doff, init) result(destin)
15926#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15927 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_THO_RK2
15928#endif
15929 use pm_kind, only: RKG => RK2
15930 type(lfpack_type) , intent(in) :: dpack
15931 type(rdpack_type) , intent(in) :: spack
15932 type(lowDia_type) , intent(in) :: subset
15933 type(transHerm_type) , intent(in) :: operation
15934 integer(IK) , intent(in) , optional :: doff
15935 real(RKG) , intent(in) , optional :: init
15936 real(RKG) , intent(in) :: source(:,:)
15937 real(RKG) , allocatable :: destin(:)
15938 end function
15939#endif
15940
15941#if RK1_ENABLED
15942 PURE module function getMatCopy_LFP_RDP_XLD_THO_RK1(dpack, source, spack, subset, operation, doff, init) result(destin)
15943#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15944 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_LFP_RDP_XLD_THO_RK1
15945#endif
15946 use pm_kind, only: RKG => RK1
15947 type(lfpack_type) , intent(in) :: dpack
15948 type(rdpack_type) , intent(in) :: spack
15949 type(lowDia_type) , intent(in) :: subset
15950 type(transHerm_type) , intent(in) :: operation
15951 integer(IK) , intent(in) , optional :: doff
15952 real(RKG) , intent(in) , optional :: init
15953 real(RKG) , intent(in) :: source(:,:)
15954 real(RKG) , allocatable :: destin(:)
15955 end function
15956#endif
15957
15958 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15959
15960 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15961 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15962 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15963
15964 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15965 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15966 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15967
15968 end interface getMatCopy
15969
15970 ! package: rdpack, rfpack
15971
15972 interface getMatCopy
15973
15974 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15975 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15976 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15977
15978 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15979 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15980 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15981
15982 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15983
15984#if SK5_ENABLED
15985 PURE module function getMatCopy_RDP_RFP_UXD_AIO_SK5(dpack, source, spack, subset, init) result(destin)
15986#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15987 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RFP_UXD_AIO_SK5
15988#endif
15989 use pm_kind, only: SKG => SK5
15990 type(rdpack_type) , intent(in) :: dpack
15991 type(rfpack_type) , intent(in) :: spack
15992 type(uppDia_type) , intent(in) :: subset
15993 character(*,SKG) , intent(in) , optional :: init
15994 character(*,SKG) , intent(in) :: source(:,:)
15995 character(len(source,IK),SKG) , allocatable :: destin(:,:)
15996 end function
15997#endif
15998
15999#if SK4_ENABLED
16000 PURE module function getMatCopy_RDP_RFP_UXD_AIO_SK4(dpack, source, spack, subset, init) result(destin)
16001#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16002 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RFP_UXD_AIO_SK4
16003#endif
16004 use pm_kind, only: SKG => SK4
16005 type(rdpack_type) , intent(in) :: dpack
16006 type(rfpack_type) , intent(in) :: spack
16007 type(uppDia_type) , intent(in) :: subset
16008 character(*,SKG) , intent(in) , optional :: init
16009 character(*,SKG) , intent(in) :: source(:,:)
16010 character(len(source,IK),SKG) , allocatable :: destin(:,:)
16011 end function
16012#endif
16013
16014#if SK3_ENABLED
16015 PURE module function getMatCopy_RDP_RFP_UXD_AIO_SK3(dpack, source, spack, subset, init) result(destin)
16016#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16017 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RFP_UXD_AIO_SK3
16018#endif
16019 use pm_kind, only: SKG => SK3
16020 type(rdpack_type) , intent(in) :: dpack
16021 type(rfpack_type) , intent(in) :: spack
16022 type(uppDia_type) , intent(in) :: subset
16023 character(*,SKG) , intent(in) , optional :: init
16024 character(*,SKG) , intent(in) :: source(:,:)
16025 character(len(source,IK),SKG) , allocatable :: destin(:,:)
16026 end function
16027#endif
16028
16029#if SK2_ENABLED
16030 PURE module function getMatCopy_RDP_RFP_UXD_AIO_SK2(dpack, source, spack, subset, init) result(destin)
16031#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16032 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RFP_UXD_AIO_SK2
16033#endif
16034 use pm_kind, only: SKG => SK2
16035 type(rdpack_type) , intent(in) :: dpack
16036 type(rfpack_type) , intent(in) :: spack
16037 type(uppDia_type) , intent(in) :: subset
16038 character(*,SKG) , intent(in) , optional :: init
16039 character(*,SKG) , intent(in) :: source(:,:)
16040 character(len(source,IK),SKG) , allocatable :: destin(:,:)
16041 end function
16042#endif
16043
16044#if SK1_ENABLED
16045 PURE module function getMatCopy_RDP_RFP_UXD_AIO_SK1(dpack, source, spack, subset, init) result(destin)
16046#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16047 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RFP_UXD_AIO_SK1
16048#endif
16049 use pm_kind, only: SKG => SK1
16050 type(rdpack_type) , intent(in) :: dpack
16051 type(rfpack_type) , intent(in) :: spack
16052 type(uppDia_type) , intent(in) :: subset
16053 character(*,SKG) , intent(in) , optional :: init
16054 character(*,SKG) , intent(in) :: source(:,:)
16055 character(len(source,IK),SKG) , allocatable :: destin(:,:)
16056 end function
16057#endif
16058
16059 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16060
16061#if IK5_ENABLED
16062 PURE module function getMatCopy_RDP_RFP_UXD_AIO_IK5(dpack, source, spack, subset, init) result(destin)
16063#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16064 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RFP_UXD_AIO_IK5
16065#endif
16066 use pm_kind, only: IKG => IK5
16067 type(rdpack_type) , intent(in) :: dpack
16068 type(rfpack_type) , intent(in) :: spack
16069 type(uppDia_type) , intent(in) :: subset
16070 integer(IKG) , intent(in) , optional :: init
16071 integer(IKG) , intent(in) :: source(:,:)
16072 integer(IKG) , allocatable :: destin(:,:)
16073 end function
16074#endif
16075
16076#if IK4_ENABLED
16077 PURE module function getMatCopy_RDP_RFP_UXD_AIO_IK4(dpack, source, spack, subset, init) result(destin)
16078#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16079 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RFP_UXD_AIO_IK4
16080#endif
16081 use pm_kind, only: IKG => IK4
16082 type(rdpack_type) , intent(in) :: dpack
16083 type(rfpack_type) , intent(in) :: spack
16084 type(uppDia_type) , intent(in) :: subset
16085 integer(IKG) , intent(in) , optional :: init
16086 integer(IKG) , intent(in) :: source(:,:)
16087 integer(IKG) , allocatable :: destin(:,:)
16088 end function
16089#endif
16090
16091#if IK3_ENABLED
16092 PURE module function getMatCopy_RDP_RFP_UXD_AIO_IK3(dpack, source, spack, subset, init) result(destin)
16093#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16094 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RFP_UXD_AIO_IK3
16095#endif
16096 use pm_kind, only: IKG => IK3
16097 type(rdpack_type) , intent(in) :: dpack
16098 type(rfpack_type) , intent(in) :: spack
16099 type(uppDia_type) , intent(in) :: subset
16100 integer(IKG) , intent(in) , optional :: init
16101 integer(IKG) , intent(in) :: source(:,:)
16102 integer(IKG) , allocatable :: destin(:,:)
16103 end function
16104#endif
16105
16106#if IK2_ENABLED
16107 PURE module function getMatCopy_RDP_RFP_UXD_AIO_IK2(dpack, source, spack, subset, init) result(destin)
16108#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16109 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RFP_UXD_AIO_IK2
16110#endif
16111 use pm_kind, only: IKG => IK2
16112 type(rdpack_type) , intent(in) :: dpack
16113 type(rfpack_type) , intent(in) :: spack
16114 type(uppDia_type) , intent(in) :: subset
16115 integer(IKG) , intent(in) , optional :: init
16116 integer(IKG) , intent(in) :: source(:,:)
16117 integer(IKG) , allocatable :: destin(:,:)
16118 end function
16119#endif
16120
16121#if IK1_ENABLED
16122 PURE module function getMatCopy_RDP_RFP_UXD_AIO_IK1(dpack, source, spack, subset, init) result(destin)
16123#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16124 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RFP_UXD_AIO_IK1
16125#endif
16126 use pm_kind, only: IKG => IK1
16127 type(rdpack_type) , intent(in) :: dpack
16128 type(rfpack_type) , intent(in) :: spack
16129 type(uppDia_type) , intent(in) :: subset
16130 integer(IKG) , intent(in) , optional :: init
16131 integer(IKG) , intent(in) :: source(:,:)
16132 integer(IKG) , allocatable :: destin(:,:)
16133 end function
16134#endif
16135
16136 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16137
16138#if LK5_ENABLED
16139 PURE module function getMatCopy_RDP_RFP_UXD_AIO_LK5(dpack, source, spack, subset, init) result(destin)
16140#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16141 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RFP_UXD_AIO_LK5
16142#endif
16143 use pm_kind, only: LKG => LK5
16144 type(rdpack_type) , intent(in) :: dpack
16145 type(rfpack_type) , intent(in) :: spack
16146 type(uppDia_type) , intent(in) :: subset
16147 logical(LKG) , intent(in) , optional :: init
16148 logical(LKG) , intent(in) :: source(:,:)
16149 logical(LKG) , allocatable :: destin(:,:)
16150 end function
16151#endif
16152
16153#if LK4_ENABLED
16154 PURE module function getMatCopy_RDP_RFP_UXD_AIO_LK4(dpack, source, spack, subset, init) result(destin)
16155#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16156 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RFP_UXD_AIO_LK4
16157#endif
16158 use pm_kind, only: LKG => LK4
16159 type(rdpack_type) , intent(in) :: dpack
16160 type(rfpack_type) , intent(in) :: spack
16161 type(uppDia_type) , intent(in) :: subset
16162 logical(LKG) , intent(in) , optional :: init
16163 logical(LKG) , intent(in) :: source(:,:)
16164 logical(LKG) , allocatable :: destin(:,:)
16165 end function
16166#endif
16167
16168#if LK3_ENABLED
16169 PURE module function getMatCopy_RDP_RFP_UXD_AIO_LK3(dpack, source, spack, subset, init) result(destin)
16170#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16171 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RFP_UXD_AIO_LK3
16172#endif
16173 use pm_kind, only: LKG => LK3
16174 type(rdpack_type) , intent(in) :: dpack
16175 type(rfpack_type) , intent(in) :: spack
16176 type(uppDia_type) , intent(in) :: subset
16177 logical(LKG) , intent(in) , optional :: init
16178 logical(LKG) , intent(in) :: source(:,:)
16179 logical(LKG) , allocatable :: destin(:,:)
16180 end function
16181#endif
16182
16183#if LK2_ENABLED
16184 PURE module function getMatCopy_RDP_RFP_UXD_AIO_LK2(dpack, source, spack, subset, init) result(destin)
16185#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16186 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RFP_UXD_AIO_LK2
16187#endif
16188 use pm_kind, only: LKG => LK2
16189 type(rdpack_type) , intent(in) :: dpack
16190 type(rfpack_type) , intent(in) :: spack
16191 type(uppDia_type) , intent(in) :: subset
16192 logical(LKG) , intent(in) , optional :: init
16193 logical(LKG) , intent(in) :: source(:,:)
16194 logical(LKG) , allocatable :: destin(:,:)
16195 end function
16196#endif
16197
16198#if LK1_ENABLED
16199 PURE module function getMatCopy_RDP_RFP_UXD_AIO_LK1(dpack, source, spack, subset, init) result(destin)
16200#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16201 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RFP_UXD_AIO_LK1
16202#endif
16203 use pm_kind, only: LKG => LK1
16204 type(rdpack_type) , intent(in) :: dpack
16205 type(rfpack_type) , intent(in) :: spack
16206 type(uppDia_type) , intent(in) :: subset
16207 logical(LKG) , intent(in) , optional :: init
16208 logical(LKG) , intent(in) :: source(:,:)
16209 logical(LKG) , allocatable :: destin(:,:)
16210 end function
16211#endif
16212
16213 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16214
16215#if CK5_ENABLED
16216 PURE module function getMatCopy_RDP_RFP_UXD_AIO_CK5(dpack, source, spack, subset, init) result(destin)
16217#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16218 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RFP_UXD_AIO_CK5
16219#endif
16220 use pm_kind, only: CKG => CK5
16221 type(rdpack_type) , intent(in) :: dpack
16222 type(rfpack_type) , intent(in) :: spack
16223 type(uppDia_type) , intent(in) :: subset
16224 complex(CKG) , intent(in) , optional :: init
16225 complex(CKG) , intent(in) :: source(:,:)
16226 complex(CKG) , allocatable :: destin(:,:)
16227 end function
16228#endif
16229
16230#if CK4_ENABLED
16231 PURE module function getMatCopy_RDP_RFP_UXD_AIO_CK4(dpack, source, spack, subset, init) result(destin)
16232#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16233 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RFP_UXD_AIO_CK4
16234#endif
16235 use pm_kind, only: CKG => CK4
16236 type(rdpack_type) , intent(in) :: dpack
16237 type(rfpack_type) , intent(in) :: spack
16238 type(uppDia_type) , intent(in) :: subset
16239 complex(CKG) , intent(in) , optional :: init
16240 complex(CKG) , intent(in) :: source(:,:)
16241 complex(CKG) , allocatable :: destin(:,:)
16242 end function
16243#endif
16244
16245#if CK3_ENABLED
16246 PURE module function getMatCopy_RDP_RFP_UXD_AIO_CK3(dpack, source, spack, subset, init) result(destin)
16247#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16248 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RFP_UXD_AIO_CK3
16249#endif
16250 use pm_kind, only: CKG => CK3
16251 type(rdpack_type) , intent(in) :: dpack
16252 type(rfpack_type) , intent(in) :: spack
16253 type(uppDia_type) , intent(in) :: subset
16254 complex(CKG) , intent(in) , optional :: init
16255 complex(CKG) , intent(in) :: source(:,:)
16256 complex(CKG) , allocatable :: destin(:,:)
16257 end function
16258#endif
16259
16260#if CK2_ENABLED
16261 PURE module function getMatCopy_RDP_RFP_UXD_AIO_CK2(dpack, source, spack, subset, init) result(destin)
16262#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16263 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RFP_UXD_AIO_CK2
16264#endif
16265 use pm_kind, only: CKG => CK2
16266 type(rdpack_type) , intent(in) :: dpack
16267 type(rfpack_type) , intent(in) :: spack
16268 type(uppDia_type) , intent(in) :: subset
16269 complex(CKG) , intent(in) , optional :: init
16270 complex(CKG) , intent(in) :: source(:,:)
16271 complex(CKG) , allocatable :: destin(:,:)
16272 end function
16273#endif
16274
16275#if CK1_ENABLED
16276 PURE module function getMatCopy_RDP_RFP_UXD_AIO_CK1(dpack, source, spack, subset, init) result(destin)
16277#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16278 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RFP_UXD_AIO_CK1
16279#endif
16280 use pm_kind, only: CKG => CK1
16281 type(rdpack_type) , intent(in) :: dpack
16282 type(rfpack_type) , intent(in) :: spack
16283 type(uppDia_type) , intent(in) :: subset
16284 complex(CKG) , intent(in) , optional :: init
16285 complex(CKG) , intent(in) :: source(:,:)
16286 complex(CKG) , allocatable :: destin(:,:)
16287 end function
16288#endif
16289
16290 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16291
16292#if RK5_ENABLED
16293 PURE module function getMatCopy_RDP_RFP_UXD_AIO_RK5(dpack, source, spack, subset, init) result(destin)
16294#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16295 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RFP_UXD_AIO_RK5
16296#endif
16297 use pm_kind, only: RKG => RK5
16298 type(rdpack_type) , intent(in) :: dpack
16299 type(rfpack_type) , intent(in) :: spack
16300 type(uppDia_type) , intent(in) :: subset
16301 real(RKG) , intent(in) , optional :: init
16302 real(RKG) , intent(in) :: source(:,:)
16303 real(RKG) , allocatable :: destin(:,:)
16304 end function
16305#endif
16306
16307#if RK4_ENABLED
16308 PURE module function getMatCopy_RDP_RFP_UXD_AIO_RK4(dpack, source, spack, subset, init) result(destin)
16309#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16310 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RFP_UXD_AIO_RK4
16311#endif
16312 use pm_kind, only: RKG => RK4
16313 type(rdpack_type) , intent(in) :: dpack
16314 type(rfpack_type) , intent(in) :: spack
16315 type(uppDia_type) , intent(in) :: subset
16316 real(RKG) , intent(in) , optional :: init
16317 real(RKG) , intent(in) :: source(:,:)
16318 real(RKG) , allocatable :: destin(:,:)
16319 end function
16320#endif
16321
16322#if RK3_ENABLED
16323 PURE module function getMatCopy_RDP_RFP_UXD_AIO_RK3(dpack, source, spack, subset, init) result(destin)
16324#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16325 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RFP_UXD_AIO_RK3
16326#endif
16327 use pm_kind, only: RKG => RK3
16328 type(rdpack_type) , intent(in) :: dpack
16329 type(rfpack_type) , intent(in) :: spack
16330 type(uppDia_type) , intent(in) :: subset
16331 real(RKG) , intent(in) , optional :: init
16332 real(RKG) , intent(in) :: source(:,:)
16333 real(RKG) , allocatable :: destin(:,:)
16334 end function
16335#endif
16336
16337#if RK2_ENABLED
16338 PURE module function getMatCopy_RDP_RFP_UXD_AIO_RK2(dpack, source, spack, subset, init) result(destin)
16339#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16340 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RFP_UXD_AIO_RK2
16341#endif
16342 use pm_kind, only: RKG => RK2
16343 type(rdpack_type) , intent(in) :: dpack
16344 type(rfpack_type) , intent(in) :: spack
16345 type(uppDia_type) , intent(in) :: subset
16346 real(RKG) , intent(in) , optional :: init
16347 real(RKG) , intent(in) :: source(:,:)
16348 real(RKG) , allocatable :: destin(:,:)
16349 end function
16350#endif
16351
16352#if RK1_ENABLED
16353 PURE module function getMatCopy_RDP_RFP_UXD_AIO_RK1(dpack, source, spack, subset, init) result(destin)
16354#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16355 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RFP_UXD_AIO_RK1
16356#endif
16357 use pm_kind, only: RKG => RK1
16358 type(rdpack_type) , intent(in) :: dpack
16359 type(rfpack_type) , intent(in) :: spack
16360 type(uppDia_type) , intent(in) :: subset
16361 real(RKG) , intent(in) , optional :: init
16362 real(RKG) , intent(in) :: source(:,:)
16363 real(RKG) , allocatable :: destin(:,:)
16364 end function
16365#endif
16366
16367 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16368
16369 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16370 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16371 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16372
16373 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16374 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16375 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16376
16377 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16378
16379#if SK5_ENABLED
16380 PURE module function getMatCopy_RDP_RFP_XLD_AIO_SK5(dpack, source, spack, subset, init) result(destin)
16381#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16382 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RFP_XLD_AIO_SK5
16383#endif
16384 use pm_kind, only: SKG => SK5
16385 type(rdpack_type) , intent(in) :: dpack
16386 type(rfpack_type) , intent(in) :: spack
16387 type(lowDia_type) , intent(in) :: subset
16388 character(*,SKG) , intent(in) , optional :: init
16389 character(*,SKG) , intent(in) :: source(:,:)
16390 character(len(source,IK),SKG) , allocatable :: destin(:,:)
16391 end function
16392#endif
16393
16394#if SK4_ENABLED
16395 PURE module function getMatCopy_RDP_RFP_XLD_AIO_SK4(dpack, source, spack, subset, init) result(destin)
16396#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16397 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RFP_XLD_AIO_SK4
16398#endif
16399 use pm_kind, only: SKG => SK4
16400 type(rdpack_type) , intent(in) :: dpack
16401 type(rfpack_type) , intent(in) :: spack
16402 type(lowDia_type) , intent(in) :: subset
16403 character(*,SKG) , intent(in) , optional :: init
16404 character(*,SKG) , intent(in) :: source(:,:)
16405 character(len(source,IK),SKG) , allocatable :: destin(:,:)
16406 end function
16407#endif
16408
16409#if SK3_ENABLED
16410 PURE module function getMatCopy_RDP_RFP_XLD_AIO_SK3(dpack, source, spack, subset, init) result(destin)
16411#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16412 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RFP_XLD_AIO_SK3
16413#endif
16414 use pm_kind, only: SKG => SK3
16415 type(rdpack_type) , intent(in) :: dpack
16416 type(rfpack_type) , intent(in) :: spack
16417 type(lowDia_type) , intent(in) :: subset
16418 character(*,SKG) , intent(in) , optional :: init
16419 character(*,SKG) , intent(in) :: source(:,:)
16420 character(len(source,IK),SKG) , allocatable :: destin(:,:)
16421 end function
16422#endif
16423
16424#if SK2_ENABLED
16425 PURE module function getMatCopy_RDP_RFP_XLD_AIO_SK2(dpack, source, spack, subset, init) result(destin)
16426#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16427 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RFP_XLD_AIO_SK2
16428#endif
16429 use pm_kind, only: SKG => SK2
16430 type(rdpack_type) , intent(in) :: dpack
16431 type(rfpack_type) , intent(in) :: spack
16432 type(lowDia_type) , intent(in) :: subset
16433 character(*,SKG) , intent(in) , optional :: init
16434 character(*,SKG) , intent(in) :: source(:,:)
16435 character(len(source,IK),SKG) , allocatable :: destin(:,:)
16436 end function
16437#endif
16438
16439#if SK1_ENABLED
16440 PURE module function getMatCopy_RDP_RFP_XLD_AIO_SK1(dpack, source, spack, subset, init) result(destin)
16441#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16442 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RFP_XLD_AIO_SK1
16443#endif
16444 use pm_kind, only: SKG => SK1
16445 type(rdpack_type) , intent(in) :: dpack
16446 type(rfpack_type) , intent(in) :: spack
16447 type(lowDia_type) , intent(in) :: subset
16448 character(*,SKG) , intent(in) , optional :: init
16449 character(*,SKG) , intent(in) :: source(:,:)
16450 character(len(source,IK),SKG) , allocatable :: destin(:,:)
16451 end function
16452#endif
16453
16454 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16455
16456#if IK5_ENABLED
16457 PURE module function getMatCopy_RDP_RFP_XLD_AIO_IK5(dpack, source, spack, subset, init) result(destin)
16458#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16459 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RFP_XLD_AIO_IK5
16460#endif
16461 use pm_kind, only: IKG => IK5
16462 type(rdpack_type) , intent(in) :: dpack
16463 type(rfpack_type) , intent(in) :: spack
16464 type(lowDia_type) , intent(in) :: subset
16465 integer(IKG) , intent(in) , optional :: init
16466 integer(IKG) , intent(in) :: source(:,:)
16467 integer(IKG) , allocatable :: destin(:,:)
16468 end function
16469#endif
16470
16471#if IK4_ENABLED
16472 PURE module function getMatCopy_RDP_RFP_XLD_AIO_IK4(dpack, source, spack, subset, init) result(destin)
16473#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16474 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RFP_XLD_AIO_IK4
16475#endif
16476 use pm_kind, only: IKG => IK4
16477 type(rdpack_type) , intent(in) :: dpack
16478 type(rfpack_type) , intent(in) :: spack
16479 type(lowDia_type) , intent(in) :: subset
16480 integer(IKG) , intent(in) , optional :: init
16481 integer(IKG) , intent(in) :: source(:,:)
16482 integer(IKG) , allocatable :: destin(:,:)
16483 end function
16484#endif
16485
16486#if IK3_ENABLED
16487 PURE module function getMatCopy_RDP_RFP_XLD_AIO_IK3(dpack, source, spack, subset, init) result(destin)
16488#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16489 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RFP_XLD_AIO_IK3
16490#endif
16491 use pm_kind, only: IKG => IK3
16492 type(rdpack_type) , intent(in) :: dpack
16493 type(rfpack_type) , intent(in) :: spack
16494 type(lowDia_type) , intent(in) :: subset
16495 integer(IKG) , intent(in) , optional :: init
16496 integer(IKG) , intent(in) :: source(:,:)
16497 integer(IKG) , allocatable :: destin(:,:)
16498 end function
16499#endif
16500
16501#if IK2_ENABLED
16502 PURE module function getMatCopy_RDP_RFP_XLD_AIO_IK2(dpack, source, spack, subset, init) result(destin)
16503#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16504 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RFP_XLD_AIO_IK2
16505#endif
16506 use pm_kind, only: IKG => IK2
16507 type(rdpack_type) , intent(in) :: dpack
16508 type(rfpack_type) , intent(in) :: spack
16509 type(lowDia_type) , intent(in) :: subset
16510 integer(IKG) , intent(in) , optional :: init
16511 integer(IKG) , intent(in) :: source(:,:)
16512 integer(IKG) , allocatable :: destin(:,:)
16513 end function
16514#endif
16515
16516#if IK1_ENABLED
16517 PURE module function getMatCopy_RDP_RFP_XLD_AIO_IK1(dpack, source, spack, subset, init) result(destin)
16518#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16519 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RFP_XLD_AIO_IK1
16520#endif
16521 use pm_kind, only: IKG => IK1
16522 type(rdpack_type) , intent(in) :: dpack
16523 type(rfpack_type) , intent(in) :: spack
16524 type(lowDia_type) , intent(in) :: subset
16525 integer(IKG) , intent(in) , optional :: init
16526 integer(IKG) , intent(in) :: source(:,:)
16527 integer(IKG) , allocatable :: destin(:,:)
16528 end function
16529#endif
16530
16531 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16532
16533#if LK5_ENABLED
16534 PURE module function getMatCopy_RDP_RFP_XLD_AIO_LK5(dpack, source, spack, subset, init) result(destin)
16535#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16536 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RFP_XLD_AIO_LK5
16537#endif
16538 use pm_kind, only: LKG => LK5
16539 type(rdpack_type) , intent(in) :: dpack
16540 type(rfpack_type) , intent(in) :: spack
16541 type(lowDia_type) , intent(in) :: subset
16542 logical(LKG) , intent(in) , optional :: init
16543 logical(LKG) , intent(in) :: source(:,:)
16544 logical(LKG) , allocatable :: destin(:,:)
16545 end function
16546#endif
16547
16548#if LK4_ENABLED
16549 PURE module function getMatCopy_RDP_RFP_XLD_AIO_LK4(dpack, source, spack, subset, init) result(destin)
16550#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16551 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RFP_XLD_AIO_LK4
16552#endif
16553 use pm_kind, only: LKG => LK4
16554 type(rdpack_type) , intent(in) :: dpack
16555 type(rfpack_type) , intent(in) :: spack
16556 type(lowDia_type) , intent(in) :: subset
16557 logical(LKG) , intent(in) , optional :: init
16558 logical(LKG) , intent(in) :: source(:,:)
16559 logical(LKG) , allocatable :: destin(:,:)
16560 end function
16561#endif
16562
16563#if LK3_ENABLED
16564 PURE module function getMatCopy_RDP_RFP_XLD_AIO_LK3(dpack, source, spack, subset, init) result(destin)
16565#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16566 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RFP_XLD_AIO_LK3
16567#endif
16568 use pm_kind, only: LKG => LK3
16569 type(rdpack_type) , intent(in) :: dpack
16570 type(rfpack_type) , intent(in) :: spack
16571 type(lowDia_type) , intent(in) :: subset
16572 logical(LKG) , intent(in) , optional :: init
16573 logical(LKG) , intent(in) :: source(:,:)
16574 logical(LKG) , allocatable :: destin(:,:)
16575 end function
16576#endif
16577
16578#if LK2_ENABLED
16579 PURE module function getMatCopy_RDP_RFP_XLD_AIO_LK2(dpack, source, spack, subset, init) result(destin)
16580#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16581 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RFP_XLD_AIO_LK2
16582#endif
16583 use pm_kind, only: LKG => LK2
16584 type(rdpack_type) , intent(in) :: dpack
16585 type(rfpack_type) , intent(in) :: spack
16586 type(lowDia_type) , intent(in) :: subset
16587 logical(LKG) , intent(in) , optional :: init
16588 logical(LKG) , intent(in) :: source(:,:)
16589 logical(LKG) , allocatable :: destin(:,:)
16590 end function
16591#endif
16592
16593#if LK1_ENABLED
16594 PURE module function getMatCopy_RDP_RFP_XLD_AIO_LK1(dpack, source, spack, subset, init) result(destin)
16595#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16596 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RFP_XLD_AIO_LK1
16597#endif
16598 use pm_kind, only: LKG => LK1
16599 type(rdpack_type) , intent(in) :: dpack
16600 type(rfpack_type) , intent(in) :: spack
16601 type(lowDia_type) , intent(in) :: subset
16602 logical(LKG) , intent(in) , optional :: init
16603 logical(LKG) , intent(in) :: source(:,:)
16604 logical(LKG) , allocatable :: destin(:,:)
16605 end function
16606#endif
16607
16608 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16609
16610#if CK5_ENABLED
16611 PURE module function getMatCopy_RDP_RFP_XLD_AIO_CK5(dpack, source, spack, subset, init) result(destin)
16612#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16613 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RFP_XLD_AIO_CK5
16614#endif
16615 use pm_kind, only: CKG => CK5
16616 type(rdpack_type) , intent(in) :: dpack
16617 type(rfpack_type) , intent(in) :: spack
16618 type(lowDia_type) , intent(in) :: subset
16619 complex(CKG) , intent(in) , optional :: init
16620 complex(CKG) , intent(in) :: source(:,:)
16621 complex(CKG) , allocatable :: destin(:,:)
16622 end function
16623#endif
16624
16625#if CK4_ENABLED
16626 PURE module function getMatCopy_RDP_RFP_XLD_AIO_CK4(dpack, source, spack, subset, init) result(destin)
16627#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16628 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RFP_XLD_AIO_CK4
16629#endif
16630 use pm_kind, only: CKG => CK4
16631 type(rdpack_type) , intent(in) :: dpack
16632 type(rfpack_type) , intent(in) :: spack
16633 type(lowDia_type) , intent(in) :: subset
16634 complex(CKG) , intent(in) , optional :: init
16635 complex(CKG) , intent(in) :: source(:,:)
16636 complex(CKG) , allocatable :: destin(:,:)
16637 end function
16638#endif
16639
16640#if CK3_ENABLED
16641 PURE module function getMatCopy_RDP_RFP_XLD_AIO_CK3(dpack, source, spack, subset, init) result(destin)
16642#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16643 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RFP_XLD_AIO_CK3
16644#endif
16645 use pm_kind, only: CKG => CK3
16646 type(rdpack_type) , intent(in) :: dpack
16647 type(rfpack_type) , intent(in) :: spack
16648 type(lowDia_type) , intent(in) :: subset
16649 complex(CKG) , intent(in) , optional :: init
16650 complex(CKG) , intent(in) :: source(:,:)
16651 complex(CKG) , allocatable :: destin(:,:)
16652 end function
16653#endif
16654
16655#if CK2_ENABLED
16656 PURE module function getMatCopy_RDP_RFP_XLD_AIO_CK2(dpack, source, spack, subset, init) result(destin)
16657#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16658 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RFP_XLD_AIO_CK2
16659#endif
16660 use pm_kind, only: CKG => CK2
16661 type(rdpack_type) , intent(in) :: dpack
16662 type(rfpack_type) , intent(in) :: spack
16663 type(lowDia_type) , intent(in) :: subset
16664 complex(CKG) , intent(in) , optional :: init
16665 complex(CKG) , intent(in) :: source(:,:)
16666 complex(CKG) , allocatable :: destin(:,:)
16667 end function
16668#endif
16669
16670#if CK1_ENABLED
16671 PURE module function getMatCopy_RDP_RFP_XLD_AIO_CK1(dpack, source, spack, subset, init) result(destin)
16672#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16673 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RFP_XLD_AIO_CK1
16674#endif
16675 use pm_kind, only: CKG => CK1
16676 type(rdpack_type) , intent(in) :: dpack
16677 type(rfpack_type) , intent(in) :: spack
16678 type(lowDia_type) , intent(in) :: subset
16679 complex(CKG) , intent(in) , optional :: init
16680 complex(CKG) , intent(in) :: source(:,:)
16681 complex(CKG) , allocatable :: destin(:,:)
16682 end function
16683#endif
16684
16685 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16686
16687#if RK5_ENABLED
16688 PURE module function getMatCopy_RDP_RFP_XLD_AIO_RK5(dpack, source, spack, subset, init) result(destin)
16689#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16690 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RFP_XLD_AIO_RK5
16691#endif
16692 use pm_kind, only: RKG => RK5
16693 type(rdpack_type) , intent(in) :: dpack
16694 type(rfpack_type) , intent(in) :: spack
16695 type(lowDia_type) , intent(in) :: subset
16696 real(RKG) , intent(in) , optional :: init
16697 real(RKG) , intent(in) :: source(:,:)
16698 real(RKG) , allocatable :: destin(:,:)
16699 end function
16700#endif
16701
16702#if RK4_ENABLED
16703 PURE module function getMatCopy_RDP_RFP_XLD_AIO_RK4(dpack, source, spack, subset, init) result(destin)
16704#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16705 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RFP_XLD_AIO_RK4
16706#endif
16707 use pm_kind, only: RKG => RK4
16708 type(rdpack_type) , intent(in) :: dpack
16709 type(rfpack_type) , intent(in) :: spack
16710 type(lowDia_type) , intent(in) :: subset
16711 real(RKG) , intent(in) , optional :: init
16712 real(RKG) , intent(in) :: source(:,:)
16713 real(RKG) , allocatable :: destin(:,:)
16714 end function
16715#endif
16716
16717#if RK3_ENABLED
16718 PURE module function getMatCopy_RDP_RFP_XLD_AIO_RK3(dpack, source, spack, subset, init) result(destin)
16719#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16720 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RFP_XLD_AIO_RK3
16721#endif
16722 use pm_kind, only: RKG => RK3
16723 type(rdpack_type) , intent(in) :: dpack
16724 type(rfpack_type) , intent(in) :: spack
16725 type(lowDia_type) , intent(in) :: subset
16726 real(RKG) , intent(in) , optional :: init
16727 real(RKG) , intent(in) :: source(:,:)
16728 real(RKG) , allocatable :: destin(:,:)
16729 end function
16730#endif
16731
16732#if RK2_ENABLED
16733 PURE module function getMatCopy_RDP_RFP_XLD_AIO_RK2(dpack, source, spack, subset, init) result(destin)
16734#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16735 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RFP_XLD_AIO_RK2
16736#endif
16737 use pm_kind, only: RKG => RK2
16738 type(rdpack_type) , intent(in) :: dpack
16739 type(rfpack_type) , intent(in) :: spack
16740 type(lowDia_type) , intent(in) :: subset
16741 real(RKG) , intent(in) , optional :: init
16742 real(RKG) , intent(in) :: source(:,:)
16743 real(RKG) , allocatable :: destin(:,:)
16744 end function
16745#endif
16746
16747#if RK1_ENABLED
16748 PURE module function getMatCopy_RDP_RFP_XLD_AIO_RK1(dpack, source, spack, subset, init) result(destin)
16749#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16750 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RDP_RFP_XLD_AIO_RK1
16751#endif
16752 use pm_kind, only: RKG => RK1
16753 type(rdpack_type) , intent(in) :: dpack
16754 type(rfpack_type) , intent(in) :: spack
16755 type(lowDia_type) , intent(in) :: subset
16756 real(RKG) , intent(in) , optional :: init
16757 real(RKG) , intent(in) :: source(:,:)
16758 real(RKG) , allocatable :: destin(:,:)
16759 end function
16760#endif
16761
16762 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16763
16764 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16765 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16766 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16767
16768 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16769 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16770 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16771
16772 end interface getMatCopy
16773
16774 ! package: rfpack, rdpack
16775
16776 interface getMatCopy
16777
16778 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16779 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16780 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16781
16782 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16783 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16784 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16785
16786 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16787
16788#if SK5_ENABLED
16789 PURE module function getMatCopy_RFP_RDP_UXD_AIO_SK5(dpack, source, spack, subset, init) result(destin)
16790#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16791 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RFP_RDP_UXD_AIO_SK5
16792#endif
16793 use pm_kind, only: SKG => SK5
16794 type(rfpack_type) , intent(in) :: dpack
16795 type(rdpack_type) , intent(in) :: spack
16796 type(uppDia_type) , intent(in) :: subset
16797 character(*,SKG) , intent(in) , optional :: init
16798 character(*,SKG) , intent(in) :: source(:,:)
16799 character(len(source,IK),SKG) , allocatable :: destin(:,:)
16800 end function
16801#endif
16802
16803#if SK4_ENABLED
16804 PURE module function getMatCopy_RFP_RDP_UXD_AIO_SK4(dpack, source, spack, subset, init) result(destin)
16805#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16806 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RFP_RDP_UXD_AIO_SK4
16807#endif
16808 use pm_kind, only: SKG => SK4
16809 type(rfpack_type) , intent(in) :: dpack
16810 type(rdpack_type) , intent(in) :: spack
16811 type(uppDia_type) , intent(in) :: subset
16812 character(*,SKG) , intent(in) , optional :: init
16813 character(*,SKG) , intent(in) :: source(:,:)
16814 character(len(source,IK),SKG) , allocatable :: destin(:,:)
16815 end function
16816#endif
16817
16818#if SK3_ENABLED
16819 PURE module function getMatCopy_RFP_RDP_UXD_AIO_SK3(dpack, source, spack, subset, init) result(destin)
16820#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16821 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RFP_RDP_UXD_AIO_SK3
16822#endif
16823 use pm_kind, only: SKG => SK3
16824 type(rfpack_type) , intent(in) :: dpack
16825 type(rdpack_type) , intent(in) :: spack
16826 type(uppDia_type) , intent(in) :: subset
16827 character(*,SKG) , intent(in) , optional :: init
16828 character(*,SKG) , intent(in) :: source(:,:)
16829 character(len(source,IK),SKG) , allocatable :: destin(:,:)
16830 end function
16831#endif
16832
16833#if SK2_ENABLED
16834 PURE module function getMatCopy_RFP_RDP_UXD_AIO_SK2(dpack, source, spack, subset, init) result(destin)
16835#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16836 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RFP_RDP_UXD_AIO_SK2
16837#endif
16838 use pm_kind, only: SKG => SK2
16839 type(rfpack_type) , intent(in) :: dpack
16840 type(rdpack_type) , intent(in) :: spack
16841 type(uppDia_type) , intent(in) :: subset
16842 character(*,SKG) , intent(in) , optional :: init
16843 character(*,SKG) , intent(in) :: source(:,:)
16844 character(len(source,IK),SKG) , allocatable :: destin(:,:)
16845 end function
16846#endif
16847
16848#if SK1_ENABLED
16849 PURE module function getMatCopy_RFP_RDP_UXD_AIO_SK1(dpack, source, spack, subset, init) result(destin)
16850#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16851 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RFP_RDP_UXD_AIO_SK1
16852#endif
16853 use pm_kind, only: SKG => SK1
16854 type(rfpack_type) , intent(in) :: dpack
16855 type(rdpack_type) , intent(in) :: spack
16856 type(uppDia_type) , intent(in) :: subset
16857 character(*,SKG) , intent(in) , optional :: init
16858 character(*,SKG) , intent(in) :: source(:,:)
16859 character(len(source,IK),SKG) , allocatable :: destin(:,:)
16860 end function
16861#endif
16862
16863 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16864
16865#if IK5_ENABLED
16866 PURE module function getMatCopy_RFP_RDP_UXD_AIO_IK5(dpack, source, spack, subset, init) result(destin)
16867#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16868 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RFP_RDP_UXD_AIO_IK5
16869#endif
16870 use pm_kind, only: IKG => IK5
16871 type(rfpack_type) , intent(in) :: dpack
16872 type(rdpack_type) , intent(in) :: spack
16873 type(uppDia_type) , intent(in) :: subset
16874 integer(IKG) , intent(in) , optional :: init
16875 integer(IKG) , intent(in) :: source(:,:)
16876 integer(IKG) , allocatable :: destin(:,:)
16877 end function
16878#endif
16879
16880#if IK4_ENABLED
16881 PURE module function getMatCopy_RFP_RDP_UXD_AIO_IK4(dpack, source, spack, subset, init) result(destin)
16882#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16883 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RFP_RDP_UXD_AIO_IK4
16884#endif
16885 use pm_kind, only: IKG => IK4
16886 type(rfpack_type) , intent(in) :: dpack
16887 type(rdpack_type) , intent(in) :: spack
16888 type(uppDia_type) , intent(in) :: subset
16889 integer(IKG) , intent(in) , optional :: init
16890 integer(IKG) , intent(in) :: source(:,:)
16891 integer(IKG) , allocatable :: destin(:,:)
16892 end function
16893#endif
16894
16895#if IK3_ENABLED
16896 PURE module function getMatCopy_RFP_RDP_UXD_AIO_IK3(dpack, source, spack, subset, init) result(destin)
16897#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16898 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RFP_RDP_UXD_AIO_IK3
16899#endif
16900 use pm_kind, only: IKG => IK3
16901 type(rfpack_type) , intent(in) :: dpack
16902 type(rdpack_type) , intent(in) :: spack
16903 type(uppDia_type) , intent(in) :: subset
16904 integer(IKG) , intent(in) , optional :: init
16905 integer(IKG) , intent(in) :: source(:,:)
16906 integer(IKG) , allocatable :: destin(:,:)
16907 end function
16908#endif
16909
16910#if IK2_ENABLED
16911 PURE module function getMatCopy_RFP_RDP_UXD_AIO_IK2(dpack, source, spack, subset, init) result(destin)
16912#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16913 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RFP_RDP_UXD_AIO_IK2
16914#endif
16915 use pm_kind, only: IKG => IK2
16916 type(rfpack_type) , intent(in) :: dpack
16917 type(rdpack_type) , intent(in) :: spack
16918 type(uppDia_type) , intent(in) :: subset
16919 integer(IKG) , intent(in) , optional :: init
16920 integer(IKG) , intent(in) :: source(:,:)
16921 integer(IKG) , allocatable :: destin(:,:)
16922 end function
16923#endif
16924
16925#if IK1_ENABLED
16926 PURE module function getMatCopy_RFP_RDP_UXD_AIO_IK1(dpack, source, spack, subset, init) result(destin)
16927#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16928 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RFP_RDP_UXD_AIO_IK1
16929#endif
16930 use pm_kind, only: IKG => IK1
16931 type(rfpack_type) , intent(in) :: dpack
16932 type(rdpack_type) , intent(in) :: spack
16933 type(uppDia_type) , intent(in) :: subset
16934 integer(IKG) , intent(in) , optional :: init
16935 integer(IKG) , intent(in) :: source(:,:)
16936 integer(IKG) , allocatable :: destin(:,:)
16937 end function
16938#endif
16939
16940 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16941
16942#if LK5_ENABLED
16943 PURE module function getMatCopy_RFP_RDP_UXD_AIO_LK5(dpack, source, spack, subset, init) result(destin)
16944#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16945 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RFP_RDP_UXD_AIO_LK5
16946#endif
16947 use pm_kind, only: LKG => LK5
16948 type(rfpack_type) , intent(in) :: dpack
16949 type(rdpack_type) , intent(in) :: spack
16950 type(uppDia_type) , intent(in) :: subset
16951 logical(LKG) , intent(in) , optional :: init
16952 logical(LKG) , intent(in) :: source(:,:)
16953 logical(LKG) , allocatable :: destin(:,:)
16954 end function
16955#endif
16956
16957#if LK4_ENABLED
16958 PURE module function getMatCopy_RFP_RDP_UXD_AIO_LK4(dpack, source, spack, subset, init) result(destin)
16959#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16960 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RFP_RDP_UXD_AIO_LK4
16961#endif
16962 use pm_kind, only: LKG => LK4
16963 type(rfpack_type) , intent(in) :: dpack
16964 type(rdpack_type) , intent(in) :: spack
16965 type(uppDia_type) , intent(in) :: subset
16966 logical(LKG) , intent(in) , optional :: init
16967 logical(LKG) , intent(in) :: source(:,:)
16968 logical(LKG) , allocatable :: destin(:,:)
16969 end function
16970#endif
16971
16972#if LK3_ENABLED
16973 PURE module function getMatCopy_RFP_RDP_UXD_AIO_LK3(dpack, source, spack, subset, init) result(destin)
16974#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16975 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RFP_RDP_UXD_AIO_LK3
16976#endif
16977 use pm_kind, only: LKG => LK3
16978 type(rfpack_type) , intent(in) :: dpack
16979 type(rdpack_type) , intent(in) :: spack
16980 type(uppDia_type) , intent(in) :: subset
16981 logical(LKG) , intent(in) , optional :: init
16982 logical(LKG) , intent(in) :: source(:,:)
16983 logical(LKG) , allocatable :: destin(:,:)
16984 end function
16985#endif
16986
16987#if LK2_ENABLED
16988 PURE module function getMatCopy_RFP_RDP_UXD_AIO_LK2(dpack, source, spack, subset, init) result(destin)
16989#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16990 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RFP_RDP_UXD_AIO_LK2
16991#endif
16992 use pm_kind, only: LKG => LK2
16993 type(rfpack_type) , intent(in) :: dpack
16994 type(rdpack_type) , intent(in) :: spack
16995 type(uppDia_type) , intent(in) :: subset
16996 logical(LKG) , intent(in) , optional :: init
16997 logical(LKG) , intent(in) :: source(:,:)
16998 logical(LKG) , allocatable :: destin(:,:)
16999 end function
17000#endif
17001
17002#if LK1_ENABLED
17003 PURE module function getMatCopy_RFP_RDP_UXD_AIO_LK1(dpack, source, spack, subset, init) result(destin)
17004#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17005 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RFP_RDP_UXD_AIO_LK1
17006#endif
17007 use pm_kind, only: LKG => LK1
17008 type(rfpack_type) , intent(in) :: dpack
17009 type(rdpack_type) , intent(in) :: spack
17010 type(uppDia_type) , intent(in) :: subset
17011 logical(LKG) , intent(in) , optional :: init
17012 logical(LKG) , intent(in) :: source(:,:)
17013 logical(LKG) , allocatable :: destin(:,:)
17014 end function
17015#endif
17016
17017 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17018
17019#if CK5_ENABLED
17020 PURE module function getMatCopy_RFP_RDP_UXD_AIO_CK5(dpack, source, spack, subset, init) result(destin)
17021#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17022 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RFP_RDP_UXD_AIO_CK5
17023#endif
17024 use pm_kind, only: CKG => CK5
17025 type(rfpack_type) , intent(in) :: dpack
17026 type(rdpack_type) , intent(in) :: spack
17027 type(uppDia_type) , intent(in) :: subset
17028 complex(CKG) , intent(in) , optional :: init
17029 complex(CKG) , intent(in) :: source(:,:)
17030 complex(CKG) , allocatable :: destin(:,:)
17031 end function
17032#endif
17033
17034#if CK4_ENABLED
17035 PURE module function getMatCopy_RFP_RDP_UXD_AIO_CK4(dpack, source, spack, subset, init) result(destin)
17036#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17037 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RFP_RDP_UXD_AIO_CK4
17038#endif
17039 use pm_kind, only: CKG => CK4
17040 type(rfpack_type) , intent(in) :: dpack
17041 type(rdpack_type) , intent(in) :: spack
17042 type(uppDia_type) , intent(in) :: subset
17043 complex(CKG) , intent(in) , optional :: init
17044 complex(CKG) , intent(in) :: source(:,:)
17045 complex(CKG) , allocatable :: destin(:,:)
17046 end function
17047#endif
17048
17049#if CK3_ENABLED
17050 PURE module function getMatCopy_RFP_RDP_UXD_AIO_CK3(dpack, source, spack, subset, init) result(destin)
17051#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17052 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RFP_RDP_UXD_AIO_CK3
17053#endif
17054 use pm_kind, only: CKG => CK3
17055 type(rfpack_type) , intent(in) :: dpack
17056 type(rdpack_type) , intent(in) :: spack
17057 type(uppDia_type) , intent(in) :: subset
17058 complex(CKG) , intent(in) , optional :: init
17059 complex(CKG) , intent(in) :: source(:,:)
17060 complex(CKG) , allocatable :: destin(:,:)
17061 end function
17062#endif
17063
17064#if CK2_ENABLED
17065 PURE module function getMatCopy_RFP_RDP_UXD_AIO_CK2(dpack, source, spack, subset, init) result(destin)
17066#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17067 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RFP_RDP_UXD_AIO_CK2
17068#endif
17069 use pm_kind, only: CKG => CK2
17070 type(rfpack_type) , intent(in) :: dpack
17071 type(rdpack_type) , intent(in) :: spack
17072 type(uppDia_type) , intent(in) :: subset
17073 complex(CKG) , intent(in) , optional :: init
17074 complex(CKG) , intent(in) :: source(:,:)
17075 complex(CKG) , allocatable :: destin(:,:)
17076 end function
17077#endif
17078
17079#if CK1_ENABLED
17080 PURE module function getMatCopy_RFP_RDP_UXD_AIO_CK1(dpack, source, spack, subset, init) result(destin)
17081#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17082 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RFP_RDP_UXD_AIO_CK1
17083#endif
17084 use pm_kind, only: CKG => CK1
17085 type(rfpack_type) , intent(in) :: dpack
17086 type(rdpack_type) , intent(in) :: spack
17087 type(uppDia_type) , intent(in) :: subset
17088 complex(CKG) , intent(in) , optional :: init
17089 complex(CKG) , intent(in) :: source(:,:)
17090 complex(CKG) , allocatable :: destin(:,:)
17091 end function
17092#endif
17093
17094 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17095
17096#if RK5_ENABLED
17097 PURE module function getMatCopy_RFP_RDP_UXD_AIO_RK5(dpack, source, spack, subset, init) result(destin)
17098#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17099 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RFP_RDP_UXD_AIO_RK5
17100#endif
17101 use pm_kind, only: RKG => RK5
17102 type(rfpack_type) , intent(in) :: dpack
17103 type(rdpack_type) , intent(in) :: spack
17104 type(uppDia_type) , intent(in) :: subset
17105 real(RKG) , intent(in) , optional :: init
17106 real(RKG) , intent(in) :: source(:,:)
17107 real(RKG) , allocatable :: destin(:,:)
17108 end function
17109#endif
17110
17111#if RK4_ENABLED
17112 PURE module function getMatCopy_RFP_RDP_UXD_AIO_RK4(dpack, source, spack, subset, init) result(destin)
17113#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17114 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RFP_RDP_UXD_AIO_RK4
17115#endif
17116 use pm_kind, only: RKG => RK4
17117 type(rfpack_type) , intent(in) :: dpack
17118 type(rdpack_type) , intent(in) :: spack
17119 type(uppDia_type) , intent(in) :: subset
17120 real(RKG) , intent(in) , optional :: init
17121 real(RKG) , intent(in) :: source(:,:)
17122 real(RKG) , allocatable :: destin(:,:)
17123 end function
17124#endif
17125
17126#if RK3_ENABLED
17127 PURE module function getMatCopy_RFP_RDP_UXD_AIO_RK3(dpack, source, spack, subset, init) result(destin)
17128#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17129 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RFP_RDP_UXD_AIO_RK3
17130#endif
17131 use pm_kind, only: RKG => RK3
17132 type(rfpack_type) , intent(in) :: dpack
17133 type(rdpack_type) , intent(in) :: spack
17134 type(uppDia_type) , intent(in) :: subset
17135 real(RKG) , intent(in) , optional :: init
17136 real(RKG) , intent(in) :: source(:,:)
17137 real(RKG) , allocatable :: destin(:,:)
17138 end function
17139#endif
17140
17141#if RK2_ENABLED
17142 PURE module function getMatCopy_RFP_RDP_UXD_AIO_RK2(dpack, source, spack, subset, init) result(destin)
17143#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17144 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RFP_RDP_UXD_AIO_RK2
17145#endif
17146 use pm_kind, only: RKG => RK2
17147 type(rfpack_type) , intent(in) :: dpack
17148 type(rdpack_type) , intent(in) :: spack
17149 type(uppDia_type) , intent(in) :: subset
17150 real(RKG) , intent(in) , optional :: init
17151 real(RKG) , intent(in) :: source(:,:)
17152 real(RKG) , allocatable :: destin(:,:)
17153 end function
17154#endif
17155
17156#if RK1_ENABLED
17157 PURE module function getMatCopy_RFP_RDP_UXD_AIO_RK1(dpack, source, spack, subset, init) result(destin)
17158#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17159 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RFP_RDP_UXD_AIO_RK1
17160#endif
17161 use pm_kind, only: RKG => RK1
17162 type(rfpack_type) , intent(in) :: dpack
17163 type(rdpack_type) , intent(in) :: spack
17164 type(uppDia_type) , intent(in) :: subset
17165 real(RKG) , intent(in) , optional :: init
17166 real(RKG) , intent(in) :: source(:,:)
17167 real(RKG) , allocatable :: destin(:,:)
17168 end function
17169#endif
17170
17171 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17172
17173 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17174 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17175 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17176
17177 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17178 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17179 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17180
17181 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17182
17183#if SK5_ENABLED
17184 PURE module function getMatCopy_RFP_RDP_XLD_AIO_SK5(dpack, source, spack, subset, init) result(destin)
17185#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17186 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RFP_RDP_XLD_AIO_SK5
17187#endif
17188 use pm_kind, only: SKG => SK5
17189 type(rfpack_type) , intent(in) :: dpack
17190 type(rdpack_type) , intent(in) :: spack
17191 type(lowDia_type) , intent(in) :: subset
17192 character(*,SKG) , intent(in) , optional :: init
17193 character(*,SKG) , intent(in) :: source(:,:)
17194 character(len(source,IK),SKG) , allocatable :: destin(:,:)
17195 end function
17196#endif
17197
17198#if SK4_ENABLED
17199 PURE module function getMatCopy_RFP_RDP_XLD_AIO_SK4(dpack, source, spack, subset, init) result(destin)
17200#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17201 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RFP_RDP_XLD_AIO_SK4
17202#endif
17203 use pm_kind, only: SKG => SK4
17204 type(rfpack_type) , intent(in) :: dpack
17205 type(rdpack_type) , intent(in) :: spack
17206 type(lowDia_type) , intent(in) :: subset
17207 character(*,SKG) , intent(in) , optional :: init
17208 character(*,SKG) , intent(in) :: source(:,:)
17209 character(len(source,IK),SKG) , allocatable :: destin(:,:)
17210 end function
17211#endif
17212
17213#if SK3_ENABLED
17214 PURE module function getMatCopy_RFP_RDP_XLD_AIO_SK3(dpack, source, spack, subset, init) result(destin)
17215#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17216 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RFP_RDP_XLD_AIO_SK3
17217#endif
17218 use pm_kind, only: SKG => SK3
17219 type(rfpack_type) , intent(in) :: dpack
17220 type(rdpack_type) , intent(in) :: spack
17221 type(lowDia_type) , intent(in) :: subset
17222 character(*,SKG) , intent(in) , optional :: init
17223 character(*,SKG) , intent(in) :: source(:,:)
17224 character(len(source,IK),SKG) , allocatable :: destin(:,:)
17225 end function
17226#endif
17227
17228#if SK2_ENABLED
17229 PURE module function getMatCopy_RFP_RDP_XLD_AIO_SK2(dpack, source, spack, subset, init) result(destin)
17230#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17231 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RFP_RDP_XLD_AIO_SK2
17232#endif
17233 use pm_kind, only: SKG => SK2
17234 type(rfpack_type) , intent(in) :: dpack
17235 type(rdpack_type) , intent(in) :: spack
17236 type(lowDia_type) , intent(in) :: subset
17237 character(*,SKG) , intent(in) , optional :: init
17238 character(*,SKG) , intent(in) :: source(:,:)
17239 character(len(source,IK),SKG) , allocatable :: destin(:,:)
17240 end function
17241#endif
17242
17243#if SK1_ENABLED
17244 PURE module function getMatCopy_RFP_RDP_XLD_AIO_SK1(dpack, source, spack, subset, init) result(destin)
17245#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17246 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RFP_RDP_XLD_AIO_SK1
17247#endif
17248 use pm_kind, only: SKG => SK1
17249 type(rfpack_type) , intent(in) :: dpack
17250 type(rdpack_type) , intent(in) :: spack
17251 type(lowDia_type) , intent(in) :: subset
17252 character(*,SKG) , intent(in) , optional :: init
17253 character(*,SKG) , intent(in) :: source(:,:)
17254 character(len(source,IK),SKG) , allocatable :: destin(:,:)
17255 end function
17256#endif
17257
17258 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17259
17260#if IK5_ENABLED
17261 PURE module function getMatCopy_RFP_RDP_XLD_AIO_IK5(dpack, source, spack, subset, init) result(destin)
17262#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17263 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RFP_RDP_XLD_AIO_IK5
17264#endif
17265 use pm_kind, only: IKG => IK5
17266 type(rfpack_type) , intent(in) :: dpack
17267 type(rdpack_type) , intent(in) :: spack
17268 type(lowDia_type) , intent(in) :: subset
17269 integer(IKG) , intent(in) , optional :: init
17270 integer(IKG) , intent(in) :: source(:,:)
17271 integer(IKG) , allocatable :: destin(:,:)
17272 end function
17273#endif
17274
17275#if IK4_ENABLED
17276 PURE module function getMatCopy_RFP_RDP_XLD_AIO_IK4(dpack, source, spack, subset, init) result(destin)
17277#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17278 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RFP_RDP_XLD_AIO_IK4
17279#endif
17280 use pm_kind, only: IKG => IK4
17281 type(rfpack_type) , intent(in) :: dpack
17282 type(rdpack_type) , intent(in) :: spack
17283 type(lowDia_type) , intent(in) :: subset
17284 integer(IKG) , intent(in) , optional :: init
17285 integer(IKG) , intent(in) :: source(:,:)
17286 integer(IKG) , allocatable :: destin(:,:)
17287 end function
17288#endif
17289
17290#if IK3_ENABLED
17291 PURE module function getMatCopy_RFP_RDP_XLD_AIO_IK3(dpack, source, spack, subset, init) result(destin)
17292#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17293 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RFP_RDP_XLD_AIO_IK3
17294#endif
17295 use pm_kind, only: IKG => IK3
17296 type(rfpack_type) , intent(in) :: dpack
17297 type(rdpack_type) , intent(in) :: spack
17298 type(lowDia_type) , intent(in) :: subset
17299 integer(IKG) , intent(in) , optional :: init
17300 integer(IKG) , intent(in) :: source(:,:)
17301 integer(IKG) , allocatable :: destin(:,:)
17302 end function
17303#endif
17304
17305#if IK2_ENABLED
17306 PURE module function getMatCopy_RFP_RDP_XLD_AIO_IK2(dpack, source, spack, subset, init) result(destin)
17307#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17308 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RFP_RDP_XLD_AIO_IK2
17309#endif
17310 use pm_kind, only: IKG => IK2
17311 type(rfpack_type) , intent(in) :: dpack
17312 type(rdpack_type) , intent(in) :: spack
17313 type(lowDia_type) , intent(in) :: subset
17314 integer(IKG) , intent(in) , optional :: init
17315 integer(IKG) , intent(in) :: source(:,:)
17316 integer(IKG) , allocatable :: destin(:,:)
17317 end function
17318#endif
17319
17320#if IK1_ENABLED
17321 PURE module function getMatCopy_RFP_RDP_XLD_AIO_IK1(dpack, source, spack, subset, init) result(destin)
17322#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17323 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RFP_RDP_XLD_AIO_IK1
17324#endif
17325 use pm_kind, only: IKG => IK1
17326 type(rfpack_type) , intent(in) :: dpack
17327 type(rdpack_type) , intent(in) :: spack
17328 type(lowDia_type) , intent(in) :: subset
17329 integer(IKG) , intent(in) , optional :: init
17330 integer(IKG) , intent(in) :: source(:,:)
17331 integer(IKG) , allocatable :: destin(:,:)
17332 end function
17333#endif
17334
17335 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17336
17337#if LK5_ENABLED
17338 PURE module function getMatCopy_RFP_RDP_XLD_AIO_LK5(dpack, source, spack, subset, init) result(destin)
17339#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17340 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RFP_RDP_XLD_AIO_LK5
17341#endif
17342 use pm_kind, only: LKG => LK5
17343 type(rfpack_type) , intent(in) :: dpack
17344 type(rdpack_type) , intent(in) :: spack
17345 type(lowDia_type) , intent(in) :: subset
17346 logical(LKG) , intent(in) , optional :: init
17347 logical(LKG) , intent(in) :: source(:,:)
17348 logical(LKG) , allocatable :: destin(:,:)
17349 end function
17350#endif
17351
17352#if LK4_ENABLED
17353 PURE module function getMatCopy_RFP_RDP_XLD_AIO_LK4(dpack, source, spack, subset, init) result(destin)
17354#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17355 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RFP_RDP_XLD_AIO_LK4
17356#endif
17357 use pm_kind, only: LKG => LK4
17358 type(rfpack_type) , intent(in) :: dpack
17359 type(rdpack_type) , intent(in) :: spack
17360 type(lowDia_type) , intent(in) :: subset
17361 logical(LKG) , intent(in) , optional :: init
17362 logical(LKG) , intent(in) :: source(:,:)
17363 logical(LKG) , allocatable :: destin(:,:)
17364 end function
17365#endif
17366
17367#if LK3_ENABLED
17368 PURE module function getMatCopy_RFP_RDP_XLD_AIO_LK3(dpack, source, spack, subset, init) result(destin)
17369#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17370 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RFP_RDP_XLD_AIO_LK3
17371#endif
17372 use pm_kind, only: LKG => LK3
17373 type(rfpack_type) , intent(in) :: dpack
17374 type(rdpack_type) , intent(in) :: spack
17375 type(lowDia_type) , intent(in) :: subset
17376 logical(LKG) , intent(in) , optional :: init
17377 logical(LKG) , intent(in) :: source(:,:)
17378 logical(LKG) , allocatable :: destin(:,:)
17379 end function
17380#endif
17381
17382#if LK2_ENABLED
17383 PURE module function getMatCopy_RFP_RDP_XLD_AIO_LK2(dpack, source, spack, subset, init) result(destin)
17384#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17385 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RFP_RDP_XLD_AIO_LK2
17386#endif
17387 use pm_kind, only: LKG => LK2
17388 type(rfpack_type) , intent(in) :: dpack
17389 type(rdpack_type) , intent(in) :: spack
17390 type(lowDia_type) , intent(in) :: subset
17391 logical(LKG) , intent(in) , optional :: init
17392 logical(LKG) , intent(in) :: source(:,:)
17393 logical(LKG) , allocatable :: destin(:,:)
17394 end function
17395#endif
17396
17397#if LK1_ENABLED
17398 PURE module function getMatCopy_RFP_RDP_XLD_AIO_LK1(dpack, source, spack, subset, init) result(destin)
17399#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17400 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RFP_RDP_XLD_AIO_LK1
17401#endif
17402 use pm_kind, only: LKG => LK1
17403 type(rfpack_type) , intent(in) :: dpack
17404 type(rdpack_type) , intent(in) :: spack
17405 type(lowDia_type) , intent(in) :: subset
17406 logical(LKG) , intent(in) , optional :: init
17407 logical(LKG) , intent(in) :: source(:,:)
17408 logical(LKG) , allocatable :: destin(:,:)
17409 end function
17410#endif
17411
17412 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17413
17414#if CK5_ENABLED
17415 PURE module function getMatCopy_RFP_RDP_XLD_AIO_CK5(dpack, source, spack, subset, init) result(destin)
17416#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17417 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RFP_RDP_XLD_AIO_CK5
17418#endif
17419 use pm_kind, only: CKG => CK5
17420 type(rfpack_type) , intent(in) :: dpack
17421 type(rdpack_type) , intent(in) :: spack
17422 type(lowDia_type) , intent(in) :: subset
17423 complex(CKG) , intent(in) , optional :: init
17424 complex(CKG) , intent(in) :: source(:,:)
17425 complex(CKG) , allocatable :: destin(:,:)
17426 end function
17427#endif
17428
17429#if CK4_ENABLED
17430 PURE module function getMatCopy_RFP_RDP_XLD_AIO_CK4(dpack, source, spack, subset, init) result(destin)
17431#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17432 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RFP_RDP_XLD_AIO_CK4
17433#endif
17434 use pm_kind, only: CKG => CK4
17435 type(rfpack_type) , intent(in) :: dpack
17436 type(rdpack_type) , intent(in) :: spack
17437 type(lowDia_type) , intent(in) :: subset
17438 complex(CKG) , intent(in) , optional :: init
17439 complex(CKG) , intent(in) :: source(:,:)
17440 complex(CKG) , allocatable :: destin(:,:)
17441 end function
17442#endif
17443
17444#if CK3_ENABLED
17445 PURE module function getMatCopy_RFP_RDP_XLD_AIO_CK3(dpack, source, spack, subset, init) result(destin)
17446#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17447 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RFP_RDP_XLD_AIO_CK3
17448#endif
17449 use pm_kind, only: CKG => CK3
17450 type(rfpack_type) , intent(in) :: dpack
17451 type(rdpack_type) , intent(in) :: spack
17452 type(lowDia_type) , intent(in) :: subset
17453 complex(CKG) , intent(in) , optional :: init
17454 complex(CKG) , intent(in) :: source(:,:)
17455 complex(CKG) , allocatable :: destin(:,:)
17456 end function
17457#endif
17458
17459#if CK2_ENABLED
17460 PURE module function getMatCopy_RFP_RDP_XLD_AIO_CK2(dpack, source, spack, subset, init) result(destin)
17461#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17462 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RFP_RDP_XLD_AIO_CK2
17463#endif
17464 use pm_kind, only: CKG => CK2
17465 type(rfpack_type) , intent(in) :: dpack
17466 type(rdpack_type) , intent(in) :: spack
17467 type(lowDia_type) , intent(in) :: subset
17468 complex(CKG) , intent(in) , optional :: init
17469 complex(CKG) , intent(in) :: source(:,:)
17470 complex(CKG) , allocatable :: destin(:,:)
17471 end function
17472#endif
17473
17474#if CK1_ENABLED
17475 PURE module function getMatCopy_RFP_RDP_XLD_AIO_CK1(dpack, source, spack, subset, init) result(destin)
17476#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17477 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RFP_RDP_XLD_AIO_CK1
17478#endif
17479 use pm_kind, only: CKG => CK1
17480 type(rfpack_type) , intent(in) :: dpack
17481 type(rdpack_type) , intent(in) :: spack
17482 type(lowDia_type) , intent(in) :: subset
17483 complex(CKG) , intent(in) , optional :: init
17484 complex(CKG) , intent(in) :: source(:,:)
17485 complex(CKG) , allocatable :: destin(:,:)
17486 end function
17487#endif
17488
17489 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17490
17491#if RK5_ENABLED
17492 PURE module function getMatCopy_RFP_RDP_XLD_AIO_RK5(dpack, source, spack, subset, init) result(destin)
17493#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17494 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RFP_RDP_XLD_AIO_RK5
17495#endif
17496 use pm_kind, only: RKG => RK5
17497 type(rfpack_type) , intent(in) :: dpack
17498 type(rdpack_type) , intent(in) :: spack
17499 type(lowDia_type) , intent(in) :: subset
17500 real(RKG) , intent(in) , optional :: init
17501 real(RKG) , intent(in) :: source(:,:)
17502 real(RKG) , allocatable :: destin(:,:)
17503 end function
17504#endif
17505
17506#if RK4_ENABLED
17507 PURE module function getMatCopy_RFP_RDP_XLD_AIO_RK4(dpack, source, spack, subset, init) result(destin)
17508#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17509 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RFP_RDP_XLD_AIO_RK4
17510#endif
17511 use pm_kind, only: RKG => RK4
17512 type(rfpack_type) , intent(in) :: dpack
17513 type(rdpack_type) , intent(in) :: spack
17514 type(lowDia_type) , intent(in) :: subset
17515 real(RKG) , intent(in) , optional :: init
17516 real(RKG) , intent(in) :: source(:,:)
17517 real(RKG) , allocatable :: destin(:,:)
17518 end function
17519#endif
17520
17521#if RK3_ENABLED
17522 PURE module function getMatCopy_RFP_RDP_XLD_AIO_RK3(dpack, source, spack, subset, init) result(destin)
17523#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17524 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RFP_RDP_XLD_AIO_RK3
17525#endif
17526 use pm_kind, only: RKG => RK3
17527 type(rfpack_type) , intent(in) :: dpack
17528 type(rdpack_type) , intent(in) :: spack
17529 type(lowDia_type) , intent(in) :: subset
17530 real(RKG) , intent(in) , optional :: init
17531 real(RKG) , intent(in) :: source(:,:)
17532 real(RKG) , allocatable :: destin(:,:)
17533 end function
17534#endif
17535
17536#if RK2_ENABLED
17537 PURE module function getMatCopy_RFP_RDP_XLD_AIO_RK2(dpack, source, spack, subset, init) result(destin)
17538#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17539 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RFP_RDP_XLD_AIO_RK2
17540#endif
17541 use pm_kind, only: RKG => RK2
17542 type(rfpack_type) , intent(in) :: dpack
17543 type(rdpack_type) , intent(in) :: spack
17544 type(lowDia_type) , intent(in) :: subset
17545 real(RKG) , intent(in) , optional :: init
17546 real(RKG) , intent(in) :: source(:,:)
17547 real(RKG) , allocatable :: destin(:,:)
17548 end function
17549#endif
17550
17551#if RK1_ENABLED
17552 PURE module function getMatCopy_RFP_RDP_XLD_AIO_RK1(dpack, source, spack, subset, init) result(destin)
17553#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17554 !DEC$ ATTRIBUTES DLLEXPORT :: getMatCopy_RFP_RDP_XLD_AIO_RK1
17555#endif
17556 use pm_kind, only: RKG => RK1
17557 type(rfpack_type) , intent(in) :: dpack
17558 type(rdpack_type) , intent(in) :: spack
17559 type(lowDia_type) , intent(in) :: subset
17560 real(RKG) , intent(in) , optional :: init
17561 real(RKG) , intent(in) :: source(:,:)
17562 real(RKG) , allocatable :: destin(:,:)
17563 end function
17564#endif
17565
17566 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17567
17568 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17569 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17570 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17571
17572 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17573 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17574 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17575
17576 end interface getMatCopy
17577
17578!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17579
17745
17746 ! package: rdpack, rdpack
17747
17748 interface setMatCopy
17749
17750 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17751 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17752 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17753
17754 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17755 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17756 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17757
17758 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17759
17760#if SK5_ENABLED
17761 PURE module subroutine setMatCopy_RDP_RDP_UXX_AIO_SK5(destin, dpack, source, spack, subset, doff)
17762#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17763 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_AIO_SK5
17764#endif
17765 use pm_kind, only: SKG => SK5
17766 type(rdpack_type) , intent(in) :: dpack
17767 type(rdpack_type) , intent(in) :: spack
17768 type(upp_type) , intent(in) :: subset
17769 integer(IK) , intent(in) , optional :: doff
17770 character(*,SKG) , intent(in) :: source(:,:)
17771 character(*,SKG) , intent(inout) :: destin(:,:)
17772 end subroutine
17773#endif
17774
17775#if SK4_ENABLED
17776 PURE module subroutine setMatCopy_RDP_RDP_UXX_AIO_SK4(destin, dpack, source, spack, subset, doff)
17777#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17778 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_AIO_SK4
17779#endif
17780 use pm_kind, only: SKG => SK4
17781 type(rdpack_type) , intent(in) :: dpack
17782 type(rdpack_type) , intent(in) :: spack
17783 type(upp_type) , intent(in) :: subset
17784 integer(IK) , intent(in) , optional :: doff
17785 character(*,SKG) , intent(in) :: source(:,:)
17786 character(*,SKG) , intent(inout) :: destin(:,:)
17787 end subroutine
17788#endif
17789
17790#if SK3_ENABLED
17791 PURE module subroutine setMatCopy_RDP_RDP_UXX_AIO_SK3(destin, dpack, source, spack, subset, doff)
17792#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17793 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_AIO_SK3
17794#endif
17795 use pm_kind, only: SKG => SK3
17796 type(rdpack_type) , intent(in) :: dpack
17797 type(rdpack_type) , intent(in) :: spack
17798 type(upp_type) , intent(in) :: subset
17799 integer(IK) , intent(in) , optional :: doff
17800 character(*,SKG) , intent(in) :: source(:,:)
17801 character(*,SKG) , intent(inout) :: destin(:,:)
17802 end subroutine
17803#endif
17804
17805#if SK2_ENABLED
17806 PURE module subroutine setMatCopy_RDP_RDP_UXX_AIO_SK2(destin, dpack, source, spack, subset, doff)
17807#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17808 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_AIO_SK2
17809#endif
17810 use pm_kind, only: SKG => SK2
17811 type(rdpack_type) , intent(in) :: dpack
17812 type(rdpack_type) , intent(in) :: spack
17813 type(upp_type) , intent(in) :: subset
17814 integer(IK) , intent(in) , optional :: doff
17815 character(*,SKG) , intent(in) :: source(:,:)
17816 character(*,SKG) , intent(inout) :: destin(:,:)
17817 end subroutine
17818#endif
17819
17820#if SK1_ENABLED
17821 PURE module subroutine setMatCopy_RDP_RDP_UXX_AIO_SK1(destin, dpack, source, spack, subset, doff)
17822#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17823 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_AIO_SK1
17824#endif
17825 use pm_kind, only: SKG => SK1
17826 type(rdpack_type) , intent(in) :: dpack
17827 type(rdpack_type) , intent(in) :: spack
17828 type(upp_type) , intent(in) :: subset
17829 integer(IK) , intent(in) , optional :: doff
17830 character(*,SKG) , intent(in) :: source(:,:)
17831 character(*,SKG) , intent(inout) :: destin(:,:)
17832 end subroutine
17833#endif
17834
17835 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17836
17837#if IK5_ENABLED
17838 PURE module subroutine setMatCopy_RDP_RDP_UXX_AIO_IK5(destin, dpack, source, spack, subset, doff)
17839#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17840 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_AIO_IK5
17841#endif
17842 use pm_kind, only: IKG => IK5
17843 type(rdpack_type) , intent(in) :: dpack
17844 type(rdpack_type) , intent(in) :: spack
17845 type(upp_type) , intent(in) :: subset
17846 integer(IK) , intent(in) , optional :: doff
17847 integer(IKG) , intent(in) :: source(:,:)
17848 integer(IKG) , intent(inout) :: destin(:,:)
17849 end subroutine
17850#endif
17851
17852#if IK4_ENABLED
17853 PURE module subroutine setMatCopy_RDP_RDP_UXX_AIO_IK4(destin, dpack, source, spack, subset, doff)
17854#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17855 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_AIO_IK4
17856#endif
17857 use pm_kind, only: IKG => IK4
17858 type(rdpack_type) , intent(in) :: dpack
17859 type(rdpack_type) , intent(in) :: spack
17860 type(upp_type) , intent(in) :: subset
17861 integer(IK) , intent(in) , optional :: doff
17862 integer(IKG) , intent(in) :: source(:,:)
17863 integer(IKG) , intent(inout) :: destin(:,:)
17864 end subroutine
17865#endif
17866
17867#if IK3_ENABLED
17868 PURE module subroutine setMatCopy_RDP_RDP_UXX_AIO_IK3(destin, dpack, source, spack, subset, doff)
17869#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17870 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_AIO_IK3
17871#endif
17872 use pm_kind, only: IKG => IK3
17873 type(rdpack_type) , intent(in) :: dpack
17874 type(rdpack_type) , intent(in) :: spack
17875 type(upp_type) , intent(in) :: subset
17876 integer(IK) , intent(in) , optional :: doff
17877 integer(IKG) , intent(in) :: source(:,:)
17878 integer(IKG) , intent(inout) :: destin(:,:)
17879 end subroutine
17880#endif
17881
17882#if IK2_ENABLED
17883 PURE module subroutine setMatCopy_RDP_RDP_UXX_AIO_IK2(destin, dpack, source, spack, subset, doff)
17884#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17885 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_AIO_IK2
17886#endif
17887 use pm_kind, only: IKG => IK2
17888 type(rdpack_type) , intent(in) :: dpack
17889 type(rdpack_type) , intent(in) :: spack
17890 type(upp_type) , intent(in) :: subset
17891 integer(IK) , intent(in) , optional :: doff
17892 integer(IKG) , intent(in) :: source(:,:)
17893 integer(IKG) , intent(inout) :: destin(:,:)
17894 end subroutine
17895#endif
17896
17897#if IK1_ENABLED
17898 PURE module subroutine setMatCopy_RDP_RDP_UXX_AIO_IK1(destin, dpack, source, spack, subset, doff)
17899#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17900 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_AIO_IK1
17901#endif
17902 use pm_kind, only: IKG => IK1
17903 type(rdpack_type) , intent(in) :: dpack
17904 type(rdpack_type) , intent(in) :: spack
17905 type(upp_type) , intent(in) :: subset
17906 integer(IK) , intent(in) , optional :: doff
17907 integer(IKG) , intent(in) :: source(:,:)
17908 integer(IKG) , intent(inout) :: destin(:,:)
17909 end subroutine
17910#endif
17911
17912 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17913
17914#if LK5_ENABLED
17915 PURE module subroutine setMatCopy_RDP_RDP_UXX_AIO_LK5(destin, dpack, source, spack, subset, doff)
17916#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17917 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_AIO_LK5
17918#endif
17919 use pm_kind, only: LKG => LK5
17920 type(rdpack_type) , intent(in) :: dpack
17921 type(rdpack_type) , intent(in) :: spack
17922 type(upp_type) , intent(in) :: subset
17923 integer(IK) , intent(in) , optional :: doff
17924 logical(LKG) , intent(in) :: source(:,:)
17925 logical(LKG) , intent(inout) :: destin(:,:)
17926 end subroutine
17927#endif
17928
17929#if LK4_ENABLED
17930 PURE module subroutine setMatCopy_RDP_RDP_UXX_AIO_LK4(destin, dpack, source, spack, subset, doff)
17931#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17932 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_AIO_LK4
17933#endif
17934 use pm_kind, only: LKG => LK4
17935 type(rdpack_type) , intent(in) :: dpack
17936 type(rdpack_type) , intent(in) :: spack
17937 type(upp_type) , intent(in) :: subset
17938 integer(IK) , intent(in) , optional :: doff
17939 logical(LKG) , intent(in) :: source(:,:)
17940 logical(LKG) , intent(inout) :: destin(:,:)
17941 end subroutine
17942#endif
17943
17944#if LK3_ENABLED
17945 PURE module subroutine setMatCopy_RDP_RDP_UXX_AIO_LK3(destin, dpack, source, spack, subset, doff)
17946#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17947 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_AIO_LK3
17948#endif
17949 use pm_kind, only: LKG => LK3
17950 type(rdpack_type) , intent(in) :: dpack
17951 type(rdpack_type) , intent(in) :: spack
17952 type(upp_type) , intent(in) :: subset
17953 integer(IK) , intent(in) , optional :: doff
17954 logical(LKG) , intent(in) :: source(:,:)
17955 logical(LKG) , intent(inout) :: destin(:,:)
17956 end subroutine
17957#endif
17958
17959#if LK2_ENABLED
17960 PURE module subroutine setMatCopy_RDP_RDP_UXX_AIO_LK2(destin, dpack, source, spack, subset, doff)
17961#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17962 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_AIO_LK2
17963#endif
17964 use pm_kind, only: LKG => LK2
17965 type(rdpack_type) , intent(in) :: dpack
17966 type(rdpack_type) , intent(in) :: spack
17967 type(upp_type) , intent(in) :: subset
17968 integer(IK) , intent(in) , optional :: doff
17969 logical(LKG) , intent(in) :: source(:,:)
17970 logical(LKG) , intent(inout) :: destin(:,:)
17971 end subroutine
17972#endif
17973
17974#if LK1_ENABLED
17975 PURE module subroutine setMatCopy_RDP_RDP_UXX_AIO_LK1(destin, dpack, source, spack, subset, doff)
17976#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17977 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_AIO_LK1
17978#endif
17979 use pm_kind, only: LKG => LK1
17980 type(rdpack_type) , intent(in) :: dpack
17981 type(rdpack_type) , intent(in) :: spack
17982 type(upp_type) , intent(in) :: subset
17983 integer(IK) , intent(in) , optional :: doff
17984 logical(LKG) , intent(in) :: source(:,:)
17985 logical(LKG) , intent(inout) :: destin(:,:)
17986 end subroutine
17987#endif
17988
17989 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17990
17991#if CK5_ENABLED
17992 PURE module subroutine setMatCopy_RDP_RDP_UXX_AIO_CK5(destin, dpack, source, spack, subset, doff)
17993#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17994 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_AIO_CK5
17995#endif
17996 use pm_kind, only: CKG => CK5
17997 type(rdpack_type) , intent(in) :: dpack
17998 type(rdpack_type) , intent(in) :: spack
17999 type(upp_type) , intent(in) :: subset
18000 integer(IK) , intent(in) , optional :: doff
18001 complex(CKG) , intent(in) :: source(:,:)
18002 complex(CKG) , intent(inout) :: destin(:,:)
18003 end subroutine
18004#endif
18005
18006#if CK4_ENABLED
18007 PURE module subroutine setMatCopy_RDP_RDP_UXX_AIO_CK4(destin, dpack, source, spack, subset, doff)
18008#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18009 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_AIO_CK4
18010#endif
18011 use pm_kind, only: CKG => CK4
18012 type(rdpack_type) , intent(in) :: dpack
18013 type(rdpack_type) , intent(in) :: spack
18014 type(upp_type) , intent(in) :: subset
18015 integer(IK) , intent(in) , optional :: doff
18016 complex(CKG) , intent(in) :: source(:,:)
18017 complex(CKG) , intent(inout) :: destin(:,:)
18018 end subroutine
18019#endif
18020
18021#if CK3_ENABLED
18022 PURE module subroutine setMatCopy_RDP_RDP_UXX_AIO_CK3(destin, dpack, source, spack, subset, doff)
18023#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18024 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_AIO_CK3
18025#endif
18026 use pm_kind, only: CKG => CK3
18027 type(rdpack_type) , intent(in) :: dpack
18028 type(rdpack_type) , intent(in) :: spack
18029 type(upp_type) , intent(in) :: subset
18030 integer(IK) , intent(in) , optional :: doff
18031 complex(CKG) , intent(in) :: source(:,:)
18032 complex(CKG) , intent(inout) :: destin(:,:)
18033 end subroutine
18034#endif
18035
18036#if CK2_ENABLED
18037 PURE module subroutine setMatCopy_RDP_RDP_UXX_AIO_CK2(destin, dpack, source, spack, subset, doff)
18038#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18039 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_AIO_CK2
18040#endif
18041 use pm_kind, only: CKG => CK2
18042 type(rdpack_type) , intent(in) :: dpack
18043 type(rdpack_type) , intent(in) :: spack
18044 type(upp_type) , intent(in) :: subset
18045 integer(IK) , intent(in) , optional :: doff
18046 complex(CKG) , intent(in) :: source(:,:)
18047 complex(CKG) , intent(inout) :: destin(:,:)
18048 end subroutine
18049#endif
18050
18051#if CK1_ENABLED
18052 PURE module subroutine setMatCopy_RDP_RDP_UXX_AIO_CK1(destin, dpack, source, spack, subset, doff)
18053#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18054 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_AIO_CK1
18055#endif
18056 use pm_kind, only: CKG => CK1
18057 type(rdpack_type) , intent(in) :: dpack
18058 type(rdpack_type) , intent(in) :: spack
18059 type(upp_type) , intent(in) :: subset
18060 integer(IK) , intent(in) , optional :: doff
18061 complex(CKG) , intent(in) :: source(:,:)
18062 complex(CKG) , intent(inout) :: destin(:,:)
18063 end subroutine
18064#endif
18065
18066 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18067
18068#if RK5_ENABLED
18069 PURE module subroutine setMatCopy_RDP_RDP_UXX_AIO_RK5(destin, dpack, source, spack, subset, doff)
18070#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18071 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_AIO_RK5
18072#endif
18073 use pm_kind, only: RKG => RK5
18074 type(rdpack_type) , intent(in) :: dpack
18075 type(rdpack_type) , intent(in) :: spack
18076 type(upp_type) , intent(in) :: subset
18077 integer(IK) , intent(in) , optional :: doff
18078 real(RKG) , intent(in) :: source(:,:)
18079 real(RKG) , intent(inout) :: destin(:,:)
18080 end subroutine
18081#endif
18082
18083#if RK4_ENABLED
18084 PURE module subroutine setMatCopy_RDP_RDP_UXX_AIO_RK4(destin, dpack, source, spack, subset, doff)
18085#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18086 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_AIO_RK4
18087#endif
18088 use pm_kind, only: RKG => RK4
18089 type(rdpack_type) , intent(in) :: dpack
18090 type(rdpack_type) , intent(in) :: spack
18091 type(upp_type) , intent(in) :: subset
18092 integer(IK) , intent(in) , optional :: doff
18093 real(RKG) , intent(in) :: source(:,:)
18094 real(RKG) , intent(inout) :: destin(:,:)
18095 end subroutine
18096#endif
18097
18098#if RK3_ENABLED
18099 PURE module subroutine setMatCopy_RDP_RDP_UXX_AIO_RK3(destin, dpack, source, spack, subset, doff)
18100#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18101 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_AIO_RK3
18102#endif
18103 use pm_kind, only: RKG => RK3
18104 type(rdpack_type) , intent(in) :: dpack
18105 type(rdpack_type) , intent(in) :: spack
18106 type(upp_type) , intent(in) :: subset
18107 integer(IK) , intent(in) , optional :: doff
18108 real(RKG) , intent(in) :: source(:,:)
18109 real(RKG) , intent(inout) :: destin(:,:)
18110 end subroutine
18111#endif
18112
18113#if RK2_ENABLED
18114 PURE module subroutine setMatCopy_RDP_RDP_UXX_AIO_RK2(destin, dpack, source, spack, subset, doff)
18115#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18116 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_AIO_RK2
18117#endif
18118 use pm_kind, only: RKG => RK2
18119 type(rdpack_type) , intent(in) :: dpack
18120 type(rdpack_type) , intent(in) :: spack
18121 type(upp_type) , intent(in) :: subset
18122 integer(IK) , intent(in) , optional :: doff
18123 real(RKG) , intent(in) :: source(:,:)
18124 real(RKG) , intent(inout) :: destin(:,:)
18125 end subroutine
18126#endif
18127
18128#if RK1_ENABLED
18129 PURE module subroutine setMatCopy_RDP_RDP_UXX_AIO_RK1(destin, dpack, source, spack, subset, doff)
18130#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18131 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_AIO_RK1
18132#endif
18133 use pm_kind, only: RKG => RK1
18134 type(rdpack_type) , intent(in) :: dpack
18135 type(rdpack_type) , intent(in) :: spack
18136 type(upp_type) , intent(in) :: subset
18137 integer(IK) , intent(in) , optional :: doff
18138 real(RKG) , intent(in) :: source(:,:)
18139 real(RKG) , intent(inout) :: destin(:,:)
18140 end subroutine
18141#endif
18142
18143 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18144
18145 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18146 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18147 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18148
18149 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18150
18151#if SK5_ENABLED
18152 PURE module subroutine setMatCopy_RDP_RDP_UXX_TSO_SK5(destin, dpack, source, spack, subset, operation, doff)
18153#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18154 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_TSO_SK5
18155#endif
18156 use pm_kind, only: SKG => SK5
18157 type(rdpack_type) , intent(in) :: dpack
18158 type(rdpack_type) , intent(in) :: spack
18159 type(upp_type) , intent(in) :: subset
18160 type(transSymm_type) , intent(in) :: operation
18161 integer(IK) , intent(in) , optional :: doff
18162 character(*,SKG) , intent(in) :: source(:,:)
18163 character(*,SKG) , intent(inout) :: destin(:,:)
18164 end subroutine
18165#endif
18166
18167#if SK4_ENABLED
18168 PURE module subroutine setMatCopy_RDP_RDP_UXX_TSO_SK4(destin, dpack, source, spack, subset, operation, doff)
18169#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18170 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_TSO_SK4
18171#endif
18172 use pm_kind, only: SKG => SK4
18173 type(rdpack_type) , intent(in) :: dpack
18174 type(rdpack_type) , intent(in) :: spack
18175 type(upp_type) , intent(in) :: subset
18176 type(transSymm_type) , intent(in) :: operation
18177 integer(IK) , intent(in) , optional :: doff
18178 character(*,SKG) , intent(in) :: source(:,:)
18179 character(*,SKG) , intent(inout) :: destin(:,:)
18180 end subroutine
18181#endif
18182
18183#if SK3_ENABLED
18184 PURE module subroutine setMatCopy_RDP_RDP_UXX_TSO_SK3(destin, dpack, source, spack, subset, operation, doff)
18185#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18186 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_TSO_SK3
18187#endif
18188 use pm_kind, only: SKG => SK3
18189 type(rdpack_type) , intent(in) :: dpack
18190 type(rdpack_type) , intent(in) :: spack
18191 type(upp_type) , intent(in) :: subset
18192 type(transSymm_type) , intent(in) :: operation
18193 integer(IK) , intent(in) , optional :: doff
18194 character(*,SKG) , intent(in) :: source(:,:)
18195 character(*,SKG) , intent(inout) :: destin(:,:)
18196 end subroutine
18197#endif
18198
18199#if SK2_ENABLED
18200 PURE module subroutine setMatCopy_RDP_RDP_UXX_TSO_SK2(destin, dpack, source, spack, subset, operation, doff)
18201#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18202 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_TSO_SK2
18203#endif
18204 use pm_kind, only: SKG => SK2
18205 type(rdpack_type) , intent(in) :: dpack
18206 type(rdpack_type) , intent(in) :: spack
18207 type(upp_type) , intent(in) :: subset
18208 type(transSymm_type) , intent(in) :: operation
18209 integer(IK) , intent(in) , optional :: doff
18210 character(*,SKG) , intent(in) :: source(:,:)
18211 character(*,SKG) , intent(inout) :: destin(:,:)
18212 end subroutine
18213#endif
18214
18215#if SK1_ENABLED
18216 PURE module subroutine setMatCopy_RDP_RDP_UXX_TSO_SK1(destin, dpack, source, spack, subset, operation, doff)
18217#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18218 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_TSO_SK1
18219#endif
18220 use pm_kind, only: SKG => SK1
18221 type(rdpack_type) , intent(in) :: dpack
18222 type(rdpack_type) , intent(in) :: spack
18223 type(upp_type) , intent(in) :: subset
18224 type(transSymm_type) , intent(in) :: operation
18225 integer(IK) , intent(in) , optional :: doff
18226 character(*,SKG) , intent(in) :: source(:,:)
18227 character(*,SKG) , intent(inout) :: destin(:,:)
18228 end subroutine
18229#endif
18230
18231 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18232
18233#if IK5_ENABLED
18234 PURE module subroutine setMatCopy_RDP_RDP_UXX_TSO_IK5(destin, dpack, source, spack, subset, operation, doff)
18235#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18236 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_TSO_IK5
18237#endif
18238 use pm_kind, only: IKG => IK5
18239 type(rdpack_type) , intent(in) :: dpack
18240 type(rdpack_type) , intent(in) :: spack
18241 type(upp_type) , intent(in) :: subset
18242 type(transSymm_type) , intent(in) :: operation
18243 integer(IK) , intent(in) , optional :: doff
18244 integer(IKG) , intent(in) :: source(:,:)
18245 integer(IKG) , intent(inout) :: destin(:,:)
18246 end subroutine
18247#endif
18248
18249#if IK4_ENABLED
18250 PURE module subroutine setMatCopy_RDP_RDP_UXX_TSO_IK4(destin, dpack, source, spack, subset, operation, doff)
18251#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18252 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_TSO_IK4
18253#endif
18254 use pm_kind, only: IKG => IK4
18255 type(rdpack_type) , intent(in) :: dpack
18256 type(rdpack_type) , intent(in) :: spack
18257 type(upp_type) , intent(in) :: subset
18258 type(transSymm_type) , intent(in) :: operation
18259 integer(IK) , intent(in) , optional :: doff
18260 integer(IKG) , intent(in) :: source(:,:)
18261 integer(IKG) , intent(inout) :: destin(:,:)
18262 end subroutine
18263#endif
18264
18265#if IK3_ENABLED
18266 PURE module subroutine setMatCopy_RDP_RDP_UXX_TSO_IK3(destin, dpack, source, spack, subset, operation, doff)
18267#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18268 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_TSO_IK3
18269#endif
18270 use pm_kind, only: IKG => IK3
18271 type(rdpack_type) , intent(in) :: dpack
18272 type(rdpack_type) , intent(in) :: spack
18273 type(upp_type) , intent(in) :: subset
18274 type(transSymm_type) , intent(in) :: operation
18275 integer(IK) , intent(in) , optional :: doff
18276 integer(IKG) , intent(in) :: source(:,:)
18277 integer(IKG) , intent(inout) :: destin(:,:)
18278 end subroutine
18279#endif
18280
18281#if IK2_ENABLED
18282 PURE module subroutine setMatCopy_RDP_RDP_UXX_TSO_IK2(destin, dpack, source, spack, subset, operation, doff)
18283#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18284 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_TSO_IK2
18285#endif
18286 use pm_kind, only: IKG => IK2
18287 type(rdpack_type) , intent(in) :: dpack
18288 type(rdpack_type) , intent(in) :: spack
18289 type(upp_type) , intent(in) :: subset
18290 type(transSymm_type) , intent(in) :: operation
18291 integer(IK) , intent(in) , optional :: doff
18292 integer(IKG) , intent(in) :: source(:,:)
18293 integer(IKG) , intent(inout) :: destin(:,:)
18294 end subroutine
18295#endif
18296
18297#if IK1_ENABLED
18298 PURE module subroutine setMatCopy_RDP_RDP_UXX_TSO_IK1(destin, dpack, source, spack, subset, operation, doff)
18299#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18300 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_TSO_IK1
18301#endif
18302 use pm_kind, only: IKG => IK1
18303 type(rdpack_type) , intent(in) :: dpack
18304 type(rdpack_type) , intent(in) :: spack
18305 type(upp_type) , intent(in) :: subset
18306 type(transSymm_type) , intent(in) :: operation
18307 integer(IK) , intent(in) , optional :: doff
18308 integer(IKG) , intent(in) :: source(:,:)
18309 integer(IKG) , intent(inout) :: destin(:,:)
18310 end subroutine
18311#endif
18312
18313 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18314
18315#if LK5_ENABLED
18316 PURE module subroutine setMatCopy_RDP_RDP_UXX_TSO_LK5(destin, dpack, source, spack, subset, operation, doff)
18317#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18318 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_TSO_LK5
18319#endif
18320 use pm_kind, only: LKG => LK5
18321 type(rdpack_type) , intent(in) :: dpack
18322 type(rdpack_type) , intent(in) :: spack
18323 type(upp_type) , intent(in) :: subset
18324 type(transSymm_type) , intent(in) :: operation
18325 integer(IK) , intent(in) , optional :: doff
18326 logical(LKG) , intent(in) :: source(:,:)
18327 logical(LKG) , intent(inout) :: destin(:,:)
18328 end subroutine
18329#endif
18330
18331#if LK4_ENABLED
18332 PURE module subroutine setMatCopy_RDP_RDP_UXX_TSO_LK4(destin, dpack, source, spack, subset, operation, doff)
18333#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18334 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_TSO_LK4
18335#endif
18336 use pm_kind, only: LKG => LK4
18337 type(rdpack_type) , intent(in) :: dpack
18338 type(rdpack_type) , intent(in) :: spack
18339 type(upp_type) , intent(in) :: subset
18340 type(transSymm_type) , intent(in) :: operation
18341 integer(IK) , intent(in) , optional :: doff
18342 logical(LKG) , intent(in) :: source(:,:)
18343 logical(LKG) , intent(inout) :: destin(:,:)
18344 end subroutine
18345#endif
18346
18347#if LK3_ENABLED
18348 PURE module subroutine setMatCopy_RDP_RDP_UXX_TSO_LK3(destin, dpack, source, spack, subset, operation, doff)
18349#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18350 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_TSO_LK3
18351#endif
18352 use pm_kind, only: LKG => LK3
18353 type(rdpack_type) , intent(in) :: dpack
18354 type(rdpack_type) , intent(in) :: spack
18355 type(upp_type) , intent(in) :: subset
18356 type(transSymm_type) , intent(in) :: operation
18357 integer(IK) , intent(in) , optional :: doff
18358 logical(LKG) , intent(in) :: source(:,:)
18359 logical(LKG) , intent(inout) :: destin(:,:)
18360 end subroutine
18361#endif
18362
18363#if LK2_ENABLED
18364 PURE module subroutine setMatCopy_RDP_RDP_UXX_TSO_LK2(destin, dpack, source, spack, subset, operation, doff)
18365#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18366 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_TSO_LK2
18367#endif
18368 use pm_kind, only: LKG => LK2
18369 type(rdpack_type) , intent(in) :: dpack
18370 type(rdpack_type) , intent(in) :: spack
18371 type(upp_type) , intent(in) :: subset
18372 type(transSymm_type) , intent(in) :: operation
18373 integer(IK) , intent(in) , optional :: doff
18374 logical(LKG) , intent(in) :: source(:,:)
18375 logical(LKG) , intent(inout) :: destin(:,:)
18376 end subroutine
18377#endif
18378
18379#if LK1_ENABLED
18380 PURE module subroutine setMatCopy_RDP_RDP_UXX_TSO_LK1(destin, dpack, source, spack, subset, operation, doff)
18381#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18382 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_TSO_LK1
18383#endif
18384 use pm_kind, only: LKG => LK1
18385 type(rdpack_type) , intent(in) :: dpack
18386 type(rdpack_type) , intent(in) :: spack
18387 type(upp_type) , intent(in) :: subset
18388 type(transSymm_type) , intent(in) :: operation
18389 integer(IK) , intent(in) , optional :: doff
18390 logical(LKG) , intent(in) :: source(:,:)
18391 logical(LKG) , intent(inout) :: destin(:,:)
18392 end subroutine
18393#endif
18394
18395 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18396
18397#if CK5_ENABLED
18398 PURE module subroutine setMatCopy_RDP_RDP_UXX_TSO_CK5(destin, dpack, source, spack, subset, operation, doff)
18399#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18400 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_TSO_CK5
18401#endif
18402 use pm_kind, only: CKG => CK5
18403 type(rdpack_type) , intent(in) :: dpack
18404 type(rdpack_type) , intent(in) :: spack
18405 type(upp_type) , intent(in) :: subset
18406 type(transSymm_type) , intent(in) :: operation
18407 integer(IK) , intent(in) , optional :: doff
18408 complex(CKG) , intent(in) :: source(:,:)
18409 complex(CKG) , intent(inout) :: destin(:,:)
18410 end subroutine
18411#endif
18412
18413#if CK4_ENABLED
18414 PURE module subroutine setMatCopy_RDP_RDP_UXX_TSO_CK4(destin, dpack, source, spack, subset, operation, doff)
18415#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18416 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_TSO_CK4
18417#endif
18418 use pm_kind, only: CKG => CK4
18419 type(rdpack_type) , intent(in) :: dpack
18420 type(rdpack_type) , intent(in) :: spack
18421 type(upp_type) , intent(in) :: subset
18422 type(transSymm_type) , intent(in) :: operation
18423 integer(IK) , intent(in) , optional :: doff
18424 complex(CKG) , intent(in) :: source(:,:)
18425 complex(CKG) , intent(inout) :: destin(:,:)
18426 end subroutine
18427#endif
18428
18429#if CK3_ENABLED
18430 PURE module subroutine setMatCopy_RDP_RDP_UXX_TSO_CK3(destin, dpack, source, spack, subset, operation, doff)
18431#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18432 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_TSO_CK3
18433#endif
18434 use pm_kind, only: CKG => CK3
18435 type(rdpack_type) , intent(in) :: dpack
18436 type(rdpack_type) , intent(in) :: spack
18437 type(upp_type) , intent(in) :: subset
18438 type(transSymm_type) , intent(in) :: operation
18439 integer(IK) , intent(in) , optional :: doff
18440 complex(CKG) , intent(in) :: source(:,:)
18441 complex(CKG) , intent(inout) :: destin(:,:)
18442 end subroutine
18443#endif
18444
18445#if CK2_ENABLED
18446 PURE module subroutine setMatCopy_RDP_RDP_UXX_TSO_CK2(destin, dpack, source, spack, subset, operation, doff)
18447#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18448 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_TSO_CK2
18449#endif
18450 use pm_kind, only: CKG => CK2
18451 type(rdpack_type) , intent(in) :: dpack
18452 type(rdpack_type) , intent(in) :: spack
18453 type(upp_type) , intent(in) :: subset
18454 type(transSymm_type) , intent(in) :: operation
18455 integer(IK) , intent(in) , optional :: doff
18456 complex(CKG) , intent(in) :: source(:,:)
18457 complex(CKG) , intent(inout) :: destin(:,:)
18458 end subroutine
18459#endif
18460
18461#if CK1_ENABLED
18462 PURE module subroutine setMatCopy_RDP_RDP_UXX_TSO_CK1(destin, dpack, source, spack, subset, operation, doff)
18463#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18464 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_TSO_CK1
18465#endif
18466 use pm_kind, only: CKG => CK1
18467 type(rdpack_type) , intent(in) :: dpack
18468 type(rdpack_type) , intent(in) :: spack
18469 type(upp_type) , intent(in) :: subset
18470 type(transSymm_type) , intent(in) :: operation
18471 integer(IK) , intent(in) , optional :: doff
18472 complex(CKG) , intent(in) :: source(:,:)
18473 complex(CKG) , intent(inout) :: destin(:,:)
18474 end subroutine
18475#endif
18476
18477 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18478
18479#if RK5_ENABLED
18480 PURE module subroutine setMatCopy_RDP_RDP_UXX_TSO_RK5(destin, dpack, source, spack, subset, operation, doff)
18481#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18482 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_TSO_RK5
18483#endif
18484 use pm_kind, only: RKG => RK5
18485 type(rdpack_type) , intent(in) :: dpack
18486 type(rdpack_type) , intent(in) :: spack
18487 type(upp_type) , intent(in) :: subset
18488 type(transSymm_type) , intent(in) :: operation
18489 integer(IK) , intent(in) , optional :: doff
18490 real(RKG) , intent(in) :: source(:,:)
18491 real(RKG) , intent(inout) :: destin(:,:)
18492 end subroutine
18493#endif
18494
18495#if RK4_ENABLED
18496 PURE module subroutine setMatCopy_RDP_RDP_UXX_TSO_RK4(destin, dpack, source, spack, subset, operation, doff)
18497#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18498 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_TSO_RK4
18499#endif
18500 use pm_kind, only: RKG => RK4
18501 type(rdpack_type) , intent(in) :: dpack
18502 type(rdpack_type) , intent(in) :: spack
18503 type(upp_type) , intent(in) :: subset
18504 type(transSymm_type) , intent(in) :: operation
18505 integer(IK) , intent(in) , optional :: doff
18506 real(RKG) , intent(in) :: source(:,:)
18507 real(RKG) , intent(inout) :: destin(:,:)
18508 end subroutine
18509#endif
18510
18511#if RK3_ENABLED
18512 PURE module subroutine setMatCopy_RDP_RDP_UXX_TSO_RK3(destin, dpack, source, spack, subset, operation, doff)
18513#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18514 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_TSO_RK3
18515#endif
18516 use pm_kind, only: RKG => RK3
18517 type(rdpack_type) , intent(in) :: dpack
18518 type(rdpack_type) , intent(in) :: spack
18519 type(upp_type) , intent(in) :: subset
18520 type(transSymm_type) , intent(in) :: operation
18521 integer(IK) , intent(in) , optional :: doff
18522 real(RKG) , intent(in) :: source(:,:)
18523 real(RKG) , intent(inout) :: destin(:,:)
18524 end subroutine
18525#endif
18526
18527#if RK2_ENABLED
18528 PURE module subroutine setMatCopy_RDP_RDP_UXX_TSO_RK2(destin, dpack, source, spack, subset, operation, doff)
18529#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18530 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_TSO_RK2
18531#endif
18532 use pm_kind, only: RKG => RK2
18533 type(rdpack_type) , intent(in) :: dpack
18534 type(rdpack_type) , intent(in) :: spack
18535 type(upp_type) , intent(in) :: subset
18536 type(transSymm_type) , intent(in) :: operation
18537 integer(IK) , intent(in) , optional :: doff
18538 real(RKG) , intent(in) :: source(:,:)
18539 real(RKG) , intent(inout) :: destin(:,:)
18540 end subroutine
18541#endif
18542
18543#if RK1_ENABLED
18544 PURE module subroutine setMatCopy_RDP_RDP_UXX_TSO_RK1(destin, dpack, source, spack, subset, operation, doff)
18545#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18546 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_TSO_RK1
18547#endif
18548 use pm_kind, only: RKG => RK1
18549 type(rdpack_type) , intent(in) :: dpack
18550 type(rdpack_type) , intent(in) :: spack
18551 type(upp_type) , intent(in) :: subset
18552 type(transSymm_type) , intent(in) :: operation
18553 integer(IK) , intent(in) , optional :: doff
18554 real(RKG) , intent(in) :: source(:,:)
18555 real(RKG) , intent(inout) :: destin(:,:)
18556 end subroutine
18557#endif
18558
18559 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18560
18561 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18562 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18563 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18564
18565 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18566
18567#if SK5_ENABLED
18568 PURE module subroutine setMatCopy_RDP_RDP_UXX_THO_SK5(destin, dpack, source, spack, subset, operation, doff)
18569#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18570 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_THO_SK5
18571#endif
18572 use pm_kind, only: SKG => SK5
18573 type(rdpack_type) , intent(in) :: dpack
18574 type(rdpack_type) , intent(in) :: spack
18575 type(upp_type) , intent(in) :: subset
18576 type(transHerm_type) , intent(in) :: operation
18577 integer(IK) , intent(in) , optional :: doff
18578 character(*,SKG) , intent(in) :: source(:,:)
18579 character(*,SKG) , intent(inout) :: destin(:,:)
18580 end subroutine
18581#endif
18582
18583#if SK4_ENABLED
18584 PURE module subroutine setMatCopy_RDP_RDP_UXX_THO_SK4(destin, dpack, source, spack, subset, operation, doff)
18585#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18586 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_THO_SK4
18587#endif
18588 use pm_kind, only: SKG => SK4
18589 type(rdpack_type) , intent(in) :: dpack
18590 type(rdpack_type) , intent(in) :: spack
18591 type(upp_type) , intent(in) :: subset
18592 type(transHerm_type) , intent(in) :: operation
18593 integer(IK) , intent(in) , optional :: doff
18594 character(*,SKG) , intent(in) :: source(:,:)
18595 character(*,SKG) , intent(inout) :: destin(:,:)
18596 end subroutine
18597#endif
18598
18599#if SK3_ENABLED
18600 PURE module subroutine setMatCopy_RDP_RDP_UXX_THO_SK3(destin, dpack, source, spack, subset, operation, doff)
18601#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18602 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_THO_SK3
18603#endif
18604 use pm_kind, only: SKG => SK3
18605 type(rdpack_type) , intent(in) :: dpack
18606 type(rdpack_type) , intent(in) :: spack
18607 type(upp_type) , intent(in) :: subset
18608 type(transHerm_type) , intent(in) :: operation
18609 integer(IK) , intent(in) , optional :: doff
18610 character(*,SKG) , intent(in) :: source(:,:)
18611 character(*,SKG) , intent(inout) :: destin(:,:)
18612 end subroutine
18613#endif
18614
18615#if SK2_ENABLED
18616 PURE module subroutine setMatCopy_RDP_RDP_UXX_THO_SK2(destin, dpack, source, spack, subset, operation, doff)
18617#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18618 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_THO_SK2
18619#endif
18620 use pm_kind, only: SKG => SK2
18621 type(rdpack_type) , intent(in) :: dpack
18622 type(rdpack_type) , intent(in) :: spack
18623 type(upp_type) , intent(in) :: subset
18624 type(transHerm_type) , intent(in) :: operation
18625 integer(IK) , intent(in) , optional :: doff
18626 character(*,SKG) , intent(in) :: source(:,:)
18627 character(*,SKG) , intent(inout) :: destin(:,:)
18628 end subroutine
18629#endif
18630
18631#if SK1_ENABLED
18632 PURE module subroutine setMatCopy_RDP_RDP_UXX_THO_SK1(destin, dpack, source, spack, subset, operation, doff)
18633#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18634 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_THO_SK1
18635#endif
18636 use pm_kind, only: SKG => SK1
18637 type(rdpack_type) , intent(in) :: dpack
18638 type(rdpack_type) , intent(in) :: spack
18639 type(upp_type) , intent(in) :: subset
18640 type(transHerm_type) , intent(in) :: operation
18641 integer(IK) , intent(in) , optional :: doff
18642 character(*,SKG) , intent(in) :: source(:,:)
18643 character(*,SKG) , intent(inout) :: destin(:,:)
18644 end subroutine
18645#endif
18646
18647 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18648
18649#if IK5_ENABLED
18650 PURE module subroutine setMatCopy_RDP_RDP_UXX_THO_IK5(destin, dpack, source, spack, subset, operation, doff)
18651#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18652 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_THO_IK5
18653#endif
18654 use pm_kind, only: IKG => IK5
18655 type(rdpack_type) , intent(in) :: dpack
18656 type(rdpack_type) , intent(in) :: spack
18657 type(upp_type) , intent(in) :: subset
18658 type(transHerm_type) , intent(in) :: operation
18659 integer(IK) , intent(in) , optional :: doff
18660 integer(IKG) , intent(in) :: source(:,:)
18661 integer(IKG) , intent(inout) :: destin(:,:)
18662 end subroutine
18663#endif
18664
18665#if IK4_ENABLED
18666 PURE module subroutine setMatCopy_RDP_RDP_UXX_THO_IK4(destin, dpack, source, spack, subset, operation, doff)
18667#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18668 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_THO_IK4
18669#endif
18670 use pm_kind, only: IKG => IK4
18671 type(rdpack_type) , intent(in) :: dpack
18672 type(rdpack_type) , intent(in) :: spack
18673 type(upp_type) , intent(in) :: subset
18674 type(transHerm_type) , intent(in) :: operation
18675 integer(IK) , intent(in) , optional :: doff
18676 integer(IKG) , intent(in) :: source(:,:)
18677 integer(IKG) , intent(inout) :: destin(:,:)
18678 end subroutine
18679#endif
18680
18681#if IK3_ENABLED
18682 PURE module subroutine setMatCopy_RDP_RDP_UXX_THO_IK3(destin, dpack, source, spack, subset, operation, doff)
18683#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18684 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_THO_IK3
18685#endif
18686 use pm_kind, only: IKG => IK3
18687 type(rdpack_type) , intent(in) :: dpack
18688 type(rdpack_type) , intent(in) :: spack
18689 type(upp_type) , intent(in) :: subset
18690 type(transHerm_type) , intent(in) :: operation
18691 integer(IK) , intent(in) , optional :: doff
18692 integer(IKG) , intent(in) :: source(:,:)
18693 integer(IKG) , intent(inout) :: destin(:,:)
18694 end subroutine
18695#endif
18696
18697#if IK2_ENABLED
18698 PURE module subroutine setMatCopy_RDP_RDP_UXX_THO_IK2(destin, dpack, source, spack, subset, operation, doff)
18699#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18700 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_THO_IK2
18701#endif
18702 use pm_kind, only: IKG => IK2
18703 type(rdpack_type) , intent(in) :: dpack
18704 type(rdpack_type) , intent(in) :: spack
18705 type(upp_type) , intent(in) :: subset
18706 type(transHerm_type) , intent(in) :: operation
18707 integer(IK) , intent(in) , optional :: doff
18708 integer(IKG) , intent(in) :: source(:,:)
18709 integer(IKG) , intent(inout) :: destin(:,:)
18710 end subroutine
18711#endif
18712
18713#if IK1_ENABLED
18714 PURE module subroutine setMatCopy_RDP_RDP_UXX_THO_IK1(destin, dpack, source, spack, subset, operation, doff)
18715#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18716 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_THO_IK1
18717#endif
18718 use pm_kind, only: IKG => IK1
18719 type(rdpack_type) , intent(in) :: dpack
18720 type(rdpack_type) , intent(in) :: spack
18721 type(upp_type) , intent(in) :: subset
18722 type(transHerm_type) , intent(in) :: operation
18723 integer(IK) , intent(in) , optional :: doff
18724 integer(IKG) , intent(in) :: source(:,:)
18725 integer(IKG) , intent(inout) :: destin(:,:)
18726 end subroutine
18727#endif
18728
18729 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18730
18731#if LK5_ENABLED
18732 PURE module subroutine setMatCopy_RDP_RDP_UXX_THO_LK5(destin, dpack, source, spack, subset, operation, doff)
18733#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18734 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_THO_LK5
18735#endif
18736 use pm_kind, only: LKG => LK5
18737 type(rdpack_type) , intent(in) :: dpack
18738 type(rdpack_type) , intent(in) :: spack
18739 type(upp_type) , intent(in) :: subset
18740 type(transHerm_type) , intent(in) :: operation
18741 integer(IK) , intent(in) , optional :: doff
18742 logical(LKG) , intent(in) :: source(:,:)
18743 logical(LKG) , intent(inout) :: destin(:,:)
18744 end subroutine
18745#endif
18746
18747#if LK4_ENABLED
18748 PURE module subroutine setMatCopy_RDP_RDP_UXX_THO_LK4(destin, dpack, source, spack, subset, operation, doff)
18749#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18750 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_THO_LK4
18751#endif
18752 use pm_kind, only: LKG => LK4
18753 type(rdpack_type) , intent(in) :: dpack
18754 type(rdpack_type) , intent(in) :: spack
18755 type(upp_type) , intent(in) :: subset
18756 type(transHerm_type) , intent(in) :: operation
18757 integer(IK) , intent(in) , optional :: doff
18758 logical(LKG) , intent(in) :: source(:,:)
18759 logical(LKG) , intent(inout) :: destin(:,:)
18760 end subroutine
18761#endif
18762
18763#if LK3_ENABLED
18764 PURE module subroutine setMatCopy_RDP_RDP_UXX_THO_LK3(destin, dpack, source, spack, subset, operation, doff)
18765#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18766 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_THO_LK3
18767#endif
18768 use pm_kind, only: LKG => LK3
18769 type(rdpack_type) , intent(in) :: dpack
18770 type(rdpack_type) , intent(in) :: spack
18771 type(upp_type) , intent(in) :: subset
18772 type(transHerm_type) , intent(in) :: operation
18773 integer(IK) , intent(in) , optional :: doff
18774 logical(LKG) , intent(in) :: source(:,:)
18775 logical(LKG) , intent(inout) :: destin(:,:)
18776 end subroutine
18777#endif
18778
18779#if LK2_ENABLED
18780 PURE module subroutine setMatCopy_RDP_RDP_UXX_THO_LK2(destin, dpack, source, spack, subset, operation, doff)
18781#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18782 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_THO_LK2
18783#endif
18784 use pm_kind, only: LKG => LK2
18785 type(rdpack_type) , intent(in) :: dpack
18786 type(rdpack_type) , intent(in) :: spack
18787 type(upp_type) , intent(in) :: subset
18788 type(transHerm_type) , intent(in) :: operation
18789 integer(IK) , intent(in) , optional :: doff
18790 logical(LKG) , intent(in) :: source(:,:)
18791 logical(LKG) , intent(inout) :: destin(:,:)
18792 end subroutine
18793#endif
18794
18795#if LK1_ENABLED
18796 PURE module subroutine setMatCopy_RDP_RDP_UXX_THO_LK1(destin, dpack, source, spack, subset, operation, doff)
18797#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18798 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_THO_LK1
18799#endif
18800 use pm_kind, only: LKG => LK1
18801 type(rdpack_type) , intent(in) :: dpack
18802 type(rdpack_type) , intent(in) :: spack
18803 type(upp_type) , intent(in) :: subset
18804 type(transHerm_type) , intent(in) :: operation
18805 integer(IK) , intent(in) , optional :: doff
18806 logical(LKG) , intent(in) :: source(:,:)
18807 logical(LKG) , intent(inout) :: destin(:,:)
18808 end subroutine
18809#endif
18810
18811 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18812
18813#if CK5_ENABLED
18814 PURE module subroutine setMatCopy_RDP_RDP_UXX_THO_CK5(destin, dpack, source, spack, subset, operation, doff)
18815#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18816 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_THO_CK5
18817#endif
18818 use pm_kind, only: CKG => CK5
18819 type(rdpack_type) , intent(in) :: dpack
18820 type(rdpack_type) , intent(in) :: spack
18821 type(upp_type) , intent(in) :: subset
18822 type(transHerm_type) , intent(in) :: operation
18823 integer(IK) , intent(in) , optional :: doff
18824 complex(CKG) , intent(in) :: source(:,:)
18825 complex(CKG) , intent(inout) :: destin(:,:)
18826 end subroutine
18827#endif
18828
18829#if CK4_ENABLED
18830 PURE module subroutine setMatCopy_RDP_RDP_UXX_THO_CK4(destin, dpack, source, spack, subset, operation, doff)
18831#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18832 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_THO_CK4
18833#endif
18834 use pm_kind, only: CKG => CK4
18835 type(rdpack_type) , intent(in) :: dpack
18836 type(rdpack_type) , intent(in) :: spack
18837 type(upp_type) , intent(in) :: subset
18838 type(transHerm_type) , intent(in) :: operation
18839 integer(IK) , intent(in) , optional :: doff
18840 complex(CKG) , intent(in) :: source(:,:)
18841 complex(CKG) , intent(inout) :: destin(:,:)
18842 end subroutine
18843#endif
18844
18845#if CK3_ENABLED
18846 PURE module subroutine setMatCopy_RDP_RDP_UXX_THO_CK3(destin, dpack, source, spack, subset, operation, doff)
18847#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18848 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_THO_CK3
18849#endif
18850 use pm_kind, only: CKG => CK3
18851 type(rdpack_type) , intent(in) :: dpack
18852 type(rdpack_type) , intent(in) :: spack
18853 type(upp_type) , intent(in) :: subset
18854 type(transHerm_type) , intent(in) :: operation
18855 integer(IK) , intent(in) , optional :: doff
18856 complex(CKG) , intent(in) :: source(:,:)
18857 complex(CKG) , intent(inout) :: destin(:,:)
18858 end subroutine
18859#endif
18860
18861#if CK2_ENABLED
18862 PURE module subroutine setMatCopy_RDP_RDP_UXX_THO_CK2(destin, dpack, source, spack, subset, operation, doff)
18863#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18864 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_THO_CK2
18865#endif
18866 use pm_kind, only: CKG => CK2
18867 type(rdpack_type) , intent(in) :: dpack
18868 type(rdpack_type) , intent(in) :: spack
18869 type(upp_type) , intent(in) :: subset
18870 type(transHerm_type) , intent(in) :: operation
18871 integer(IK) , intent(in) , optional :: doff
18872 complex(CKG) , intent(in) :: source(:,:)
18873 complex(CKG) , intent(inout) :: destin(:,:)
18874 end subroutine
18875#endif
18876
18877#if CK1_ENABLED
18878 PURE module subroutine setMatCopy_RDP_RDP_UXX_THO_CK1(destin, dpack, source, spack, subset, operation, doff)
18879#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18880 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_THO_CK1
18881#endif
18882 use pm_kind, only: CKG => CK1
18883 type(rdpack_type) , intent(in) :: dpack
18884 type(rdpack_type) , intent(in) :: spack
18885 type(upp_type) , intent(in) :: subset
18886 type(transHerm_type) , intent(in) :: operation
18887 integer(IK) , intent(in) , optional :: doff
18888 complex(CKG) , intent(in) :: source(:,:)
18889 complex(CKG) , intent(inout) :: destin(:,:)
18890 end subroutine
18891#endif
18892
18893 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18894
18895#if RK5_ENABLED
18896 PURE module subroutine setMatCopy_RDP_RDP_UXX_THO_RK5(destin, dpack, source, spack, subset, operation, doff)
18897#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18898 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_THO_RK5
18899#endif
18900 use pm_kind, only: RKG => RK5
18901 type(rdpack_type) , intent(in) :: dpack
18902 type(rdpack_type) , intent(in) :: spack
18903 type(upp_type) , intent(in) :: subset
18904 type(transHerm_type) , intent(in) :: operation
18905 integer(IK) , intent(in) , optional :: doff
18906 real(RKG) , intent(in) :: source(:,:)
18907 real(RKG) , intent(inout) :: destin(:,:)
18908 end subroutine
18909#endif
18910
18911#if RK4_ENABLED
18912 PURE module subroutine setMatCopy_RDP_RDP_UXX_THO_RK4(destin, dpack, source, spack, subset, operation, doff)
18913#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18914 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_THO_RK4
18915#endif
18916 use pm_kind, only: RKG => RK4
18917 type(rdpack_type) , intent(in) :: dpack
18918 type(rdpack_type) , intent(in) :: spack
18919 type(upp_type) , intent(in) :: subset
18920 type(transHerm_type) , intent(in) :: operation
18921 integer(IK) , intent(in) , optional :: doff
18922 real(RKG) , intent(in) :: source(:,:)
18923 real(RKG) , intent(inout) :: destin(:,:)
18924 end subroutine
18925#endif
18926
18927#if RK3_ENABLED
18928 PURE module subroutine setMatCopy_RDP_RDP_UXX_THO_RK3(destin, dpack, source, spack, subset, operation, doff)
18929#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18930 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_THO_RK3
18931#endif
18932 use pm_kind, only: RKG => RK3
18933 type(rdpack_type) , intent(in) :: dpack
18934 type(rdpack_type) , intent(in) :: spack
18935 type(upp_type) , intent(in) :: subset
18936 type(transHerm_type) , intent(in) :: operation
18937 integer(IK) , intent(in) , optional :: doff
18938 real(RKG) , intent(in) :: source(:,:)
18939 real(RKG) , intent(inout) :: destin(:,:)
18940 end subroutine
18941#endif
18942
18943#if RK2_ENABLED
18944 PURE module subroutine setMatCopy_RDP_RDP_UXX_THO_RK2(destin, dpack, source, spack, subset, operation, doff)
18945#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18946 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_THO_RK2
18947#endif
18948 use pm_kind, only: RKG => RK2
18949 type(rdpack_type) , intent(in) :: dpack
18950 type(rdpack_type) , intent(in) :: spack
18951 type(upp_type) , intent(in) :: subset
18952 type(transHerm_type) , intent(in) :: operation
18953 integer(IK) , intent(in) , optional :: doff
18954 real(RKG) , intent(in) :: source(:,:)
18955 real(RKG) , intent(inout) :: destin(:,:)
18956 end subroutine
18957#endif
18958
18959#if RK1_ENABLED
18960 PURE module subroutine setMatCopy_RDP_RDP_UXX_THO_RK1(destin, dpack, source, spack, subset, operation, doff)
18961#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18962 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXX_THO_RK1
18963#endif
18964 use pm_kind, only: RKG => RK1
18965 type(rdpack_type) , intent(in) :: dpack
18966 type(rdpack_type) , intent(in) :: spack
18967 type(upp_type) , intent(in) :: subset
18968 type(transHerm_type) , intent(in) :: operation
18969 integer(IK) , intent(in) , optional :: doff
18970 real(RKG) , intent(in) :: source(:,:)
18971 real(RKG) , intent(inout) :: destin(:,:)
18972 end subroutine
18973#endif
18974
18975 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18976
18977 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18978 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18979 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18980
18981 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18982 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18983 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18984
18985 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18986
18987#if SK5_ENABLED
18988 PURE module subroutine setMatCopy_RDP_RDP_XLX_AIO_SK5(destin, dpack, source, spack, subset, doff)
18989#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18990 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_AIO_SK5
18991#endif
18992 use pm_kind, only: SKG => SK5
18993 type(rdpack_type) , intent(in) :: dpack
18994 type(rdpack_type) , intent(in) :: spack
18995 type(low_type) , intent(in) :: subset
18996 integer(IK) , intent(in) , optional :: doff
18997 character(*,SKG) , intent(in) :: source(:,:)
18998 character(*,SKG) , intent(inout) :: destin(:,:)
18999 end subroutine
19000#endif
19001
19002#if SK4_ENABLED
19003 PURE module subroutine setMatCopy_RDP_RDP_XLX_AIO_SK4(destin, dpack, source, spack, subset, doff)
19004#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19005 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_AIO_SK4
19006#endif
19007 use pm_kind, only: SKG => SK4
19008 type(rdpack_type) , intent(in) :: dpack
19009 type(rdpack_type) , intent(in) :: spack
19010 type(low_type) , intent(in) :: subset
19011 integer(IK) , intent(in) , optional :: doff
19012 character(*,SKG) , intent(in) :: source(:,:)
19013 character(*,SKG) , intent(inout) :: destin(:,:)
19014 end subroutine
19015#endif
19016
19017#if SK3_ENABLED
19018 PURE module subroutine setMatCopy_RDP_RDP_XLX_AIO_SK3(destin, dpack, source, spack, subset, doff)
19019#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19020 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_AIO_SK3
19021#endif
19022 use pm_kind, only: SKG => SK3
19023 type(rdpack_type) , intent(in) :: dpack
19024 type(rdpack_type) , intent(in) :: spack
19025 type(low_type) , intent(in) :: subset
19026 integer(IK) , intent(in) , optional :: doff
19027 character(*,SKG) , intent(in) :: source(:,:)
19028 character(*,SKG) , intent(inout) :: destin(:,:)
19029 end subroutine
19030#endif
19031
19032#if SK2_ENABLED
19033 PURE module subroutine setMatCopy_RDP_RDP_XLX_AIO_SK2(destin, dpack, source, spack, subset, doff)
19034#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19035 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_AIO_SK2
19036#endif
19037 use pm_kind, only: SKG => SK2
19038 type(rdpack_type) , intent(in) :: dpack
19039 type(rdpack_type) , intent(in) :: spack
19040 type(low_type) , intent(in) :: subset
19041 integer(IK) , intent(in) , optional :: doff
19042 character(*,SKG) , intent(in) :: source(:,:)
19043 character(*,SKG) , intent(inout) :: destin(:,:)
19044 end subroutine
19045#endif
19046
19047#if SK1_ENABLED
19048 PURE module subroutine setMatCopy_RDP_RDP_XLX_AIO_SK1(destin, dpack, source, spack, subset, doff)
19049#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19050 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_AIO_SK1
19051#endif
19052 use pm_kind, only: SKG => SK1
19053 type(rdpack_type) , intent(in) :: dpack
19054 type(rdpack_type) , intent(in) :: spack
19055 type(low_type) , intent(in) :: subset
19056 integer(IK) , intent(in) , optional :: doff
19057 character(*,SKG) , intent(in) :: source(:,:)
19058 character(*,SKG) , intent(inout) :: destin(:,:)
19059 end subroutine
19060#endif
19061
19062 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19063
19064#if IK5_ENABLED
19065 PURE module subroutine setMatCopy_RDP_RDP_XLX_AIO_IK5(destin, dpack, source, spack, subset, doff)
19066#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19067 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_AIO_IK5
19068#endif
19069 use pm_kind, only: IKG => IK5
19070 type(rdpack_type) , intent(in) :: dpack
19071 type(rdpack_type) , intent(in) :: spack
19072 type(low_type) , intent(in) :: subset
19073 integer(IK) , intent(in) , optional :: doff
19074 integer(IKG) , intent(in) :: source(:,:)
19075 integer(IKG) , intent(inout) :: destin(:,:)
19076 end subroutine
19077#endif
19078
19079#if IK4_ENABLED
19080 PURE module subroutine setMatCopy_RDP_RDP_XLX_AIO_IK4(destin, dpack, source, spack, subset, doff)
19081#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19082 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_AIO_IK4
19083#endif
19084 use pm_kind, only: IKG => IK4
19085 type(rdpack_type) , intent(in) :: dpack
19086 type(rdpack_type) , intent(in) :: spack
19087 type(low_type) , intent(in) :: subset
19088 integer(IK) , intent(in) , optional :: doff
19089 integer(IKG) , intent(in) :: source(:,:)
19090 integer(IKG) , intent(inout) :: destin(:,:)
19091 end subroutine
19092#endif
19093
19094#if IK3_ENABLED
19095 PURE module subroutine setMatCopy_RDP_RDP_XLX_AIO_IK3(destin, dpack, source, spack, subset, doff)
19096#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19097 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_AIO_IK3
19098#endif
19099 use pm_kind, only: IKG => IK3
19100 type(rdpack_type) , intent(in) :: dpack
19101 type(rdpack_type) , intent(in) :: spack
19102 type(low_type) , intent(in) :: subset
19103 integer(IK) , intent(in) , optional :: doff
19104 integer(IKG) , intent(in) :: source(:,:)
19105 integer(IKG) , intent(inout) :: destin(:,:)
19106 end subroutine
19107#endif
19108
19109#if IK2_ENABLED
19110 PURE module subroutine setMatCopy_RDP_RDP_XLX_AIO_IK2(destin, dpack, source, spack, subset, doff)
19111#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19112 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_AIO_IK2
19113#endif
19114 use pm_kind, only: IKG => IK2
19115 type(rdpack_type) , intent(in) :: dpack
19116 type(rdpack_type) , intent(in) :: spack
19117 type(low_type) , intent(in) :: subset
19118 integer(IK) , intent(in) , optional :: doff
19119 integer(IKG) , intent(in) :: source(:,:)
19120 integer(IKG) , intent(inout) :: destin(:,:)
19121 end subroutine
19122#endif
19123
19124#if IK1_ENABLED
19125 PURE module subroutine setMatCopy_RDP_RDP_XLX_AIO_IK1(destin, dpack, source, spack, subset, doff)
19126#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19127 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_AIO_IK1
19128#endif
19129 use pm_kind, only: IKG => IK1
19130 type(rdpack_type) , intent(in) :: dpack
19131 type(rdpack_type) , intent(in) :: spack
19132 type(low_type) , intent(in) :: subset
19133 integer(IK) , intent(in) , optional :: doff
19134 integer(IKG) , intent(in) :: source(:,:)
19135 integer(IKG) , intent(inout) :: destin(:,:)
19136 end subroutine
19137#endif
19138
19139 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19140
19141#if LK5_ENABLED
19142 PURE module subroutine setMatCopy_RDP_RDP_XLX_AIO_LK5(destin, dpack, source, spack, subset, doff)
19143#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19144 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_AIO_LK5
19145#endif
19146 use pm_kind, only: LKG => LK5
19147 type(rdpack_type) , intent(in) :: dpack
19148 type(rdpack_type) , intent(in) :: spack
19149 type(low_type) , intent(in) :: subset
19150 integer(IK) , intent(in) , optional :: doff
19151 logical(LKG) , intent(in) :: source(:,:)
19152 logical(LKG) , intent(inout) :: destin(:,:)
19153 end subroutine
19154#endif
19155
19156#if LK4_ENABLED
19157 PURE module subroutine setMatCopy_RDP_RDP_XLX_AIO_LK4(destin, dpack, source, spack, subset, doff)
19158#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19159 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_AIO_LK4
19160#endif
19161 use pm_kind, only: LKG => LK4
19162 type(rdpack_type) , intent(in) :: dpack
19163 type(rdpack_type) , intent(in) :: spack
19164 type(low_type) , intent(in) :: subset
19165 integer(IK) , intent(in) , optional :: doff
19166 logical(LKG) , intent(in) :: source(:,:)
19167 logical(LKG) , intent(inout) :: destin(:,:)
19168 end subroutine
19169#endif
19170
19171#if LK3_ENABLED
19172 PURE module subroutine setMatCopy_RDP_RDP_XLX_AIO_LK3(destin, dpack, source, spack, subset, doff)
19173#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19174 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_AIO_LK3
19175#endif
19176 use pm_kind, only: LKG => LK3
19177 type(rdpack_type) , intent(in) :: dpack
19178 type(rdpack_type) , intent(in) :: spack
19179 type(low_type) , intent(in) :: subset
19180 integer(IK) , intent(in) , optional :: doff
19181 logical(LKG) , intent(in) :: source(:,:)
19182 logical(LKG) , intent(inout) :: destin(:,:)
19183 end subroutine
19184#endif
19185
19186#if LK2_ENABLED
19187 PURE module subroutine setMatCopy_RDP_RDP_XLX_AIO_LK2(destin, dpack, source, spack, subset, doff)
19188#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19189 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_AIO_LK2
19190#endif
19191 use pm_kind, only: LKG => LK2
19192 type(rdpack_type) , intent(in) :: dpack
19193 type(rdpack_type) , intent(in) :: spack
19194 type(low_type) , intent(in) :: subset
19195 integer(IK) , intent(in) , optional :: doff
19196 logical(LKG) , intent(in) :: source(:,:)
19197 logical(LKG) , intent(inout) :: destin(:,:)
19198 end subroutine
19199#endif
19200
19201#if LK1_ENABLED
19202 PURE module subroutine setMatCopy_RDP_RDP_XLX_AIO_LK1(destin, dpack, source, spack, subset, doff)
19203#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19204 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_AIO_LK1
19205#endif
19206 use pm_kind, only: LKG => LK1
19207 type(rdpack_type) , intent(in) :: dpack
19208 type(rdpack_type) , intent(in) :: spack
19209 type(low_type) , intent(in) :: subset
19210 integer(IK) , intent(in) , optional :: doff
19211 logical(LKG) , intent(in) :: source(:,:)
19212 logical(LKG) , intent(inout) :: destin(:,:)
19213 end subroutine
19214#endif
19215
19216 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19217
19218#if CK5_ENABLED
19219 PURE module subroutine setMatCopy_RDP_RDP_XLX_AIO_CK5(destin, dpack, source, spack, subset, doff)
19220#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19221 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_AIO_CK5
19222#endif
19223 use pm_kind, only: CKG => CK5
19224 type(rdpack_type) , intent(in) :: dpack
19225 type(rdpack_type) , intent(in) :: spack
19226 type(low_type) , intent(in) :: subset
19227 integer(IK) , intent(in) , optional :: doff
19228 complex(CKG) , intent(in) :: source(:,:)
19229 complex(CKG) , intent(inout) :: destin(:,:)
19230 end subroutine
19231#endif
19232
19233#if CK4_ENABLED
19234 PURE module subroutine setMatCopy_RDP_RDP_XLX_AIO_CK4(destin, dpack, source, spack, subset, doff)
19235#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19236 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_AIO_CK4
19237#endif
19238 use pm_kind, only: CKG => CK4
19239 type(rdpack_type) , intent(in) :: dpack
19240 type(rdpack_type) , intent(in) :: spack
19241 type(low_type) , intent(in) :: subset
19242 integer(IK) , intent(in) , optional :: doff
19243 complex(CKG) , intent(in) :: source(:,:)
19244 complex(CKG) , intent(inout) :: destin(:,:)
19245 end subroutine
19246#endif
19247
19248#if CK3_ENABLED
19249 PURE module subroutine setMatCopy_RDP_RDP_XLX_AIO_CK3(destin, dpack, source, spack, subset, doff)
19250#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19251 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_AIO_CK3
19252#endif
19253 use pm_kind, only: CKG => CK3
19254 type(rdpack_type) , intent(in) :: dpack
19255 type(rdpack_type) , intent(in) :: spack
19256 type(low_type) , intent(in) :: subset
19257 integer(IK) , intent(in) , optional :: doff
19258 complex(CKG) , intent(in) :: source(:,:)
19259 complex(CKG) , intent(inout) :: destin(:,:)
19260 end subroutine
19261#endif
19262
19263#if CK2_ENABLED
19264 PURE module subroutine setMatCopy_RDP_RDP_XLX_AIO_CK2(destin, dpack, source, spack, subset, doff)
19265#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19266 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_AIO_CK2
19267#endif
19268 use pm_kind, only: CKG => CK2
19269 type(rdpack_type) , intent(in) :: dpack
19270 type(rdpack_type) , intent(in) :: spack
19271 type(low_type) , intent(in) :: subset
19272 integer(IK) , intent(in) , optional :: doff
19273 complex(CKG) , intent(in) :: source(:,:)
19274 complex(CKG) , intent(inout) :: destin(:,:)
19275 end subroutine
19276#endif
19277
19278#if CK1_ENABLED
19279 PURE module subroutine setMatCopy_RDP_RDP_XLX_AIO_CK1(destin, dpack, source, spack, subset, doff)
19280#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19281 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_AIO_CK1
19282#endif
19283 use pm_kind, only: CKG => CK1
19284 type(rdpack_type) , intent(in) :: dpack
19285 type(rdpack_type) , intent(in) :: spack
19286 type(low_type) , intent(in) :: subset
19287 integer(IK) , intent(in) , optional :: doff
19288 complex(CKG) , intent(in) :: source(:,:)
19289 complex(CKG) , intent(inout) :: destin(:,:)
19290 end subroutine
19291#endif
19292
19293 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19294
19295#if RK5_ENABLED
19296 PURE module subroutine setMatCopy_RDP_RDP_XLX_AIO_RK5(destin, dpack, source, spack, subset, doff)
19297#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19298 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_AIO_RK5
19299#endif
19300 use pm_kind, only: RKG => RK5
19301 type(rdpack_type) , intent(in) :: dpack
19302 type(rdpack_type) , intent(in) :: spack
19303 type(low_type) , intent(in) :: subset
19304 integer(IK) , intent(in) , optional :: doff
19305 real(RKG) , intent(in) :: source(:,:)
19306 real(RKG) , intent(inout) :: destin(:,:)
19307 end subroutine
19308#endif
19309
19310#if RK4_ENABLED
19311 PURE module subroutine setMatCopy_RDP_RDP_XLX_AIO_RK4(destin, dpack, source, spack, subset, doff)
19312#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19313 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_AIO_RK4
19314#endif
19315 use pm_kind, only: RKG => RK4
19316 type(rdpack_type) , intent(in) :: dpack
19317 type(rdpack_type) , intent(in) :: spack
19318 type(low_type) , intent(in) :: subset
19319 integer(IK) , intent(in) , optional :: doff
19320 real(RKG) , intent(in) :: source(:,:)
19321 real(RKG) , intent(inout) :: destin(:,:)
19322 end subroutine
19323#endif
19324
19325#if RK3_ENABLED
19326 PURE module subroutine setMatCopy_RDP_RDP_XLX_AIO_RK3(destin, dpack, source, spack, subset, doff)
19327#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19328 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_AIO_RK3
19329#endif
19330 use pm_kind, only: RKG => RK3
19331 type(rdpack_type) , intent(in) :: dpack
19332 type(rdpack_type) , intent(in) :: spack
19333 type(low_type) , intent(in) :: subset
19334 integer(IK) , intent(in) , optional :: doff
19335 real(RKG) , intent(in) :: source(:,:)
19336 real(RKG) , intent(inout) :: destin(:,:)
19337 end subroutine
19338#endif
19339
19340#if RK2_ENABLED
19341 PURE module subroutine setMatCopy_RDP_RDP_XLX_AIO_RK2(destin, dpack, source, spack, subset, doff)
19342#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19343 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_AIO_RK2
19344#endif
19345 use pm_kind, only: RKG => RK2
19346 type(rdpack_type) , intent(in) :: dpack
19347 type(rdpack_type) , intent(in) :: spack
19348 type(low_type) , intent(in) :: subset
19349 integer(IK) , intent(in) , optional :: doff
19350 real(RKG) , intent(in) :: source(:,:)
19351 real(RKG) , intent(inout) :: destin(:,:)
19352 end subroutine
19353#endif
19354
19355#if RK1_ENABLED
19356 PURE module subroutine setMatCopy_RDP_RDP_XLX_AIO_RK1(destin, dpack, source, spack, subset, doff)
19357#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19358 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_AIO_RK1
19359#endif
19360 use pm_kind, only: RKG => RK1
19361 type(rdpack_type) , intent(in) :: dpack
19362 type(rdpack_type) , intent(in) :: spack
19363 type(low_type) , intent(in) :: subset
19364 integer(IK) , intent(in) , optional :: doff
19365 real(RKG) , intent(in) :: source(:,:)
19366 real(RKG) , intent(inout) :: destin(:,:)
19367 end subroutine
19368#endif
19369
19370 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19371
19372 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19373 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19374 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19375
19376 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19377
19378#if SK5_ENABLED
19379 PURE module subroutine setMatCopy_RDP_RDP_XLX_TSO_SK5(destin, dpack, source, spack, subset, operation, doff)
19380#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19381 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_TSO_SK5
19382#endif
19383 use pm_kind, only: SKG => SK5
19384 type(rdpack_type) , intent(in) :: dpack
19385 type(rdpack_type) , intent(in) :: spack
19386 type(low_type) , intent(in) :: subset
19387 type(transSymm_type) , intent(in) :: operation
19388 integer(IK) , intent(in) , optional :: doff
19389 character(*,SKG) , intent(in) :: source(:,:)
19390 character(*,SKG) , intent(inout) :: destin(:,:)
19391 end subroutine
19392#endif
19393
19394#if SK4_ENABLED
19395 PURE module subroutine setMatCopy_RDP_RDP_XLX_TSO_SK4(destin, dpack, source, spack, subset, operation, doff)
19396#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19397 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_TSO_SK4
19398#endif
19399 use pm_kind, only: SKG => SK4
19400 type(rdpack_type) , intent(in) :: dpack
19401 type(rdpack_type) , intent(in) :: spack
19402 type(low_type) , intent(in) :: subset
19403 type(transSymm_type) , intent(in) :: operation
19404 integer(IK) , intent(in) , optional :: doff
19405 character(*,SKG) , intent(in) :: source(:,:)
19406 character(*,SKG) , intent(inout) :: destin(:,:)
19407 end subroutine
19408#endif
19409
19410#if SK3_ENABLED
19411 PURE module subroutine setMatCopy_RDP_RDP_XLX_TSO_SK3(destin, dpack, source, spack, subset, operation, doff)
19412#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19413 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_TSO_SK3
19414#endif
19415 use pm_kind, only: SKG => SK3
19416 type(rdpack_type) , intent(in) :: dpack
19417 type(rdpack_type) , intent(in) :: spack
19418 type(low_type) , intent(in) :: subset
19419 type(transSymm_type) , intent(in) :: operation
19420 integer(IK) , intent(in) , optional :: doff
19421 character(*,SKG) , intent(in) :: source(:,:)
19422 character(*,SKG) , intent(inout) :: destin(:,:)
19423 end subroutine
19424#endif
19425
19426#if SK2_ENABLED
19427 PURE module subroutine setMatCopy_RDP_RDP_XLX_TSO_SK2(destin, dpack, source, spack, subset, operation, doff)
19428#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19429 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_TSO_SK2
19430#endif
19431 use pm_kind, only: SKG => SK2
19432 type(rdpack_type) , intent(in) :: dpack
19433 type(rdpack_type) , intent(in) :: spack
19434 type(low_type) , intent(in) :: subset
19435 type(transSymm_type) , intent(in) :: operation
19436 integer(IK) , intent(in) , optional :: doff
19437 character(*,SKG) , intent(in) :: source(:,:)
19438 character(*,SKG) , intent(inout) :: destin(:,:)
19439 end subroutine
19440#endif
19441
19442#if SK1_ENABLED
19443 PURE module subroutine setMatCopy_RDP_RDP_XLX_TSO_SK1(destin, dpack, source, spack, subset, operation, doff)
19444#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19445 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_TSO_SK1
19446#endif
19447 use pm_kind, only: SKG => SK1
19448 type(rdpack_type) , intent(in) :: dpack
19449 type(rdpack_type) , intent(in) :: spack
19450 type(low_type) , intent(in) :: subset
19451 type(transSymm_type) , intent(in) :: operation
19452 integer(IK) , intent(in) , optional :: doff
19453 character(*,SKG) , intent(in) :: source(:,:)
19454 character(*,SKG) , intent(inout) :: destin(:,:)
19455 end subroutine
19456#endif
19457
19458 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19459
19460#if IK5_ENABLED
19461 PURE module subroutine setMatCopy_RDP_RDP_XLX_TSO_IK5(destin, dpack, source, spack, subset, operation, doff)
19462#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19463 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_TSO_IK5
19464#endif
19465 use pm_kind, only: IKG => IK5
19466 type(rdpack_type) , intent(in) :: dpack
19467 type(rdpack_type) , intent(in) :: spack
19468 type(low_type) , intent(in) :: subset
19469 type(transSymm_type) , intent(in) :: operation
19470 integer(IK) , intent(in) , optional :: doff
19471 integer(IKG) , intent(in) :: source(:,:)
19472 integer(IKG) , intent(inout) :: destin(:,:)
19473 end subroutine
19474#endif
19475
19476#if IK4_ENABLED
19477 PURE module subroutine setMatCopy_RDP_RDP_XLX_TSO_IK4(destin, dpack, source, spack, subset, operation, doff)
19478#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19479 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_TSO_IK4
19480#endif
19481 use pm_kind, only: IKG => IK4
19482 type(rdpack_type) , intent(in) :: dpack
19483 type(rdpack_type) , intent(in) :: spack
19484 type(low_type) , intent(in) :: subset
19485 type(transSymm_type) , intent(in) :: operation
19486 integer(IK) , intent(in) , optional :: doff
19487 integer(IKG) , intent(in) :: source(:,:)
19488 integer(IKG) , intent(inout) :: destin(:,:)
19489 end subroutine
19490#endif
19491
19492#if IK3_ENABLED
19493 PURE module subroutine setMatCopy_RDP_RDP_XLX_TSO_IK3(destin, dpack, source, spack, subset, operation, doff)
19494#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19495 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_TSO_IK3
19496#endif
19497 use pm_kind, only: IKG => IK3
19498 type(rdpack_type) , intent(in) :: dpack
19499 type(rdpack_type) , intent(in) :: spack
19500 type(low_type) , intent(in) :: subset
19501 type(transSymm_type) , intent(in) :: operation
19502 integer(IK) , intent(in) , optional :: doff
19503 integer(IKG) , intent(in) :: source(:,:)
19504 integer(IKG) , intent(inout) :: destin(:,:)
19505 end subroutine
19506#endif
19507
19508#if IK2_ENABLED
19509 PURE module subroutine setMatCopy_RDP_RDP_XLX_TSO_IK2(destin, dpack, source, spack, subset, operation, doff)
19510#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19511 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_TSO_IK2
19512#endif
19513 use pm_kind, only: IKG => IK2
19514 type(rdpack_type) , intent(in) :: dpack
19515 type(rdpack_type) , intent(in) :: spack
19516 type(low_type) , intent(in) :: subset
19517 type(transSymm_type) , intent(in) :: operation
19518 integer(IK) , intent(in) , optional :: doff
19519 integer(IKG) , intent(in) :: source(:,:)
19520 integer(IKG) , intent(inout) :: destin(:,:)
19521 end subroutine
19522#endif
19523
19524#if IK1_ENABLED
19525 PURE module subroutine setMatCopy_RDP_RDP_XLX_TSO_IK1(destin, dpack, source, spack, subset, operation, doff)
19526#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19527 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_TSO_IK1
19528#endif
19529 use pm_kind, only: IKG => IK1
19530 type(rdpack_type) , intent(in) :: dpack
19531 type(rdpack_type) , intent(in) :: spack
19532 type(low_type) , intent(in) :: subset
19533 type(transSymm_type) , intent(in) :: operation
19534 integer(IK) , intent(in) , optional :: doff
19535 integer(IKG) , intent(in) :: source(:,:)
19536 integer(IKG) , intent(inout) :: destin(:,:)
19537 end subroutine
19538#endif
19539
19540 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19541
19542#if LK5_ENABLED
19543 PURE module subroutine setMatCopy_RDP_RDP_XLX_TSO_LK5(destin, dpack, source, spack, subset, operation, doff)
19544#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19545 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_TSO_LK5
19546#endif
19547 use pm_kind, only: LKG => LK5
19548 type(rdpack_type) , intent(in) :: dpack
19549 type(rdpack_type) , intent(in) :: spack
19550 type(low_type) , intent(in) :: subset
19551 type(transSymm_type) , intent(in) :: operation
19552 integer(IK) , intent(in) , optional :: doff
19553 logical(LKG) , intent(in) :: source(:,:)
19554 logical(LKG) , intent(inout) :: destin(:,:)
19555 end subroutine
19556#endif
19557
19558#if LK4_ENABLED
19559 PURE module subroutine setMatCopy_RDP_RDP_XLX_TSO_LK4(destin, dpack, source, spack, subset, operation, doff)
19560#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19561 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_TSO_LK4
19562#endif
19563 use pm_kind, only: LKG => LK4
19564 type(rdpack_type) , intent(in) :: dpack
19565 type(rdpack_type) , intent(in) :: spack
19566 type(low_type) , intent(in) :: subset
19567 type(transSymm_type) , intent(in) :: operation
19568 integer(IK) , intent(in) , optional :: doff
19569 logical(LKG) , intent(in) :: source(:,:)
19570 logical(LKG) , intent(inout) :: destin(:,:)
19571 end subroutine
19572#endif
19573
19574#if LK3_ENABLED
19575 PURE module subroutine setMatCopy_RDP_RDP_XLX_TSO_LK3(destin, dpack, source, spack, subset, operation, doff)
19576#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19577 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_TSO_LK3
19578#endif
19579 use pm_kind, only: LKG => LK3
19580 type(rdpack_type) , intent(in) :: dpack
19581 type(rdpack_type) , intent(in) :: spack
19582 type(low_type) , intent(in) :: subset
19583 type(transSymm_type) , intent(in) :: operation
19584 integer(IK) , intent(in) , optional :: doff
19585 logical(LKG) , intent(in) :: source(:,:)
19586 logical(LKG) , intent(inout) :: destin(:,:)
19587 end subroutine
19588#endif
19589
19590#if LK2_ENABLED
19591 PURE module subroutine setMatCopy_RDP_RDP_XLX_TSO_LK2(destin, dpack, source, spack, subset, operation, doff)
19592#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19593 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_TSO_LK2
19594#endif
19595 use pm_kind, only: LKG => LK2
19596 type(rdpack_type) , intent(in) :: dpack
19597 type(rdpack_type) , intent(in) :: spack
19598 type(low_type) , intent(in) :: subset
19599 type(transSymm_type) , intent(in) :: operation
19600 integer(IK) , intent(in) , optional :: doff
19601 logical(LKG) , intent(in) :: source(:,:)
19602 logical(LKG) , intent(inout) :: destin(:,:)
19603 end subroutine
19604#endif
19605
19606#if LK1_ENABLED
19607 PURE module subroutine setMatCopy_RDP_RDP_XLX_TSO_LK1(destin, dpack, source, spack, subset, operation, doff)
19608#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19609 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_TSO_LK1
19610#endif
19611 use pm_kind, only: LKG => LK1
19612 type(rdpack_type) , intent(in) :: dpack
19613 type(rdpack_type) , intent(in) :: spack
19614 type(low_type) , intent(in) :: subset
19615 type(transSymm_type) , intent(in) :: operation
19616 integer(IK) , intent(in) , optional :: doff
19617 logical(LKG) , intent(in) :: source(:,:)
19618 logical(LKG) , intent(inout) :: destin(:,:)
19619 end subroutine
19620#endif
19621
19622 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19623
19624#if CK5_ENABLED
19625 PURE module subroutine setMatCopy_RDP_RDP_XLX_TSO_CK5(destin, dpack, source, spack, subset, operation, doff)
19626#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19627 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_TSO_CK5
19628#endif
19629 use pm_kind, only: CKG => CK5
19630 type(rdpack_type) , intent(in) :: dpack
19631 type(rdpack_type) , intent(in) :: spack
19632 type(low_type) , intent(in) :: subset
19633 type(transSymm_type) , intent(in) :: operation
19634 integer(IK) , intent(in) , optional :: doff
19635 complex(CKG) , intent(in) :: source(:,:)
19636 complex(CKG) , intent(inout) :: destin(:,:)
19637 end subroutine
19638#endif
19639
19640#if CK4_ENABLED
19641 PURE module subroutine setMatCopy_RDP_RDP_XLX_TSO_CK4(destin, dpack, source, spack, subset, operation, doff)
19642#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19643 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_TSO_CK4
19644#endif
19645 use pm_kind, only: CKG => CK4
19646 type(rdpack_type) , intent(in) :: dpack
19647 type(rdpack_type) , intent(in) :: spack
19648 type(low_type) , intent(in) :: subset
19649 type(transSymm_type) , intent(in) :: operation
19650 integer(IK) , intent(in) , optional :: doff
19651 complex(CKG) , intent(in) :: source(:,:)
19652 complex(CKG) , intent(inout) :: destin(:,:)
19653 end subroutine
19654#endif
19655
19656#if CK3_ENABLED
19657 PURE module subroutine setMatCopy_RDP_RDP_XLX_TSO_CK3(destin, dpack, source, spack, subset, operation, doff)
19658#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19659 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_TSO_CK3
19660#endif
19661 use pm_kind, only: CKG => CK3
19662 type(rdpack_type) , intent(in) :: dpack
19663 type(rdpack_type) , intent(in) :: spack
19664 type(low_type) , intent(in) :: subset
19665 type(transSymm_type) , intent(in) :: operation
19666 integer(IK) , intent(in) , optional :: doff
19667 complex(CKG) , intent(in) :: source(:,:)
19668 complex(CKG) , intent(inout) :: destin(:,:)
19669 end subroutine
19670#endif
19671
19672#if CK2_ENABLED
19673 PURE module subroutine setMatCopy_RDP_RDP_XLX_TSO_CK2(destin, dpack, source, spack, subset, operation, doff)
19674#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19675 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_TSO_CK2
19676#endif
19677 use pm_kind, only: CKG => CK2
19678 type(rdpack_type) , intent(in) :: dpack
19679 type(rdpack_type) , intent(in) :: spack
19680 type(low_type) , intent(in) :: subset
19681 type(transSymm_type) , intent(in) :: operation
19682 integer(IK) , intent(in) , optional :: doff
19683 complex(CKG) , intent(in) :: source(:,:)
19684 complex(CKG) , intent(inout) :: destin(:,:)
19685 end subroutine
19686#endif
19687
19688#if CK1_ENABLED
19689 PURE module subroutine setMatCopy_RDP_RDP_XLX_TSO_CK1(destin, dpack, source, spack, subset, operation, doff)
19690#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19691 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_TSO_CK1
19692#endif
19693 use pm_kind, only: CKG => CK1
19694 type(rdpack_type) , intent(in) :: dpack
19695 type(rdpack_type) , intent(in) :: spack
19696 type(low_type) , intent(in) :: subset
19697 type(transSymm_type) , intent(in) :: operation
19698 integer(IK) , intent(in) , optional :: doff
19699 complex(CKG) , intent(in) :: source(:,:)
19700 complex(CKG) , intent(inout) :: destin(:,:)
19701 end subroutine
19702#endif
19703
19704 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19705
19706#if RK5_ENABLED
19707 PURE module subroutine setMatCopy_RDP_RDP_XLX_TSO_RK5(destin, dpack, source, spack, subset, operation, doff)
19708#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19709 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_TSO_RK5
19710#endif
19711 use pm_kind, only: RKG => RK5
19712 type(rdpack_type) , intent(in) :: dpack
19713 type(rdpack_type) , intent(in) :: spack
19714 type(low_type) , intent(in) :: subset
19715 type(transSymm_type) , intent(in) :: operation
19716 integer(IK) , intent(in) , optional :: doff
19717 real(RKG) , intent(in) :: source(:,:)
19718 real(RKG) , intent(inout) :: destin(:,:)
19719 end subroutine
19720#endif
19721
19722#if RK4_ENABLED
19723 PURE module subroutine setMatCopy_RDP_RDP_XLX_TSO_RK4(destin, dpack, source, spack, subset, operation, doff)
19724#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19725 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_TSO_RK4
19726#endif
19727 use pm_kind, only: RKG => RK4
19728 type(rdpack_type) , intent(in) :: dpack
19729 type(rdpack_type) , intent(in) :: spack
19730 type(low_type) , intent(in) :: subset
19731 type(transSymm_type) , intent(in) :: operation
19732 integer(IK) , intent(in) , optional :: doff
19733 real(RKG) , intent(in) :: source(:,:)
19734 real(RKG) , intent(inout) :: destin(:,:)
19735 end subroutine
19736#endif
19737
19738#if RK3_ENABLED
19739 PURE module subroutine setMatCopy_RDP_RDP_XLX_TSO_RK3(destin, dpack, source, spack, subset, operation, doff)
19740#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19741 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_TSO_RK3
19742#endif
19743 use pm_kind, only: RKG => RK3
19744 type(rdpack_type) , intent(in) :: dpack
19745 type(rdpack_type) , intent(in) :: spack
19746 type(low_type) , intent(in) :: subset
19747 type(transSymm_type) , intent(in) :: operation
19748 integer(IK) , intent(in) , optional :: doff
19749 real(RKG) , intent(in) :: source(:,:)
19750 real(RKG) , intent(inout) :: destin(:,:)
19751 end subroutine
19752#endif
19753
19754#if RK2_ENABLED
19755 PURE module subroutine setMatCopy_RDP_RDP_XLX_TSO_RK2(destin, dpack, source, spack, subset, operation, doff)
19756#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19757 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_TSO_RK2
19758#endif
19759 use pm_kind, only: RKG => RK2
19760 type(rdpack_type) , intent(in) :: dpack
19761 type(rdpack_type) , intent(in) :: spack
19762 type(low_type) , intent(in) :: subset
19763 type(transSymm_type) , intent(in) :: operation
19764 integer(IK) , intent(in) , optional :: doff
19765 real(RKG) , intent(in) :: source(:,:)
19766 real(RKG) , intent(inout) :: destin(:,:)
19767 end subroutine
19768#endif
19769
19770#if RK1_ENABLED
19771 PURE module subroutine setMatCopy_RDP_RDP_XLX_TSO_RK1(destin, dpack, source, spack, subset, operation, doff)
19772#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19773 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_TSO_RK1
19774#endif
19775 use pm_kind, only: RKG => RK1
19776 type(rdpack_type) , intent(in) :: dpack
19777 type(rdpack_type) , intent(in) :: spack
19778 type(low_type) , intent(in) :: subset
19779 type(transSymm_type) , intent(in) :: operation
19780 integer(IK) , intent(in) , optional :: doff
19781 real(RKG) , intent(in) :: source(:,:)
19782 real(RKG) , intent(inout) :: destin(:,:)
19783 end subroutine
19784#endif
19785
19786 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19787
19788 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19789 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19790 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19791
19792 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19793
19794#if SK5_ENABLED
19795 PURE module subroutine setMatCopy_RDP_RDP_XLX_THO_SK5(destin, dpack, source, spack, subset, operation, doff)
19796#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19797 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_THO_SK5
19798#endif
19799 use pm_kind, only: SKG => SK5
19800 type(rdpack_type) , intent(in) :: dpack
19801 type(rdpack_type) , intent(in) :: spack
19802 type(low_type) , intent(in) :: subset
19803 type(transHerm_type) , intent(in) :: operation
19804 integer(IK) , intent(in) , optional :: doff
19805 character(*,SKG) , intent(in) :: source(:,:)
19806 character(*,SKG) , intent(inout) :: destin(:,:)
19807 end subroutine
19808#endif
19809
19810#if SK4_ENABLED
19811 PURE module subroutine setMatCopy_RDP_RDP_XLX_THO_SK4(destin, dpack, source, spack, subset, operation, doff)
19812#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19813 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_THO_SK4
19814#endif
19815 use pm_kind, only: SKG => SK4
19816 type(rdpack_type) , intent(in) :: dpack
19817 type(rdpack_type) , intent(in) :: spack
19818 type(low_type) , intent(in) :: subset
19819 type(transHerm_type) , intent(in) :: operation
19820 integer(IK) , intent(in) , optional :: doff
19821 character(*,SKG) , intent(in) :: source(:,:)
19822 character(*,SKG) , intent(inout) :: destin(:,:)
19823 end subroutine
19824#endif
19825
19826#if SK3_ENABLED
19827 PURE module subroutine setMatCopy_RDP_RDP_XLX_THO_SK3(destin, dpack, source, spack, subset, operation, doff)
19828#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19829 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_THO_SK3
19830#endif
19831 use pm_kind, only: SKG => SK3
19832 type(rdpack_type) , intent(in) :: dpack
19833 type(rdpack_type) , intent(in) :: spack
19834 type(low_type) , intent(in) :: subset
19835 type(transHerm_type) , intent(in) :: operation
19836 integer(IK) , intent(in) , optional :: doff
19837 character(*,SKG) , intent(in) :: source(:,:)
19838 character(*,SKG) , intent(inout) :: destin(:,:)
19839 end subroutine
19840#endif
19841
19842#if SK2_ENABLED
19843 PURE module subroutine setMatCopy_RDP_RDP_XLX_THO_SK2(destin, dpack, source, spack, subset, operation, doff)
19844#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19845 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_THO_SK2
19846#endif
19847 use pm_kind, only: SKG => SK2
19848 type(rdpack_type) , intent(in) :: dpack
19849 type(rdpack_type) , intent(in) :: spack
19850 type(low_type) , intent(in) :: subset
19851 type(transHerm_type) , intent(in) :: operation
19852 integer(IK) , intent(in) , optional :: doff
19853 character(*,SKG) , intent(in) :: source(:,:)
19854 character(*,SKG) , intent(inout) :: destin(:,:)
19855 end subroutine
19856#endif
19857
19858#if SK1_ENABLED
19859 PURE module subroutine setMatCopy_RDP_RDP_XLX_THO_SK1(destin, dpack, source, spack, subset, operation, doff)
19860#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19861 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_THO_SK1
19862#endif
19863 use pm_kind, only: SKG => SK1
19864 type(rdpack_type) , intent(in) :: dpack
19865 type(rdpack_type) , intent(in) :: spack
19866 type(low_type) , intent(in) :: subset
19867 type(transHerm_type) , intent(in) :: operation
19868 integer(IK) , intent(in) , optional :: doff
19869 character(*,SKG) , intent(in) :: source(:,:)
19870 character(*,SKG) , intent(inout) :: destin(:,:)
19871 end subroutine
19872#endif
19873
19874 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19875
19876#if IK5_ENABLED
19877 PURE module subroutine setMatCopy_RDP_RDP_XLX_THO_IK5(destin, dpack, source, spack, subset, operation, doff)
19878#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19879 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_THO_IK5
19880#endif
19881 use pm_kind, only: IKG => IK5
19882 type(rdpack_type) , intent(in) :: dpack
19883 type(rdpack_type) , intent(in) :: spack
19884 type(low_type) , intent(in) :: subset
19885 type(transHerm_type) , intent(in) :: operation
19886 integer(IK) , intent(in) , optional :: doff
19887 integer(IKG) , intent(in) :: source(:,:)
19888 integer(IKG) , intent(inout) :: destin(:,:)
19889 end subroutine
19890#endif
19891
19892#if IK4_ENABLED
19893 PURE module subroutine setMatCopy_RDP_RDP_XLX_THO_IK4(destin, dpack, source, spack, subset, operation, doff)
19894#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19895 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_THO_IK4
19896#endif
19897 use pm_kind, only: IKG => IK4
19898 type(rdpack_type) , intent(in) :: dpack
19899 type(rdpack_type) , intent(in) :: spack
19900 type(low_type) , intent(in) :: subset
19901 type(transHerm_type) , intent(in) :: operation
19902 integer(IK) , intent(in) , optional :: doff
19903 integer(IKG) , intent(in) :: source(:,:)
19904 integer(IKG) , intent(inout) :: destin(:,:)
19905 end subroutine
19906#endif
19907
19908#if IK3_ENABLED
19909 PURE module subroutine setMatCopy_RDP_RDP_XLX_THO_IK3(destin, dpack, source, spack, subset, operation, doff)
19910#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19911 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_THO_IK3
19912#endif
19913 use pm_kind, only: IKG => IK3
19914 type(rdpack_type) , intent(in) :: dpack
19915 type(rdpack_type) , intent(in) :: spack
19916 type(low_type) , intent(in) :: subset
19917 type(transHerm_type) , intent(in) :: operation
19918 integer(IK) , intent(in) , optional :: doff
19919 integer(IKG) , intent(in) :: source(:,:)
19920 integer(IKG) , intent(inout) :: destin(:,:)
19921 end subroutine
19922#endif
19923
19924#if IK2_ENABLED
19925 PURE module subroutine setMatCopy_RDP_RDP_XLX_THO_IK2(destin, dpack, source, spack, subset, operation, doff)
19926#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19927 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_THO_IK2
19928#endif
19929 use pm_kind, only: IKG => IK2
19930 type(rdpack_type) , intent(in) :: dpack
19931 type(rdpack_type) , intent(in) :: spack
19932 type(low_type) , intent(in) :: subset
19933 type(transHerm_type) , intent(in) :: operation
19934 integer(IK) , intent(in) , optional :: doff
19935 integer(IKG) , intent(in) :: source(:,:)
19936 integer(IKG) , intent(inout) :: destin(:,:)
19937 end subroutine
19938#endif
19939
19940#if IK1_ENABLED
19941 PURE module subroutine setMatCopy_RDP_RDP_XLX_THO_IK1(destin, dpack, source, spack, subset, operation, doff)
19942#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19943 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_THO_IK1
19944#endif
19945 use pm_kind, only: IKG => IK1
19946 type(rdpack_type) , intent(in) :: dpack
19947 type(rdpack_type) , intent(in) :: spack
19948 type(low_type) , intent(in) :: subset
19949 type(transHerm_type) , intent(in) :: operation
19950 integer(IK) , intent(in) , optional :: doff
19951 integer(IKG) , intent(in) :: source(:,:)
19952 integer(IKG) , intent(inout) :: destin(:,:)
19953 end subroutine
19954#endif
19955
19956 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19957
19958#if LK5_ENABLED
19959 PURE module subroutine setMatCopy_RDP_RDP_XLX_THO_LK5(destin, dpack, source, spack, subset, operation, doff)
19960#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19961 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_THO_LK5
19962#endif
19963 use pm_kind, only: LKG => LK5
19964 type(rdpack_type) , intent(in) :: dpack
19965 type(rdpack_type) , intent(in) :: spack
19966 type(low_type) , intent(in) :: subset
19967 type(transHerm_type) , intent(in) :: operation
19968 integer(IK) , intent(in) , optional :: doff
19969 logical(LKG) , intent(in) :: source(:,:)
19970 logical(LKG) , intent(inout) :: destin(:,:)
19971 end subroutine
19972#endif
19973
19974#if LK4_ENABLED
19975 PURE module subroutine setMatCopy_RDP_RDP_XLX_THO_LK4(destin, dpack, source, spack, subset, operation, doff)
19976#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19977 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_THO_LK4
19978#endif
19979 use pm_kind, only: LKG => LK4
19980 type(rdpack_type) , intent(in) :: dpack
19981 type(rdpack_type) , intent(in) :: spack
19982 type(low_type) , intent(in) :: subset
19983 type(transHerm_type) , intent(in) :: operation
19984 integer(IK) , intent(in) , optional :: doff
19985 logical(LKG) , intent(in) :: source(:,:)
19986 logical(LKG) , intent(inout) :: destin(:,:)
19987 end subroutine
19988#endif
19989
19990#if LK3_ENABLED
19991 PURE module subroutine setMatCopy_RDP_RDP_XLX_THO_LK3(destin, dpack, source, spack, subset, operation, doff)
19992#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19993 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_THO_LK3
19994#endif
19995 use pm_kind, only: LKG => LK3
19996 type(rdpack_type) , intent(in) :: dpack
19997 type(rdpack_type) , intent(in) :: spack
19998 type(low_type) , intent(in) :: subset
19999 type(transHerm_type) , intent(in) :: operation
20000 integer(IK) , intent(in) , optional :: doff
20001 logical(LKG) , intent(in) :: source(:,:)
20002 logical(LKG) , intent(inout) :: destin(:,:)
20003 end subroutine
20004#endif
20005
20006#if LK2_ENABLED
20007 PURE module subroutine setMatCopy_RDP_RDP_XLX_THO_LK2(destin, dpack, source, spack, subset, operation, doff)
20008#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20009 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_THO_LK2
20010#endif
20011 use pm_kind, only: LKG => LK2
20012 type(rdpack_type) , intent(in) :: dpack
20013 type(rdpack_type) , intent(in) :: spack
20014 type(low_type) , intent(in) :: subset
20015 type(transHerm_type) , intent(in) :: operation
20016 integer(IK) , intent(in) , optional :: doff
20017 logical(LKG) , intent(in) :: source(:,:)
20018 logical(LKG) , intent(inout) :: destin(:,:)
20019 end subroutine
20020#endif
20021
20022#if LK1_ENABLED
20023 PURE module subroutine setMatCopy_RDP_RDP_XLX_THO_LK1(destin, dpack, source, spack, subset, operation, doff)
20024#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20025 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_THO_LK1
20026#endif
20027 use pm_kind, only: LKG => LK1
20028 type(rdpack_type) , intent(in) :: dpack
20029 type(rdpack_type) , intent(in) :: spack
20030 type(low_type) , intent(in) :: subset
20031 type(transHerm_type) , intent(in) :: operation
20032 integer(IK) , intent(in) , optional :: doff
20033 logical(LKG) , intent(in) :: source(:,:)
20034 logical(LKG) , intent(inout) :: destin(:,:)
20035 end subroutine
20036#endif
20037
20038 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20039
20040#if CK5_ENABLED
20041 PURE module subroutine setMatCopy_RDP_RDP_XLX_THO_CK5(destin, dpack, source, spack, subset, operation, doff)
20042#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20043 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_THO_CK5
20044#endif
20045 use pm_kind, only: CKG => CK5
20046 type(rdpack_type) , intent(in) :: dpack
20047 type(rdpack_type) , intent(in) :: spack
20048 type(low_type) , intent(in) :: subset
20049 type(transHerm_type) , intent(in) :: operation
20050 integer(IK) , intent(in) , optional :: doff
20051 complex(CKG) , intent(in) :: source(:,:)
20052 complex(CKG) , intent(inout) :: destin(:,:)
20053 end subroutine
20054#endif
20055
20056#if CK4_ENABLED
20057 PURE module subroutine setMatCopy_RDP_RDP_XLX_THO_CK4(destin, dpack, source, spack, subset, operation, doff)
20058#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20059 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_THO_CK4
20060#endif
20061 use pm_kind, only: CKG => CK4
20062 type(rdpack_type) , intent(in) :: dpack
20063 type(rdpack_type) , intent(in) :: spack
20064 type(low_type) , intent(in) :: subset
20065 type(transHerm_type) , intent(in) :: operation
20066 integer(IK) , intent(in) , optional :: doff
20067 complex(CKG) , intent(in) :: source(:,:)
20068 complex(CKG) , intent(inout) :: destin(:,:)
20069 end subroutine
20070#endif
20071
20072#if CK3_ENABLED
20073 PURE module subroutine setMatCopy_RDP_RDP_XLX_THO_CK3(destin, dpack, source, spack, subset, operation, doff)
20074#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20075 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_THO_CK3
20076#endif
20077 use pm_kind, only: CKG => CK3
20078 type(rdpack_type) , intent(in) :: dpack
20079 type(rdpack_type) , intent(in) :: spack
20080 type(low_type) , intent(in) :: subset
20081 type(transHerm_type) , intent(in) :: operation
20082 integer(IK) , intent(in) , optional :: doff
20083 complex(CKG) , intent(in) :: source(:,:)
20084 complex(CKG) , intent(inout) :: destin(:,:)
20085 end subroutine
20086#endif
20087
20088#if CK2_ENABLED
20089 PURE module subroutine setMatCopy_RDP_RDP_XLX_THO_CK2(destin, dpack, source, spack, subset, operation, doff)
20090#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20091 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_THO_CK2
20092#endif
20093 use pm_kind, only: CKG => CK2
20094 type(rdpack_type) , intent(in) :: dpack
20095 type(rdpack_type) , intent(in) :: spack
20096 type(low_type) , intent(in) :: subset
20097 type(transHerm_type) , intent(in) :: operation
20098 integer(IK) , intent(in) , optional :: doff
20099 complex(CKG) , intent(in) :: source(:,:)
20100 complex(CKG) , intent(inout) :: destin(:,:)
20101 end subroutine
20102#endif
20103
20104#if CK1_ENABLED
20105 PURE module subroutine setMatCopy_RDP_RDP_XLX_THO_CK1(destin, dpack, source, spack, subset, operation, doff)
20106#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20107 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_THO_CK1
20108#endif
20109 use pm_kind, only: CKG => CK1
20110 type(rdpack_type) , intent(in) :: dpack
20111 type(rdpack_type) , intent(in) :: spack
20112 type(low_type) , intent(in) :: subset
20113 type(transHerm_type) , intent(in) :: operation
20114 integer(IK) , intent(in) , optional :: doff
20115 complex(CKG) , intent(in) :: source(:,:)
20116 complex(CKG) , intent(inout) :: destin(:,:)
20117 end subroutine
20118#endif
20119
20120 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20121
20122#if RK5_ENABLED
20123 PURE module subroutine setMatCopy_RDP_RDP_XLX_THO_RK5(destin, dpack, source, spack, subset, operation, doff)
20124#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20125 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_THO_RK5
20126#endif
20127 use pm_kind, only: RKG => RK5
20128 type(rdpack_type) , intent(in) :: dpack
20129 type(rdpack_type) , intent(in) :: spack
20130 type(low_type) , intent(in) :: subset
20131 type(transHerm_type) , intent(in) :: operation
20132 integer(IK) , intent(in) , optional :: doff
20133 real(RKG) , intent(in) :: source(:,:)
20134 real(RKG) , intent(inout) :: destin(:,:)
20135 end subroutine
20136#endif
20137
20138#if RK4_ENABLED
20139 PURE module subroutine setMatCopy_RDP_RDP_XLX_THO_RK4(destin, dpack, source, spack, subset, operation, doff)
20140#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20141 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_THO_RK4
20142#endif
20143 use pm_kind, only: RKG => RK4
20144 type(rdpack_type) , intent(in) :: dpack
20145 type(rdpack_type) , intent(in) :: spack
20146 type(low_type) , intent(in) :: subset
20147 type(transHerm_type) , intent(in) :: operation
20148 integer(IK) , intent(in) , optional :: doff
20149 real(RKG) , intent(in) :: source(:,:)
20150 real(RKG) , intent(inout) :: destin(:,:)
20151 end subroutine
20152#endif
20153
20154#if RK3_ENABLED
20155 PURE module subroutine setMatCopy_RDP_RDP_XLX_THO_RK3(destin, dpack, source, spack, subset, operation, doff)
20156#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20157 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_THO_RK3
20158#endif
20159 use pm_kind, only: RKG => RK3
20160 type(rdpack_type) , intent(in) :: dpack
20161 type(rdpack_type) , intent(in) :: spack
20162 type(low_type) , intent(in) :: subset
20163 type(transHerm_type) , intent(in) :: operation
20164 integer(IK) , intent(in) , optional :: doff
20165 real(RKG) , intent(in) :: source(:,:)
20166 real(RKG) , intent(inout) :: destin(:,:)
20167 end subroutine
20168#endif
20169
20170#if RK2_ENABLED
20171 PURE module subroutine setMatCopy_RDP_RDP_XLX_THO_RK2(destin, dpack, source, spack, subset, operation, doff)
20172#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20173 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_THO_RK2
20174#endif
20175 use pm_kind, only: RKG => RK2
20176 type(rdpack_type) , intent(in) :: dpack
20177 type(rdpack_type) , intent(in) :: spack
20178 type(low_type) , intent(in) :: subset
20179 type(transHerm_type) , intent(in) :: operation
20180 integer(IK) , intent(in) , optional :: doff
20181 real(RKG) , intent(in) :: source(:,:)
20182 real(RKG) , intent(inout) :: destin(:,:)
20183 end subroutine
20184#endif
20185
20186#if RK1_ENABLED
20187 PURE module subroutine setMatCopy_RDP_RDP_XLX_THO_RK1(destin, dpack, source, spack, subset, operation, doff)
20188#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20189 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLX_THO_RK1
20190#endif
20191 use pm_kind, only: RKG => RK1
20192 type(rdpack_type) , intent(in) :: dpack
20193 type(rdpack_type) , intent(in) :: spack
20194 type(low_type) , intent(in) :: subset
20195 type(transHerm_type) , intent(in) :: operation
20196 integer(IK) , intent(in) , optional :: doff
20197 real(RKG) , intent(in) :: source(:,:)
20198 real(RKG) , intent(inout) :: destin(:,:)
20199 end subroutine
20200#endif
20201
20202 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20203
20204 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20205 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20206 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20207
20208 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20209 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20210 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20211
20212 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20213
20214#if SK5_ENABLED
20215 PURE module subroutine setMatCopy_RDP_RDP_XXD_AIO_SK5(destin, dpack, source, spack, subset, doff)
20216#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20217 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_AIO_SK5
20218#endif
20219 use pm_kind, only: SKG => SK5
20220 type(rdpack_type) , intent(in) :: dpack
20221 type(rdpack_type) , intent(in) :: spack
20222 type(dia_type) , intent(in) :: subset
20223 integer(IK) , intent(in) , optional :: doff
20224 character(*,SKG) , intent(in) :: source(:,:)
20225 character(*,SKG) , intent(inout) :: destin(:,:)
20226 end subroutine
20227#endif
20228
20229#if SK4_ENABLED
20230 PURE module subroutine setMatCopy_RDP_RDP_XXD_AIO_SK4(destin, dpack, source, spack, subset, doff)
20231#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20232 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_AIO_SK4
20233#endif
20234 use pm_kind, only: SKG => SK4
20235 type(rdpack_type) , intent(in) :: dpack
20236 type(rdpack_type) , intent(in) :: spack
20237 type(dia_type) , intent(in) :: subset
20238 integer(IK) , intent(in) , optional :: doff
20239 character(*,SKG) , intent(in) :: source(:,:)
20240 character(*,SKG) , intent(inout) :: destin(:,:)
20241 end subroutine
20242#endif
20243
20244#if SK3_ENABLED
20245 PURE module subroutine setMatCopy_RDP_RDP_XXD_AIO_SK3(destin, dpack, source, spack, subset, doff)
20246#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20247 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_AIO_SK3
20248#endif
20249 use pm_kind, only: SKG => SK3
20250 type(rdpack_type) , intent(in) :: dpack
20251 type(rdpack_type) , intent(in) :: spack
20252 type(dia_type) , intent(in) :: subset
20253 integer(IK) , intent(in) , optional :: doff
20254 character(*,SKG) , intent(in) :: source(:,:)
20255 character(*,SKG) , intent(inout) :: destin(:,:)
20256 end subroutine
20257#endif
20258
20259#if SK2_ENABLED
20260 PURE module subroutine setMatCopy_RDP_RDP_XXD_AIO_SK2(destin, dpack, source, spack, subset, doff)
20261#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20262 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_AIO_SK2
20263#endif
20264 use pm_kind, only: SKG => SK2
20265 type(rdpack_type) , intent(in) :: dpack
20266 type(rdpack_type) , intent(in) :: spack
20267 type(dia_type) , intent(in) :: subset
20268 integer(IK) , intent(in) , optional :: doff
20269 character(*,SKG) , intent(in) :: source(:,:)
20270 character(*,SKG) , intent(inout) :: destin(:,:)
20271 end subroutine
20272#endif
20273
20274#if SK1_ENABLED
20275 PURE module subroutine setMatCopy_RDP_RDP_XXD_AIO_SK1(destin, dpack, source, spack, subset, doff)
20276#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20277 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_AIO_SK1
20278#endif
20279 use pm_kind, only: SKG => SK1
20280 type(rdpack_type) , intent(in) :: dpack
20281 type(rdpack_type) , intent(in) :: spack
20282 type(dia_type) , intent(in) :: subset
20283 integer(IK) , intent(in) , optional :: doff
20284 character(*,SKG) , intent(in) :: source(:,:)
20285 character(*,SKG) , intent(inout) :: destin(:,:)
20286 end subroutine
20287#endif
20288
20289 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20290
20291#if IK5_ENABLED
20292 PURE module subroutine setMatCopy_RDP_RDP_XXD_AIO_IK5(destin, dpack, source, spack, subset, doff)
20293#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20294 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_AIO_IK5
20295#endif
20296 use pm_kind, only: IKG => IK5
20297 type(rdpack_type) , intent(in) :: dpack
20298 type(rdpack_type) , intent(in) :: spack
20299 type(dia_type) , intent(in) :: subset
20300 integer(IK) , intent(in) , optional :: doff
20301 integer(IKG) , intent(in) :: source(:,:)
20302 integer(IKG) , intent(inout) :: destin(:,:)
20303 end subroutine
20304#endif
20305
20306#if IK4_ENABLED
20307 PURE module subroutine setMatCopy_RDP_RDP_XXD_AIO_IK4(destin, dpack, source, spack, subset, doff)
20308#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20309 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_AIO_IK4
20310#endif
20311 use pm_kind, only: IKG => IK4
20312 type(rdpack_type) , intent(in) :: dpack
20313 type(rdpack_type) , intent(in) :: spack
20314 type(dia_type) , intent(in) :: subset
20315 integer(IK) , intent(in) , optional :: doff
20316 integer(IKG) , intent(in) :: source(:,:)
20317 integer(IKG) , intent(inout) :: destin(:,:)
20318 end subroutine
20319#endif
20320
20321#if IK3_ENABLED
20322 PURE module subroutine setMatCopy_RDP_RDP_XXD_AIO_IK3(destin, dpack, source, spack, subset, doff)
20323#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20324 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_AIO_IK3
20325#endif
20326 use pm_kind, only: IKG => IK3
20327 type(rdpack_type) , intent(in) :: dpack
20328 type(rdpack_type) , intent(in) :: spack
20329 type(dia_type) , intent(in) :: subset
20330 integer(IK) , intent(in) , optional :: doff
20331 integer(IKG) , intent(in) :: source(:,:)
20332 integer(IKG) , intent(inout) :: destin(:,:)
20333 end subroutine
20334#endif
20335
20336#if IK2_ENABLED
20337 PURE module subroutine setMatCopy_RDP_RDP_XXD_AIO_IK2(destin, dpack, source, spack, subset, doff)
20338#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20339 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_AIO_IK2
20340#endif
20341 use pm_kind, only: IKG => IK2
20342 type(rdpack_type) , intent(in) :: dpack
20343 type(rdpack_type) , intent(in) :: spack
20344 type(dia_type) , intent(in) :: subset
20345 integer(IK) , intent(in) , optional :: doff
20346 integer(IKG) , intent(in) :: source(:,:)
20347 integer(IKG) , intent(inout) :: destin(:,:)
20348 end subroutine
20349#endif
20350
20351#if IK1_ENABLED
20352 PURE module subroutine setMatCopy_RDP_RDP_XXD_AIO_IK1(destin, dpack, source, spack, subset, doff)
20353#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20354 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_AIO_IK1
20355#endif
20356 use pm_kind, only: IKG => IK1
20357 type(rdpack_type) , intent(in) :: dpack
20358 type(rdpack_type) , intent(in) :: spack
20359 type(dia_type) , intent(in) :: subset
20360 integer(IK) , intent(in) , optional :: doff
20361 integer(IKG) , intent(in) :: source(:,:)
20362 integer(IKG) , intent(inout) :: destin(:,:)
20363 end subroutine
20364#endif
20365
20366 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20367
20368#if LK5_ENABLED
20369 PURE module subroutine setMatCopy_RDP_RDP_XXD_AIO_LK5(destin, dpack, source, spack, subset, doff)
20370#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20371 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_AIO_LK5
20372#endif
20373 use pm_kind, only: LKG => LK5
20374 type(rdpack_type) , intent(in) :: dpack
20375 type(rdpack_type) , intent(in) :: spack
20376 type(dia_type) , intent(in) :: subset
20377 integer(IK) , intent(in) , optional :: doff
20378 logical(LKG) , intent(in) :: source(:,:)
20379 logical(LKG) , intent(inout) :: destin(:,:)
20380 end subroutine
20381#endif
20382
20383#if LK4_ENABLED
20384 PURE module subroutine setMatCopy_RDP_RDP_XXD_AIO_LK4(destin, dpack, source, spack, subset, doff)
20385#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20386 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_AIO_LK4
20387#endif
20388 use pm_kind, only: LKG => LK4
20389 type(rdpack_type) , intent(in) :: dpack
20390 type(rdpack_type) , intent(in) :: spack
20391 type(dia_type) , intent(in) :: subset
20392 integer(IK) , intent(in) , optional :: doff
20393 logical(LKG) , intent(in) :: source(:,:)
20394 logical(LKG) , intent(inout) :: destin(:,:)
20395 end subroutine
20396#endif
20397
20398#if LK3_ENABLED
20399 PURE module subroutine setMatCopy_RDP_RDP_XXD_AIO_LK3(destin, dpack, source, spack, subset, doff)
20400#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20401 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_AIO_LK3
20402#endif
20403 use pm_kind, only: LKG => LK3
20404 type(rdpack_type) , intent(in) :: dpack
20405 type(rdpack_type) , intent(in) :: spack
20406 type(dia_type) , intent(in) :: subset
20407 integer(IK) , intent(in) , optional :: doff
20408 logical(LKG) , intent(in) :: source(:,:)
20409 logical(LKG) , intent(inout) :: destin(:,:)
20410 end subroutine
20411#endif
20412
20413#if LK2_ENABLED
20414 PURE module subroutine setMatCopy_RDP_RDP_XXD_AIO_LK2(destin, dpack, source, spack, subset, doff)
20415#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20416 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_AIO_LK2
20417#endif
20418 use pm_kind, only: LKG => LK2
20419 type(rdpack_type) , intent(in) :: dpack
20420 type(rdpack_type) , intent(in) :: spack
20421 type(dia_type) , intent(in) :: subset
20422 integer(IK) , intent(in) , optional :: doff
20423 logical(LKG) , intent(in) :: source(:,:)
20424 logical(LKG) , intent(inout) :: destin(:,:)
20425 end subroutine
20426#endif
20427
20428#if LK1_ENABLED
20429 PURE module subroutine setMatCopy_RDP_RDP_XXD_AIO_LK1(destin, dpack, source, spack, subset, doff)
20430#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20431 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_AIO_LK1
20432#endif
20433 use pm_kind, only: LKG => LK1
20434 type(rdpack_type) , intent(in) :: dpack
20435 type(rdpack_type) , intent(in) :: spack
20436 type(dia_type) , intent(in) :: subset
20437 integer(IK) , intent(in) , optional :: doff
20438 logical(LKG) , intent(in) :: source(:,:)
20439 logical(LKG) , intent(inout) :: destin(:,:)
20440 end subroutine
20441#endif
20442
20443 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20444
20445#if CK5_ENABLED
20446 PURE module subroutine setMatCopy_RDP_RDP_XXD_AIO_CK5(destin, dpack, source, spack, subset, doff)
20447#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20448 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_AIO_CK5
20449#endif
20450 use pm_kind, only: CKG => CK5
20451 type(rdpack_type) , intent(in) :: dpack
20452 type(rdpack_type) , intent(in) :: spack
20453 type(dia_type) , intent(in) :: subset
20454 integer(IK) , intent(in) , optional :: doff
20455 complex(CKG) , intent(in) :: source(:,:)
20456 complex(CKG) , intent(inout) :: destin(:,:)
20457 end subroutine
20458#endif
20459
20460#if CK4_ENABLED
20461 PURE module subroutine setMatCopy_RDP_RDP_XXD_AIO_CK4(destin, dpack, source, spack, subset, doff)
20462#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20463 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_AIO_CK4
20464#endif
20465 use pm_kind, only: CKG => CK4
20466 type(rdpack_type) , intent(in) :: dpack
20467 type(rdpack_type) , intent(in) :: spack
20468 type(dia_type) , intent(in) :: subset
20469 integer(IK) , intent(in) , optional :: doff
20470 complex(CKG) , intent(in) :: source(:,:)
20471 complex(CKG) , intent(inout) :: destin(:,:)
20472 end subroutine
20473#endif
20474
20475#if CK3_ENABLED
20476 PURE module subroutine setMatCopy_RDP_RDP_XXD_AIO_CK3(destin, dpack, source, spack, subset, doff)
20477#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20478 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_AIO_CK3
20479#endif
20480 use pm_kind, only: CKG => CK3
20481 type(rdpack_type) , intent(in) :: dpack
20482 type(rdpack_type) , intent(in) :: spack
20483 type(dia_type) , intent(in) :: subset
20484 integer(IK) , intent(in) , optional :: doff
20485 complex(CKG) , intent(in) :: source(:,:)
20486 complex(CKG) , intent(inout) :: destin(:,:)
20487 end subroutine
20488#endif
20489
20490#if CK2_ENABLED
20491 PURE module subroutine setMatCopy_RDP_RDP_XXD_AIO_CK2(destin, dpack, source, spack, subset, doff)
20492#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20493 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_AIO_CK2
20494#endif
20495 use pm_kind, only: CKG => CK2
20496 type(rdpack_type) , intent(in) :: dpack
20497 type(rdpack_type) , intent(in) :: spack
20498 type(dia_type) , intent(in) :: subset
20499 integer(IK) , intent(in) , optional :: doff
20500 complex(CKG) , intent(in) :: source(:,:)
20501 complex(CKG) , intent(inout) :: destin(:,:)
20502 end subroutine
20503#endif
20504
20505#if CK1_ENABLED
20506 PURE module subroutine setMatCopy_RDP_RDP_XXD_AIO_CK1(destin, dpack, source, spack, subset, doff)
20507#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20508 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_AIO_CK1
20509#endif
20510 use pm_kind, only: CKG => CK1
20511 type(rdpack_type) , intent(in) :: dpack
20512 type(rdpack_type) , intent(in) :: spack
20513 type(dia_type) , intent(in) :: subset
20514 integer(IK) , intent(in) , optional :: doff
20515 complex(CKG) , intent(in) :: source(:,:)
20516 complex(CKG) , intent(inout) :: destin(:,:)
20517 end subroutine
20518#endif
20519
20520 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20521
20522#if RK5_ENABLED
20523 PURE module subroutine setMatCopy_RDP_RDP_XXD_AIO_RK5(destin, dpack, source, spack, subset, doff)
20524#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20525 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_AIO_RK5
20526#endif
20527 use pm_kind, only: RKG => RK5
20528 type(rdpack_type) , intent(in) :: dpack
20529 type(rdpack_type) , intent(in) :: spack
20530 type(dia_type) , intent(in) :: subset
20531 integer(IK) , intent(in) , optional :: doff
20532 real(RKG) , intent(in) :: source(:,:)
20533 real(RKG) , intent(inout) :: destin(:,:)
20534 end subroutine
20535#endif
20536
20537#if RK4_ENABLED
20538 PURE module subroutine setMatCopy_RDP_RDP_XXD_AIO_RK4(destin, dpack, source, spack, subset, doff)
20539#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20540 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_AIO_RK4
20541#endif
20542 use pm_kind, only: RKG => RK4
20543 type(rdpack_type) , intent(in) :: dpack
20544 type(rdpack_type) , intent(in) :: spack
20545 type(dia_type) , intent(in) :: subset
20546 integer(IK) , intent(in) , optional :: doff
20547 real(RKG) , intent(in) :: source(:,:)
20548 real(RKG) , intent(inout) :: destin(:,:)
20549 end subroutine
20550#endif
20551
20552#if RK3_ENABLED
20553 PURE module subroutine setMatCopy_RDP_RDP_XXD_AIO_RK3(destin, dpack, source, spack, subset, doff)
20554#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20555 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_AIO_RK3
20556#endif
20557 use pm_kind, only: RKG => RK3
20558 type(rdpack_type) , intent(in) :: dpack
20559 type(rdpack_type) , intent(in) :: spack
20560 type(dia_type) , intent(in) :: subset
20561 integer(IK) , intent(in) , optional :: doff
20562 real(RKG) , intent(in) :: source(:,:)
20563 real(RKG) , intent(inout) :: destin(:,:)
20564 end subroutine
20565#endif
20566
20567#if RK2_ENABLED
20568 PURE module subroutine setMatCopy_RDP_RDP_XXD_AIO_RK2(destin, dpack, source, spack, subset, doff)
20569#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20570 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_AIO_RK2
20571#endif
20572 use pm_kind, only: RKG => RK2
20573 type(rdpack_type) , intent(in) :: dpack
20574 type(rdpack_type) , intent(in) :: spack
20575 type(dia_type) , intent(in) :: subset
20576 integer(IK) , intent(in) , optional :: doff
20577 real(RKG) , intent(in) :: source(:,:)
20578 real(RKG) , intent(inout) :: destin(:,:)
20579 end subroutine
20580#endif
20581
20582#if RK1_ENABLED
20583 PURE module subroutine setMatCopy_RDP_RDP_XXD_AIO_RK1(destin, dpack, source, spack, subset, doff)
20584#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20585 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_AIO_RK1
20586#endif
20587 use pm_kind, only: RKG => RK1
20588 type(rdpack_type) , intent(in) :: dpack
20589 type(rdpack_type) , intent(in) :: spack
20590 type(dia_type) , intent(in) :: subset
20591 integer(IK) , intent(in) , optional :: doff
20592 real(RKG) , intent(in) :: source(:,:)
20593 real(RKG) , intent(inout) :: destin(:,:)
20594 end subroutine
20595#endif
20596
20597 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20598
20599 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20600 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20601 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20602
20603 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20604
20605#if SK5_ENABLED
20606 PURE module subroutine setMatCopy_RDP_RDP_XXD_TSO_SK5(destin, dpack, source, spack, subset, operation, doff)
20607#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20608 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_TSO_SK5
20609#endif
20610 use pm_kind, only: SKG => SK5
20611 type(rdpack_type) , intent(in) :: dpack
20612 type(rdpack_type) , intent(in) :: spack
20613 type(dia_type) , intent(in) :: subset
20614 type(transSymm_type) , intent(in) :: operation
20615 integer(IK) , intent(in) , optional :: doff
20616 character(*,SKG) , intent(in) :: source(:,:)
20617 character(*,SKG) , intent(inout) :: destin(:,:)
20618 end subroutine
20619#endif
20620
20621#if SK4_ENABLED
20622 PURE module subroutine setMatCopy_RDP_RDP_XXD_TSO_SK4(destin, dpack, source, spack, subset, operation, doff)
20623#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20624 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_TSO_SK4
20625#endif
20626 use pm_kind, only: SKG => SK4
20627 type(rdpack_type) , intent(in) :: dpack
20628 type(rdpack_type) , intent(in) :: spack
20629 type(dia_type) , intent(in) :: subset
20630 type(transSymm_type) , intent(in) :: operation
20631 integer(IK) , intent(in) , optional :: doff
20632 character(*,SKG) , intent(in) :: source(:,:)
20633 character(*,SKG) , intent(inout) :: destin(:,:)
20634 end subroutine
20635#endif
20636
20637#if SK3_ENABLED
20638 PURE module subroutine setMatCopy_RDP_RDP_XXD_TSO_SK3(destin, dpack, source, spack, subset, operation, doff)
20639#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20640 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_TSO_SK3
20641#endif
20642 use pm_kind, only: SKG => SK3
20643 type(rdpack_type) , intent(in) :: dpack
20644 type(rdpack_type) , intent(in) :: spack
20645 type(dia_type) , intent(in) :: subset
20646 type(transSymm_type) , intent(in) :: operation
20647 integer(IK) , intent(in) , optional :: doff
20648 character(*,SKG) , intent(in) :: source(:,:)
20649 character(*,SKG) , intent(inout) :: destin(:,:)
20650 end subroutine
20651#endif
20652
20653#if SK2_ENABLED
20654 PURE module subroutine setMatCopy_RDP_RDP_XXD_TSO_SK2(destin, dpack, source, spack, subset, operation, doff)
20655#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20656 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_TSO_SK2
20657#endif
20658 use pm_kind, only: SKG => SK2
20659 type(rdpack_type) , intent(in) :: dpack
20660 type(rdpack_type) , intent(in) :: spack
20661 type(dia_type) , intent(in) :: subset
20662 type(transSymm_type) , intent(in) :: operation
20663 integer(IK) , intent(in) , optional :: doff
20664 character(*,SKG) , intent(in) :: source(:,:)
20665 character(*,SKG) , intent(inout) :: destin(:,:)
20666 end subroutine
20667#endif
20668
20669#if SK1_ENABLED
20670 PURE module subroutine setMatCopy_RDP_RDP_XXD_TSO_SK1(destin, dpack, source, spack, subset, operation, doff)
20671#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20672 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_TSO_SK1
20673#endif
20674 use pm_kind, only: SKG => SK1
20675 type(rdpack_type) , intent(in) :: dpack
20676 type(rdpack_type) , intent(in) :: spack
20677 type(dia_type) , intent(in) :: subset
20678 type(transSymm_type) , intent(in) :: operation
20679 integer(IK) , intent(in) , optional :: doff
20680 character(*,SKG) , intent(in) :: source(:,:)
20681 character(*,SKG) , intent(inout) :: destin(:,:)
20682 end subroutine
20683#endif
20684
20685 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20686
20687#if IK5_ENABLED
20688 PURE module subroutine setMatCopy_RDP_RDP_XXD_TSO_IK5(destin, dpack, source, spack, subset, operation, doff)
20689#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20690 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_TSO_IK5
20691#endif
20692 use pm_kind, only: IKG => IK5
20693 type(rdpack_type) , intent(in) :: dpack
20694 type(rdpack_type) , intent(in) :: spack
20695 type(dia_type) , intent(in) :: subset
20696 type(transSymm_type) , intent(in) :: operation
20697 integer(IK) , intent(in) , optional :: doff
20698 integer(IKG) , intent(in) :: source(:,:)
20699 integer(IKG) , intent(inout) :: destin(:,:)
20700 end subroutine
20701#endif
20702
20703#if IK4_ENABLED
20704 PURE module subroutine setMatCopy_RDP_RDP_XXD_TSO_IK4(destin, dpack, source, spack, subset, operation, doff)
20705#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20706 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_TSO_IK4
20707#endif
20708 use pm_kind, only: IKG => IK4
20709 type(rdpack_type) , intent(in) :: dpack
20710 type(rdpack_type) , intent(in) :: spack
20711 type(dia_type) , intent(in) :: subset
20712 type(transSymm_type) , intent(in) :: operation
20713 integer(IK) , intent(in) , optional :: doff
20714 integer(IKG) , intent(in) :: source(:,:)
20715 integer(IKG) , intent(inout) :: destin(:,:)
20716 end subroutine
20717#endif
20718
20719#if IK3_ENABLED
20720 PURE module subroutine setMatCopy_RDP_RDP_XXD_TSO_IK3(destin, dpack, source, spack, subset, operation, doff)
20721#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20722 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_TSO_IK3
20723#endif
20724 use pm_kind, only: IKG => IK3
20725 type(rdpack_type) , intent(in) :: dpack
20726 type(rdpack_type) , intent(in) :: spack
20727 type(dia_type) , intent(in) :: subset
20728 type(transSymm_type) , intent(in) :: operation
20729 integer(IK) , intent(in) , optional :: doff
20730 integer(IKG) , intent(in) :: source(:,:)
20731 integer(IKG) , intent(inout) :: destin(:,:)
20732 end subroutine
20733#endif
20734
20735#if IK2_ENABLED
20736 PURE module subroutine setMatCopy_RDP_RDP_XXD_TSO_IK2(destin, dpack, source, spack, subset, operation, doff)
20737#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20738 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_TSO_IK2
20739#endif
20740 use pm_kind, only: IKG => IK2
20741 type(rdpack_type) , intent(in) :: dpack
20742 type(rdpack_type) , intent(in) :: spack
20743 type(dia_type) , intent(in) :: subset
20744 type(transSymm_type) , intent(in) :: operation
20745 integer(IK) , intent(in) , optional :: doff
20746 integer(IKG) , intent(in) :: source(:,:)
20747 integer(IKG) , intent(inout) :: destin(:,:)
20748 end subroutine
20749#endif
20750
20751#if IK1_ENABLED
20752 PURE module subroutine setMatCopy_RDP_RDP_XXD_TSO_IK1(destin, dpack, source, spack, subset, operation, doff)
20753#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20754 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_TSO_IK1
20755#endif
20756 use pm_kind, only: IKG => IK1
20757 type(rdpack_type) , intent(in) :: dpack
20758 type(rdpack_type) , intent(in) :: spack
20759 type(dia_type) , intent(in) :: subset
20760 type(transSymm_type) , intent(in) :: operation
20761 integer(IK) , intent(in) , optional :: doff
20762 integer(IKG) , intent(in) :: source(:,:)
20763 integer(IKG) , intent(inout) :: destin(:,:)
20764 end subroutine
20765#endif
20766
20767 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20768
20769#if LK5_ENABLED
20770 PURE module subroutine setMatCopy_RDP_RDP_XXD_TSO_LK5(destin, dpack, source, spack, subset, operation, doff)
20771#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20772 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_TSO_LK5
20773#endif
20774 use pm_kind, only: LKG => LK5
20775 type(rdpack_type) , intent(in) :: dpack
20776 type(rdpack_type) , intent(in) :: spack
20777 type(dia_type) , intent(in) :: subset
20778 type(transSymm_type) , intent(in) :: operation
20779 integer(IK) , intent(in) , optional :: doff
20780 logical(LKG) , intent(in) :: source(:,:)
20781 logical(LKG) , intent(inout) :: destin(:,:)
20782 end subroutine
20783#endif
20784
20785#if LK4_ENABLED
20786 PURE module subroutine setMatCopy_RDP_RDP_XXD_TSO_LK4(destin, dpack, source, spack, subset, operation, doff)
20787#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20788 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_TSO_LK4
20789#endif
20790 use pm_kind, only: LKG => LK4
20791 type(rdpack_type) , intent(in) :: dpack
20792 type(rdpack_type) , intent(in) :: spack
20793 type(dia_type) , intent(in) :: subset
20794 type(transSymm_type) , intent(in) :: operation
20795 integer(IK) , intent(in) , optional :: doff
20796 logical(LKG) , intent(in) :: source(:,:)
20797 logical(LKG) , intent(inout) :: destin(:,:)
20798 end subroutine
20799#endif
20800
20801#if LK3_ENABLED
20802 PURE module subroutine setMatCopy_RDP_RDP_XXD_TSO_LK3(destin, dpack, source, spack, subset, operation, doff)
20803#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20804 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_TSO_LK3
20805#endif
20806 use pm_kind, only: LKG => LK3
20807 type(rdpack_type) , intent(in) :: dpack
20808 type(rdpack_type) , intent(in) :: spack
20809 type(dia_type) , intent(in) :: subset
20810 type(transSymm_type) , intent(in) :: operation
20811 integer(IK) , intent(in) , optional :: doff
20812 logical(LKG) , intent(in) :: source(:,:)
20813 logical(LKG) , intent(inout) :: destin(:,:)
20814 end subroutine
20815#endif
20816
20817#if LK2_ENABLED
20818 PURE module subroutine setMatCopy_RDP_RDP_XXD_TSO_LK2(destin, dpack, source, spack, subset, operation, doff)
20819#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20820 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_TSO_LK2
20821#endif
20822 use pm_kind, only: LKG => LK2
20823 type(rdpack_type) , intent(in) :: dpack
20824 type(rdpack_type) , intent(in) :: spack
20825 type(dia_type) , intent(in) :: subset
20826 type(transSymm_type) , intent(in) :: operation
20827 integer(IK) , intent(in) , optional :: doff
20828 logical(LKG) , intent(in) :: source(:,:)
20829 logical(LKG) , intent(inout) :: destin(:,:)
20830 end subroutine
20831#endif
20832
20833#if LK1_ENABLED
20834 PURE module subroutine setMatCopy_RDP_RDP_XXD_TSO_LK1(destin, dpack, source, spack, subset, operation, doff)
20835#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20836 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_TSO_LK1
20837#endif
20838 use pm_kind, only: LKG => LK1
20839 type(rdpack_type) , intent(in) :: dpack
20840 type(rdpack_type) , intent(in) :: spack
20841 type(dia_type) , intent(in) :: subset
20842 type(transSymm_type) , intent(in) :: operation
20843 integer(IK) , intent(in) , optional :: doff
20844 logical(LKG) , intent(in) :: source(:,:)
20845 logical(LKG) , intent(inout) :: destin(:,:)
20846 end subroutine
20847#endif
20848
20849 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20850
20851#if CK5_ENABLED
20852 PURE module subroutine setMatCopy_RDP_RDP_XXD_TSO_CK5(destin, dpack, source, spack, subset, operation, doff)
20853#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20854 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_TSO_CK5
20855#endif
20856 use pm_kind, only: CKG => CK5
20857 type(rdpack_type) , intent(in) :: dpack
20858 type(rdpack_type) , intent(in) :: spack
20859 type(dia_type) , intent(in) :: subset
20860 type(transSymm_type) , intent(in) :: operation
20861 integer(IK) , intent(in) , optional :: doff
20862 complex(CKG) , intent(in) :: source(:,:)
20863 complex(CKG) , intent(inout) :: destin(:,:)
20864 end subroutine
20865#endif
20866
20867#if CK4_ENABLED
20868 PURE module subroutine setMatCopy_RDP_RDP_XXD_TSO_CK4(destin, dpack, source, spack, subset, operation, doff)
20869#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20870 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_TSO_CK4
20871#endif
20872 use pm_kind, only: CKG => CK4
20873 type(rdpack_type) , intent(in) :: dpack
20874 type(rdpack_type) , intent(in) :: spack
20875 type(dia_type) , intent(in) :: subset
20876 type(transSymm_type) , intent(in) :: operation
20877 integer(IK) , intent(in) , optional :: doff
20878 complex(CKG) , intent(in) :: source(:,:)
20879 complex(CKG) , intent(inout) :: destin(:,:)
20880 end subroutine
20881#endif
20882
20883#if CK3_ENABLED
20884 PURE module subroutine setMatCopy_RDP_RDP_XXD_TSO_CK3(destin, dpack, source, spack, subset, operation, doff)
20885#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20886 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_TSO_CK3
20887#endif
20888 use pm_kind, only: CKG => CK3
20889 type(rdpack_type) , intent(in) :: dpack
20890 type(rdpack_type) , intent(in) :: spack
20891 type(dia_type) , intent(in) :: subset
20892 type(transSymm_type) , intent(in) :: operation
20893 integer(IK) , intent(in) , optional :: doff
20894 complex(CKG) , intent(in) :: source(:,:)
20895 complex(CKG) , intent(inout) :: destin(:,:)
20896 end subroutine
20897#endif
20898
20899#if CK2_ENABLED
20900 PURE module subroutine setMatCopy_RDP_RDP_XXD_TSO_CK2(destin, dpack, source, spack, subset, operation, doff)
20901#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20902 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_TSO_CK2
20903#endif
20904 use pm_kind, only: CKG => CK2
20905 type(rdpack_type) , intent(in) :: dpack
20906 type(rdpack_type) , intent(in) :: spack
20907 type(dia_type) , intent(in) :: subset
20908 type(transSymm_type) , intent(in) :: operation
20909 integer(IK) , intent(in) , optional :: doff
20910 complex(CKG) , intent(in) :: source(:,:)
20911 complex(CKG) , intent(inout) :: destin(:,:)
20912 end subroutine
20913#endif
20914
20915#if CK1_ENABLED
20916 PURE module subroutine setMatCopy_RDP_RDP_XXD_TSO_CK1(destin, dpack, source, spack, subset, operation, doff)
20917#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20918 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_TSO_CK1
20919#endif
20920 use pm_kind, only: CKG => CK1
20921 type(rdpack_type) , intent(in) :: dpack
20922 type(rdpack_type) , intent(in) :: spack
20923 type(dia_type) , intent(in) :: subset
20924 type(transSymm_type) , intent(in) :: operation
20925 integer(IK) , intent(in) , optional :: doff
20926 complex(CKG) , intent(in) :: source(:,:)
20927 complex(CKG) , intent(inout) :: destin(:,:)
20928 end subroutine
20929#endif
20930
20931 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20932
20933#if RK5_ENABLED
20934 PURE module subroutine setMatCopy_RDP_RDP_XXD_TSO_RK5(destin, dpack, source, spack, subset, operation, doff)
20935#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20936 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_TSO_RK5
20937#endif
20938 use pm_kind, only: RKG => RK5
20939 type(rdpack_type) , intent(in) :: dpack
20940 type(rdpack_type) , intent(in) :: spack
20941 type(dia_type) , intent(in) :: subset
20942 type(transSymm_type) , intent(in) :: operation
20943 integer(IK) , intent(in) , optional :: doff
20944 real(RKG) , intent(in) :: source(:,:)
20945 real(RKG) , intent(inout) :: destin(:,:)
20946 end subroutine
20947#endif
20948
20949#if RK4_ENABLED
20950 PURE module subroutine setMatCopy_RDP_RDP_XXD_TSO_RK4(destin, dpack, source, spack, subset, operation, doff)
20951#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20952 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_TSO_RK4
20953#endif
20954 use pm_kind, only: RKG => RK4
20955 type(rdpack_type) , intent(in) :: dpack
20956 type(rdpack_type) , intent(in) :: spack
20957 type(dia_type) , intent(in) :: subset
20958 type(transSymm_type) , intent(in) :: operation
20959 integer(IK) , intent(in) , optional :: doff
20960 real(RKG) , intent(in) :: source(:,:)
20961 real(RKG) , intent(inout) :: destin(:,:)
20962 end subroutine
20963#endif
20964
20965#if RK3_ENABLED
20966 PURE module subroutine setMatCopy_RDP_RDP_XXD_TSO_RK3(destin, dpack, source, spack, subset, operation, doff)
20967#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20968 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_TSO_RK3
20969#endif
20970 use pm_kind, only: RKG => RK3
20971 type(rdpack_type) , intent(in) :: dpack
20972 type(rdpack_type) , intent(in) :: spack
20973 type(dia_type) , intent(in) :: subset
20974 type(transSymm_type) , intent(in) :: operation
20975 integer(IK) , intent(in) , optional :: doff
20976 real(RKG) , intent(in) :: source(:,:)
20977 real(RKG) , intent(inout) :: destin(:,:)
20978 end subroutine
20979#endif
20980
20981#if RK2_ENABLED
20982 PURE module subroutine setMatCopy_RDP_RDP_XXD_TSO_RK2(destin, dpack, source, spack, subset, operation, doff)
20983#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20984 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_TSO_RK2
20985#endif
20986 use pm_kind, only: RKG => RK2
20987 type(rdpack_type) , intent(in) :: dpack
20988 type(rdpack_type) , intent(in) :: spack
20989 type(dia_type) , intent(in) :: subset
20990 type(transSymm_type) , intent(in) :: operation
20991 integer(IK) , intent(in) , optional :: doff
20992 real(RKG) , intent(in) :: source(:,:)
20993 real(RKG) , intent(inout) :: destin(:,:)
20994 end subroutine
20995#endif
20996
20997#if RK1_ENABLED
20998 PURE module subroutine setMatCopy_RDP_RDP_XXD_TSO_RK1(destin, dpack, source, spack, subset, operation, doff)
20999#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21000 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_TSO_RK1
21001#endif
21002 use pm_kind, only: RKG => RK1
21003 type(rdpack_type) , intent(in) :: dpack
21004 type(rdpack_type) , intent(in) :: spack
21005 type(dia_type) , intent(in) :: subset
21006 type(transSymm_type) , intent(in) :: operation
21007 integer(IK) , intent(in) , optional :: doff
21008 real(RKG) , intent(in) :: source(:,:)
21009 real(RKG) , intent(inout) :: destin(:,:)
21010 end subroutine
21011#endif
21012
21013 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21014
21015 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21016 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21017 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21018
21019 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21020
21021#if SK5_ENABLED
21022 PURE module subroutine setMatCopy_RDP_RDP_XXD_THO_SK5(destin, dpack, source, spack, subset, operation, doff)
21023#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21024 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_THO_SK5
21025#endif
21026 use pm_kind, only: SKG => SK5
21027 type(rdpack_type) , intent(in) :: dpack
21028 type(rdpack_type) , intent(in) :: spack
21029 type(dia_type) , intent(in) :: subset
21030 type(transHerm_type) , intent(in) :: operation
21031 integer(IK) , intent(in) , optional :: doff
21032 character(*,SKG) , intent(in) :: source(:,:)
21033 character(*,SKG) , intent(inout) :: destin(:,:)
21034 end subroutine
21035#endif
21036
21037#if SK4_ENABLED
21038 PURE module subroutine setMatCopy_RDP_RDP_XXD_THO_SK4(destin, dpack, source, spack, subset, operation, doff)
21039#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21040 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_THO_SK4
21041#endif
21042 use pm_kind, only: SKG => SK4
21043 type(rdpack_type) , intent(in) :: dpack
21044 type(rdpack_type) , intent(in) :: spack
21045 type(dia_type) , intent(in) :: subset
21046 type(transHerm_type) , intent(in) :: operation
21047 integer(IK) , intent(in) , optional :: doff
21048 character(*,SKG) , intent(in) :: source(:,:)
21049 character(*,SKG) , intent(inout) :: destin(:,:)
21050 end subroutine
21051#endif
21052
21053#if SK3_ENABLED
21054 PURE module subroutine setMatCopy_RDP_RDP_XXD_THO_SK3(destin, dpack, source, spack, subset, operation, doff)
21055#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21056 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_THO_SK3
21057#endif
21058 use pm_kind, only: SKG => SK3
21059 type(rdpack_type) , intent(in) :: dpack
21060 type(rdpack_type) , intent(in) :: spack
21061 type(dia_type) , intent(in) :: subset
21062 type(transHerm_type) , intent(in) :: operation
21063 integer(IK) , intent(in) , optional :: doff
21064 character(*,SKG) , intent(in) :: source(:,:)
21065 character(*,SKG) , intent(inout) :: destin(:,:)
21066 end subroutine
21067#endif
21068
21069#if SK2_ENABLED
21070 PURE module subroutine setMatCopy_RDP_RDP_XXD_THO_SK2(destin, dpack, source, spack, subset, operation, doff)
21071#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21072 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_THO_SK2
21073#endif
21074 use pm_kind, only: SKG => SK2
21075 type(rdpack_type) , intent(in) :: dpack
21076 type(rdpack_type) , intent(in) :: spack
21077 type(dia_type) , intent(in) :: subset
21078 type(transHerm_type) , intent(in) :: operation
21079 integer(IK) , intent(in) , optional :: doff
21080 character(*,SKG) , intent(in) :: source(:,:)
21081 character(*,SKG) , intent(inout) :: destin(:,:)
21082 end subroutine
21083#endif
21084
21085#if SK1_ENABLED
21086 PURE module subroutine setMatCopy_RDP_RDP_XXD_THO_SK1(destin, dpack, source, spack, subset, operation, doff)
21087#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21088 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_THO_SK1
21089#endif
21090 use pm_kind, only: SKG => SK1
21091 type(rdpack_type) , intent(in) :: dpack
21092 type(rdpack_type) , intent(in) :: spack
21093 type(dia_type) , intent(in) :: subset
21094 type(transHerm_type) , intent(in) :: operation
21095 integer(IK) , intent(in) , optional :: doff
21096 character(*,SKG) , intent(in) :: source(:,:)
21097 character(*,SKG) , intent(inout) :: destin(:,:)
21098 end subroutine
21099#endif
21100
21101 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21102
21103#if IK5_ENABLED
21104 PURE module subroutine setMatCopy_RDP_RDP_XXD_THO_IK5(destin, dpack, source, spack, subset, operation, doff)
21105#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21106 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_THO_IK5
21107#endif
21108 use pm_kind, only: IKG => IK5
21109 type(rdpack_type) , intent(in) :: dpack
21110 type(rdpack_type) , intent(in) :: spack
21111 type(dia_type) , intent(in) :: subset
21112 type(transHerm_type) , intent(in) :: operation
21113 integer(IK) , intent(in) , optional :: doff
21114 integer(IKG) , intent(in) :: source(:,:)
21115 integer(IKG) , intent(inout) :: destin(:,:)
21116 end subroutine
21117#endif
21118
21119#if IK4_ENABLED
21120 PURE module subroutine setMatCopy_RDP_RDP_XXD_THO_IK4(destin, dpack, source, spack, subset, operation, doff)
21121#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21122 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_THO_IK4
21123#endif
21124 use pm_kind, only: IKG => IK4
21125 type(rdpack_type) , intent(in) :: dpack
21126 type(rdpack_type) , intent(in) :: spack
21127 type(dia_type) , intent(in) :: subset
21128 type(transHerm_type) , intent(in) :: operation
21129 integer(IK) , intent(in) , optional :: doff
21130 integer(IKG) , intent(in) :: source(:,:)
21131 integer(IKG) , intent(inout) :: destin(:,:)
21132 end subroutine
21133#endif
21134
21135#if IK3_ENABLED
21136 PURE module subroutine setMatCopy_RDP_RDP_XXD_THO_IK3(destin, dpack, source, spack, subset, operation, doff)
21137#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21138 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_THO_IK3
21139#endif
21140 use pm_kind, only: IKG => IK3
21141 type(rdpack_type) , intent(in) :: dpack
21142 type(rdpack_type) , intent(in) :: spack
21143 type(dia_type) , intent(in) :: subset
21144 type(transHerm_type) , intent(in) :: operation
21145 integer(IK) , intent(in) , optional :: doff
21146 integer(IKG) , intent(in) :: source(:,:)
21147 integer(IKG) , intent(inout) :: destin(:,:)
21148 end subroutine
21149#endif
21150
21151#if IK2_ENABLED
21152 PURE module subroutine setMatCopy_RDP_RDP_XXD_THO_IK2(destin, dpack, source, spack, subset, operation, doff)
21153#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21154 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_THO_IK2
21155#endif
21156 use pm_kind, only: IKG => IK2
21157 type(rdpack_type) , intent(in) :: dpack
21158 type(rdpack_type) , intent(in) :: spack
21159 type(dia_type) , intent(in) :: subset
21160 type(transHerm_type) , intent(in) :: operation
21161 integer(IK) , intent(in) , optional :: doff
21162 integer(IKG) , intent(in) :: source(:,:)
21163 integer(IKG) , intent(inout) :: destin(:,:)
21164 end subroutine
21165#endif
21166
21167#if IK1_ENABLED
21168 PURE module subroutine setMatCopy_RDP_RDP_XXD_THO_IK1(destin, dpack, source, spack, subset, operation, doff)
21169#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21170 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_THO_IK1
21171#endif
21172 use pm_kind, only: IKG => IK1
21173 type(rdpack_type) , intent(in) :: dpack
21174 type(rdpack_type) , intent(in) :: spack
21175 type(dia_type) , intent(in) :: subset
21176 type(transHerm_type) , intent(in) :: operation
21177 integer(IK) , intent(in) , optional :: doff
21178 integer(IKG) , intent(in) :: source(:,:)
21179 integer(IKG) , intent(inout) :: destin(:,:)
21180 end subroutine
21181#endif
21182
21183 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21184
21185#if LK5_ENABLED
21186 PURE module subroutine setMatCopy_RDP_RDP_XXD_THO_LK5(destin, dpack, source, spack, subset, operation, doff)
21187#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21188 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_THO_LK5
21189#endif
21190 use pm_kind, only: LKG => LK5
21191 type(rdpack_type) , intent(in) :: dpack
21192 type(rdpack_type) , intent(in) :: spack
21193 type(dia_type) , intent(in) :: subset
21194 type(transHerm_type) , intent(in) :: operation
21195 integer(IK) , intent(in) , optional :: doff
21196 logical(LKG) , intent(in) :: source(:,:)
21197 logical(LKG) , intent(inout) :: destin(:,:)
21198 end subroutine
21199#endif
21200
21201#if LK4_ENABLED
21202 PURE module subroutine setMatCopy_RDP_RDP_XXD_THO_LK4(destin, dpack, source, spack, subset, operation, doff)
21203#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21204 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_THO_LK4
21205#endif
21206 use pm_kind, only: LKG => LK4
21207 type(rdpack_type) , intent(in) :: dpack
21208 type(rdpack_type) , intent(in) :: spack
21209 type(dia_type) , intent(in) :: subset
21210 type(transHerm_type) , intent(in) :: operation
21211 integer(IK) , intent(in) , optional :: doff
21212 logical(LKG) , intent(in) :: source(:,:)
21213 logical(LKG) , intent(inout) :: destin(:,:)
21214 end subroutine
21215#endif
21216
21217#if LK3_ENABLED
21218 PURE module subroutine setMatCopy_RDP_RDP_XXD_THO_LK3(destin, dpack, source, spack, subset, operation, doff)
21219#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21220 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_THO_LK3
21221#endif
21222 use pm_kind, only: LKG => LK3
21223 type(rdpack_type) , intent(in) :: dpack
21224 type(rdpack_type) , intent(in) :: spack
21225 type(dia_type) , intent(in) :: subset
21226 type(transHerm_type) , intent(in) :: operation
21227 integer(IK) , intent(in) , optional :: doff
21228 logical(LKG) , intent(in) :: source(:,:)
21229 logical(LKG) , intent(inout) :: destin(:,:)
21230 end subroutine
21231#endif
21232
21233#if LK2_ENABLED
21234 PURE module subroutine setMatCopy_RDP_RDP_XXD_THO_LK2(destin, dpack, source, spack, subset, operation, doff)
21235#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21236 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_THO_LK2
21237#endif
21238 use pm_kind, only: LKG => LK2
21239 type(rdpack_type) , intent(in) :: dpack
21240 type(rdpack_type) , intent(in) :: spack
21241 type(dia_type) , intent(in) :: subset
21242 type(transHerm_type) , intent(in) :: operation
21243 integer(IK) , intent(in) , optional :: doff
21244 logical(LKG) , intent(in) :: source(:,:)
21245 logical(LKG) , intent(inout) :: destin(:,:)
21246 end subroutine
21247#endif
21248
21249#if LK1_ENABLED
21250 PURE module subroutine setMatCopy_RDP_RDP_XXD_THO_LK1(destin, dpack, source, spack, subset, operation, doff)
21251#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21252 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_THO_LK1
21253#endif
21254 use pm_kind, only: LKG => LK1
21255 type(rdpack_type) , intent(in) :: dpack
21256 type(rdpack_type) , intent(in) :: spack
21257 type(dia_type) , intent(in) :: subset
21258 type(transHerm_type) , intent(in) :: operation
21259 integer(IK) , intent(in) , optional :: doff
21260 logical(LKG) , intent(in) :: source(:,:)
21261 logical(LKG) , intent(inout) :: destin(:,:)
21262 end subroutine
21263#endif
21264
21265 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21266
21267#if CK5_ENABLED
21268 PURE module subroutine setMatCopy_RDP_RDP_XXD_THO_CK5(destin, dpack, source, spack, subset, operation, doff)
21269#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21270 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_THO_CK5
21271#endif
21272 use pm_kind, only: CKG => CK5
21273 type(rdpack_type) , intent(in) :: dpack
21274 type(rdpack_type) , intent(in) :: spack
21275 type(dia_type) , intent(in) :: subset
21276 type(transHerm_type) , intent(in) :: operation
21277 integer(IK) , intent(in) , optional :: doff
21278 complex(CKG) , intent(in) :: source(:,:)
21279 complex(CKG) , intent(inout) :: destin(:,:)
21280 end subroutine
21281#endif
21282
21283#if CK4_ENABLED
21284 PURE module subroutine setMatCopy_RDP_RDP_XXD_THO_CK4(destin, dpack, source, spack, subset, operation, doff)
21285#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21286 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_THO_CK4
21287#endif
21288 use pm_kind, only: CKG => CK4
21289 type(rdpack_type) , intent(in) :: dpack
21290 type(rdpack_type) , intent(in) :: spack
21291 type(dia_type) , intent(in) :: subset
21292 type(transHerm_type) , intent(in) :: operation
21293 integer(IK) , intent(in) , optional :: doff
21294 complex(CKG) , intent(in) :: source(:,:)
21295 complex(CKG) , intent(inout) :: destin(:,:)
21296 end subroutine
21297#endif
21298
21299#if CK3_ENABLED
21300 PURE module subroutine setMatCopy_RDP_RDP_XXD_THO_CK3(destin, dpack, source, spack, subset, operation, doff)
21301#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21302 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_THO_CK3
21303#endif
21304 use pm_kind, only: CKG => CK3
21305 type(rdpack_type) , intent(in) :: dpack
21306 type(rdpack_type) , intent(in) :: spack
21307 type(dia_type) , intent(in) :: subset
21308 type(transHerm_type) , intent(in) :: operation
21309 integer(IK) , intent(in) , optional :: doff
21310 complex(CKG) , intent(in) :: source(:,:)
21311 complex(CKG) , intent(inout) :: destin(:,:)
21312 end subroutine
21313#endif
21314
21315#if CK2_ENABLED
21316 PURE module subroutine setMatCopy_RDP_RDP_XXD_THO_CK2(destin, dpack, source, spack, subset, operation, doff)
21317#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21318 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_THO_CK2
21319#endif
21320 use pm_kind, only: CKG => CK2
21321 type(rdpack_type) , intent(in) :: dpack
21322 type(rdpack_type) , intent(in) :: spack
21323 type(dia_type) , intent(in) :: subset
21324 type(transHerm_type) , intent(in) :: operation
21325 integer(IK) , intent(in) , optional :: doff
21326 complex(CKG) , intent(in) :: source(:,:)
21327 complex(CKG) , intent(inout) :: destin(:,:)
21328 end subroutine
21329#endif
21330
21331#if CK1_ENABLED
21332 PURE module subroutine setMatCopy_RDP_RDP_XXD_THO_CK1(destin, dpack, source, spack, subset, operation, doff)
21333#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21334 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_THO_CK1
21335#endif
21336 use pm_kind, only: CKG => CK1
21337 type(rdpack_type) , intent(in) :: dpack
21338 type(rdpack_type) , intent(in) :: spack
21339 type(dia_type) , intent(in) :: subset
21340 type(transHerm_type) , intent(in) :: operation
21341 integer(IK) , intent(in) , optional :: doff
21342 complex(CKG) , intent(in) :: source(:,:)
21343 complex(CKG) , intent(inout) :: destin(:,:)
21344 end subroutine
21345#endif
21346
21347 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21348
21349#if RK5_ENABLED
21350 PURE module subroutine setMatCopy_RDP_RDP_XXD_THO_RK5(destin, dpack, source, spack, subset, operation, doff)
21351#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21352 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_THO_RK5
21353#endif
21354 use pm_kind, only: RKG => RK5
21355 type(rdpack_type) , intent(in) :: dpack
21356 type(rdpack_type) , intent(in) :: spack
21357 type(dia_type) , intent(in) :: subset
21358 type(transHerm_type) , intent(in) :: operation
21359 integer(IK) , intent(in) , optional :: doff
21360 real(RKG) , intent(in) :: source(:,:)
21361 real(RKG) , intent(inout) :: destin(:,:)
21362 end subroutine
21363#endif
21364
21365#if RK4_ENABLED
21366 PURE module subroutine setMatCopy_RDP_RDP_XXD_THO_RK4(destin, dpack, source, spack, subset, operation, doff)
21367#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21368 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_THO_RK4
21369#endif
21370 use pm_kind, only: RKG => RK4
21371 type(rdpack_type) , intent(in) :: dpack
21372 type(rdpack_type) , intent(in) :: spack
21373 type(dia_type) , intent(in) :: subset
21374 type(transHerm_type) , intent(in) :: operation
21375 integer(IK) , intent(in) , optional :: doff
21376 real(RKG) , intent(in) :: source(:,:)
21377 real(RKG) , intent(inout) :: destin(:,:)
21378 end subroutine
21379#endif
21380
21381#if RK3_ENABLED
21382 PURE module subroutine setMatCopy_RDP_RDP_XXD_THO_RK3(destin, dpack, source, spack, subset, operation, doff)
21383#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21384 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_THO_RK3
21385#endif
21386 use pm_kind, only: RKG => RK3
21387 type(rdpack_type) , intent(in) :: dpack
21388 type(rdpack_type) , intent(in) :: spack
21389 type(dia_type) , intent(in) :: subset
21390 type(transHerm_type) , intent(in) :: operation
21391 integer(IK) , intent(in) , optional :: doff
21392 real(RKG) , intent(in) :: source(:,:)
21393 real(RKG) , intent(inout) :: destin(:,:)
21394 end subroutine
21395#endif
21396
21397#if RK2_ENABLED
21398 PURE module subroutine setMatCopy_RDP_RDP_XXD_THO_RK2(destin, dpack, source, spack, subset, operation, doff)
21399#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21400 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_THO_RK2
21401#endif
21402 use pm_kind, only: RKG => RK2
21403 type(rdpack_type) , intent(in) :: dpack
21404 type(rdpack_type) , intent(in) :: spack
21405 type(dia_type) , intent(in) :: subset
21406 type(transHerm_type) , intent(in) :: operation
21407 integer(IK) , intent(in) , optional :: doff
21408 real(RKG) , intent(in) :: source(:,:)
21409 real(RKG) , intent(inout) :: destin(:,:)
21410 end subroutine
21411#endif
21412
21413#if RK1_ENABLED
21414 PURE module subroutine setMatCopy_RDP_RDP_XXD_THO_RK1(destin, dpack, source, spack, subset, operation, doff)
21415#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21416 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XXD_THO_RK1
21417#endif
21418 use pm_kind, only: RKG => RK1
21419 type(rdpack_type) , intent(in) :: dpack
21420 type(rdpack_type) , intent(in) :: spack
21421 type(dia_type) , intent(in) :: subset
21422 type(transHerm_type) , intent(in) :: operation
21423 integer(IK) , intent(in) , optional :: doff
21424 real(RKG) , intent(in) :: source(:,:)
21425 real(RKG) , intent(inout) :: destin(:,:)
21426 end subroutine
21427#endif
21428
21429 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21430
21431 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21432 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21433 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21434
21435 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21436 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21437 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21438
21439 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21440
21441#if SK5_ENABLED
21442 PURE module subroutine setMatCopy_RDP_RDP_UXD_AIO_SK5(destin, dpack, source, spack, subset, doff)
21443#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21444 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_AIO_SK5
21445#endif
21446 use pm_kind, only: SKG => SK5
21447 type(rdpack_type) , intent(in) :: dpack
21448 type(rdpack_type) , intent(in) :: spack
21449 type(uppDia_type) , intent(in) :: subset
21450 integer(IK) , intent(in) , optional :: doff
21451 character(*,SKG) , intent(in) :: source(:,:)
21452 character(*,SKG) , intent(inout) :: destin(:,:)
21453 end subroutine
21454#endif
21455
21456#if SK4_ENABLED
21457 PURE module subroutine setMatCopy_RDP_RDP_UXD_AIO_SK4(destin, dpack, source, spack, subset, doff)
21458#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21459 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_AIO_SK4
21460#endif
21461 use pm_kind, only: SKG => SK4
21462 type(rdpack_type) , intent(in) :: dpack
21463 type(rdpack_type) , intent(in) :: spack
21464 type(uppDia_type) , intent(in) :: subset
21465 integer(IK) , intent(in) , optional :: doff
21466 character(*,SKG) , intent(in) :: source(:,:)
21467 character(*,SKG) , intent(inout) :: destin(:,:)
21468 end subroutine
21469#endif
21470
21471#if SK3_ENABLED
21472 PURE module subroutine setMatCopy_RDP_RDP_UXD_AIO_SK3(destin, dpack, source, spack, subset, doff)
21473#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21474 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_AIO_SK3
21475#endif
21476 use pm_kind, only: SKG => SK3
21477 type(rdpack_type) , intent(in) :: dpack
21478 type(rdpack_type) , intent(in) :: spack
21479 type(uppDia_type) , intent(in) :: subset
21480 integer(IK) , intent(in) , optional :: doff
21481 character(*,SKG) , intent(in) :: source(:,:)
21482 character(*,SKG) , intent(inout) :: destin(:,:)
21483 end subroutine
21484#endif
21485
21486#if SK2_ENABLED
21487 PURE module subroutine setMatCopy_RDP_RDP_UXD_AIO_SK2(destin, dpack, source, spack, subset, doff)
21488#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21489 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_AIO_SK2
21490#endif
21491 use pm_kind, only: SKG => SK2
21492 type(rdpack_type) , intent(in) :: dpack
21493 type(rdpack_type) , intent(in) :: spack
21494 type(uppDia_type) , intent(in) :: subset
21495 integer(IK) , intent(in) , optional :: doff
21496 character(*,SKG) , intent(in) :: source(:,:)
21497 character(*,SKG) , intent(inout) :: destin(:,:)
21498 end subroutine
21499#endif
21500
21501#if SK1_ENABLED
21502 PURE module subroutine setMatCopy_RDP_RDP_UXD_AIO_SK1(destin, dpack, source, spack, subset, doff)
21503#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21504 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_AIO_SK1
21505#endif
21506 use pm_kind, only: SKG => SK1
21507 type(rdpack_type) , intent(in) :: dpack
21508 type(rdpack_type) , intent(in) :: spack
21509 type(uppDia_type) , intent(in) :: subset
21510 integer(IK) , intent(in) , optional :: doff
21511 character(*,SKG) , intent(in) :: source(:,:)
21512 character(*,SKG) , intent(inout) :: destin(:,:)
21513 end subroutine
21514#endif
21515
21516 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21517
21518#if IK5_ENABLED
21519 PURE module subroutine setMatCopy_RDP_RDP_UXD_AIO_IK5(destin, dpack, source, spack, subset, doff)
21520#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21521 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_AIO_IK5
21522#endif
21523 use pm_kind, only: IKG => IK5
21524 type(rdpack_type) , intent(in) :: dpack
21525 type(rdpack_type) , intent(in) :: spack
21526 type(uppDia_type) , intent(in) :: subset
21527 integer(IK) , intent(in) , optional :: doff
21528 integer(IKG) , intent(in) :: source(:,:)
21529 integer(IKG) , intent(inout) :: destin(:,:)
21530 end subroutine
21531#endif
21532
21533#if IK4_ENABLED
21534 PURE module subroutine setMatCopy_RDP_RDP_UXD_AIO_IK4(destin, dpack, source, spack, subset, doff)
21535#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21536 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_AIO_IK4
21537#endif
21538 use pm_kind, only: IKG => IK4
21539 type(rdpack_type) , intent(in) :: dpack
21540 type(rdpack_type) , intent(in) :: spack
21541 type(uppDia_type) , intent(in) :: subset
21542 integer(IK) , intent(in) , optional :: doff
21543 integer(IKG) , intent(in) :: source(:,:)
21544 integer(IKG) , intent(inout) :: destin(:,:)
21545 end subroutine
21546#endif
21547
21548#if IK3_ENABLED
21549 PURE module subroutine setMatCopy_RDP_RDP_UXD_AIO_IK3(destin, dpack, source, spack, subset, doff)
21550#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21551 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_AIO_IK3
21552#endif
21553 use pm_kind, only: IKG => IK3
21554 type(rdpack_type) , intent(in) :: dpack
21555 type(rdpack_type) , intent(in) :: spack
21556 type(uppDia_type) , intent(in) :: subset
21557 integer(IK) , intent(in) , optional :: doff
21558 integer(IKG) , intent(in) :: source(:,:)
21559 integer(IKG) , intent(inout) :: destin(:,:)
21560 end subroutine
21561#endif
21562
21563#if IK2_ENABLED
21564 PURE module subroutine setMatCopy_RDP_RDP_UXD_AIO_IK2(destin, dpack, source, spack, subset, doff)
21565#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21566 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_AIO_IK2
21567#endif
21568 use pm_kind, only: IKG => IK2
21569 type(rdpack_type) , intent(in) :: dpack
21570 type(rdpack_type) , intent(in) :: spack
21571 type(uppDia_type) , intent(in) :: subset
21572 integer(IK) , intent(in) , optional :: doff
21573 integer(IKG) , intent(in) :: source(:,:)
21574 integer(IKG) , intent(inout) :: destin(:,:)
21575 end subroutine
21576#endif
21577
21578#if IK1_ENABLED
21579 PURE module subroutine setMatCopy_RDP_RDP_UXD_AIO_IK1(destin, dpack, source, spack, subset, doff)
21580#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21581 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_AIO_IK1
21582#endif
21583 use pm_kind, only: IKG => IK1
21584 type(rdpack_type) , intent(in) :: dpack
21585 type(rdpack_type) , intent(in) :: spack
21586 type(uppDia_type) , intent(in) :: subset
21587 integer(IK) , intent(in) , optional :: doff
21588 integer(IKG) , intent(in) :: source(:,:)
21589 integer(IKG) , intent(inout) :: destin(:,:)
21590 end subroutine
21591#endif
21592
21593 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21594
21595#if LK5_ENABLED
21596 PURE module subroutine setMatCopy_RDP_RDP_UXD_AIO_LK5(destin, dpack, source, spack, subset, doff)
21597#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21598 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_AIO_LK5
21599#endif
21600 use pm_kind, only: LKG => LK5
21601 type(rdpack_type) , intent(in) :: dpack
21602 type(rdpack_type) , intent(in) :: spack
21603 type(uppDia_type) , intent(in) :: subset
21604 integer(IK) , intent(in) , optional :: doff
21605 logical(LKG) , intent(in) :: source(:,:)
21606 logical(LKG) , intent(inout) :: destin(:,:)
21607 end subroutine
21608#endif
21609
21610#if LK4_ENABLED
21611 PURE module subroutine setMatCopy_RDP_RDP_UXD_AIO_LK4(destin, dpack, source, spack, subset, doff)
21612#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21613 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_AIO_LK4
21614#endif
21615 use pm_kind, only: LKG => LK4
21616 type(rdpack_type) , intent(in) :: dpack
21617 type(rdpack_type) , intent(in) :: spack
21618 type(uppDia_type) , intent(in) :: subset
21619 integer(IK) , intent(in) , optional :: doff
21620 logical(LKG) , intent(in) :: source(:,:)
21621 logical(LKG) , intent(inout) :: destin(:,:)
21622 end subroutine
21623#endif
21624
21625#if LK3_ENABLED
21626 PURE module subroutine setMatCopy_RDP_RDP_UXD_AIO_LK3(destin, dpack, source, spack, subset, doff)
21627#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21628 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_AIO_LK3
21629#endif
21630 use pm_kind, only: LKG => LK3
21631 type(rdpack_type) , intent(in) :: dpack
21632 type(rdpack_type) , intent(in) :: spack
21633 type(uppDia_type) , intent(in) :: subset
21634 integer(IK) , intent(in) , optional :: doff
21635 logical(LKG) , intent(in) :: source(:,:)
21636 logical(LKG) , intent(inout) :: destin(:,:)
21637 end subroutine
21638#endif
21639
21640#if LK2_ENABLED
21641 PURE module subroutine setMatCopy_RDP_RDP_UXD_AIO_LK2(destin, dpack, source, spack, subset, doff)
21642#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21643 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_AIO_LK2
21644#endif
21645 use pm_kind, only: LKG => LK2
21646 type(rdpack_type) , intent(in) :: dpack
21647 type(rdpack_type) , intent(in) :: spack
21648 type(uppDia_type) , intent(in) :: subset
21649 integer(IK) , intent(in) , optional :: doff
21650 logical(LKG) , intent(in) :: source(:,:)
21651 logical(LKG) , intent(inout) :: destin(:,:)
21652 end subroutine
21653#endif
21654
21655#if LK1_ENABLED
21656 PURE module subroutine setMatCopy_RDP_RDP_UXD_AIO_LK1(destin, dpack, source, spack, subset, doff)
21657#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21658 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_AIO_LK1
21659#endif
21660 use pm_kind, only: LKG => LK1
21661 type(rdpack_type) , intent(in) :: dpack
21662 type(rdpack_type) , intent(in) :: spack
21663 type(uppDia_type) , intent(in) :: subset
21664 integer(IK) , intent(in) , optional :: doff
21665 logical(LKG) , intent(in) :: source(:,:)
21666 logical(LKG) , intent(inout) :: destin(:,:)
21667 end subroutine
21668#endif
21669
21670 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21671
21672#if CK5_ENABLED
21673 PURE module subroutine setMatCopy_RDP_RDP_UXD_AIO_CK5(destin, dpack, source, spack, subset, doff)
21674#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21675 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_AIO_CK5
21676#endif
21677 use pm_kind, only: CKG => CK5
21678 type(rdpack_type) , intent(in) :: dpack
21679 type(rdpack_type) , intent(in) :: spack
21680 type(uppDia_type) , intent(in) :: subset
21681 integer(IK) , intent(in) , optional :: doff
21682 complex(CKG) , intent(in) :: source(:,:)
21683 complex(CKG) , intent(inout) :: destin(:,:)
21684 end subroutine
21685#endif
21686
21687#if CK4_ENABLED
21688 PURE module subroutine setMatCopy_RDP_RDP_UXD_AIO_CK4(destin, dpack, source, spack, subset, doff)
21689#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21690 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_AIO_CK4
21691#endif
21692 use pm_kind, only: CKG => CK4
21693 type(rdpack_type) , intent(in) :: dpack
21694 type(rdpack_type) , intent(in) :: spack
21695 type(uppDia_type) , intent(in) :: subset
21696 integer(IK) , intent(in) , optional :: doff
21697 complex(CKG) , intent(in) :: source(:,:)
21698 complex(CKG) , intent(inout) :: destin(:,:)
21699 end subroutine
21700#endif
21701
21702#if CK3_ENABLED
21703 PURE module subroutine setMatCopy_RDP_RDP_UXD_AIO_CK3(destin, dpack, source, spack, subset, doff)
21704#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21705 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_AIO_CK3
21706#endif
21707 use pm_kind, only: CKG => CK3
21708 type(rdpack_type) , intent(in) :: dpack
21709 type(rdpack_type) , intent(in) :: spack
21710 type(uppDia_type) , intent(in) :: subset
21711 integer(IK) , intent(in) , optional :: doff
21712 complex(CKG) , intent(in) :: source(:,:)
21713 complex(CKG) , intent(inout) :: destin(:,:)
21714 end subroutine
21715#endif
21716
21717#if CK2_ENABLED
21718 PURE module subroutine setMatCopy_RDP_RDP_UXD_AIO_CK2(destin, dpack, source, spack, subset, doff)
21719#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21720 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_AIO_CK2
21721#endif
21722 use pm_kind, only: CKG => CK2
21723 type(rdpack_type) , intent(in) :: dpack
21724 type(rdpack_type) , intent(in) :: spack
21725 type(uppDia_type) , intent(in) :: subset
21726 integer(IK) , intent(in) , optional :: doff
21727 complex(CKG) , intent(in) :: source(:,:)
21728 complex(CKG) , intent(inout) :: destin(:,:)
21729 end subroutine
21730#endif
21731
21732#if CK1_ENABLED
21733 PURE module subroutine setMatCopy_RDP_RDP_UXD_AIO_CK1(destin, dpack, source, spack, subset, doff)
21734#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21735 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_AIO_CK1
21736#endif
21737 use pm_kind, only: CKG => CK1
21738 type(rdpack_type) , intent(in) :: dpack
21739 type(rdpack_type) , intent(in) :: spack
21740 type(uppDia_type) , intent(in) :: subset
21741 integer(IK) , intent(in) , optional :: doff
21742 complex(CKG) , intent(in) :: source(:,:)
21743 complex(CKG) , intent(inout) :: destin(:,:)
21744 end subroutine
21745#endif
21746
21747 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21748
21749#if RK5_ENABLED
21750 PURE module subroutine setMatCopy_RDP_RDP_UXD_AIO_RK5(destin, dpack, source, spack, subset, doff)
21751#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21752 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_AIO_RK5
21753#endif
21754 use pm_kind, only: RKG => RK5
21755 type(rdpack_type) , intent(in) :: dpack
21756 type(rdpack_type) , intent(in) :: spack
21757 type(uppDia_type) , intent(in) :: subset
21758 integer(IK) , intent(in) , optional :: doff
21759 real(RKG) , intent(in) :: source(:,:)
21760 real(RKG) , intent(inout) :: destin(:,:)
21761 end subroutine
21762#endif
21763
21764#if RK4_ENABLED
21765 PURE module subroutine setMatCopy_RDP_RDP_UXD_AIO_RK4(destin, dpack, source, spack, subset, doff)
21766#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21767 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_AIO_RK4
21768#endif
21769 use pm_kind, only: RKG => RK4
21770 type(rdpack_type) , intent(in) :: dpack
21771 type(rdpack_type) , intent(in) :: spack
21772 type(uppDia_type) , intent(in) :: subset
21773 integer(IK) , intent(in) , optional :: doff
21774 real(RKG) , intent(in) :: source(:,:)
21775 real(RKG) , intent(inout) :: destin(:,:)
21776 end subroutine
21777#endif
21778
21779#if RK3_ENABLED
21780 PURE module subroutine setMatCopy_RDP_RDP_UXD_AIO_RK3(destin, dpack, source, spack, subset, doff)
21781#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21782 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_AIO_RK3
21783#endif
21784 use pm_kind, only: RKG => RK3
21785 type(rdpack_type) , intent(in) :: dpack
21786 type(rdpack_type) , intent(in) :: spack
21787 type(uppDia_type) , intent(in) :: subset
21788 integer(IK) , intent(in) , optional :: doff
21789 real(RKG) , intent(in) :: source(:,:)
21790 real(RKG) , intent(inout) :: destin(:,:)
21791 end subroutine
21792#endif
21793
21794#if RK2_ENABLED
21795 PURE module subroutine setMatCopy_RDP_RDP_UXD_AIO_RK2(destin, dpack, source, spack, subset, doff)
21796#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21797 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_AIO_RK2
21798#endif
21799 use pm_kind, only: RKG => RK2
21800 type(rdpack_type) , intent(in) :: dpack
21801 type(rdpack_type) , intent(in) :: spack
21802 type(uppDia_type) , intent(in) :: subset
21803 integer(IK) , intent(in) , optional :: doff
21804 real(RKG) , intent(in) :: source(:,:)
21805 real(RKG) , intent(inout) :: destin(:,:)
21806 end subroutine
21807#endif
21808
21809#if RK1_ENABLED
21810 PURE module subroutine setMatCopy_RDP_RDP_UXD_AIO_RK1(destin, dpack, source, spack, subset, doff)
21811#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21812 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_AIO_RK1
21813#endif
21814 use pm_kind, only: RKG => RK1
21815 type(rdpack_type) , intent(in) :: dpack
21816 type(rdpack_type) , intent(in) :: spack
21817 type(uppDia_type) , intent(in) :: subset
21818 integer(IK) , intent(in) , optional :: doff
21819 real(RKG) , intent(in) :: source(:,:)
21820 real(RKG) , intent(inout) :: destin(:,:)
21821 end subroutine
21822#endif
21823
21824 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21825
21826 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21827 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21828 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21829
21830 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21831
21832#if SK5_ENABLED
21833 PURE module subroutine setMatCopy_RDP_RDP_UXD_TSO_SK5(destin, dpack, source, spack, subset, operation, doff)
21834#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21835 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_TSO_SK5
21836#endif
21837 use pm_kind, only: SKG => SK5
21838 type(rdpack_type) , intent(in) :: dpack
21839 type(rdpack_type) , intent(in) :: spack
21840 type(uppDia_type) , intent(in) :: subset
21841 type(transSymm_type) , intent(in) :: operation
21842 integer(IK) , intent(in) , optional :: doff
21843 character(*,SKG) , intent(in) :: source(:,:)
21844 character(*,SKG) , intent(inout) :: destin(:,:)
21845 end subroutine
21846#endif
21847
21848#if SK4_ENABLED
21849 PURE module subroutine setMatCopy_RDP_RDP_UXD_TSO_SK4(destin, dpack, source, spack, subset, operation, doff)
21850#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21851 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_TSO_SK4
21852#endif
21853 use pm_kind, only: SKG => SK4
21854 type(rdpack_type) , intent(in) :: dpack
21855 type(rdpack_type) , intent(in) :: spack
21856 type(uppDia_type) , intent(in) :: subset
21857 type(transSymm_type) , intent(in) :: operation
21858 integer(IK) , intent(in) , optional :: doff
21859 character(*,SKG) , intent(in) :: source(:,:)
21860 character(*,SKG) , intent(inout) :: destin(:,:)
21861 end subroutine
21862#endif
21863
21864#if SK3_ENABLED
21865 PURE module subroutine setMatCopy_RDP_RDP_UXD_TSO_SK3(destin, dpack, source, spack, subset, operation, doff)
21866#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21867 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_TSO_SK3
21868#endif
21869 use pm_kind, only: SKG => SK3
21870 type(rdpack_type) , intent(in) :: dpack
21871 type(rdpack_type) , intent(in) :: spack
21872 type(uppDia_type) , intent(in) :: subset
21873 type(transSymm_type) , intent(in) :: operation
21874 integer(IK) , intent(in) , optional :: doff
21875 character(*,SKG) , intent(in) :: source(:,:)
21876 character(*,SKG) , intent(inout) :: destin(:,:)
21877 end subroutine
21878#endif
21879
21880#if SK2_ENABLED
21881 PURE module subroutine setMatCopy_RDP_RDP_UXD_TSO_SK2(destin, dpack, source, spack, subset, operation, doff)
21882#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21883 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_TSO_SK2
21884#endif
21885 use pm_kind, only: SKG => SK2
21886 type(rdpack_type) , intent(in) :: dpack
21887 type(rdpack_type) , intent(in) :: spack
21888 type(uppDia_type) , intent(in) :: subset
21889 type(transSymm_type) , intent(in) :: operation
21890 integer(IK) , intent(in) , optional :: doff
21891 character(*,SKG) , intent(in) :: source(:,:)
21892 character(*,SKG) , intent(inout) :: destin(:,:)
21893 end subroutine
21894#endif
21895
21896#if SK1_ENABLED
21897 PURE module subroutine setMatCopy_RDP_RDP_UXD_TSO_SK1(destin, dpack, source, spack, subset, operation, doff)
21898#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21899 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_TSO_SK1
21900#endif
21901 use pm_kind, only: SKG => SK1
21902 type(rdpack_type) , intent(in) :: dpack
21903 type(rdpack_type) , intent(in) :: spack
21904 type(uppDia_type) , intent(in) :: subset
21905 type(transSymm_type) , intent(in) :: operation
21906 integer(IK) , intent(in) , optional :: doff
21907 character(*,SKG) , intent(in) :: source(:,:)
21908 character(*,SKG) , intent(inout) :: destin(:,:)
21909 end subroutine
21910#endif
21911
21912 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21913
21914#if IK5_ENABLED
21915 PURE module subroutine setMatCopy_RDP_RDP_UXD_TSO_IK5(destin, dpack, source, spack, subset, operation, doff)
21916#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21917 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_TSO_IK5
21918#endif
21919 use pm_kind, only: IKG => IK5
21920 type(rdpack_type) , intent(in) :: dpack
21921 type(rdpack_type) , intent(in) :: spack
21922 type(uppDia_type) , intent(in) :: subset
21923 type(transSymm_type) , intent(in) :: operation
21924 integer(IK) , intent(in) , optional :: doff
21925 integer(IKG) , intent(in) :: source(:,:)
21926 integer(IKG) , intent(inout) :: destin(:,:)
21927 end subroutine
21928#endif
21929
21930#if IK4_ENABLED
21931 PURE module subroutine setMatCopy_RDP_RDP_UXD_TSO_IK4(destin, dpack, source, spack, subset, operation, doff)
21932#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21933 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_TSO_IK4
21934#endif
21935 use pm_kind, only: IKG => IK4
21936 type(rdpack_type) , intent(in) :: dpack
21937 type(rdpack_type) , intent(in) :: spack
21938 type(uppDia_type) , intent(in) :: subset
21939 type(transSymm_type) , intent(in) :: operation
21940 integer(IK) , intent(in) , optional :: doff
21941 integer(IKG) , intent(in) :: source(:,:)
21942 integer(IKG) , intent(inout) :: destin(:,:)
21943 end subroutine
21944#endif
21945
21946#if IK3_ENABLED
21947 PURE module subroutine setMatCopy_RDP_RDP_UXD_TSO_IK3(destin, dpack, source, spack, subset, operation, doff)
21948#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21949 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_TSO_IK3
21950#endif
21951 use pm_kind, only: IKG => IK3
21952 type(rdpack_type) , intent(in) :: dpack
21953 type(rdpack_type) , intent(in) :: spack
21954 type(uppDia_type) , intent(in) :: subset
21955 type(transSymm_type) , intent(in) :: operation
21956 integer(IK) , intent(in) , optional :: doff
21957 integer(IKG) , intent(in) :: source(:,:)
21958 integer(IKG) , intent(inout) :: destin(:,:)
21959 end subroutine
21960#endif
21961
21962#if IK2_ENABLED
21963 PURE module subroutine setMatCopy_RDP_RDP_UXD_TSO_IK2(destin, dpack, source, spack, subset, operation, doff)
21964#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21965 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_TSO_IK2
21966#endif
21967 use pm_kind, only: IKG => IK2
21968 type(rdpack_type) , intent(in) :: dpack
21969 type(rdpack_type) , intent(in) :: spack
21970 type(uppDia_type) , intent(in) :: subset
21971 type(transSymm_type) , intent(in) :: operation
21972 integer(IK) , intent(in) , optional :: doff
21973 integer(IKG) , intent(in) :: source(:,:)
21974 integer(IKG) , intent(inout) :: destin(:,:)
21975 end subroutine
21976#endif
21977
21978#if IK1_ENABLED
21979 PURE module subroutine setMatCopy_RDP_RDP_UXD_TSO_IK1(destin, dpack, source, spack, subset, operation, doff)
21980#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21981 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_TSO_IK1
21982#endif
21983 use pm_kind, only: IKG => IK1
21984 type(rdpack_type) , intent(in) :: dpack
21985 type(rdpack_type) , intent(in) :: spack
21986 type(uppDia_type) , intent(in) :: subset
21987 type(transSymm_type) , intent(in) :: operation
21988 integer(IK) , intent(in) , optional :: doff
21989 integer(IKG) , intent(in) :: source(:,:)
21990 integer(IKG) , intent(inout) :: destin(:,:)
21991 end subroutine
21992#endif
21993
21994 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21995
21996#if LK5_ENABLED
21997 PURE module subroutine setMatCopy_RDP_RDP_UXD_TSO_LK5(destin, dpack, source, spack, subset, operation, doff)
21998#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21999 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_TSO_LK5
22000#endif
22001 use pm_kind, only: LKG => LK5
22002 type(rdpack_type) , intent(in) :: dpack
22003 type(rdpack_type) , intent(in) :: spack
22004 type(uppDia_type) , intent(in) :: subset
22005 type(transSymm_type) , intent(in) :: operation
22006 integer(IK) , intent(in) , optional :: doff
22007 logical(LKG) , intent(in) :: source(:,:)
22008 logical(LKG) , intent(inout) :: destin(:,:)
22009 end subroutine
22010#endif
22011
22012#if LK4_ENABLED
22013 PURE module subroutine setMatCopy_RDP_RDP_UXD_TSO_LK4(destin, dpack, source, spack, subset, operation, doff)
22014#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22015 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_TSO_LK4
22016#endif
22017 use pm_kind, only: LKG => LK4
22018 type(rdpack_type) , intent(in) :: dpack
22019 type(rdpack_type) , intent(in) :: spack
22020 type(uppDia_type) , intent(in) :: subset
22021 type(transSymm_type) , intent(in) :: operation
22022 integer(IK) , intent(in) , optional :: doff
22023 logical(LKG) , intent(in) :: source(:,:)
22024 logical(LKG) , intent(inout) :: destin(:,:)
22025 end subroutine
22026#endif
22027
22028#if LK3_ENABLED
22029 PURE module subroutine setMatCopy_RDP_RDP_UXD_TSO_LK3(destin, dpack, source, spack, subset, operation, doff)
22030#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22031 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_TSO_LK3
22032#endif
22033 use pm_kind, only: LKG => LK3
22034 type(rdpack_type) , intent(in) :: dpack
22035 type(rdpack_type) , intent(in) :: spack
22036 type(uppDia_type) , intent(in) :: subset
22037 type(transSymm_type) , intent(in) :: operation
22038 integer(IK) , intent(in) , optional :: doff
22039 logical(LKG) , intent(in) :: source(:,:)
22040 logical(LKG) , intent(inout) :: destin(:,:)
22041 end subroutine
22042#endif
22043
22044#if LK2_ENABLED
22045 PURE module subroutine setMatCopy_RDP_RDP_UXD_TSO_LK2(destin, dpack, source, spack, subset, operation, doff)
22046#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22047 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_TSO_LK2
22048#endif
22049 use pm_kind, only: LKG => LK2
22050 type(rdpack_type) , intent(in) :: dpack
22051 type(rdpack_type) , intent(in) :: spack
22052 type(uppDia_type) , intent(in) :: subset
22053 type(transSymm_type) , intent(in) :: operation
22054 integer(IK) , intent(in) , optional :: doff
22055 logical(LKG) , intent(in) :: source(:,:)
22056 logical(LKG) , intent(inout) :: destin(:,:)
22057 end subroutine
22058#endif
22059
22060#if LK1_ENABLED
22061 PURE module subroutine setMatCopy_RDP_RDP_UXD_TSO_LK1(destin, dpack, source, spack, subset, operation, doff)
22062#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22063 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_TSO_LK1
22064#endif
22065 use pm_kind, only: LKG => LK1
22066 type(rdpack_type) , intent(in) :: dpack
22067 type(rdpack_type) , intent(in) :: spack
22068 type(uppDia_type) , intent(in) :: subset
22069 type(transSymm_type) , intent(in) :: operation
22070 integer(IK) , intent(in) , optional :: doff
22071 logical(LKG) , intent(in) :: source(:,:)
22072 logical(LKG) , intent(inout) :: destin(:,:)
22073 end subroutine
22074#endif
22075
22076 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22077
22078#if CK5_ENABLED
22079 PURE module subroutine setMatCopy_RDP_RDP_UXD_TSO_CK5(destin, dpack, source, spack, subset, operation, doff)
22080#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22081 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_TSO_CK5
22082#endif
22083 use pm_kind, only: CKG => CK5
22084 type(rdpack_type) , intent(in) :: dpack
22085 type(rdpack_type) , intent(in) :: spack
22086 type(uppDia_type) , intent(in) :: subset
22087 type(transSymm_type) , intent(in) :: operation
22088 integer(IK) , intent(in) , optional :: doff
22089 complex(CKG) , intent(in) :: source(:,:)
22090 complex(CKG) , intent(inout) :: destin(:,:)
22091 end subroutine
22092#endif
22093
22094#if CK4_ENABLED
22095 PURE module subroutine setMatCopy_RDP_RDP_UXD_TSO_CK4(destin, dpack, source, spack, subset, operation, doff)
22096#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22097 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_TSO_CK4
22098#endif
22099 use pm_kind, only: CKG => CK4
22100 type(rdpack_type) , intent(in) :: dpack
22101 type(rdpack_type) , intent(in) :: spack
22102 type(uppDia_type) , intent(in) :: subset
22103 type(transSymm_type) , intent(in) :: operation
22104 integer(IK) , intent(in) , optional :: doff
22105 complex(CKG) , intent(in) :: source(:,:)
22106 complex(CKG) , intent(inout) :: destin(:,:)
22107 end subroutine
22108#endif
22109
22110#if CK3_ENABLED
22111 PURE module subroutine setMatCopy_RDP_RDP_UXD_TSO_CK3(destin, dpack, source, spack, subset, operation, doff)
22112#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22113 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_TSO_CK3
22114#endif
22115 use pm_kind, only: CKG => CK3
22116 type(rdpack_type) , intent(in) :: dpack
22117 type(rdpack_type) , intent(in) :: spack
22118 type(uppDia_type) , intent(in) :: subset
22119 type(transSymm_type) , intent(in) :: operation
22120 integer(IK) , intent(in) , optional :: doff
22121 complex(CKG) , intent(in) :: source(:,:)
22122 complex(CKG) , intent(inout) :: destin(:,:)
22123 end subroutine
22124#endif
22125
22126#if CK2_ENABLED
22127 PURE module subroutine setMatCopy_RDP_RDP_UXD_TSO_CK2(destin, dpack, source, spack, subset, operation, doff)
22128#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22129 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_TSO_CK2
22130#endif
22131 use pm_kind, only: CKG => CK2
22132 type(rdpack_type) , intent(in) :: dpack
22133 type(rdpack_type) , intent(in) :: spack
22134 type(uppDia_type) , intent(in) :: subset
22135 type(transSymm_type) , intent(in) :: operation
22136 integer(IK) , intent(in) , optional :: doff
22137 complex(CKG) , intent(in) :: source(:,:)
22138 complex(CKG) , intent(inout) :: destin(:,:)
22139 end subroutine
22140#endif
22141
22142#if CK1_ENABLED
22143 PURE module subroutine setMatCopy_RDP_RDP_UXD_TSO_CK1(destin, dpack, source, spack, subset, operation, doff)
22144#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22145 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_TSO_CK1
22146#endif
22147 use pm_kind, only: CKG => CK1
22148 type(rdpack_type) , intent(in) :: dpack
22149 type(rdpack_type) , intent(in) :: spack
22150 type(uppDia_type) , intent(in) :: subset
22151 type(transSymm_type) , intent(in) :: operation
22152 integer(IK) , intent(in) , optional :: doff
22153 complex(CKG) , intent(in) :: source(:,:)
22154 complex(CKG) , intent(inout) :: destin(:,:)
22155 end subroutine
22156#endif
22157
22158 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22159
22160#if RK5_ENABLED
22161 PURE module subroutine setMatCopy_RDP_RDP_UXD_TSO_RK5(destin, dpack, source, spack, subset, operation, doff)
22162#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22163 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_TSO_RK5
22164#endif
22165 use pm_kind, only: RKG => RK5
22166 type(rdpack_type) , intent(in) :: dpack
22167 type(rdpack_type) , intent(in) :: spack
22168 type(uppDia_type) , intent(in) :: subset
22169 type(transSymm_type) , intent(in) :: operation
22170 integer(IK) , intent(in) , optional :: doff
22171 real(RKG) , intent(in) :: source(:,:)
22172 real(RKG) , intent(inout) :: destin(:,:)
22173 end subroutine
22174#endif
22175
22176#if RK4_ENABLED
22177 PURE module subroutine setMatCopy_RDP_RDP_UXD_TSO_RK4(destin, dpack, source, spack, subset, operation, doff)
22178#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22179 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_TSO_RK4
22180#endif
22181 use pm_kind, only: RKG => RK4
22182 type(rdpack_type) , intent(in) :: dpack
22183 type(rdpack_type) , intent(in) :: spack
22184 type(uppDia_type) , intent(in) :: subset
22185 type(transSymm_type) , intent(in) :: operation
22186 integer(IK) , intent(in) , optional :: doff
22187 real(RKG) , intent(in) :: source(:,:)
22188 real(RKG) , intent(inout) :: destin(:,:)
22189 end subroutine
22190#endif
22191
22192#if RK3_ENABLED
22193 PURE module subroutine setMatCopy_RDP_RDP_UXD_TSO_RK3(destin, dpack, source, spack, subset, operation, doff)
22194#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22195 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_TSO_RK3
22196#endif
22197 use pm_kind, only: RKG => RK3
22198 type(rdpack_type) , intent(in) :: dpack
22199 type(rdpack_type) , intent(in) :: spack
22200 type(uppDia_type) , intent(in) :: subset
22201 type(transSymm_type) , intent(in) :: operation
22202 integer(IK) , intent(in) , optional :: doff
22203 real(RKG) , intent(in) :: source(:,:)
22204 real(RKG) , intent(inout) :: destin(:,:)
22205 end subroutine
22206#endif
22207
22208#if RK2_ENABLED
22209 PURE module subroutine setMatCopy_RDP_RDP_UXD_TSO_RK2(destin, dpack, source, spack, subset, operation, doff)
22210#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22211 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_TSO_RK2
22212#endif
22213 use pm_kind, only: RKG => RK2
22214 type(rdpack_type) , intent(in) :: dpack
22215 type(rdpack_type) , intent(in) :: spack
22216 type(uppDia_type) , intent(in) :: subset
22217 type(transSymm_type) , intent(in) :: operation
22218 integer(IK) , intent(in) , optional :: doff
22219 real(RKG) , intent(in) :: source(:,:)
22220 real(RKG) , intent(inout) :: destin(:,:)
22221 end subroutine
22222#endif
22223
22224#if RK1_ENABLED
22225 PURE module subroutine setMatCopy_RDP_RDP_UXD_TSO_RK1(destin, dpack, source, spack, subset, operation, doff)
22226#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22227 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_TSO_RK1
22228#endif
22229 use pm_kind, only: RKG => RK1
22230 type(rdpack_type) , intent(in) :: dpack
22231 type(rdpack_type) , intent(in) :: spack
22232 type(uppDia_type) , intent(in) :: subset
22233 type(transSymm_type) , intent(in) :: operation
22234 integer(IK) , intent(in) , optional :: doff
22235 real(RKG) , intent(in) :: source(:,:)
22236 real(RKG) , intent(inout) :: destin(:,:)
22237 end subroutine
22238#endif
22239
22240 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22241
22242 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22243 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22244 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22245
22246 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22247
22248#if SK5_ENABLED
22249 PURE module subroutine setMatCopy_RDP_RDP_UXD_THO_SK5(destin, dpack, source, spack, subset, operation, doff)
22250#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22251 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_THO_SK5
22252#endif
22253 use pm_kind, only: SKG => SK5
22254 type(rdpack_type) , intent(in) :: dpack
22255 type(rdpack_type) , intent(in) :: spack
22256 type(uppDia_type) , intent(in) :: subset
22257 type(transHerm_type) , intent(in) :: operation
22258 integer(IK) , intent(in) , optional :: doff
22259 character(*,SKG) , intent(in) :: source(:,:)
22260 character(*,SKG) , intent(inout) :: destin(:,:)
22261 end subroutine
22262#endif
22263
22264#if SK4_ENABLED
22265 PURE module subroutine setMatCopy_RDP_RDP_UXD_THO_SK4(destin, dpack, source, spack, subset, operation, doff)
22266#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22267 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_THO_SK4
22268#endif
22269 use pm_kind, only: SKG => SK4
22270 type(rdpack_type) , intent(in) :: dpack
22271 type(rdpack_type) , intent(in) :: spack
22272 type(uppDia_type) , intent(in) :: subset
22273 type(transHerm_type) , intent(in) :: operation
22274 integer(IK) , intent(in) , optional :: doff
22275 character(*,SKG) , intent(in) :: source(:,:)
22276 character(*,SKG) , intent(inout) :: destin(:,:)
22277 end subroutine
22278#endif
22279
22280#if SK3_ENABLED
22281 PURE module subroutine setMatCopy_RDP_RDP_UXD_THO_SK3(destin, dpack, source, spack, subset, operation, doff)
22282#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22283 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_THO_SK3
22284#endif
22285 use pm_kind, only: SKG => SK3
22286 type(rdpack_type) , intent(in) :: dpack
22287 type(rdpack_type) , intent(in) :: spack
22288 type(uppDia_type) , intent(in) :: subset
22289 type(transHerm_type) , intent(in) :: operation
22290 integer(IK) , intent(in) , optional :: doff
22291 character(*,SKG) , intent(in) :: source(:,:)
22292 character(*,SKG) , intent(inout) :: destin(:,:)
22293 end subroutine
22294#endif
22295
22296#if SK2_ENABLED
22297 PURE module subroutine setMatCopy_RDP_RDP_UXD_THO_SK2(destin, dpack, source, spack, subset, operation, doff)
22298#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22299 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_THO_SK2
22300#endif
22301 use pm_kind, only: SKG => SK2
22302 type(rdpack_type) , intent(in) :: dpack
22303 type(rdpack_type) , intent(in) :: spack
22304 type(uppDia_type) , intent(in) :: subset
22305 type(transHerm_type) , intent(in) :: operation
22306 integer(IK) , intent(in) , optional :: doff
22307 character(*,SKG) , intent(in) :: source(:,:)
22308 character(*,SKG) , intent(inout) :: destin(:,:)
22309 end subroutine
22310#endif
22311
22312#if SK1_ENABLED
22313 PURE module subroutine setMatCopy_RDP_RDP_UXD_THO_SK1(destin, dpack, source, spack, subset, operation, doff)
22314#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22315 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_THO_SK1
22316#endif
22317 use pm_kind, only: SKG => SK1
22318 type(rdpack_type) , intent(in) :: dpack
22319 type(rdpack_type) , intent(in) :: spack
22320 type(uppDia_type) , intent(in) :: subset
22321 type(transHerm_type) , intent(in) :: operation
22322 integer(IK) , intent(in) , optional :: doff
22323 character(*,SKG) , intent(in) :: source(:,:)
22324 character(*,SKG) , intent(inout) :: destin(:,:)
22325 end subroutine
22326#endif
22327
22328 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22329
22330#if IK5_ENABLED
22331 PURE module subroutine setMatCopy_RDP_RDP_UXD_THO_IK5(destin, dpack, source, spack, subset, operation, doff)
22332#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22333 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_THO_IK5
22334#endif
22335 use pm_kind, only: IKG => IK5
22336 type(rdpack_type) , intent(in) :: dpack
22337 type(rdpack_type) , intent(in) :: spack
22338 type(uppDia_type) , intent(in) :: subset
22339 type(transHerm_type) , intent(in) :: operation
22340 integer(IK) , intent(in) , optional :: doff
22341 integer(IKG) , intent(in) :: source(:,:)
22342 integer(IKG) , intent(inout) :: destin(:,:)
22343 end subroutine
22344#endif
22345
22346#if IK4_ENABLED
22347 PURE module subroutine setMatCopy_RDP_RDP_UXD_THO_IK4(destin, dpack, source, spack, subset, operation, doff)
22348#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22349 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_THO_IK4
22350#endif
22351 use pm_kind, only: IKG => IK4
22352 type(rdpack_type) , intent(in) :: dpack
22353 type(rdpack_type) , intent(in) :: spack
22354 type(uppDia_type) , intent(in) :: subset
22355 type(transHerm_type) , intent(in) :: operation
22356 integer(IK) , intent(in) , optional :: doff
22357 integer(IKG) , intent(in) :: source(:,:)
22358 integer(IKG) , intent(inout) :: destin(:,:)
22359 end subroutine
22360#endif
22361
22362#if IK3_ENABLED
22363 PURE module subroutine setMatCopy_RDP_RDP_UXD_THO_IK3(destin, dpack, source, spack, subset, operation, doff)
22364#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22365 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_THO_IK3
22366#endif
22367 use pm_kind, only: IKG => IK3
22368 type(rdpack_type) , intent(in) :: dpack
22369 type(rdpack_type) , intent(in) :: spack
22370 type(uppDia_type) , intent(in) :: subset
22371 type(transHerm_type) , intent(in) :: operation
22372 integer(IK) , intent(in) , optional :: doff
22373 integer(IKG) , intent(in) :: source(:,:)
22374 integer(IKG) , intent(inout) :: destin(:,:)
22375 end subroutine
22376#endif
22377
22378#if IK2_ENABLED
22379 PURE module subroutine setMatCopy_RDP_RDP_UXD_THO_IK2(destin, dpack, source, spack, subset, operation, doff)
22380#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22381 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_THO_IK2
22382#endif
22383 use pm_kind, only: IKG => IK2
22384 type(rdpack_type) , intent(in) :: dpack
22385 type(rdpack_type) , intent(in) :: spack
22386 type(uppDia_type) , intent(in) :: subset
22387 type(transHerm_type) , intent(in) :: operation
22388 integer(IK) , intent(in) , optional :: doff
22389 integer(IKG) , intent(in) :: source(:,:)
22390 integer(IKG) , intent(inout) :: destin(:,:)
22391 end subroutine
22392#endif
22393
22394#if IK1_ENABLED
22395 PURE module subroutine setMatCopy_RDP_RDP_UXD_THO_IK1(destin, dpack, source, spack, subset, operation, doff)
22396#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22397 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_THO_IK1
22398#endif
22399 use pm_kind, only: IKG => IK1
22400 type(rdpack_type) , intent(in) :: dpack
22401 type(rdpack_type) , intent(in) :: spack
22402 type(uppDia_type) , intent(in) :: subset
22403 type(transHerm_type) , intent(in) :: operation
22404 integer(IK) , intent(in) , optional :: doff
22405 integer(IKG) , intent(in) :: source(:,:)
22406 integer(IKG) , intent(inout) :: destin(:,:)
22407 end subroutine
22408#endif
22409
22410 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22411
22412#if LK5_ENABLED
22413 PURE module subroutine setMatCopy_RDP_RDP_UXD_THO_LK5(destin, dpack, source, spack, subset, operation, doff)
22414#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22415 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_THO_LK5
22416#endif
22417 use pm_kind, only: LKG => LK5
22418 type(rdpack_type) , intent(in) :: dpack
22419 type(rdpack_type) , intent(in) :: spack
22420 type(uppDia_type) , intent(in) :: subset
22421 type(transHerm_type) , intent(in) :: operation
22422 integer(IK) , intent(in) , optional :: doff
22423 logical(LKG) , intent(in) :: source(:,:)
22424 logical(LKG) , intent(inout) :: destin(:,:)
22425 end subroutine
22426#endif
22427
22428#if LK4_ENABLED
22429 PURE module subroutine setMatCopy_RDP_RDP_UXD_THO_LK4(destin, dpack, source, spack, subset, operation, doff)
22430#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22431 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_THO_LK4
22432#endif
22433 use pm_kind, only: LKG => LK4
22434 type(rdpack_type) , intent(in) :: dpack
22435 type(rdpack_type) , intent(in) :: spack
22436 type(uppDia_type) , intent(in) :: subset
22437 type(transHerm_type) , intent(in) :: operation
22438 integer(IK) , intent(in) , optional :: doff
22439 logical(LKG) , intent(in) :: source(:,:)
22440 logical(LKG) , intent(inout) :: destin(:,:)
22441 end subroutine
22442#endif
22443
22444#if LK3_ENABLED
22445 PURE module subroutine setMatCopy_RDP_RDP_UXD_THO_LK3(destin, dpack, source, spack, subset, operation, doff)
22446#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22447 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_THO_LK3
22448#endif
22449 use pm_kind, only: LKG => LK3
22450 type(rdpack_type) , intent(in) :: dpack
22451 type(rdpack_type) , intent(in) :: spack
22452 type(uppDia_type) , intent(in) :: subset
22453 type(transHerm_type) , intent(in) :: operation
22454 integer(IK) , intent(in) , optional :: doff
22455 logical(LKG) , intent(in) :: source(:,:)
22456 logical(LKG) , intent(inout) :: destin(:,:)
22457 end subroutine
22458#endif
22459
22460#if LK2_ENABLED
22461 PURE module subroutine setMatCopy_RDP_RDP_UXD_THO_LK2(destin, dpack, source, spack, subset, operation, doff)
22462#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22463 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_THO_LK2
22464#endif
22465 use pm_kind, only: LKG => LK2
22466 type(rdpack_type) , intent(in) :: dpack
22467 type(rdpack_type) , intent(in) :: spack
22468 type(uppDia_type) , intent(in) :: subset
22469 type(transHerm_type) , intent(in) :: operation
22470 integer(IK) , intent(in) , optional :: doff
22471 logical(LKG) , intent(in) :: source(:,:)
22472 logical(LKG) , intent(inout) :: destin(:,:)
22473 end subroutine
22474#endif
22475
22476#if LK1_ENABLED
22477 PURE module subroutine setMatCopy_RDP_RDP_UXD_THO_LK1(destin, dpack, source, spack, subset, operation, doff)
22478#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22479 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_THO_LK1
22480#endif
22481 use pm_kind, only: LKG => LK1
22482 type(rdpack_type) , intent(in) :: dpack
22483 type(rdpack_type) , intent(in) :: spack
22484 type(uppDia_type) , intent(in) :: subset
22485 type(transHerm_type) , intent(in) :: operation
22486 integer(IK) , intent(in) , optional :: doff
22487 logical(LKG) , intent(in) :: source(:,:)
22488 logical(LKG) , intent(inout) :: destin(:,:)
22489 end subroutine
22490#endif
22491
22492 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22493
22494#if CK5_ENABLED
22495 PURE module subroutine setMatCopy_RDP_RDP_UXD_THO_CK5(destin, dpack, source, spack, subset, operation, doff)
22496#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22497 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_THO_CK5
22498#endif
22499 use pm_kind, only: CKG => CK5
22500 type(rdpack_type) , intent(in) :: dpack
22501 type(rdpack_type) , intent(in) :: spack
22502 type(uppDia_type) , intent(in) :: subset
22503 type(transHerm_type) , intent(in) :: operation
22504 integer(IK) , intent(in) , optional :: doff
22505 complex(CKG) , intent(in) :: source(:,:)
22506 complex(CKG) , intent(inout) :: destin(:,:)
22507 end subroutine
22508#endif
22509
22510#if CK4_ENABLED
22511 PURE module subroutine setMatCopy_RDP_RDP_UXD_THO_CK4(destin, dpack, source, spack, subset, operation, doff)
22512#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22513 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_THO_CK4
22514#endif
22515 use pm_kind, only: CKG => CK4
22516 type(rdpack_type) , intent(in) :: dpack
22517 type(rdpack_type) , intent(in) :: spack
22518 type(uppDia_type) , intent(in) :: subset
22519 type(transHerm_type) , intent(in) :: operation
22520 integer(IK) , intent(in) , optional :: doff
22521 complex(CKG) , intent(in) :: source(:,:)
22522 complex(CKG) , intent(inout) :: destin(:,:)
22523 end subroutine
22524#endif
22525
22526#if CK3_ENABLED
22527 PURE module subroutine setMatCopy_RDP_RDP_UXD_THO_CK3(destin, dpack, source, spack, subset, operation, doff)
22528#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22529 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_THO_CK3
22530#endif
22531 use pm_kind, only: CKG => CK3
22532 type(rdpack_type) , intent(in) :: dpack
22533 type(rdpack_type) , intent(in) :: spack
22534 type(uppDia_type) , intent(in) :: subset
22535 type(transHerm_type) , intent(in) :: operation
22536 integer(IK) , intent(in) , optional :: doff
22537 complex(CKG) , intent(in) :: source(:,:)
22538 complex(CKG) , intent(inout) :: destin(:,:)
22539 end subroutine
22540#endif
22541
22542#if CK2_ENABLED
22543 PURE module subroutine setMatCopy_RDP_RDP_UXD_THO_CK2(destin, dpack, source, spack, subset, operation, doff)
22544#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22545 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_THO_CK2
22546#endif
22547 use pm_kind, only: CKG => CK2
22548 type(rdpack_type) , intent(in) :: dpack
22549 type(rdpack_type) , intent(in) :: spack
22550 type(uppDia_type) , intent(in) :: subset
22551 type(transHerm_type) , intent(in) :: operation
22552 integer(IK) , intent(in) , optional :: doff
22553 complex(CKG) , intent(in) :: source(:,:)
22554 complex(CKG) , intent(inout) :: destin(:,:)
22555 end subroutine
22556#endif
22557
22558#if CK1_ENABLED
22559 PURE module subroutine setMatCopy_RDP_RDP_UXD_THO_CK1(destin, dpack, source, spack, subset, operation, doff)
22560#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22561 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_THO_CK1
22562#endif
22563 use pm_kind, only: CKG => CK1
22564 type(rdpack_type) , intent(in) :: dpack
22565 type(rdpack_type) , intent(in) :: spack
22566 type(uppDia_type) , intent(in) :: subset
22567 type(transHerm_type) , intent(in) :: operation
22568 integer(IK) , intent(in) , optional :: doff
22569 complex(CKG) , intent(in) :: source(:,:)
22570 complex(CKG) , intent(inout) :: destin(:,:)
22571 end subroutine
22572#endif
22573
22574 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22575
22576#if RK5_ENABLED
22577 PURE module subroutine setMatCopy_RDP_RDP_UXD_THO_RK5(destin, dpack, source, spack, subset, operation, doff)
22578#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22579 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_THO_RK5
22580#endif
22581 use pm_kind, only: RKG => RK5
22582 type(rdpack_type) , intent(in) :: dpack
22583 type(rdpack_type) , intent(in) :: spack
22584 type(uppDia_type) , intent(in) :: subset
22585 type(transHerm_type) , intent(in) :: operation
22586 integer(IK) , intent(in) , optional :: doff
22587 real(RKG) , intent(in) :: source(:,:)
22588 real(RKG) , intent(inout) :: destin(:,:)
22589 end subroutine
22590#endif
22591
22592#if RK4_ENABLED
22593 PURE module subroutine setMatCopy_RDP_RDP_UXD_THO_RK4(destin, dpack, source, spack, subset, operation, doff)
22594#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22595 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_THO_RK4
22596#endif
22597 use pm_kind, only: RKG => RK4
22598 type(rdpack_type) , intent(in) :: dpack
22599 type(rdpack_type) , intent(in) :: spack
22600 type(uppDia_type) , intent(in) :: subset
22601 type(transHerm_type) , intent(in) :: operation
22602 integer(IK) , intent(in) , optional :: doff
22603 real(RKG) , intent(in) :: source(:,:)
22604 real(RKG) , intent(inout) :: destin(:,:)
22605 end subroutine
22606#endif
22607
22608#if RK3_ENABLED
22609 PURE module subroutine setMatCopy_RDP_RDP_UXD_THO_RK3(destin, dpack, source, spack, subset, operation, doff)
22610#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22611 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_THO_RK3
22612#endif
22613 use pm_kind, only: RKG => RK3
22614 type(rdpack_type) , intent(in) :: dpack
22615 type(rdpack_type) , intent(in) :: spack
22616 type(uppDia_type) , intent(in) :: subset
22617 type(transHerm_type) , intent(in) :: operation
22618 integer(IK) , intent(in) , optional :: doff
22619 real(RKG) , intent(in) :: source(:,:)
22620 real(RKG) , intent(inout) :: destin(:,:)
22621 end subroutine
22622#endif
22623
22624#if RK2_ENABLED
22625 PURE module subroutine setMatCopy_RDP_RDP_UXD_THO_RK2(destin, dpack, source, spack, subset, operation, doff)
22626#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22627 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_THO_RK2
22628#endif
22629 use pm_kind, only: RKG => RK2
22630 type(rdpack_type) , intent(in) :: dpack
22631 type(rdpack_type) , intent(in) :: spack
22632 type(uppDia_type) , intent(in) :: subset
22633 type(transHerm_type) , intent(in) :: operation
22634 integer(IK) , intent(in) , optional :: doff
22635 real(RKG) , intent(in) :: source(:,:)
22636 real(RKG) , intent(inout) :: destin(:,:)
22637 end subroutine
22638#endif
22639
22640#if RK1_ENABLED
22641 PURE module subroutine setMatCopy_RDP_RDP_UXD_THO_RK1(destin, dpack, source, spack, subset, operation, doff)
22642#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22643 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_UXD_THO_RK1
22644#endif
22645 use pm_kind, only: RKG => RK1
22646 type(rdpack_type) , intent(in) :: dpack
22647 type(rdpack_type) , intent(in) :: spack
22648 type(uppDia_type) , intent(in) :: subset
22649 type(transHerm_type) , intent(in) :: operation
22650 integer(IK) , intent(in) , optional :: doff
22651 real(RKG) , intent(in) :: source(:,:)
22652 real(RKG) , intent(inout) :: destin(:,:)
22653 end subroutine
22654#endif
22655
22656 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22657
22658 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22659 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22660 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22661
22662 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22663 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22664 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22665
22666 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22667
22668#if SK5_ENABLED
22669 PURE module subroutine setMatCopy_RDP_RDP_XLD_AIO_SK5(destin, dpack, source, spack, subset, doff)
22670#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22671 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_AIO_SK5
22672#endif
22673 use pm_kind, only: SKG => SK5
22674 type(rdpack_type) , intent(in) :: dpack
22675 type(rdpack_type) , intent(in) :: spack
22676 type(lowDia_type) , intent(in) :: subset
22677 integer(IK) , intent(in) , optional :: doff
22678 character(*,SKG) , intent(in) :: source(:,:)
22679 character(*,SKG) , intent(inout) :: destin(:,:)
22680 end subroutine
22681#endif
22682
22683#if SK4_ENABLED
22684 PURE module subroutine setMatCopy_RDP_RDP_XLD_AIO_SK4(destin, dpack, source, spack, subset, doff)
22685#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22686 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_AIO_SK4
22687#endif
22688 use pm_kind, only: SKG => SK4
22689 type(rdpack_type) , intent(in) :: dpack
22690 type(rdpack_type) , intent(in) :: spack
22691 type(lowDia_type) , intent(in) :: subset
22692 integer(IK) , intent(in) , optional :: doff
22693 character(*,SKG) , intent(in) :: source(:,:)
22694 character(*,SKG) , intent(inout) :: destin(:,:)
22695 end subroutine
22696#endif
22697
22698#if SK3_ENABLED
22699 PURE module subroutine setMatCopy_RDP_RDP_XLD_AIO_SK3(destin, dpack, source, spack, subset, doff)
22700#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22701 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_AIO_SK3
22702#endif
22703 use pm_kind, only: SKG => SK3
22704 type(rdpack_type) , intent(in) :: dpack
22705 type(rdpack_type) , intent(in) :: spack
22706 type(lowDia_type) , intent(in) :: subset
22707 integer(IK) , intent(in) , optional :: doff
22708 character(*,SKG) , intent(in) :: source(:,:)
22709 character(*,SKG) , intent(inout) :: destin(:,:)
22710 end subroutine
22711#endif
22712
22713#if SK2_ENABLED
22714 PURE module subroutine setMatCopy_RDP_RDP_XLD_AIO_SK2(destin, dpack, source, spack, subset, doff)
22715#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22716 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_AIO_SK2
22717#endif
22718 use pm_kind, only: SKG => SK2
22719 type(rdpack_type) , intent(in) :: dpack
22720 type(rdpack_type) , intent(in) :: spack
22721 type(lowDia_type) , intent(in) :: subset
22722 integer(IK) , intent(in) , optional :: doff
22723 character(*,SKG) , intent(in) :: source(:,:)
22724 character(*,SKG) , intent(inout) :: destin(:,:)
22725 end subroutine
22726#endif
22727
22728#if SK1_ENABLED
22729 PURE module subroutine setMatCopy_RDP_RDP_XLD_AIO_SK1(destin, dpack, source, spack, subset, doff)
22730#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22731 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_AIO_SK1
22732#endif
22733 use pm_kind, only: SKG => SK1
22734 type(rdpack_type) , intent(in) :: dpack
22735 type(rdpack_type) , intent(in) :: spack
22736 type(lowDia_type) , intent(in) :: subset
22737 integer(IK) , intent(in) , optional :: doff
22738 character(*,SKG) , intent(in) :: source(:,:)
22739 character(*,SKG) , intent(inout) :: destin(:,:)
22740 end subroutine
22741#endif
22742
22743 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22744
22745#if IK5_ENABLED
22746 PURE module subroutine setMatCopy_RDP_RDP_XLD_AIO_IK5(destin, dpack, source, spack, subset, doff)
22747#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22748 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_AIO_IK5
22749#endif
22750 use pm_kind, only: IKG => IK5
22751 type(rdpack_type) , intent(in) :: dpack
22752 type(rdpack_type) , intent(in) :: spack
22753 type(lowDia_type) , intent(in) :: subset
22754 integer(IK) , intent(in) , optional :: doff
22755 integer(IKG) , intent(in) :: source(:,:)
22756 integer(IKG) , intent(inout) :: destin(:,:)
22757 end subroutine
22758#endif
22759
22760#if IK4_ENABLED
22761 PURE module subroutine setMatCopy_RDP_RDP_XLD_AIO_IK4(destin, dpack, source, spack, subset, doff)
22762#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22763 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_AIO_IK4
22764#endif
22765 use pm_kind, only: IKG => IK4
22766 type(rdpack_type) , intent(in) :: dpack
22767 type(rdpack_type) , intent(in) :: spack
22768 type(lowDia_type) , intent(in) :: subset
22769 integer(IK) , intent(in) , optional :: doff
22770 integer(IKG) , intent(in) :: source(:,:)
22771 integer(IKG) , intent(inout) :: destin(:,:)
22772 end subroutine
22773#endif
22774
22775#if IK3_ENABLED
22776 PURE module subroutine setMatCopy_RDP_RDP_XLD_AIO_IK3(destin, dpack, source, spack, subset, doff)
22777#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22778 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_AIO_IK3
22779#endif
22780 use pm_kind, only: IKG => IK3
22781 type(rdpack_type) , intent(in) :: dpack
22782 type(rdpack_type) , intent(in) :: spack
22783 type(lowDia_type) , intent(in) :: subset
22784 integer(IK) , intent(in) , optional :: doff
22785 integer(IKG) , intent(in) :: source(:,:)
22786 integer(IKG) , intent(inout) :: destin(:,:)
22787 end subroutine
22788#endif
22789
22790#if IK2_ENABLED
22791 PURE module subroutine setMatCopy_RDP_RDP_XLD_AIO_IK2(destin, dpack, source, spack, subset, doff)
22792#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22793 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_AIO_IK2
22794#endif
22795 use pm_kind, only: IKG => IK2
22796 type(rdpack_type) , intent(in) :: dpack
22797 type(rdpack_type) , intent(in) :: spack
22798 type(lowDia_type) , intent(in) :: subset
22799 integer(IK) , intent(in) , optional :: doff
22800 integer(IKG) , intent(in) :: source(:,:)
22801 integer(IKG) , intent(inout) :: destin(:,:)
22802 end subroutine
22803#endif
22804
22805#if IK1_ENABLED
22806 PURE module subroutine setMatCopy_RDP_RDP_XLD_AIO_IK1(destin, dpack, source, spack, subset, doff)
22807#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22808 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_AIO_IK1
22809#endif
22810 use pm_kind, only: IKG => IK1
22811 type(rdpack_type) , intent(in) :: dpack
22812 type(rdpack_type) , intent(in) :: spack
22813 type(lowDia_type) , intent(in) :: subset
22814 integer(IK) , intent(in) , optional :: doff
22815 integer(IKG) , intent(in) :: source(:,:)
22816 integer(IKG) , intent(inout) :: destin(:,:)
22817 end subroutine
22818#endif
22819
22820 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22821
22822#if LK5_ENABLED
22823 PURE module subroutine setMatCopy_RDP_RDP_XLD_AIO_LK5(destin, dpack, source, spack, subset, doff)
22824#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22825 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_AIO_LK5
22826#endif
22827 use pm_kind, only: LKG => LK5
22828 type(rdpack_type) , intent(in) :: dpack
22829 type(rdpack_type) , intent(in) :: spack
22830 type(lowDia_type) , intent(in) :: subset
22831 integer(IK) , intent(in) , optional :: doff
22832 logical(LKG) , intent(in) :: source(:,:)
22833 logical(LKG) , intent(inout) :: destin(:,:)
22834 end subroutine
22835#endif
22836
22837#if LK4_ENABLED
22838 PURE module subroutine setMatCopy_RDP_RDP_XLD_AIO_LK4(destin, dpack, source, spack, subset, doff)
22839#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22840 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_AIO_LK4
22841#endif
22842 use pm_kind, only: LKG => LK4
22843 type(rdpack_type) , intent(in) :: dpack
22844 type(rdpack_type) , intent(in) :: spack
22845 type(lowDia_type) , intent(in) :: subset
22846 integer(IK) , intent(in) , optional :: doff
22847 logical(LKG) , intent(in) :: source(:,:)
22848 logical(LKG) , intent(inout) :: destin(:,:)
22849 end subroutine
22850#endif
22851
22852#if LK3_ENABLED
22853 PURE module subroutine setMatCopy_RDP_RDP_XLD_AIO_LK3(destin, dpack, source, spack, subset, doff)
22854#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22855 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_AIO_LK3
22856#endif
22857 use pm_kind, only: LKG => LK3
22858 type(rdpack_type) , intent(in) :: dpack
22859 type(rdpack_type) , intent(in) :: spack
22860 type(lowDia_type) , intent(in) :: subset
22861 integer(IK) , intent(in) , optional :: doff
22862 logical(LKG) , intent(in) :: source(:,:)
22863 logical(LKG) , intent(inout) :: destin(:,:)
22864 end subroutine
22865#endif
22866
22867#if LK2_ENABLED
22868 PURE module subroutine setMatCopy_RDP_RDP_XLD_AIO_LK2(destin, dpack, source, spack, subset, doff)
22869#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22870 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_AIO_LK2
22871#endif
22872 use pm_kind, only: LKG => LK2
22873 type(rdpack_type) , intent(in) :: dpack
22874 type(rdpack_type) , intent(in) :: spack
22875 type(lowDia_type) , intent(in) :: subset
22876 integer(IK) , intent(in) , optional :: doff
22877 logical(LKG) , intent(in) :: source(:,:)
22878 logical(LKG) , intent(inout) :: destin(:,:)
22879 end subroutine
22880#endif
22881
22882#if LK1_ENABLED
22883 PURE module subroutine setMatCopy_RDP_RDP_XLD_AIO_LK1(destin, dpack, source, spack, subset, doff)
22884#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22885 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_AIO_LK1
22886#endif
22887 use pm_kind, only: LKG => LK1
22888 type(rdpack_type) , intent(in) :: dpack
22889 type(rdpack_type) , intent(in) :: spack
22890 type(lowDia_type) , intent(in) :: subset
22891 integer(IK) , intent(in) , optional :: doff
22892 logical(LKG) , intent(in) :: source(:,:)
22893 logical(LKG) , intent(inout) :: destin(:,:)
22894 end subroutine
22895#endif
22896
22897 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22898
22899#if CK5_ENABLED
22900 PURE module subroutine setMatCopy_RDP_RDP_XLD_AIO_CK5(destin, dpack, source, spack, subset, doff)
22901#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22902 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_AIO_CK5
22903#endif
22904 use pm_kind, only: CKG => CK5
22905 type(rdpack_type) , intent(in) :: dpack
22906 type(rdpack_type) , intent(in) :: spack
22907 type(lowDia_type) , intent(in) :: subset
22908 integer(IK) , intent(in) , optional :: doff
22909 complex(CKG) , intent(in) :: source(:,:)
22910 complex(CKG) , intent(inout) :: destin(:,:)
22911 end subroutine
22912#endif
22913
22914#if CK4_ENABLED
22915 PURE module subroutine setMatCopy_RDP_RDP_XLD_AIO_CK4(destin, dpack, source, spack, subset, doff)
22916#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22917 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_AIO_CK4
22918#endif
22919 use pm_kind, only: CKG => CK4
22920 type(rdpack_type) , intent(in) :: dpack
22921 type(rdpack_type) , intent(in) :: spack
22922 type(lowDia_type) , intent(in) :: subset
22923 integer(IK) , intent(in) , optional :: doff
22924 complex(CKG) , intent(in) :: source(:,:)
22925 complex(CKG) , intent(inout) :: destin(:,:)
22926 end subroutine
22927#endif
22928
22929#if CK3_ENABLED
22930 PURE module subroutine setMatCopy_RDP_RDP_XLD_AIO_CK3(destin, dpack, source, spack, subset, doff)
22931#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22932 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_AIO_CK3
22933#endif
22934 use pm_kind, only: CKG => CK3
22935 type(rdpack_type) , intent(in) :: dpack
22936 type(rdpack_type) , intent(in) :: spack
22937 type(lowDia_type) , intent(in) :: subset
22938 integer(IK) , intent(in) , optional :: doff
22939 complex(CKG) , intent(in) :: source(:,:)
22940 complex(CKG) , intent(inout) :: destin(:,:)
22941 end subroutine
22942#endif
22943
22944#if CK2_ENABLED
22945 PURE module subroutine setMatCopy_RDP_RDP_XLD_AIO_CK2(destin, dpack, source, spack, subset, doff)
22946#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22947 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_AIO_CK2
22948#endif
22949 use pm_kind, only: CKG => CK2
22950 type(rdpack_type) , intent(in) :: dpack
22951 type(rdpack_type) , intent(in) :: spack
22952 type(lowDia_type) , intent(in) :: subset
22953 integer(IK) , intent(in) , optional :: doff
22954 complex(CKG) , intent(in) :: source(:,:)
22955 complex(CKG) , intent(inout) :: destin(:,:)
22956 end subroutine
22957#endif
22958
22959#if CK1_ENABLED
22960 PURE module subroutine setMatCopy_RDP_RDP_XLD_AIO_CK1(destin, dpack, source, spack, subset, doff)
22961#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22962 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_AIO_CK1
22963#endif
22964 use pm_kind, only: CKG => CK1
22965 type(rdpack_type) , intent(in) :: dpack
22966 type(rdpack_type) , intent(in) :: spack
22967 type(lowDia_type) , intent(in) :: subset
22968 integer(IK) , intent(in) , optional :: doff
22969 complex(CKG) , intent(in) :: source(:,:)
22970 complex(CKG) , intent(inout) :: destin(:,:)
22971 end subroutine
22972#endif
22973
22974 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22975
22976#if RK5_ENABLED
22977 PURE module subroutine setMatCopy_RDP_RDP_XLD_AIO_RK5(destin, dpack, source, spack, subset, doff)
22978#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22979 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_AIO_RK5
22980#endif
22981 use pm_kind, only: RKG => RK5
22982 type(rdpack_type) , intent(in) :: dpack
22983 type(rdpack_type) , intent(in) :: spack
22984 type(lowDia_type) , intent(in) :: subset
22985 integer(IK) , intent(in) , optional :: doff
22986 real(RKG) , intent(in) :: source(:,:)
22987 real(RKG) , intent(inout) :: destin(:,:)
22988 end subroutine
22989#endif
22990
22991#if RK4_ENABLED
22992 PURE module subroutine setMatCopy_RDP_RDP_XLD_AIO_RK4(destin, dpack, source, spack, subset, doff)
22993#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22994 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_AIO_RK4
22995#endif
22996 use pm_kind, only: RKG => RK4
22997 type(rdpack_type) , intent(in) :: dpack
22998 type(rdpack_type) , intent(in) :: spack
22999 type(lowDia_type) , intent(in) :: subset
23000 integer(IK) , intent(in) , optional :: doff
23001 real(RKG) , intent(in) :: source(:,:)
23002 real(RKG) , intent(inout) :: destin(:,:)
23003 end subroutine
23004#endif
23005
23006#if RK3_ENABLED
23007 PURE module subroutine setMatCopy_RDP_RDP_XLD_AIO_RK3(destin, dpack, source, spack, subset, doff)
23008#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23009 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_AIO_RK3
23010#endif
23011 use pm_kind, only: RKG => RK3
23012 type(rdpack_type) , intent(in) :: dpack
23013 type(rdpack_type) , intent(in) :: spack
23014 type(lowDia_type) , intent(in) :: subset
23015 integer(IK) , intent(in) , optional :: doff
23016 real(RKG) , intent(in) :: source(:,:)
23017 real(RKG) , intent(inout) :: destin(:,:)
23018 end subroutine
23019#endif
23020
23021#if RK2_ENABLED
23022 PURE module subroutine setMatCopy_RDP_RDP_XLD_AIO_RK2(destin, dpack, source, spack, subset, doff)
23023#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23024 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_AIO_RK2
23025#endif
23026 use pm_kind, only: RKG => RK2
23027 type(rdpack_type) , intent(in) :: dpack
23028 type(rdpack_type) , intent(in) :: spack
23029 type(lowDia_type) , intent(in) :: subset
23030 integer(IK) , intent(in) , optional :: doff
23031 real(RKG) , intent(in) :: source(:,:)
23032 real(RKG) , intent(inout) :: destin(:,:)
23033 end subroutine
23034#endif
23035
23036#if RK1_ENABLED
23037 PURE module subroutine setMatCopy_RDP_RDP_XLD_AIO_RK1(destin, dpack, source, spack, subset, doff)
23038#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23039 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_AIO_RK1
23040#endif
23041 use pm_kind, only: RKG => RK1
23042 type(rdpack_type) , intent(in) :: dpack
23043 type(rdpack_type) , intent(in) :: spack
23044 type(lowDia_type) , intent(in) :: subset
23045 integer(IK) , intent(in) , optional :: doff
23046 real(RKG) , intent(in) :: source(:,:)
23047 real(RKG) , intent(inout) :: destin(:,:)
23048 end subroutine
23049#endif
23050
23051 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
23052
23053 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
23054 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
23055 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
23056
23057 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
23058
23059#if SK5_ENABLED
23060 PURE module subroutine setMatCopy_RDP_RDP_XLD_TSO_SK5(destin, dpack, source, spack, subset, operation, doff)
23061#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23062 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_TSO_SK5
23063#endif
23064 use pm_kind, only: SKG => SK5
23065 type(rdpack_type) , intent(in) :: dpack
23066 type(rdpack_type) , intent(in) :: spack
23067 type(lowDia_type) , intent(in) :: subset
23068 type(transSymm_type) , intent(in) :: operation
23069 integer(IK) , intent(in) , optional :: doff
23070 character(*,SKG) , intent(in) :: source(:,:)
23071 character(*,SKG) , intent(inout) :: destin(:,:)
23072 end subroutine
23073#endif
23074
23075#if SK4_ENABLED
23076 PURE module subroutine setMatCopy_RDP_RDP_XLD_TSO_SK4(destin, dpack, source, spack, subset, operation, doff)
23077#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23078 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_TSO_SK4
23079#endif
23080 use pm_kind, only: SKG => SK4
23081 type(rdpack_type) , intent(in) :: dpack
23082 type(rdpack_type) , intent(in) :: spack
23083 type(lowDia_type) , intent(in) :: subset
23084 type(transSymm_type) , intent(in) :: operation
23085 integer(IK) , intent(in) , optional :: doff
23086 character(*,SKG) , intent(in) :: source(:,:)
23087 character(*,SKG) , intent(inout) :: destin(:,:)
23088 end subroutine
23089#endif
23090
23091#if SK3_ENABLED
23092 PURE module subroutine setMatCopy_RDP_RDP_XLD_TSO_SK3(destin, dpack, source, spack, subset, operation, doff)
23093#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23094 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_TSO_SK3
23095#endif
23096 use pm_kind, only: SKG => SK3
23097 type(rdpack_type) , intent(in) :: dpack
23098 type(rdpack_type) , intent(in) :: spack
23099 type(lowDia_type) , intent(in) :: subset
23100 type(transSymm_type) , intent(in) :: operation
23101 integer(IK) , intent(in) , optional :: doff
23102 character(*,SKG) , intent(in) :: source(:,:)
23103 character(*,SKG) , intent(inout) :: destin(:,:)
23104 end subroutine
23105#endif
23106
23107#if SK2_ENABLED
23108 PURE module subroutine setMatCopy_RDP_RDP_XLD_TSO_SK2(destin, dpack, source, spack, subset, operation, doff)
23109#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23110 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_TSO_SK2
23111#endif
23112 use pm_kind, only: SKG => SK2
23113 type(rdpack_type) , intent(in) :: dpack
23114 type(rdpack_type) , intent(in) :: spack
23115 type(lowDia_type) , intent(in) :: subset
23116 type(transSymm_type) , intent(in) :: operation
23117 integer(IK) , intent(in) , optional :: doff
23118 character(*,SKG) , intent(in) :: source(:,:)
23119 character(*,SKG) , intent(inout) :: destin(:,:)
23120 end subroutine
23121#endif
23122
23123#if SK1_ENABLED
23124 PURE module subroutine setMatCopy_RDP_RDP_XLD_TSO_SK1(destin, dpack, source, spack, subset, operation, doff)
23125#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23126 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_TSO_SK1
23127#endif
23128 use pm_kind, only: SKG => SK1
23129 type(rdpack_type) , intent(in) :: dpack
23130 type(rdpack_type) , intent(in) :: spack
23131 type(lowDia_type) , intent(in) :: subset
23132 type(transSymm_type) , intent(in) :: operation
23133 integer(IK) , intent(in) , optional :: doff
23134 character(*,SKG) , intent(in) :: source(:,:)
23135 character(*,SKG) , intent(inout) :: destin(:,:)
23136 end subroutine
23137#endif
23138
23139 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
23140
23141#if IK5_ENABLED
23142 PURE module subroutine setMatCopy_RDP_RDP_XLD_TSO_IK5(destin, dpack, source, spack, subset, operation, doff)
23143#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23144 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_TSO_IK5
23145#endif
23146 use pm_kind, only: IKG => IK5
23147 type(rdpack_type) , intent(in) :: dpack
23148 type(rdpack_type) , intent(in) :: spack
23149 type(lowDia_type) , intent(in) :: subset
23150 type(transSymm_type) , intent(in) :: operation
23151 integer(IK) , intent(in) , optional :: doff
23152 integer(IKG) , intent(in) :: source(:,:)
23153 integer(IKG) , intent(inout) :: destin(:,:)
23154 end subroutine
23155#endif
23156
23157#if IK4_ENABLED
23158 PURE module subroutine setMatCopy_RDP_RDP_XLD_TSO_IK4(destin, dpack, source, spack, subset, operation, doff)
23159#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23160 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_TSO_IK4
23161#endif
23162 use pm_kind, only: IKG => IK4
23163 type(rdpack_type) , intent(in) :: dpack
23164 type(rdpack_type) , intent(in) :: spack
23165 type(lowDia_type) , intent(in) :: subset
23166 type(transSymm_type) , intent(in) :: operation
23167 integer(IK) , intent(in) , optional :: doff
23168 integer(IKG) , intent(in) :: source(:,:)
23169 integer(IKG) , intent(inout) :: destin(:,:)
23170 end subroutine
23171#endif
23172
23173#if IK3_ENABLED
23174 PURE module subroutine setMatCopy_RDP_RDP_XLD_TSO_IK3(destin, dpack, source, spack, subset, operation, doff)
23175#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23176 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_TSO_IK3
23177#endif
23178 use pm_kind, only: IKG => IK3
23179 type(rdpack_type) , intent(in) :: dpack
23180 type(rdpack_type) , intent(in) :: spack
23181 type(lowDia_type) , intent(in) :: subset
23182 type(transSymm_type) , intent(in) :: operation
23183 integer(IK) , intent(in) , optional :: doff
23184 integer(IKG) , intent(in) :: source(:,:)
23185 integer(IKG) , intent(inout) :: destin(:,:)
23186 end subroutine
23187#endif
23188
23189#if IK2_ENABLED
23190 PURE module subroutine setMatCopy_RDP_RDP_XLD_TSO_IK2(destin, dpack, source, spack, subset, operation, doff)
23191#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23192 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_TSO_IK2
23193#endif
23194 use pm_kind, only: IKG => IK2
23195 type(rdpack_type) , intent(in) :: dpack
23196 type(rdpack_type) , intent(in) :: spack
23197 type(lowDia_type) , intent(in) :: subset
23198 type(transSymm_type) , intent(in) :: operation
23199 integer(IK) , intent(in) , optional :: doff
23200 integer(IKG) , intent(in) :: source(:,:)
23201 integer(IKG) , intent(inout) :: destin(:,:)
23202 end subroutine
23203#endif
23204
23205#if IK1_ENABLED
23206 PURE module subroutine setMatCopy_RDP_RDP_XLD_TSO_IK1(destin, dpack, source, spack, subset, operation, doff)
23207#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23208 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_TSO_IK1
23209#endif
23210 use pm_kind, only: IKG => IK1
23211 type(rdpack_type) , intent(in) :: dpack
23212 type(rdpack_type) , intent(in) :: spack
23213 type(lowDia_type) , intent(in) :: subset
23214 type(transSymm_type) , intent(in) :: operation
23215 integer(IK) , intent(in) , optional :: doff
23216 integer(IKG) , intent(in) :: source(:,:)
23217 integer(IKG) , intent(inout) :: destin(:,:)
23218 end subroutine
23219#endif
23220
23221 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
23222
23223#if LK5_ENABLED
23224 PURE module subroutine setMatCopy_RDP_RDP_XLD_TSO_LK5(destin, dpack, source, spack, subset, operation, doff)
23225#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23226 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_TSO_LK5
23227#endif
23228 use pm_kind, only: LKG => LK5
23229 type(rdpack_type) , intent(in) :: dpack
23230 type(rdpack_type) , intent(in) :: spack
23231 type(lowDia_type) , intent(in) :: subset
23232 type(transSymm_type) , intent(in) :: operation
23233 integer(IK) , intent(in) , optional :: doff
23234 logical(LKG) , intent(in) :: source(:,:)
23235 logical(LKG) , intent(inout) :: destin(:,:)
23236 end subroutine
23237#endif
23238
23239#if LK4_ENABLED
23240 PURE module subroutine setMatCopy_RDP_RDP_XLD_TSO_LK4(destin, dpack, source, spack, subset, operation, doff)
23241#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23242 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_TSO_LK4
23243#endif
23244 use pm_kind, only: LKG => LK4
23245 type(rdpack_type) , intent(in) :: dpack
23246 type(rdpack_type) , intent(in) :: spack
23247 type(lowDia_type) , intent(in) :: subset
23248 type(transSymm_type) , intent(in) :: operation
23249 integer(IK) , intent(in) , optional :: doff
23250 logical(LKG) , intent(in) :: source(:,:)
23251 logical(LKG) , intent(inout) :: destin(:,:)
23252 end subroutine
23253#endif
23254
23255#if LK3_ENABLED
23256 PURE module subroutine setMatCopy_RDP_RDP_XLD_TSO_LK3(destin, dpack, source, spack, subset, operation, doff)
23257#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23258 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_TSO_LK3
23259#endif
23260 use pm_kind, only: LKG => LK3
23261 type(rdpack_type) , intent(in) :: dpack
23262 type(rdpack_type) , intent(in) :: spack
23263 type(lowDia_type) , intent(in) :: subset
23264 type(transSymm_type) , intent(in) :: operation
23265 integer(IK) , intent(in) , optional :: doff
23266 logical(LKG) , intent(in) :: source(:,:)
23267 logical(LKG) , intent(inout) :: destin(:,:)
23268 end subroutine
23269#endif
23270
23271#if LK2_ENABLED
23272 PURE module subroutine setMatCopy_RDP_RDP_XLD_TSO_LK2(destin, dpack, source, spack, subset, operation, doff)
23273#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23274 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_TSO_LK2
23275#endif
23276 use pm_kind, only: LKG => LK2
23277 type(rdpack_type) , intent(in) :: dpack
23278 type(rdpack_type) , intent(in) :: spack
23279 type(lowDia_type) , intent(in) :: subset
23280 type(transSymm_type) , intent(in) :: operation
23281 integer(IK) , intent(in) , optional :: doff
23282 logical(LKG) , intent(in) :: source(:,:)
23283 logical(LKG) , intent(inout) :: destin(:,:)
23284 end subroutine
23285#endif
23286
23287#if LK1_ENABLED
23288 PURE module subroutine setMatCopy_RDP_RDP_XLD_TSO_LK1(destin, dpack, source, spack, subset, operation, doff)
23289#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23290 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_TSO_LK1
23291#endif
23292 use pm_kind, only: LKG => LK1
23293 type(rdpack_type) , intent(in) :: dpack
23294 type(rdpack_type) , intent(in) :: spack
23295 type(lowDia_type) , intent(in) :: subset
23296 type(transSymm_type) , intent(in) :: operation
23297 integer(IK) , intent(in) , optional :: doff
23298 logical(LKG) , intent(in) :: source(:,:)
23299 logical(LKG) , intent(inout) :: destin(:,:)
23300 end subroutine
23301#endif
23302
23303 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
23304
23305#if CK5_ENABLED
23306 PURE module subroutine setMatCopy_RDP_RDP_XLD_TSO_CK5(destin, dpack, source, spack, subset, operation, doff)
23307#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23308 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_TSO_CK5
23309#endif
23310 use pm_kind, only: CKG => CK5
23311 type(rdpack_type) , intent(in) :: dpack
23312 type(rdpack_type) , intent(in) :: spack
23313 type(lowDia_type) , intent(in) :: subset
23314 type(transSymm_type) , intent(in) :: operation
23315 integer(IK) , intent(in) , optional :: doff
23316 complex(CKG) , intent(in) :: source(:,:)
23317 complex(CKG) , intent(inout) :: destin(:,:)
23318 end subroutine
23319#endif
23320
23321#if CK4_ENABLED
23322 PURE module subroutine setMatCopy_RDP_RDP_XLD_TSO_CK4(destin, dpack, source, spack, subset, operation, doff)
23323#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23324 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_TSO_CK4
23325#endif
23326 use pm_kind, only: CKG => CK4
23327 type(rdpack_type) , intent(in) :: dpack
23328 type(rdpack_type) , intent(in) :: spack
23329 type(lowDia_type) , intent(in) :: subset
23330 type(transSymm_type) , intent(in) :: operation
23331 integer(IK) , intent(in) , optional :: doff
23332 complex(CKG) , intent(in) :: source(:,:)
23333 complex(CKG) , intent(inout) :: destin(:,:)
23334 end subroutine
23335#endif
23336
23337#if CK3_ENABLED
23338 PURE module subroutine setMatCopy_RDP_RDP_XLD_TSO_CK3(destin, dpack, source, spack, subset, operation, doff)
23339#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23340 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_TSO_CK3
23341#endif
23342 use pm_kind, only: CKG => CK3
23343 type(rdpack_type) , intent(in) :: dpack
23344 type(rdpack_type) , intent(in) :: spack
23345 type(lowDia_type) , intent(in) :: subset
23346 type(transSymm_type) , intent(in) :: operation
23347 integer(IK) , intent(in) , optional :: doff
23348 complex(CKG) , intent(in) :: source(:,:)
23349 complex(CKG) , intent(inout) :: destin(:,:)
23350 end subroutine
23351#endif
23352
23353#if CK2_ENABLED
23354 PURE module subroutine setMatCopy_RDP_RDP_XLD_TSO_CK2(destin, dpack, source, spack, subset, operation, doff)
23355#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23356 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_TSO_CK2
23357#endif
23358 use pm_kind, only: CKG => CK2
23359 type(rdpack_type) , intent(in) :: dpack
23360 type(rdpack_type) , intent(in) :: spack
23361 type(lowDia_type) , intent(in) :: subset
23362 type(transSymm_type) , intent(in) :: operation
23363 integer(IK) , intent(in) , optional :: doff
23364 complex(CKG) , intent(in) :: source(:,:)
23365 complex(CKG) , intent(inout) :: destin(:,:)
23366 end subroutine
23367#endif
23368
23369#if CK1_ENABLED
23370 PURE module subroutine setMatCopy_RDP_RDP_XLD_TSO_CK1(destin, dpack, source, spack, subset, operation, doff)
23371#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23372 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_TSO_CK1
23373#endif
23374 use pm_kind, only: CKG => CK1
23375 type(rdpack_type) , intent(in) :: dpack
23376 type(rdpack_type) , intent(in) :: spack
23377 type(lowDia_type) , intent(in) :: subset
23378 type(transSymm_type) , intent(in) :: operation
23379 integer(IK) , intent(in) , optional :: doff
23380 complex(CKG) , intent(in) :: source(:,:)
23381 complex(CKG) , intent(inout) :: destin(:,:)
23382 end subroutine
23383#endif
23384
23385 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
23386
23387#if RK5_ENABLED
23388 PURE module subroutine setMatCopy_RDP_RDP_XLD_TSO_RK5(destin, dpack, source, spack, subset, operation, doff)
23389#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23390 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_TSO_RK5
23391#endif
23392 use pm_kind, only: RKG => RK5
23393 type(rdpack_type) , intent(in) :: dpack
23394 type(rdpack_type) , intent(in) :: spack
23395 type(lowDia_type) , intent(in) :: subset
23396 type(transSymm_type) , intent(in) :: operation
23397 integer(IK) , intent(in) , optional :: doff
23398 real(RKG) , intent(in) :: source(:,:)
23399 real(RKG) , intent(inout) :: destin(:,:)
23400 end subroutine
23401#endif
23402
23403#if RK4_ENABLED
23404 PURE module subroutine setMatCopy_RDP_RDP_XLD_TSO_RK4(destin, dpack, source, spack, subset, operation, doff)
23405#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23406 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_TSO_RK4
23407#endif
23408 use pm_kind, only: RKG => RK4
23409 type(rdpack_type) , intent(in) :: dpack
23410 type(rdpack_type) , intent(in) :: spack
23411 type(lowDia_type) , intent(in) :: subset
23412 type(transSymm_type) , intent(in) :: operation
23413 integer(IK) , intent(in) , optional :: doff
23414 real(RKG) , intent(in) :: source(:,:)
23415 real(RKG) , intent(inout) :: destin(:,:)
23416 end subroutine
23417#endif
23418
23419#if RK3_ENABLED
23420 PURE module subroutine setMatCopy_RDP_RDP_XLD_TSO_RK3(destin, dpack, source, spack, subset, operation, doff)
23421#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23422 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_TSO_RK3
23423#endif
23424 use pm_kind, only: RKG => RK3
23425 type(rdpack_type) , intent(in) :: dpack
23426 type(rdpack_type) , intent(in) :: spack
23427 type(lowDia_type) , intent(in) :: subset
23428 type(transSymm_type) , intent(in) :: operation
23429 integer(IK) , intent(in) , optional :: doff
23430 real(RKG) , intent(in) :: source(:,:)
23431 real(RKG) , intent(inout) :: destin(:,:)
23432 end subroutine
23433#endif
23434
23435#if RK2_ENABLED
23436 PURE module subroutine setMatCopy_RDP_RDP_XLD_TSO_RK2(destin, dpack, source, spack, subset, operation, doff)
23437#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23438 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_TSO_RK2
23439#endif
23440 use pm_kind, only: RKG => RK2
23441 type(rdpack_type) , intent(in) :: dpack
23442 type(rdpack_type) , intent(in) :: spack
23443 type(lowDia_type) , intent(in) :: subset
23444 type(transSymm_type) , intent(in) :: operation
23445 integer(IK) , intent(in) , optional :: doff
23446 real(RKG) , intent(in) :: source(:,:)
23447 real(RKG) , intent(inout) :: destin(:,:)
23448 end subroutine
23449#endif
23450
23451#if RK1_ENABLED
23452 PURE module subroutine setMatCopy_RDP_RDP_XLD_TSO_RK1(destin, dpack, source, spack, subset, operation, doff)
23453#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23454 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_TSO_RK1
23455#endif
23456 use pm_kind, only: RKG => RK1
23457 type(rdpack_type) , intent(in) :: dpack
23458 type(rdpack_type) , intent(in) :: spack
23459 type(lowDia_type) , intent(in) :: subset
23460 type(transSymm_type) , intent(in) :: operation
23461 integer(IK) , intent(in) , optional :: doff
23462 real(RKG) , intent(in) :: source(:,:)
23463 real(RKG) , intent(inout) :: destin(:,:)
23464 end subroutine
23465#endif
23466
23467 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
23468
23469 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
23470 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
23471 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
23472
23473 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
23474
23475#if SK5_ENABLED
23476 PURE module subroutine setMatCopy_RDP_RDP_XLD_THO_SK5(destin, dpack, source, spack, subset, operation, doff)
23477#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23478 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_THO_SK5
23479#endif
23480 use pm_kind, only: SKG => SK5
23481 type(rdpack_type) , intent(in) :: dpack
23482 type(rdpack_type) , intent(in) :: spack
23483 type(lowDia_type) , intent(in) :: subset
23484 type(transHerm_type) , intent(in) :: operation
23485 integer(IK) , intent(in) , optional :: doff
23486 character(*,SKG) , intent(in) :: source(:,:)
23487 character(*,SKG) , intent(inout) :: destin(:,:)
23488 end subroutine
23489#endif
23490
23491#if SK4_ENABLED
23492 PURE module subroutine setMatCopy_RDP_RDP_XLD_THO_SK4(destin, dpack, source, spack, subset, operation, doff)
23493#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23494 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_THO_SK4
23495#endif
23496 use pm_kind, only: SKG => SK4
23497 type(rdpack_type) , intent(in) :: dpack
23498 type(rdpack_type) , intent(in) :: spack
23499 type(lowDia_type) , intent(in) :: subset
23500 type(transHerm_type) , intent(in) :: operation
23501 integer(IK) , intent(in) , optional :: doff
23502 character(*,SKG) , intent(in) :: source(:,:)
23503 character(*,SKG) , intent(inout) :: destin(:,:)
23504 end subroutine
23505#endif
23506
23507#if SK3_ENABLED
23508 PURE module subroutine setMatCopy_RDP_RDP_XLD_THO_SK3(destin, dpack, source, spack, subset, operation, doff)
23509#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23510 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_THO_SK3
23511#endif
23512 use pm_kind, only: SKG => SK3
23513 type(rdpack_type) , intent(in) :: dpack
23514 type(rdpack_type) , intent(in) :: spack
23515 type(lowDia_type) , intent(in) :: subset
23516 type(transHerm_type) , intent(in) :: operation
23517 integer(IK) , intent(in) , optional :: doff
23518 character(*,SKG) , intent(in) :: source(:,:)
23519 character(*,SKG) , intent(inout) :: destin(:,:)
23520 end subroutine
23521#endif
23522
23523#if SK2_ENABLED
23524 PURE module subroutine setMatCopy_RDP_RDP_XLD_THO_SK2(destin, dpack, source, spack, subset, operation, doff)
23525#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23526 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_THO_SK2
23527#endif
23528 use pm_kind, only: SKG => SK2
23529 type(rdpack_type) , intent(in) :: dpack
23530 type(rdpack_type) , intent(in) :: spack
23531 type(lowDia_type) , intent(in) :: subset
23532 type(transHerm_type) , intent(in) :: operation
23533 integer(IK) , intent(in) , optional :: doff
23534 character(*,SKG) , intent(in) :: source(:,:)
23535 character(*,SKG) , intent(inout) :: destin(:,:)
23536 end subroutine
23537#endif
23538
23539#if SK1_ENABLED
23540 PURE module subroutine setMatCopy_RDP_RDP_XLD_THO_SK1(destin, dpack, source, spack, subset, operation, doff)
23541#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23542 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_THO_SK1
23543#endif
23544 use pm_kind, only: SKG => SK1
23545 type(rdpack_type) , intent(in) :: dpack
23546 type(rdpack_type) , intent(in) :: spack
23547 type(lowDia_type) , intent(in) :: subset
23548 type(transHerm_type) , intent(in) :: operation
23549 integer(IK) , intent(in) , optional :: doff
23550 character(*,SKG) , intent(in) :: source(:,:)
23551 character(*,SKG) , intent(inout) :: destin(:,:)
23552 end subroutine
23553#endif
23554
23555 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
23556
23557#if IK5_ENABLED
23558 PURE module subroutine setMatCopy_RDP_RDP_XLD_THO_IK5(destin, dpack, source, spack, subset, operation, doff)
23559#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23560 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_THO_IK5
23561#endif
23562 use pm_kind, only: IKG => IK5
23563 type(rdpack_type) , intent(in) :: dpack
23564 type(rdpack_type) , intent(in) :: spack
23565 type(lowDia_type) , intent(in) :: subset
23566 type(transHerm_type) , intent(in) :: operation
23567 integer(IK) , intent(in) , optional :: doff
23568 integer(IKG) , intent(in) :: source(:,:)
23569 integer(IKG) , intent(inout) :: destin(:,:)
23570 end subroutine
23571#endif
23572
23573#if IK4_ENABLED
23574 PURE module subroutine setMatCopy_RDP_RDP_XLD_THO_IK4(destin, dpack, source, spack, subset, operation, doff)
23575#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23576 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_THO_IK4
23577#endif
23578 use pm_kind, only: IKG => IK4
23579 type(rdpack_type) , intent(in) :: dpack
23580 type(rdpack_type) , intent(in) :: spack
23581 type(lowDia_type) , intent(in) :: subset
23582 type(transHerm_type) , intent(in) :: operation
23583 integer(IK) , intent(in) , optional :: doff
23584 integer(IKG) , intent(in) :: source(:,:)
23585 integer(IKG) , intent(inout) :: destin(:,:)
23586 end subroutine
23587#endif
23588
23589#if IK3_ENABLED
23590 PURE module subroutine setMatCopy_RDP_RDP_XLD_THO_IK3(destin, dpack, source, spack, subset, operation, doff)
23591#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23592 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_THO_IK3
23593#endif
23594 use pm_kind, only: IKG => IK3
23595 type(rdpack_type) , intent(in) :: dpack
23596 type(rdpack_type) , intent(in) :: spack
23597 type(lowDia_type) , intent(in) :: subset
23598 type(transHerm_type) , intent(in) :: operation
23599 integer(IK) , intent(in) , optional :: doff
23600 integer(IKG) , intent(in) :: source(:,:)
23601 integer(IKG) , intent(inout) :: destin(:,:)
23602 end subroutine
23603#endif
23604
23605#if IK2_ENABLED
23606 PURE module subroutine setMatCopy_RDP_RDP_XLD_THO_IK2(destin, dpack, source, spack, subset, operation, doff)
23607#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23608 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_THO_IK2
23609#endif
23610 use pm_kind, only: IKG => IK2
23611 type(rdpack_type) , intent(in) :: dpack
23612 type(rdpack_type) , intent(in) :: spack
23613 type(lowDia_type) , intent(in) :: subset
23614 type(transHerm_type) , intent(in) :: operation
23615 integer(IK) , intent(in) , optional :: doff
23616 integer(IKG) , intent(in) :: source(:,:)
23617 integer(IKG) , intent(inout) :: destin(:,:)
23618 end subroutine
23619#endif
23620
23621#if IK1_ENABLED
23622 PURE module subroutine setMatCopy_RDP_RDP_XLD_THO_IK1(destin, dpack, source, spack, subset, operation, doff)
23623#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23624 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_THO_IK1
23625#endif
23626 use pm_kind, only: IKG => IK1
23627 type(rdpack_type) , intent(in) :: dpack
23628 type(rdpack_type) , intent(in) :: spack
23629 type(lowDia_type) , intent(in) :: subset
23630 type(transHerm_type) , intent(in) :: operation
23631 integer(IK) , intent(in) , optional :: doff
23632 integer(IKG) , intent(in) :: source(:,:)
23633 integer(IKG) , intent(inout) :: destin(:,:)
23634 end subroutine
23635#endif
23636
23637 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
23638
23639#if LK5_ENABLED
23640 PURE module subroutine setMatCopy_RDP_RDP_XLD_THO_LK5(destin, dpack, source, spack, subset, operation, doff)
23641#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23642 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_THO_LK5
23643#endif
23644 use pm_kind, only: LKG => LK5
23645 type(rdpack_type) , intent(in) :: dpack
23646 type(rdpack_type) , intent(in) :: spack
23647 type(lowDia_type) , intent(in) :: subset
23648 type(transHerm_type) , intent(in) :: operation
23649 integer(IK) , intent(in) , optional :: doff
23650 logical(LKG) , intent(in) :: source(:,:)
23651 logical(LKG) , intent(inout) :: destin(:,:)
23652 end subroutine
23653#endif
23654
23655#if LK4_ENABLED
23656 PURE module subroutine setMatCopy_RDP_RDP_XLD_THO_LK4(destin, dpack, source, spack, subset, operation, doff)
23657#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23658 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_THO_LK4
23659#endif
23660 use pm_kind, only: LKG => LK4
23661 type(rdpack_type) , intent(in) :: dpack
23662 type(rdpack_type) , intent(in) :: spack
23663 type(lowDia_type) , intent(in) :: subset
23664 type(transHerm_type) , intent(in) :: operation
23665 integer(IK) , intent(in) , optional :: doff
23666 logical(LKG) , intent(in) :: source(:,:)
23667 logical(LKG) , intent(inout) :: destin(:,:)
23668 end subroutine
23669#endif
23670
23671#if LK3_ENABLED
23672 PURE module subroutine setMatCopy_RDP_RDP_XLD_THO_LK3(destin, dpack, source, spack, subset, operation, doff)
23673#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23674 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_THO_LK3
23675#endif
23676 use pm_kind, only: LKG => LK3
23677 type(rdpack_type) , intent(in) :: dpack
23678 type(rdpack_type) , intent(in) :: spack
23679 type(lowDia_type) , intent(in) :: subset
23680 type(transHerm_type) , intent(in) :: operation
23681 integer(IK) , intent(in) , optional :: doff
23682 logical(LKG) , intent(in) :: source(:,:)
23683 logical(LKG) , intent(inout) :: destin(:,:)
23684 end subroutine
23685#endif
23686
23687#if LK2_ENABLED
23688 PURE module subroutine setMatCopy_RDP_RDP_XLD_THO_LK2(destin, dpack, source, spack, subset, operation, doff)
23689#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23690 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_THO_LK2
23691#endif
23692 use pm_kind, only: LKG => LK2
23693 type(rdpack_type) , intent(in) :: dpack
23694 type(rdpack_type) , intent(in) :: spack
23695 type(lowDia_type) , intent(in) :: subset
23696 type(transHerm_type) , intent(in) :: operation
23697 integer(IK) , intent(in) , optional :: doff
23698 logical(LKG) , intent(in) :: source(:,:)
23699 logical(LKG) , intent(inout) :: destin(:,:)
23700 end subroutine
23701#endif
23702
23703#if LK1_ENABLED
23704 PURE module subroutine setMatCopy_RDP_RDP_XLD_THO_LK1(destin, dpack, source, spack, subset, operation, doff)
23705#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23706 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_THO_LK1
23707#endif
23708 use pm_kind, only: LKG => LK1
23709 type(rdpack_type) , intent(in) :: dpack
23710 type(rdpack_type) , intent(in) :: spack
23711 type(lowDia_type) , intent(in) :: subset
23712 type(transHerm_type) , intent(in) :: operation
23713 integer(IK) , intent(in) , optional :: doff
23714 logical(LKG) , intent(in) :: source(:,:)
23715 logical(LKG) , intent(inout) :: destin(:,:)
23716 end subroutine
23717#endif
23718
23719 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
23720
23721#if CK5_ENABLED
23722 PURE module subroutine setMatCopy_RDP_RDP_XLD_THO_CK5(destin, dpack, source, spack, subset, operation, doff)
23723#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23724 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_THO_CK5
23725#endif
23726 use pm_kind, only: CKG => CK5
23727 type(rdpack_type) , intent(in) :: dpack
23728 type(rdpack_type) , intent(in) :: spack
23729 type(lowDia_type) , intent(in) :: subset
23730 type(transHerm_type) , intent(in) :: operation
23731 integer(IK) , intent(in) , optional :: doff
23732 complex(CKG) , intent(in) :: source(:,:)
23733 complex(CKG) , intent(inout) :: destin(:,:)
23734 end subroutine
23735#endif
23736
23737#if CK4_ENABLED
23738 PURE module subroutine setMatCopy_RDP_RDP_XLD_THO_CK4(destin, dpack, source, spack, subset, operation, doff)
23739#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23740 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_THO_CK4
23741#endif
23742 use pm_kind, only: CKG => CK4
23743 type(rdpack_type) , intent(in) :: dpack
23744 type(rdpack_type) , intent(in) :: spack
23745 type(lowDia_type) , intent(in) :: subset
23746 type(transHerm_type) , intent(in) :: operation
23747 integer(IK) , intent(in) , optional :: doff
23748 complex(CKG) , intent(in) :: source(:,:)
23749 complex(CKG) , intent(inout) :: destin(:,:)
23750 end subroutine
23751#endif
23752
23753#if CK3_ENABLED
23754 PURE module subroutine setMatCopy_RDP_RDP_XLD_THO_CK3(destin, dpack, source, spack, subset, operation, doff)
23755#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23756 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_THO_CK3
23757#endif
23758 use pm_kind, only: CKG => CK3
23759 type(rdpack_type) , intent(in) :: dpack
23760 type(rdpack_type) , intent(in) :: spack
23761 type(lowDia_type) , intent(in) :: subset
23762 type(transHerm_type) , intent(in) :: operation
23763 integer(IK) , intent(in) , optional :: doff
23764 complex(CKG) , intent(in) :: source(:,:)
23765 complex(CKG) , intent(inout) :: destin(:,:)
23766 end subroutine
23767#endif
23768
23769#if CK2_ENABLED
23770 PURE module subroutine setMatCopy_RDP_RDP_XLD_THO_CK2(destin, dpack, source, spack, subset, operation, doff)
23771#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23772 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_THO_CK2
23773#endif
23774 use pm_kind, only: CKG => CK2
23775 type(rdpack_type) , intent(in) :: dpack
23776 type(rdpack_type) , intent(in) :: spack
23777 type(lowDia_type) , intent(in) :: subset
23778 type(transHerm_type) , intent(in) :: operation
23779 integer(IK) , intent(in) , optional :: doff
23780 complex(CKG) , intent(in) :: source(:,:)
23781 complex(CKG) , intent(inout) :: destin(:,:)
23782 end subroutine
23783#endif
23784
23785#if CK1_ENABLED
23786 PURE module subroutine setMatCopy_RDP_RDP_XLD_THO_CK1(destin, dpack, source, spack, subset, operation, doff)
23787#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23788 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_THO_CK1
23789#endif
23790 use pm_kind, only: CKG => CK1
23791 type(rdpack_type) , intent(in) :: dpack
23792 type(rdpack_type) , intent(in) :: spack
23793 type(lowDia_type) , intent(in) :: subset
23794 type(transHerm_type) , intent(in) :: operation
23795 integer(IK) , intent(in) , optional :: doff
23796 complex(CKG) , intent(in) :: source(:,:)
23797 complex(CKG) , intent(inout) :: destin(:,:)
23798 end subroutine
23799#endif
23800
23801 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
23802
23803#if RK5_ENABLED
23804 PURE module subroutine setMatCopy_RDP_RDP_XLD_THO_RK5(destin, dpack, source, spack, subset, operation, doff)
23805#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23806 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_THO_RK5
23807#endif
23808 use pm_kind, only: RKG => RK5
23809 type(rdpack_type) , intent(in) :: dpack
23810 type(rdpack_type) , intent(in) :: spack
23811 type(lowDia_type) , intent(in) :: subset
23812 type(transHerm_type) , intent(in) :: operation
23813 integer(IK) , intent(in) , optional :: doff
23814 real(RKG) , intent(in) :: source(:,:)
23815 real(RKG) , intent(inout) :: destin(:,:)
23816 end subroutine
23817#endif
23818
23819#if RK4_ENABLED
23820 PURE module subroutine setMatCopy_RDP_RDP_XLD_THO_RK4(destin, dpack, source, spack, subset, operation, doff)
23821#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23822 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_THO_RK4
23823#endif
23824 use pm_kind, only: RKG => RK4
23825 type(rdpack_type) , intent(in) :: dpack
23826 type(rdpack_type) , intent(in) :: spack
23827 type(lowDia_type) , intent(in) :: subset
23828 type(transHerm_type) , intent(in) :: operation
23829 integer(IK) , intent(in) , optional :: doff
23830 real(RKG) , intent(in) :: source(:,:)
23831 real(RKG) , intent(inout) :: destin(:,:)
23832 end subroutine
23833#endif
23834
23835#if RK3_ENABLED
23836 PURE module subroutine setMatCopy_RDP_RDP_XLD_THO_RK3(destin, dpack, source, spack, subset, operation, doff)
23837#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23838 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_THO_RK3
23839#endif
23840 use pm_kind, only: RKG => RK3
23841 type(rdpack_type) , intent(in) :: dpack
23842 type(rdpack_type) , intent(in) :: spack
23843 type(lowDia_type) , intent(in) :: subset
23844 type(transHerm_type) , intent(in) :: operation
23845 integer(IK) , intent(in) , optional :: doff
23846 real(RKG) , intent(in) :: source(:,:)
23847 real(RKG) , intent(inout) :: destin(:,:)
23848 end subroutine
23849#endif
23850
23851#if RK2_ENABLED
23852 PURE module subroutine setMatCopy_RDP_RDP_XLD_THO_RK2(destin, dpack, source, spack, subset, operation, doff)
23853#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23854 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_THO_RK2
23855#endif
23856 use pm_kind, only: RKG => RK2
23857 type(rdpack_type) , intent(in) :: dpack
23858 type(rdpack_type) , intent(in) :: spack
23859 type(lowDia_type) , intent(in) :: subset
23860 type(transHerm_type) , intent(in) :: operation
23861 integer(IK) , intent(in) , optional :: doff
23862 real(RKG) , intent(in) :: source(:,:)
23863 real(RKG) , intent(inout) :: destin(:,:)
23864 end subroutine
23865#endif
23866
23867#if RK1_ENABLED
23868 PURE module subroutine setMatCopy_RDP_RDP_XLD_THO_RK1(destin, dpack, source, spack, subset, operation, doff)
23869#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23870 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_XLD_THO_RK1
23871#endif
23872 use pm_kind, only: RKG => RK1
23873 type(rdpack_type) , intent(in) :: dpack
23874 type(rdpack_type) , intent(in) :: spack
23875 type(lowDia_type) , intent(in) :: subset
23876 type(transHerm_type) , intent(in) :: operation
23877 integer(IK) , intent(in) , optional :: doff
23878 real(RKG) , intent(in) :: source(:,:)
23879 real(RKG) , intent(inout) :: destin(:,:)
23880 end subroutine
23881#endif
23882
23883 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
23884
23885 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
23886 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
23887 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
23888
23889 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
23890 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
23891 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
23892
23893 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
23894
23895#if SK5_ENABLED
23896 PURE module subroutine setMatCopy_RDP_RDP_ULX_AIO_SK5(destin, dpack, source, spack, subset, doff)
23897#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23898 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_AIO_SK5
23899#endif
23900 use pm_kind, only: SKG => SK5
23901 type(rdpack_type) , intent(in) :: dpack
23902 type(rdpack_type) , intent(in) :: spack
23903 type(uppLow_type) , intent(in) :: subset
23904 integer(IK) , intent(in) , optional :: doff
23905 character(*,SKG) , intent(in) :: source(:,:)
23906 character(*,SKG) , intent(inout) :: destin(:,:)
23907 end subroutine
23908#endif
23909
23910#if SK4_ENABLED
23911 PURE module subroutine setMatCopy_RDP_RDP_ULX_AIO_SK4(destin, dpack, source, spack, subset, doff)
23912#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23913 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_AIO_SK4
23914#endif
23915 use pm_kind, only: SKG => SK4
23916 type(rdpack_type) , intent(in) :: dpack
23917 type(rdpack_type) , intent(in) :: spack
23918 type(uppLow_type) , intent(in) :: subset
23919 integer(IK) , intent(in) , optional :: doff
23920 character(*,SKG) , intent(in) :: source(:,:)
23921 character(*,SKG) , intent(inout) :: destin(:,:)
23922 end subroutine
23923#endif
23924
23925#if SK3_ENABLED
23926 PURE module subroutine setMatCopy_RDP_RDP_ULX_AIO_SK3(destin, dpack, source, spack, subset, doff)
23927#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23928 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_AIO_SK3
23929#endif
23930 use pm_kind, only: SKG => SK3
23931 type(rdpack_type) , intent(in) :: dpack
23932 type(rdpack_type) , intent(in) :: spack
23933 type(uppLow_type) , intent(in) :: subset
23934 integer(IK) , intent(in) , optional :: doff
23935 character(*,SKG) , intent(in) :: source(:,:)
23936 character(*,SKG) , intent(inout) :: destin(:,:)
23937 end subroutine
23938#endif
23939
23940#if SK2_ENABLED
23941 PURE module subroutine setMatCopy_RDP_RDP_ULX_AIO_SK2(destin, dpack, source, spack, subset, doff)
23942#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23943 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_AIO_SK2
23944#endif
23945 use pm_kind, only: SKG => SK2
23946 type(rdpack_type) , intent(in) :: dpack
23947 type(rdpack_type) , intent(in) :: spack
23948 type(uppLow_type) , intent(in) :: subset
23949 integer(IK) , intent(in) , optional :: doff
23950 character(*,SKG) , intent(in) :: source(:,:)
23951 character(*,SKG) , intent(inout) :: destin(:,:)
23952 end subroutine
23953#endif
23954
23955#if SK1_ENABLED
23956 PURE module subroutine setMatCopy_RDP_RDP_ULX_AIO_SK1(destin, dpack, source, spack, subset, doff)
23957#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23958 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_AIO_SK1
23959#endif
23960 use pm_kind, only: SKG => SK1
23961 type(rdpack_type) , intent(in) :: dpack
23962 type(rdpack_type) , intent(in) :: spack
23963 type(uppLow_type) , intent(in) :: subset
23964 integer(IK) , intent(in) , optional :: doff
23965 character(*,SKG) , intent(in) :: source(:,:)
23966 character(*,SKG) , intent(inout) :: destin(:,:)
23967 end subroutine
23968#endif
23969
23970 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
23971
23972#if IK5_ENABLED
23973 PURE module subroutine setMatCopy_RDP_RDP_ULX_AIO_IK5(destin, dpack, source, spack, subset, doff)
23974#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23975 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_AIO_IK5
23976#endif
23977 use pm_kind, only: IKG => IK5
23978 type(rdpack_type) , intent(in) :: dpack
23979 type(rdpack_type) , intent(in) :: spack
23980 type(uppLow_type) , intent(in) :: subset
23981 integer(IK) , intent(in) , optional :: doff
23982 integer(IKG) , intent(in) :: source(:,:)
23983 integer(IKG) , intent(inout) :: destin(:,:)
23984 end subroutine
23985#endif
23986
23987#if IK4_ENABLED
23988 PURE module subroutine setMatCopy_RDP_RDP_ULX_AIO_IK4(destin, dpack, source, spack, subset, doff)
23989#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
23990 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_AIO_IK4
23991#endif
23992 use pm_kind, only: IKG => IK4
23993 type(rdpack_type) , intent(in) :: dpack
23994 type(rdpack_type) , intent(in) :: spack
23995 type(uppLow_type) , intent(in) :: subset
23996 integer(IK) , intent(in) , optional :: doff
23997 integer(IKG) , intent(in) :: source(:,:)
23998 integer(IKG) , intent(inout) :: destin(:,:)
23999 end subroutine
24000#endif
24001
24002#if IK3_ENABLED
24003 PURE module subroutine setMatCopy_RDP_RDP_ULX_AIO_IK3(destin, dpack, source, spack, subset, doff)
24004#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24005 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_AIO_IK3
24006#endif
24007 use pm_kind, only: IKG => IK3
24008 type(rdpack_type) , intent(in) :: dpack
24009 type(rdpack_type) , intent(in) :: spack
24010 type(uppLow_type) , intent(in) :: subset
24011 integer(IK) , intent(in) , optional :: doff
24012 integer(IKG) , intent(in) :: source(:,:)
24013 integer(IKG) , intent(inout) :: destin(:,:)
24014 end subroutine
24015#endif
24016
24017#if IK2_ENABLED
24018 PURE module subroutine setMatCopy_RDP_RDP_ULX_AIO_IK2(destin, dpack, source, spack, subset, doff)
24019#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24020 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_AIO_IK2
24021#endif
24022 use pm_kind, only: IKG => IK2
24023 type(rdpack_type) , intent(in) :: dpack
24024 type(rdpack_type) , intent(in) :: spack
24025 type(uppLow_type) , intent(in) :: subset
24026 integer(IK) , intent(in) , optional :: doff
24027 integer(IKG) , intent(in) :: source(:,:)
24028 integer(IKG) , intent(inout) :: destin(:,:)
24029 end subroutine
24030#endif
24031
24032#if IK1_ENABLED
24033 PURE module subroutine setMatCopy_RDP_RDP_ULX_AIO_IK1(destin, dpack, source, spack, subset, doff)
24034#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24035 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_AIO_IK1
24036#endif
24037 use pm_kind, only: IKG => IK1
24038 type(rdpack_type) , intent(in) :: dpack
24039 type(rdpack_type) , intent(in) :: spack
24040 type(uppLow_type) , intent(in) :: subset
24041 integer(IK) , intent(in) , optional :: doff
24042 integer(IKG) , intent(in) :: source(:,:)
24043 integer(IKG) , intent(inout) :: destin(:,:)
24044 end subroutine
24045#endif
24046
24047 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
24048
24049#if LK5_ENABLED
24050 PURE module subroutine setMatCopy_RDP_RDP_ULX_AIO_LK5(destin, dpack, source, spack, subset, doff)
24051#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24052 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_AIO_LK5
24053#endif
24054 use pm_kind, only: LKG => LK5
24055 type(rdpack_type) , intent(in) :: dpack
24056 type(rdpack_type) , intent(in) :: spack
24057 type(uppLow_type) , intent(in) :: subset
24058 integer(IK) , intent(in) , optional :: doff
24059 logical(LKG) , intent(in) :: source(:,:)
24060 logical(LKG) , intent(inout) :: destin(:,:)
24061 end subroutine
24062#endif
24063
24064#if LK4_ENABLED
24065 PURE module subroutine setMatCopy_RDP_RDP_ULX_AIO_LK4(destin, dpack, source, spack, subset, doff)
24066#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24067 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_AIO_LK4
24068#endif
24069 use pm_kind, only: LKG => LK4
24070 type(rdpack_type) , intent(in) :: dpack
24071 type(rdpack_type) , intent(in) :: spack
24072 type(uppLow_type) , intent(in) :: subset
24073 integer(IK) , intent(in) , optional :: doff
24074 logical(LKG) , intent(in) :: source(:,:)
24075 logical(LKG) , intent(inout) :: destin(:,:)
24076 end subroutine
24077#endif
24078
24079#if LK3_ENABLED
24080 PURE module subroutine setMatCopy_RDP_RDP_ULX_AIO_LK3(destin, dpack, source, spack, subset, doff)
24081#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24082 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_AIO_LK3
24083#endif
24084 use pm_kind, only: LKG => LK3
24085 type(rdpack_type) , intent(in) :: dpack
24086 type(rdpack_type) , intent(in) :: spack
24087 type(uppLow_type) , intent(in) :: subset
24088 integer(IK) , intent(in) , optional :: doff
24089 logical(LKG) , intent(in) :: source(:,:)
24090 logical(LKG) , intent(inout) :: destin(:,:)
24091 end subroutine
24092#endif
24093
24094#if LK2_ENABLED
24095 PURE module subroutine setMatCopy_RDP_RDP_ULX_AIO_LK2(destin, dpack, source, spack, subset, doff)
24096#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24097 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_AIO_LK2
24098#endif
24099 use pm_kind, only: LKG => LK2
24100 type(rdpack_type) , intent(in) :: dpack
24101 type(rdpack_type) , intent(in) :: spack
24102 type(uppLow_type) , intent(in) :: subset
24103 integer(IK) , intent(in) , optional :: doff
24104 logical(LKG) , intent(in) :: source(:,:)
24105 logical(LKG) , intent(inout) :: destin(:,:)
24106 end subroutine
24107#endif
24108
24109#if LK1_ENABLED
24110 PURE module subroutine setMatCopy_RDP_RDP_ULX_AIO_LK1(destin, dpack, source, spack, subset, doff)
24111#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24112 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_AIO_LK1
24113#endif
24114 use pm_kind, only: LKG => LK1
24115 type(rdpack_type) , intent(in) :: dpack
24116 type(rdpack_type) , intent(in) :: spack
24117 type(uppLow_type) , intent(in) :: subset
24118 integer(IK) , intent(in) , optional :: doff
24119 logical(LKG) , intent(in) :: source(:,:)
24120 logical(LKG) , intent(inout) :: destin(:,:)
24121 end subroutine
24122#endif
24123
24124 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
24125
24126#if CK5_ENABLED
24127 PURE module subroutine setMatCopy_RDP_RDP_ULX_AIO_CK5(destin, dpack, source, spack, subset, doff)
24128#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24129 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_AIO_CK5
24130#endif
24131 use pm_kind, only: CKG => CK5
24132 type(rdpack_type) , intent(in) :: dpack
24133 type(rdpack_type) , intent(in) :: spack
24134 type(uppLow_type) , intent(in) :: subset
24135 integer(IK) , intent(in) , optional :: doff
24136 complex(CKG) , intent(in) :: source(:,:)
24137 complex(CKG) , intent(inout) :: destin(:,:)
24138 end subroutine
24139#endif
24140
24141#if CK4_ENABLED
24142 PURE module subroutine setMatCopy_RDP_RDP_ULX_AIO_CK4(destin, dpack, source, spack, subset, doff)
24143#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24144 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_AIO_CK4
24145#endif
24146 use pm_kind, only: CKG => CK4
24147 type(rdpack_type) , intent(in) :: dpack
24148 type(rdpack_type) , intent(in) :: spack
24149 type(uppLow_type) , intent(in) :: subset
24150 integer(IK) , intent(in) , optional :: doff
24151 complex(CKG) , intent(in) :: source(:,:)
24152 complex(CKG) , intent(inout) :: destin(:,:)
24153 end subroutine
24154#endif
24155
24156#if CK3_ENABLED
24157 PURE module subroutine setMatCopy_RDP_RDP_ULX_AIO_CK3(destin, dpack, source, spack, subset, doff)
24158#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24159 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_AIO_CK3
24160#endif
24161 use pm_kind, only: CKG => CK3
24162 type(rdpack_type) , intent(in) :: dpack
24163 type(rdpack_type) , intent(in) :: spack
24164 type(uppLow_type) , intent(in) :: subset
24165 integer(IK) , intent(in) , optional :: doff
24166 complex(CKG) , intent(in) :: source(:,:)
24167 complex(CKG) , intent(inout) :: destin(:,:)
24168 end subroutine
24169#endif
24170
24171#if CK2_ENABLED
24172 PURE module subroutine setMatCopy_RDP_RDP_ULX_AIO_CK2(destin, dpack, source, spack, subset, doff)
24173#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24174 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_AIO_CK2
24175#endif
24176 use pm_kind, only: CKG => CK2
24177 type(rdpack_type) , intent(in) :: dpack
24178 type(rdpack_type) , intent(in) :: spack
24179 type(uppLow_type) , intent(in) :: subset
24180 integer(IK) , intent(in) , optional :: doff
24181 complex(CKG) , intent(in) :: source(:,:)
24182 complex(CKG) , intent(inout) :: destin(:,:)
24183 end subroutine
24184#endif
24185
24186#if CK1_ENABLED
24187 PURE module subroutine setMatCopy_RDP_RDP_ULX_AIO_CK1(destin, dpack, source, spack, subset, doff)
24188#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24189 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_AIO_CK1
24190#endif
24191 use pm_kind, only: CKG => CK1
24192 type(rdpack_type) , intent(in) :: dpack
24193 type(rdpack_type) , intent(in) :: spack
24194 type(uppLow_type) , intent(in) :: subset
24195 integer(IK) , intent(in) , optional :: doff
24196 complex(CKG) , intent(in) :: source(:,:)
24197 complex(CKG) , intent(inout) :: destin(:,:)
24198 end subroutine
24199#endif
24200
24201 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
24202
24203#if RK5_ENABLED
24204 PURE module subroutine setMatCopy_RDP_RDP_ULX_AIO_RK5(destin, dpack, source, spack, subset, doff)
24205#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24206 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_AIO_RK5
24207#endif
24208 use pm_kind, only: RKG => RK5
24209 type(rdpack_type) , intent(in) :: dpack
24210 type(rdpack_type) , intent(in) :: spack
24211 type(uppLow_type) , intent(in) :: subset
24212 integer(IK) , intent(in) , optional :: doff
24213 real(RKG) , intent(in) :: source(:,:)
24214 real(RKG) , intent(inout) :: destin(:,:)
24215 end subroutine
24216#endif
24217
24218#if RK4_ENABLED
24219 PURE module subroutine setMatCopy_RDP_RDP_ULX_AIO_RK4(destin, dpack, source, spack, subset, doff)
24220#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24221 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_AIO_RK4
24222#endif
24223 use pm_kind, only: RKG => RK4
24224 type(rdpack_type) , intent(in) :: dpack
24225 type(rdpack_type) , intent(in) :: spack
24226 type(uppLow_type) , intent(in) :: subset
24227 integer(IK) , intent(in) , optional :: doff
24228 real(RKG) , intent(in) :: source(:,:)
24229 real(RKG) , intent(inout) :: destin(:,:)
24230 end subroutine
24231#endif
24232
24233#if RK3_ENABLED
24234 PURE module subroutine setMatCopy_RDP_RDP_ULX_AIO_RK3(destin, dpack, source, spack, subset, doff)
24235#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24236 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_AIO_RK3
24237#endif
24238 use pm_kind, only: RKG => RK3
24239 type(rdpack_type) , intent(in) :: dpack
24240 type(rdpack_type) , intent(in) :: spack
24241 type(uppLow_type) , intent(in) :: subset
24242 integer(IK) , intent(in) , optional :: doff
24243 real(RKG) , intent(in) :: source(:,:)
24244 real(RKG) , intent(inout) :: destin(:,:)
24245 end subroutine
24246#endif
24247
24248#if RK2_ENABLED
24249 PURE module subroutine setMatCopy_RDP_RDP_ULX_AIO_RK2(destin, dpack, source, spack, subset, doff)
24250#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24251 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_AIO_RK2
24252#endif
24253 use pm_kind, only: RKG => RK2
24254 type(rdpack_type) , intent(in) :: dpack
24255 type(rdpack_type) , intent(in) :: spack
24256 type(uppLow_type) , intent(in) :: subset
24257 integer(IK) , intent(in) , optional :: doff
24258 real(RKG) , intent(in) :: source(:,:)
24259 real(RKG) , intent(inout) :: destin(:,:)
24260 end subroutine
24261#endif
24262
24263#if RK1_ENABLED
24264 PURE module subroutine setMatCopy_RDP_RDP_ULX_AIO_RK1(destin, dpack, source, spack, subset, doff)
24265#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24266 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_AIO_RK1
24267#endif
24268 use pm_kind, only: RKG => RK1
24269 type(rdpack_type) , intent(in) :: dpack
24270 type(rdpack_type) , intent(in) :: spack
24271 type(uppLow_type) , intent(in) :: subset
24272 integer(IK) , intent(in) , optional :: doff
24273 real(RKG) , intent(in) :: source(:,:)
24274 real(RKG) , intent(inout) :: destin(:,:)
24275 end subroutine
24276#endif
24277
24278 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
24279
24280 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
24281 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
24282 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
24283
24284 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
24285
24286#if SK5_ENABLED
24287 PURE module subroutine setMatCopy_RDP_RDP_ULX_TSO_SK5(destin, dpack, source, spack, subset, operation, doff)
24288#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24289 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_TSO_SK5
24290#endif
24291 use pm_kind, only: SKG => SK5
24292 type(rdpack_type) , intent(in) :: dpack
24293 type(rdpack_type) , intent(in) :: spack
24294 type(uppLow_type) , intent(in) :: subset
24295 type(transSymm_type) , intent(in) :: operation
24296 integer(IK) , intent(in) , optional :: doff
24297 character(*,SKG) , intent(in) :: source(:,:)
24298 character(*,SKG) , intent(inout) :: destin(:,:)
24299 end subroutine
24300#endif
24301
24302#if SK4_ENABLED
24303 PURE module subroutine setMatCopy_RDP_RDP_ULX_TSO_SK4(destin, dpack, source, spack, subset, operation, doff)
24304#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24305 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_TSO_SK4
24306#endif
24307 use pm_kind, only: SKG => SK4
24308 type(rdpack_type) , intent(in) :: dpack
24309 type(rdpack_type) , intent(in) :: spack
24310 type(uppLow_type) , intent(in) :: subset
24311 type(transSymm_type) , intent(in) :: operation
24312 integer(IK) , intent(in) , optional :: doff
24313 character(*,SKG) , intent(in) :: source(:,:)
24314 character(*,SKG) , intent(inout) :: destin(:,:)
24315 end subroutine
24316#endif
24317
24318#if SK3_ENABLED
24319 PURE module subroutine setMatCopy_RDP_RDP_ULX_TSO_SK3(destin, dpack, source, spack, subset, operation, doff)
24320#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24321 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_TSO_SK3
24322#endif
24323 use pm_kind, only: SKG => SK3
24324 type(rdpack_type) , intent(in) :: dpack
24325 type(rdpack_type) , intent(in) :: spack
24326 type(uppLow_type) , intent(in) :: subset
24327 type(transSymm_type) , intent(in) :: operation
24328 integer(IK) , intent(in) , optional :: doff
24329 character(*,SKG) , intent(in) :: source(:,:)
24330 character(*,SKG) , intent(inout) :: destin(:,:)
24331 end subroutine
24332#endif
24333
24334#if SK2_ENABLED
24335 PURE module subroutine setMatCopy_RDP_RDP_ULX_TSO_SK2(destin, dpack, source, spack, subset, operation, doff)
24336#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24337 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_TSO_SK2
24338#endif
24339 use pm_kind, only: SKG => SK2
24340 type(rdpack_type) , intent(in) :: dpack
24341 type(rdpack_type) , intent(in) :: spack
24342 type(uppLow_type) , intent(in) :: subset
24343 type(transSymm_type) , intent(in) :: operation
24344 integer(IK) , intent(in) , optional :: doff
24345 character(*,SKG) , intent(in) :: source(:,:)
24346 character(*,SKG) , intent(inout) :: destin(:,:)
24347 end subroutine
24348#endif
24349
24350#if SK1_ENABLED
24351 PURE module subroutine setMatCopy_RDP_RDP_ULX_TSO_SK1(destin, dpack, source, spack, subset, operation, doff)
24352#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24353 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_TSO_SK1
24354#endif
24355 use pm_kind, only: SKG => SK1
24356 type(rdpack_type) , intent(in) :: dpack
24357 type(rdpack_type) , intent(in) :: spack
24358 type(uppLow_type) , intent(in) :: subset
24359 type(transSymm_type) , intent(in) :: operation
24360 integer(IK) , intent(in) , optional :: doff
24361 character(*,SKG) , intent(in) :: source(:,:)
24362 character(*,SKG) , intent(inout) :: destin(:,:)
24363 end subroutine
24364#endif
24365
24366 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
24367
24368#if IK5_ENABLED
24369 PURE module subroutine setMatCopy_RDP_RDP_ULX_TSO_IK5(destin, dpack, source, spack, subset, operation, doff)
24370#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24371 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_TSO_IK5
24372#endif
24373 use pm_kind, only: IKG => IK5
24374 type(rdpack_type) , intent(in) :: dpack
24375 type(rdpack_type) , intent(in) :: spack
24376 type(uppLow_type) , intent(in) :: subset
24377 type(transSymm_type) , intent(in) :: operation
24378 integer(IK) , intent(in) , optional :: doff
24379 integer(IKG) , intent(in) :: source(:,:)
24380 integer(IKG) , intent(inout) :: destin(:,:)
24381 end subroutine
24382#endif
24383
24384#if IK4_ENABLED
24385 PURE module subroutine setMatCopy_RDP_RDP_ULX_TSO_IK4(destin, dpack, source, spack, subset, operation, doff)
24386#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24387 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_TSO_IK4
24388#endif
24389 use pm_kind, only: IKG => IK4
24390 type(rdpack_type) , intent(in) :: dpack
24391 type(rdpack_type) , intent(in) :: spack
24392 type(uppLow_type) , intent(in) :: subset
24393 type(transSymm_type) , intent(in) :: operation
24394 integer(IK) , intent(in) , optional :: doff
24395 integer(IKG) , intent(in) :: source(:,:)
24396 integer(IKG) , intent(inout) :: destin(:,:)
24397 end subroutine
24398#endif
24399
24400#if IK3_ENABLED
24401 PURE module subroutine setMatCopy_RDP_RDP_ULX_TSO_IK3(destin, dpack, source, spack, subset, operation, doff)
24402#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24403 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_TSO_IK3
24404#endif
24405 use pm_kind, only: IKG => IK3
24406 type(rdpack_type) , intent(in) :: dpack
24407 type(rdpack_type) , intent(in) :: spack
24408 type(uppLow_type) , intent(in) :: subset
24409 type(transSymm_type) , intent(in) :: operation
24410 integer(IK) , intent(in) , optional :: doff
24411 integer(IKG) , intent(in) :: source(:,:)
24412 integer(IKG) , intent(inout) :: destin(:,:)
24413 end subroutine
24414#endif
24415
24416#if IK2_ENABLED
24417 PURE module subroutine setMatCopy_RDP_RDP_ULX_TSO_IK2(destin, dpack, source, spack, subset, operation, doff)
24418#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24419 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_TSO_IK2
24420#endif
24421 use pm_kind, only: IKG => IK2
24422 type(rdpack_type) , intent(in) :: dpack
24423 type(rdpack_type) , intent(in) :: spack
24424 type(uppLow_type) , intent(in) :: subset
24425 type(transSymm_type) , intent(in) :: operation
24426 integer(IK) , intent(in) , optional :: doff
24427 integer(IKG) , intent(in) :: source(:,:)
24428 integer(IKG) , intent(inout) :: destin(:,:)
24429 end subroutine
24430#endif
24431
24432#if IK1_ENABLED
24433 PURE module subroutine setMatCopy_RDP_RDP_ULX_TSO_IK1(destin, dpack, source, spack, subset, operation, doff)
24434#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24435 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_TSO_IK1
24436#endif
24437 use pm_kind, only: IKG => IK1
24438 type(rdpack_type) , intent(in) :: dpack
24439 type(rdpack_type) , intent(in) :: spack
24440 type(uppLow_type) , intent(in) :: subset
24441 type(transSymm_type) , intent(in) :: operation
24442 integer(IK) , intent(in) , optional :: doff
24443 integer(IKG) , intent(in) :: source(:,:)
24444 integer(IKG) , intent(inout) :: destin(:,:)
24445 end subroutine
24446#endif
24447
24448 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
24449
24450#if LK5_ENABLED
24451 PURE module subroutine setMatCopy_RDP_RDP_ULX_TSO_LK5(destin, dpack, source, spack, subset, operation, doff)
24452#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24453 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_TSO_LK5
24454#endif
24455 use pm_kind, only: LKG => LK5
24456 type(rdpack_type) , intent(in) :: dpack
24457 type(rdpack_type) , intent(in) :: spack
24458 type(uppLow_type) , intent(in) :: subset
24459 type(transSymm_type) , intent(in) :: operation
24460 integer(IK) , intent(in) , optional :: doff
24461 logical(LKG) , intent(in) :: source(:,:)
24462 logical(LKG) , intent(inout) :: destin(:,:)
24463 end subroutine
24464#endif
24465
24466#if LK4_ENABLED
24467 PURE module subroutine setMatCopy_RDP_RDP_ULX_TSO_LK4(destin, dpack, source, spack, subset, operation, doff)
24468#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24469 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_TSO_LK4
24470#endif
24471 use pm_kind, only: LKG => LK4
24472 type(rdpack_type) , intent(in) :: dpack
24473 type(rdpack_type) , intent(in) :: spack
24474 type(uppLow_type) , intent(in) :: subset
24475 type(transSymm_type) , intent(in) :: operation
24476 integer(IK) , intent(in) , optional :: doff
24477 logical(LKG) , intent(in) :: source(:,:)
24478 logical(LKG) , intent(inout) :: destin(:,:)
24479 end subroutine
24480#endif
24481
24482#if LK3_ENABLED
24483 PURE module subroutine setMatCopy_RDP_RDP_ULX_TSO_LK3(destin, dpack, source, spack, subset, operation, doff)
24484#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24485 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_TSO_LK3
24486#endif
24487 use pm_kind, only: LKG => LK3
24488 type(rdpack_type) , intent(in) :: dpack
24489 type(rdpack_type) , intent(in) :: spack
24490 type(uppLow_type) , intent(in) :: subset
24491 type(transSymm_type) , intent(in) :: operation
24492 integer(IK) , intent(in) , optional :: doff
24493 logical(LKG) , intent(in) :: source(:,:)
24494 logical(LKG) , intent(inout) :: destin(:,:)
24495 end subroutine
24496#endif
24497
24498#if LK2_ENABLED
24499 PURE module subroutine setMatCopy_RDP_RDP_ULX_TSO_LK2(destin, dpack, source, spack, subset, operation, doff)
24500#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24501 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_TSO_LK2
24502#endif
24503 use pm_kind, only: LKG => LK2
24504 type(rdpack_type) , intent(in) :: dpack
24505 type(rdpack_type) , intent(in) :: spack
24506 type(uppLow_type) , intent(in) :: subset
24507 type(transSymm_type) , intent(in) :: operation
24508 integer(IK) , intent(in) , optional :: doff
24509 logical(LKG) , intent(in) :: source(:,:)
24510 logical(LKG) , intent(inout) :: destin(:,:)
24511 end subroutine
24512#endif
24513
24514#if LK1_ENABLED
24515 PURE module subroutine setMatCopy_RDP_RDP_ULX_TSO_LK1(destin, dpack, source, spack, subset, operation, doff)
24516#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24517 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_TSO_LK1
24518#endif
24519 use pm_kind, only: LKG => LK1
24520 type(rdpack_type) , intent(in) :: dpack
24521 type(rdpack_type) , intent(in) :: spack
24522 type(uppLow_type) , intent(in) :: subset
24523 type(transSymm_type) , intent(in) :: operation
24524 integer(IK) , intent(in) , optional :: doff
24525 logical(LKG) , intent(in) :: source(:,:)
24526 logical(LKG) , intent(inout) :: destin(:,:)
24527 end subroutine
24528#endif
24529
24530 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
24531
24532#if CK5_ENABLED
24533 PURE module subroutine setMatCopy_RDP_RDP_ULX_TSO_CK5(destin, dpack, source, spack, subset, operation, doff)
24534#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24535 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_TSO_CK5
24536#endif
24537 use pm_kind, only: CKG => CK5
24538 type(rdpack_type) , intent(in) :: dpack
24539 type(rdpack_type) , intent(in) :: spack
24540 type(uppLow_type) , intent(in) :: subset
24541 type(transSymm_type) , intent(in) :: operation
24542 integer(IK) , intent(in) , optional :: doff
24543 complex(CKG) , intent(in) :: source(:,:)
24544 complex(CKG) , intent(inout) :: destin(:,:)
24545 end subroutine
24546#endif
24547
24548#if CK4_ENABLED
24549 PURE module subroutine setMatCopy_RDP_RDP_ULX_TSO_CK4(destin, dpack, source, spack, subset, operation, doff)
24550#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24551 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_TSO_CK4
24552#endif
24553 use pm_kind, only: CKG => CK4
24554 type(rdpack_type) , intent(in) :: dpack
24555 type(rdpack_type) , intent(in) :: spack
24556 type(uppLow_type) , intent(in) :: subset
24557 type(transSymm_type) , intent(in) :: operation
24558 integer(IK) , intent(in) , optional :: doff
24559 complex(CKG) , intent(in) :: source(:,:)
24560 complex(CKG) , intent(inout) :: destin(:,:)
24561 end subroutine
24562#endif
24563
24564#if CK3_ENABLED
24565 PURE module subroutine setMatCopy_RDP_RDP_ULX_TSO_CK3(destin, dpack, source, spack, subset, operation, doff)
24566#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24567 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_TSO_CK3
24568#endif
24569 use pm_kind, only: CKG => CK3
24570 type(rdpack_type) , intent(in) :: dpack
24571 type(rdpack_type) , intent(in) :: spack
24572 type(uppLow_type) , intent(in) :: subset
24573 type(transSymm_type) , intent(in) :: operation
24574 integer(IK) , intent(in) , optional :: doff
24575 complex(CKG) , intent(in) :: source(:,:)
24576 complex(CKG) , intent(inout) :: destin(:,:)
24577 end subroutine
24578#endif
24579
24580#if CK2_ENABLED
24581 PURE module subroutine setMatCopy_RDP_RDP_ULX_TSO_CK2(destin, dpack, source, spack, subset, operation, doff)
24582#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24583 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_TSO_CK2
24584#endif
24585 use pm_kind, only: CKG => CK2
24586 type(rdpack_type) , intent(in) :: dpack
24587 type(rdpack_type) , intent(in) :: spack
24588 type(uppLow_type) , intent(in) :: subset
24589 type(transSymm_type) , intent(in) :: operation
24590 integer(IK) , intent(in) , optional :: doff
24591 complex(CKG) , intent(in) :: source(:,:)
24592 complex(CKG) , intent(inout) :: destin(:,:)
24593 end subroutine
24594#endif
24595
24596#if CK1_ENABLED
24597 PURE module subroutine setMatCopy_RDP_RDP_ULX_TSO_CK1(destin, dpack, source, spack, subset, operation, doff)
24598#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24599 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_TSO_CK1
24600#endif
24601 use pm_kind, only: CKG => CK1
24602 type(rdpack_type) , intent(in) :: dpack
24603 type(rdpack_type) , intent(in) :: spack
24604 type(uppLow_type) , intent(in) :: subset
24605 type(transSymm_type) , intent(in) :: operation
24606 integer(IK) , intent(in) , optional :: doff
24607 complex(CKG) , intent(in) :: source(:,:)
24608 complex(CKG) , intent(inout) :: destin(:,:)
24609 end subroutine
24610#endif
24611
24612 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
24613
24614#if RK5_ENABLED
24615 PURE module subroutine setMatCopy_RDP_RDP_ULX_TSO_RK5(destin, dpack, source, spack, subset, operation, doff)
24616#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24617 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_TSO_RK5
24618#endif
24619 use pm_kind, only: RKG => RK5
24620 type(rdpack_type) , intent(in) :: dpack
24621 type(rdpack_type) , intent(in) :: spack
24622 type(uppLow_type) , intent(in) :: subset
24623 type(transSymm_type) , intent(in) :: operation
24624 integer(IK) , intent(in) , optional :: doff
24625 real(RKG) , intent(in) :: source(:,:)
24626 real(RKG) , intent(inout) :: destin(:,:)
24627 end subroutine
24628#endif
24629
24630#if RK4_ENABLED
24631 PURE module subroutine setMatCopy_RDP_RDP_ULX_TSO_RK4(destin, dpack, source, spack, subset, operation, doff)
24632#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24633 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_TSO_RK4
24634#endif
24635 use pm_kind, only: RKG => RK4
24636 type(rdpack_type) , intent(in) :: dpack
24637 type(rdpack_type) , intent(in) :: spack
24638 type(uppLow_type) , intent(in) :: subset
24639 type(transSymm_type) , intent(in) :: operation
24640 integer(IK) , intent(in) , optional :: doff
24641 real(RKG) , intent(in) :: source(:,:)
24642 real(RKG) , intent(inout) :: destin(:,:)
24643 end subroutine
24644#endif
24645
24646#if RK3_ENABLED
24647 PURE module subroutine setMatCopy_RDP_RDP_ULX_TSO_RK3(destin, dpack, source, spack, subset, operation, doff)
24648#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24649 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_TSO_RK3
24650#endif
24651 use pm_kind, only: RKG => RK3
24652 type(rdpack_type) , intent(in) :: dpack
24653 type(rdpack_type) , intent(in) :: spack
24654 type(uppLow_type) , intent(in) :: subset
24655 type(transSymm_type) , intent(in) :: operation
24656 integer(IK) , intent(in) , optional :: doff
24657 real(RKG) , intent(in) :: source(:,:)
24658 real(RKG) , intent(inout) :: destin(:,:)
24659 end subroutine
24660#endif
24661
24662#if RK2_ENABLED
24663 PURE module subroutine setMatCopy_RDP_RDP_ULX_TSO_RK2(destin, dpack, source, spack, subset, operation, doff)
24664#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24665 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_TSO_RK2
24666#endif
24667 use pm_kind, only: RKG => RK2
24668 type(rdpack_type) , intent(in) :: dpack
24669 type(rdpack_type) , intent(in) :: spack
24670 type(uppLow_type) , intent(in) :: subset
24671 type(transSymm_type) , intent(in) :: operation
24672 integer(IK) , intent(in) , optional :: doff
24673 real(RKG) , intent(in) :: source(:,:)
24674 real(RKG) , intent(inout) :: destin(:,:)
24675 end subroutine
24676#endif
24677
24678#if RK1_ENABLED
24679 PURE module subroutine setMatCopy_RDP_RDP_ULX_TSO_RK1(destin, dpack, source, spack, subset, operation, doff)
24680#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24681 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_TSO_RK1
24682#endif
24683 use pm_kind, only: RKG => RK1
24684 type(rdpack_type) , intent(in) :: dpack
24685 type(rdpack_type) , intent(in) :: spack
24686 type(uppLow_type) , intent(in) :: subset
24687 type(transSymm_type) , intent(in) :: operation
24688 integer(IK) , intent(in) , optional :: doff
24689 real(RKG) , intent(in) :: source(:,:)
24690 real(RKG) , intent(inout) :: destin(:,:)
24691 end subroutine
24692#endif
24693
24694 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
24695
24696 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
24697 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
24698 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
24699
24700 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
24701
24702#if SK5_ENABLED
24703 PURE module subroutine setMatCopy_RDP_RDP_ULX_THO_SK5(destin, dpack, source, spack, subset, operation, doff)
24704#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24705 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_THO_SK5
24706#endif
24707 use pm_kind, only: SKG => SK5
24708 type(rdpack_type) , intent(in) :: dpack
24709 type(rdpack_type) , intent(in) :: spack
24710 type(uppLow_type) , intent(in) :: subset
24711 type(transHerm_type) , intent(in) :: operation
24712 integer(IK) , intent(in) , optional :: doff
24713 character(*,SKG) , intent(in) :: source(:,:)
24714 character(*,SKG) , intent(inout) :: destin(:,:)
24715 end subroutine
24716#endif
24717
24718#if SK4_ENABLED
24719 PURE module subroutine setMatCopy_RDP_RDP_ULX_THO_SK4(destin, dpack, source, spack, subset, operation, doff)
24720#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24721 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_THO_SK4
24722#endif
24723 use pm_kind, only: SKG => SK4
24724 type(rdpack_type) , intent(in) :: dpack
24725 type(rdpack_type) , intent(in) :: spack
24726 type(uppLow_type) , intent(in) :: subset
24727 type(transHerm_type) , intent(in) :: operation
24728 integer(IK) , intent(in) , optional :: doff
24729 character(*,SKG) , intent(in) :: source(:,:)
24730 character(*,SKG) , intent(inout) :: destin(:,:)
24731 end subroutine
24732#endif
24733
24734#if SK3_ENABLED
24735 PURE module subroutine setMatCopy_RDP_RDP_ULX_THO_SK3(destin, dpack, source, spack, subset, operation, doff)
24736#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24737 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_THO_SK3
24738#endif
24739 use pm_kind, only: SKG => SK3
24740 type(rdpack_type) , intent(in) :: dpack
24741 type(rdpack_type) , intent(in) :: spack
24742 type(uppLow_type) , intent(in) :: subset
24743 type(transHerm_type) , intent(in) :: operation
24744 integer(IK) , intent(in) , optional :: doff
24745 character(*,SKG) , intent(in) :: source(:,:)
24746 character(*,SKG) , intent(inout) :: destin(:,:)
24747 end subroutine
24748#endif
24749
24750#if SK2_ENABLED
24751 PURE module subroutine setMatCopy_RDP_RDP_ULX_THO_SK2(destin, dpack, source, spack, subset, operation, doff)
24752#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24753 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_THO_SK2
24754#endif
24755 use pm_kind, only: SKG => SK2
24756 type(rdpack_type) , intent(in) :: dpack
24757 type(rdpack_type) , intent(in) :: spack
24758 type(uppLow_type) , intent(in) :: subset
24759 type(transHerm_type) , intent(in) :: operation
24760 integer(IK) , intent(in) , optional :: doff
24761 character(*,SKG) , intent(in) :: source(:,:)
24762 character(*,SKG) , intent(inout) :: destin(:,:)
24763 end subroutine
24764#endif
24765
24766#if SK1_ENABLED
24767 PURE module subroutine setMatCopy_RDP_RDP_ULX_THO_SK1(destin, dpack, source, spack, subset, operation, doff)
24768#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24769 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_THO_SK1
24770#endif
24771 use pm_kind, only: SKG => SK1
24772 type(rdpack_type) , intent(in) :: dpack
24773 type(rdpack_type) , intent(in) :: spack
24774 type(uppLow_type) , intent(in) :: subset
24775 type(transHerm_type) , intent(in) :: operation
24776 integer(IK) , intent(in) , optional :: doff
24777 character(*,SKG) , intent(in) :: source(:,:)
24778 character(*,SKG) , intent(inout) :: destin(:,:)
24779 end subroutine
24780#endif
24781
24782 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
24783
24784#if IK5_ENABLED
24785 PURE module subroutine setMatCopy_RDP_RDP_ULX_THO_IK5(destin, dpack, source, spack, subset, operation, doff)
24786#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24787 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_THO_IK5
24788#endif
24789 use pm_kind, only: IKG => IK5
24790 type(rdpack_type) , intent(in) :: dpack
24791 type(rdpack_type) , intent(in) :: spack
24792 type(uppLow_type) , intent(in) :: subset
24793 type(transHerm_type) , intent(in) :: operation
24794 integer(IK) , intent(in) , optional :: doff
24795 integer(IKG) , intent(in) :: source(:,:)
24796 integer(IKG) , intent(inout) :: destin(:,:)
24797 end subroutine
24798#endif
24799
24800#if IK4_ENABLED
24801 PURE module subroutine setMatCopy_RDP_RDP_ULX_THO_IK4(destin, dpack, source, spack, subset, operation, doff)
24802#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24803 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_THO_IK4
24804#endif
24805 use pm_kind, only: IKG => IK4
24806 type(rdpack_type) , intent(in) :: dpack
24807 type(rdpack_type) , intent(in) :: spack
24808 type(uppLow_type) , intent(in) :: subset
24809 type(transHerm_type) , intent(in) :: operation
24810 integer(IK) , intent(in) , optional :: doff
24811 integer(IKG) , intent(in) :: source(:,:)
24812 integer(IKG) , intent(inout) :: destin(:,:)
24813 end subroutine
24814#endif
24815
24816#if IK3_ENABLED
24817 PURE module subroutine setMatCopy_RDP_RDP_ULX_THO_IK3(destin, dpack, source, spack, subset, operation, doff)
24818#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24819 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_THO_IK3
24820#endif
24821 use pm_kind, only: IKG => IK3
24822 type(rdpack_type) , intent(in) :: dpack
24823 type(rdpack_type) , intent(in) :: spack
24824 type(uppLow_type) , intent(in) :: subset
24825 type(transHerm_type) , intent(in) :: operation
24826 integer(IK) , intent(in) , optional :: doff
24827 integer(IKG) , intent(in) :: source(:,:)
24828 integer(IKG) , intent(inout) :: destin(:,:)
24829 end subroutine
24830#endif
24831
24832#if IK2_ENABLED
24833 PURE module subroutine setMatCopy_RDP_RDP_ULX_THO_IK2(destin, dpack, source, spack, subset, operation, doff)
24834#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24835 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_THO_IK2
24836#endif
24837 use pm_kind, only: IKG => IK2
24838 type(rdpack_type) , intent(in) :: dpack
24839 type(rdpack_type) , intent(in) :: spack
24840 type(uppLow_type) , intent(in) :: subset
24841 type(transHerm_type) , intent(in) :: operation
24842 integer(IK) , intent(in) , optional :: doff
24843 integer(IKG) , intent(in) :: source(:,:)
24844 integer(IKG) , intent(inout) :: destin(:,:)
24845 end subroutine
24846#endif
24847
24848#if IK1_ENABLED
24849 PURE module subroutine setMatCopy_RDP_RDP_ULX_THO_IK1(destin, dpack, source, spack, subset, operation, doff)
24850#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24851 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_THO_IK1
24852#endif
24853 use pm_kind, only: IKG => IK1
24854 type(rdpack_type) , intent(in) :: dpack
24855 type(rdpack_type) , intent(in) :: spack
24856 type(uppLow_type) , intent(in) :: subset
24857 type(transHerm_type) , intent(in) :: operation
24858 integer(IK) , intent(in) , optional :: doff
24859 integer(IKG) , intent(in) :: source(:,:)
24860 integer(IKG) , intent(inout) :: destin(:,:)
24861 end subroutine
24862#endif
24863
24864 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
24865
24866#if LK5_ENABLED
24867 PURE module subroutine setMatCopy_RDP_RDP_ULX_THO_LK5(destin, dpack, source, spack, subset, operation, doff)
24868#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24869 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_THO_LK5
24870#endif
24871 use pm_kind, only: LKG => LK5
24872 type(rdpack_type) , intent(in) :: dpack
24873 type(rdpack_type) , intent(in) :: spack
24874 type(uppLow_type) , intent(in) :: subset
24875 type(transHerm_type) , intent(in) :: operation
24876 integer(IK) , intent(in) , optional :: doff
24877 logical(LKG) , intent(in) :: source(:,:)
24878 logical(LKG) , intent(inout) :: destin(:,:)
24879 end subroutine
24880#endif
24881
24882#if LK4_ENABLED
24883 PURE module subroutine setMatCopy_RDP_RDP_ULX_THO_LK4(destin, dpack, source, spack, subset, operation, doff)
24884#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24885 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_THO_LK4
24886#endif
24887 use pm_kind, only: LKG => LK4
24888 type(rdpack_type) , intent(in) :: dpack
24889 type(rdpack_type) , intent(in) :: spack
24890 type(uppLow_type) , intent(in) :: subset
24891 type(transHerm_type) , intent(in) :: operation
24892 integer(IK) , intent(in) , optional :: doff
24893 logical(LKG) , intent(in) :: source(:,:)
24894 logical(LKG) , intent(inout) :: destin(:,:)
24895 end subroutine
24896#endif
24897
24898#if LK3_ENABLED
24899 PURE module subroutine setMatCopy_RDP_RDP_ULX_THO_LK3(destin, dpack, source, spack, subset, operation, doff)
24900#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24901 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_THO_LK3
24902#endif
24903 use pm_kind, only: LKG => LK3
24904 type(rdpack_type) , intent(in) :: dpack
24905 type(rdpack_type) , intent(in) :: spack
24906 type(uppLow_type) , intent(in) :: subset
24907 type(transHerm_type) , intent(in) :: operation
24908 integer(IK) , intent(in) , optional :: doff
24909 logical(LKG) , intent(in) :: source(:,:)
24910 logical(LKG) , intent(inout) :: destin(:,:)
24911 end subroutine
24912#endif
24913
24914#if LK2_ENABLED
24915 PURE module subroutine setMatCopy_RDP_RDP_ULX_THO_LK2(destin, dpack, source, spack, subset, operation, doff)
24916#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24917 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_THO_LK2
24918#endif
24919 use pm_kind, only: LKG => LK2
24920 type(rdpack_type) , intent(in) :: dpack
24921 type(rdpack_type) , intent(in) :: spack
24922 type(uppLow_type) , intent(in) :: subset
24923 type(transHerm_type) , intent(in) :: operation
24924 integer(IK) , intent(in) , optional :: doff
24925 logical(LKG) , intent(in) :: source(:,:)
24926 logical(LKG) , intent(inout) :: destin(:,:)
24927 end subroutine
24928#endif
24929
24930#if LK1_ENABLED
24931 PURE module subroutine setMatCopy_RDP_RDP_ULX_THO_LK1(destin, dpack, source, spack, subset, operation, doff)
24932#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24933 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_THO_LK1
24934#endif
24935 use pm_kind, only: LKG => LK1
24936 type(rdpack_type) , intent(in) :: dpack
24937 type(rdpack_type) , intent(in) :: spack
24938 type(uppLow_type) , intent(in) :: subset
24939 type(transHerm_type) , intent(in) :: operation
24940 integer(IK) , intent(in) , optional :: doff
24941 logical(LKG) , intent(in) :: source(:,:)
24942 logical(LKG) , intent(inout) :: destin(:,:)
24943 end subroutine
24944#endif
24945
24946 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
24947
24948#if CK5_ENABLED
24949 PURE module subroutine setMatCopy_RDP_RDP_ULX_THO_CK5(destin, dpack, source, spack, subset, operation, doff)
24950#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24951 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_THO_CK5
24952#endif
24953 use pm_kind, only: CKG => CK5
24954 type(rdpack_type) , intent(in) :: dpack
24955 type(rdpack_type) , intent(in) :: spack
24956 type(uppLow_type) , intent(in) :: subset
24957 type(transHerm_type) , intent(in) :: operation
24958 integer(IK) , intent(in) , optional :: doff
24959 complex(CKG) , intent(in) :: source(:,:)
24960 complex(CKG) , intent(inout) :: destin(:,:)
24961 end subroutine
24962#endif
24963
24964#if CK4_ENABLED
24965 PURE module subroutine setMatCopy_RDP_RDP_ULX_THO_CK4(destin, dpack, source, spack, subset, operation, doff)
24966#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24967 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_THO_CK4
24968#endif
24969 use pm_kind, only: CKG => CK4
24970 type(rdpack_type) , intent(in) :: dpack
24971 type(rdpack_type) , intent(in) :: spack
24972 type(uppLow_type) , intent(in) :: subset
24973 type(transHerm_type) , intent(in) :: operation
24974 integer(IK) , intent(in) , optional :: doff
24975 complex(CKG) , intent(in) :: source(:,:)
24976 complex(CKG) , intent(inout) :: destin(:,:)
24977 end subroutine
24978#endif
24979
24980#if CK3_ENABLED
24981 PURE module subroutine setMatCopy_RDP_RDP_ULX_THO_CK3(destin, dpack, source, spack, subset, operation, doff)
24982#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24983 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_THO_CK3
24984#endif
24985 use pm_kind, only: CKG => CK3
24986 type(rdpack_type) , intent(in) :: dpack
24987 type(rdpack_type) , intent(in) :: spack
24988 type(uppLow_type) , intent(in) :: subset
24989 type(transHerm_type) , intent(in) :: operation
24990 integer(IK) , intent(in) , optional :: doff
24991 complex(CKG) , intent(in) :: source(:,:)
24992 complex(CKG) , intent(inout) :: destin(:,:)
24993 end subroutine
24994#endif
24995
24996#if CK2_ENABLED
24997 PURE module subroutine setMatCopy_RDP_RDP_ULX_THO_CK2(destin, dpack, source, spack, subset, operation, doff)
24998#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
24999 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_THO_CK2
25000#endif
25001 use pm_kind, only: CKG => CK2
25002 type(rdpack_type) , intent(in) :: dpack
25003 type(rdpack_type) , intent(in) :: spack
25004 type(uppLow_type) , intent(in) :: subset
25005 type(transHerm_type) , intent(in) :: operation
25006 integer(IK) , intent(in) , optional :: doff
25007 complex(CKG) , intent(in) :: source(:,:)
25008 complex(CKG) , intent(inout) :: destin(:,:)
25009 end subroutine
25010#endif
25011
25012#if CK1_ENABLED
25013 PURE module subroutine setMatCopy_RDP_RDP_ULX_THO_CK1(destin, dpack, source, spack, subset, operation, doff)
25014#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25015 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_THO_CK1
25016#endif
25017 use pm_kind, only: CKG => CK1
25018 type(rdpack_type) , intent(in) :: dpack
25019 type(rdpack_type) , intent(in) :: spack
25020 type(uppLow_type) , intent(in) :: subset
25021 type(transHerm_type) , intent(in) :: operation
25022 integer(IK) , intent(in) , optional :: doff
25023 complex(CKG) , intent(in) :: source(:,:)
25024 complex(CKG) , intent(inout) :: destin(:,:)
25025 end subroutine
25026#endif
25027
25028 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
25029
25030#if RK5_ENABLED
25031 PURE module subroutine setMatCopy_RDP_RDP_ULX_THO_RK5(destin, dpack, source, spack, subset, operation, doff)
25032#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25033 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_THO_RK5
25034#endif
25035 use pm_kind, only: RKG => RK5
25036 type(rdpack_type) , intent(in) :: dpack
25037 type(rdpack_type) , intent(in) :: spack
25038 type(uppLow_type) , intent(in) :: subset
25039 type(transHerm_type) , intent(in) :: operation
25040 integer(IK) , intent(in) , optional :: doff
25041 real(RKG) , intent(in) :: source(:,:)
25042 real(RKG) , intent(inout) :: destin(:,:)
25043 end subroutine
25044#endif
25045
25046#if RK4_ENABLED
25047 PURE module subroutine setMatCopy_RDP_RDP_ULX_THO_RK4(destin, dpack, source, spack, subset, operation, doff)
25048#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25049 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_THO_RK4
25050#endif
25051 use pm_kind, only: RKG => RK4
25052 type(rdpack_type) , intent(in) :: dpack
25053 type(rdpack_type) , intent(in) :: spack
25054 type(uppLow_type) , intent(in) :: subset
25055 type(transHerm_type) , intent(in) :: operation
25056 integer(IK) , intent(in) , optional :: doff
25057 real(RKG) , intent(in) :: source(:,:)
25058 real(RKG) , intent(inout) :: destin(:,:)
25059 end subroutine
25060#endif
25061
25062#if RK3_ENABLED
25063 PURE module subroutine setMatCopy_RDP_RDP_ULX_THO_RK3(destin, dpack, source, spack, subset, operation, doff)
25064#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25065 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_THO_RK3
25066#endif
25067 use pm_kind, only: RKG => RK3
25068 type(rdpack_type) , intent(in) :: dpack
25069 type(rdpack_type) , intent(in) :: spack
25070 type(uppLow_type) , intent(in) :: subset
25071 type(transHerm_type) , intent(in) :: operation
25072 integer(IK) , intent(in) , optional :: doff
25073 real(RKG) , intent(in) :: source(:,:)
25074 real(RKG) , intent(inout) :: destin(:,:)
25075 end subroutine
25076#endif
25077
25078#if RK2_ENABLED
25079 PURE module subroutine setMatCopy_RDP_RDP_ULX_THO_RK2(destin, dpack, source, spack, subset, operation, doff)
25080#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25081 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_THO_RK2
25082#endif
25083 use pm_kind, only: RKG => RK2
25084 type(rdpack_type) , intent(in) :: dpack
25085 type(rdpack_type) , intent(in) :: spack
25086 type(uppLow_type) , intent(in) :: subset
25087 type(transHerm_type) , intent(in) :: operation
25088 integer(IK) , intent(in) , optional :: doff
25089 real(RKG) , intent(in) :: source(:,:)
25090 real(RKG) , intent(inout) :: destin(:,:)
25091 end subroutine
25092#endif
25093
25094#if RK1_ENABLED
25095 PURE module subroutine setMatCopy_RDP_RDP_ULX_THO_RK1(destin, dpack, source, spack, subset, operation, doff)
25096#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25097 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RDP_ULX_THO_RK1
25098#endif
25099 use pm_kind, only: RKG => RK1
25100 type(rdpack_type) , intent(in) :: dpack
25101 type(rdpack_type) , intent(in) :: spack
25102 type(uppLow_type) , intent(in) :: subset
25103 type(transHerm_type) , intent(in) :: operation
25104 integer(IK) , intent(in) , optional :: doff
25105 real(RKG) , intent(in) :: source(:,:)
25106 real(RKG) , intent(inout) :: destin(:,:)
25107 end subroutine
25108#endif
25109
25110 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
25111
25112 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
25113 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
25114 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
25115
25116 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
25117 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
25118 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
25119
25120 end interface setMatCopy
25121
25122 ! package: rdpack, lfpack
25123
25124 interface setMatCopy
25125
25126 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
25127 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
25128 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
25129
25130 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
25131 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
25132 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
25133
25134 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
25135
25136#if SK5_ENABLED
25137 PURE module subroutine setMatCopy_RDP_LFP_XXD_AIO_SK5(destin, dpack, source, spack, subset, doff)
25138#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25139 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_AIO_SK5
25140#endif
25141 use pm_kind, only: SKG => SK5
25142 type(rdpack_type) , intent(in) :: dpack
25143 type(lfpack_type) , intent(in) :: spack
25144 type(dia_type) , intent(in) :: subset
25145 integer(IK) , intent(in) , optional :: doff
25146 character(*,SKG) , intent(in) :: source(:)
25147 character(*,SKG) , intent(inout) :: destin(:,:)
25148 end subroutine
25149#endif
25150
25151#if SK4_ENABLED
25152 PURE module subroutine setMatCopy_RDP_LFP_XXD_AIO_SK4(destin, dpack, source, spack, subset, doff)
25153#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25154 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_AIO_SK4
25155#endif
25156 use pm_kind, only: SKG => SK4
25157 type(rdpack_type) , intent(in) :: dpack
25158 type(lfpack_type) , intent(in) :: spack
25159 type(dia_type) , intent(in) :: subset
25160 integer(IK) , intent(in) , optional :: doff
25161 character(*,SKG) , intent(in) :: source(:)
25162 character(*,SKG) , intent(inout) :: destin(:,:)
25163 end subroutine
25164#endif
25165
25166#if SK3_ENABLED
25167 PURE module subroutine setMatCopy_RDP_LFP_XXD_AIO_SK3(destin, dpack, source, spack, subset, doff)
25168#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25169 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_AIO_SK3
25170#endif
25171 use pm_kind, only: SKG => SK3
25172 type(rdpack_type) , intent(in) :: dpack
25173 type(lfpack_type) , intent(in) :: spack
25174 type(dia_type) , intent(in) :: subset
25175 integer(IK) , intent(in) , optional :: doff
25176 character(*,SKG) , intent(in) :: source(:)
25177 character(*,SKG) , intent(inout) :: destin(:,:)
25178 end subroutine
25179#endif
25180
25181#if SK2_ENABLED
25182 PURE module subroutine setMatCopy_RDP_LFP_XXD_AIO_SK2(destin, dpack, source, spack, subset, doff)
25183#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25184 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_AIO_SK2
25185#endif
25186 use pm_kind, only: SKG => SK2
25187 type(rdpack_type) , intent(in) :: dpack
25188 type(lfpack_type) , intent(in) :: spack
25189 type(dia_type) , intent(in) :: subset
25190 integer(IK) , intent(in) , optional :: doff
25191 character(*,SKG) , intent(in) :: source(:)
25192 character(*,SKG) , intent(inout) :: destin(:,:)
25193 end subroutine
25194#endif
25195
25196#if SK1_ENABLED
25197 PURE module subroutine setMatCopy_RDP_LFP_XXD_AIO_SK1(destin, dpack, source, spack, subset, doff)
25198#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25199 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_AIO_SK1
25200#endif
25201 use pm_kind, only: SKG => SK1
25202 type(rdpack_type) , intent(in) :: dpack
25203 type(lfpack_type) , intent(in) :: spack
25204 type(dia_type) , intent(in) :: subset
25205 integer(IK) , intent(in) , optional :: doff
25206 character(*,SKG) , intent(in) :: source(:)
25207 character(*,SKG) , intent(inout) :: destin(:,:)
25208 end subroutine
25209#endif
25210
25211 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
25212
25213#if IK5_ENABLED
25214 PURE module subroutine setMatCopy_RDP_LFP_XXD_AIO_IK5(destin, dpack, source, spack, subset, doff)
25215#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25216 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_AIO_IK5
25217#endif
25218 use pm_kind, only: IKG => IK5
25219 type(rdpack_type) , intent(in) :: dpack
25220 type(lfpack_type) , intent(in) :: spack
25221 type(dia_type) , intent(in) :: subset
25222 integer(IK) , intent(in) , optional :: doff
25223 integer(IKG) , intent(in) :: source(:)
25224 integer(IKG) , intent(inout) :: destin(:,:)
25225 end subroutine
25226#endif
25227
25228#if IK4_ENABLED
25229 PURE module subroutine setMatCopy_RDP_LFP_XXD_AIO_IK4(destin, dpack, source, spack, subset, doff)
25230#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25231 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_AIO_IK4
25232#endif
25233 use pm_kind, only: IKG => IK4
25234 type(rdpack_type) , intent(in) :: dpack
25235 type(lfpack_type) , intent(in) :: spack
25236 type(dia_type) , intent(in) :: subset
25237 integer(IK) , intent(in) , optional :: doff
25238 integer(IKG) , intent(in) :: source(:)
25239 integer(IKG) , intent(inout) :: destin(:,:)
25240 end subroutine
25241#endif
25242
25243#if IK3_ENABLED
25244 PURE module subroutine setMatCopy_RDP_LFP_XXD_AIO_IK3(destin, dpack, source, spack, subset, doff)
25245#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25246 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_AIO_IK3
25247#endif
25248 use pm_kind, only: IKG => IK3
25249 type(rdpack_type) , intent(in) :: dpack
25250 type(lfpack_type) , intent(in) :: spack
25251 type(dia_type) , intent(in) :: subset
25252 integer(IK) , intent(in) , optional :: doff
25253 integer(IKG) , intent(in) :: source(:)
25254 integer(IKG) , intent(inout) :: destin(:,:)
25255 end subroutine
25256#endif
25257
25258#if IK2_ENABLED
25259 PURE module subroutine setMatCopy_RDP_LFP_XXD_AIO_IK2(destin, dpack, source, spack, subset, doff)
25260#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25261 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_AIO_IK2
25262#endif
25263 use pm_kind, only: IKG => IK2
25264 type(rdpack_type) , intent(in) :: dpack
25265 type(lfpack_type) , intent(in) :: spack
25266 type(dia_type) , intent(in) :: subset
25267 integer(IK) , intent(in) , optional :: doff
25268 integer(IKG) , intent(in) :: source(:)
25269 integer(IKG) , intent(inout) :: destin(:,:)
25270 end subroutine
25271#endif
25272
25273#if IK1_ENABLED
25274 PURE module subroutine setMatCopy_RDP_LFP_XXD_AIO_IK1(destin, dpack, source, spack, subset, doff)
25275#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25276 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_AIO_IK1
25277#endif
25278 use pm_kind, only: IKG => IK1
25279 type(rdpack_type) , intent(in) :: dpack
25280 type(lfpack_type) , intent(in) :: spack
25281 type(dia_type) , intent(in) :: subset
25282 integer(IK) , intent(in) , optional :: doff
25283 integer(IKG) , intent(in) :: source(:)
25284 integer(IKG) , intent(inout) :: destin(:,:)
25285 end subroutine
25286#endif
25287
25288 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
25289
25290#if LK5_ENABLED
25291 PURE module subroutine setMatCopy_RDP_LFP_XXD_AIO_LK5(destin, dpack, source, spack, subset, doff)
25292#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25293 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_AIO_LK5
25294#endif
25295 use pm_kind, only: LKG => LK5
25296 type(rdpack_type) , intent(in) :: dpack
25297 type(lfpack_type) , intent(in) :: spack
25298 type(dia_type) , intent(in) :: subset
25299 integer(IK) , intent(in) , optional :: doff
25300 logical(LKG) , intent(in) :: source(:)
25301 logical(LKG) , intent(inout) :: destin(:,:)
25302 end subroutine
25303#endif
25304
25305#if LK4_ENABLED
25306 PURE module subroutine setMatCopy_RDP_LFP_XXD_AIO_LK4(destin, dpack, source, spack, subset, doff)
25307#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25308 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_AIO_LK4
25309#endif
25310 use pm_kind, only: LKG => LK4
25311 type(rdpack_type) , intent(in) :: dpack
25312 type(lfpack_type) , intent(in) :: spack
25313 type(dia_type) , intent(in) :: subset
25314 integer(IK) , intent(in) , optional :: doff
25315 logical(LKG) , intent(in) :: source(:)
25316 logical(LKG) , intent(inout) :: destin(:,:)
25317 end subroutine
25318#endif
25319
25320#if LK3_ENABLED
25321 PURE module subroutine setMatCopy_RDP_LFP_XXD_AIO_LK3(destin, dpack, source, spack, subset, doff)
25322#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25323 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_AIO_LK3
25324#endif
25325 use pm_kind, only: LKG => LK3
25326 type(rdpack_type) , intent(in) :: dpack
25327 type(lfpack_type) , intent(in) :: spack
25328 type(dia_type) , intent(in) :: subset
25329 integer(IK) , intent(in) , optional :: doff
25330 logical(LKG) , intent(in) :: source(:)
25331 logical(LKG) , intent(inout) :: destin(:,:)
25332 end subroutine
25333#endif
25334
25335#if LK2_ENABLED
25336 PURE module subroutine setMatCopy_RDP_LFP_XXD_AIO_LK2(destin, dpack, source, spack, subset, doff)
25337#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25338 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_AIO_LK2
25339#endif
25340 use pm_kind, only: LKG => LK2
25341 type(rdpack_type) , intent(in) :: dpack
25342 type(lfpack_type) , intent(in) :: spack
25343 type(dia_type) , intent(in) :: subset
25344 integer(IK) , intent(in) , optional :: doff
25345 logical(LKG) , intent(in) :: source(:)
25346 logical(LKG) , intent(inout) :: destin(:,:)
25347 end subroutine
25348#endif
25349
25350#if LK1_ENABLED
25351 PURE module subroutine setMatCopy_RDP_LFP_XXD_AIO_LK1(destin, dpack, source, spack, subset, doff)
25352#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25353 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_AIO_LK1
25354#endif
25355 use pm_kind, only: LKG => LK1
25356 type(rdpack_type) , intent(in) :: dpack
25357 type(lfpack_type) , intent(in) :: spack
25358 type(dia_type) , intent(in) :: subset
25359 integer(IK) , intent(in) , optional :: doff
25360 logical(LKG) , intent(in) :: source(:)
25361 logical(LKG) , intent(inout) :: destin(:,:)
25362 end subroutine
25363#endif
25364
25365 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
25366
25367#if CK5_ENABLED
25368 PURE module subroutine setMatCopy_RDP_LFP_XXD_AIO_CK5(destin, dpack, source, spack, subset, doff)
25369#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25370 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_AIO_CK5
25371#endif
25372 use pm_kind, only: CKG => CK5
25373 type(rdpack_type) , intent(in) :: dpack
25374 type(lfpack_type) , intent(in) :: spack
25375 type(dia_type) , intent(in) :: subset
25376 integer(IK) , intent(in) , optional :: doff
25377 complex(CKG) , intent(in) :: source(:)
25378 complex(CKG) , intent(inout) :: destin(:,:)
25379 end subroutine
25380#endif
25381
25382#if CK4_ENABLED
25383 PURE module subroutine setMatCopy_RDP_LFP_XXD_AIO_CK4(destin, dpack, source, spack, subset, doff)
25384#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25385 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_AIO_CK4
25386#endif
25387 use pm_kind, only: CKG => CK4
25388 type(rdpack_type) , intent(in) :: dpack
25389 type(lfpack_type) , intent(in) :: spack
25390 type(dia_type) , intent(in) :: subset
25391 integer(IK) , intent(in) , optional :: doff
25392 complex(CKG) , intent(in) :: source(:)
25393 complex(CKG) , intent(inout) :: destin(:,:)
25394 end subroutine
25395#endif
25396
25397#if CK3_ENABLED
25398 PURE module subroutine setMatCopy_RDP_LFP_XXD_AIO_CK3(destin, dpack, source, spack, subset, doff)
25399#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25400 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_AIO_CK3
25401#endif
25402 use pm_kind, only: CKG => CK3
25403 type(rdpack_type) , intent(in) :: dpack
25404 type(lfpack_type) , intent(in) :: spack
25405 type(dia_type) , intent(in) :: subset
25406 integer(IK) , intent(in) , optional :: doff
25407 complex(CKG) , intent(in) :: source(:)
25408 complex(CKG) , intent(inout) :: destin(:,:)
25409 end subroutine
25410#endif
25411
25412#if CK2_ENABLED
25413 PURE module subroutine setMatCopy_RDP_LFP_XXD_AIO_CK2(destin, dpack, source, spack, subset, doff)
25414#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25415 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_AIO_CK2
25416#endif
25417 use pm_kind, only: CKG => CK2
25418 type(rdpack_type) , intent(in) :: dpack
25419 type(lfpack_type) , intent(in) :: spack
25420 type(dia_type) , intent(in) :: subset
25421 integer(IK) , intent(in) , optional :: doff
25422 complex(CKG) , intent(in) :: source(:)
25423 complex(CKG) , intent(inout) :: destin(:,:)
25424 end subroutine
25425#endif
25426
25427#if CK1_ENABLED
25428 PURE module subroutine setMatCopy_RDP_LFP_XXD_AIO_CK1(destin, dpack, source, spack, subset, doff)
25429#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25430 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_AIO_CK1
25431#endif
25432 use pm_kind, only: CKG => CK1
25433 type(rdpack_type) , intent(in) :: dpack
25434 type(lfpack_type) , intent(in) :: spack
25435 type(dia_type) , intent(in) :: subset
25436 integer(IK) , intent(in) , optional :: doff
25437 complex(CKG) , intent(in) :: source(:)
25438 complex(CKG) , intent(inout) :: destin(:,:)
25439 end subroutine
25440#endif
25441
25442 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
25443
25444#if RK5_ENABLED
25445 PURE module subroutine setMatCopy_RDP_LFP_XXD_AIO_RK5(destin, dpack, source, spack, subset, doff)
25446#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25447 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_AIO_RK5
25448#endif
25449 use pm_kind, only: RKG => RK5
25450 type(rdpack_type) , intent(in) :: dpack
25451 type(lfpack_type) , intent(in) :: spack
25452 type(dia_type) , intent(in) :: subset
25453 integer(IK) , intent(in) , optional :: doff
25454 real(RKG) , intent(in) :: source(:)
25455 real(RKG) , intent(inout) :: destin(:,:)
25456 end subroutine
25457#endif
25458
25459#if RK4_ENABLED
25460 PURE module subroutine setMatCopy_RDP_LFP_XXD_AIO_RK4(destin, dpack, source, spack, subset, doff)
25461#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25462 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_AIO_RK4
25463#endif
25464 use pm_kind, only: RKG => RK4
25465 type(rdpack_type) , intent(in) :: dpack
25466 type(lfpack_type) , intent(in) :: spack
25467 type(dia_type) , intent(in) :: subset
25468 integer(IK) , intent(in) , optional :: doff
25469 real(RKG) , intent(in) :: source(:)
25470 real(RKG) , intent(inout) :: destin(:,:)
25471 end subroutine
25472#endif
25473
25474#if RK3_ENABLED
25475 PURE module subroutine setMatCopy_RDP_LFP_XXD_AIO_RK3(destin, dpack, source, spack, subset, doff)
25476#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25477 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_AIO_RK3
25478#endif
25479 use pm_kind, only: RKG => RK3
25480 type(rdpack_type) , intent(in) :: dpack
25481 type(lfpack_type) , intent(in) :: spack
25482 type(dia_type) , intent(in) :: subset
25483 integer(IK) , intent(in) , optional :: doff
25484 real(RKG) , intent(in) :: source(:)
25485 real(RKG) , intent(inout) :: destin(:,:)
25486 end subroutine
25487#endif
25488
25489#if RK2_ENABLED
25490 PURE module subroutine setMatCopy_RDP_LFP_XXD_AIO_RK2(destin, dpack, source, spack, subset, doff)
25491#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25492 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_AIO_RK2
25493#endif
25494 use pm_kind, only: RKG => RK2
25495 type(rdpack_type) , intent(in) :: dpack
25496 type(lfpack_type) , intent(in) :: spack
25497 type(dia_type) , intent(in) :: subset
25498 integer(IK) , intent(in) , optional :: doff
25499 real(RKG) , intent(in) :: source(:)
25500 real(RKG) , intent(inout) :: destin(:,:)
25501 end subroutine
25502#endif
25503
25504#if RK1_ENABLED
25505 PURE module subroutine setMatCopy_RDP_LFP_XXD_AIO_RK1(destin, dpack, source, spack, subset, doff)
25506#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25507 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_AIO_RK1
25508#endif
25509 use pm_kind, only: RKG => RK1
25510 type(rdpack_type) , intent(in) :: dpack
25511 type(lfpack_type) , intent(in) :: spack
25512 type(dia_type) , intent(in) :: subset
25513 integer(IK) , intent(in) , optional :: doff
25514 real(RKG) , intent(in) :: source(:)
25515 real(RKG) , intent(inout) :: destin(:,:)
25516 end subroutine
25517#endif
25518
25519 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
25520
25521 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
25522 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
25523 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
25524
25525 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
25526
25527#if SK5_ENABLED
25528 PURE module subroutine setMatCopy_RDP_LFP_XXD_TSO_SK5(destin, dpack, source, spack, subset, operation, doff)
25529#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25530 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_TSO_SK5
25531#endif
25532 use pm_kind, only: SKG => SK5
25533 type(rdpack_type) , intent(in) :: dpack
25534 type(lfpack_type) , intent(in) :: spack
25535 type(dia_type) , intent(in) :: subset
25536 type(transSymm_type) , intent(in) :: operation
25537 integer(IK) , intent(in) , optional :: doff
25538 character(*,SKG) , intent(in) :: source(:)
25539 character(*,SKG) , intent(inout) :: destin(:,:)
25540 end subroutine
25541#endif
25542
25543#if SK4_ENABLED
25544 PURE module subroutine setMatCopy_RDP_LFP_XXD_TSO_SK4(destin, dpack, source, spack, subset, operation, doff)
25545#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25546 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_TSO_SK4
25547#endif
25548 use pm_kind, only: SKG => SK4
25549 type(rdpack_type) , intent(in) :: dpack
25550 type(lfpack_type) , intent(in) :: spack
25551 type(dia_type) , intent(in) :: subset
25552 type(transSymm_type) , intent(in) :: operation
25553 integer(IK) , intent(in) , optional :: doff
25554 character(*,SKG) , intent(in) :: source(:)
25555 character(*,SKG) , intent(inout) :: destin(:,:)
25556 end subroutine
25557#endif
25558
25559#if SK3_ENABLED
25560 PURE module subroutine setMatCopy_RDP_LFP_XXD_TSO_SK3(destin, dpack, source, spack, subset, operation, doff)
25561#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25562 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_TSO_SK3
25563#endif
25564 use pm_kind, only: SKG => SK3
25565 type(rdpack_type) , intent(in) :: dpack
25566 type(lfpack_type) , intent(in) :: spack
25567 type(dia_type) , intent(in) :: subset
25568 type(transSymm_type) , intent(in) :: operation
25569 integer(IK) , intent(in) , optional :: doff
25570 character(*,SKG) , intent(in) :: source(:)
25571 character(*,SKG) , intent(inout) :: destin(:,:)
25572 end subroutine
25573#endif
25574
25575#if SK2_ENABLED
25576 PURE module subroutine setMatCopy_RDP_LFP_XXD_TSO_SK2(destin, dpack, source, spack, subset, operation, doff)
25577#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25578 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_TSO_SK2
25579#endif
25580 use pm_kind, only: SKG => SK2
25581 type(rdpack_type) , intent(in) :: dpack
25582 type(lfpack_type) , intent(in) :: spack
25583 type(dia_type) , intent(in) :: subset
25584 type(transSymm_type) , intent(in) :: operation
25585 integer(IK) , intent(in) , optional :: doff
25586 character(*,SKG) , intent(in) :: source(:)
25587 character(*,SKG) , intent(inout) :: destin(:,:)
25588 end subroutine
25589#endif
25590
25591#if SK1_ENABLED
25592 PURE module subroutine setMatCopy_RDP_LFP_XXD_TSO_SK1(destin, dpack, source, spack, subset, operation, doff)
25593#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25594 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_TSO_SK1
25595#endif
25596 use pm_kind, only: SKG => SK1
25597 type(rdpack_type) , intent(in) :: dpack
25598 type(lfpack_type) , intent(in) :: spack
25599 type(dia_type) , intent(in) :: subset
25600 type(transSymm_type) , intent(in) :: operation
25601 integer(IK) , intent(in) , optional :: doff
25602 character(*,SKG) , intent(in) :: source(:)
25603 character(*,SKG) , intent(inout) :: destin(:,:)
25604 end subroutine
25605#endif
25606
25607 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
25608
25609#if IK5_ENABLED
25610 PURE module subroutine setMatCopy_RDP_LFP_XXD_TSO_IK5(destin, dpack, source, spack, subset, operation, doff)
25611#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25612 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_TSO_IK5
25613#endif
25614 use pm_kind, only: IKG => IK5
25615 type(rdpack_type) , intent(in) :: dpack
25616 type(lfpack_type) , intent(in) :: spack
25617 type(dia_type) , intent(in) :: subset
25618 type(transSymm_type) , intent(in) :: operation
25619 integer(IK) , intent(in) , optional :: doff
25620 integer(IKG) , intent(in) :: source(:)
25621 integer(IKG) , intent(inout) :: destin(:,:)
25622 end subroutine
25623#endif
25624
25625#if IK4_ENABLED
25626 PURE module subroutine setMatCopy_RDP_LFP_XXD_TSO_IK4(destin, dpack, source, spack, subset, operation, doff)
25627#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25628 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_TSO_IK4
25629#endif
25630 use pm_kind, only: IKG => IK4
25631 type(rdpack_type) , intent(in) :: dpack
25632 type(lfpack_type) , intent(in) :: spack
25633 type(dia_type) , intent(in) :: subset
25634 type(transSymm_type) , intent(in) :: operation
25635 integer(IK) , intent(in) , optional :: doff
25636 integer(IKG) , intent(in) :: source(:)
25637 integer(IKG) , intent(inout) :: destin(:,:)
25638 end subroutine
25639#endif
25640
25641#if IK3_ENABLED
25642 PURE module subroutine setMatCopy_RDP_LFP_XXD_TSO_IK3(destin, dpack, source, spack, subset, operation, doff)
25643#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25644 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_TSO_IK3
25645#endif
25646 use pm_kind, only: IKG => IK3
25647 type(rdpack_type) , intent(in) :: dpack
25648 type(lfpack_type) , intent(in) :: spack
25649 type(dia_type) , intent(in) :: subset
25650 type(transSymm_type) , intent(in) :: operation
25651 integer(IK) , intent(in) , optional :: doff
25652 integer(IKG) , intent(in) :: source(:)
25653 integer(IKG) , intent(inout) :: destin(:,:)
25654 end subroutine
25655#endif
25656
25657#if IK2_ENABLED
25658 PURE module subroutine setMatCopy_RDP_LFP_XXD_TSO_IK2(destin, dpack, source, spack, subset, operation, doff)
25659#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25660 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_TSO_IK2
25661#endif
25662 use pm_kind, only: IKG => IK2
25663 type(rdpack_type) , intent(in) :: dpack
25664 type(lfpack_type) , intent(in) :: spack
25665 type(dia_type) , intent(in) :: subset
25666 type(transSymm_type) , intent(in) :: operation
25667 integer(IK) , intent(in) , optional :: doff
25668 integer(IKG) , intent(in) :: source(:)
25669 integer(IKG) , intent(inout) :: destin(:,:)
25670 end subroutine
25671#endif
25672
25673#if IK1_ENABLED
25674 PURE module subroutine setMatCopy_RDP_LFP_XXD_TSO_IK1(destin, dpack, source, spack, subset, operation, doff)
25675#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25676 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_TSO_IK1
25677#endif
25678 use pm_kind, only: IKG => IK1
25679 type(rdpack_type) , intent(in) :: dpack
25680 type(lfpack_type) , intent(in) :: spack
25681 type(dia_type) , intent(in) :: subset
25682 type(transSymm_type) , intent(in) :: operation
25683 integer(IK) , intent(in) , optional :: doff
25684 integer(IKG) , intent(in) :: source(:)
25685 integer(IKG) , intent(inout) :: destin(:,:)
25686 end subroutine
25687#endif
25688
25689 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
25690
25691#if LK5_ENABLED
25692 PURE module subroutine setMatCopy_RDP_LFP_XXD_TSO_LK5(destin, dpack, source, spack, subset, operation, doff)
25693#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25694 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_TSO_LK5
25695#endif
25696 use pm_kind, only: LKG => LK5
25697 type(rdpack_type) , intent(in) :: dpack
25698 type(lfpack_type) , intent(in) :: spack
25699 type(dia_type) , intent(in) :: subset
25700 type(transSymm_type) , intent(in) :: operation
25701 integer(IK) , intent(in) , optional :: doff
25702 logical(LKG) , intent(in) :: source(:)
25703 logical(LKG) , intent(inout) :: destin(:,:)
25704 end subroutine
25705#endif
25706
25707#if LK4_ENABLED
25708 PURE module subroutine setMatCopy_RDP_LFP_XXD_TSO_LK4(destin, dpack, source, spack, subset, operation, doff)
25709#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25710 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_TSO_LK4
25711#endif
25712 use pm_kind, only: LKG => LK4
25713 type(rdpack_type) , intent(in) :: dpack
25714 type(lfpack_type) , intent(in) :: spack
25715 type(dia_type) , intent(in) :: subset
25716 type(transSymm_type) , intent(in) :: operation
25717 integer(IK) , intent(in) , optional :: doff
25718 logical(LKG) , intent(in) :: source(:)
25719 logical(LKG) , intent(inout) :: destin(:,:)
25720 end subroutine
25721#endif
25722
25723#if LK3_ENABLED
25724 PURE module subroutine setMatCopy_RDP_LFP_XXD_TSO_LK3(destin, dpack, source, spack, subset, operation, doff)
25725#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25726 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_TSO_LK3
25727#endif
25728 use pm_kind, only: LKG => LK3
25729 type(rdpack_type) , intent(in) :: dpack
25730 type(lfpack_type) , intent(in) :: spack
25731 type(dia_type) , intent(in) :: subset
25732 type(transSymm_type) , intent(in) :: operation
25733 integer(IK) , intent(in) , optional :: doff
25734 logical(LKG) , intent(in) :: source(:)
25735 logical(LKG) , intent(inout) :: destin(:,:)
25736 end subroutine
25737#endif
25738
25739#if LK2_ENABLED
25740 PURE module subroutine setMatCopy_RDP_LFP_XXD_TSO_LK2(destin, dpack, source, spack, subset, operation, doff)
25741#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25742 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_TSO_LK2
25743#endif
25744 use pm_kind, only: LKG => LK2
25745 type(rdpack_type) , intent(in) :: dpack
25746 type(lfpack_type) , intent(in) :: spack
25747 type(dia_type) , intent(in) :: subset
25748 type(transSymm_type) , intent(in) :: operation
25749 integer(IK) , intent(in) , optional :: doff
25750 logical(LKG) , intent(in) :: source(:)
25751 logical(LKG) , intent(inout) :: destin(:,:)
25752 end subroutine
25753#endif
25754
25755#if LK1_ENABLED
25756 PURE module subroutine setMatCopy_RDP_LFP_XXD_TSO_LK1(destin, dpack, source, spack, subset, operation, doff)
25757#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25758 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_TSO_LK1
25759#endif
25760 use pm_kind, only: LKG => LK1
25761 type(rdpack_type) , intent(in) :: dpack
25762 type(lfpack_type) , intent(in) :: spack
25763 type(dia_type) , intent(in) :: subset
25764 type(transSymm_type) , intent(in) :: operation
25765 integer(IK) , intent(in) , optional :: doff
25766 logical(LKG) , intent(in) :: source(:)
25767 logical(LKG) , intent(inout) :: destin(:,:)
25768 end subroutine
25769#endif
25770
25771 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
25772
25773#if CK5_ENABLED
25774 PURE module subroutine setMatCopy_RDP_LFP_XXD_TSO_CK5(destin, dpack, source, spack, subset, operation, doff)
25775#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25776 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_TSO_CK5
25777#endif
25778 use pm_kind, only: CKG => CK5
25779 type(rdpack_type) , intent(in) :: dpack
25780 type(lfpack_type) , intent(in) :: spack
25781 type(dia_type) , intent(in) :: subset
25782 type(transSymm_type) , intent(in) :: operation
25783 integer(IK) , intent(in) , optional :: doff
25784 complex(CKG) , intent(in) :: source(:)
25785 complex(CKG) , intent(inout) :: destin(:,:)
25786 end subroutine
25787#endif
25788
25789#if CK4_ENABLED
25790 PURE module subroutine setMatCopy_RDP_LFP_XXD_TSO_CK4(destin, dpack, source, spack, subset, operation, doff)
25791#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25792 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_TSO_CK4
25793#endif
25794 use pm_kind, only: CKG => CK4
25795 type(rdpack_type) , intent(in) :: dpack
25796 type(lfpack_type) , intent(in) :: spack
25797 type(dia_type) , intent(in) :: subset
25798 type(transSymm_type) , intent(in) :: operation
25799 integer(IK) , intent(in) , optional :: doff
25800 complex(CKG) , intent(in) :: source(:)
25801 complex(CKG) , intent(inout) :: destin(:,:)
25802 end subroutine
25803#endif
25804
25805#if CK3_ENABLED
25806 PURE module subroutine setMatCopy_RDP_LFP_XXD_TSO_CK3(destin, dpack, source, spack, subset, operation, doff)
25807#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25808 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_TSO_CK3
25809#endif
25810 use pm_kind, only: CKG => CK3
25811 type(rdpack_type) , intent(in) :: dpack
25812 type(lfpack_type) , intent(in) :: spack
25813 type(dia_type) , intent(in) :: subset
25814 type(transSymm_type) , intent(in) :: operation
25815 integer(IK) , intent(in) , optional :: doff
25816 complex(CKG) , intent(in) :: source(:)
25817 complex(CKG) , intent(inout) :: destin(:,:)
25818 end subroutine
25819#endif
25820
25821#if CK2_ENABLED
25822 PURE module subroutine setMatCopy_RDP_LFP_XXD_TSO_CK2(destin, dpack, source, spack, subset, operation, doff)
25823#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25824 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_TSO_CK2
25825#endif
25826 use pm_kind, only: CKG => CK2
25827 type(rdpack_type) , intent(in) :: dpack
25828 type(lfpack_type) , intent(in) :: spack
25829 type(dia_type) , intent(in) :: subset
25830 type(transSymm_type) , intent(in) :: operation
25831 integer(IK) , intent(in) , optional :: doff
25832 complex(CKG) , intent(in) :: source(:)
25833 complex(CKG) , intent(inout) :: destin(:,:)
25834 end subroutine
25835#endif
25836
25837#if CK1_ENABLED
25838 PURE module subroutine setMatCopy_RDP_LFP_XXD_TSO_CK1(destin, dpack, source, spack, subset, operation, doff)
25839#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25840 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_TSO_CK1
25841#endif
25842 use pm_kind, only: CKG => CK1
25843 type(rdpack_type) , intent(in) :: dpack
25844 type(lfpack_type) , intent(in) :: spack
25845 type(dia_type) , intent(in) :: subset
25846 type(transSymm_type) , intent(in) :: operation
25847 integer(IK) , intent(in) , optional :: doff
25848 complex(CKG) , intent(in) :: source(:)
25849 complex(CKG) , intent(inout) :: destin(:,:)
25850 end subroutine
25851#endif
25852
25853 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
25854
25855#if RK5_ENABLED
25856 PURE module subroutine setMatCopy_RDP_LFP_XXD_TSO_RK5(destin, dpack, source, spack, subset, operation, doff)
25857#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25858 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_TSO_RK5
25859#endif
25860 use pm_kind, only: RKG => RK5
25861 type(rdpack_type) , intent(in) :: dpack
25862 type(lfpack_type) , intent(in) :: spack
25863 type(dia_type) , intent(in) :: subset
25864 type(transSymm_type) , intent(in) :: operation
25865 integer(IK) , intent(in) , optional :: doff
25866 real(RKG) , intent(in) :: source(:)
25867 real(RKG) , intent(inout) :: destin(:,:)
25868 end subroutine
25869#endif
25870
25871#if RK4_ENABLED
25872 PURE module subroutine setMatCopy_RDP_LFP_XXD_TSO_RK4(destin, dpack, source, spack, subset, operation, doff)
25873#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25874 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_TSO_RK4
25875#endif
25876 use pm_kind, only: RKG => RK4
25877 type(rdpack_type) , intent(in) :: dpack
25878 type(lfpack_type) , intent(in) :: spack
25879 type(dia_type) , intent(in) :: subset
25880 type(transSymm_type) , intent(in) :: operation
25881 integer(IK) , intent(in) , optional :: doff
25882 real(RKG) , intent(in) :: source(:)
25883 real(RKG) , intent(inout) :: destin(:,:)
25884 end subroutine
25885#endif
25886
25887#if RK3_ENABLED
25888 PURE module subroutine setMatCopy_RDP_LFP_XXD_TSO_RK3(destin, dpack, source, spack, subset, operation, doff)
25889#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25890 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_TSO_RK3
25891#endif
25892 use pm_kind, only: RKG => RK3
25893 type(rdpack_type) , intent(in) :: dpack
25894 type(lfpack_type) , intent(in) :: spack
25895 type(dia_type) , intent(in) :: subset
25896 type(transSymm_type) , intent(in) :: operation
25897 integer(IK) , intent(in) , optional :: doff
25898 real(RKG) , intent(in) :: source(:)
25899 real(RKG) , intent(inout) :: destin(:,:)
25900 end subroutine
25901#endif
25902
25903#if RK2_ENABLED
25904 PURE module subroutine setMatCopy_RDP_LFP_XXD_TSO_RK2(destin, dpack, source, spack, subset, operation, doff)
25905#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25906 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_TSO_RK2
25907#endif
25908 use pm_kind, only: RKG => RK2
25909 type(rdpack_type) , intent(in) :: dpack
25910 type(lfpack_type) , intent(in) :: spack
25911 type(dia_type) , intent(in) :: subset
25912 type(transSymm_type) , intent(in) :: operation
25913 integer(IK) , intent(in) , optional :: doff
25914 real(RKG) , intent(in) :: source(:)
25915 real(RKG) , intent(inout) :: destin(:,:)
25916 end subroutine
25917#endif
25918
25919#if RK1_ENABLED
25920 PURE module subroutine setMatCopy_RDP_LFP_XXD_TSO_RK1(destin, dpack, source, spack, subset, operation, doff)
25921#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25922 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_TSO_RK1
25923#endif
25924 use pm_kind, only: RKG => RK1
25925 type(rdpack_type) , intent(in) :: dpack
25926 type(lfpack_type) , intent(in) :: spack
25927 type(dia_type) , intent(in) :: subset
25928 type(transSymm_type) , intent(in) :: operation
25929 integer(IK) , intent(in) , optional :: doff
25930 real(RKG) , intent(in) :: source(:)
25931 real(RKG) , intent(inout) :: destin(:,:)
25932 end subroutine
25933#endif
25934
25935 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
25936
25937 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
25938 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
25939 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
25940
25941 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
25942
25943#if SK5_ENABLED
25944 PURE module subroutine setMatCopy_RDP_LFP_XXD_THO_SK5(destin, dpack, source, spack, subset, operation, doff)
25945#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25946 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_THO_SK5
25947#endif
25948 use pm_kind, only: SKG => SK5
25949 type(rdpack_type) , intent(in) :: dpack
25950 type(lfpack_type) , intent(in) :: spack
25951 type(dia_type) , intent(in) :: subset
25952 type(transHerm_type) , intent(in) :: operation
25953 integer(IK) , intent(in) , optional :: doff
25954 character(*,SKG) , intent(in) :: source(:)
25955 character(*,SKG) , intent(inout) :: destin(:,:)
25956 end subroutine
25957#endif
25958
25959#if SK4_ENABLED
25960 PURE module subroutine setMatCopy_RDP_LFP_XXD_THO_SK4(destin, dpack, source, spack, subset, operation, doff)
25961#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25962 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_THO_SK4
25963#endif
25964 use pm_kind, only: SKG => SK4
25965 type(rdpack_type) , intent(in) :: dpack
25966 type(lfpack_type) , intent(in) :: spack
25967 type(dia_type) , intent(in) :: subset
25968 type(transHerm_type) , intent(in) :: operation
25969 integer(IK) , intent(in) , optional :: doff
25970 character(*,SKG) , intent(in) :: source(:)
25971 character(*,SKG) , intent(inout) :: destin(:,:)
25972 end subroutine
25973#endif
25974
25975#if SK3_ENABLED
25976 PURE module subroutine setMatCopy_RDP_LFP_XXD_THO_SK3(destin, dpack, source, spack, subset, operation, doff)
25977#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25978 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_THO_SK3
25979#endif
25980 use pm_kind, only: SKG => SK3
25981 type(rdpack_type) , intent(in) :: dpack
25982 type(lfpack_type) , intent(in) :: spack
25983 type(dia_type) , intent(in) :: subset
25984 type(transHerm_type) , intent(in) :: operation
25985 integer(IK) , intent(in) , optional :: doff
25986 character(*,SKG) , intent(in) :: source(:)
25987 character(*,SKG) , intent(inout) :: destin(:,:)
25988 end subroutine
25989#endif
25990
25991#if SK2_ENABLED
25992 PURE module subroutine setMatCopy_RDP_LFP_XXD_THO_SK2(destin, dpack, source, spack, subset, operation, doff)
25993#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
25994 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_THO_SK2
25995#endif
25996 use pm_kind, only: SKG => SK2
25997 type(rdpack_type) , intent(in) :: dpack
25998 type(lfpack_type) , intent(in) :: spack
25999 type(dia_type) , intent(in) :: subset
26000 type(transHerm_type) , intent(in) :: operation
26001 integer(IK) , intent(in) , optional :: doff
26002 character(*,SKG) , intent(in) :: source(:)
26003 character(*,SKG) , intent(inout) :: destin(:,:)
26004 end subroutine
26005#endif
26006
26007#if SK1_ENABLED
26008 PURE module subroutine setMatCopy_RDP_LFP_XXD_THO_SK1(destin, dpack, source, spack, subset, operation, doff)
26009#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26010 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_THO_SK1
26011#endif
26012 use pm_kind, only: SKG => SK1
26013 type(rdpack_type) , intent(in) :: dpack
26014 type(lfpack_type) , intent(in) :: spack
26015 type(dia_type) , intent(in) :: subset
26016 type(transHerm_type) , intent(in) :: operation
26017 integer(IK) , intent(in) , optional :: doff
26018 character(*,SKG) , intent(in) :: source(:)
26019 character(*,SKG) , intent(inout) :: destin(:,:)
26020 end subroutine
26021#endif
26022
26023 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26024
26025#if IK5_ENABLED
26026 PURE module subroutine setMatCopy_RDP_LFP_XXD_THO_IK5(destin, dpack, source, spack, subset, operation, doff)
26027#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26028 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_THO_IK5
26029#endif
26030 use pm_kind, only: IKG => IK5
26031 type(rdpack_type) , intent(in) :: dpack
26032 type(lfpack_type) , intent(in) :: spack
26033 type(dia_type) , intent(in) :: subset
26034 type(transHerm_type) , intent(in) :: operation
26035 integer(IK) , intent(in) , optional :: doff
26036 integer(IKG) , intent(in) :: source(:)
26037 integer(IKG) , intent(inout) :: destin(:,:)
26038 end subroutine
26039#endif
26040
26041#if IK4_ENABLED
26042 PURE module subroutine setMatCopy_RDP_LFP_XXD_THO_IK4(destin, dpack, source, spack, subset, operation, doff)
26043#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26044 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_THO_IK4
26045#endif
26046 use pm_kind, only: IKG => IK4
26047 type(rdpack_type) , intent(in) :: dpack
26048 type(lfpack_type) , intent(in) :: spack
26049 type(dia_type) , intent(in) :: subset
26050 type(transHerm_type) , intent(in) :: operation
26051 integer(IK) , intent(in) , optional :: doff
26052 integer(IKG) , intent(in) :: source(:)
26053 integer(IKG) , intent(inout) :: destin(:,:)
26054 end subroutine
26055#endif
26056
26057#if IK3_ENABLED
26058 PURE module subroutine setMatCopy_RDP_LFP_XXD_THO_IK3(destin, dpack, source, spack, subset, operation, doff)
26059#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26060 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_THO_IK3
26061#endif
26062 use pm_kind, only: IKG => IK3
26063 type(rdpack_type) , intent(in) :: dpack
26064 type(lfpack_type) , intent(in) :: spack
26065 type(dia_type) , intent(in) :: subset
26066 type(transHerm_type) , intent(in) :: operation
26067 integer(IK) , intent(in) , optional :: doff
26068 integer(IKG) , intent(in) :: source(:)
26069 integer(IKG) , intent(inout) :: destin(:,:)
26070 end subroutine
26071#endif
26072
26073#if IK2_ENABLED
26074 PURE module subroutine setMatCopy_RDP_LFP_XXD_THO_IK2(destin, dpack, source, spack, subset, operation, doff)
26075#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26076 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_THO_IK2
26077#endif
26078 use pm_kind, only: IKG => IK2
26079 type(rdpack_type) , intent(in) :: dpack
26080 type(lfpack_type) , intent(in) :: spack
26081 type(dia_type) , intent(in) :: subset
26082 type(transHerm_type) , intent(in) :: operation
26083 integer(IK) , intent(in) , optional :: doff
26084 integer(IKG) , intent(in) :: source(:)
26085 integer(IKG) , intent(inout) :: destin(:,:)
26086 end subroutine
26087#endif
26088
26089#if IK1_ENABLED
26090 PURE module subroutine setMatCopy_RDP_LFP_XXD_THO_IK1(destin, dpack, source, spack, subset, operation, doff)
26091#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26092 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_THO_IK1
26093#endif
26094 use pm_kind, only: IKG => IK1
26095 type(rdpack_type) , intent(in) :: dpack
26096 type(lfpack_type) , intent(in) :: spack
26097 type(dia_type) , intent(in) :: subset
26098 type(transHerm_type) , intent(in) :: operation
26099 integer(IK) , intent(in) , optional :: doff
26100 integer(IKG) , intent(in) :: source(:)
26101 integer(IKG) , intent(inout) :: destin(:,:)
26102 end subroutine
26103#endif
26104
26105 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26106
26107#if LK5_ENABLED
26108 PURE module subroutine setMatCopy_RDP_LFP_XXD_THO_LK5(destin, dpack, source, spack, subset, operation, doff)
26109#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26110 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_THO_LK5
26111#endif
26112 use pm_kind, only: LKG => LK5
26113 type(rdpack_type) , intent(in) :: dpack
26114 type(lfpack_type) , intent(in) :: spack
26115 type(dia_type) , intent(in) :: subset
26116 type(transHerm_type) , intent(in) :: operation
26117 integer(IK) , intent(in) , optional :: doff
26118 logical(LKG) , intent(in) :: source(:)
26119 logical(LKG) , intent(inout) :: destin(:,:)
26120 end subroutine
26121#endif
26122
26123#if LK4_ENABLED
26124 PURE module subroutine setMatCopy_RDP_LFP_XXD_THO_LK4(destin, dpack, source, spack, subset, operation, doff)
26125#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26126 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_THO_LK4
26127#endif
26128 use pm_kind, only: LKG => LK4
26129 type(rdpack_type) , intent(in) :: dpack
26130 type(lfpack_type) , intent(in) :: spack
26131 type(dia_type) , intent(in) :: subset
26132 type(transHerm_type) , intent(in) :: operation
26133 integer(IK) , intent(in) , optional :: doff
26134 logical(LKG) , intent(in) :: source(:)
26135 logical(LKG) , intent(inout) :: destin(:,:)
26136 end subroutine
26137#endif
26138
26139#if LK3_ENABLED
26140 PURE module subroutine setMatCopy_RDP_LFP_XXD_THO_LK3(destin, dpack, source, spack, subset, operation, doff)
26141#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26142 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_THO_LK3
26143#endif
26144 use pm_kind, only: LKG => LK3
26145 type(rdpack_type) , intent(in) :: dpack
26146 type(lfpack_type) , intent(in) :: spack
26147 type(dia_type) , intent(in) :: subset
26148 type(transHerm_type) , intent(in) :: operation
26149 integer(IK) , intent(in) , optional :: doff
26150 logical(LKG) , intent(in) :: source(:)
26151 logical(LKG) , intent(inout) :: destin(:,:)
26152 end subroutine
26153#endif
26154
26155#if LK2_ENABLED
26156 PURE module subroutine setMatCopy_RDP_LFP_XXD_THO_LK2(destin, dpack, source, spack, subset, operation, doff)
26157#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26158 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_THO_LK2
26159#endif
26160 use pm_kind, only: LKG => LK2
26161 type(rdpack_type) , intent(in) :: dpack
26162 type(lfpack_type) , intent(in) :: spack
26163 type(dia_type) , intent(in) :: subset
26164 type(transHerm_type) , intent(in) :: operation
26165 integer(IK) , intent(in) , optional :: doff
26166 logical(LKG) , intent(in) :: source(:)
26167 logical(LKG) , intent(inout) :: destin(:,:)
26168 end subroutine
26169#endif
26170
26171#if LK1_ENABLED
26172 PURE module subroutine setMatCopy_RDP_LFP_XXD_THO_LK1(destin, dpack, source, spack, subset, operation, doff)
26173#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26174 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_THO_LK1
26175#endif
26176 use pm_kind, only: LKG => LK1
26177 type(rdpack_type) , intent(in) :: dpack
26178 type(lfpack_type) , intent(in) :: spack
26179 type(dia_type) , intent(in) :: subset
26180 type(transHerm_type) , intent(in) :: operation
26181 integer(IK) , intent(in) , optional :: doff
26182 logical(LKG) , intent(in) :: source(:)
26183 logical(LKG) , intent(inout) :: destin(:,:)
26184 end subroutine
26185#endif
26186
26187 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26188
26189#if CK5_ENABLED
26190 PURE module subroutine setMatCopy_RDP_LFP_XXD_THO_CK5(destin, dpack, source, spack, subset, operation, doff)
26191#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26192 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_THO_CK5
26193#endif
26194 use pm_kind, only: CKG => CK5
26195 type(rdpack_type) , intent(in) :: dpack
26196 type(lfpack_type) , intent(in) :: spack
26197 type(dia_type) , intent(in) :: subset
26198 type(transHerm_type) , intent(in) :: operation
26199 integer(IK) , intent(in) , optional :: doff
26200 complex(CKG) , intent(in) :: source(:)
26201 complex(CKG) , intent(inout) :: destin(:,:)
26202 end subroutine
26203#endif
26204
26205#if CK4_ENABLED
26206 PURE module subroutine setMatCopy_RDP_LFP_XXD_THO_CK4(destin, dpack, source, spack, subset, operation, doff)
26207#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26208 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_THO_CK4
26209#endif
26210 use pm_kind, only: CKG => CK4
26211 type(rdpack_type) , intent(in) :: dpack
26212 type(lfpack_type) , intent(in) :: spack
26213 type(dia_type) , intent(in) :: subset
26214 type(transHerm_type) , intent(in) :: operation
26215 integer(IK) , intent(in) , optional :: doff
26216 complex(CKG) , intent(in) :: source(:)
26217 complex(CKG) , intent(inout) :: destin(:,:)
26218 end subroutine
26219#endif
26220
26221#if CK3_ENABLED
26222 PURE module subroutine setMatCopy_RDP_LFP_XXD_THO_CK3(destin, dpack, source, spack, subset, operation, doff)
26223#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26224 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_THO_CK3
26225#endif
26226 use pm_kind, only: CKG => CK3
26227 type(rdpack_type) , intent(in) :: dpack
26228 type(lfpack_type) , intent(in) :: spack
26229 type(dia_type) , intent(in) :: subset
26230 type(transHerm_type) , intent(in) :: operation
26231 integer(IK) , intent(in) , optional :: doff
26232 complex(CKG) , intent(in) :: source(:)
26233 complex(CKG) , intent(inout) :: destin(:,:)
26234 end subroutine
26235#endif
26236
26237#if CK2_ENABLED
26238 PURE module subroutine setMatCopy_RDP_LFP_XXD_THO_CK2(destin, dpack, source, spack, subset, operation, doff)
26239#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26240 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_THO_CK2
26241#endif
26242 use pm_kind, only: CKG => CK2
26243 type(rdpack_type) , intent(in) :: dpack
26244 type(lfpack_type) , intent(in) :: spack
26245 type(dia_type) , intent(in) :: subset
26246 type(transHerm_type) , intent(in) :: operation
26247 integer(IK) , intent(in) , optional :: doff
26248 complex(CKG) , intent(in) :: source(:)
26249 complex(CKG) , intent(inout) :: destin(:,:)
26250 end subroutine
26251#endif
26252
26253#if CK1_ENABLED
26254 PURE module subroutine setMatCopy_RDP_LFP_XXD_THO_CK1(destin, dpack, source, spack, subset, operation, doff)
26255#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26256 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_THO_CK1
26257#endif
26258 use pm_kind, only: CKG => CK1
26259 type(rdpack_type) , intent(in) :: dpack
26260 type(lfpack_type) , intent(in) :: spack
26261 type(dia_type) , intent(in) :: subset
26262 type(transHerm_type) , intent(in) :: operation
26263 integer(IK) , intent(in) , optional :: doff
26264 complex(CKG) , intent(in) :: source(:)
26265 complex(CKG) , intent(inout) :: destin(:,:)
26266 end subroutine
26267#endif
26268
26269 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26270
26271#if RK5_ENABLED
26272 PURE module subroutine setMatCopy_RDP_LFP_XXD_THO_RK5(destin, dpack, source, spack, subset, operation, doff)
26273#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26274 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_THO_RK5
26275#endif
26276 use pm_kind, only: RKG => RK5
26277 type(rdpack_type) , intent(in) :: dpack
26278 type(lfpack_type) , intent(in) :: spack
26279 type(dia_type) , intent(in) :: subset
26280 type(transHerm_type) , intent(in) :: operation
26281 integer(IK) , intent(in) , optional :: doff
26282 real(RKG) , intent(in) :: source(:)
26283 real(RKG) , intent(inout) :: destin(:,:)
26284 end subroutine
26285#endif
26286
26287#if RK4_ENABLED
26288 PURE module subroutine setMatCopy_RDP_LFP_XXD_THO_RK4(destin, dpack, source, spack, subset, operation, doff)
26289#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26290 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_THO_RK4
26291#endif
26292 use pm_kind, only: RKG => RK4
26293 type(rdpack_type) , intent(in) :: dpack
26294 type(lfpack_type) , intent(in) :: spack
26295 type(dia_type) , intent(in) :: subset
26296 type(transHerm_type) , intent(in) :: operation
26297 integer(IK) , intent(in) , optional :: doff
26298 real(RKG) , intent(in) :: source(:)
26299 real(RKG) , intent(inout) :: destin(:,:)
26300 end subroutine
26301#endif
26302
26303#if RK3_ENABLED
26304 PURE module subroutine setMatCopy_RDP_LFP_XXD_THO_RK3(destin, dpack, source, spack, subset, operation, doff)
26305#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26306 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_THO_RK3
26307#endif
26308 use pm_kind, only: RKG => RK3
26309 type(rdpack_type) , intent(in) :: dpack
26310 type(lfpack_type) , intent(in) :: spack
26311 type(dia_type) , intent(in) :: subset
26312 type(transHerm_type) , intent(in) :: operation
26313 integer(IK) , intent(in) , optional :: doff
26314 real(RKG) , intent(in) :: source(:)
26315 real(RKG) , intent(inout) :: destin(:,:)
26316 end subroutine
26317#endif
26318
26319#if RK2_ENABLED
26320 PURE module subroutine setMatCopy_RDP_LFP_XXD_THO_RK2(destin, dpack, source, spack, subset, operation, doff)
26321#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26322 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_THO_RK2
26323#endif
26324 use pm_kind, only: RKG => RK2
26325 type(rdpack_type) , intent(in) :: dpack
26326 type(lfpack_type) , intent(in) :: spack
26327 type(dia_type) , intent(in) :: subset
26328 type(transHerm_type) , intent(in) :: operation
26329 integer(IK) , intent(in) , optional :: doff
26330 real(RKG) , intent(in) :: source(:)
26331 real(RKG) , intent(inout) :: destin(:,:)
26332 end subroutine
26333#endif
26334
26335#if RK1_ENABLED
26336 PURE module subroutine setMatCopy_RDP_LFP_XXD_THO_RK1(destin, dpack, source, spack, subset, operation, doff)
26337#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26338 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XXD_THO_RK1
26339#endif
26340 use pm_kind, only: RKG => RK1
26341 type(rdpack_type) , intent(in) :: dpack
26342 type(lfpack_type) , intent(in) :: spack
26343 type(dia_type) , intent(in) :: subset
26344 type(transHerm_type) , intent(in) :: operation
26345 integer(IK) , intent(in) , optional :: doff
26346 real(RKG) , intent(in) :: source(:)
26347 real(RKG) , intent(inout) :: destin(:,:)
26348 end subroutine
26349#endif
26350
26351 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26352
26353 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26354 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26355 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26356
26357 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26358 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26359 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26360
26361 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26362
26363#if SK5_ENABLED
26364 PURE module subroutine setMatCopy_RDP_LFP_UXD_AIO_SK5(destin, dpack, source, spack, subset, doff)
26365#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26366 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_AIO_SK5
26367#endif
26368 use pm_kind, only: SKG => SK5
26369 type(rdpack_type) , intent(in) :: dpack
26370 type(lfpack_type) , intent(in) :: spack
26371 type(uppDia_type) , intent(in) :: subset
26372 integer(IK) , intent(in) , optional :: doff
26373 character(*,SKG) , intent(in) :: source(:)
26374 character(*,SKG) , intent(inout) :: destin(:,:)
26375 end subroutine
26376#endif
26377
26378#if SK4_ENABLED
26379 PURE module subroutine setMatCopy_RDP_LFP_UXD_AIO_SK4(destin, dpack, source, spack, subset, doff)
26380#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26381 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_AIO_SK4
26382#endif
26383 use pm_kind, only: SKG => SK4
26384 type(rdpack_type) , intent(in) :: dpack
26385 type(lfpack_type) , intent(in) :: spack
26386 type(uppDia_type) , intent(in) :: subset
26387 integer(IK) , intent(in) , optional :: doff
26388 character(*,SKG) , intent(in) :: source(:)
26389 character(*,SKG) , intent(inout) :: destin(:,:)
26390 end subroutine
26391#endif
26392
26393#if SK3_ENABLED
26394 PURE module subroutine setMatCopy_RDP_LFP_UXD_AIO_SK3(destin, dpack, source, spack, subset, doff)
26395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26396 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_AIO_SK3
26397#endif
26398 use pm_kind, only: SKG => SK3
26399 type(rdpack_type) , intent(in) :: dpack
26400 type(lfpack_type) , intent(in) :: spack
26401 type(uppDia_type) , intent(in) :: subset
26402 integer(IK) , intent(in) , optional :: doff
26403 character(*,SKG) , intent(in) :: source(:)
26404 character(*,SKG) , intent(inout) :: destin(:,:)
26405 end subroutine
26406#endif
26407
26408#if SK2_ENABLED
26409 PURE module subroutine setMatCopy_RDP_LFP_UXD_AIO_SK2(destin, dpack, source, spack, subset, doff)
26410#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26411 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_AIO_SK2
26412#endif
26413 use pm_kind, only: SKG => SK2
26414 type(rdpack_type) , intent(in) :: dpack
26415 type(lfpack_type) , intent(in) :: spack
26416 type(uppDia_type) , intent(in) :: subset
26417 integer(IK) , intent(in) , optional :: doff
26418 character(*,SKG) , intent(in) :: source(:)
26419 character(*,SKG) , intent(inout) :: destin(:,:)
26420 end subroutine
26421#endif
26422
26423#if SK1_ENABLED
26424 PURE module subroutine setMatCopy_RDP_LFP_UXD_AIO_SK1(destin, dpack, source, spack, subset, doff)
26425#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26426 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_AIO_SK1
26427#endif
26428 use pm_kind, only: SKG => SK1
26429 type(rdpack_type) , intent(in) :: dpack
26430 type(lfpack_type) , intent(in) :: spack
26431 type(uppDia_type) , intent(in) :: subset
26432 integer(IK) , intent(in) , optional :: doff
26433 character(*,SKG) , intent(in) :: source(:)
26434 character(*,SKG) , intent(inout) :: destin(:,:)
26435 end subroutine
26436#endif
26437
26438 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26439
26440#if IK5_ENABLED
26441 PURE module subroutine setMatCopy_RDP_LFP_UXD_AIO_IK5(destin, dpack, source, spack, subset, doff)
26442#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26443 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_AIO_IK5
26444#endif
26445 use pm_kind, only: IKG => IK5
26446 type(rdpack_type) , intent(in) :: dpack
26447 type(lfpack_type) , intent(in) :: spack
26448 type(uppDia_type) , intent(in) :: subset
26449 integer(IK) , intent(in) , optional :: doff
26450 integer(IKG) , intent(in) :: source(:)
26451 integer(IKG) , intent(inout) :: destin(:,:)
26452 end subroutine
26453#endif
26454
26455#if IK4_ENABLED
26456 PURE module subroutine setMatCopy_RDP_LFP_UXD_AIO_IK4(destin, dpack, source, spack, subset, doff)
26457#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26458 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_AIO_IK4
26459#endif
26460 use pm_kind, only: IKG => IK4
26461 type(rdpack_type) , intent(in) :: dpack
26462 type(lfpack_type) , intent(in) :: spack
26463 type(uppDia_type) , intent(in) :: subset
26464 integer(IK) , intent(in) , optional :: doff
26465 integer(IKG) , intent(in) :: source(:)
26466 integer(IKG) , intent(inout) :: destin(:,:)
26467 end subroutine
26468#endif
26469
26470#if IK3_ENABLED
26471 PURE module subroutine setMatCopy_RDP_LFP_UXD_AIO_IK3(destin, dpack, source, spack, subset, doff)
26472#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26473 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_AIO_IK3
26474#endif
26475 use pm_kind, only: IKG => IK3
26476 type(rdpack_type) , intent(in) :: dpack
26477 type(lfpack_type) , intent(in) :: spack
26478 type(uppDia_type) , intent(in) :: subset
26479 integer(IK) , intent(in) , optional :: doff
26480 integer(IKG) , intent(in) :: source(:)
26481 integer(IKG) , intent(inout) :: destin(:,:)
26482 end subroutine
26483#endif
26484
26485#if IK2_ENABLED
26486 PURE module subroutine setMatCopy_RDP_LFP_UXD_AIO_IK2(destin, dpack, source, spack, subset, doff)
26487#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26488 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_AIO_IK2
26489#endif
26490 use pm_kind, only: IKG => IK2
26491 type(rdpack_type) , intent(in) :: dpack
26492 type(lfpack_type) , intent(in) :: spack
26493 type(uppDia_type) , intent(in) :: subset
26494 integer(IK) , intent(in) , optional :: doff
26495 integer(IKG) , intent(in) :: source(:)
26496 integer(IKG) , intent(inout) :: destin(:,:)
26497 end subroutine
26498#endif
26499
26500#if IK1_ENABLED
26501 PURE module subroutine setMatCopy_RDP_LFP_UXD_AIO_IK1(destin, dpack, source, spack, subset, doff)
26502#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26503 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_AIO_IK1
26504#endif
26505 use pm_kind, only: IKG => IK1
26506 type(rdpack_type) , intent(in) :: dpack
26507 type(lfpack_type) , intent(in) :: spack
26508 type(uppDia_type) , intent(in) :: subset
26509 integer(IK) , intent(in) , optional :: doff
26510 integer(IKG) , intent(in) :: source(:)
26511 integer(IKG) , intent(inout) :: destin(:,:)
26512 end subroutine
26513#endif
26514
26515 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26516
26517#if LK5_ENABLED
26518 PURE module subroutine setMatCopy_RDP_LFP_UXD_AIO_LK5(destin, dpack, source, spack, subset, doff)
26519#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26520 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_AIO_LK5
26521#endif
26522 use pm_kind, only: LKG => LK5
26523 type(rdpack_type) , intent(in) :: dpack
26524 type(lfpack_type) , intent(in) :: spack
26525 type(uppDia_type) , intent(in) :: subset
26526 integer(IK) , intent(in) , optional :: doff
26527 logical(LKG) , intent(in) :: source(:)
26528 logical(LKG) , intent(inout) :: destin(:,:)
26529 end subroutine
26530#endif
26531
26532#if LK4_ENABLED
26533 PURE module subroutine setMatCopy_RDP_LFP_UXD_AIO_LK4(destin, dpack, source, spack, subset, doff)
26534#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26535 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_AIO_LK4
26536#endif
26537 use pm_kind, only: LKG => LK4
26538 type(rdpack_type) , intent(in) :: dpack
26539 type(lfpack_type) , intent(in) :: spack
26540 type(uppDia_type) , intent(in) :: subset
26541 integer(IK) , intent(in) , optional :: doff
26542 logical(LKG) , intent(in) :: source(:)
26543 logical(LKG) , intent(inout) :: destin(:,:)
26544 end subroutine
26545#endif
26546
26547#if LK3_ENABLED
26548 PURE module subroutine setMatCopy_RDP_LFP_UXD_AIO_LK3(destin, dpack, source, spack, subset, doff)
26549#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26550 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_AIO_LK3
26551#endif
26552 use pm_kind, only: LKG => LK3
26553 type(rdpack_type) , intent(in) :: dpack
26554 type(lfpack_type) , intent(in) :: spack
26555 type(uppDia_type) , intent(in) :: subset
26556 integer(IK) , intent(in) , optional :: doff
26557 logical(LKG) , intent(in) :: source(:)
26558 logical(LKG) , intent(inout) :: destin(:,:)
26559 end subroutine
26560#endif
26561
26562#if LK2_ENABLED
26563 PURE module subroutine setMatCopy_RDP_LFP_UXD_AIO_LK2(destin, dpack, source, spack, subset, doff)
26564#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26565 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_AIO_LK2
26566#endif
26567 use pm_kind, only: LKG => LK2
26568 type(rdpack_type) , intent(in) :: dpack
26569 type(lfpack_type) , intent(in) :: spack
26570 type(uppDia_type) , intent(in) :: subset
26571 integer(IK) , intent(in) , optional :: doff
26572 logical(LKG) , intent(in) :: source(:)
26573 logical(LKG) , intent(inout) :: destin(:,:)
26574 end subroutine
26575#endif
26576
26577#if LK1_ENABLED
26578 PURE module subroutine setMatCopy_RDP_LFP_UXD_AIO_LK1(destin, dpack, source, spack, subset, doff)
26579#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26580 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_AIO_LK1
26581#endif
26582 use pm_kind, only: LKG => LK1
26583 type(rdpack_type) , intent(in) :: dpack
26584 type(lfpack_type) , intent(in) :: spack
26585 type(uppDia_type) , intent(in) :: subset
26586 integer(IK) , intent(in) , optional :: doff
26587 logical(LKG) , intent(in) :: source(:)
26588 logical(LKG) , intent(inout) :: destin(:,:)
26589 end subroutine
26590#endif
26591
26592 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26593
26594#if CK5_ENABLED
26595 PURE module subroutine setMatCopy_RDP_LFP_UXD_AIO_CK5(destin, dpack, source, spack, subset, doff)
26596#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26597 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_AIO_CK5
26598#endif
26599 use pm_kind, only: CKG => CK5
26600 type(rdpack_type) , intent(in) :: dpack
26601 type(lfpack_type) , intent(in) :: spack
26602 type(uppDia_type) , intent(in) :: subset
26603 integer(IK) , intent(in) , optional :: doff
26604 complex(CKG) , intent(in) :: source(:)
26605 complex(CKG) , intent(inout) :: destin(:,:)
26606 end subroutine
26607#endif
26608
26609#if CK4_ENABLED
26610 PURE module subroutine setMatCopy_RDP_LFP_UXD_AIO_CK4(destin, dpack, source, spack, subset, doff)
26611#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26612 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_AIO_CK4
26613#endif
26614 use pm_kind, only: CKG => CK4
26615 type(rdpack_type) , intent(in) :: dpack
26616 type(lfpack_type) , intent(in) :: spack
26617 type(uppDia_type) , intent(in) :: subset
26618 integer(IK) , intent(in) , optional :: doff
26619 complex(CKG) , intent(in) :: source(:)
26620 complex(CKG) , intent(inout) :: destin(:,:)
26621 end subroutine
26622#endif
26623
26624#if CK3_ENABLED
26625 PURE module subroutine setMatCopy_RDP_LFP_UXD_AIO_CK3(destin, dpack, source, spack, subset, doff)
26626#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26627 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_AIO_CK3
26628#endif
26629 use pm_kind, only: CKG => CK3
26630 type(rdpack_type) , intent(in) :: dpack
26631 type(lfpack_type) , intent(in) :: spack
26632 type(uppDia_type) , intent(in) :: subset
26633 integer(IK) , intent(in) , optional :: doff
26634 complex(CKG) , intent(in) :: source(:)
26635 complex(CKG) , intent(inout) :: destin(:,:)
26636 end subroutine
26637#endif
26638
26639#if CK2_ENABLED
26640 PURE module subroutine setMatCopy_RDP_LFP_UXD_AIO_CK2(destin, dpack, source, spack, subset, doff)
26641#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26642 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_AIO_CK2
26643#endif
26644 use pm_kind, only: CKG => CK2
26645 type(rdpack_type) , intent(in) :: dpack
26646 type(lfpack_type) , intent(in) :: spack
26647 type(uppDia_type) , intent(in) :: subset
26648 integer(IK) , intent(in) , optional :: doff
26649 complex(CKG) , intent(in) :: source(:)
26650 complex(CKG) , intent(inout) :: destin(:,:)
26651 end subroutine
26652#endif
26653
26654#if CK1_ENABLED
26655 PURE module subroutine setMatCopy_RDP_LFP_UXD_AIO_CK1(destin, dpack, source, spack, subset, doff)
26656#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26657 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_AIO_CK1
26658#endif
26659 use pm_kind, only: CKG => CK1
26660 type(rdpack_type) , intent(in) :: dpack
26661 type(lfpack_type) , intent(in) :: spack
26662 type(uppDia_type) , intent(in) :: subset
26663 integer(IK) , intent(in) , optional :: doff
26664 complex(CKG) , intent(in) :: source(:)
26665 complex(CKG) , intent(inout) :: destin(:,:)
26666 end subroutine
26667#endif
26668
26669 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26670
26671#if RK5_ENABLED
26672 PURE module subroutine setMatCopy_RDP_LFP_UXD_AIO_RK5(destin, dpack, source, spack, subset, doff)
26673#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26674 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_AIO_RK5
26675#endif
26676 use pm_kind, only: RKG => RK5
26677 type(rdpack_type) , intent(in) :: dpack
26678 type(lfpack_type) , intent(in) :: spack
26679 type(uppDia_type) , intent(in) :: subset
26680 integer(IK) , intent(in) , optional :: doff
26681 real(RKG) , intent(in) :: source(:)
26682 real(RKG) , intent(inout) :: destin(:,:)
26683 end subroutine
26684#endif
26685
26686#if RK4_ENABLED
26687 PURE module subroutine setMatCopy_RDP_LFP_UXD_AIO_RK4(destin, dpack, source, spack, subset, doff)
26688#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26689 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_AIO_RK4
26690#endif
26691 use pm_kind, only: RKG => RK4
26692 type(rdpack_type) , intent(in) :: dpack
26693 type(lfpack_type) , intent(in) :: spack
26694 type(uppDia_type) , intent(in) :: subset
26695 integer(IK) , intent(in) , optional :: doff
26696 real(RKG) , intent(in) :: source(:)
26697 real(RKG) , intent(inout) :: destin(:,:)
26698 end subroutine
26699#endif
26700
26701#if RK3_ENABLED
26702 PURE module subroutine setMatCopy_RDP_LFP_UXD_AIO_RK3(destin, dpack, source, spack, subset, doff)
26703#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26704 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_AIO_RK3
26705#endif
26706 use pm_kind, only: RKG => RK3
26707 type(rdpack_type) , intent(in) :: dpack
26708 type(lfpack_type) , intent(in) :: spack
26709 type(uppDia_type) , intent(in) :: subset
26710 integer(IK) , intent(in) , optional :: doff
26711 real(RKG) , intent(in) :: source(:)
26712 real(RKG) , intent(inout) :: destin(:,:)
26713 end subroutine
26714#endif
26715
26716#if RK2_ENABLED
26717 PURE module subroutine setMatCopy_RDP_LFP_UXD_AIO_RK2(destin, dpack, source, spack, subset, doff)
26718#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26719 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_AIO_RK2
26720#endif
26721 use pm_kind, only: RKG => RK2
26722 type(rdpack_type) , intent(in) :: dpack
26723 type(lfpack_type) , intent(in) :: spack
26724 type(uppDia_type) , intent(in) :: subset
26725 integer(IK) , intent(in) , optional :: doff
26726 real(RKG) , intent(in) :: source(:)
26727 real(RKG) , intent(inout) :: destin(:,:)
26728 end subroutine
26729#endif
26730
26731#if RK1_ENABLED
26732 PURE module subroutine setMatCopy_RDP_LFP_UXD_AIO_RK1(destin, dpack, source, spack, subset, doff)
26733#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26734 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_AIO_RK1
26735#endif
26736 use pm_kind, only: RKG => RK1
26737 type(rdpack_type) , intent(in) :: dpack
26738 type(lfpack_type) , intent(in) :: spack
26739 type(uppDia_type) , intent(in) :: subset
26740 integer(IK) , intent(in) , optional :: doff
26741 real(RKG) , intent(in) :: source(:)
26742 real(RKG) , intent(inout) :: destin(:,:)
26743 end subroutine
26744#endif
26745
26746 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26747
26748 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26749 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26750 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26751
26752 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26753
26754#if SK5_ENABLED
26755 PURE module subroutine setMatCopy_RDP_LFP_UXD_TSO_SK5(destin, dpack, source, spack, subset, operation, doff)
26756#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26757 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_TSO_SK5
26758#endif
26759 use pm_kind, only: SKG => SK5
26760 type(rdpack_type) , intent(in) :: dpack
26761 type(lfpack_type) , intent(in) :: spack
26762 type(uppDia_type) , intent(in) :: subset
26763 type(transSymm_type) , intent(in) :: operation
26764 integer(IK) , intent(in) , optional :: doff
26765 character(*,SKG) , intent(in) :: source(:)
26766 character(*,SKG) , intent(inout) :: destin(:,:)
26767 end subroutine
26768#endif
26769
26770#if SK4_ENABLED
26771 PURE module subroutine setMatCopy_RDP_LFP_UXD_TSO_SK4(destin, dpack, source, spack, subset, operation, doff)
26772#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26773 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_TSO_SK4
26774#endif
26775 use pm_kind, only: SKG => SK4
26776 type(rdpack_type) , intent(in) :: dpack
26777 type(lfpack_type) , intent(in) :: spack
26778 type(uppDia_type) , intent(in) :: subset
26779 type(transSymm_type) , intent(in) :: operation
26780 integer(IK) , intent(in) , optional :: doff
26781 character(*,SKG) , intent(in) :: source(:)
26782 character(*,SKG) , intent(inout) :: destin(:,:)
26783 end subroutine
26784#endif
26785
26786#if SK3_ENABLED
26787 PURE module subroutine setMatCopy_RDP_LFP_UXD_TSO_SK3(destin, dpack, source, spack, subset, operation, doff)
26788#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26789 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_TSO_SK3
26790#endif
26791 use pm_kind, only: SKG => SK3
26792 type(rdpack_type) , intent(in) :: dpack
26793 type(lfpack_type) , intent(in) :: spack
26794 type(uppDia_type) , intent(in) :: subset
26795 type(transSymm_type) , intent(in) :: operation
26796 integer(IK) , intent(in) , optional :: doff
26797 character(*,SKG) , intent(in) :: source(:)
26798 character(*,SKG) , intent(inout) :: destin(:,:)
26799 end subroutine
26800#endif
26801
26802#if SK2_ENABLED
26803 PURE module subroutine setMatCopy_RDP_LFP_UXD_TSO_SK2(destin, dpack, source, spack, subset, operation, doff)
26804#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26805 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_TSO_SK2
26806#endif
26807 use pm_kind, only: SKG => SK2
26808 type(rdpack_type) , intent(in) :: dpack
26809 type(lfpack_type) , intent(in) :: spack
26810 type(uppDia_type) , intent(in) :: subset
26811 type(transSymm_type) , intent(in) :: operation
26812 integer(IK) , intent(in) , optional :: doff
26813 character(*,SKG) , intent(in) :: source(:)
26814 character(*,SKG) , intent(inout) :: destin(:,:)
26815 end subroutine
26816#endif
26817
26818#if SK1_ENABLED
26819 PURE module subroutine setMatCopy_RDP_LFP_UXD_TSO_SK1(destin, dpack, source, spack, subset, operation, doff)
26820#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26821 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_TSO_SK1
26822#endif
26823 use pm_kind, only: SKG => SK1
26824 type(rdpack_type) , intent(in) :: dpack
26825 type(lfpack_type) , intent(in) :: spack
26826 type(uppDia_type) , intent(in) :: subset
26827 type(transSymm_type) , intent(in) :: operation
26828 integer(IK) , intent(in) , optional :: doff
26829 character(*,SKG) , intent(in) :: source(:)
26830 character(*,SKG) , intent(inout) :: destin(:,:)
26831 end subroutine
26832#endif
26833
26834 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26835
26836#if IK5_ENABLED
26837 PURE module subroutine setMatCopy_RDP_LFP_UXD_TSO_IK5(destin, dpack, source, spack, subset, operation, doff)
26838#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26839 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_TSO_IK5
26840#endif
26841 use pm_kind, only: IKG => IK5
26842 type(rdpack_type) , intent(in) :: dpack
26843 type(lfpack_type) , intent(in) :: spack
26844 type(uppDia_type) , intent(in) :: subset
26845 type(transSymm_type) , intent(in) :: operation
26846 integer(IK) , intent(in) , optional :: doff
26847 integer(IKG) , intent(in) :: source(:)
26848 integer(IKG) , intent(inout) :: destin(:,:)
26849 end subroutine
26850#endif
26851
26852#if IK4_ENABLED
26853 PURE module subroutine setMatCopy_RDP_LFP_UXD_TSO_IK4(destin, dpack, source, spack, subset, operation, doff)
26854#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26855 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_TSO_IK4
26856#endif
26857 use pm_kind, only: IKG => IK4
26858 type(rdpack_type) , intent(in) :: dpack
26859 type(lfpack_type) , intent(in) :: spack
26860 type(uppDia_type) , intent(in) :: subset
26861 type(transSymm_type) , intent(in) :: operation
26862 integer(IK) , intent(in) , optional :: doff
26863 integer(IKG) , intent(in) :: source(:)
26864 integer(IKG) , intent(inout) :: destin(:,:)
26865 end subroutine
26866#endif
26867
26868#if IK3_ENABLED
26869 PURE module subroutine setMatCopy_RDP_LFP_UXD_TSO_IK3(destin, dpack, source, spack, subset, operation, doff)
26870#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26871 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_TSO_IK3
26872#endif
26873 use pm_kind, only: IKG => IK3
26874 type(rdpack_type) , intent(in) :: dpack
26875 type(lfpack_type) , intent(in) :: spack
26876 type(uppDia_type) , intent(in) :: subset
26877 type(transSymm_type) , intent(in) :: operation
26878 integer(IK) , intent(in) , optional :: doff
26879 integer(IKG) , intent(in) :: source(:)
26880 integer(IKG) , intent(inout) :: destin(:,:)
26881 end subroutine
26882#endif
26883
26884#if IK2_ENABLED
26885 PURE module subroutine setMatCopy_RDP_LFP_UXD_TSO_IK2(destin, dpack, source, spack, subset, operation, doff)
26886#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26887 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_TSO_IK2
26888#endif
26889 use pm_kind, only: IKG => IK2
26890 type(rdpack_type) , intent(in) :: dpack
26891 type(lfpack_type) , intent(in) :: spack
26892 type(uppDia_type) , intent(in) :: subset
26893 type(transSymm_type) , intent(in) :: operation
26894 integer(IK) , intent(in) , optional :: doff
26895 integer(IKG) , intent(in) :: source(:)
26896 integer(IKG) , intent(inout) :: destin(:,:)
26897 end subroutine
26898#endif
26899
26900#if IK1_ENABLED
26901 PURE module subroutine setMatCopy_RDP_LFP_UXD_TSO_IK1(destin, dpack, source, spack, subset, operation, doff)
26902#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26903 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_TSO_IK1
26904#endif
26905 use pm_kind, only: IKG => IK1
26906 type(rdpack_type) , intent(in) :: dpack
26907 type(lfpack_type) , intent(in) :: spack
26908 type(uppDia_type) , intent(in) :: subset
26909 type(transSymm_type) , intent(in) :: operation
26910 integer(IK) , intent(in) , optional :: doff
26911 integer(IKG) , intent(in) :: source(:)
26912 integer(IKG) , intent(inout) :: destin(:,:)
26913 end subroutine
26914#endif
26915
26916 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26917
26918#if LK5_ENABLED
26919 PURE module subroutine setMatCopy_RDP_LFP_UXD_TSO_LK5(destin, dpack, source, spack, subset, operation, doff)
26920#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26921 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_TSO_LK5
26922#endif
26923 use pm_kind, only: LKG => LK5
26924 type(rdpack_type) , intent(in) :: dpack
26925 type(lfpack_type) , intent(in) :: spack
26926 type(uppDia_type) , intent(in) :: subset
26927 type(transSymm_type) , intent(in) :: operation
26928 integer(IK) , intent(in) , optional :: doff
26929 logical(LKG) , intent(in) :: source(:)
26930 logical(LKG) , intent(inout) :: destin(:,:)
26931 end subroutine
26932#endif
26933
26934#if LK4_ENABLED
26935 PURE module subroutine setMatCopy_RDP_LFP_UXD_TSO_LK4(destin, dpack, source, spack, subset, operation, doff)
26936#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26937 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_TSO_LK4
26938#endif
26939 use pm_kind, only: LKG => LK4
26940 type(rdpack_type) , intent(in) :: dpack
26941 type(lfpack_type) , intent(in) :: spack
26942 type(uppDia_type) , intent(in) :: subset
26943 type(transSymm_type) , intent(in) :: operation
26944 integer(IK) , intent(in) , optional :: doff
26945 logical(LKG) , intent(in) :: source(:)
26946 logical(LKG) , intent(inout) :: destin(:,:)
26947 end subroutine
26948#endif
26949
26950#if LK3_ENABLED
26951 PURE module subroutine setMatCopy_RDP_LFP_UXD_TSO_LK3(destin, dpack, source, spack, subset, operation, doff)
26952#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26953 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_TSO_LK3
26954#endif
26955 use pm_kind, only: LKG => LK3
26956 type(rdpack_type) , intent(in) :: dpack
26957 type(lfpack_type) , intent(in) :: spack
26958 type(uppDia_type) , intent(in) :: subset
26959 type(transSymm_type) , intent(in) :: operation
26960 integer(IK) , intent(in) , optional :: doff
26961 logical(LKG) , intent(in) :: source(:)
26962 logical(LKG) , intent(inout) :: destin(:,:)
26963 end subroutine
26964#endif
26965
26966#if LK2_ENABLED
26967 PURE module subroutine setMatCopy_RDP_LFP_UXD_TSO_LK2(destin, dpack, source, spack, subset, operation, doff)
26968#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26969 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_TSO_LK2
26970#endif
26971 use pm_kind, only: LKG => LK2
26972 type(rdpack_type) , intent(in) :: dpack
26973 type(lfpack_type) , intent(in) :: spack
26974 type(uppDia_type) , intent(in) :: subset
26975 type(transSymm_type) , intent(in) :: operation
26976 integer(IK) , intent(in) , optional :: doff
26977 logical(LKG) , intent(in) :: source(:)
26978 logical(LKG) , intent(inout) :: destin(:,:)
26979 end subroutine
26980#endif
26981
26982#if LK1_ENABLED
26983 PURE module subroutine setMatCopy_RDP_LFP_UXD_TSO_LK1(destin, dpack, source, spack, subset, operation, doff)
26984#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
26985 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_TSO_LK1
26986#endif
26987 use pm_kind, only: LKG => LK1
26988 type(rdpack_type) , intent(in) :: dpack
26989 type(lfpack_type) , intent(in) :: spack
26990 type(uppDia_type) , intent(in) :: subset
26991 type(transSymm_type) , intent(in) :: operation
26992 integer(IK) , intent(in) , optional :: doff
26993 logical(LKG) , intent(in) :: source(:)
26994 logical(LKG) , intent(inout) :: destin(:,:)
26995 end subroutine
26996#endif
26997
26998 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26999
27000#if CK5_ENABLED
27001 PURE module subroutine setMatCopy_RDP_LFP_UXD_TSO_CK5(destin, dpack, source, spack, subset, operation, doff)
27002#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27003 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_TSO_CK5
27004#endif
27005 use pm_kind, only: CKG => CK5
27006 type(rdpack_type) , intent(in) :: dpack
27007 type(lfpack_type) , intent(in) :: spack
27008 type(uppDia_type) , intent(in) :: subset
27009 type(transSymm_type) , intent(in) :: operation
27010 integer(IK) , intent(in) , optional :: doff
27011 complex(CKG) , intent(in) :: source(:)
27012 complex(CKG) , intent(inout) :: destin(:,:)
27013 end subroutine
27014#endif
27015
27016#if CK4_ENABLED
27017 PURE module subroutine setMatCopy_RDP_LFP_UXD_TSO_CK4(destin, dpack, source, spack, subset, operation, doff)
27018#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27019 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_TSO_CK4
27020#endif
27021 use pm_kind, only: CKG => CK4
27022 type(rdpack_type) , intent(in) :: dpack
27023 type(lfpack_type) , intent(in) :: spack
27024 type(uppDia_type) , intent(in) :: subset
27025 type(transSymm_type) , intent(in) :: operation
27026 integer(IK) , intent(in) , optional :: doff
27027 complex(CKG) , intent(in) :: source(:)
27028 complex(CKG) , intent(inout) :: destin(:,:)
27029 end subroutine
27030#endif
27031
27032#if CK3_ENABLED
27033 PURE module subroutine setMatCopy_RDP_LFP_UXD_TSO_CK3(destin, dpack, source, spack, subset, operation, doff)
27034#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27035 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_TSO_CK3
27036#endif
27037 use pm_kind, only: CKG => CK3
27038 type(rdpack_type) , intent(in) :: dpack
27039 type(lfpack_type) , intent(in) :: spack
27040 type(uppDia_type) , intent(in) :: subset
27041 type(transSymm_type) , intent(in) :: operation
27042 integer(IK) , intent(in) , optional :: doff
27043 complex(CKG) , intent(in) :: source(:)
27044 complex(CKG) , intent(inout) :: destin(:,:)
27045 end subroutine
27046#endif
27047
27048#if CK2_ENABLED
27049 PURE module subroutine setMatCopy_RDP_LFP_UXD_TSO_CK2(destin, dpack, source, spack, subset, operation, doff)
27050#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27051 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_TSO_CK2
27052#endif
27053 use pm_kind, only: CKG => CK2
27054 type(rdpack_type) , intent(in) :: dpack
27055 type(lfpack_type) , intent(in) :: spack
27056 type(uppDia_type) , intent(in) :: subset
27057 type(transSymm_type) , intent(in) :: operation
27058 integer(IK) , intent(in) , optional :: doff
27059 complex(CKG) , intent(in) :: source(:)
27060 complex(CKG) , intent(inout) :: destin(:,:)
27061 end subroutine
27062#endif
27063
27064#if CK1_ENABLED
27065 PURE module subroutine setMatCopy_RDP_LFP_UXD_TSO_CK1(destin, dpack, source, spack, subset, operation, doff)
27066#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27067 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_TSO_CK1
27068#endif
27069 use pm_kind, only: CKG => CK1
27070 type(rdpack_type) , intent(in) :: dpack
27071 type(lfpack_type) , intent(in) :: spack
27072 type(uppDia_type) , intent(in) :: subset
27073 type(transSymm_type) , intent(in) :: operation
27074 integer(IK) , intent(in) , optional :: doff
27075 complex(CKG) , intent(in) :: source(:)
27076 complex(CKG) , intent(inout) :: destin(:,:)
27077 end subroutine
27078#endif
27079
27080 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
27081
27082#if RK5_ENABLED
27083 PURE module subroutine setMatCopy_RDP_LFP_UXD_TSO_RK5(destin, dpack, source, spack, subset, operation, doff)
27084#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27085 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_TSO_RK5
27086#endif
27087 use pm_kind, only: RKG => RK5
27088 type(rdpack_type) , intent(in) :: dpack
27089 type(lfpack_type) , intent(in) :: spack
27090 type(uppDia_type) , intent(in) :: subset
27091 type(transSymm_type) , intent(in) :: operation
27092 integer(IK) , intent(in) , optional :: doff
27093 real(RKG) , intent(in) :: source(:)
27094 real(RKG) , intent(inout) :: destin(:,:)
27095 end subroutine
27096#endif
27097
27098#if RK4_ENABLED
27099 PURE module subroutine setMatCopy_RDP_LFP_UXD_TSO_RK4(destin, dpack, source, spack, subset, operation, doff)
27100#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27101 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_TSO_RK4
27102#endif
27103 use pm_kind, only: RKG => RK4
27104 type(rdpack_type) , intent(in) :: dpack
27105 type(lfpack_type) , intent(in) :: spack
27106 type(uppDia_type) , intent(in) :: subset
27107 type(transSymm_type) , intent(in) :: operation
27108 integer(IK) , intent(in) , optional :: doff
27109 real(RKG) , intent(in) :: source(:)
27110 real(RKG) , intent(inout) :: destin(:,:)
27111 end subroutine
27112#endif
27113
27114#if RK3_ENABLED
27115 PURE module subroutine setMatCopy_RDP_LFP_UXD_TSO_RK3(destin, dpack, source, spack, subset, operation, doff)
27116#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27117 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_TSO_RK3
27118#endif
27119 use pm_kind, only: RKG => RK3
27120 type(rdpack_type) , intent(in) :: dpack
27121 type(lfpack_type) , intent(in) :: spack
27122 type(uppDia_type) , intent(in) :: subset
27123 type(transSymm_type) , intent(in) :: operation
27124 integer(IK) , intent(in) , optional :: doff
27125 real(RKG) , intent(in) :: source(:)
27126 real(RKG) , intent(inout) :: destin(:,:)
27127 end subroutine
27128#endif
27129
27130#if RK2_ENABLED
27131 PURE module subroutine setMatCopy_RDP_LFP_UXD_TSO_RK2(destin, dpack, source, spack, subset, operation, doff)
27132#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27133 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_TSO_RK2
27134#endif
27135 use pm_kind, only: RKG => RK2
27136 type(rdpack_type) , intent(in) :: dpack
27137 type(lfpack_type) , intent(in) :: spack
27138 type(uppDia_type) , intent(in) :: subset
27139 type(transSymm_type) , intent(in) :: operation
27140 integer(IK) , intent(in) , optional :: doff
27141 real(RKG) , intent(in) :: source(:)
27142 real(RKG) , intent(inout) :: destin(:,:)
27143 end subroutine
27144#endif
27145
27146#if RK1_ENABLED
27147 PURE module subroutine setMatCopy_RDP_LFP_UXD_TSO_RK1(destin, dpack, source, spack, subset, operation, doff)
27148#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27149 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_TSO_RK1
27150#endif
27151 use pm_kind, only: RKG => RK1
27152 type(rdpack_type) , intent(in) :: dpack
27153 type(lfpack_type) , intent(in) :: spack
27154 type(uppDia_type) , intent(in) :: subset
27155 type(transSymm_type) , intent(in) :: operation
27156 integer(IK) , intent(in) , optional :: doff
27157 real(RKG) , intent(in) :: source(:)
27158 real(RKG) , intent(inout) :: destin(:,:)
27159 end subroutine
27160#endif
27161
27162 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
27163
27164 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
27165 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
27166 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
27167
27168 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
27169
27170#if SK5_ENABLED
27171 PURE module subroutine setMatCopy_RDP_LFP_UXD_THO_SK5(destin, dpack, source, spack, subset, operation, doff)
27172#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27173 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_THO_SK5
27174#endif
27175 use pm_kind, only: SKG => SK5
27176 type(rdpack_type) , intent(in) :: dpack
27177 type(lfpack_type) , intent(in) :: spack
27178 type(uppDia_type) , intent(in) :: subset
27179 type(transHerm_type) , intent(in) :: operation
27180 integer(IK) , intent(in) , optional :: doff
27181 character(*,SKG) , intent(in) :: source(:)
27182 character(*,SKG) , intent(inout) :: destin(:,:)
27183 end subroutine
27184#endif
27185
27186#if SK4_ENABLED
27187 PURE module subroutine setMatCopy_RDP_LFP_UXD_THO_SK4(destin, dpack, source, spack, subset, operation, doff)
27188#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27189 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_THO_SK4
27190#endif
27191 use pm_kind, only: SKG => SK4
27192 type(rdpack_type) , intent(in) :: dpack
27193 type(lfpack_type) , intent(in) :: spack
27194 type(uppDia_type) , intent(in) :: subset
27195 type(transHerm_type) , intent(in) :: operation
27196 integer(IK) , intent(in) , optional :: doff
27197 character(*,SKG) , intent(in) :: source(:)
27198 character(*,SKG) , intent(inout) :: destin(:,:)
27199 end subroutine
27200#endif
27201
27202#if SK3_ENABLED
27203 PURE module subroutine setMatCopy_RDP_LFP_UXD_THO_SK3(destin, dpack, source, spack, subset, operation, doff)
27204#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27205 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_THO_SK3
27206#endif
27207 use pm_kind, only: SKG => SK3
27208 type(rdpack_type) , intent(in) :: dpack
27209 type(lfpack_type) , intent(in) :: spack
27210 type(uppDia_type) , intent(in) :: subset
27211 type(transHerm_type) , intent(in) :: operation
27212 integer(IK) , intent(in) , optional :: doff
27213 character(*,SKG) , intent(in) :: source(:)
27214 character(*,SKG) , intent(inout) :: destin(:,:)
27215 end subroutine
27216#endif
27217
27218#if SK2_ENABLED
27219 PURE module subroutine setMatCopy_RDP_LFP_UXD_THO_SK2(destin, dpack, source, spack, subset, operation, doff)
27220#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27221 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_THO_SK2
27222#endif
27223 use pm_kind, only: SKG => SK2
27224 type(rdpack_type) , intent(in) :: dpack
27225 type(lfpack_type) , intent(in) :: spack
27226 type(uppDia_type) , intent(in) :: subset
27227 type(transHerm_type) , intent(in) :: operation
27228 integer(IK) , intent(in) , optional :: doff
27229 character(*,SKG) , intent(in) :: source(:)
27230 character(*,SKG) , intent(inout) :: destin(:,:)
27231 end subroutine
27232#endif
27233
27234#if SK1_ENABLED
27235 PURE module subroutine setMatCopy_RDP_LFP_UXD_THO_SK1(destin, dpack, source, spack, subset, operation, doff)
27236#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27237 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_THO_SK1
27238#endif
27239 use pm_kind, only: SKG => SK1
27240 type(rdpack_type) , intent(in) :: dpack
27241 type(lfpack_type) , intent(in) :: spack
27242 type(uppDia_type) , intent(in) :: subset
27243 type(transHerm_type) , intent(in) :: operation
27244 integer(IK) , intent(in) , optional :: doff
27245 character(*,SKG) , intent(in) :: source(:)
27246 character(*,SKG) , intent(inout) :: destin(:,:)
27247 end subroutine
27248#endif
27249
27250 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
27251
27252#if IK5_ENABLED
27253 PURE module subroutine setMatCopy_RDP_LFP_UXD_THO_IK5(destin, dpack, source, spack, subset, operation, doff)
27254#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27255 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_THO_IK5
27256#endif
27257 use pm_kind, only: IKG => IK5
27258 type(rdpack_type) , intent(in) :: dpack
27259 type(lfpack_type) , intent(in) :: spack
27260 type(uppDia_type) , intent(in) :: subset
27261 type(transHerm_type) , intent(in) :: operation
27262 integer(IK) , intent(in) , optional :: doff
27263 integer(IKG) , intent(in) :: source(:)
27264 integer(IKG) , intent(inout) :: destin(:,:)
27265 end subroutine
27266#endif
27267
27268#if IK4_ENABLED
27269 PURE module subroutine setMatCopy_RDP_LFP_UXD_THO_IK4(destin, dpack, source, spack, subset, operation, doff)
27270#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27271 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_THO_IK4
27272#endif
27273 use pm_kind, only: IKG => IK4
27274 type(rdpack_type) , intent(in) :: dpack
27275 type(lfpack_type) , intent(in) :: spack
27276 type(uppDia_type) , intent(in) :: subset
27277 type(transHerm_type) , intent(in) :: operation
27278 integer(IK) , intent(in) , optional :: doff
27279 integer(IKG) , intent(in) :: source(:)
27280 integer(IKG) , intent(inout) :: destin(:,:)
27281 end subroutine
27282#endif
27283
27284#if IK3_ENABLED
27285 PURE module subroutine setMatCopy_RDP_LFP_UXD_THO_IK3(destin, dpack, source, spack, subset, operation, doff)
27286#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27287 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_THO_IK3
27288#endif
27289 use pm_kind, only: IKG => IK3
27290 type(rdpack_type) , intent(in) :: dpack
27291 type(lfpack_type) , intent(in) :: spack
27292 type(uppDia_type) , intent(in) :: subset
27293 type(transHerm_type) , intent(in) :: operation
27294 integer(IK) , intent(in) , optional :: doff
27295 integer(IKG) , intent(in) :: source(:)
27296 integer(IKG) , intent(inout) :: destin(:,:)
27297 end subroutine
27298#endif
27299
27300#if IK2_ENABLED
27301 PURE module subroutine setMatCopy_RDP_LFP_UXD_THO_IK2(destin, dpack, source, spack, subset, operation, doff)
27302#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27303 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_THO_IK2
27304#endif
27305 use pm_kind, only: IKG => IK2
27306 type(rdpack_type) , intent(in) :: dpack
27307 type(lfpack_type) , intent(in) :: spack
27308 type(uppDia_type) , intent(in) :: subset
27309 type(transHerm_type) , intent(in) :: operation
27310 integer(IK) , intent(in) , optional :: doff
27311 integer(IKG) , intent(in) :: source(:)
27312 integer(IKG) , intent(inout) :: destin(:,:)
27313 end subroutine
27314#endif
27315
27316#if IK1_ENABLED
27317 PURE module subroutine setMatCopy_RDP_LFP_UXD_THO_IK1(destin, dpack, source, spack, subset, operation, doff)
27318#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27319 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_THO_IK1
27320#endif
27321 use pm_kind, only: IKG => IK1
27322 type(rdpack_type) , intent(in) :: dpack
27323 type(lfpack_type) , intent(in) :: spack
27324 type(uppDia_type) , intent(in) :: subset
27325 type(transHerm_type) , intent(in) :: operation
27326 integer(IK) , intent(in) , optional :: doff
27327 integer(IKG) , intent(in) :: source(:)
27328 integer(IKG) , intent(inout) :: destin(:,:)
27329 end subroutine
27330#endif
27331
27332 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
27333
27334#if LK5_ENABLED
27335 PURE module subroutine setMatCopy_RDP_LFP_UXD_THO_LK5(destin, dpack, source, spack, subset, operation, doff)
27336#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27337 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_THO_LK5
27338#endif
27339 use pm_kind, only: LKG => LK5
27340 type(rdpack_type) , intent(in) :: dpack
27341 type(lfpack_type) , intent(in) :: spack
27342 type(uppDia_type) , intent(in) :: subset
27343 type(transHerm_type) , intent(in) :: operation
27344 integer(IK) , intent(in) , optional :: doff
27345 logical(LKG) , intent(in) :: source(:)
27346 logical(LKG) , intent(inout) :: destin(:,:)
27347 end subroutine
27348#endif
27349
27350#if LK4_ENABLED
27351 PURE module subroutine setMatCopy_RDP_LFP_UXD_THO_LK4(destin, dpack, source, spack, subset, operation, doff)
27352#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27353 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_THO_LK4
27354#endif
27355 use pm_kind, only: LKG => LK4
27356 type(rdpack_type) , intent(in) :: dpack
27357 type(lfpack_type) , intent(in) :: spack
27358 type(uppDia_type) , intent(in) :: subset
27359 type(transHerm_type) , intent(in) :: operation
27360 integer(IK) , intent(in) , optional :: doff
27361 logical(LKG) , intent(in) :: source(:)
27362 logical(LKG) , intent(inout) :: destin(:,:)
27363 end subroutine
27364#endif
27365
27366#if LK3_ENABLED
27367 PURE module subroutine setMatCopy_RDP_LFP_UXD_THO_LK3(destin, dpack, source, spack, subset, operation, doff)
27368#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27369 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_THO_LK3
27370#endif
27371 use pm_kind, only: LKG => LK3
27372 type(rdpack_type) , intent(in) :: dpack
27373 type(lfpack_type) , intent(in) :: spack
27374 type(uppDia_type) , intent(in) :: subset
27375 type(transHerm_type) , intent(in) :: operation
27376 integer(IK) , intent(in) , optional :: doff
27377 logical(LKG) , intent(in) :: source(:)
27378 logical(LKG) , intent(inout) :: destin(:,:)
27379 end subroutine
27380#endif
27381
27382#if LK2_ENABLED
27383 PURE module subroutine setMatCopy_RDP_LFP_UXD_THO_LK2(destin, dpack, source, spack, subset, operation, doff)
27384#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27385 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_THO_LK2
27386#endif
27387 use pm_kind, only: LKG => LK2
27388 type(rdpack_type) , intent(in) :: dpack
27389 type(lfpack_type) , intent(in) :: spack
27390 type(uppDia_type) , intent(in) :: subset
27391 type(transHerm_type) , intent(in) :: operation
27392 integer(IK) , intent(in) , optional :: doff
27393 logical(LKG) , intent(in) :: source(:)
27394 logical(LKG) , intent(inout) :: destin(:,:)
27395 end subroutine
27396#endif
27397
27398#if LK1_ENABLED
27399 PURE module subroutine setMatCopy_RDP_LFP_UXD_THO_LK1(destin, dpack, source, spack, subset, operation, doff)
27400#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27401 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_THO_LK1
27402#endif
27403 use pm_kind, only: LKG => LK1
27404 type(rdpack_type) , intent(in) :: dpack
27405 type(lfpack_type) , intent(in) :: spack
27406 type(uppDia_type) , intent(in) :: subset
27407 type(transHerm_type) , intent(in) :: operation
27408 integer(IK) , intent(in) , optional :: doff
27409 logical(LKG) , intent(in) :: source(:)
27410 logical(LKG) , intent(inout) :: destin(:,:)
27411 end subroutine
27412#endif
27413
27414 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
27415
27416#if CK5_ENABLED
27417 PURE module subroutine setMatCopy_RDP_LFP_UXD_THO_CK5(destin, dpack, source, spack, subset, operation, doff)
27418#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27419 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_THO_CK5
27420#endif
27421 use pm_kind, only: CKG => CK5
27422 type(rdpack_type) , intent(in) :: dpack
27423 type(lfpack_type) , intent(in) :: spack
27424 type(uppDia_type) , intent(in) :: subset
27425 type(transHerm_type) , intent(in) :: operation
27426 integer(IK) , intent(in) , optional :: doff
27427 complex(CKG) , intent(in) :: source(:)
27428 complex(CKG) , intent(inout) :: destin(:,:)
27429 end subroutine
27430#endif
27431
27432#if CK4_ENABLED
27433 PURE module subroutine setMatCopy_RDP_LFP_UXD_THO_CK4(destin, dpack, source, spack, subset, operation, doff)
27434#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27435 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_THO_CK4
27436#endif
27437 use pm_kind, only: CKG => CK4
27438 type(rdpack_type) , intent(in) :: dpack
27439 type(lfpack_type) , intent(in) :: spack
27440 type(uppDia_type) , intent(in) :: subset
27441 type(transHerm_type) , intent(in) :: operation
27442 integer(IK) , intent(in) , optional :: doff
27443 complex(CKG) , intent(in) :: source(:)
27444 complex(CKG) , intent(inout) :: destin(:,:)
27445 end subroutine
27446#endif
27447
27448#if CK3_ENABLED
27449 PURE module subroutine setMatCopy_RDP_LFP_UXD_THO_CK3(destin, dpack, source, spack, subset, operation, doff)
27450#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27451 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_THO_CK3
27452#endif
27453 use pm_kind, only: CKG => CK3
27454 type(rdpack_type) , intent(in) :: dpack
27455 type(lfpack_type) , intent(in) :: spack
27456 type(uppDia_type) , intent(in) :: subset
27457 type(transHerm_type) , intent(in) :: operation
27458 integer(IK) , intent(in) , optional :: doff
27459 complex(CKG) , intent(in) :: source(:)
27460 complex(CKG) , intent(inout) :: destin(:,:)
27461 end subroutine
27462#endif
27463
27464#if CK2_ENABLED
27465 PURE module subroutine setMatCopy_RDP_LFP_UXD_THO_CK2(destin, dpack, source, spack, subset, operation, doff)
27466#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27467 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_THO_CK2
27468#endif
27469 use pm_kind, only: CKG => CK2
27470 type(rdpack_type) , intent(in) :: dpack
27471 type(lfpack_type) , intent(in) :: spack
27472 type(uppDia_type) , intent(in) :: subset
27473 type(transHerm_type) , intent(in) :: operation
27474 integer(IK) , intent(in) , optional :: doff
27475 complex(CKG) , intent(in) :: source(:)
27476 complex(CKG) , intent(inout) :: destin(:,:)
27477 end subroutine
27478#endif
27479
27480#if CK1_ENABLED
27481 PURE module subroutine setMatCopy_RDP_LFP_UXD_THO_CK1(destin, dpack, source, spack, subset, operation, doff)
27482#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27483 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_THO_CK1
27484#endif
27485 use pm_kind, only: CKG => CK1
27486 type(rdpack_type) , intent(in) :: dpack
27487 type(lfpack_type) , intent(in) :: spack
27488 type(uppDia_type) , intent(in) :: subset
27489 type(transHerm_type) , intent(in) :: operation
27490 integer(IK) , intent(in) , optional :: doff
27491 complex(CKG) , intent(in) :: source(:)
27492 complex(CKG) , intent(inout) :: destin(:,:)
27493 end subroutine
27494#endif
27495
27496 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
27497
27498#if RK5_ENABLED
27499 PURE module subroutine setMatCopy_RDP_LFP_UXD_THO_RK5(destin, dpack, source, spack, subset, operation, doff)
27500#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27501 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_THO_RK5
27502#endif
27503 use pm_kind, only: RKG => RK5
27504 type(rdpack_type) , intent(in) :: dpack
27505 type(lfpack_type) , intent(in) :: spack
27506 type(uppDia_type) , intent(in) :: subset
27507 type(transHerm_type) , intent(in) :: operation
27508 integer(IK) , intent(in) , optional :: doff
27509 real(RKG) , intent(in) :: source(:)
27510 real(RKG) , intent(inout) :: destin(:,:)
27511 end subroutine
27512#endif
27513
27514#if RK4_ENABLED
27515 PURE module subroutine setMatCopy_RDP_LFP_UXD_THO_RK4(destin, dpack, source, spack, subset, operation, doff)
27516#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27517 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_THO_RK4
27518#endif
27519 use pm_kind, only: RKG => RK4
27520 type(rdpack_type) , intent(in) :: dpack
27521 type(lfpack_type) , intent(in) :: spack
27522 type(uppDia_type) , intent(in) :: subset
27523 type(transHerm_type) , intent(in) :: operation
27524 integer(IK) , intent(in) , optional :: doff
27525 real(RKG) , intent(in) :: source(:)
27526 real(RKG) , intent(inout) :: destin(:,:)
27527 end subroutine
27528#endif
27529
27530#if RK3_ENABLED
27531 PURE module subroutine setMatCopy_RDP_LFP_UXD_THO_RK3(destin, dpack, source, spack, subset, operation, doff)
27532#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27533 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_THO_RK3
27534#endif
27535 use pm_kind, only: RKG => RK3
27536 type(rdpack_type) , intent(in) :: dpack
27537 type(lfpack_type) , intent(in) :: spack
27538 type(uppDia_type) , intent(in) :: subset
27539 type(transHerm_type) , intent(in) :: operation
27540 integer(IK) , intent(in) , optional :: doff
27541 real(RKG) , intent(in) :: source(:)
27542 real(RKG) , intent(inout) :: destin(:,:)
27543 end subroutine
27544#endif
27545
27546#if RK2_ENABLED
27547 PURE module subroutine setMatCopy_RDP_LFP_UXD_THO_RK2(destin, dpack, source, spack, subset, operation, doff)
27548#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27549 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_THO_RK2
27550#endif
27551 use pm_kind, only: RKG => RK2
27552 type(rdpack_type) , intent(in) :: dpack
27553 type(lfpack_type) , intent(in) :: spack
27554 type(uppDia_type) , intent(in) :: subset
27555 type(transHerm_type) , intent(in) :: operation
27556 integer(IK) , intent(in) , optional :: doff
27557 real(RKG) , intent(in) :: source(:)
27558 real(RKG) , intent(inout) :: destin(:,:)
27559 end subroutine
27560#endif
27561
27562#if RK1_ENABLED
27563 PURE module subroutine setMatCopy_RDP_LFP_UXD_THO_RK1(destin, dpack, source, spack, subset, operation, doff)
27564#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27565 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_UXD_THO_RK1
27566#endif
27567 use pm_kind, only: RKG => RK1
27568 type(rdpack_type) , intent(in) :: dpack
27569 type(lfpack_type) , intent(in) :: spack
27570 type(uppDia_type) , intent(in) :: subset
27571 type(transHerm_type) , intent(in) :: operation
27572 integer(IK) , intent(in) , optional :: doff
27573 real(RKG) , intent(in) :: source(:)
27574 real(RKG) , intent(inout) :: destin(:,:)
27575 end subroutine
27576#endif
27577
27578 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
27579
27580 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
27581 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
27582 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
27583
27584 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
27585 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
27586 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
27587
27588 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
27589
27590#if SK5_ENABLED
27591 PURE module subroutine setMatCopy_RDP_LFP_XLD_AIO_SK5(destin, dpack, source, spack, subset, doff)
27592#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27593 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_AIO_SK5
27594#endif
27595 use pm_kind, only: SKG => SK5
27596 type(rdpack_type) , intent(in) :: dpack
27597 type(lfpack_type) , intent(in) :: spack
27598 type(lowDia_type) , intent(in) :: subset
27599 integer(IK) , intent(in) , optional :: doff
27600 character(*,SKG) , intent(in) :: source(:)
27601 character(*,SKG) , intent(inout) :: destin(:,:)
27602 end subroutine
27603#endif
27604
27605#if SK4_ENABLED
27606 PURE module subroutine setMatCopy_RDP_LFP_XLD_AIO_SK4(destin, dpack, source, spack, subset, doff)
27607#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27608 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_AIO_SK4
27609#endif
27610 use pm_kind, only: SKG => SK4
27611 type(rdpack_type) , intent(in) :: dpack
27612 type(lfpack_type) , intent(in) :: spack
27613 type(lowDia_type) , intent(in) :: subset
27614 integer(IK) , intent(in) , optional :: doff
27615 character(*,SKG) , intent(in) :: source(:)
27616 character(*,SKG) , intent(inout) :: destin(:,:)
27617 end subroutine
27618#endif
27619
27620#if SK3_ENABLED
27621 PURE module subroutine setMatCopy_RDP_LFP_XLD_AIO_SK3(destin, dpack, source, spack, subset, doff)
27622#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27623 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_AIO_SK3
27624#endif
27625 use pm_kind, only: SKG => SK3
27626 type(rdpack_type) , intent(in) :: dpack
27627 type(lfpack_type) , intent(in) :: spack
27628 type(lowDia_type) , intent(in) :: subset
27629 integer(IK) , intent(in) , optional :: doff
27630 character(*,SKG) , intent(in) :: source(:)
27631 character(*,SKG) , intent(inout) :: destin(:,:)
27632 end subroutine
27633#endif
27634
27635#if SK2_ENABLED
27636 PURE module subroutine setMatCopy_RDP_LFP_XLD_AIO_SK2(destin, dpack, source, spack, subset, doff)
27637#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27638 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_AIO_SK2
27639#endif
27640 use pm_kind, only: SKG => SK2
27641 type(rdpack_type) , intent(in) :: dpack
27642 type(lfpack_type) , intent(in) :: spack
27643 type(lowDia_type) , intent(in) :: subset
27644 integer(IK) , intent(in) , optional :: doff
27645 character(*,SKG) , intent(in) :: source(:)
27646 character(*,SKG) , intent(inout) :: destin(:,:)
27647 end subroutine
27648#endif
27649
27650#if SK1_ENABLED
27651 PURE module subroutine setMatCopy_RDP_LFP_XLD_AIO_SK1(destin, dpack, source, spack, subset, doff)
27652#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27653 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_AIO_SK1
27654#endif
27655 use pm_kind, only: SKG => SK1
27656 type(rdpack_type) , intent(in) :: dpack
27657 type(lfpack_type) , intent(in) :: spack
27658 type(lowDia_type) , intent(in) :: subset
27659 integer(IK) , intent(in) , optional :: doff
27660 character(*,SKG) , intent(in) :: source(:)
27661 character(*,SKG) , intent(inout) :: destin(:,:)
27662 end subroutine
27663#endif
27664
27665 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
27666
27667#if IK5_ENABLED
27668 PURE module subroutine setMatCopy_RDP_LFP_XLD_AIO_IK5(destin, dpack, source, spack, subset, doff)
27669#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27670 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_AIO_IK5
27671#endif
27672 use pm_kind, only: IKG => IK5
27673 type(rdpack_type) , intent(in) :: dpack
27674 type(lfpack_type) , intent(in) :: spack
27675 type(lowDia_type) , intent(in) :: subset
27676 integer(IK) , intent(in) , optional :: doff
27677 integer(IKG) , intent(in) :: source(:)
27678 integer(IKG) , intent(inout) :: destin(:,:)
27679 end subroutine
27680#endif
27681
27682#if IK4_ENABLED
27683 PURE module subroutine setMatCopy_RDP_LFP_XLD_AIO_IK4(destin, dpack, source, spack, subset, doff)
27684#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27685 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_AIO_IK4
27686#endif
27687 use pm_kind, only: IKG => IK4
27688 type(rdpack_type) , intent(in) :: dpack
27689 type(lfpack_type) , intent(in) :: spack
27690 type(lowDia_type) , intent(in) :: subset
27691 integer(IK) , intent(in) , optional :: doff
27692 integer(IKG) , intent(in) :: source(:)
27693 integer(IKG) , intent(inout) :: destin(:,:)
27694 end subroutine
27695#endif
27696
27697#if IK3_ENABLED
27698 PURE module subroutine setMatCopy_RDP_LFP_XLD_AIO_IK3(destin, dpack, source, spack, subset, doff)
27699#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27700 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_AIO_IK3
27701#endif
27702 use pm_kind, only: IKG => IK3
27703 type(rdpack_type) , intent(in) :: dpack
27704 type(lfpack_type) , intent(in) :: spack
27705 type(lowDia_type) , intent(in) :: subset
27706 integer(IK) , intent(in) , optional :: doff
27707 integer(IKG) , intent(in) :: source(:)
27708 integer(IKG) , intent(inout) :: destin(:,:)
27709 end subroutine
27710#endif
27711
27712#if IK2_ENABLED
27713 PURE module subroutine setMatCopy_RDP_LFP_XLD_AIO_IK2(destin, dpack, source, spack, subset, doff)
27714#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27715 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_AIO_IK2
27716#endif
27717 use pm_kind, only: IKG => IK2
27718 type(rdpack_type) , intent(in) :: dpack
27719 type(lfpack_type) , intent(in) :: spack
27720 type(lowDia_type) , intent(in) :: subset
27721 integer(IK) , intent(in) , optional :: doff
27722 integer(IKG) , intent(in) :: source(:)
27723 integer(IKG) , intent(inout) :: destin(:,:)
27724 end subroutine
27725#endif
27726
27727#if IK1_ENABLED
27728 PURE module subroutine setMatCopy_RDP_LFP_XLD_AIO_IK1(destin, dpack, source, spack, subset, doff)
27729#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27730 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_AIO_IK1
27731#endif
27732 use pm_kind, only: IKG => IK1
27733 type(rdpack_type) , intent(in) :: dpack
27734 type(lfpack_type) , intent(in) :: spack
27735 type(lowDia_type) , intent(in) :: subset
27736 integer(IK) , intent(in) , optional :: doff
27737 integer(IKG) , intent(in) :: source(:)
27738 integer(IKG) , intent(inout) :: destin(:,:)
27739 end subroutine
27740#endif
27741
27742 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
27743
27744#if LK5_ENABLED
27745 PURE module subroutine setMatCopy_RDP_LFP_XLD_AIO_LK5(destin, dpack, source, spack, subset, doff)
27746#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27747 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_AIO_LK5
27748#endif
27749 use pm_kind, only: LKG => LK5
27750 type(rdpack_type) , intent(in) :: dpack
27751 type(lfpack_type) , intent(in) :: spack
27752 type(lowDia_type) , intent(in) :: subset
27753 integer(IK) , intent(in) , optional :: doff
27754 logical(LKG) , intent(in) :: source(:)
27755 logical(LKG) , intent(inout) :: destin(:,:)
27756 end subroutine
27757#endif
27758
27759#if LK4_ENABLED
27760 PURE module subroutine setMatCopy_RDP_LFP_XLD_AIO_LK4(destin, dpack, source, spack, subset, doff)
27761#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27762 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_AIO_LK4
27763#endif
27764 use pm_kind, only: LKG => LK4
27765 type(rdpack_type) , intent(in) :: dpack
27766 type(lfpack_type) , intent(in) :: spack
27767 type(lowDia_type) , intent(in) :: subset
27768 integer(IK) , intent(in) , optional :: doff
27769 logical(LKG) , intent(in) :: source(:)
27770 logical(LKG) , intent(inout) :: destin(:,:)
27771 end subroutine
27772#endif
27773
27774#if LK3_ENABLED
27775 PURE module subroutine setMatCopy_RDP_LFP_XLD_AIO_LK3(destin, dpack, source, spack, subset, doff)
27776#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27777 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_AIO_LK3
27778#endif
27779 use pm_kind, only: LKG => LK3
27780 type(rdpack_type) , intent(in) :: dpack
27781 type(lfpack_type) , intent(in) :: spack
27782 type(lowDia_type) , intent(in) :: subset
27783 integer(IK) , intent(in) , optional :: doff
27784 logical(LKG) , intent(in) :: source(:)
27785 logical(LKG) , intent(inout) :: destin(:,:)
27786 end subroutine
27787#endif
27788
27789#if LK2_ENABLED
27790 PURE module subroutine setMatCopy_RDP_LFP_XLD_AIO_LK2(destin, dpack, source, spack, subset, doff)
27791#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27792 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_AIO_LK2
27793#endif
27794 use pm_kind, only: LKG => LK2
27795 type(rdpack_type) , intent(in) :: dpack
27796 type(lfpack_type) , intent(in) :: spack
27797 type(lowDia_type) , intent(in) :: subset
27798 integer(IK) , intent(in) , optional :: doff
27799 logical(LKG) , intent(in) :: source(:)
27800 logical(LKG) , intent(inout) :: destin(:,:)
27801 end subroutine
27802#endif
27803
27804#if LK1_ENABLED
27805 PURE module subroutine setMatCopy_RDP_LFP_XLD_AIO_LK1(destin, dpack, source, spack, subset, doff)
27806#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27807 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_AIO_LK1
27808#endif
27809 use pm_kind, only: LKG => LK1
27810 type(rdpack_type) , intent(in) :: dpack
27811 type(lfpack_type) , intent(in) :: spack
27812 type(lowDia_type) , intent(in) :: subset
27813 integer(IK) , intent(in) , optional :: doff
27814 logical(LKG) , intent(in) :: source(:)
27815 logical(LKG) , intent(inout) :: destin(:,:)
27816 end subroutine
27817#endif
27818
27819 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
27820
27821#if CK5_ENABLED
27822 PURE module subroutine setMatCopy_RDP_LFP_XLD_AIO_CK5(destin, dpack, source, spack, subset, doff)
27823#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27824 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_AIO_CK5
27825#endif
27826 use pm_kind, only: CKG => CK5
27827 type(rdpack_type) , intent(in) :: dpack
27828 type(lfpack_type) , intent(in) :: spack
27829 type(lowDia_type) , intent(in) :: subset
27830 integer(IK) , intent(in) , optional :: doff
27831 complex(CKG) , intent(in) :: source(:)
27832 complex(CKG) , intent(inout) :: destin(:,:)
27833 end subroutine
27834#endif
27835
27836#if CK4_ENABLED
27837 PURE module subroutine setMatCopy_RDP_LFP_XLD_AIO_CK4(destin, dpack, source, spack, subset, doff)
27838#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27839 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_AIO_CK4
27840#endif
27841 use pm_kind, only: CKG => CK4
27842 type(rdpack_type) , intent(in) :: dpack
27843 type(lfpack_type) , intent(in) :: spack
27844 type(lowDia_type) , intent(in) :: subset
27845 integer(IK) , intent(in) , optional :: doff
27846 complex(CKG) , intent(in) :: source(:)
27847 complex(CKG) , intent(inout) :: destin(:,:)
27848 end subroutine
27849#endif
27850
27851#if CK3_ENABLED
27852 PURE module subroutine setMatCopy_RDP_LFP_XLD_AIO_CK3(destin, dpack, source, spack, subset, doff)
27853#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27854 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_AIO_CK3
27855#endif
27856 use pm_kind, only: CKG => CK3
27857 type(rdpack_type) , intent(in) :: dpack
27858 type(lfpack_type) , intent(in) :: spack
27859 type(lowDia_type) , intent(in) :: subset
27860 integer(IK) , intent(in) , optional :: doff
27861 complex(CKG) , intent(in) :: source(:)
27862 complex(CKG) , intent(inout) :: destin(:,:)
27863 end subroutine
27864#endif
27865
27866#if CK2_ENABLED
27867 PURE module subroutine setMatCopy_RDP_LFP_XLD_AIO_CK2(destin, dpack, source, spack, subset, doff)
27868#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27869 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_AIO_CK2
27870#endif
27871 use pm_kind, only: CKG => CK2
27872 type(rdpack_type) , intent(in) :: dpack
27873 type(lfpack_type) , intent(in) :: spack
27874 type(lowDia_type) , intent(in) :: subset
27875 integer(IK) , intent(in) , optional :: doff
27876 complex(CKG) , intent(in) :: source(:)
27877 complex(CKG) , intent(inout) :: destin(:,:)
27878 end subroutine
27879#endif
27880
27881#if CK1_ENABLED
27882 PURE module subroutine setMatCopy_RDP_LFP_XLD_AIO_CK1(destin, dpack, source, spack, subset, doff)
27883#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27884 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_AIO_CK1
27885#endif
27886 use pm_kind, only: CKG => CK1
27887 type(rdpack_type) , intent(in) :: dpack
27888 type(lfpack_type) , intent(in) :: spack
27889 type(lowDia_type) , intent(in) :: subset
27890 integer(IK) , intent(in) , optional :: doff
27891 complex(CKG) , intent(in) :: source(:)
27892 complex(CKG) , intent(inout) :: destin(:,:)
27893 end subroutine
27894#endif
27895
27896 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
27897
27898#if RK5_ENABLED
27899 PURE module subroutine setMatCopy_RDP_LFP_XLD_AIO_RK5(destin, dpack, source, spack, subset, doff)
27900#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27901 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_AIO_RK5
27902#endif
27903 use pm_kind, only: RKG => RK5
27904 type(rdpack_type) , intent(in) :: dpack
27905 type(lfpack_type) , intent(in) :: spack
27906 type(lowDia_type) , intent(in) :: subset
27907 integer(IK) , intent(in) , optional :: doff
27908 real(RKG) , intent(in) :: source(:)
27909 real(RKG) , intent(inout) :: destin(:,:)
27910 end subroutine
27911#endif
27912
27913#if RK4_ENABLED
27914 PURE module subroutine setMatCopy_RDP_LFP_XLD_AIO_RK4(destin, dpack, source, spack, subset, doff)
27915#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27916 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_AIO_RK4
27917#endif
27918 use pm_kind, only: RKG => RK4
27919 type(rdpack_type) , intent(in) :: dpack
27920 type(lfpack_type) , intent(in) :: spack
27921 type(lowDia_type) , intent(in) :: subset
27922 integer(IK) , intent(in) , optional :: doff
27923 real(RKG) , intent(in) :: source(:)
27924 real(RKG) , intent(inout) :: destin(:,:)
27925 end subroutine
27926#endif
27927
27928#if RK3_ENABLED
27929 PURE module subroutine setMatCopy_RDP_LFP_XLD_AIO_RK3(destin, dpack, source, spack, subset, doff)
27930#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27931 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_AIO_RK3
27932#endif
27933 use pm_kind, only: RKG => RK3
27934 type(rdpack_type) , intent(in) :: dpack
27935 type(lfpack_type) , intent(in) :: spack
27936 type(lowDia_type) , intent(in) :: subset
27937 integer(IK) , intent(in) , optional :: doff
27938 real(RKG) , intent(in) :: source(:)
27939 real(RKG) , intent(inout) :: destin(:,:)
27940 end subroutine
27941#endif
27942
27943#if RK2_ENABLED
27944 PURE module subroutine setMatCopy_RDP_LFP_XLD_AIO_RK2(destin, dpack, source, spack, subset, doff)
27945#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27946 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_AIO_RK2
27947#endif
27948 use pm_kind, only: RKG => RK2
27949 type(rdpack_type) , intent(in) :: dpack
27950 type(lfpack_type) , intent(in) :: spack
27951 type(lowDia_type) , intent(in) :: subset
27952 integer(IK) , intent(in) , optional :: doff
27953 real(RKG) , intent(in) :: source(:)
27954 real(RKG) , intent(inout) :: destin(:,:)
27955 end subroutine
27956#endif
27957
27958#if RK1_ENABLED
27959 PURE module subroutine setMatCopy_RDP_LFP_XLD_AIO_RK1(destin, dpack, source, spack, subset, doff)
27960#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27961 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_AIO_RK1
27962#endif
27963 use pm_kind, only: RKG => RK1
27964 type(rdpack_type) , intent(in) :: dpack
27965 type(lfpack_type) , intent(in) :: spack
27966 type(lowDia_type) , intent(in) :: subset
27967 integer(IK) , intent(in) , optional :: doff
27968 real(RKG) , intent(in) :: source(:)
27969 real(RKG) , intent(inout) :: destin(:,:)
27970 end subroutine
27971#endif
27972
27973 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
27974
27975 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
27976 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
27977 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
27978
27979 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
27980
27981#if SK5_ENABLED
27982 PURE module subroutine setMatCopy_RDP_LFP_XLD_TSO_SK5(destin, dpack, source, spack, subset, operation, doff)
27983#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
27984 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_TSO_SK5
27985#endif
27986 use pm_kind, only: SKG => SK5
27987 type(rdpack_type) , intent(in) :: dpack
27988 type(lfpack_type) , intent(in) :: spack
27989 type(lowDia_type) , intent(in) :: subset
27990 type(transSymm_type) , intent(in) :: operation
27991 integer(IK) , intent(in) , optional :: doff
27992 character(*,SKG) , intent(in) :: source(:)
27993 character(*,SKG) , intent(inout) :: destin(:,:)
27994 end subroutine
27995#endif
27996
27997#if SK4_ENABLED
27998 PURE module subroutine setMatCopy_RDP_LFP_XLD_TSO_SK4(destin, dpack, source, spack, subset, operation, doff)
27999#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28000 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_TSO_SK4
28001#endif
28002 use pm_kind, only: SKG => SK4
28003 type(rdpack_type) , intent(in) :: dpack
28004 type(lfpack_type) , intent(in) :: spack
28005 type(lowDia_type) , intent(in) :: subset
28006 type(transSymm_type) , intent(in) :: operation
28007 integer(IK) , intent(in) , optional :: doff
28008 character(*,SKG) , intent(in) :: source(:)
28009 character(*,SKG) , intent(inout) :: destin(:,:)
28010 end subroutine
28011#endif
28012
28013#if SK3_ENABLED
28014 PURE module subroutine setMatCopy_RDP_LFP_XLD_TSO_SK3(destin, dpack, source, spack, subset, operation, doff)
28015#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28016 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_TSO_SK3
28017#endif
28018 use pm_kind, only: SKG => SK3
28019 type(rdpack_type) , intent(in) :: dpack
28020 type(lfpack_type) , intent(in) :: spack
28021 type(lowDia_type) , intent(in) :: subset
28022 type(transSymm_type) , intent(in) :: operation
28023 integer(IK) , intent(in) , optional :: doff
28024 character(*,SKG) , intent(in) :: source(:)
28025 character(*,SKG) , intent(inout) :: destin(:,:)
28026 end subroutine
28027#endif
28028
28029#if SK2_ENABLED
28030 PURE module subroutine setMatCopy_RDP_LFP_XLD_TSO_SK2(destin, dpack, source, spack, subset, operation, doff)
28031#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28032 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_TSO_SK2
28033#endif
28034 use pm_kind, only: SKG => SK2
28035 type(rdpack_type) , intent(in) :: dpack
28036 type(lfpack_type) , intent(in) :: spack
28037 type(lowDia_type) , intent(in) :: subset
28038 type(transSymm_type) , intent(in) :: operation
28039 integer(IK) , intent(in) , optional :: doff
28040 character(*,SKG) , intent(in) :: source(:)
28041 character(*,SKG) , intent(inout) :: destin(:,:)
28042 end subroutine
28043#endif
28044
28045#if SK1_ENABLED
28046 PURE module subroutine setMatCopy_RDP_LFP_XLD_TSO_SK1(destin, dpack, source, spack, subset, operation, doff)
28047#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28048 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_TSO_SK1
28049#endif
28050 use pm_kind, only: SKG => SK1
28051 type(rdpack_type) , intent(in) :: dpack
28052 type(lfpack_type) , intent(in) :: spack
28053 type(lowDia_type) , intent(in) :: subset
28054 type(transSymm_type) , intent(in) :: operation
28055 integer(IK) , intent(in) , optional :: doff
28056 character(*,SKG) , intent(in) :: source(:)
28057 character(*,SKG) , intent(inout) :: destin(:,:)
28058 end subroutine
28059#endif
28060
28061 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
28062
28063#if IK5_ENABLED
28064 PURE module subroutine setMatCopy_RDP_LFP_XLD_TSO_IK5(destin, dpack, source, spack, subset, operation, doff)
28065#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28066 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_TSO_IK5
28067#endif
28068 use pm_kind, only: IKG => IK5
28069 type(rdpack_type) , intent(in) :: dpack
28070 type(lfpack_type) , intent(in) :: spack
28071 type(lowDia_type) , intent(in) :: subset
28072 type(transSymm_type) , intent(in) :: operation
28073 integer(IK) , intent(in) , optional :: doff
28074 integer(IKG) , intent(in) :: source(:)
28075 integer(IKG) , intent(inout) :: destin(:,:)
28076 end subroutine
28077#endif
28078
28079#if IK4_ENABLED
28080 PURE module subroutine setMatCopy_RDP_LFP_XLD_TSO_IK4(destin, dpack, source, spack, subset, operation, doff)
28081#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28082 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_TSO_IK4
28083#endif
28084 use pm_kind, only: IKG => IK4
28085 type(rdpack_type) , intent(in) :: dpack
28086 type(lfpack_type) , intent(in) :: spack
28087 type(lowDia_type) , intent(in) :: subset
28088 type(transSymm_type) , intent(in) :: operation
28089 integer(IK) , intent(in) , optional :: doff
28090 integer(IKG) , intent(in) :: source(:)
28091 integer(IKG) , intent(inout) :: destin(:,:)
28092 end subroutine
28093#endif
28094
28095#if IK3_ENABLED
28096 PURE module subroutine setMatCopy_RDP_LFP_XLD_TSO_IK3(destin, dpack, source, spack, subset, operation, doff)
28097#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28098 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_TSO_IK3
28099#endif
28100 use pm_kind, only: IKG => IK3
28101 type(rdpack_type) , intent(in) :: dpack
28102 type(lfpack_type) , intent(in) :: spack
28103 type(lowDia_type) , intent(in) :: subset
28104 type(transSymm_type) , intent(in) :: operation
28105 integer(IK) , intent(in) , optional :: doff
28106 integer(IKG) , intent(in) :: source(:)
28107 integer(IKG) , intent(inout) :: destin(:,:)
28108 end subroutine
28109#endif
28110
28111#if IK2_ENABLED
28112 PURE module subroutine setMatCopy_RDP_LFP_XLD_TSO_IK2(destin, dpack, source, spack, subset, operation, doff)
28113#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28114 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_TSO_IK2
28115#endif
28116 use pm_kind, only: IKG => IK2
28117 type(rdpack_type) , intent(in) :: dpack
28118 type(lfpack_type) , intent(in) :: spack
28119 type(lowDia_type) , intent(in) :: subset
28120 type(transSymm_type) , intent(in) :: operation
28121 integer(IK) , intent(in) , optional :: doff
28122 integer(IKG) , intent(in) :: source(:)
28123 integer(IKG) , intent(inout) :: destin(:,:)
28124 end subroutine
28125#endif
28126
28127#if IK1_ENABLED
28128 PURE module subroutine setMatCopy_RDP_LFP_XLD_TSO_IK1(destin, dpack, source, spack, subset, operation, doff)
28129#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28130 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_TSO_IK1
28131#endif
28132 use pm_kind, only: IKG => IK1
28133 type(rdpack_type) , intent(in) :: dpack
28134 type(lfpack_type) , intent(in) :: spack
28135 type(lowDia_type) , intent(in) :: subset
28136 type(transSymm_type) , intent(in) :: operation
28137 integer(IK) , intent(in) , optional :: doff
28138 integer(IKG) , intent(in) :: source(:)
28139 integer(IKG) , intent(inout) :: destin(:,:)
28140 end subroutine
28141#endif
28142
28143 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
28144
28145#if LK5_ENABLED
28146 PURE module subroutine setMatCopy_RDP_LFP_XLD_TSO_LK5(destin, dpack, source, spack, subset, operation, doff)
28147#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28148 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_TSO_LK5
28149#endif
28150 use pm_kind, only: LKG => LK5
28151 type(rdpack_type) , intent(in) :: dpack
28152 type(lfpack_type) , intent(in) :: spack
28153 type(lowDia_type) , intent(in) :: subset
28154 type(transSymm_type) , intent(in) :: operation
28155 integer(IK) , intent(in) , optional :: doff
28156 logical(LKG) , intent(in) :: source(:)
28157 logical(LKG) , intent(inout) :: destin(:,:)
28158 end subroutine
28159#endif
28160
28161#if LK4_ENABLED
28162 PURE module subroutine setMatCopy_RDP_LFP_XLD_TSO_LK4(destin, dpack, source, spack, subset, operation, doff)
28163#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28164 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_TSO_LK4
28165#endif
28166 use pm_kind, only: LKG => LK4
28167 type(rdpack_type) , intent(in) :: dpack
28168 type(lfpack_type) , intent(in) :: spack
28169 type(lowDia_type) , intent(in) :: subset
28170 type(transSymm_type) , intent(in) :: operation
28171 integer(IK) , intent(in) , optional :: doff
28172 logical(LKG) , intent(in) :: source(:)
28173 logical(LKG) , intent(inout) :: destin(:,:)
28174 end subroutine
28175#endif
28176
28177#if LK3_ENABLED
28178 PURE module subroutine setMatCopy_RDP_LFP_XLD_TSO_LK3(destin, dpack, source, spack, subset, operation, doff)
28179#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28180 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_TSO_LK3
28181#endif
28182 use pm_kind, only: LKG => LK3
28183 type(rdpack_type) , intent(in) :: dpack
28184 type(lfpack_type) , intent(in) :: spack
28185 type(lowDia_type) , intent(in) :: subset
28186 type(transSymm_type) , intent(in) :: operation
28187 integer(IK) , intent(in) , optional :: doff
28188 logical(LKG) , intent(in) :: source(:)
28189 logical(LKG) , intent(inout) :: destin(:,:)
28190 end subroutine
28191#endif
28192
28193#if LK2_ENABLED
28194 PURE module subroutine setMatCopy_RDP_LFP_XLD_TSO_LK2(destin, dpack, source, spack, subset, operation, doff)
28195#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28196 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_TSO_LK2
28197#endif
28198 use pm_kind, only: LKG => LK2
28199 type(rdpack_type) , intent(in) :: dpack
28200 type(lfpack_type) , intent(in) :: spack
28201 type(lowDia_type) , intent(in) :: subset
28202 type(transSymm_type) , intent(in) :: operation
28203 integer(IK) , intent(in) , optional :: doff
28204 logical(LKG) , intent(in) :: source(:)
28205 logical(LKG) , intent(inout) :: destin(:,:)
28206 end subroutine
28207#endif
28208
28209#if LK1_ENABLED
28210 PURE module subroutine setMatCopy_RDP_LFP_XLD_TSO_LK1(destin, dpack, source, spack, subset, operation, doff)
28211#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28212 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_TSO_LK1
28213#endif
28214 use pm_kind, only: LKG => LK1
28215 type(rdpack_type) , intent(in) :: dpack
28216 type(lfpack_type) , intent(in) :: spack
28217 type(lowDia_type) , intent(in) :: subset
28218 type(transSymm_type) , intent(in) :: operation
28219 integer(IK) , intent(in) , optional :: doff
28220 logical(LKG) , intent(in) :: source(:)
28221 logical(LKG) , intent(inout) :: destin(:,:)
28222 end subroutine
28223#endif
28224
28225 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
28226
28227#if CK5_ENABLED
28228 PURE module subroutine setMatCopy_RDP_LFP_XLD_TSO_CK5(destin, dpack, source, spack, subset, operation, doff)
28229#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28230 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_TSO_CK5
28231#endif
28232 use pm_kind, only: CKG => CK5
28233 type(rdpack_type) , intent(in) :: dpack
28234 type(lfpack_type) , intent(in) :: spack
28235 type(lowDia_type) , intent(in) :: subset
28236 type(transSymm_type) , intent(in) :: operation
28237 integer(IK) , intent(in) , optional :: doff
28238 complex(CKG) , intent(in) :: source(:)
28239 complex(CKG) , intent(inout) :: destin(:,:)
28240 end subroutine
28241#endif
28242
28243#if CK4_ENABLED
28244 PURE module subroutine setMatCopy_RDP_LFP_XLD_TSO_CK4(destin, dpack, source, spack, subset, operation, doff)
28245#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28246 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_TSO_CK4
28247#endif
28248 use pm_kind, only: CKG => CK4
28249 type(rdpack_type) , intent(in) :: dpack
28250 type(lfpack_type) , intent(in) :: spack
28251 type(lowDia_type) , intent(in) :: subset
28252 type(transSymm_type) , intent(in) :: operation
28253 integer(IK) , intent(in) , optional :: doff
28254 complex(CKG) , intent(in) :: source(:)
28255 complex(CKG) , intent(inout) :: destin(:,:)
28256 end subroutine
28257#endif
28258
28259#if CK3_ENABLED
28260 PURE module subroutine setMatCopy_RDP_LFP_XLD_TSO_CK3(destin, dpack, source, spack, subset, operation, doff)
28261#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28262 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_TSO_CK3
28263#endif
28264 use pm_kind, only: CKG => CK3
28265 type(rdpack_type) , intent(in) :: dpack
28266 type(lfpack_type) , intent(in) :: spack
28267 type(lowDia_type) , intent(in) :: subset
28268 type(transSymm_type) , intent(in) :: operation
28269 integer(IK) , intent(in) , optional :: doff
28270 complex(CKG) , intent(in) :: source(:)
28271 complex(CKG) , intent(inout) :: destin(:,:)
28272 end subroutine
28273#endif
28274
28275#if CK2_ENABLED
28276 PURE module subroutine setMatCopy_RDP_LFP_XLD_TSO_CK2(destin, dpack, source, spack, subset, operation, doff)
28277#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28278 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_TSO_CK2
28279#endif
28280 use pm_kind, only: CKG => CK2
28281 type(rdpack_type) , intent(in) :: dpack
28282 type(lfpack_type) , intent(in) :: spack
28283 type(lowDia_type) , intent(in) :: subset
28284 type(transSymm_type) , intent(in) :: operation
28285 integer(IK) , intent(in) , optional :: doff
28286 complex(CKG) , intent(in) :: source(:)
28287 complex(CKG) , intent(inout) :: destin(:,:)
28288 end subroutine
28289#endif
28290
28291#if CK1_ENABLED
28292 PURE module subroutine setMatCopy_RDP_LFP_XLD_TSO_CK1(destin, dpack, source, spack, subset, operation, doff)
28293#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28294 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_TSO_CK1
28295#endif
28296 use pm_kind, only: CKG => CK1
28297 type(rdpack_type) , intent(in) :: dpack
28298 type(lfpack_type) , intent(in) :: spack
28299 type(lowDia_type) , intent(in) :: subset
28300 type(transSymm_type) , intent(in) :: operation
28301 integer(IK) , intent(in) , optional :: doff
28302 complex(CKG) , intent(in) :: source(:)
28303 complex(CKG) , intent(inout) :: destin(:,:)
28304 end subroutine
28305#endif
28306
28307 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
28308
28309#if RK5_ENABLED
28310 PURE module subroutine setMatCopy_RDP_LFP_XLD_TSO_RK5(destin, dpack, source, spack, subset, operation, doff)
28311#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28312 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_TSO_RK5
28313#endif
28314 use pm_kind, only: RKG => RK5
28315 type(rdpack_type) , intent(in) :: dpack
28316 type(lfpack_type) , intent(in) :: spack
28317 type(lowDia_type) , intent(in) :: subset
28318 type(transSymm_type) , intent(in) :: operation
28319 integer(IK) , intent(in) , optional :: doff
28320 real(RKG) , intent(in) :: source(:)
28321 real(RKG) , intent(inout) :: destin(:,:)
28322 end subroutine
28323#endif
28324
28325#if RK4_ENABLED
28326 PURE module subroutine setMatCopy_RDP_LFP_XLD_TSO_RK4(destin, dpack, source, spack, subset, operation, doff)
28327#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28328 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_TSO_RK4
28329#endif
28330 use pm_kind, only: RKG => RK4
28331 type(rdpack_type) , intent(in) :: dpack
28332 type(lfpack_type) , intent(in) :: spack
28333 type(lowDia_type) , intent(in) :: subset
28334 type(transSymm_type) , intent(in) :: operation
28335 integer(IK) , intent(in) , optional :: doff
28336 real(RKG) , intent(in) :: source(:)
28337 real(RKG) , intent(inout) :: destin(:,:)
28338 end subroutine
28339#endif
28340
28341#if RK3_ENABLED
28342 PURE module subroutine setMatCopy_RDP_LFP_XLD_TSO_RK3(destin, dpack, source, spack, subset, operation, doff)
28343#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28344 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_TSO_RK3
28345#endif
28346 use pm_kind, only: RKG => RK3
28347 type(rdpack_type) , intent(in) :: dpack
28348 type(lfpack_type) , intent(in) :: spack
28349 type(lowDia_type) , intent(in) :: subset
28350 type(transSymm_type) , intent(in) :: operation
28351 integer(IK) , intent(in) , optional :: doff
28352 real(RKG) , intent(in) :: source(:)
28353 real(RKG) , intent(inout) :: destin(:,:)
28354 end subroutine
28355#endif
28356
28357#if RK2_ENABLED
28358 PURE module subroutine setMatCopy_RDP_LFP_XLD_TSO_RK2(destin, dpack, source, spack, subset, operation, doff)
28359#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28360 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_TSO_RK2
28361#endif
28362 use pm_kind, only: RKG => RK2
28363 type(rdpack_type) , intent(in) :: dpack
28364 type(lfpack_type) , intent(in) :: spack
28365 type(lowDia_type) , intent(in) :: subset
28366 type(transSymm_type) , intent(in) :: operation
28367 integer(IK) , intent(in) , optional :: doff
28368 real(RKG) , intent(in) :: source(:)
28369 real(RKG) , intent(inout) :: destin(:,:)
28370 end subroutine
28371#endif
28372
28373#if RK1_ENABLED
28374 PURE module subroutine setMatCopy_RDP_LFP_XLD_TSO_RK1(destin, dpack, source, spack, subset, operation, doff)
28375#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28376 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_TSO_RK1
28377#endif
28378 use pm_kind, only: RKG => RK1
28379 type(rdpack_type) , intent(in) :: dpack
28380 type(lfpack_type) , intent(in) :: spack
28381 type(lowDia_type) , intent(in) :: subset
28382 type(transSymm_type) , intent(in) :: operation
28383 integer(IK) , intent(in) , optional :: doff
28384 real(RKG) , intent(in) :: source(:)
28385 real(RKG) , intent(inout) :: destin(:,:)
28386 end subroutine
28387#endif
28388
28389 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
28390
28391 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
28392 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
28393 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
28394
28395 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
28396
28397#if SK5_ENABLED
28398 PURE module subroutine setMatCopy_RDP_LFP_XLD_THO_SK5(destin, dpack, source, spack, subset, operation, doff)
28399#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28400 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_THO_SK5
28401#endif
28402 use pm_kind, only: SKG => SK5
28403 type(rdpack_type) , intent(in) :: dpack
28404 type(lfpack_type) , intent(in) :: spack
28405 type(lowDia_type) , intent(in) :: subset
28406 type(transHerm_type) , intent(in) :: operation
28407 integer(IK) , intent(in) , optional :: doff
28408 character(*,SKG) , intent(in) :: source(:)
28409 character(*,SKG) , intent(inout) :: destin(:,:)
28410 end subroutine
28411#endif
28412
28413#if SK4_ENABLED
28414 PURE module subroutine setMatCopy_RDP_LFP_XLD_THO_SK4(destin, dpack, source, spack, subset, operation, doff)
28415#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28416 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_THO_SK4
28417#endif
28418 use pm_kind, only: SKG => SK4
28419 type(rdpack_type) , intent(in) :: dpack
28420 type(lfpack_type) , intent(in) :: spack
28421 type(lowDia_type) , intent(in) :: subset
28422 type(transHerm_type) , intent(in) :: operation
28423 integer(IK) , intent(in) , optional :: doff
28424 character(*,SKG) , intent(in) :: source(:)
28425 character(*,SKG) , intent(inout) :: destin(:,:)
28426 end subroutine
28427#endif
28428
28429#if SK3_ENABLED
28430 PURE module subroutine setMatCopy_RDP_LFP_XLD_THO_SK3(destin, dpack, source, spack, subset, operation, doff)
28431#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28432 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_THO_SK3
28433#endif
28434 use pm_kind, only: SKG => SK3
28435 type(rdpack_type) , intent(in) :: dpack
28436 type(lfpack_type) , intent(in) :: spack
28437 type(lowDia_type) , intent(in) :: subset
28438 type(transHerm_type) , intent(in) :: operation
28439 integer(IK) , intent(in) , optional :: doff
28440 character(*,SKG) , intent(in) :: source(:)
28441 character(*,SKG) , intent(inout) :: destin(:,:)
28442 end subroutine
28443#endif
28444
28445#if SK2_ENABLED
28446 PURE module subroutine setMatCopy_RDP_LFP_XLD_THO_SK2(destin, dpack, source, spack, subset, operation, doff)
28447#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28448 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_THO_SK2
28449#endif
28450 use pm_kind, only: SKG => SK2
28451 type(rdpack_type) , intent(in) :: dpack
28452 type(lfpack_type) , intent(in) :: spack
28453 type(lowDia_type) , intent(in) :: subset
28454 type(transHerm_type) , intent(in) :: operation
28455 integer(IK) , intent(in) , optional :: doff
28456 character(*,SKG) , intent(in) :: source(:)
28457 character(*,SKG) , intent(inout) :: destin(:,:)
28458 end subroutine
28459#endif
28460
28461#if SK1_ENABLED
28462 PURE module subroutine setMatCopy_RDP_LFP_XLD_THO_SK1(destin, dpack, source, spack, subset, operation, doff)
28463#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28464 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_THO_SK1
28465#endif
28466 use pm_kind, only: SKG => SK1
28467 type(rdpack_type) , intent(in) :: dpack
28468 type(lfpack_type) , intent(in) :: spack
28469 type(lowDia_type) , intent(in) :: subset
28470 type(transHerm_type) , intent(in) :: operation
28471 integer(IK) , intent(in) , optional :: doff
28472 character(*,SKG) , intent(in) :: source(:)
28473 character(*,SKG) , intent(inout) :: destin(:,:)
28474 end subroutine
28475#endif
28476
28477 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
28478
28479#if IK5_ENABLED
28480 PURE module subroutine setMatCopy_RDP_LFP_XLD_THO_IK5(destin, dpack, source, spack, subset, operation, doff)
28481#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28482 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_THO_IK5
28483#endif
28484 use pm_kind, only: IKG => IK5
28485 type(rdpack_type) , intent(in) :: dpack
28486 type(lfpack_type) , intent(in) :: spack
28487 type(lowDia_type) , intent(in) :: subset
28488 type(transHerm_type) , intent(in) :: operation
28489 integer(IK) , intent(in) , optional :: doff
28490 integer(IKG) , intent(in) :: source(:)
28491 integer(IKG) , intent(inout) :: destin(:,:)
28492 end subroutine
28493#endif
28494
28495#if IK4_ENABLED
28496 PURE module subroutine setMatCopy_RDP_LFP_XLD_THO_IK4(destin, dpack, source, spack, subset, operation, doff)
28497#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28498 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_THO_IK4
28499#endif
28500 use pm_kind, only: IKG => IK4
28501 type(rdpack_type) , intent(in) :: dpack
28502 type(lfpack_type) , intent(in) :: spack
28503 type(lowDia_type) , intent(in) :: subset
28504 type(transHerm_type) , intent(in) :: operation
28505 integer(IK) , intent(in) , optional :: doff
28506 integer(IKG) , intent(in) :: source(:)
28507 integer(IKG) , intent(inout) :: destin(:,:)
28508 end subroutine
28509#endif
28510
28511#if IK3_ENABLED
28512 PURE module subroutine setMatCopy_RDP_LFP_XLD_THO_IK3(destin, dpack, source, spack, subset, operation, doff)
28513#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28514 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_THO_IK3
28515#endif
28516 use pm_kind, only: IKG => IK3
28517 type(rdpack_type) , intent(in) :: dpack
28518 type(lfpack_type) , intent(in) :: spack
28519 type(lowDia_type) , intent(in) :: subset
28520 type(transHerm_type) , intent(in) :: operation
28521 integer(IK) , intent(in) , optional :: doff
28522 integer(IKG) , intent(in) :: source(:)
28523 integer(IKG) , intent(inout) :: destin(:,:)
28524 end subroutine
28525#endif
28526
28527#if IK2_ENABLED
28528 PURE module subroutine setMatCopy_RDP_LFP_XLD_THO_IK2(destin, dpack, source, spack, subset, operation, doff)
28529#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28530 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_THO_IK2
28531#endif
28532 use pm_kind, only: IKG => IK2
28533 type(rdpack_type) , intent(in) :: dpack
28534 type(lfpack_type) , intent(in) :: spack
28535 type(lowDia_type) , intent(in) :: subset
28536 type(transHerm_type) , intent(in) :: operation
28537 integer(IK) , intent(in) , optional :: doff
28538 integer(IKG) , intent(in) :: source(:)
28539 integer(IKG) , intent(inout) :: destin(:,:)
28540 end subroutine
28541#endif
28542
28543#if IK1_ENABLED
28544 PURE module subroutine setMatCopy_RDP_LFP_XLD_THO_IK1(destin, dpack, source, spack, subset, operation, doff)
28545#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28546 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_THO_IK1
28547#endif
28548 use pm_kind, only: IKG => IK1
28549 type(rdpack_type) , intent(in) :: dpack
28550 type(lfpack_type) , intent(in) :: spack
28551 type(lowDia_type) , intent(in) :: subset
28552 type(transHerm_type) , intent(in) :: operation
28553 integer(IK) , intent(in) , optional :: doff
28554 integer(IKG) , intent(in) :: source(:)
28555 integer(IKG) , intent(inout) :: destin(:,:)
28556 end subroutine
28557#endif
28558
28559 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
28560
28561#if LK5_ENABLED
28562 PURE module subroutine setMatCopy_RDP_LFP_XLD_THO_LK5(destin, dpack, source, spack, subset, operation, doff)
28563#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28564 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_THO_LK5
28565#endif
28566 use pm_kind, only: LKG => LK5
28567 type(rdpack_type) , intent(in) :: dpack
28568 type(lfpack_type) , intent(in) :: spack
28569 type(lowDia_type) , intent(in) :: subset
28570 type(transHerm_type) , intent(in) :: operation
28571 integer(IK) , intent(in) , optional :: doff
28572 logical(LKG) , intent(in) :: source(:)
28573 logical(LKG) , intent(inout) :: destin(:,:)
28574 end subroutine
28575#endif
28576
28577#if LK4_ENABLED
28578 PURE module subroutine setMatCopy_RDP_LFP_XLD_THO_LK4(destin, dpack, source, spack, subset, operation, doff)
28579#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28580 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_THO_LK4
28581#endif
28582 use pm_kind, only: LKG => LK4
28583 type(rdpack_type) , intent(in) :: dpack
28584 type(lfpack_type) , intent(in) :: spack
28585 type(lowDia_type) , intent(in) :: subset
28586 type(transHerm_type) , intent(in) :: operation
28587 integer(IK) , intent(in) , optional :: doff
28588 logical(LKG) , intent(in) :: source(:)
28589 logical(LKG) , intent(inout) :: destin(:,:)
28590 end subroutine
28591#endif
28592
28593#if LK3_ENABLED
28594 PURE module subroutine setMatCopy_RDP_LFP_XLD_THO_LK3(destin, dpack, source, spack, subset, operation, doff)
28595#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28596 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_THO_LK3
28597#endif
28598 use pm_kind, only: LKG => LK3
28599 type(rdpack_type) , intent(in) :: dpack
28600 type(lfpack_type) , intent(in) :: spack
28601 type(lowDia_type) , intent(in) :: subset
28602 type(transHerm_type) , intent(in) :: operation
28603 integer(IK) , intent(in) , optional :: doff
28604 logical(LKG) , intent(in) :: source(:)
28605 logical(LKG) , intent(inout) :: destin(:,:)
28606 end subroutine
28607#endif
28608
28609#if LK2_ENABLED
28610 PURE module subroutine setMatCopy_RDP_LFP_XLD_THO_LK2(destin, dpack, source, spack, subset, operation, doff)
28611#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28612 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_THO_LK2
28613#endif
28614 use pm_kind, only: LKG => LK2
28615 type(rdpack_type) , intent(in) :: dpack
28616 type(lfpack_type) , intent(in) :: spack
28617 type(lowDia_type) , intent(in) :: subset
28618 type(transHerm_type) , intent(in) :: operation
28619 integer(IK) , intent(in) , optional :: doff
28620 logical(LKG) , intent(in) :: source(:)
28621 logical(LKG) , intent(inout) :: destin(:,:)
28622 end subroutine
28623#endif
28624
28625#if LK1_ENABLED
28626 PURE module subroutine setMatCopy_RDP_LFP_XLD_THO_LK1(destin, dpack, source, spack, subset, operation, doff)
28627#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28628 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_THO_LK1
28629#endif
28630 use pm_kind, only: LKG => LK1
28631 type(rdpack_type) , intent(in) :: dpack
28632 type(lfpack_type) , intent(in) :: spack
28633 type(lowDia_type) , intent(in) :: subset
28634 type(transHerm_type) , intent(in) :: operation
28635 integer(IK) , intent(in) , optional :: doff
28636 logical(LKG) , intent(in) :: source(:)
28637 logical(LKG) , intent(inout) :: destin(:,:)
28638 end subroutine
28639#endif
28640
28641 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
28642
28643#if CK5_ENABLED
28644 PURE module subroutine setMatCopy_RDP_LFP_XLD_THO_CK5(destin, dpack, source, spack, subset, operation, doff)
28645#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28646 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_THO_CK5
28647#endif
28648 use pm_kind, only: CKG => CK5
28649 type(rdpack_type) , intent(in) :: dpack
28650 type(lfpack_type) , intent(in) :: spack
28651 type(lowDia_type) , intent(in) :: subset
28652 type(transHerm_type) , intent(in) :: operation
28653 integer(IK) , intent(in) , optional :: doff
28654 complex(CKG) , intent(in) :: source(:)
28655 complex(CKG) , intent(inout) :: destin(:,:)
28656 end subroutine
28657#endif
28658
28659#if CK4_ENABLED
28660 PURE module subroutine setMatCopy_RDP_LFP_XLD_THO_CK4(destin, dpack, source, spack, subset, operation, doff)
28661#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28662 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_THO_CK4
28663#endif
28664 use pm_kind, only: CKG => CK4
28665 type(rdpack_type) , intent(in) :: dpack
28666 type(lfpack_type) , intent(in) :: spack
28667 type(lowDia_type) , intent(in) :: subset
28668 type(transHerm_type) , intent(in) :: operation
28669 integer(IK) , intent(in) , optional :: doff
28670 complex(CKG) , intent(in) :: source(:)
28671 complex(CKG) , intent(inout) :: destin(:,:)
28672 end subroutine
28673#endif
28674
28675#if CK3_ENABLED
28676 PURE module subroutine setMatCopy_RDP_LFP_XLD_THO_CK3(destin, dpack, source, spack, subset, operation, doff)
28677#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28678 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_THO_CK3
28679#endif
28680 use pm_kind, only: CKG => CK3
28681 type(rdpack_type) , intent(in) :: dpack
28682 type(lfpack_type) , intent(in) :: spack
28683 type(lowDia_type) , intent(in) :: subset
28684 type(transHerm_type) , intent(in) :: operation
28685 integer(IK) , intent(in) , optional :: doff
28686 complex(CKG) , intent(in) :: source(:)
28687 complex(CKG) , intent(inout) :: destin(:,:)
28688 end subroutine
28689#endif
28690
28691#if CK2_ENABLED
28692 PURE module subroutine setMatCopy_RDP_LFP_XLD_THO_CK2(destin, dpack, source, spack, subset, operation, doff)
28693#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28694 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_THO_CK2
28695#endif
28696 use pm_kind, only: CKG => CK2
28697 type(rdpack_type) , intent(in) :: dpack
28698 type(lfpack_type) , intent(in) :: spack
28699 type(lowDia_type) , intent(in) :: subset
28700 type(transHerm_type) , intent(in) :: operation
28701 integer(IK) , intent(in) , optional :: doff
28702 complex(CKG) , intent(in) :: source(:)
28703 complex(CKG) , intent(inout) :: destin(:,:)
28704 end subroutine
28705#endif
28706
28707#if CK1_ENABLED
28708 PURE module subroutine setMatCopy_RDP_LFP_XLD_THO_CK1(destin, dpack, source, spack, subset, operation, doff)
28709#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28710 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_THO_CK1
28711#endif
28712 use pm_kind, only: CKG => CK1
28713 type(rdpack_type) , intent(in) :: dpack
28714 type(lfpack_type) , intent(in) :: spack
28715 type(lowDia_type) , intent(in) :: subset
28716 type(transHerm_type) , intent(in) :: operation
28717 integer(IK) , intent(in) , optional :: doff
28718 complex(CKG) , intent(in) :: source(:)
28719 complex(CKG) , intent(inout) :: destin(:,:)
28720 end subroutine
28721#endif
28722
28723 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
28724
28725#if RK5_ENABLED
28726 PURE module subroutine setMatCopy_RDP_LFP_XLD_THO_RK5(destin, dpack, source, spack, subset, operation, doff)
28727#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28728 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_THO_RK5
28729#endif
28730 use pm_kind, only: RKG => RK5
28731 type(rdpack_type) , intent(in) :: dpack
28732 type(lfpack_type) , intent(in) :: spack
28733 type(lowDia_type) , intent(in) :: subset
28734 type(transHerm_type) , intent(in) :: operation
28735 integer(IK) , intent(in) , optional :: doff
28736 real(RKG) , intent(in) :: source(:)
28737 real(RKG) , intent(inout) :: destin(:,:)
28738 end subroutine
28739#endif
28740
28741#if RK4_ENABLED
28742 PURE module subroutine setMatCopy_RDP_LFP_XLD_THO_RK4(destin, dpack, source, spack, subset, operation, doff)
28743#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28744 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_THO_RK4
28745#endif
28746 use pm_kind, only: RKG => RK4
28747 type(rdpack_type) , intent(in) :: dpack
28748 type(lfpack_type) , intent(in) :: spack
28749 type(lowDia_type) , intent(in) :: subset
28750 type(transHerm_type) , intent(in) :: operation
28751 integer(IK) , intent(in) , optional :: doff
28752 real(RKG) , intent(in) :: source(:)
28753 real(RKG) , intent(inout) :: destin(:,:)
28754 end subroutine
28755#endif
28756
28757#if RK3_ENABLED
28758 PURE module subroutine setMatCopy_RDP_LFP_XLD_THO_RK3(destin, dpack, source, spack, subset, operation, doff)
28759#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28760 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_THO_RK3
28761#endif
28762 use pm_kind, only: RKG => RK3
28763 type(rdpack_type) , intent(in) :: dpack
28764 type(lfpack_type) , intent(in) :: spack
28765 type(lowDia_type) , intent(in) :: subset
28766 type(transHerm_type) , intent(in) :: operation
28767 integer(IK) , intent(in) , optional :: doff
28768 real(RKG) , intent(in) :: source(:)
28769 real(RKG) , intent(inout) :: destin(:,:)
28770 end subroutine
28771#endif
28772
28773#if RK2_ENABLED
28774 PURE module subroutine setMatCopy_RDP_LFP_XLD_THO_RK2(destin, dpack, source, spack, subset, operation, doff)
28775#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28776 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_THO_RK2
28777#endif
28778 use pm_kind, only: RKG => RK2
28779 type(rdpack_type) , intent(in) :: dpack
28780 type(lfpack_type) , intent(in) :: spack
28781 type(lowDia_type) , intent(in) :: subset
28782 type(transHerm_type) , intent(in) :: operation
28783 integer(IK) , intent(in) , optional :: doff
28784 real(RKG) , intent(in) :: source(:)
28785 real(RKG) , intent(inout) :: destin(:,:)
28786 end subroutine
28787#endif
28788
28789#if RK1_ENABLED
28790 PURE module subroutine setMatCopy_RDP_LFP_XLD_THO_RK1(destin, dpack, source, spack, subset, operation, doff)
28791#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28792 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_LFP_XLD_THO_RK1
28793#endif
28794 use pm_kind, only: RKG => RK1
28795 type(rdpack_type) , intent(in) :: dpack
28796 type(lfpack_type) , intent(in) :: spack
28797 type(lowDia_type) , intent(in) :: subset
28798 type(transHerm_type) , intent(in) :: operation
28799 integer(IK) , intent(in) , optional :: doff
28800 real(RKG) , intent(in) :: source(:)
28801 real(RKG) , intent(inout) :: destin(:,:)
28802 end subroutine
28803#endif
28804
28805 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
28806
28807 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
28808 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
28809 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
28810
28811 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
28812 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
28813 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
28814
28815 end interface setMatCopy
28816
28817 ! package: lfpack, rdpack
28818
28819 interface setMatCopy
28820
28821 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
28822 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
28823 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
28824
28825 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
28826 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
28827 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
28828
28829 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
28830
28831#if SK5_ENABLED
28832 PURE module subroutine setMatCopy_LFP_RDP_XXD_AIO_SK5(destin, dpack, source, spack, subset, doff)
28833#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28834 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_AIO_SK5
28835#endif
28836 use pm_kind, only: SKG => SK5
28837 type(lfpack_type) , intent(in) :: dpack
28838 type(rdpack_type) , intent(in) :: spack
28839 type(dia_type) , intent(in) :: subset
28840 integer(IK) , intent(in) , optional :: doff
28841 character(*,SKG) , intent(in) :: source(:,:)
28842 character(*,SKG) , intent(inout) :: destin(:)
28843 end subroutine
28844#endif
28845
28846#if SK4_ENABLED
28847 PURE module subroutine setMatCopy_LFP_RDP_XXD_AIO_SK4(destin, dpack, source, spack, subset, doff)
28848#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28849 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_AIO_SK4
28850#endif
28851 use pm_kind, only: SKG => SK4
28852 type(lfpack_type) , intent(in) :: dpack
28853 type(rdpack_type) , intent(in) :: spack
28854 type(dia_type) , intent(in) :: subset
28855 integer(IK) , intent(in) , optional :: doff
28856 character(*,SKG) , intent(in) :: source(:,:)
28857 character(*,SKG) , intent(inout) :: destin(:)
28858 end subroutine
28859#endif
28860
28861#if SK3_ENABLED
28862 PURE module subroutine setMatCopy_LFP_RDP_XXD_AIO_SK3(destin, dpack, source, spack, subset, doff)
28863#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28864 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_AIO_SK3
28865#endif
28866 use pm_kind, only: SKG => SK3
28867 type(lfpack_type) , intent(in) :: dpack
28868 type(rdpack_type) , intent(in) :: spack
28869 type(dia_type) , intent(in) :: subset
28870 integer(IK) , intent(in) , optional :: doff
28871 character(*,SKG) , intent(in) :: source(:,:)
28872 character(*,SKG) , intent(inout) :: destin(:)
28873 end subroutine
28874#endif
28875
28876#if SK2_ENABLED
28877 PURE module subroutine setMatCopy_LFP_RDP_XXD_AIO_SK2(destin, dpack, source, spack, subset, doff)
28878#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28879 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_AIO_SK2
28880#endif
28881 use pm_kind, only: SKG => SK2
28882 type(lfpack_type) , intent(in) :: dpack
28883 type(rdpack_type) , intent(in) :: spack
28884 type(dia_type) , intent(in) :: subset
28885 integer(IK) , intent(in) , optional :: doff
28886 character(*,SKG) , intent(in) :: source(:,:)
28887 character(*,SKG) , intent(inout) :: destin(:)
28888 end subroutine
28889#endif
28890
28891#if SK1_ENABLED
28892 PURE module subroutine setMatCopy_LFP_RDP_XXD_AIO_SK1(destin, dpack, source, spack, subset, doff)
28893#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28894 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_AIO_SK1
28895#endif
28896 use pm_kind, only: SKG => SK1
28897 type(lfpack_type) , intent(in) :: dpack
28898 type(rdpack_type) , intent(in) :: spack
28899 type(dia_type) , intent(in) :: subset
28900 integer(IK) , intent(in) , optional :: doff
28901 character(*,SKG) , intent(in) :: source(:,:)
28902 character(*,SKG) , intent(inout) :: destin(:)
28903 end subroutine
28904#endif
28905
28906 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
28907
28908#if IK5_ENABLED
28909 PURE module subroutine setMatCopy_LFP_RDP_XXD_AIO_IK5(destin, dpack, source, spack, subset, doff)
28910#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28911 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_AIO_IK5
28912#endif
28913 use pm_kind, only: IKG => IK5
28914 type(lfpack_type) , intent(in) :: dpack
28915 type(rdpack_type) , intent(in) :: spack
28916 type(dia_type) , intent(in) :: subset
28917 integer(IK) , intent(in) , optional :: doff
28918 integer(IKG) , intent(in) :: source(:,:)
28919 integer(IKG) , intent(inout) :: destin(:)
28920 end subroutine
28921#endif
28922
28923#if IK4_ENABLED
28924 PURE module subroutine setMatCopy_LFP_RDP_XXD_AIO_IK4(destin, dpack, source, spack, subset, doff)
28925#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28926 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_AIO_IK4
28927#endif
28928 use pm_kind, only: IKG => IK4
28929 type(lfpack_type) , intent(in) :: dpack
28930 type(rdpack_type) , intent(in) :: spack
28931 type(dia_type) , intent(in) :: subset
28932 integer(IK) , intent(in) , optional :: doff
28933 integer(IKG) , intent(in) :: source(:,:)
28934 integer(IKG) , intent(inout) :: destin(:)
28935 end subroutine
28936#endif
28937
28938#if IK3_ENABLED
28939 PURE module subroutine setMatCopy_LFP_RDP_XXD_AIO_IK3(destin, dpack, source, spack, subset, doff)
28940#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28941 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_AIO_IK3
28942#endif
28943 use pm_kind, only: IKG => IK3
28944 type(lfpack_type) , intent(in) :: dpack
28945 type(rdpack_type) , intent(in) :: spack
28946 type(dia_type) , intent(in) :: subset
28947 integer(IK) , intent(in) , optional :: doff
28948 integer(IKG) , intent(in) :: source(:,:)
28949 integer(IKG) , intent(inout) :: destin(:)
28950 end subroutine
28951#endif
28952
28953#if IK2_ENABLED
28954 PURE module subroutine setMatCopy_LFP_RDP_XXD_AIO_IK2(destin, dpack, source, spack, subset, doff)
28955#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28956 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_AIO_IK2
28957#endif
28958 use pm_kind, only: IKG => IK2
28959 type(lfpack_type) , intent(in) :: dpack
28960 type(rdpack_type) , intent(in) :: spack
28961 type(dia_type) , intent(in) :: subset
28962 integer(IK) , intent(in) , optional :: doff
28963 integer(IKG) , intent(in) :: source(:,:)
28964 integer(IKG) , intent(inout) :: destin(:)
28965 end subroutine
28966#endif
28967
28968#if IK1_ENABLED
28969 PURE module subroutine setMatCopy_LFP_RDP_XXD_AIO_IK1(destin, dpack, source, spack, subset, doff)
28970#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28971 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_AIO_IK1
28972#endif
28973 use pm_kind, only: IKG => IK1
28974 type(lfpack_type) , intent(in) :: dpack
28975 type(rdpack_type) , intent(in) :: spack
28976 type(dia_type) , intent(in) :: subset
28977 integer(IK) , intent(in) , optional :: doff
28978 integer(IKG) , intent(in) :: source(:,:)
28979 integer(IKG) , intent(inout) :: destin(:)
28980 end subroutine
28981#endif
28982
28983 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
28984
28985#if LK5_ENABLED
28986 PURE module subroutine setMatCopy_LFP_RDP_XXD_AIO_LK5(destin, dpack, source, spack, subset, doff)
28987#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
28988 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_AIO_LK5
28989#endif
28990 use pm_kind, only: LKG => LK5
28991 type(lfpack_type) , intent(in) :: dpack
28992 type(rdpack_type) , intent(in) :: spack
28993 type(dia_type) , intent(in) :: subset
28994 integer(IK) , intent(in) , optional :: doff
28995 logical(LKG) , intent(in) :: source(:,:)
28996 logical(LKG) , intent(inout) :: destin(:)
28997 end subroutine
28998#endif
28999
29000#if LK4_ENABLED
29001 PURE module subroutine setMatCopy_LFP_RDP_XXD_AIO_LK4(destin, dpack, source, spack, subset, doff)
29002#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29003 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_AIO_LK4
29004#endif
29005 use pm_kind, only: LKG => LK4
29006 type(lfpack_type) , intent(in) :: dpack
29007 type(rdpack_type) , intent(in) :: spack
29008 type(dia_type) , intent(in) :: subset
29009 integer(IK) , intent(in) , optional :: doff
29010 logical(LKG) , intent(in) :: source(:,:)
29011 logical(LKG) , intent(inout) :: destin(:)
29012 end subroutine
29013#endif
29014
29015#if LK3_ENABLED
29016 PURE module subroutine setMatCopy_LFP_RDP_XXD_AIO_LK3(destin, dpack, source, spack, subset, doff)
29017#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29018 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_AIO_LK3
29019#endif
29020 use pm_kind, only: LKG => LK3
29021 type(lfpack_type) , intent(in) :: dpack
29022 type(rdpack_type) , intent(in) :: spack
29023 type(dia_type) , intent(in) :: subset
29024 integer(IK) , intent(in) , optional :: doff
29025 logical(LKG) , intent(in) :: source(:,:)
29026 logical(LKG) , intent(inout) :: destin(:)
29027 end subroutine
29028#endif
29029
29030#if LK2_ENABLED
29031 PURE module subroutine setMatCopy_LFP_RDP_XXD_AIO_LK2(destin, dpack, source, spack, subset, doff)
29032#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29033 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_AIO_LK2
29034#endif
29035 use pm_kind, only: LKG => LK2
29036 type(lfpack_type) , intent(in) :: dpack
29037 type(rdpack_type) , intent(in) :: spack
29038 type(dia_type) , intent(in) :: subset
29039 integer(IK) , intent(in) , optional :: doff
29040 logical(LKG) , intent(in) :: source(:,:)
29041 logical(LKG) , intent(inout) :: destin(:)
29042 end subroutine
29043#endif
29044
29045#if LK1_ENABLED
29046 PURE module subroutine setMatCopy_LFP_RDP_XXD_AIO_LK1(destin, dpack, source, spack, subset, doff)
29047#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29048 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_AIO_LK1
29049#endif
29050 use pm_kind, only: LKG => LK1
29051 type(lfpack_type) , intent(in) :: dpack
29052 type(rdpack_type) , intent(in) :: spack
29053 type(dia_type) , intent(in) :: subset
29054 integer(IK) , intent(in) , optional :: doff
29055 logical(LKG) , intent(in) :: source(:,:)
29056 logical(LKG) , intent(inout) :: destin(:)
29057 end subroutine
29058#endif
29059
29060 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
29061
29062#if CK5_ENABLED
29063 PURE module subroutine setMatCopy_LFP_RDP_XXD_AIO_CK5(destin, dpack, source, spack, subset, doff)
29064#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29065 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_AIO_CK5
29066#endif
29067 use pm_kind, only: CKG => CK5
29068 type(lfpack_type) , intent(in) :: dpack
29069 type(rdpack_type) , intent(in) :: spack
29070 type(dia_type) , intent(in) :: subset
29071 integer(IK) , intent(in) , optional :: doff
29072 complex(CKG) , intent(in) :: source(:,:)
29073 complex(CKG) , intent(inout) :: destin(:)
29074 end subroutine
29075#endif
29076
29077#if CK4_ENABLED
29078 PURE module subroutine setMatCopy_LFP_RDP_XXD_AIO_CK4(destin, dpack, source, spack, subset, doff)
29079#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29080 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_AIO_CK4
29081#endif
29082 use pm_kind, only: CKG => CK4
29083 type(lfpack_type) , intent(in) :: dpack
29084 type(rdpack_type) , intent(in) :: spack
29085 type(dia_type) , intent(in) :: subset
29086 integer(IK) , intent(in) , optional :: doff
29087 complex(CKG) , intent(in) :: source(:,:)
29088 complex(CKG) , intent(inout) :: destin(:)
29089 end subroutine
29090#endif
29091
29092#if CK3_ENABLED
29093 PURE module subroutine setMatCopy_LFP_RDP_XXD_AIO_CK3(destin, dpack, source, spack, subset, doff)
29094#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29095 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_AIO_CK3
29096#endif
29097 use pm_kind, only: CKG => CK3
29098 type(lfpack_type) , intent(in) :: dpack
29099 type(rdpack_type) , intent(in) :: spack
29100 type(dia_type) , intent(in) :: subset
29101 integer(IK) , intent(in) , optional :: doff
29102 complex(CKG) , intent(in) :: source(:,:)
29103 complex(CKG) , intent(inout) :: destin(:)
29104 end subroutine
29105#endif
29106
29107#if CK2_ENABLED
29108 PURE module subroutine setMatCopy_LFP_RDP_XXD_AIO_CK2(destin, dpack, source, spack, subset, doff)
29109#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29110 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_AIO_CK2
29111#endif
29112 use pm_kind, only: CKG => CK2
29113 type(lfpack_type) , intent(in) :: dpack
29114 type(rdpack_type) , intent(in) :: spack
29115 type(dia_type) , intent(in) :: subset
29116 integer(IK) , intent(in) , optional :: doff
29117 complex(CKG) , intent(in) :: source(:,:)
29118 complex(CKG) , intent(inout) :: destin(:)
29119 end subroutine
29120#endif
29121
29122#if CK1_ENABLED
29123 PURE module subroutine setMatCopy_LFP_RDP_XXD_AIO_CK1(destin, dpack, source, spack, subset, doff)
29124#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29125 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_AIO_CK1
29126#endif
29127 use pm_kind, only: CKG => CK1
29128 type(lfpack_type) , intent(in) :: dpack
29129 type(rdpack_type) , intent(in) :: spack
29130 type(dia_type) , intent(in) :: subset
29131 integer(IK) , intent(in) , optional :: doff
29132 complex(CKG) , intent(in) :: source(:,:)
29133 complex(CKG) , intent(inout) :: destin(:)
29134 end subroutine
29135#endif
29136
29137 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
29138
29139#if RK5_ENABLED
29140 PURE module subroutine setMatCopy_LFP_RDP_XXD_AIO_RK5(destin, dpack, source, spack, subset, doff)
29141#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29142 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_AIO_RK5
29143#endif
29144 use pm_kind, only: RKG => RK5
29145 type(lfpack_type) , intent(in) :: dpack
29146 type(rdpack_type) , intent(in) :: spack
29147 type(dia_type) , intent(in) :: subset
29148 integer(IK) , intent(in) , optional :: doff
29149 real(RKG) , intent(in) :: source(:,:)
29150 real(RKG) , intent(inout) :: destin(:)
29151 end subroutine
29152#endif
29153
29154#if RK4_ENABLED
29155 PURE module subroutine setMatCopy_LFP_RDP_XXD_AIO_RK4(destin, dpack, source, spack, subset, doff)
29156#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29157 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_AIO_RK4
29158#endif
29159 use pm_kind, only: RKG => RK4
29160 type(lfpack_type) , intent(in) :: dpack
29161 type(rdpack_type) , intent(in) :: spack
29162 type(dia_type) , intent(in) :: subset
29163 integer(IK) , intent(in) , optional :: doff
29164 real(RKG) , intent(in) :: source(:,:)
29165 real(RKG) , intent(inout) :: destin(:)
29166 end subroutine
29167#endif
29168
29169#if RK3_ENABLED
29170 PURE module subroutine setMatCopy_LFP_RDP_XXD_AIO_RK3(destin, dpack, source, spack, subset, doff)
29171#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29172 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_AIO_RK3
29173#endif
29174 use pm_kind, only: RKG => RK3
29175 type(lfpack_type) , intent(in) :: dpack
29176 type(rdpack_type) , intent(in) :: spack
29177 type(dia_type) , intent(in) :: subset
29178 integer(IK) , intent(in) , optional :: doff
29179 real(RKG) , intent(in) :: source(:,:)
29180 real(RKG) , intent(inout) :: destin(:)
29181 end subroutine
29182#endif
29183
29184#if RK2_ENABLED
29185 PURE module subroutine setMatCopy_LFP_RDP_XXD_AIO_RK2(destin, dpack, source, spack, subset, doff)
29186#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29187 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_AIO_RK2
29188#endif
29189 use pm_kind, only: RKG => RK2
29190 type(lfpack_type) , intent(in) :: dpack
29191 type(rdpack_type) , intent(in) :: spack
29192 type(dia_type) , intent(in) :: subset
29193 integer(IK) , intent(in) , optional :: doff
29194 real(RKG) , intent(in) :: source(:,:)
29195 real(RKG) , intent(inout) :: destin(:)
29196 end subroutine
29197#endif
29198
29199#if RK1_ENABLED
29200 PURE module subroutine setMatCopy_LFP_RDP_XXD_AIO_RK1(destin, dpack, source, spack, subset, doff)
29201#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29202 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_AIO_RK1
29203#endif
29204 use pm_kind, only: RKG => RK1
29205 type(lfpack_type) , intent(in) :: dpack
29206 type(rdpack_type) , intent(in) :: spack
29207 type(dia_type) , intent(in) :: subset
29208 integer(IK) , intent(in) , optional :: doff
29209 real(RKG) , intent(in) :: source(:,:)
29210 real(RKG) , intent(inout) :: destin(:)
29211 end subroutine
29212#endif
29213
29214 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
29215
29216 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
29217 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
29218 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
29219
29220 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
29221
29222#if SK5_ENABLED
29223 PURE module subroutine setMatCopy_LFP_RDP_XXD_TSO_SK5(destin, dpack, source, spack, subset, operation, doff)
29224#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29225 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_TSO_SK5
29226#endif
29227 use pm_kind, only: SKG => SK5
29228 type(lfpack_type) , intent(in) :: dpack
29229 type(rdpack_type) , intent(in) :: spack
29230 type(dia_type) , intent(in) :: subset
29231 type(transSymm_type) , intent(in) :: operation
29232 integer(IK) , intent(in) , optional :: doff
29233 character(*,SKG) , intent(in) :: source(:,:)
29234 character(*,SKG) , intent(inout) :: destin(:)
29235 end subroutine
29236#endif
29237
29238#if SK4_ENABLED
29239 PURE module subroutine setMatCopy_LFP_RDP_XXD_TSO_SK4(destin, dpack, source, spack, subset, operation, doff)
29240#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29241 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_TSO_SK4
29242#endif
29243 use pm_kind, only: SKG => SK4
29244 type(lfpack_type) , intent(in) :: dpack
29245 type(rdpack_type) , intent(in) :: spack
29246 type(dia_type) , intent(in) :: subset
29247 type(transSymm_type) , intent(in) :: operation
29248 integer(IK) , intent(in) , optional :: doff
29249 character(*,SKG) , intent(in) :: source(:,:)
29250 character(*,SKG) , intent(inout) :: destin(:)
29251 end subroutine
29252#endif
29253
29254#if SK3_ENABLED
29255 PURE module subroutine setMatCopy_LFP_RDP_XXD_TSO_SK3(destin, dpack, source, spack, subset, operation, doff)
29256#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29257 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_TSO_SK3
29258#endif
29259 use pm_kind, only: SKG => SK3
29260 type(lfpack_type) , intent(in) :: dpack
29261 type(rdpack_type) , intent(in) :: spack
29262 type(dia_type) , intent(in) :: subset
29263 type(transSymm_type) , intent(in) :: operation
29264 integer(IK) , intent(in) , optional :: doff
29265 character(*,SKG) , intent(in) :: source(:,:)
29266 character(*,SKG) , intent(inout) :: destin(:)
29267 end subroutine
29268#endif
29269
29270#if SK2_ENABLED
29271 PURE module subroutine setMatCopy_LFP_RDP_XXD_TSO_SK2(destin, dpack, source, spack, subset, operation, doff)
29272#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29273 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_TSO_SK2
29274#endif
29275 use pm_kind, only: SKG => SK2
29276 type(lfpack_type) , intent(in) :: dpack
29277 type(rdpack_type) , intent(in) :: spack
29278 type(dia_type) , intent(in) :: subset
29279 type(transSymm_type) , intent(in) :: operation
29280 integer(IK) , intent(in) , optional :: doff
29281 character(*,SKG) , intent(in) :: source(:,:)
29282 character(*,SKG) , intent(inout) :: destin(:)
29283 end subroutine
29284#endif
29285
29286#if SK1_ENABLED
29287 PURE module subroutine setMatCopy_LFP_RDP_XXD_TSO_SK1(destin, dpack, source, spack, subset, operation, doff)
29288#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29289 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_TSO_SK1
29290#endif
29291 use pm_kind, only: SKG => SK1
29292 type(lfpack_type) , intent(in) :: dpack
29293 type(rdpack_type) , intent(in) :: spack
29294 type(dia_type) , intent(in) :: subset
29295 type(transSymm_type) , intent(in) :: operation
29296 integer(IK) , intent(in) , optional :: doff
29297 character(*,SKG) , intent(in) :: source(:,:)
29298 character(*,SKG) , intent(inout) :: destin(:)
29299 end subroutine
29300#endif
29301
29302 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
29303
29304#if IK5_ENABLED
29305 PURE module subroutine setMatCopy_LFP_RDP_XXD_TSO_IK5(destin, dpack, source, spack, subset, operation, doff)
29306#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29307 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_TSO_IK5
29308#endif
29309 use pm_kind, only: IKG => IK5
29310 type(lfpack_type) , intent(in) :: dpack
29311 type(rdpack_type) , intent(in) :: spack
29312 type(dia_type) , intent(in) :: subset
29313 type(transSymm_type) , intent(in) :: operation
29314 integer(IK) , intent(in) , optional :: doff
29315 integer(IKG) , intent(in) :: source(:,:)
29316 integer(IKG) , intent(inout) :: destin(:)
29317 end subroutine
29318#endif
29319
29320#if IK4_ENABLED
29321 PURE module subroutine setMatCopy_LFP_RDP_XXD_TSO_IK4(destin, dpack, source, spack, subset, operation, doff)
29322#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29323 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_TSO_IK4
29324#endif
29325 use pm_kind, only: IKG => IK4
29326 type(lfpack_type) , intent(in) :: dpack
29327 type(rdpack_type) , intent(in) :: spack
29328 type(dia_type) , intent(in) :: subset
29329 type(transSymm_type) , intent(in) :: operation
29330 integer(IK) , intent(in) , optional :: doff
29331 integer(IKG) , intent(in) :: source(:,:)
29332 integer(IKG) , intent(inout) :: destin(:)
29333 end subroutine
29334#endif
29335
29336#if IK3_ENABLED
29337 PURE module subroutine setMatCopy_LFP_RDP_XXD_TSO_IK3(destin, dpack, source, spack, subset, operation, doff)
29338#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29339 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_TSO_IK3
29340#endif
29341 use pm_kind, only: IKG => IK3
29342 type(lfpack_type) , intent(in) :: dpack
29343 type(rdpack_type) , intent(in) :: spack
29344 type(dia_type) , intent(in) :: subset
29345 type(transSymm_type) , intent(in) :: operation
29346 integer(IK) , intent(in) , optional :: doff
29347 integer(IKG) , intent(in) :: source(:,:)
29348 integer(IKG) , intent(inout) :: destin(:)
29349 end subroutine
29350#endif
29351
29352#if IK2_ENABLED
29353 PURE module subroutine setMatCopy_LFP_RDP_XXD_TSO_IK2(destin, dpack, source, spack, subset, operation, doff)
29354#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29355 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_TSO_IK2
29356#endif
29357 use pm_kind, only: IKG => IK2
29358 type(lfpack_type) , intent(in) :: dpack
29359 type(rdpack_type) , intent(in) :: spack
29360 type(dia_type) , intent(in) :: subset
29361 type(transSymm_type) , intent(in) :: operation
29362 integer(IK) , intent(in) , optional :: doff
29363 integer(IKG) , intent(in) :: source(:,:)
29364 integer(IKG) , intent(inout) :: destin(:)
29365 end subroutine
29366#endif
29367
29368#if IK1_ENABLED
29369 PURE module subroutine setMatCopy_LFP_RDP_XXD_TSO_IK1(destin, dpack, source, spack, subset, operation, doff)
29370#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29371 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_TSO_IK1
29372#endif
29373 use pm_kind, only: IKG => IK1
29374 type(lfpack_type) , intent(in) :: dpack
29375 type(rdpack_type) , intent(in) :: spack
29376 type(dia_type) , intent(in) :: subset
29377 type(transSymm_type) , intent(in) :: operation
29378 integer(IK) , intent(in) , optional :: doff
29379 integer(IKG) , intent(in) :: source(:,:)
29380 integer(IKG) , intent(inout) :: destin(:)
29381 end subroutine
29382#endif
29383
29384 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
29385
29386#if LK5_ENABLED
29387 PURE module subroutine setMatCopy_LFP_RDP_XXD_TSO_LK5(destin, dpack, source, spack, subset, operation, doff)
29388#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29389 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_TSO_LK5
29390#endif
29391 use pm_kind, only: LKG => LK5
29392 type(lfpack_type) , intent(in) :: dpack
29393 type(rdpack_type) , intent(in) :: spack
29394 type(dia_type) , intent(in) :: subset
29395 type(transSymm_type) , intent(in) :: operation
29396 integer(IK) , intent(in) , optional :: doff
29397 logical(LKG) , intent(in) :: source(:,:)
29398 logical(LKG) , intent(inout) :: destin(:)
29399 end subroutine
29400#endif
29401
29402#if LK4_ENABLED
29403 PURE module subroutine setMatCopy_LFP_RDP_XXD_TSO_LK4(destin, dpack, source, spack, subset, operation, doff)
29404#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29405 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_TSO_LK4
29406#endif
29407 use pm_kind, only: LKG => LK4
29408 type(lfpack_type) , intent(in) :: dpack
29409 type(rdpack_type) , intent(in) :: spack
29410 type(dia_type) , intent(in) :: subset
29411 type(transSymm_type) , intent(in) :: operation
29412 integer(IK) , intent(in) , optional :: doff
29413 logical(LKG) , intent(in) :: source(:,:)
29414 logical(LKG) , intent(inout) :: destin(:)
29415 end subroutine
29416#endif
29417
29418#if LK3_ENABLED
29419 PURE module subroutine setMatCopy_LFP_RDP_XXD_TSO_LK3(destin, dpack, source, spack, subset, operation, doff)
29420#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29421 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_TSO_LK3
29422#endif
29423 use pm_kind, only: LKG => LK3
29424 type(lfpack_type) , intent(in) :: dpack
29425 type(rdpack_type) , intent(in) :: spack
29426 type(dia_type) , intent(in) :: subset
29427 type(transSymm_type) , intent(in) :: operation
29428 integer(IK) , intent(in) , optional :: doff
29429 logical(LKG) , intent(in) :: source(:,:)
29430 logical(LKG) , intent(inout) :: destin(:)
29431 end subroutine
29432#endif
29433
29434#if LK2_ENABLED
29435 PURE module subroutine setMatCopy_LFP_RDP_XXD_TSO_LK2(destin, dpack, source, spack, subset, operation, doff)
29436#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29437 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_TSO_LK2
29438#endif
29439 use pm_kind, only: LKG => LK2
29440 type(lfpack_type) , intent(in) :: dpack
29441 type(rdpack_type) , intent(in) :: spack
29442 type(dia_type) , intent(in) :: subset
29443 type(transSymm_type) , intent(in) :: operation
29444 integer(IK) , intent(in) , optional :: doff
29445 logical(LKG) , intent(in) :: source(:,:)
29446 logical(LKG) , intent(inout) :: destin(:)
29447 end subroutine
29448#endif
29449
29450#if LK1_ENABLED
29451 PURE module subroutine setMatCopy_LFP_RDP_XXD_TSO_LK1(destin, dpack, source, spack, subset, operation, doff)
29452#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29453 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_TSO_LK1
29454#endif
29455 use pm_kind, only: LKG => LK1
29456 type(lfpack_type) , intent(in) :: dpack
29457 type(rdpack_type) , intent(in) :: spack
29458 type(dia_type) , intent(in) :: subset
29459 type(transSymm_type) , intent(in) :: operation
29460 integer(IK) , intent(in) , optional :: doff
29461 logical(LKG) , intent(in) :: source(:,:)
29462 logical(LKG) , intent(inout) :: destin(:)
29463 end subroutine
29464#endif
29465
29466 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
29467
29468#if CK5_ENABLED
29469 PURE module subroutine setMatCopy_LFP_RDP_XXD_TSO_CK5(destin, dpack, source, spack, subset, operation, doff)
29470#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29471 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_TSO_CK5
29472#endif
29473 use pm_kind, only: CKG => CK5
29474 type(lfpack_type) , intent(in) :: dpack
29475 type(rdpack_type) , intent(in) :: spack
29476 type(dia_type) , intent(in) :: subset
29477 type(transSymm_type) , intent(in) :: operation
29478 integer(IK) , intent(in) , optional :: doff
29479 complex(CKG) , intent(in) :: source(:,:)
29480 complex(CKG) , intent(inout) :: destin(:)
29481 end subroutine
29482#endif
29483
29484#if CK4_ENABLED
29485 PURE module subroutine setMatCopy_LFP_RDP_XXD_TSO_CK4(destin, dpack, source, spack, subset, operation, doff)
29486#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29487 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_TSO_CK4
29488#endif
29489 use pm_kind, only: CKG => CK4
29490 type(lfpack_type) , intent(in) :: dpack
29491 type(rdpack_type) , intent(in) :: spack
29492 type(dia_type) , intent(in) :: subset
29493 type(transSymm_type) , intent(in) :: operation
29494 integer(IK) , intent(in) , optional :: doff
29495 complex(CKG) , intent(in) :: source(:,:)
29496 complex(CKG) , intent(inout) :: destin(:)
29497 end subroutine
29498#endif
29499
29500#if CK3_ENABLED
29501 PURE module subroutine setMatCopy_LFP_RDP_XXD_TSO_CK3(destin, dpack, source, spack, subset, operation, doff)
29502#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29503 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_TSO_CK3
29504#endif
29505 use pm_kind, only: CKG => CK3
29506 type(lfpack_type) , intent(in) :: dpack
29507 type(rdpack_type) , intent(in) :: spack
29508 type(dia_type) , intent(in) :: subset
29509 type(transSymm_type) , intent(in) :: operation
29510 integer(IK) , intent(in) , optional :: doff
29511 complex(CKG) , intent(in) :: source(:,:)
29512 complex(CKG) , intent(inout) :: destin(:)
29513 end subroutine
29514#endif
29515
29516#if CK2_ENABLED
29517 PURE module subroutine setMatCopy_LFP_RDP_XXD_TSO_CK2(destin, dpack, source, spack, subset, operation, doff)
29518#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29519 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_TSO_CK2
29520#endif
29521 use pm_kind, only: CKG => CK2
29522 type(lfpack_type) , intent(in) :: dpack
29523 type(rdpack_type) , intent(in) :: spack
29524 type(dia_type) , intent(in) :: subset
29525 type(transSymm_type) , intent(in) :: operation
29526 integer(IK) , intent(in) , optional :: doff
29527 complex(CKG) , intent(in) :: source(:,:)
29528 complex(CKG) , intent(inout) :: destin(:)
29529 end subroutine
29530#endif
29531
29532#if CK1_ENABLED
29533 PURE module subroutine setMatCopy_LFP_RDP_XXD_TSO_CK1(destin, dpack, source, spack, subset, operation, doff)
29534#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29535 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_TSO_CK1
29536#endif
29537 use pm_kind, only: CKG => CK1
29538 type(lfpack_type) , intent(in) :: dpack
29539 type(rdpack_type) , intent(in) :: spack
29540 type(dia_type) , intent(in) :: subset
29541 type(transSymm_type) , intent(in) :: operation
29542 integer(IK) , intent(in) , optional :: doff
29543 complex(CKG) , intent(in) :: source(:,:)
29544 complex(CKG) , intent(inout) :: destin(:)
29545 end subroutine
29546#endif
29547
29548 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
29549
29550#if RK5_ENABLED
29551 PURE module subroutine setMatCopy_LFP_RDP_XXD_TSO_RK5(destin, dpack, source, spack, subset, operation, doff)
29552#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29553 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_TSO_RK5
29554#endif
29555 use pm_kind, only: RKG => RK5
29556 type(lfpack_type) , intent(in) :: dpack
29557 type(rdpack_type) , intent(in) :: spack
29558 type(dia_type) , intent(in) :: subset
29559 type(transSymm_type) , intent(in) :: operation
29560 integer(IK) , intent(in) , optional :: doff
29561 real(RKG) , intent(in) :: source(:,:)
29562 real(RKG) , intent(inout) :: destin(:)
29563 end subroutine
29564#endif
29565
29566#if RK4_ENABLED
29567 PURE module subroutine setMatCopy_LFP_RDP_XXD_TSO_RK4(destin, dpack, source, spack, subset, operation, doff)
29568#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29569 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_TSO_RK4
29570#endif
29571 use pm_kind, only: RKG => RK4
29572 type(lfpack_type) , intent(in) :: dpack
29573 type(rdpack_type) , intent(in) :: spack
29574 type(dia_type) , intent(in) :: subset
29575 type(transSymm_type) , intent(in) :: operation
29576 integer(IK) , intent(in) , optional :: doff
29577 real(RKG) , intent(in) :: source(:,:)
29578 real(RKG) , intent(inout) :: destin(:)
29579 end subroutine
29580#endif
29581
29582#if RK3_ENABLED
29583 PURE module subroutine setMatCopy_LFP_RDP_XXD_TSO_RK3(destin, dpack, source, spack, subset, operation, doff)
29584#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29585 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_TSO_RK3
29586#endif
29587 use pm_kind, only: RKG => RK3
29588 type(lfpack_type) , intent(in) :: dpack
29589 type(rdpack_type) , intent(in) :: spack
29590 type(dia_type) , intent(in) :: subset
29591 type(transSymm_type) , intent(in) :: operation
29592 integer(IK) , intent(in) , optional :: doff
29593 real(RKG) , intent(in) :: source(:,:)
29594 real(RKG) , intent(inout) :: destin(:)
29595 end subroutine
29596#endif
29597
29598#if RK2_ENABLED
29599 PURE module subroutine setMatCopy_LFP_RDP_XXD_TSO_RK2(destin, dpack, source, spack, subset, operation, doff)
29600#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29601 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_TSO_RK2
29602#endif
29603 use pm_kind, only: RKG => RK2
29604 type(lfpack_type) , intent(in) :: dpack
29605 type(rdpack_type) , intent(in) :: spack
29606 type(dia_type) , intent(in) :: subset
29607 type(transSymm_type) , intent(in) :: operation
29608 integer(IK) , intent(in) , optional :: doff
29609 real(RKG) , intent(in) :: source(:,:)
29610 real(RKG) , intent(inout) :: destin(:)
29611 end subroutine
29612#endif
29613
29614#if RK1_ENABLED
29615 PURE module subroutine setMatCopy_LFP_RDP_XXD_TSO_RK1(destin, dpack, source, spack, subset, operation, doff)
29616#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29617 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_TSO_RK1
29618#endif
29619 use pm_kind, only: RKG => RK1
29620 type(lfpack_type) , intent(in) :: dpack
29621 type(rdpack_type) , intent(in) :: spack
29622 type(dia_type) , intent(in) :: subset
29623 type(transSymm_type) , intent(in) :: operation
29624 integer(IK) , intent(in) , optional :: doff
29625 real(RKG) , intent(in) :: source(:,:)
29626 real(RKG) , intent(inout) :: destin(:)
29627 end subroutine
29628#endif
29629
29630 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
29631
29632 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
29633 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
29634 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
29635
29636 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
29637
29638#if SK5_ENABLED
29639 PURE module subroutine setMatCopy_LFP_RDP_XXD_THO_SK5(destin, dpack, source, spack, subset, operation, doff)
29640#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29641 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_THO_SK5
29642#endif
29643 use pm_kind, only: SKG => SK5
29644 type(lfpack_type) , intent(in) :: dpack
29645 type(rdpack_type) , intent(in) :: spack
29646 type(dia_type) , intent(in) :: subset
29647 type(transHerm_type) , intent(in) :: operation
29648 integer(IK) , intent(in) , optional :: doff
29649 character(*,SKG) , intent(in) :: source(:,:)
29650 character(*,SKG) , intent(inout) :: destin(:)
29651 end subroutine
29652#endif
29653
29654#if SK4_ENABLED
29655 PURE module subroutine setMatCopy_LFP_RDP_XXD_THO_SK4(destin, dpack, source, spack, subset, operation, doff)
29656#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29657 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_THO_SK4
29658#endif
29659 use pm_kind, only: SKG => SK4
29660 type(lfpack_type) , intent(in) :: dpack
29661 type(rdpack_type) , intent(in) :: spack
29662 type(dia_type) , intent(in) :: subset
29663 type(transHerm_type) , intent(in) :: operation
29664 integer(IK) , intent(in) , optional :: doff
29665 character(*,SKG) , intent(in) :: source(:,:)
29666 character(*,SKG) , intent(inout) :: destin(:)
29667 end subroutine
29668#endif
29669
29670#if SK3_ENABLED
29671 PURE module subroutine setMatCopy_LFP_RDP_XXD_THO_SK3(destin, dpack, source, spack, subset, operation, doff)
29672#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29673 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_THO_SK3
29674#endif
29675 use pm_kind, only: SKG => SK3
29676 type(lfpack_type) , intent(in) :: dpack
29677 type(rdpack_type) , intent(in) :: spack
29678 type(dia_type) , intent(in) :: subset
29679 type(transHerm_type) , intent(in) :: operation
29680 integer(IK) , intent(in) , optional :: doff
29681 character(*,SKG) , intent(in) :: source(:,:)
29682 character(*,SKG) , intent(inout) :: destin(:)
29683 end subroutine
29684#endif
29685
29686#if SK2_ENABLED
29687 PURE module subroutine setMatCopy_LFP_RDP_XXD_THO_SK2(destin, dpack, source, spack, subset, operation, doff)
29688#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29689 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_THO_SK2
29690#endif
29691 use pm_kind, only: SKG => SK2
29692 type(lfpack_type) , intent(in) :: dpack
29693 type(rdpack_type) , intent(in) :: spack
29694 type(dia_type) , intent(in) :: subset
29695 type(transHerm_type) , intent(in) :: operation
29696 integer(IK) , intent(in) , optional :: doff
29697 character(*,SKG) , intent(in) :: source(:,:)
29698 character(*,SKG) , intent(inout) :: destin(:)
29699 end subroutine
29700#endif
29701
29702#if SK1_ENABLED
29703 PURE module subroutine setMatCopy_LFP_RDP_XXD_THO_SK1(destin, dpack, source, spack, subset, operation, doff)
29704#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29705 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_THO_SK1
29706#endif
29707 use pm_kind, only: SKG => SK1
29708 type(lfpack_type) , intent(in) :: dpack
29709 type(rdpack_type) , intent(in) :: spack
29710 type(dia_type) , intent(in) :: subset
29711 type(transHerm_type) , intent(in) :: operation
29712 integer(IK) , intent(in) , optional :: doff
29713 character(*,SKG) , intent(in) :: source(:,:)
29714 character(*,SKG) , intent(inout) :: destin(:)
29715 end subroutine
29716#endif
29717
29718 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
29719
29720#if IK5_ENABLED
29721 PURE module subroutine setMatCopy_LFP_RDP_XXD_THO_IK5(destin, dpack, source, spack, subset, operation, doff)
29722#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29723 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_THO_IK5
29724#endif
29725 use pm_kind, only: IKG => IK5
29726 type(lfpack_type) , intent(in) :: dpack
29727 type(rdpack_type) , intent(in) :: spack
29728 type(dia_type) , intent(in) :: subset
29729 type(transHerm_type) , intent(in) :: operation
29730 integer(IK) , intent(in) , optional :: doff
29731 integer(IKG) , intent(in) :: source(:,:)
29732 integer(IKG) , intent(inout) :: destin(:)
29733 end subroutine
29734#endif
29735
29736#if IK4_ENABLED
29737 PURE module subroutine setMatCopy_LFP_RDP_XXD_THO_IK4(destin, dpack, source, spack, subset, operation, doff)
29738#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29739 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_THO_IK4
29740#endif
29741 use pm_kind, only: IKG => IK4
29742 type(lfpack_type) , intent(in) :: dpack
29743 type(rdpack_type) , intent(in) :: spack
29744 type(dia_type) , intent(in) :: subset
29745 type(transHerm_type) , intent(in) :: operation
29746 integer(IK) , intent(in) , optional :: doff
29747 integer(IKG) , intent(in) :: source(:,:)
29748 integer(IKG) , intent(inout) :: destin(:)
29749 end subroutine
29750#endif
29751
29752#if IK3_ENABLED
29753 PURE module subroutine setMatCopy_LFP_RDP_XXD_THO_IK3(destin, dpack, source, spack, subset, operation, doff)
29754#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29755 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_THO_IK3
29756#endif
29757 use pm_kind, only: IKG => IK3
29758 type(lfpack_type) , intent(in) :: dpack
29759 type(rdpack_type) , intent(in) :: spack
29760 type(dia_type) , intent(in) :: subset
29761 type(transHerm_type) , intent(in) :: operation
29762 integer(IK) , intent(in) , optional :: doff
29763 integer(IKG) , intent(in) :: source(:,:)
29764 integer(IKG) , intent(inout) :: destin(:)
29765 end subroutine
29766#endif
29767
29768#if IK2_ENABLED
29769 PURE module subroutine setMatCopy_LFP_RDP_XXD_THO_IK2(destin, dpack, source, spack, subset, operation, doff)
29770#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29771 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_THO_IK2
29772#endif
29773 use pm_kind, only: IKG => IK2
29774 type(lfpack_type) , intent(in) :: dpack
29775 type(rdpack_type) , intent(in) :: spack
29776 type(dia_type) , intent(in) :: subset
29777 type(transHerm_type) , intent(in) :: operation
29778 integer(IK) , intent(in) , optional :: doff
29779 integer(IKG) , intent(in) :: source(:,:)
29780 integer(IKG) , intent(inout) :: destin(:)
29781 end subroutine
29782#endif
29783
29784#if IK1_ENABLED
29785 PURE module subroutine setMatCopy_LFP_RDP_XXD_THO_IK1(destin, dpack, source, spack, subset, operation, doff)
29786#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29787 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_THO_IK1
29788#endif
29789 use pm_kind, only: IKG => IK1
29790 type(lfpack_type) , intent(in) :: dpack
29791 type(rdpack_type) , intent(in) :: spack
29792 type(dia_type) , intent(in) :: subset
29793 type(transHerm_type) , intent(in) :: operation
29794 integer(IK) , intent(in) , optional :: doff
29795 integer(IKG) , intent(in) :: source(:,:)
29796 integer(IKG) , intent(inout) :: destin(:)
29797 end subroutine
29798#endif
29799
29800 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
29801
29802#if LK5_ENABLED
29803 PURE module subroutine setMatCopy_LFP_RDP_XXD_THO_LK5(destin, dpack, source, spack, subset, operation, doff)
29804#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29805 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_THO_LK5
29806#endif
29807 use pm_kind, only: LKG => LK5
29808 type(lfpack_type) , intent(in) :: dpack
29809 type(rdpack_type) , intent(in) :: spack
29810 type(dia_type) , intent(in) :: subset
29811 type(transHerm_type) , intent(in) :: operation
29812 integer(IK) , intent(in) , optional :: doff
29813 logical(LKG) , intent(in) :: source(:,:)
29814 logical(LKG) , intent(inout) :: destin(:)
29815 end subroutine
29816#endif
29817
29818#if LK4_ENABLED
29819 PURE module subroutine setMatCopy_LFP_RDP_XXD_THO_LK4(destin, dpack, source, spack, subset, operation, doff)
29820#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29821 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_THO_LK4
29822#endif
29823 use pm_kind, only: LKG => LK4
29824 type(lfpack_type) , intent(in) :: dpack
29825 type(rdpack_type) , intent(in) :: spack
29826 type(dia_type) , intent(in) :: subset
29827 type(transHerm_type) , intent(in) :: operation
29828 integer(IK) , intent(in) , optional :: doff
29829 logical(LKG) , intent(in) :: source(:,:)
29830 logical(LKG) , intent(inout) :: destin(:)
29831 end subroutine
29832#endif
29833
29834#if LK3_ENABLED
29835 PURE module subroutine setMatCopy_LFP_RDP_XXD_THO_LK3(destin, dpack, source, spack, subset, operation, doff)
29836#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29837 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_THO_LK3
29838#endif
29839 use pm_kind, only: LKG => LK3
29840 type(lfpack_type) , intent(in) :: dpack
29841 type(rdpack_type) , intent(in) :: spack
29842 type(dia_type) , intent(in) :: subset
29843 type(transHerm_type) , intent(in) :: operation
29844 integer(IK) , intent(in) , optional :: doff
29845 logical(LKG) , intent(in) :: source(:,:)
29846 logical(LKG) , intent(inout) :: destin(:)
29847 end subroutine
29848#endif
29849
29850#if LK2_ENABLED
29851 PURE module subroutine setMatCopy_LFP_RDP_XXD_THO_LK2(destin, dpack, source, spack, subset, operation, doff)
29852#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29853 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_THO_LK2
29854#endif
29855 use pm_kind, only: LKG => LK2
29856 type(lfpack_type) , intent(in) :: dpack
29857 type(rdpack_type) , intent(in) :: spack
29858 type(dia_type) , intent(in) :: subset
29859 type(transHerm_type) , intent(in) :: operation
29860 integer(IK) , intent(in) , optional :: doff
29861 logical(LKG) , intent(in) :: source(:,:)
29862 logical(LKG) , intent(inout) :: destin(:)
29863 end subroutine
29864#endif
29865
29866#if LK1_ENABLED
29867 PURE module subroutine setMatCopy_LFP_RDP_XXD_THO_LK1(destin, dpack, source, spack, subset, operation, doff)
29868#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29869 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_THO_LK1
29870#endif
29871 use pm_kind, only: LKG => LK1
29872 type(lfpack_type) , intent(in) :: dpack
29873 type(rdpack_type) , intent(in) :: spack
29874 type(dia_type) , intent(in) :: subset
29875 type(transHerm_type) , intent(in) :: operation
29876 integer(IK) , intent(in) , optional :: doff
29877 logical(LKG) , intent(in) :: source(:,:)
29878 logical(LKG) , intent(inout) :: destin(:)
29879 end subroutine
29880#endif
29881
29882 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
29883
29884#if CK5_ENABLED
29885 PURE module subroutine setMatCopy_LFP_RDP_XXD_THO_CK5(destin, dpack, source, spack, subset, operation, doff)
29886#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29887 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_THO_CK5
29888#endif
29889 use pm_kind, only: CKG => CK5
29890 type(lfpack_type) , intent(in) :: dpack
29891 type(rdpack_type) , intent(in) :: spack
29892 type(dia_type) , intent(in) :: subset
29893 type(transHerm_type) , intent(in) :: operation
29894 integer(IK) , intent(in) , optional :: doff
29895 complex(CKG) , intent(in) :: source(:,:)
29896 complex(CKG) , intent(inout) :: destin(:)
29897 end subroutine
29898#endif
29899
29900#if CK4_ENABLED
29901 PURE module subroutine setMatCopy_LFP_RDP_XXD_THO_CK4(destin, dpack, source, spack, subset, operation, doff)
29902#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29903 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_THO_CK4
29904#endif
29905 use pm_kind, only: CKG => CK4
29906 type(lfpack_type) , intent(in) :: dpack
29907 type(rdpack_type) , intent(in) :: spack
29908 type(dia_type) , intent(in) :: subset
29909 type(transHerm_type) , intent(in) :: operation
29910 integer(IK) , intent(in) , optional :: doff
29911 complex(CKG) , intent(in) :: source(:,:)
29912 complex(CKG) , intent(inout) :: destin(:)
29913 end subroutine
29914#endif
29915
29916#if CK3_ENABLED
29917 PURE module subroutine setMatCopy_LFP_RDP_XXD_THO_CK3(destin, dpack, source, spack, subset, operation, doff)
29918#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29919 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_THO_CK3
29920#endif
29921 use pm_kind, only: CKG => CK3
29922 type(lfpack_type) , intent(in) :: dpack
29923 type(rdpack_type) , intent(in) :: spack
29924 type(dia_type) , intent(in) :: subset
29925 type(transHerm_type) , intent(in) :: operation
29926 integer(IK) , intent(in) , optional :: doff
29927 complex(CKG) , intent(in) :: source(:,:)
29928 complex(CKG) , intent(inout) :: destin(:)
29929 end subroutine
29930#endif
29931
29932#if CK2_ENABLED
29933 PURE module subroutine setMatCopy_LFP_RDP_XXD_THO_CK2(destin, dpack, source, spack, subset, operation, doff)
29934#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29935 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_THO_CK2
29936#endif
29937 use pm_kind, only: CKG => CK2
29938 type(lfpack_type) , intent(in) :: dpack
29939 type(rdpack_type) , intent(in) :: spack
29940 type(dia_type) , intent(in) :: subset
29941 type(transHerm_type) , intent(in) :: operation
29942 integer(IK) , intent(in) , optional :: doff
29943 complex(CKG) , intent(in) :: source(:,:)
29944 complex(CKG) , intent(inout) :: destin(:)
29945 end subroutine
29946#endif
29947
29948#if CK1_ENABLED
29949 PURE module subroutine setMatCopy_LFP_RDP_XXD_THO_CK1(destin, dpack, source, spack, subset, operation, doff)
29950#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29951 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_THO_CK1
29952#endif
29953 use pm_kind, only: CKG => CK1
29954 type(lfpack_type) , intent(in) :: dpack
29955 type(rdpack_type) , intent(in) :: spack
29956 type(dia_type) , intent(in) :: subset
29957 type(transHerm_type) , intent(in) :: operation
29958 integer(IK) , intent(in) , optional :: doff
29959 complex(CKG) , intent(in) :: source(:,:)
29960 complex(CKG) , intent(inout) :: destin(:)
29961 end subroutine
29962#endif
29963
29964 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
29965
29966#if RK5_ENABLED
29967 PURE module subroutine setMatCopy_LFP_RDP_XXD_THO_RK5(destin, dpack, source, spack, subset, operation, doff)
29968#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29969 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_THO_RK5
29970#endif
29971 use pm_kind, only: RKG => RK5
29972 type(lfpack_type) , intent(in) :: dpack
29973 type(rdpack_type) , intent(in) :: spack
29974 type(dia_type) , intent(in) :: subset
29975 type(transHerm_type) , intent(in) :: operation
29976 integer(IK) , intent(in) , optional :: doff
29977 real(RKG) , intent(in) :: source(:,:)
29978 real(RKG) , intent(inout) :: destin(:)
29979 end subroutine
29980#endif
29981
29982#if RK4_ENABLED
29983 PURE module subroutine setMatCopy_LFP_RDP_XXD_THO_RK4(destin, dpack, source, spack, subset, operation, doff)
29984#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
29985 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_THO_RK4
29986#endif
29987 use pm_kind, only: RKG => RK4
29988 type(lfpack_type) , intent(in) :: dpack
29989 type(rdpack_type) , intent(in) :: spack
29990 type(dia_type) , intent(in) :: subset
29991 type(transHerm_type) , intent(in) :: operation
29992 integer(IK) , intent(in) , optional :: doff
29993 real(RKG) , intent(in) :: source(:,:)
29994 real(RKG) , intent(inout) :: destin(:)
29995 end subroutine
29996#endif
29997
29998#if RK3_ENABLED
29999 PURE module subroutine setMatCopy_LFP_RDP_XXD_THO_RK3(destin, dpack, source, spack, subset, operation, doff)
30000#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30001 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_THO_RK3
30002#endif
30003 use pm_kind, only: RKG => RK3
30004 type(lfpack_type) , intent(in) :: dpack
30005 type(rdpack_type) , intent(in) :: spack
30006 type(dia_type) , intent(in) :: subset
30007 type(transHerm_type) , intent(in) :: operation
30008 integer(IK) , intent(in) , optional :: doff
30009 real(RKG) , intent(in) :: source(:,:)
30010 real(RKG) , intent(inout) :: destin(:)
30011 end subroutine
30012#endif
30013
30014#if RK2_ENABLED
30015 PURE module subroutine setMatCopy_LFP_RDP_XXD_THO_RK2(destin, dpack, source, spack, subset, operation, doff)
30016#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30017 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_THO_RK2
30018#endif
30019 use pm_kind, only: RKG => RK2
30020 type(lfpack_type) , intent(in) :: dpack
30021 type(rdpack_type) , intent(in) :: spack
30022 type(dia_type) , intent(in) :: subset
30023 type(transHerm_type) , intent(in) :: operation
30024 integer(IK) , intent(in) , optional :: doff
30025 real(RKG) , intent(in) :: source(:,:)
30026 real(RKG) , intent(inout) :: destin(:)
30027 end subroutine
30028#endif
30029
30030#if RK1_ENABLED
30031 PURE module subroutine setMatCopy_LFP_RDP_XXD_THO_RK1(destin, dpack, source, spack, subset, operation, doff)
30032#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30033 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XXD_THO_RK1
30034#endif
30035 use pm_kind, only: RKG => RK1
30036 type(lfpack_type) , intent(in) :: dpack
30037 type(rdpack_type) , intent(in) :: spack
30038 type(dia_type) , intent(in) :: subset
30039 type(transHerm_type) , intent(in) :: operation
30040 integer(IK) , intent(in) , optional :: doff
30041 real(RKG) , intent(in) :: source(:,:)
30042 real(RKG) , intent(inout) :: destin(:)
30043 end subroutine
30044#endif
30045
30046 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
30047
30048 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
30049 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
30050 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
30051
30052 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
30053 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
30054 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
30055
30056 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
30057
30058#if SK5_ENABLED
30059 PURE module subroutine setMatCopy_LFP_RDP_UXD_AIO_SK5(destin, dpack, source, spack, subset, doff)
30060#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30061 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_AIO_SK5
30062#endif
30063 use pm_kind, only: SKG => SK5
30064 type(lfpack_type) , intent(in) :: dpack
30065 type(rdpack_type) , intent(in) :: spack
30066 type(uppDia_type) , intent(in) :: subset
30067 integer(IK) , intent(in) , optional :: doff
30068 character(*,SKG) , intent(in) :: source(:,:)
30069 character(*,SKG) , intent(inout) :: destin(:)
30070 end subroutine
30071#endif
30072
30073#if SK4_ENABLED
30074 PURE module subroutine setMatCopy_LFP_RDP_UXD_AIO_SK4(destin, dpack, source, spack, subset, doff)
30075#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30076 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_AIO_SK4
30077#endif
30078 use pm_kind, only: SKG => SK4
30079 type(lfpack_type) , intent(in) :: dpack
30080 type(rdpack_type) , intent(in) :: spack
30081 type(uppDia_type) , intent(in) :: subset
30082 integer(IK) , intent(in) , optional :: doff
30083 character(*,SKG) , intent(in) :: source(:,:)
30084 character(*,SKG) , intent(inout) :: destin(:)
30085 end subroutine
30086#endif
30087
30088#if SK3_ENABLED
30089 PURE module subroutine setMatCopy_LFP_RDP_UXD_AIO_SK3(destin, dpack, source, spack, subset, doff)
30090#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30091 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_AIO_SK3
30092#endif
30093 use pm_kind, only: SKG => SK3
30094 type(lfpack_type) , intent(in) :: dpack
30095 type(rdpack_type) , intent(in) :: spack
30096 type(uppDia_type) , intent(in) :: subset
30097 integer(IK) , intent(in) , optional :: doff
30098 character(*,SKG) , intent(in) :: source(:,:)
30099 character(*,SKG) , intent(inout) :: destin(:)
30100 end subroutine
30101#endif
30102
30103#if SK2_ENABLED
30104 PURE module subroutine setMatCopy_LFP_RDP_UXD_AIO_SK2(destin, dpack, source, spack, subset, doff)
30105#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30106 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_AIO_SK2
30107#endif
30108 use pm_kind, only: SKG => SK2
30109 type(lfpack_type) , intent(in) :: dpack
30110 type(rdpack_type) , intent(in) :: spack
30111 type(uppDia_type) , intent(in) :: subset
30112 integer(IK) , intent(in) , optional :: doff
30113 character(*,SKG) , intent(in) :: source(:,:)
30114 character(*,SKG) , intent(inout) :: destin(:)
30115 end subroutine
30116#endif
30117
30118#if SK1_ENABLED
30119 PURE module subroutine setMatCopy_LFP_RDP_UXD_AIO_SK1(destin, dpack, source, spack, subset, doff)
30120#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30121 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_AIO_SK1
30122#endif
30123 use pm_kind, only: SKG => SK1
30124 type(lfpack_type) , intent(in) :: dpack
30125 type(rdpack_type) , intent(in) :: spack
30126 type(uppDia_type) , intent(in) :: subset
30127 integer(IK) , intent(in) , optional :: doff
30128 character(*,SKG) , intent(in) :: source(:,:)
30129 character(*,SKG) , intent(inout) :: destin(:)
30130 end subroutine
30131#endif
30132
30133 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
30134
30135#if IK5_ENABLED
30136 PURE module subroutine setMatCopy_LFP_RDP_UXD_AIO_IK5(destin, dpack, source, spack, subset, doff)
30137#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30138 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_AIO_IK5
30139#endif
30140 use pm_kind, only: IKG => IK5
30141 type(lfpack_type) , intent(in) :: dpack
30142 type(rdpack_type) , intent(in) :: spack
30143 type(uppDia_type) , intent(in) :: subset
30144 integer(IK) , intent(in) , optional :: doff
30145 integer(IKG) , intent(in) :: source(:,:)
30146 integer(IKG) , intent(inout) :: destin(:)
30147 end subroutine
30148#endif
30149
30150#if IK4_ENABLED
30151 PURE module subroutine setMatCopy_LFP_RDP_UXD_AIO_IK4(destin, dpack, source, spack, subset, doff)
30152#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30153 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_AIO_IK4
30154#endif
30155 use pm_kind, only: IKG => IK4
30156 type(lfpack_type) , intent(in) :: dpack
30157 type(rdpack_type) , intent(in) :: spack
30158 type(uppDia_type) , intent(in) :: subset
30159 integer(IK) , intent(in) , optional :: doff
30160 integer(IKG) , intent(in) :: source(:,:)
30161 integer(IKG) , intent(inout) :: destin(:)
30162 end subroutine
30163#endif
30164
30165#if IK3_ENABLED
30166 PURE module subroutine setMatCopy_LFP_RDP_UXD_AIO_IK3(destin, dpack, source, spack, subset, doff)
30167#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30168 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_AIO_IK3
30169#endif
30170 use pm_kind, only: IKG => IK3
30171 type(lfpack_type) , intent(in) :: dpack
30172 type(rdpack_type) , intent(in) :: spack
30173 type(uppDia_type) , intent(in) :: subset
30174 integer(IK) , intent(in) , optional :: doff
30175 integer(IKG) , intent(in) :: source(:,:)
30176 integer(IKG) , intent(inout) :: destin(:)
30177 end subroutine
30178#endif
30179
30180#if IK2_ENABLED
30181 PURE module subroutine setMatCopy_LFP_RDP_UXD_AIO_IK2(destin, dpack, source, spack, subset, doff)
30182#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30183 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_AIO_IK2
30184#endif
30185 use pm_kind, only: IKG => IK2
30186 type(lfpack_type) , intent(in) :: dpack
30187 type(rdpack_type) , intent(in) :: spack
30188 type(uppDia_type) , intent(in) :: subset
30189 integer(IK) , intent(in) , optional :: doff
30190 integer(IKG) , intent(in) :: source(:,:)
30191 integer(IKG) , intent(inout) :: destin(:)
30192 end subroutine
30193#endif
30194
30195#if IK1_ENABLED
30196 PURE module subroutine setMatCopy_LFP_RDP_UXD_AIO_IK1(destin, dpack, source, spack, subset, doff)
30197#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30198 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_AIO_IK1
30199#endif
30200 use pm_kind, only: IKG => IK1
30201 type(lfpack_type) , intent(in) :: dpack
30202 type(rdpack_type) , intent(in) :: spack
30203 type(uppDia_type) , intent(in) :: subset
30204 integer(IK) , intent(in) , optional :: doff
30205 integer(IKG) , intent(in) :: source(:,:)
30206 integer(IKG) , intent(inout) :: destin(:)
30207 end subroutine
30208#endif
30209
30210 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
30211
30212#if LK5_ENABLED
30213 PURE module subroutine setMatCopy_LFP_RDP_UXD_AIO_LK5(destin, dpack, source, spack, subset, doff)
30214#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30215 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_AIO_LK5
30216#endif
30217 use pm_kind, only: LKG => LK5
30218 type(lfpack_type) , intent(in) :: dpack
30219 type(rdpack_type) , intent(in) :: spack
30220 type(uppDia_type) , intent(in) :: subset
30221 integer(IK) , intent(in) , optional :: doff
30222 logical(LKG) , intent(in) :: source(:,:)
30223 logical(LKG) , intent(inout) :: destin(:)
30224 end subroutine
30225#endif
30226
30227#if LK4_ENABLED
30228 PURE module subroutine setMatCopy_LFP_RDP_UXD_AIO_LK4(destin, dpack, source, spack, subset, doff)
30229#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30230 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_AIO_LK4
30231#endif
30232 use pm_kind, only: LKG => LK4
30233 type(lfpack_type) , intent(in) :: dpack
30234 type(rdpack_type) , intent(in) :: spack
30235 type(uppDia_type) , intent(in) :: subset
30236 integer(IK) , intent(in) , optional :: doff
30237 logical(LKG) , intent(in) :: source(:,:)
30238 logical(LKG) , intent(inout) :: destin(:)
30239 end subroutine
30240#endif
30241
30242#if LK3_ENABLED
30243 PURE module subroutine setMatCopy_LFP_RDP_UXD_AIO_LK3(destin, dpack, source, spack, subset, doff)
30244#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30245 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_AIO_LK3
30246#endif
30247 use pm_kind, only: LKG => LK3
30248 type(lfpack_type) , intent(in) :: dpack
30249 type(rdpack_type) , intent(in) :: spack
30250 type(uppDia_type) , intent(in) :: subset
30251 integer(IK) , intent(in) , optional :: doff
30252 logical(LKG) , intent(in) :: source(:,:)
30253 logical(LKG) , intent(inout) :: destin(:)
30254 end subroutine
30255#endif
30256
30257#if LK2_ENABLED
30258 PURE module subroutine setMatCopy_LFP_RDP_UXD_AIO_LK2(destin, dpack, source, spack, subset, doff)
30259#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30260 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_AIO_LK2
30261#endif
30262 use pm_kind, only: LKG => LK2
30263 type(lfpack_type) , intent(in) :: dpack
30264 type(rdpack_type) , intent(in) :: spack
30265 type(uppDia_type) , intent(in) :: subset
30266 integer(IK) , intent(in) , optional :: doff
30267 logical(LKG) , intent(in) :: source(:,:)
30268 logical(LKG) , intent(inout) :: destin(:)
30269 end subroutine
30270#endif
30271
30272#if LK1_ENABLED
30273 PURE module subroutine setMatCopy_LFP_RDP_UXD_AIO_LK1(destin, dpack, source, spack, subset, doff)
30274#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30275 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_AIO_LK1
30276#endif
30277 use pm_kind, only: LKG => LK1
30278 type(lfpack_type) , intent(in) :: dpack
30279 type(rdpack_type) , intent(in) :: spack
30280 type(uppDia_type) , intent(in) :: subset
30281 integer(IK) , intent(in) , optional :: doff
30282 logical(LKG) , intent(in) :: source(:,:)
30283 logical(LKG) , intent(inout) :: destin(:)
30284 end subroutine
30285#endif
30286
30287 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
30288
30289#if CK5_ENABLED
30290 PURE module subroutine setMatCopy_LFP_RDP_UXD_AIO_CK5(destin, dpack, source, spack, subset, doff)
30291#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30292 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_AIO_CK5
30293#endif
30294 use pm_kind, only: CKG => CK5
30295 type(lfpack_type) , intent(in) :: dpack
30296 type(rdpack_type) , intent(in) :: spack
30297 type(uppDia_type) , intent(in) :: subset
30298 integer(IK) , intent(in) , optional :: doff
30299 complex(CKG) , intent(in) :: source(:,:)
30300 complex(CKG) , intent(inout) :: destin(:)
30301 end subroutine
30302#endif
30303
30304#if CK4_ENABLED
30305 PURE module subroutine setMatCopy_LFP_RDP_UXD_AIO_CK4(destin, dpack, source, spack, subset, doff)
30306#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30307 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_AIO_CK4
30308#endif
30309 use pm_kind, only: CKG => CK4
30310 type(lfpack_type) , intent(in) :: dpack
30311 type(rdpack_type) , intent(in) :: spack
30312 type(uppDia_type) , intent(in) :: subset
30313 integer(IK) , intent(in) , optional :: doff
30314 complex(CKG) , intent(in) :: source(:,:)
30315 complex(CKG) , intent(inout) :: destin(:)
30316 end subroutine
30317#endif
30318
30319#if CK3_ENABLED
30320 PURE module subroutine setMatCopy_LFP_RDP_UXD_AIO_CK3(destin, dpack, source, spack, subset, doff)
30321#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30322 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_AIO_CK3
30323#endif
30324 use pm_kind, only: CKG => CK3
30325 type(lfpack_type) , intent(in) :: dpack
30326 type(rdpack_type) , intent(in) :: spack
30327 type(uppDia_type) , intent(in) :: subset
30328 integer(IK) , intent(in) , optional :: doff
30329 complex(CKG) , intent(in) :: source(:,:)
30330 complex(CKG) , intent(inout) :: destin(:)
30331 end subroutine
30332#endif
30333
30334#if CK2_ENABLED
30335 PURE module subroutine setMatCopy_LFP_RDP_UXD_AIO_CK2(destin, dpack, source, spack, subset, doff)
30336#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30337 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_AIO_CK2
30338#endif
30339 use pm_kind, only: CKG => CK2
30340 type(lfpack_type) , intent(in) :: dpack
30341 type(rdpack_type) , intent(in) :: spack
30342 type(uppDia_type) , intent(in) :: subset
30343 integer(IK) , intent(in) , optional :: doff
30344 complex(CKG) , intent(in) :: source(:,:)
30345 complex(CKG) , intent(inout) :: destin(:)
30346 end subroutine
30347#endif
30348
30349#if CK1_ENABLED
30350 PURE module subroutine setMatCopy_LFP_RDP_UXD_AIO_CK1(destin, dpack, source, spack, subset, doff)
30351#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30352 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_AIO_CK1
30353#endif
30354 use pm_kind, only: CKG => CK1
30355 type(lfpack_type) , intent(in) :: dpack
30356 type(rdpack_type) , intent(in) :: spack
30357 type(uppDia_type) , intent(in) :: subset
30358 integer(IK) , intent(in) , optional :: doff
30359 complex(CKG) , intent(in) :: source(:,:)
30360 complex(CKG) , intent(inout) :: destin(:)
30361 end subroutine
30362#endif
30363
30364 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
30365
30366#if RK5_ENABLED
30367 PURE module subroutine setMatCopy_LFP_RDP_UXD_AIO_RK5(destin, dpack, source, spack, subset, doff)
30368#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30369 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_AIO_RK5
30370#endif
30371 use pm_kind, only: RKG => RK5
30372 type(lfpack_type) , intent(in) :: dpack
30373 type(rdpack_type) , intent(in) :: spack
30374 type(uppDia_type) , intent(in) :: subset
30375 integer(IK) , intent(in) , optional :: doff
30376 real(RKG) , intent(in) :: source(:,:)
30377 real(RKG) , intent(inout) :: destin(:)
30378 end subroutine
30379#endif
30380
30381#if RK4_ENABLED
30382 PURE module subroutine setMatCopy_LFP_RDP_UXD_AIO_RK4(destin, dpack, source, spack, subset, doff)
30383#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30384 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_AIO_RK4
30385#endif
30386 use pm_kind, only: RKG => RK4
30387 type(lfpack_type) , intent(in) :: dpack
30388 type(rdpack_type) , intent(in) :: spack
30389 type(uppDia_type) , intent(in) :: subset
30390 integer(IK) , intent(in) , optional :: doff
30391 real(RKG) , intent(in) :: source(:,:)
30392 real(RKG) , intent(inout) :: destin(:)
30393 end subroutine
30394#endif
30395
30396#if RK3_ENABLED
30397 PURE module subroutine setMatCopy_LFP_RDP_UXD_AIO_RK3(destin, dpack, source, spack, subset, doff)
30398#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30399 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_AIO_RK3
30400#endif
30401 use pm_kind, only: RKG => RK3
30402 type(lfpack_type) , intent(in) :: dpack
30403 type(rdpack_type) , intent(in) :: spack
30404 type(uppDia_type) , intent(in) :: subset
30405 integer(IK) , intent(in) , optional :: doff
30406 real(RKG) , intent(in) :: source(:,:)
30407 real(RKG) , intent(inout) :: destin(:)
30408 end subroutine
30409#endif
30410
30411#if RK2_ENABLED
30412 PURE module subroutine setMatCopy_LFP_RDP_UXD_AIO_RK2(destin, dpack, source, spack, subset, doff)
30413#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30414 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_AIO_RK2
30415#endif
30416 use pm_kind, only: RKG => RK2
30417 type(lfpack_type) , intent(in) :: dpack
30418 type(rdpack_type) , intent(in) :: spack
30419 type(uppDia_type) , intent(in) :: subset
30420 integer(IK) , intent(in) , optional :: doff
30421 real(RKG) , intent(in) :: source(:,:)
30422 real(RKG) , intent(inout) :: destin(:)
30423 end subroutine
30424#endif
30425
30426#if RK1_ENABLED
30427 PURE module subroutine setMatCopy_LFP_RDP_UXD_AIO_RK1(destin, dpack, source, spack, subset, doff)
30428#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30429 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_AIO_RK1
30430#endif
30431 use pm_kind, only: RKG => RK1
30432 type(lfpack_type) , intent(in) :: dpack
30433 type(rdpack_type) , intent(in) :: spack
30434 type(uppDia_type) , intent(in) :: subset
30435 integer(IK) , intent(in) , optional :: doff
30436 real(RKG) , intent(in) :: source(:,:)
30437 real(RKG) , intent(inout) :: destin(:)
30438 end subroutine
30439#endif
30440
30441 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
30442
30443 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
30444 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
30445 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
30446
30447 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
30448
30449#if SK5_ENABLED
30450 PURE module subroutine setMatCopy_LFP_RDP_UXD_TSO_SK5(destin, dpack, source, spack, subset, operation, doff)
30451#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30452 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_TSO_SK5
30453#endif
30454 use pm_kind, only: SKG => SK5
30455 type(lfpack_type) , intent(in) :: dpack
30456 type(rdpack_type) , intent(in) :: spack
30457 type(uppDia_type) , intent(in) :: subset
30458 type(transSymm_type) , intent(in) :: operation
30459 integer(IK) , intent(in) , optional :: doff
30460 character(*,SKG) , intent(in) :: source(:,:)
30461 character(*,SKG) , intent(inout) :: destin(:)
30462 end subroutine
30463#endif
30464
30465#if SK4_ENABLED
30466 PURE module subroutine setMatCopy_LFP_RDP_UXD_TSO_SK4(destin, dpack, source, spack, subset, operation, doff)
30467#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30468 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_TSO_SK4
30469#endif
30470 use pm_kind, only: SKG => SK4
30471 type(lfpack_type) , intent(in) :: dpack
30472 type(rdpack_type) , intent(in) :: spack
30473 type(uppDia_type) , intent(in) :: subset
30474 type(transSymm_type) , intent(in) :: operation
30475 integer(IK) , intent(in) , optional :: doff
30476 character(*,SKG) , intent(in) :: source(:,:)
30477 character(*,SKG) , intent(inout) :: destin(:)
30478 end subroutine
30479#endif
30480
30481#if SK3_ENABLED
30482 PURE module subroutine setMatCopy_LFP_RDP_UXD_TSO_SK3(destin, dpack, source, spack, subset, operation, doff)
30483#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30484 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_TSO_SK3
30485#endif
30486 use pm_kind, only: SKG => SK3
30487 type(lfpack_type) , intent(in) :: dpack
30488 type(rdpack_type) , intent(in) :: spack
30489 type(uppDia_type) , intent(in) :: subset
30490 type(transSymm_type) , intent(in) :: operation
30491 integer(IK) , intent(in) , optional :: doff
30492 character(*,SKG) , intent(in) :: source(:,:)
30493 character(*,SKG) , intent(inout) :: destin(:)
30494 end subroutine
30495#endif
30496
30497#if SK2_ENABLED
30498 PURE module subroutine setMatCopy_LFP_RDP_UXD_TSO_SK2(destin, dpack, source, spack, subset, operation, doff)
30499#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30500 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_TSO_SK2
30501#endif
30502 use pm_kind, only: SKG => SK2
30503 type(lfpack_type) , intent(in) :: dpack
30504 type(rdpack_type) , intent(in) :: spack
30505 type(uppDia_type) , intent(in) :: subset
30506 type(transSymm_type) , intent(in) :: operation
30507 integer(IK) , intent(in) , optional :: doff
30508 character(*,SKG) , intent(in) :: source(:,:)
30509 character(*,SKG) , intent(inout) :: destin(:)
30510 end subroutine
30511#endif
30512
30513#if SK1_ENABLED
30514 PURE module subroutine setMatCopy_LFP_RDP_UXD_TSO_SK1(destin, dpack, source, spack, subset, operation, doff)
30515#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30516 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_TSO_SK1
30517#endif
30518 use pm_kind, only: SKG => SK1
30519 type(lfpack_type) , intent(in) :: dpack
30520 type(rdpack_type) , intent(in) :: spack
30521 type(uppDia_type) , intent(in) :: subset
30522 type(transSymm_type) , intent(in) :: operation
30523 integer(IK) , intent(in) , optional :: doff
30524 character(*,SKG) , intent(in) :: source(:,:)
30525 character(*,SKG) , intent(inout) :: destin(:)
30526 end subroutine
30527#endif
30528
30529 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
30530
30531#if IK5_ENABLED
30532 PURE module subroutine setMatCopy_LFP_RDP_UXD_TSO_IK5(destin, dpack, source, spack, subset, operation, doff)
30533#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30534 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_TSO_IK5
30535#endif
30536 use pm_kind, only: IKG => IK5
30537 type(lfpack_type) , intent(in) :: dpack
30538 type(rdpack_type) , intent(in) :: spack
30539 type(uppDia_type) , intent(in) :: subset
30540 type(transSymm_type) , intent(in) :: operation
30541 integer(IK) , intent(in) , optional :: doff
30542 integer(IKG) , intent(in) :: source(:,:)
30543 integer(IKG) , intent(inout) :: destin(:)
30544 end subroutine
30545#endif
30546
30547#if IK4_ENABLED
30548 PURE module subroutine setMatCopy_LFP_RDP_UXD_TSO_IK4(destin, dpack, source, spack, subset, operation, doff)
30549#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30550 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_TSO_IK4
30551#endif
30552 use pm_kind, only: IKG => IK4
30553 type(lfpack_type) , intent(in) :: dpack
30554 type(rdpack_type) , intent(in) :: spack
30555 type(uppDia_type) , intent(in) :: subset
30556 type(transSymm_type) , intent(in) :: operation
30557 integer(IK) , intent(in) , optional :: doff
30558 integer(IKG) , intent(in) :: source(:,:)
30559 integer(IKG) , intent(inout) :: destin(:)
30560 end subroutine
30561#endif
30562
30563#if IK3_ENABLED
30564 PURE module subroutine setMatCopy_LFP_RDP_UXD_TSO_IK3(destin, dpack, source, spack, subset, operation, doff)
30565#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30566 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_TSO_IK3
30567#endif
30568 use pm_kind, only: IKG => IK3
30569 type(lfpack_type) , intent(in) :: dpack
30570 type(rdpack_type) , intent(in) :: spack
30571 type(uppDia_type) , intent(in) :: subset
30572 type(transSymm_type) , intent(in) :: operation
30573 integer(IK) , intent(in) , optional :: doff
30574 integer(IKG) , intent(in) :: source(:,:)
30575 integer(IKG) , intent(inout) :: destin(:)
30576 end subroutine
30577#endif
30578
30579#if IK2_ENABLED
30580 PURE module subroutine setMatCopy_LFP_RDP_UXD_TSO_IK2(destin, dpack, source, spack, subset, operation, doff)
30581#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30582 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_TSO_IK2
30583#endif
30584 use pm_kind, only: IKG => IK2
30585 type(lfpack_type) , intent(in) :: dpack
30586 type(rdpack_type) , intent(in) :: spack
30587 type(uppDia_type) , intent(in) :: subset
30588 type(transSymm_type) , intent(in) :: operation
30589 integer(IK) , intent(in) , optional :: doff
30590 integer(IKG) , intent(in) :: source(:,:)
30591 integer(IKG) , intent(inout) :: destin(:)
30592 end subroutine
30593#endif
30594
30595#if IK1_ENABLED
30596 PURE module subroutine setMatCopy_LFP_RDP_UXD_TSO_IK1(destin, dpack, source, spack, subset, operation, doff)
30597#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30598 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_TSO_IK1
30599#endif
30600 use pm_kind, only: IKG => IK1
30601 type(lfpack_type) , intent(in) :: dpack
30602 type(rdpack_type) , intent(in) :: spack
30603 type(uppDia_type) , intent(in) :: subset
30604 type(transSymm_type) , intent(in) :: operation
30605 integer(IK) , intent(in) , optional :: doff
30606 integer(IKG) , intent(in) :: source(:,:)
30607 integer(IKG) , intent(inout) :: destin(:)
30608 end subroutine
30609#endif
30610
30611 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
30612
30613#if LK5_ENABLED
30614 PURE module subroutine setMatCopy_LFP_RDP_UXD_TSO_LK5(destin, dpack, source, spack, subset, operation, doff)
30615#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30616 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_TSO_LK5
30617#endif
30618 use pm_kind, only: LKG => LK5
30619 type(lfpack_type) , intent(in) :: dpack
30620 type(rdpack_type) , intent(in) :: spack
30621 type(uppDia_type) , intent(in) :: subset
30622 type(transSymm_type) , intent(in) :: operation
30623 integer(IK) , intent(in) , optional :: doff
30624 logical(LKG) , intent(in) :: source(:,:)
30625 logical(LKG) , intent(inout) :: destin(:)
30626 end subroutine
30627#endif
30628
30629#if LK4_ENABLED
30630 PURE module subroutine setMatCopy_LFP_RDP_UXD_TSO_LK4(destin, dpack, source, spack, subset, operation, doff)
30631#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30632 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_TSO_LK4
30633#endif
30634 use pm_kind, only: LKG => LK4
30635 type(lfpack_type) , intent(in) :: dpack
30636 type(rdpack_type) , intent(in) :: spack
30637 type(uppDia_type) , intent(in) :: subset
30638 type(transSymm_type) , intent(in) :: operation
30639 integer(IK) , intent(in) , optional :: doff
30640 logical(LKG) , intent(in) :: source(:,:)
30641 logical(LKG) , intent(inout) :: destin(:)
30642 end subroutine
30643#endif
30644
30645#if LK3_ENABLED
30646 PURE module subroutine setMatCopy_LFP_RDP_UXD_TSO_LK3(destin, dpack, source, spack, subset, operation, doff)
30647#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30648 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_TSO_LK3
30649#endif
30650 use pm_kind, only: LKG => LK3
30651 type(lfpack_type) , intent(in) :: dpack
30652 type(rdpack_type) , intent(in) :: spack
30653 type(uppDia_type) , intent(in) :: subset
30654 type(transSymm_type) , intent(in) :: operation
30655 integer(IK) , intent(in) , optional :: doff
30656 logical(LKG) , intent(in) :: source(:,:)
30657 logical(LKG) , intent(inout) :: destin(:)
30658 end subroutine
30659#endif
30660
30661#if LK2_ENABLED
30662 PURE module subroutine setMatCopy_LFP_RDP_UXD_TSO_LK2(destin, dpack, source, spack, subset, operation, doff)
30663#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30664 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_TSO_LK2
30665#endif
30666 use pm_kind, only: LKG => LK2
30667 type(lfpack_type) , intent(in) :: dpack
30668 type(rdpack_type) , intent(in) :: spack
30669 type(uppDia_type) , intent(in) :: subset
30670 type(transSymm_type) , intent(in) :: operation
30671 integer(IK) , intent(in) , optional :: doff
30672 logical(LKG) , intent(in) :: source(:,:)
30673 logical(LKG) , intent(inout) :: destin(:)
30674 end subroutine
30675#endif
30676
30677#if LK1_ENABLED
30678 PURE module subroutine setMatCopy_LFP_RDP_UXD_TSO_LK1(destin, dpack, source, spack, subset, operation, doff)
30679#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30680 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_TSO_LK1
30681#endif
30682 use pm_kind, only: LKG => LK1
30683 type(lfpack_type) , intent(in) :: dpack
30684 type(rdpack_type) , intent(in) :: spack
30685 type(uppDia_type) , intent(in) :: subset
30686 type(transSymm_type) , intent(in) :: operation
30687 integer(IK) , intent(in) , optional :: doff
30688 logical(LKG) , intent(in) :: source(:,:)
30689 logical(LKG) , intent(inout) :: destin(:)
30690 end subroutine
30691#endif
30692
30693 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
30694
30695#if CK5_ENABLED
30696 PURE module subroutine setMatCopy_LFP_RDP_UXD_TSO_CK5(destin, dpack, source, spack, subset, operation, doff)
30697#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30698 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_TSO_CK5
30699#endif
30700 use pm_kind, only: CKG => CK5
30701 type(lfpack_type) , intent(in) :: dpack
30702 type(rdpack_type) , intent(in) :: spack
30703 type(uppDia_type) , intent(in) :: subset
30704 type(transSymm_type) , intent(in) :: operation
30705 integer(IK) , intent(in) , optional :: doff
30706 complex(CKG) , intent(in) :: source(:,:)
30707 complex(CKG) , intent(inout) :: destin(:)
30708 end subroutine
30709#endif
30710
30711#if CK4_ENABLED
30712 PURE module subroutine setMatCopy_LFP_RDP_UXD_TSO_CK4(destin, dpack, source, spack, subset, operation, doff)
30713#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30714 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_TSO_CK4
30715#endif
30716 use pm_kind, only: CKG => CK4
30717 type(lfpack_type) , intent(in) :: dpack
30718 type(rdpack_type) , intent(in) :: spack
30719 type(uppDia_type) , intent(in) :: subset
30720 type(transSymm_type) , intent(in) :: operation
30721 integer(IK) , intent(in) , optional :: doff
30722 complex(CKG) , intent(in) :: source(:,:)
30723 complex(CKG) , intent(inout) :: destin(:)
30724 end subroutine
30725#endif
30726
30727#if CK3_ENABLED
30728 PURE module subroutine setMatCopy_LFP_RDP_UXD_TSO_CK3(destin, dpack, source, spack, subset, operation, doff)
30729#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30730 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_TSO_CK3
30731#endif
30732 use pm_kind, only: CKG => CK3
30733 type(lfpack_type) , intent(in) :: dpack
30734 type(rdpack_type) , intent(in) :: spack
30735 type(uppDia_type) , intent(in) :: subset
30736 type(transSymm_type) , intent(in) :: operation
30737 integer(IK) , intent(in) , optional :: doff
30738 complex(CKG) , intent(in) :: source(:,:)
30739 complex(CKG) , intent(inout) :: destin(:)
30740 end subroutine
30741#endif
30742
30743#if CK2_ENABLED
30744 PURE module subroutine setMatCopy_LFP_RDP_UXD_TSO_CK2(destin, dpack, source, spack, subset, operation, doff)
30745#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30746 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_TSO_CK2
30747#endif
30748 use pm_kind, only: CKG => CK2
30749 type(lfpack_type) , intent(in) :: dpack
30750 type(rdpack_type) , intent(in) :: spack
30751 type(uppDia_type) , intent(in) :: subset
30752 type(transSymm_type) , intent(in) :: operation
30753 integer(IK) , intent(in) , optional :: doff
30754 complex(CKG) , intent(in) :: source(:,:)
30755 complex(CKG) , intent(inout) :: destin(:)
30756 end subroutine
30757#endif
30758
30759#if CK1_ENABLED
30760 PURE module subroutine setMatCopy_LFP_RDP_UXD_TSO_CK1(destin, dpack, source, spack, subset, operation, doff)
30761#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30762 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_TSO_CK1
30763#endif
30764 use pm_kind, only: CKG => CK1
30765 type(lfpack_type) , intent(in) :: dpack
30766 type(rdpack_type) , intent(in) :: spack
30767 type(uppDia_type) , intent(in) :: subset
30768 type(transSymm_type) , intent(in) :: operation
30769 integer(IK) , intent(in) , optional :: doff
30770 complex(CKG) , intent(in) :: source(:,:)
30771 complex(CKG) , intent(inout) :: destin(:)
30772 end subroutine
30773#endif
30774
30775 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
30776
30777#if RK5_ENABLED
30778 PURE module subroutine setMatCopy_LFP_RDP_UXD_TSO_RK5(destin, dpack, source, spack, subset, operation, doff)
30779#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30780 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_TSO_RK5
30781#endif
30782 use pm_kind, only: RKG => RK5
30783 type(lfpack_type) , intent(in) :: dpack
30784 type(rdpack_type) , intent(in) :: spack
30785 type(uppDia_type) , intent(in) :: subset
30786 type(transSymm_type) , intent(in) :: operation
30787 integer(IK) , intent(in) , optional :: doff
30788 real(RKG) , intent(in) :: source(:,:)
30789 real(RKG) , intent(inout) :: destin(:)
30790 end subroutine
30791#endif
30792
30793#if RK4_ENABLED
30794 PURE module subroutine setMatCopy_LFP_RDP_UXD_TSO_RK4(destin, dpack, source, spack, subset, operation, doff)
30795#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30796 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_TSO_RK4
30797#endif
30798 use pm_kind, only: RKG => RK4
30799 type(lfpack_type) , intent(in) :: dpack
30800 type(rdpack_type) , intent(in) :: spack
30801 type(uppDia_type) , intent(in) :: subset
30802 type(transSymm_type) , intent(in) :: operation
30803 integer(IK) , intent(in) , optional :: doff
30804 real(RKG) , intent(in) :: source(:,:)
30805 real(RKG) , intent(inout) :: destin(:)
30806 end subroutine
30807#endif
30808
30809#if RK3_ENABLED
30810 PURE module subroutine setMatCopy_LFP_RDP_UXD_TSO_RK3(destin, dpack, source, spack, subset, operation, doff)
30811#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30812 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_TSO_RK3
30813#endif
30814 use pm_kind, only: RKG => RK3
30815 type(lfpack_type) , intent(in) :: dpack
30816 type(rdpack_type) , intent(in) :: spack
30817 type(uppDia_type) , intent(in) :: subset
30818 type(transSymm_type) , intent(in) :: operation
30819 integer(IK) , intent(in) , optional :: doff
30820 real(RKG) , intent(in) :: source(:,:)
30821 real(RKG) , intent(inout) :: destin(:)
30822 end subroutine
30823#endif
30824
30825#if RK2_ENABLED
30826 PURE module subroutine setMatCopy_LFP_RDP_UXD_TSO_RK2(destin, dpack, source, spack, subset, operation, doff)
30827#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30828 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_TSO_RK2
30829#endif
30830 use pm_kind, only: RKG => RK2
30831 type(lfpack_type) , intent(in) :: dpack
30832 type(rdpack_type) , intent(in) :: spack
30833 type(uppDia_type) , intent(in) :: subset
30834 type(transSymm_type) , intent(in) :: operation
30835 integer(IK) , intent(in) , optional :: doff
30836 real(RKG) , intent(in) :: source(:,:)
30837 real(RKG) , intent(inout) :: destin(:)
30838 end subroutine
30839#endif
30840
30841#if RK1_ENABLED
30842 PURE module subroutine setMatCopy_LFP_RDP_UXD_TSO_RK1(destin, dpack, source, spack, subset, operation, doff)
30843#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30844 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_TSO_RK1
30845#endif
30846 use pm_kind, only: RKG => RK1
30847 type(lfpack_type) , intent(in) :: dpack
30848 type(rdpack_type) , intent(in) :: spack
30849 type(uppDia_type) , intent(in) :: subset
30850 type(transSymm_type) , intent(in) :: operation
30851 integer(IK) , intent(in) , optional :: doff
30852 real(RKG) , intent(in) :: source(:,:)
30853 real(RKG) , intent(inout) :: destin(:)
30854 end subroutine
30855#endif
30856
30857 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
30858
30859 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
30860 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
30861 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
30862
30863 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
30864
30865#if SK5_ENABLED
30866 PURE module subroutine setMatCopy_LFP_RDP_UXD_THO_SK5(destin, dpack, source, spack, subset, operation, doff)
30867#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30868 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_THO_SK5
30869#endif
30870 use pm_kind, only: SKG => SK5
30871 type(lfpack_type) , intent(in) :: dpack
30872 type(rdpack_type) , intent(in) :: spack
30873 type(uppDia_type) , intent(in) :: subset
30874 type(transHerm_type) , intent(in) :: operation
30875 integer(IK) , intent(in) , optional :: doff
30876 character(*,SKG) , intent(in) :: source(:,:)
30877 character(*,SKG) , intent(inout) :: destin(:)
30878 end subroutine
30879#endif
30880
30881#if SK4_ENABLED
30882 PURE module subroutine setMatCopy_LFP_RDP_UXD_THO_SK4(destin, dpack, source, spack, subset, operation, doff)
30883#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30884 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_THO_SK4
30885#endif
30886 use pm_kind, only: SKG => SK4
30887 type(lfpack_type) , intent(in) :: dpack
30888 type(rdpack_type) , intent(in) :: spack
30889 type(uppDia_type) , intent(in) :: subset
30890 type(transHerm_type) , intent(in) :: operation
30891 integer(IK) , intent(in) , optional :: doff
30892 character(*,SKG) , intent(in) :: source(:,:)
30893 character(*,SKG) , intent(inout) :: destin(:)
30894 end subroutine
30895#endif
30896
30897#if SK3_ENABLED
30898 PURE module subroutine setMatCopy_LFP_RDP_UXD_THO_SK3(destin, dpack, source, spack, subset, operation, doff)
30899#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30900 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_THO_SK3
30901#endif
30902 use pm_kind, only: SKG => SK3
30903 type(lfpack_type) , intent(in) :: dpack
30904 type(rdpack_type) , intent(in) :: spack
30905 type(uppDia_type) , intent(in) :: subset
30906 type(transHerm_type) , intent(in) :: operation
30907 integer(IK) , intent(in) , optional :: doff
30908 character(*,SKG) , intent(in) :: source(:,:)
30909 character(*,SKG) , intent(inout) :: destin(:)
30910 end subroutine
30911#endif
30912
30913#if SK2_ENABLED
30914 PURE module subroutine setMatCopy_LFP_RDP_UXD_THO_SK2(destin, dpack, source, spack, subset, operation, doff)
30915#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30916 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_THO_SK2
30917#endif
30918 use pm_kind, only: SKG => SK2
30919 type(lfpack_type) , intent(in) :: dpack
30920 type(rdpack_type) , intent(in) :: spack
30921 type(uppDia_type) , intent(in) :: subset
30922 type(transHerm_type) , intent(in) :: operation
30923 integer(IK) , intent(in) , optional :: doff
30924 character(*,SKG) , intent(in) :: source(:,:)
30925 character(*,SKG) , intent(inout) :: destin(:)
30926 end subroutine
30927#endif
30928
30929#if SK1_ENABLED
30930 PURE module subroutine setMatCopy_LFP_RDP_UXD_THO_SK1(destin, dpack, source, spack, subset, operation, doff)
30931#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30932 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_THO_SK1
30933#endif
30934 use pm_kind, only: SKG => SK1
30935 type(lfpack_type) , intent(in) :: dpack
30936 type(rdpack_type) , intent(in) :: spack
30937 type(uppDia_type) , intent(in) :: subset
30938 type(transHerm_type) , intent(in) :: operation
30939 integer(IK) , intent(in) , optional :: doff
30940 character(*,SKG) , intent(in) :: source(:,:)
30941 character(*,SKG) , intent(inout) :: destin(:)
30942 end subroutine
30943#endif
30944
30945 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
30946
30947#if IK5_ENABLED
30948 PURE module subroutine setMatCopy_LFP_RDP_UXD_THO_IK5(destin, dpack, source, spack, subset, operation, doff)
30949#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30950 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_THO_IK5
30951#endif
30952 use pm_kind, only: IKG => IK5
30953 type(lfpack_type) , intent(in) :: dpack
30954 type(rdpack_type) , intent(in) :: spack
30955 type(uppDia_type) , intent(in) :: subset
30956 type(transHerm_type) , intent(in) :: operation
30957 integer(IK) , intent(in) , optional :: doff
30958 integer(IKG) , intent(in) :: source(:,:)
30959 integer(IKG) , intent(inout) :: destin(:)
30960 end subroutine
30961#endif
30962
30963#if IK4_ENABLED
30964 PURE module subroutine setMatCopy_LFP_RDP_UXD_THO_IK4(destin, dpack, source, spack, subset, operation, doff)
30965#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30966 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_THO_IK4
30967#endif
30968 use pm_kind, only: IKG => IK4
30969 type(lfpack_type) , intent(in) :: dpack
30970 type(rdpack_type) , intent(in) :: spack
30971 type(uppDia_type) , intent(in) :: subset
30972 type(transHerm_type) , intent(in) :: operation
30973 integer(IK) , intent(in) , optional :: doff
30974 integer(IKG) , intent(in) :: source(:,:)
30975 integer(IKG) , intent(inout) :: destin(:)
30976 end subroutine
30977#endif
30978
30979#if IK3_ENABLED
30980 PURE module subroutine setMatCopy_LFP_RDP_UXD_THO_IK3(destin, dpack, source, spack, subset, operation, doff)
30981#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30982 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_THO_IK3
30983#endif
30984 use pm_kind, only: IKG => IK3
30985 type(lfpack_type) , intent(in) :: dpack
30986 type(rdpack_type) , intent(in) :: spack
30987 type(uppDia_type) , intent(in) :: subset
30988 type(transHerm_type) , intent(in) :: operation
30989 integer(IK) , intent(in) , optional :: doff
30990 integer(IKG) , intent(in) :: source(:,:)
30991 integer(IKG) , intent(inout) :: destin(:)
30992 end subroutine
30993#endif
30994
30995#if IK2_ENABLED
30996 PURE module subroutine setMatCopy_LFP_RDP_UXD_THO_IK2(destin, dpack, source, spack, subset, operation, doff)
30997#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
30998 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_THO_IK2
30999#endif
31000 use pm_kind, only: IKG => IK2
31001 type(lfpack_type) , intent(in) :: dpack
31002 type(rdpack_type) , intent(in) :: spack
31003 type(uppDia_type) , intent(in) :: subset
31004 type(transHerm_type) , intent(in) :: operation
31005 integer(IK) , intent(in) , optional :: doff
31006 integer(IKG) , intent(in) :: source(:,:)
31007 integer(IKG) , intent(inout) :: destin(:)
31008 end subroutine
31009#endif
31010
31011#if IK1_ENABLED
31012 PURE module subroutine setMatCopy_LFP_RDP_UXD_THO_IK1(destin, dpack, source, spack, subset, operation, doff)
31013#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31014 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_THO_IK1
31015#endif
31016 use pm_kind, only: IKG => IK1
31017 type(lfpack_type) , intent(in) :: dpack
31018 type(rdpack_type) , intent(in) :: spack
31019 type(uppDia_type) , intent(in) :: subset
31020 type(transHerm_type) , intent(in) :: operation
31021 integer(IK) , intent(in) , optional :: doff
31022 integer(IKG) , intent(in) :: source(:,:)
31023 integer(IKG) , intent(inout) :: destin(:)
31024 end subroutine
31025#endif
31026
31027 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
31028
31029#if LK5_ENABLED
31030 PURE module subroutine setMatCopy_LFP_RDP_UXD_THO_LK5(destin, dpack, source, spack, subset, operation, doff)
31031#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31032 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_THO_LK5
31033#endif
31034 use pm_kind, only: LKG => LK5
31035 type(lfpack_type) , intent(in) :: dpack
31036 type(rdpack_type) , intent(in) :: spack
31037 type(uppDia_type) , intent(in) :: subset
31038 type(transHerm_type) , intent(in) :: operation
31039 integer(IK) , intent(in) , optional :: doff
31040 logical(LKG) , intent(in) :: source(:,:)
31041 logical(LKG) , intent(inout) :: destin(:)
31042 end subroutine
31043#endif
31044
31045#if LK4_ENABLED
31046 PURE module subroutine setMatCopy_LFP_RDP_UXD_THO_LK4(destin, dpack, source, spack, subset, operation, doff)
31047#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31048 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_THO_LK4
31049#endif
31050 use pm_kind, only: LKG => LK4
31051 type(lfpack_type) , intent(in) :: dpack
31052 type(rdpack_type) , intent(in) :: spack
31053 type(uppDia_type) , intent(in) :: subset
31054 type(transHerm_type) , intent(in) :: operation
31055 integer(IK) , intent(in) , optional :: doff
31056 logical(LKG) , intent(in) :: source(:,:)
31057 logical(LKG) , intent(inout) :: destin(:)
31058 end subroutine
31059#endif
31060
31061#if LK3_ENABLED
31062 PURE module subroutine setMatCopy_LFP_RDP_UXD_THO_LK3(destin, dpack, source, spack, subset, operation, doff)
31063#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31064 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_THO_LK3
31065#endif
31066 use pm_kind, only: LKG => LK3
31067 type(lfpack_type) , intent(in) :: dpack
31068 type(rdpack_type) , intent(in) :: spack
31069 type(uppDia_type) , intent(in) :: subset
31070 type(transHerm_type) , intent(in) :: operation
31071 integer(IK) , intent(in) , optional :: doff
31072 logical(LKG) , intent(in) :: source(:,:)
31073 logical(LKG) , intent(inout) :: destin(:)
31074 end subroutine
31075#endif
31076
31077#if LK2_ENABLED
31078 PURE module subroutine setMatCopy_LFP_RDP_UXD_THO_LK2(destin, dpack, source, spack, subset, operation, doff)
31079#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31080 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_THO_LK2
31081#endif
31082 use pm_kind, only: LKG => LK2
31083 type(lfpack_type) , intent(in) :: dpack
31084 type(rdpack_type) , intent(in) :: spack
31085 type(uppDia_type) , intent(in) :: subset
31086 type(transHerm_type) , intent(in) :: operation
31087 integer(IK) , intent(in) , optional :: doff
31088 logical(LKG) , intent(in) :: source(:,:)
31089 logical(LKG) , intent(inout) :: destin(:)
31090 end subroutine
31091#endif
31092
31093#if LK1_ENABLED
31094 PURE module subroutine setMatCopy_LFP_RDP_UXD_THO_LK1(destin, dpack, source, spack, subset, operation, doff)
31095#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31096 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_THO_LK1
31097#endif
31098 use pm_kind, only: LKG => LK1
31099 type(lfpack_type) , intent(in) :: dpack
31100 type(rdpack_type) , intent(in) :: spack
31101 type(uppDia_type) , intent(in) :: subset
31102 type(transHerm_type) , intent(in) :: operation
31103 integer(IK) , intent(in) , optional :: doff
31104 logical(LKG) , intent(in) :: source(:,:)
31105 logical(LKG) , intent(inout) :: destin(:)
31106 end subroutine
31107#endif
31108
31109 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
31110
31111#if CK5_ENABLED
31112 PURE module subroutine setMatCopy_LFP_RDP_UXD_THO_CK5(destin, dpack, source, spack, subset, operation, doff)
31113#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31114 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_THO_CK5
31115#endif
31116 use pm_kind, only: CKG => CK5
31117 type(lfpack_type) , intent(in) :: dpack
31118 type(rdpack_type) , intent(in) :: spack
31119 type(uppDia_type) , intent(in) :: subset
31120 type(transHerm_type) , intent(in) :: operation
31121 integer(IK) , intent(in) , optional :: doff
31122 complex(CKG) , intent(in) :: source(:,:)
31123 complex(CKG) , intent(inout) :: destin(:)
31124 end subroutine
31125#endif
31126
31127#if CK4_ENABLED
31128 PURE module subroutine setMatCopy_LFP_RDP_UXD_THO_CK4(destin, dpack, source, spack, subset, operation, doff)
31129#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31130 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_THO_CK4
31131#endif
31132 use pm_kind, only: CKG => CK4
31133 type(lfpack_type) , intent(in) :: dpack
31134 type(rdpack_type) , intent(in) :: spack
31135 type(uppDia_type) , intent(in) :: subset
31136 type(transHerm_type) , intent(in) :: operation
31137 integer(IK) , intent(in) , optional :: doff
31138 complex(CKG) , intent(in) :: source(:,:)
31139 complex(CKG) , intent(inout) :: destin(:)
31140 end subroutine
31141#endif
31142
31143#if CK3_ENABLED
31144 PURE module subroutine setMatCopy_LFP_RDP_UXD_THO_CK3(destin, dpack, source, spack, subset, operation, doff)
31145#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31146 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_THO_CK3
31147#endif
31148 use pm_kind, only: CKG => CK3
31149 type(lfpack_type) , intent(in) :: dpack
31150 type(rdpack_type) , intent(in) :: spack
31151 type(uppDia_type) , intent(in) :: subset
31152 type(transHerm_type) , intent(in) :: operation
31153 integer(IK) , intent(in) , optional :: doff
31154 complex(CKG) , intent(in) :: source(:,:)
31155 complex(CKG) , intent(inout) :: destin(:)
31156 end subroutine
31157#endif
31158
31159#if CK2_ENABLED
31160 PURE module subroutine setMatCopy_LFP_RDP_UXD_THO_CK2(destin, dpack, source, spack, subset, operation, doff)
31161#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31162 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_THO_CK2
31163#endif
31164 use pm_kind, only: CKG => CK2
31165 type(lfpack_type) , intent(in) :: dpack
31166 type(rdpack_type) , intent(in) :: spack
31167 type(uppDia_type) , intent(in) :: subset
31168 type(transHerm_type) , intent(in) :: operation
31169 integer(IK) , intent(in) , optional :: doff
31170 complex(CKG) , intent(in) :: source(:,:)
31171 complex(CKG) , intent(inout) :: destin(:)
31172 end subroutine
31173#endif
31174
31175#if CK1_ENABLED
31176 PURE module subroutine setMatCopy_LFP_RDP_UXD_THO_CK1(destin, dpack, source, spack, subset, operation, doff)
31177#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31178 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_THO_CK1
31179#endif
31180 use pm_kind, only: CKG => CK1
31181 type(lfpack_type) , intent(in) :: dpack
31182 type(rdpack_type) , intent(in) :: spack
31183 type(uppDia_type) , intent(in) :: subset
31184 type(transHerm_type) , intent(in) :: operation
31185 integer(IK) , intent(in) , optional :: doff
31186 complex(CKG) , intent(in) :: source(:,:)
31187 complex(CKG) , intent(inout) :: destin(:)
31188 end subroutine
31189#endif
31190
31191 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
31192
31193#if RK5_ENABLED
31194 PURE module subroutine setMatCopy_LFP_RDP_UXD_THO_RK5(destin, dpack, source, spack, subset, operation, doff)
31195#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31196 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_THO_RK5
31197#endif
31198 use pm_kind, only: RKG => RK5
31199 type(lfpack_type) , intent(in) :: dpack
31200 type(rdpack_type) , intent(in) :: spack
31201 type(uppDia_type) , intent(in) :: subset
31202 type(transHerm_type) , intent(in) :: operation
31203 integer(IK) , intent(in) , optional :: doff
31204 real(RKG) , intent(in) :: source(:,:)
31205 real(RKG) , intent(inout) :: destin(:)
31206 end subroutine
31207#endif
31208
31209#if RK4_ENABLED
31210 PURE module subroutine setMatCopy_LFP_RDP_UXD_THO_RK4(destin, dpack, source, spack, subset, operation, doff)
31211#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31212 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_THO_RK4
31213#endif
31214 use pm_kind, only: RKG => RK4
31215 type(lfpack_type) , intent(in) :: dpack
31216 type(rdpack_type) , intent(in) :: spack
31217 type(uppDia_type) , intent(in) :: subset
31218 type(transHerm_type) , intent(in) :: operation
31219 integer(IK) , intent(in) , optional :: doff
31220 real(RKG) , intent(in) :: source(:,:)
31221 real(RKG) , intent(inout) :: destin(:)
31222 end subroutine
31223#endif
31224
31225#if RK3_ENABLED
31226 PURE module subroutine setMatCopy_LFP_RDP_UXD_THO_RK3(destin, dpack, source, spack, subset, operation, doff)
31227#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31228 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_THO_RK3
31229#endif
31230 use pm_kind, only: RKG => RK3
31231 type(lfpack_type) , intent(in) :: dpack
31232 type(rdpack_type) , intent(in) :: spack
31233 type(uppDia_type) , intent(in) :: subset
31234 type(transHerm_type) , intent(in) :: operation
31235 integer(IK) , intent(in) , optional :: doff
31236 real(RKG) , intent(in) :: source(:,:)
31237 real(RKG) , intent(inout) :: destin(:)
31238 end subroutine
31239#endif
31240
31241#if RK2_ENABLED
31242 PURE module subroutine setMatCopy_LFP_RDP_UXD_THO_RK2(destin, dpack, source, spack, subset, operation, doff)
31243#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31244 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_THO_RK2
31245#endif
31246 use pm_kind, only: RKG => RK2
31247 type(lfpack_type) , intent(in) :: dpack
31248 type(rdpack_type) , intent(in) :: spack
31249 type(uppDia_type) , intent(in) :: subset
31250 type(transHerm_type) , intent(in) :: operation
31251 integer(IK) , intent(in) , optional :: doff
31252 real(RKG) , intent(in) :: source(:,:)
31253 real(RKG) , intent(inout) :: destin(:)
31254 end subroutine
31255#endif
31256
31257#if RK1_ENABLED
31258 PURE module subroutine setMatCopy_LFP_RDP_UXD_THO_RK1(destin, dpack, source, spack, subset, operation, doff)
31259#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31260 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_UXD_THO_RK1
31261#endif
31262 use pm_kind, only: RKG => RK1
31263 type(lfpack_type) , intent(in) :: dpack
31264 type(rdpack_type) , intent(in) :: spack
31265 type(uppDia_type) , intent(in) :: subset
31266 type(transHerm_type) , intent(in) :: operation
31267 integer(IK) , intent(in) , optional :: doff
31268 real(RKG) , intent(in) :: source(:,:)
31269 real(RKG) , intent(inout) :: destin(:)
31270 end subroutine
31271#endif
31272
31273 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
31274
31275 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
31276 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
31277 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
31278
31279 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
31280 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
31281 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
31282
31283 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
31284
31285#if SK5_ENABLED
31286 PURE module subroutine setMatCopy_LFP_RDP_XLD_AIO_SK5(destin, dpack, source, spack, subset, doff)
31287#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31288 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_AIO_SK5
31289#endif
31290 use pm_kind, only: SKG => SK5
31291 type(lfpack_type) , intent(in) :: dpack
31292 type(rdpack_type) , intent(in) :: spack
31293 type(lowDia_type) , intent(in) :: subset
31294 integer(IK) , intent(in) , optional :: doff
31295 character(*,SKG) , intent(in) :: source(:,:)
31296 character(*,SKG) , intent(inout) :: destin(:)
31297 end subroutine
31298#endif
31299
31300#if SK4_ENABLED
31301 PURE module subroutine setMatCopy_LFP_RDP_XLD_AIO_SK4(destin, dpack, source, spack, subset, doff)
31302#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31303 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_AIO_SK4
31304#endif
31305 use pm_kind, only: SKG => SK4
31306 type(lfpack_type) , intent(in) :: dpack
31307 type(rdpack_type) , intent(in) :: spack
31308 type(lowDia_type) , intent(in) :: subset
31309 integer(IK) , intent(in) , optional :: doff
31310 character(*,SKG) , intent(in) :: source(:,:)
31311 character(*,SKG) , intent(inout) :: destin(:)
31312 end subroutine
31313#endif
31314
31315#if SK3_ENABLED
31316 PURE module subroutine setMatCopy_LFP_RDP_XLD_AIO_SK3(destin, dpack, source, spack, subset, doff)
31317#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31318 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_AIO_SK3
31319#endif
31320 use pm_kind, only: SKG => SK3
31321 type(lfpack_type) , intent(in) :: dpack
31322 type(rdpack_type) , intent(in) :: spack
31323 type(lowDia_type) , intent(in) :: subset
31324 integer(IK) , intent(in) , optional :: doff
31325 character(*,SKG) , intent(in) :: source(:,:)
31326 character(*,SKG) , intent(inout) :: destin(:)
31327 end subroutine
31328#endif
31329
31330#if SK2_ENABLED
31331 PURE module subroutine setMatCopy_LFP_RDP_XLD_AIO_SK2(destin, dpack, source, spack, subset, doff)
31332#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31333 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_AIO_SK2
31334#endif
31335 use pm_kind, only: SKG => SK2
31336 type(lfpack_type) , intent(in) :: dpack
31337 type(rdpack_type) , intent(in) :: spack
31338 type(lowDia_type) , intent(in) :: subset
31339 integer(IK) , intent(in) , optional :: doff
31340 character(*,SKG) , intent(in) :: source(:,:)
31341 character(*,SKG) , intent(inout) :: destin(:)
31342 end subroutine
31343#endif
31344
31345#if SK1_ENABLED
31346 PURE module subroutine setMatCopy_LFP_RDP_XLD_AIO_SK1(destin, dpack, source, spack, subset, doff)
31347#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31348 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_AIO_SK1
31349#endif
31350 use pm_kind, only: SKG => SK1
31351 type(lfpack_type) , intent(in) :: dpack
31352 type(rdpack_type) , intent(in) :: spack
31353 type(lowDia_type) , intent(in) :: subset
31354 integer(IK) , intent(in) , optional :: doff
31355 character(*,SKG) , intent(in) :: source(:,:)
31356 character(*,SKG) , intent(inout) :: destin(:)
31357 end subroutine
31358#endif
31359
31360 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
31361
31362#if IK5_ENABLED
31363 PURE module subroutine setMatCopy_LFP_RDP_XLD_AIO_IK5(destin, dpack, source, spack, subset, doff)
31364#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31365 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_AIO_IK5
31366#endif
31367 use pm_kind, only: IKG => IK5
31368 type(lfpack_type) , intent(in) :: dpack
31369 type(rdpack_type) , intent(in) :: spack
31370 type(lowDia_type) , intent(in) :: subset
31371 integer(IK) , intent(in) , optional :: doff
31372 integer(IKG) , intent(in) :: source(:,:)
31373 integer(IKG) , intent(inout) :: destin(:)
31374 end subroutine
31375#endif
31376
31377#if IK4_ENABLED
31378 PURE module subroutine setMatCopy_LFP_RDP_XLD_AIO_IK4(destin, dpack, source, spack, subset, doff)
31379#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31380 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_AIO_IK4
31381#endif
31382 use pm_kind, only: IKG => IK4
31383 type(lfpack_type) , intent(in) :: dpack
31384 type(rdpack_type) , intent(in) :: spack
31385 type(lowDia_type) , intent(in) :: subset
31386 integer(IK) , intent(in) , optional :: doff
31387 integer(IKG) , intent(in) :: source(:,:)
31388 integer(IKG) , intent(inout) :: destin(:)
31389 end subroutine
31390#endif
31391
31392#if IK3_ENABLED
31393 PURE module subroutine setMatCopy_LFP_RDP_XLD_AIO_IK3(destin, dpack, source, spack, subset, doff)
31394#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31395 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_AIO_IK3
31396#endif
31397 use pm_kind, only: IKG => IK3
31398 type(lfpack_type) , intent(in) :: dpack
31399 type(rdpack_type) , intent(in) :: spack
31400 type(lowDia_type) , intent(in) :: subset
31401 integer(IK) , intent(in) , optional :: doff
31402 integer(IKG) , intent(in) :: source(:,:)
31403 integer(IKG) , intent(inout) :: destin(:)
31404 end subroutine
31405#endif
31406
31407#if IK2_ENABLED
31408 PURE module subroutine setMatCopy_LFP_RDP_XLD_AIO_IK2(destin, dpack, source, spack, subset, doff)
31409#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31410 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_AIO_IK2
31411#endif
31412 use pm_kind, only: IKG => IK2
31413 type(lfpack_type) , intent(in) :: dpack
31414 type(rdpack_type) , intent(in) :: spack
31415 type(lowDia_type) , intent(in) :: subset
31416 integer(IK) , intent(in) , optional :: doff
31417 integer(IKG) , intent(in) :: source(:,:)
31418 integer(IKG) , intent(inout) :: destin(:)
31419 end subroutine
31420#endif
31421
31422#if IK1_ENABLED
31423 PURE module subroutine setMatCopy_LFP_RDP_XLD_AIO_IK1(destin, dpack, source, spack, subset, doff)
31424#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31425 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_AIO_IK1
31426#endif
31427 use pm_kind, only: IKG => IK1
31428 type(lfpack_type) , intent(in) :: dpack
31429 type(rdpack_type) , intent(in) :: spack
31430 type(lowDia_type) , intent(in) :: subset
31431 integer(IK) , intent(in) , optional :: doff
31432 integer(IKG) , intent(in) :: source(:,:)
31433 integer(IKG) , intent(inout) :: destin(:)
31434 end subroutine
31435#endif
31436
31437 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
31438
31439#if LK5_ENABLED
31440 PURE module subroutine setMatCopy_LFP_RDP_XLD_AIO_LK5(destin, dpack, source, spack, subset, doff)
31441#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31442 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_AIO_LK5
31443#endif
31444 use pm_kind, only: LKG => LK5
31445 type(lfpack_type) , intent(in) :: dpack
31446 type(rdpack_type) , intent(in) :: spack
31447 type(lowDia_type) , intent(in) :: subset
31448 integer(IK) , intent(in) , optional :: doff
31449 logical(LKG) , intent(in) :: source(:,:)
31450 logical(LKG) , intent(inout) :: destin(:)
31451 end subroutine
31452#endif
31453
31454#if LK4_ENABLED
31455 PURE module subroutine setMatCopy_LFP_RDP_XLD_AIO_LK4(destin, dpack, source, spack, subset, doff)
31456#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31457 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_AIO_LK4
31458#endif
31459 use pm_kind, only: LKG => LK4
31460 type(lfpack_type) , intent(in) :: dpack
31461 type(rdpack_type) , intent(in) :: spack
31462 type(lowDia_type) , intent(in) :: subset
31463 integer(IK) , intent(in) , optional :: doff
31464 logical(LKG) , intent(in) :: source(:,:)
31465 logical(LKG) , intent(inout) :: destin(:)
31466 end subroutine
31467#endif
31468
31469#if LK3_ENABLED
31470 PURE module subroutine setMatCopy_LFP_RDP_XLD_AIO_LK3(destin, dpack, source, spack, subset, doff)
31471#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31472 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_AIO_LK3
31473#endif
31474 use pm_kind, only: LKG => LK3
31475 type(lfpack_type) , intent(in) :: dpack
31476 type(rdpack_type) , intent(in) :: spack
31477 type(lowDia_type) , intent(in) :: subset
31478 integer(IK) , intent(in) , optional :: doff
31479 logical(LKG) , intent(in) :: source(:,:)
31480 logical(LKG) , intent(inout) :: destin(:)
31481 end subroutine
31482#endif
31483
31484#if LK2_ENABLED
31485 PURE module subroutine setMatCopy_LFP_RDP_XLD_AIO_LK2(destin, dpack, source, spack, subset, doff)
31486#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31487 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_AIO_LK2
31488#endif
31489 use pm_kind, only: LKG => LK2
31490 type(lfpack_type) , intent(in) :: dpack
31491 type(rdpack_type) , intent(in) :: spack
31492 type(lowDia_type) , intent(in) :: subset
31493 integer(IK) , intent(in) , optional :: doff
31494 logical(LKG) , intent(in) :: source(:,:)
31495 logical(LKG) , intent(inout) :: destin(:)
31496 end subroutine
31497#endif
31498
31499#if LK1_ENABLED
31500 PURE module subroutine setMatCopy_LFP_RDP_XLD_AIO_LK1(destin, dpack, source, spack, subset, doff)
31501#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31502 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_AIO_LK1
31503#endif
31504 use pm_kind, only: LKG => LK1
31505 type(lfpack_type) , intent(in) :: dpack
31506 type(rdpack_type) , intent(in) :: spack
31507 type(lowDia_type) , intent(in) :: subset
31508 integer(IK) , intent(in) , optional :: doff
31509 logical(LKG) , intent(in) :: source(:,:)
31510 logical(LKG) , intent(inout) :: destin(:)
31511 end subroutine
31512#endif
31513
31514 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
31515
31516#if CK5_ENABLED
31517 PURE module subroutine setMatCopy_LFP_RDP_XLD_AIO_CK5(destin, dpack, source, spack, subset, doff)
31518#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31519 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_AIO_CK5
31520#endif
31521 use pm_kind, only: CKG => CK5
31522 type(lfpack_type) , intent(in) :: dpack
31523 type(rdpack_type) , intent(in) :: spack
31524 type(lowDia_type) , intent(in) :: subset
31525 integer(IK) , intent(in) , optional :: doff
31526 complex(CKG) , intent(in) :: source(:,:)
31527 complex(CKG) , intent(inout) :: destin(:)
31528 end subroutine
31529#endif
31530
31531#if CK4_ENABLED
31532 PURE module subroutine setMatCopy_LFP_RDP_XLD_AIO_CK4(destin, dpack, source, spack, subset, doff)
31533#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31534 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_AIO_CK4
31535#endif
31536 use pm_kind, only: CKG => CK4
31537 type(lfpack_type) , intent(in) :: dpack
31538 type(rdpack_type) , intent(in) :: spack
31539 type(lowDia_type) , intent(in) :: subset
31540 integer(IK) , intent(in) , optional :: doff
31541 complex(CKG) , intent(in) :: source(:,:)
31542 complex(CKG) , intent(inout) :: destin(:)
31543 end subroutine
31544#endif
31545
31546#if CK3_ENABLED
31547 PURE module subroutine setMatCopy_LFP_RDP_XLD_AIO_CK3(destin, dpack, source, spack, subset, doff)
31548#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31549 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_AIO_CK3
31550#endif
31551 use pm_kind, only: CKG => CK3
31552 type(lfpack_type) , intent(in) :: dpack
31553 type(rdpack_type) , intent(in) :: spack
31554 type(lowDia_type) , intent(in) :: subset
31555 integer(IK) , intent(in) , optional :: doff
31556 complex(CKG) , intent(in) :: source(:,:)
31557 complex(CKG) , intent(inout) :: destin(:)
31558 end subroutine
31559#endif
31560
31561#if CK2_ENABLED
31562 PURE module subroutine setMatCopy_LFP_RDP_XLD_AIO_CK2(destin, dpack, source, spack, subset, doff)
31563#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31564 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_AIO_CK2
31565#endif
31566 use pm_kind, only: CKG => CK2
31567 type(lfpack_type) , intent(in) :: dpack
31568 type(rdpack_type) , intent(in) :: spack
31569 type(lowDia_type) , intent(in) :: subset
31570 integer(IK) , intent(in) , optional :: doff
31571 complex(CKG) , intent(in) :: source(:,:)
31572 complex(CKG) , intent(inout) :: destin(:)
31573 end subroutine
31574#endif
31575
31576#if CK1_ENABLED
31577 PURE module subroutine setMatCopy_LFP_RDP_XLD_AIO_CK1(destin, dpack, source, spack, subset, doff)
31578#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31579 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_AIO_CK1
31580#endif
31581 use pm_kind, only: CKG => CK1
31582 type(lfpack_type) , intent(in) :: dpack
31583 type(rdpack_type) , intent(in) :: spack
31584 type(lowDia_type) , intent(in) :: subset
31585 integer(IK) , intent(in) , optional :: doff
31586 complex(CKG) , intent(in) :: source(:,:)
31587 complex(CKG) , intent(inout) :: destin(:)
31588 end subroutine
31589#endif
31590
31591 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
31592
31593#if RK5_ENABLED
31594 PURE module subroutine setMatCopy_LFP_RDP_XLD_AIO_RK5(destin, dpack, source, spack, subset, doff)
31595#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31596 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_AIO_RK5
31597#endif
31598 use pm_kind, only: RKG => RK5
31599 type(lfpack_type) , intent(in) :: dpack
31600 type(rdpack_type) , intent(in) :: spack
31601 type(lowDia_type) , intent(in) :: subset
31602 integer(IK) , intent(in) , optional :: doff
31603 real(RKG) , intent(in) :: source(:,:)
31604 real(RKG) , intent(inout) :: destin(:)
31605 end subroutine
31606#endif
31607
31608#if RK4_ENABLED
31609 PURE module subroutine setMatCopy_LFP_RDP_XLD_AIO_RK4(destin, dpack, source, spack, subset, doff)
31610#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31611 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_AIO_RK4
31612#endif
31613 use pm_kind, only: RKG => RK4
31614 type(lfpack_type) , intent(in) :: dpack
31615 type(rdpack_type) , intent(in) :: spack
31616 type(lowDia_type) , intent(in) :: subset
31617 integer(IK) , intent(in) , optional :: doff
31618 real(RKG) , intent(in) :: source(:,:)
31619 real(RKG) , intent(inout) :: destin(:)
31620 end subroutine
31621#endif
31622
31623#if RK3_ENABLED
31624 PURE module subroutine setMatCopy_LFP_RDP_XLD_AIO_RK3(destin, dpack, source, spack, subset, doff)
31625#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31626 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_AIO_RK3
31627#endif
31628 use pm_kind, only: RKG => RK3
31629 type(lfpack_type) , intent(in) :: dpack
31630 type(rdpack_type) , intent(in) :: spack
31631 type(lowDia_type) , intent(in) :: subset
31632 integer(IK) , intent(in) , optional :: doff
31633 real(RKG) , intent(in) :: source(:,:)
31634 real(RKG) , intent(inout) :: destin(:)
31635 end subroutine
31636#endif
31637
31638#if RK2_ENABLED
31639 PURE module subroutine setMatCopy_LFP_RDP_XLD_AIO_RK2(destin, dpack, source, spack, subset, doff)
31640#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31641 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_AIO_RK2
31642#endif
31643 use pm_kind, only: RKG => RK2
31644 type(lfpack_type) , intent(in) :: dpack
31645 type(rdpack_type) , intent(in) :: spack
31646 type(lowDia_type) , intent(in) :: subset
31647 integer(IK) , intent(in) , optional :: doff
31648 real(RKG) , intent(in) :: source(:,:)
31649 real(RKG) , intent(inout) :: destin(:)
31650 end subroutine
31651#endif
31652
31653#if RK1_ENABLED
31654 PURE module subroutine setMatCopy_LFP_RDP_XLD_AIO_RK1(destin, dpack, source, spack, subset, doff)
31655#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31656 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_AIO_RK1
31657#endif
31658 use pm_kind, only: RKG => RK1
31659 type(lfpack_type) , intent(in) :: dpack
31660 type(rdpack_type) , intent(in) :: spack
31661 type(lowDia_type) , intent(in) :: subset
31662 integer(IK) , intent(in) , optional :: doff
31663 real(RKG) , intent(in) :: source(:,:)
31664 real(RKG) , intent(inout) :: destin(:)
31665 end subroutine
31666#endif
31667
31668 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
31669
31670 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
31671 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
31672 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
31673
31674 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
31675
31676#if SK5_ENABLED
31677 PURE module subroutine setMatCopy_LFP_RDP_XLD_TSO_SK5(destin, dpack, source, spack, subset, operation, doff)
31678#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31679 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_TSO_SK5
31680#endif
31681 use pm_kind, only: SKG => SK5
31682 type(lfpack_type) , intent(in) :: dpack
31683 type(rdpack_type) , intent(in) :: spack
31684 type(lowDia_type) , intent(in) :: subset
31685 type(transSymm_type) , intent(in) :: operation
31686 integer(IK) , intent(in) , optional :: doff
31687 character(*,SKG) , intent(in) :: source(:,:)
31688 character(*,SKG) , intent(inout) :: destin(:)
31689 end subroutine
31690#endif
31691
31692#if SK4_ENABLED
31693 PURE module subroutine setMatCopy_LFP_RDP_XLD_TSO_SK4(destin, dpack, source, spack, subset, operation, doff)
31694#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31695 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_TSO_SK4
31696#endif
31697 use pm_kind, only: SKG => SK4
31698 type(lfpack_type) , intent(in) :: dpack
31699 type(rdpack_type) , intent(in) :: spack
31700 type(lowDia_type) , intent(in) :: subset
31701 type(transSymm_type) , intent(in) :: operation
31702 integer(IK) , intent(in) , optional :: doff
31703 character(*,SKG) , intent(in) :: source(:,:)
31704 character(*,SKG) , intent(inout) :: destin(:)
31705 end subroutine
31706#endif
31707
31708#if SK3_ENABLED
31709 PURE module subroutine setMatCopy_LFP_RDP_XLD_TSO_SK3(destin, dpack, source, spack, subset, operation, doff)
31710#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31711 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_TSO_SK3
31712#endif
31713 use pm_kind, only: SKG => SK3
31714 type(lfpack_type) , intent(in) :: dpack
31715 type(rdpack_type) , intent(in) :: spack
31716 type(lowDia_type) , intent(in) :: subset
31717 type(transSymm_type) , intent(in) :: operation
31718 integer(IK) , intent(in) , optional :: doff
31719 character(*,SKG) , intent(in) :: source(:,:)
31720 character(*,SKG) , intent(inout) :: destin(:)
31721 end subroutine
31722#endif
31723
31724#if SK2_ENABLED
31725 PURE module subroutine setMatCopy_LFP_RDP_XLD_TSO_SK2(destin, dpack, source, spack, subset, operation, doff)
31726#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31727 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_TSO_SK2
31728#endif
31729 use pm_kind, only: SKG => SK2
31730 type(lfpack_type) , intent(in) :: dpack
31731 type(rdpack_type) , intent(in) :: spack
31732 type(lowDia_type) , intent(in) :: subset
31733 type(transSymm_type) , intent(in) :: operation
31734 integer(IK) , intent(in) , optional :: doff
31735 character(*,SKG) , intent(in) :: source(:,:)
31736 character(*,SKG) , intent(inout) :: destin(:)
31737 end subroutine
31738#endif
31739
31740#if SK1_ENABLED
31741 PURE module subroutine setMatCopy_LFP_RDP_XLD_TSO_SK1(destin, dpack, source, spack, subset, operation, doff)
31742#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31743 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_TSO_SK1
31744#endif
31745 use pm_kind, only: SKG => SK1
31746 type(lfpack_type) , intent(in) :: dpack
31747 type(rdpack_type) , intent(in) :: spack
31748 type(lowDia_type) , intent(in) :: subset
31749 type(transSymm_type) , intent(in) :: operation
31750 integer(IK) , intent(in) , optional :: doff
31751 character(*,SKG) , intent(in) :: source(:,:)
31752 character(*,SKG) , intent(inout) :: destin(:)
31753 end subroutine
31754#endif
31755
31756 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
31757
31758#if IK5_ENABLED
31759 PURE module subroutine setMatCopy_LFP_RDP_XLD_TSO_IK5(destin, dpack, source, spack, subset, operation, doff)
31760#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31761 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_TSO_IK5
31762#endif
31763 use pm_kind, only: IKG => IK5
31764 type(lfpack_type) , intent(in) :: dpack
31765 type(rdpack_type) , intent(in) :: spack
31766 type(lowDia_type) , intent(in) :: subset
31767 type(transSymm_type) , intent(in) :: operation
31768 integer(IK) , intent(in) , optional :: doff
31769 integer(IKG) , intent(in) :: source(:,:)
31770 integer(IKG) , intent(inout) :: destin(:)
31771 end subroutine
31772#endif
31773
31774#if IK4_ENABLED
31775 PURE module subroutine setMatCopy_LFP_RDP_XLD_TSO_IK4(destin, dpack, source, spack, subset, operation, doff)
31776#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31777 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_TSO_IK4
31778#endif
31779 use pm_kind, only: IKG => IK4
31780 type(lfpack_type) , intent(in) :: dpack
31781 type(rdpack_type) , intent(in) :: spack
31782 type(lowDia_type) , intent(in) :: subset
31783 type(transSymm_type) , intent(in) :: operation
31784 integer(IK) , intent(in) , optional :: doff
31785 integer(IKG) , intent(in) :: source(:,:)
31786 integer(IKG) , intent(inout) :: destin(:)
31787 end subroutine
31788#endif
31789
31790#if IK3_ENABLED
31791 PURE module subroutine setMatCopy_LFP_RDP_XLD_TSO_IK3(destin, dpack, source, spack, subset, operation, doff)
31792#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31793 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_TSO_IK3
31794#endif
31795 use pm_kind, only: IKG => IK3
31796 type(lfpack_type) , intent(in) :: dpack
31797 type(rdpack_type) , intent(in) :: spack
31798 type(lowDia_type) , intent(in) :: subset
31799 type(transSymm_type) , intent(in) :: operation
31800 integer(IK) , intent(in) , optional :: doff
31801 integer(IKG) , intent(in) :: source(:,:)
31802 integer(IKG) , intent(inout) :: destin(:)
31803 end subroutine
31804#endif
31805
31806#if IK2_ENABLED
31807 PURE module subroutine setMatCopy_LFP_RDP_XLD_TSO_IK2(destin, dpack, source, spack, subset, operation, doff)
31808#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31809 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_TSO_IK2
31810#endif
31811 use pm_kind, only: IKG => IK2
31812 type(lfpack_type) , intent(in) :: dpack
31813 type(rdpack_type) , intent(in) :: spack
31814 type(lowDia_type) , intent(in) :: subset
31815 type(transSymm_type) , intent(in) :: operation
31816 integer(IK) , intent(in) , optional :: doff
31817 integer(IKG) , intent(in) :: source(:,:)
31818 integer(IKG) , intent(inout) :: destin(:)
31819 end subroutine
31820#endif
31821
31822#if IK1_ENABLED
31823 PURE module subroutine setMatCopy_LFP_RDP_XLD_TSO_IK1(destin, dpack, source, spack, subset, operation, doff)
31824#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31825 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_TSO_IK1
31826#endif
31827 use pm_kind, only: IKG => IK1
31828 type(lfpack_type) , intent(in) :: dpack
31829 type(rdpack_type) , intent(in) :: spack
31830 type(lowDia_type) , intent(in) :: subset
31831 type(transSymm_type) , intent(in) :: operation
31832 integer(IK) , intent(in) , optional :: doff
31833 integer(IKG) , intent(in) :: source(:,:)
31834 integer(IKG) , intent(inout) :: destin(:)
31835 end subroutine
31836#endif
31837
31838 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
31839
31840#if LK5_ENABLED
31841 PURE module subroutine setMatCopy_LFP_RDP_XLD_TSO_LK5(destin, dpack, source, spack, subset, operation, doff)
31842#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31843 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_TSO_LK5
31844#endif
31845 use pm_kind, only: LKG => LK5
31846 type(lfpack_type) , intent(in) :: dpack
31847 type(rdpack_type) , intent(in) :: spack
31848 type(lowDia_type) , intent(in) :: subset
31849 type(transSymm_type) , intent(in) :: operation
31850 integer(IK) , intent(in) , optional :: doff
31851 logical(LKG) , intent(in) :: source(:,:)
31852 logical(LKG) , intent(inout) :: destin(:)
31853 end subroutine
31854#endif
31855
31856#if LK4_ENABLED
31857 PURE module subroutine setMatCopy_LFP_RDP_XLD_TSO_LK4(destin, dpack, source, spack, subset, operation, doff)
31858#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31859 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_TSO_LK4
31860#endif
31861 use pm_kind, only: LKG => LK4
31862 type(lfpack_type) , intent(in) :: dpack
31863 type(rdpack_type) , intent(in) :: spack
31864 type(lowDia_type) , intent(in) :: subset
31865 type(transSymm_type) , intent(in) :: operation
31866 integer(IK) , intent(in) , optional :: doff
31867 logical(LKG) , intent(in) :: source(:,:)
31868 logical(LKG) , intent(inout) :: destin(:)
31869 end subroutine
31870#endif
31871
31872#if LK3_ENABLED
31873 PURE module subroutine setMatCopy_LFP_RDP_XLD_TSO_LK3(destin, dpack, source, spack, subset, operation, doff)
31874#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31875 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_TSO_LK3
31876#endif
31877 use pm_kind, only: LKG => LK3
31878 type(lfpack_type) , intent(in) :: dpack
31879 type(rdpack_type) , intent(in) :: spack
31880 type(lowDia_type) , intent(in) :: subset
31881 type(transSymm_type) , intent(in) :: operation
31882 integer(IK) , intent(in) , optional :: doff
31883 logical(LKG) , intent(in) :: source(:,:)
31884 logical(LKG) , intent(inout) :: destin(:)
31885 end subroutine
31886#endif
31887
31888#if LK2_ENABLED
31889 PURE module subroutine setMatCopy_LFP_RDP_XLD_TSO_LK2(destin, dpack, source, spack, subset, operation, doff)
31890#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31891 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_TSO_LK2
31892#endif
31893 use pm_kind, only: LKG => LK2
31894 type(lfpack_type) , intent(in) :: dpack
31895 type(rdpack_type) , intent(in) :: spack
31896 type(lowDia_type) , intent(in) :: subset
31897 type(transSymm_type) , intent(in) :: operation
31898 integer(IK) , intent(in) , optional :: doff
31899 logical(LKG) , intent(in) :: source(:,:)
31900 logical(LKG) , intent(inout) :: destin(:)
31901 end subroutine
31902#endif
31903
31904#if LK1_ENABLED
31905 PURE module subroutine setMatCopy_LFP_RDP_XLD_TSO_LK1(destin, dpack, source, spack, subset, operation, doff)
31906#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31907 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_TSO_LK1
31908#endif
31909 use pm_kind, only: LKG => LK1
31910 type(lfpack_type) , intent(in) :: dpack
31911 type(rdpack_type) , intent(in) :: spack
31912 type(lowDia_type) , intent(in) :: subset
31913 type(transSymm_type) , intent(in) :: operation
31914 integer(IK) , intent(in) , optional :: doff
31915 logical(LKG) , intent(in) :: source(:,:)
31916 logical(LKG) , intent(inout) :: destin(:)
31917 end subroutine
31918#endif
31919
31920 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
31921
31922#if CK5_ENABLED
31923 PURE module subroutine setMatCopy_LFP_RDP_XLD_TSO_CK5(destin, dpack, source, spack, subset, operation, doff)
31924#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31925 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_TSO_CK5
31926#endif
31927 use pm_kind, only: CKG => CK5
31928 type(lfpack_type) , intent(in) :: dpack
31929 type(rdpack_type) , intent(in) :: spack
31930 type(lowDia_type) , intent(in) :: subset
31931 type(transSymm_type) , intent(in) :: operation
31932 integer(IK) , intent(in) , optional :: doff
31933 complex(CKG) , intent(in) :: source(:,:)
31934 complex(CKG) , intent(inout) :: destin(:)
31935 end subroutine
31936#endif
31937
31938#if CK4_ENABLED
31939 PURE module subroutine setMatCopy_LFP_RDP_XLD_TSO_CK4(destin, dpack, source, spack, subset, operation, doff)
31940#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31941 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_TSO_CK4
31942#endif
31943 use pm_kind, only: CKG => CK4
31944 type(lfpack_type) , intent(in) :: dpack
31945 type(rdpack_type) , intent(in) :: spack
31946 type(lowDia_type) , intent(in) :: subset
31947 type(transSymm_type) , intent(in) :: operation
31948 integer(IK) , intent(in) , optional :: doff
31949 complex(CKG) , intent(in) :: source(:,:)
31950 complex(CKG) , intent(inout) :: destin(:)
31951 end subroutine
31952#endif
31953
31954#if CK3_ENABLED
31955 PURE module subroutine setMatCopy_LFP_RDP_XLD_TSO_CK3(destin, dpack, source, spack, subset, operation, doff)
31956#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31957 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_TSO_CK3
31958#endif
31959 use pm_kind, only: CKG => CK3
31960 type(lfpack_type) , intent(in) :: dpack
31961 type(rdpack_type) , intent(in) :: spack
31962 type(lowDia_type) , intent(in) :: subset
31963 type(transSymm_type) , intent(in) :: operation
31964 integer(IK) , intent(in) , optional :: doff
31965 complex(CKG) , intent(in) :: source(:,:)
31966 complex(CKG) , intent(inout) :: destin(:)
31967 end subroutine
31968#endif
31969
31970#if CK2_ENABLED
31971 PURE module subroutine setMatCopy_LFP_RDP_XLD_TSO_CK2(destin, dpack, source, spack, subset, operation, doff)
31972#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31973 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_TSO_CK2
31974#endif
31975 use pm_kind, only: CKG => CK2
31976 type(lfpack_type) , intent(in) :: dpack
31977 type(rdpack_type) , intent(in) :: spack
31978 type(lowDia_type) , intent(in) :: subset
31979 type(transSymm_type) , intent(in) :: operation
31980 integer(IK) , intent(in) , optional :: doff
31981 complex(CKG) , intent(in) :: source(:,:)
31982 complex(CKG) , intent(inout) :: destin(:)
31983 end subroutine
31984#endif
31985
31986#if CK1_ENABLED
31987 PURE module subroutine setMatCopy_LFP_RDP_XLD_TSO_CK1(destin, dpack, source, spack, subset, operation, doff)
31988#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
31989 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_TSO_CK1
31990#endif
31991 use pm_kind, only: CKG => CK1
31992 type(lfpack_type) , intent(in) :: dpack
31993 type(rdpack_type) , intent(in) :: spack
31994 type(lowDia_type) , intent(in) :: subset
31995 type(transSymm_type) , intent(in) :: operation
31996 integer(IK) , intent(in) , optional :: doff
31997 complex(CKG) , intent(in) :: source(:,:)
31998 complex(CKG) , intent(inout) :: destin(:)
31999 end subroutine
32000#endif
32001
32002 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
32003
32004#if RK5_ENABLED
32005 PURE module subroutine setMatCopy_LFP_RDP_XLD_TSO_RK5(destin, dpack, source, spack, subset, operation, doff)
32006#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32007 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_TSO_RK5
32008#endif
32009 use pm_kind, only: RKG => RK5
32010 type(lfpack_type) , intent(in) :: dpack
32011 type(rdpack_type) , intent(in) :: spack
32012 type(lowDia_type) , intent(in) :: subset
32013 type(transSymm_type) , intent(in) :: operation
32014 integer(IK) , intent(in) , optional :: doff
32015 real(RKG) , intent(in) :: source(:,:)
32016 real(RKG) , intent(inout) :: destin(:)
32017 end subroutine
32018#endif
32019
32020#if RK4_ENABLED
32021 PURE module subroutine setMatCopy_LFP_RDP_XLD_TSO_RK4(destin, dpack, source, spack, subset, operation, doff)
32022#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32023 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_TSO_RK4
32024#endif
32025 use pm_kind, only: RKG => RK4
32026 type(lfpack_type) , intent(in) :: dpack
32027 type(rdpack_type) , intent(in) :: spack
32028 type(lowDia_type) , intent(in) :: subset
32029 type(transSymm_type) , intent(in) :: operation
32030 integer(IK) , intent(in) , optional :: doff
32031 real(RKG) , intent(in) :: source(:,:)
32032 real(RKG) , intent(inout) :: destin(:)
32033 end subroutine
32034#endif
32035
32036#if RK3_ENABLED
32037 PURE module subroutine setMatCopy_LFP_RDP_XLD_TSO_RK3(destin, dpack, source, spack, subset, operation, doff)
32038#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32039 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_TSO_RK3
32040#endif
32041 use pm_kind, only: RKG => RK3
32042 type(lfpack_type) , intent(in) :: dpack
32043 type(rdpack_type) , intent(in) :: spack
32044 type(lowDia_type) , intent(in) :: subset
32045 type(transSymm_type) , intent(in) :: operation
32046 integer(IK) , intent(in) , optional :: doff
32047 real(RKG) , intent(in) :: source(:,:)
32048 real(RKG) , intent(inout) :: destin(:)
32049 end subroutine
32050#endif
32051
32052#if RK2_ENABLED
32053 PURE module subroutine setMatCopy_LFP_RDP_XLD_TSO_RK2(destin, dpack, source, spack, subset, operation, doff)
32054#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32055 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_TSO_RK2
32056#endif
32057 use pm_kind, only: RKG => RK2
32058 type(lfpack_type) , intent(in) :: dpack
32059 type(rdpack_type) , intent(in) :: spack
32060 type(lowDia_type) , intent(in) :: subset
32061 type(transSymm_type) , intent(in) :: operation
32062 integer(IK) , intent(in) , optional :: doff
32063 real(RKG) , intent(in) :: source(:,:)
32064 real(RKG) , intent(inout) :: destin(:)
32065 end subroutine
32066#endif
32067
32068#if RK1_ENABLED
32069 PURE module subroutine setMatCopy_LFP_RDP_XLD_TSO_RK1(destin, dpack, source, spack, subset, operation, doff)
32070#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32071 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_TSO_RK1
32072#endif
32073 use pm_kind, only: RKG => RK1
32074 type(lfpack_type) , intent(in) :: dpack
32075 type(rdpack_type) , intent(in) :: spack
32076 type(lowDia_type) , intent(in) :: subset
32077 type(transSymm_type) , intent(in) :: operation
32078 integer(IK) , intent(in) , optional :: doff
32079 real(RKG) , intent(in) :: source(:,:)
32080 real(RKG) , intent(inout) :: destin(:)
32081 end subroutine
32082#endif
32083
32084 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
32085
32086 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
32087 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
32088 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
32089
32090 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
32091
32092#if SK5_ENABLED
32093 PURE module subroutine setMatCopy_LFP_RDP_XLD_THO_SK5(destin, dpack, source, spack, subset, operation, doff)
32094#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32095 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_THO_SK5
32096#endif
32097 use pm_kind, only: SKG => SK5
32098 type(lfpack_type) , intent(in) :: dpack
32099 type(rdpack_type) , intent(in) :: spack
32100 type(lowDia_type) , intent(in) :: subset
32101 type(transHerm_type) , intent(in) :: operation
32102 integer(IK) , intent(in) , optional :: doff
32103 character(*,SKG) , intent(in) :: source(:,:)
32104 character(*,SKG) , intent(inout) :: destin(:)
32105 end subroutine
32106#endif
32107
32108#if SK4_ENABLED
32109 PURE module subroutine setMatCopy_LFP_RDP_XLD_THO_SK4(destin, dpack, source, spack, subset, operation, doff)
32110#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32111 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_THO_SK4
32112#endif
32113 use pm_kind, only: SKG => SK4
32114 type(lfpack_type) , intent(in) :: dpack
32115 type(rdpack_type) , intent(in) :: spack
32116 type(lowDia_type) , intent(in) :: subset
32117 type(transHerm_type) , intent(in) :: operation
32118 integer(IK) , intent(in) , optional :: doff
32119 character(*,SKG) , intent(in) :: source(:,:)
32120 character(*,SKG) , intent(inout) :: destin(:)
32121 end subroutine
32122#endif
32123
32124#if SK3_ENABLED
32125 PURE module subroutine setMatCopy_LFP_RDP_XLD_THO_SK3(destin, dpack, source, spack, subset, operation, doff)
32126#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32127 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_THO_SK3
32128#endif
32129 use pm_kind, only: SKG => SK3
32130 type(lfpack_type) , intent(in) :: dpack
32131 type(rdpack_type) , intent(in) :: spack
32132 type(lowDia_type) , intent(in) :: subset
32133 type(transHerm_type) , intent(in) :: operation
32134 integer(IK) , intent(in) , optional :: doff
32135 character(*,SKG) , intent(in) :: source(:,:)
32136 character(*,SKG) , intent(inout) :: destin(:)
32137 end subroutine
32138#endif
32139
32140#if SK2_ENABLED
32141 PURE module subroutine setMatCopy_LFP_RDP_XLD_THO_SK2(destin, dpack, source, spack, subset, operation, doff)
32142#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32143 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_THO_SK2
32144#endif
32145 use pm_kind, only: SKG => SK2
32146 type(lfpack_type) , intent(in) :: dpack
32147 type(rdpack_type) , intent(in) :: spack
32148 type(lowDia_type) , intent(in) :: subset
32149 type(transHerm_type) , intent(in) :: operation
32150 integer(IK) , intent(in) , optional :: doff
32151 character(*,SKG) , intent(in) :: source(:,:)
32152 character(*,SKG) , intent(inout) :: destin(:)
32153 end subroutine
32154#endif
32155
32156#if SK1_ENABLED
32157 PURE module subroutine setMatCopy_LFP_RDP_XLD_THO_SK1(destin, dpack, source, spack, subset, operation, doff)
32158#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32159 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_THO_SK1
32160#endif
32161 use pm_kind, only: SKG => SK1
32162 type(lfpack_type) , intent(in) :: dpack
32163 type(rdpack_type) , intent(in) :: spack
32164 type(lowDia_type) , intent(in) :: subset
32165 type(transHerm_type) , intent(in) :: operation
32166 integer(IK) , intent(in) , optional :: doff
32167 character(*,SKG) , intent(in) :: source(:,:)
32168 character(*,SKG) , intent(inout) :: destin(:)
32169 end subroutine
32170#endif
32171
32172 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
32173
32174#if IK5_ENABLED
32175 PURE module subroutine setMatCopy_LFP_RDP_XLD_THO_IK5(destin, dpack, source, spack, subset, operation, doff)
32176#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32177 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_THO_IK5
32178#endif
32179 use pm_kind, only: IKG => IK5
32180 type(lfpack_type) , intent(in) :: dpack
32181 type(rdpack_type) , intent(in) :: spack
32182 type(lowDia_type) , intent(in) :: subset
32183 type(transHerm_type) , intent(in) :: operation
32184 integer(IK) , intent(in) , optional :: doff
32185 integer(IKG) , intent(in) :: source(:,:)
32186 integer(IKG) , intent(inout) :: destin(:)
32187 end subroutine
32188#endif
32189
32190#if IK4_ENABLED
32191 PURE module subroutine setMatCopy_LFP_RDP_XLD_THO_IK4(destin, dpack, source, spack, subset, operation, doff)
32192#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32193 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_THO_IK4
32194#endif
32195 use pm_kind, only: IKG => IK4
32196 type(lfpack_type) , intent(in) :: dpack
32197 type(rdpack_type) , intent(in) :: spack
32198 type(lowDia_type) , intent(in) :: subset
32199 type(transHerm_type) , intent(in) :: operation
32200 integer(IK) , intent(in) , optional :: doff
32201 integer(IKG) , intent(in) :: source(:,:)
32202 integer(IKG) , intent(inout) :: destin(:)
32203 end subroutine
32204#endif
32205
32206#if IK3_ENABLED
32207 PURE module subroutine setMatCopy_LFP_RDP_XLD_THO_IK3(destin, dpack, source, spack, subset, operation, doff)
32208#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32209 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_THO_IK3
32210#endif
32211 use pm_kind, only: IKG => IK3
32212 type(lfpack_type) , intent(in) :: dpack
32213 type(rdpack_type) , intent(in) :: spack
32214 type(lowDia_type) , intent(in) :: subset
32215 type(transHerm_type) , intent(in) :: operation
32216 integer(IK) , intent(in) , optional :: doff
32217 integer(IKG) , intent(in) :: source(:,:)
32218 integer(IKG) , intent(inout) :: destin(:)
32219 end subroutine
32220#endif
32221
32222#if IK2_ENABLED
32223 PURE module subroutine setMatCopy_LFP_RDP_XLD_THO_IK2(destin, dpack, source, spack, subset, operation, doff)
32224#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32225 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_THO_IK2
32226#endif
32227 use pm_kind, only: IKG => IK2
32228 type(lfpack_type) , intent(in) :: dpack
32229 type(rdpack_type) , intent(in) :: spack
32230 type(lowDia_type) , intent(in) :: subset
32231 type(transHerm_type) , intent(in) :: operation
32232 integer(IK) , intent(in) , optional :: doff
32233 integer(IKG) , intent(in) :: source(:,:)
32234 integer(IKG) , intent(inout) :: destin(:)
32235 end subroutine
32236#endif
32237
32238#if IK1_ENABLED
32239 PURE module subroutine setMatCopy_LFP_RDP_XLD_THO_IK1(destin, dpack, source, spack, subset, operation, doff)
32240#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32241 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_THO_IK1
32242#endif
32243 use pm_kind, only: IKG => IK1
32244 type(lfpack_type) , intent(in) :: dpack
32245 type(rdpack_type) , intent(in) :: spack
32246 type(lowDia_type) , intent(in) :: subset
32247 type(transHerm_type) , intent(in) :: operation
32248 integer(IK) , intent(in) , optional :: doff
32249 integer(IKG) , intent(in) :: source(:,:)
32250 integer(IKG) , intent(inout) :: destin(:)
32251 end subroutine
32252#endif
32253
32254 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
32255
32256#if LK5_ENABLED
32257 PURE module subroutine setMatCopy_LFP_RDP_XLD_THO_LK5(destin, dpack, source, spack, subset, operation, doff)
32258#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32259 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_THO_LK5
32260#endif
32261 use pm_kind, only: LKG => LK5
32262 type(lfpack_type) , intent(in) :: dpack
32263 type(rdpack_type) , intent(in) :: spack
32264 type(lowDia_type) , intent(in) :: subset
32265 type(transHerm_type) , intent(in) :: operation
32266 integer(IK) , intent(in) , optional :: doff
32267 logical(LKG) , intent(in) :: source(:,:)
32268 logical(LKG) , intent(inout) :: destin(:)
32269 end subroutine
32270#endif
32271
32272#if LK4_ENABLED
32273 PURE module subroutine setMatCopy_LFP_RDP_XLD_THO_LK4(destin, dpack, source, spack, subset, operation, doff)
32274#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32275 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_THO_LK4
32276#endif
32277 use pm_kind, only: LKG => LK4
32278 type(lfpack_type) , intent(in) :: dpack
32279 type(rdpack_type) , intent(in) :: spack
32280 type(lowDia_type) , intent(in) :: subset
32281 type(transHerm_type) , intent(in) :: operation
32282 integer(IK) , intent(in) , optional :: doff
32283 logical(LKG) , intent(in) :: source(:,:)
32284 logical(LKG) , intent(inout) :: destin(:)
32285 end subroutine
32286#endif
32287
32288#if LK3_ENABLED
32289 PURE module subroutine setMatCopy_LFP_RDP_XLD_THO_LK3(destin, dpack, source, spack, subset, operation, doff)
32290#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32291 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_THO_LK3
32292#endif
32293 use pm_kind, only: LKG => LK3
32294 type(lfpack_type) , intent(in) :: dpack
32295 type(rdpack_type) , intent(in) :: spack
32296 type(lowDia_type) , intent(in) :: subset
32297 type(transHerm_type) , intent(in) :: operation
32298 integer(IK) , intent(in) , optional :: doff
32299 logical(LKG) , intent(in) :: source(:,:)
32300 logical(LKG) , intent(inout) :: destin(:)
32301 end subroutine
32302#endif
32303
32304#if LK2_ENABLED
32305 PURE module subroutine setMatCopy_LFP_RDP_XLD_THO_LK2(destin, dpack, source, spack, subset, operation, doff)
32306#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32307 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_THO_LK2
32308#endif
32309 use pm_kind, only: LKG => LK2
32310 type(lfpack_type) , intent(in) :: dpack
32311 type(rdpack_type) , intent(in) :: spack
32312 type(lowDia_type) , intent(in) :: subset
32313 type(transHerm_type) , intent(in) :: operation
32314 integer(IK) , intent(in) , optional :: doff
32315 logical(LKG) , intent(in) :: source(:,:)
32316 logical(LKG) , intent(inout) :: destin(:)
32317 end subroutine
32318#endif
32319
32320#if LK1_ENABLED
32321 PURE module subroutine setMatCopy_LFP_RDP_XLD_THO_LK1(destin, dpack, source, spack, subset, operation, doff)
32322#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32323 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_THO_LK1
32324#endif
32325 use pm_kind, only: LKG => LK1
32326 type(lfpack_type) , intent(in) :: dpack
32327 type(rdpack_type) , intent(in) :: spack
32328 type(lowDia_type) , intent(in) :: subset
32329 type(transHerm_type) , intent(in) :: operation
32330 integer(IK) , intent(in) , optional :: doff
32331 logical(LKG) , intent(in) :: source(:,:)
32332 logical(LKG) , intent(inout) :: destin(:)
32333 end subroutine
32334#endif
32335
32336 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
32337
32338#if CK5_ENABLED
32339 PURE module subroutine setMatCopy_LFP_RDP_XLD_THO_CK5(destin, dpack, source, spack, subset, operation, doff)
32340#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32341 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_THO_CK5
32342#endif
32343 use pm_kind, only: CKG => CK5
32344 type(lfpack_type) , intent(in) :: dpack
32345 type(rdpack_type) , intent(in) :: spack
32346 type(lowDia_type) , intent(in) :: subset
32347 type(transHerm_type) , intent(in) :: operation
32348 integer(IK) , intent(in) , optional :: doff
32349 complex(CKG) , intent(in) :: source(:,:)
32350 complex(CKG) , intent(inout) :: destin(:)
32351 end subroutine
32352#endif
32353
32354#if CK4_ENABLED
32355 PURE module subroutine setMatCopy_LFP_RDP_XLD_THO_CK4(destin, dpack, source, spack, subset, operation, doff)
32356#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32357 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_THO_CK4
32358#endif
32359 use pm_kind, only: CKG => CK4
32360 type(lfpack_type) , intent(in) :: dpack
32361 type(rdpack_type) , intent(in) :: spack
32362 type(lowDia_type) , intent(in) :: subset
32363 type(transHerm_type) , intent(in) :: operation
32364 integer(IK) , intent(in) , optional :: doff
32365 complex(CKG) , intent(in) :: source(:,:)
32366 complex(CKG) , intent(inout) :: destin(:)
32367 end subroutine
32368#endif
32369
32370#if CK3_ENABLED
32371 PURE module subroutine setMatCopy_LFP_RDP_XLD_THO_CK3(destin, dpack, source, spack, subset, operation, doff)
32372#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32373 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_THO_CK3
32374#endif
32375 use pm_kind, only: CKG => CK3
32376 type(lfpack_type) , intent(in) :: dpack
32377 type(rdpack_type) , intent(in) :: spack
32378 type(lowDia_type) , intent(in) :: subset
32379 type(transHerm_type) , intent(in) :: operation
32380 integer(IK) , intent(in) , optional :: doff
32381 complex(CKG) , intent(in) :: source(:,:)
32382 complex(CKG) , intent(inout) :: destin(:)
32383 end subroutine
32384#endif
32385
32386#if CK2_ENABLED
32387 PURE module subroutine setMatCopy_LFP_RDP_XLD_THO_CK2(destin, dpack, source, spack, subset, operation, doff)
32388#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32389 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_THO_CK2
32390#endif
32391 use pm_kind, only: CKG => CK2
32392 type(lfpack_type) , intent(in) :: dpack
32393 type(rdpack_type) , intent(in) :: spack
32394 type(lowDia_type) , intent(in) :: subset
32395 type(transHerm_type) , intent(in) :: operation
32396 integer(IK) , intent(in) , optional :: doff
32397 complex(CKG) , intent(in) :: source(:,:)
32398 complex(CKG) , intent(inout) :: destin(:)
32399 end subroutine
32400#endif
32401
32402#if CK1_ENABLED
32403 PURE module subroutine setMatCopy_LFP_RDP_XLD_THO_CK1(destin, dpack, source, spack, subset, operation, doff)
32404#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32405 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_THO_CK1
32406#endif
32407 use pm_kind, only: CKG => CK1
32408 type(lfpack_type) , intent(in) :: dpack
32409 type(rdpack_type) , intent(in) :: spack
32410 type(lowDia_type) , intent(in) :: subset
32411 type(transHerm_type) , intent(in) :: operation
32412 integer(IK) , intent(in) , optional :: doff
32413 complex(CKG) , intent(in) :: source(:,:)
32414 complex(CKG) , intent(inout) :: destin(:)
32415 end subroutine
32416#endif
32417
32418 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
32419
32420#if RK5_ENABLED
32421 PURE module subroutine setMatCopy_LFP_RDP_XLD_THO_RK5(destin, dpack, source, spack, subset, operation, doff)
32422#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32423 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_THO_RK5
32424#endif
32425 use pm_kind, only: RKG => RK5
32426 type(lfpack_type) , intent(in) :: dpack
32427 type(rdpack_type) , intent(in) :: spack
32428 type(lowDia_type) , intent(in) :: subset
32429 type(transHerm_type) , intent(in) :: operation
32430 integer(IK) , intent(in) , optional :: doff
32431 real(RKG) , intent(in) :: source(:,:)
32432 real(RKG) , intent(inout) :: destin(:)
32433 end subroutine
32434#endif
32435
32436#if RK4_ENABLED
32437 PURE module subroutine setMatCopy_LFP_RDP_XLD_THO_RK4(destin, dpack, source, spack, subset, operation, doff)
32438#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32439 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_THO_RK4
32440#endif
32441 use pm_kind, only: RKG => RK4
32442 type(lfpack_type) , intent(in) :: dpack
32443 type(rdpack_type) , intent(in) :: spack
32444 type(lowDia_type) , intent(in) :: subset
32445 type(transHerm_type) , intent(in) :: operation
32446 integer(IK) , intent(in) , optional :: doff
32447 real(RKG) , intent(in) :: source(:,:)
32448 real(RKG) , intent(inout) :: destin(:)
32449 end subroutine
32450#endif
32451
32452#if RK3_ENABLED
32453 PURE module subroutine setMatCopy_LFP_RDP_XLD_THO_RK3(destin, dpack, source, spack, subset, operation, doff)
32454#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32455 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_THO_RK3
32456#endif
32457 use pm_kind, only: RKG => RK3
32458 type(lfpack_type) , intent(in) :: dpack
32459 type(rdpack_type) , intent(in) :: spack
32460 type(lowDia_type) , intent(in) :: subset
32461 type(transHerm_type) , intent(in) :: operation
32462 integer(IK) , intent(in) , optional :: doff
32463 real(RKG) , intent(in) :: source(:,:)
32464 real(RKG) , intent(inout) :: destin(:)
32465 end subroutine
32466#endif
32467
32468#if RK2_ENABLED
32469 PURE module subroutine setMatCopy_LFP_RDP_XLD_THO_RK2(destin, dpack, source, spack, subset, operation, doff)
32470#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32471 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_THO_RK2
32472#endif
32473 use pm_kind, only: RKG => RK2
32474 type(lfpack_type) , intent(in) :: dpack
32475 type(rdpack_type) , intent(in) :: spack
32476 type(lowDia_type) , intent(in) :: subset
32477 type(transHerm_type) , intent(in) :: operation
32478 integer(IK) , intent(in) , optional :: doff
32479 real(RKG) , intent(in) :: source(:,:)
32480 real(RKG) , intent(inout) :: destin(:)
32481 end subroutine
32482#endif
32483
32484#if RK1_ENABLED
32485 PURE module subroutine setMatCopy_LFP_RDP_XLD_THO_RK1(destin, dpack, source, spack, subset, operation, doff)
32486#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32487 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_LFP_RDP_XLD_THO_RK1
32488#endif
32489 use pm_kind, only: RKG => RK1
32490 type(lfpack_type) , intent(in) :: dpack
32491 type(rdpack_type) , intent(in) :: spack
32492 type(lowDia_type) , intent(in) :: subset
32493 type(transHerm_type) , intent(in) :: operation
32494 integer(IK) , intent(in) , optional :: doff
32495 real(RKG) , intent(in) :: source(:,:)
32496 real(RKG) , intent(inout) :: destin(:)
32497 end subroutine
32498#endif
32499
32500 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
32501
32502 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
32503 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
32504 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
32505
32506 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
32507 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
32508 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
32509
32510 end interface setMatCopy
32511
32512 ! package: rdpack, rfpack
32513
32514 interface setMatCopy
32515
32516 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
32517 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
32518 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
32519
32520 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
32521 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
32522 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
32523
32524 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
32525
32526#if SK5_ENABLED
32527 PURE module subroutine setMatCopy_RDP_RFP_UXD_AIO_SK5(destin, dpack, source, spack, subset)
32528#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32529 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RFP_UXD_AIO_SK5
32530#endif
32531 use pm_kind, only: SKG => SK5
32532 type(rdpack_type) , intent(in) :: dpack
32533 type(rfpack_type) , intent(in) :: spack
32534 type(uppDia_type) , intent(in) :: subset
32535 character(*,SKG) , intent(in) :: source(:,:)
32536 character(*,SKG) , intent(inout) :: destin(:,:)
32537 end subroutine
32538#endif
32539
32540#if SK4_ENABLED
32541 PURE module subroutine setMatCopy_RDP_RFP_UXD_AIO_SK4(destin, dpack, source, spack, subset)
32542#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32543 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RFP_UXD_AIO_SK4
32544#endif
32545 use pm_kind, only: SKG => SK4
32546 type(rdpack_type) , intent(in) :: dpack
32547 type(rfpack_type) , intent(in) :: spack
32548 type(uppDia_type) , intent(in) :: subset
32549 character(*,SKG) , intent(in) :: source(:,:)
32550 character(*,SKG) , intent(inout) :: destin(:,:)
32551 end subroutine
32552#endif
32553
32554#if SK3_ENABLED
32555 PURE module subroutine setMatCopy_RDP_RFP_UXD_AIO_SK3(destin, dpack, source, spack, subset)
32556#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32557 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RFP_UXD_AIO_SK3
32558#endif
32559 use pm_kind, only: SKG => SK3
32560 type(rdpack_type) , intent(in) :: dpack
32561 type(rfpack_type) , intent(in) :: spack
32562 type(uppDia_type) , intent(in) :: subset
32563 character(*,SKG) , intent(in) :: source(:,:)
32564 character(*,SKG) , intent(inout) :: destin(:,:)
32565 end subroutine
32566#endif
32567
32568#if SK2_ENABLED
32569 PURE module subroutine setMatCopy_RDP_RFP_UXD_AIO_SK2(destin, dpack, source, spack, subset)
32570#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32571 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RFP_UXD_AIO_SK2
32572#endif
32573 use pm_kind, only: SKG => SK2
32574 type(rdpack_type) , intent(in) :: dpack
32575 type(rfpack_type) , intent(in) :: spack
32576 type(uppDia_type) , intent(in) :: subset
32577 character(*,SKG) , intent(in) :: source(:,:)
32578 character(*,SKG) , intent(inout) :: destin(:,:)
32579 end subroutine
32580#endif
32581
32582#if SK1_ENABLED
32583 PURE module subroutine setMatCopy_RDP_RFP_UXD_AIO_SK1(destin, dpack, source, spack, subset)
32584#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32585 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RFP_UXD_AIO_SK1
32586#endif
32587 use pm_kind, only: SKG => SK1
32588 type(rdpack_type) , intent(in) :: dpack
32589 type(rfpack_type) , intent(in) :: spack
32590 type(uppDia_type) , intent(in) :: subset
32591 character(*,SKG) , intent(in) :: source(:,:)
32592 character(*,SKG) , intent(inout) :: destin(:,:)
32593 end subroutine
32594#endif
32595
32596 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
32597
32598#if IK5_ENABLED
32599 PURE module subroutine setMatCopy_RDP_RFP_UXD_AIO_IK5(destin, dpack, source, spack, subset)
32600#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32601 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RFP_UXD_AIO_IK5
32602#endif
32603 use pm_kind, only: IKG => IK5
32604 type(rdpack_type) , intent(in) :: dpack
32605 type(rfpack_type) , intent(in) :: spack
32606 type(uppDia_type) , intent(in) :: subset
32607 integer(IKG) , intent(in) :: source(:,:)
32608 integer(IKG) , intent(inout) :: destin(:,:)
32609 end subroutine
32610#endif
32611
32612#if IK4_ENABLED
32613 PURE module subroutine setMatCopy_RDP_RFP_UXD_AIO_IK4(destin, dpack, source, spack, subset)
32614#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32615 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RFP_UXD_AIO_IK4
32616#endif
32617 use pm_kind, only: IKG => IK4
32618 type(rdpack_type) , intent(in) :: dpack
32619 type(rfpack_type) , intent(in) :: spack
32620 type(uppDia_type) , intent(in) :: subset
32621 integer(IKG) , intent(in) :: source(:,:)
32622 integer(IKG) , intent(inout) :: destin(:,:)
32623 end subroutine
32624#endif
32625
32626#if IK3_ENABLED
32627 PURE module subroutine setMatCopy_RDP_RFP_UXD_AIO_IK3(destin, dpack, source, spack, subset)
32628#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32629 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RFP_UXD_AIO_IK3
32630#endif
32631 use pm_kind, only: IKG => IK3
32632 type(rdpack_type) , intent(in) :: dpack
32633 type(rfpack_type) , intent(in) :: spack
32634 type(uppDia_type) , intent(in) :: subset
32635 integer(IKG) , intent(in) :: source(:,:)
32636 integer(IKG) , intent(inout) :: destin(:,:)
32637 end subroutine
32638#endif
32639
32640#if IK2_ENABLED
32641 PURE module subroutine setMatCopy_RDP_RFP_UXD_AIO_IK2(destin, dpack, source, spack, subset)
32642#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32643 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RFP_UXD_AIO_IK2
32644#endif
32645 use pm_kind, only: IKG => IK2
32646 type(rdpack_type) , intent(in) :: dpack
32647 type(rfpack_type) , intent(in) :: spack
32648 type(uppDia_type) , intent(in) :: subset
32649 integer(IKG) , intent(in) :: source(:,:)
32650 integer(IKG) , intent(inout) :: destin(:,:)
32651 end subroutine
32652#endif
32653
32654#if IK1_ENABLED
32655 PURE module subroutine setMatCopy_RDP_RFP_UXD_AIO_IK1(destin, dpack, source, spack, subset)
32656#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32657 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RFP_UXD_AIO_IK1
32658#endif
32659 use pm_kind, only: IKG => IK1
32660 type(rdpack_type) , intent(in) :: dpack
32661 type(rfpack_type) , intent(in) :: spack
32662 type(uppDia_type) , intent(in) :: subset
32663 integer(IKG) , intent(in) :: source(:,:)
32664 integer(IKG) , intent(inout) :: destin(:,:)
32665 end subroutine
32666#endif
32667
32668 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
32669
32670#if LK5_ENABLED
32671 PURE module subroutine setMatCopy_RDP_RFP_UXD_AIO_LK5(destin, dpack, source, spack, subset)
32672#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32673 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RFP_UXD_AIO_LK5
32674#endif
32675 use pm_kind, only: LKG => LK5
32676 type(rdpack_type) , intent(in) :: dpack
32677 type(rfpack_type) , intent(in) :: spack
32678 type(uppDia_type) , intent(in) :: subset
32679 logical(LKG) , intent(in) :: source(:,:)
32680 logical(LKG) , intent(inout) :: destin(:,:)
32681 end subroutine
32682#endif
32683
32684#if LK4_ENABLED
32685 PURE module subroutine setMatCopy_RDP_RFP_UXD_AIO_LK4(destin, dpack, source, spack, subset)
32686#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32687 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RFP_UXD_AIO_LK4
32688#endif
32689 use pm_kind, only: LKG => LK4
32690 type(rdpack_type) , intent(in) :: dpack
32691 type(rfpack_type) , intent(in) :: spack
32692 type(uppDia_type) , intent(in) :: subset
32693 logical(LKG) , intent(in) :: source(:,:)
32694 logical(LKG) , intent(inout) :: destin(:,:)
32695 end subroutine
32696#endif
32697
32698#if LK3_ENABLED
32699 PURE module subroutine setMatCopy_RDP_RFP_UXD_AIO_LK3(destin, dpack, source, spack, subset)
32700#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32701 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RFP_UXD_AIO_LK3
32702#endif
32703 use pm_kind, only: LKG => LK3
32704 type(rdpack_type) , intent(in) :: dpack
32705 type(rfpack_type) , intent(in) :: spack
32706 type(uppDia_type) , intent(in) :: subset
32707 logical(LKG) , intent(in) :: source(:,:)
32708 logical(LKG) , intent(inout) :: destin(:,:)
32709 end subroutine
32710#endif
32711
32712#if LK2_ENABLED
32713 PURE module subroutine setMatCopy_RDP_RFP_UXD_AIO_LK2(destin, dpack, source, spack, subset)
32714#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32715 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RFP_UXD_AIO_LK2
32716#endif
32717 use pm_kind, only: LKG => LK2
32718 type(rdpack_type) , intent(in) :: dpack
32719 type(rfpack_type) , intent(in) :: spack
32720 type(uppDia_type) , intent(in) :: subset
32721 logical(LKG) , intent(in) :: source(:,:)
32722 logical(LKG) , intent(inout) :: destin(:,:)
32723 end subroutine
32724#endif
32725
32726#if LK1_ENABLED
32727 PURE module subroutine setMatCopy_RDP_RFP_UXD_AIO_LK1(destin, dpack, source, spack, subset)
32728#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32729 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RFP_UXD_AIO_LK1
32730#endif
32731 use pm_kind, only: LKG => LK1
32732 type(rdpack_type) , intent(in) :: dpack
32733 type(rfpack_type) , intent(in) :: spack
32734 type(uppDia_type) , intent(in) :: subset
32735 logical(LKG) , intent(in) :: source(:,:)
32736 logical(LKG) , intent(inout) :: destin(:,:)
32737 end subroutine
32738#endif
32739
32740 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
32741
32742#if CK5_ENABLED
32743 PURE module subroutine setMatCopy_RDP_RFP_UXD_AIO_CK5(destin, dpack, source, spack, subset)
32744#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32745 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RFP_UXD_AIO_CK5
32746#endif
32747 use pm_kind, only: CKG => CK5
32748 type(rdpack_type) , intent(in) :: dpack
32749 type(rfpack_type) , intent(in) :: spack
32750 type(uppDia_type) , intent(in) :: subset
32751 complex(CKG) , intent(in) :: source(:,:)
32752 complex(CKG) , intent(inout) :: destin(:,:)
32753 end subroutine
32754#endif
32755
32756#if CK4_ENABLED
32757 PURE module subroutine setMatCopy_RDP_RFP_UXD_AIO_CK4(destin, dpack, source, spack, subset)
32758#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32759 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RFP_UXD_AIO_CK4
32760#endif
32761 use pm_kind, only: CKG => CK4
32762 type(rdpack_type) , intent(in) :: dpack
32763 type(rfpack_type) , intent(in) :: spack
32764 type(uppDia_type) , intent(in) :: subset
32765 complex(CKG) , intent(in) :: source(:,:)
32766 complex(CKG) , intent(inout) :: destin(:,:)
32767 end subroutine
32768#endif
32769
32770#if CK3_ENABLED
32771 PURE module subroutine setMatCopy_RDP_RFP_UXD_AIO_CK3(destin, dpack, source, spack, subset)
32772#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32773 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RFP_UXD_AIO_CK3
32774#endif
32775 use pm_kind, only: CKG => CK3
32776 type(rdpack_type) , intent(in) :: dpack
32777 type(rfpack_type) , intent(in) :: spack
32778 type(uppDia_type) , intent(in) :: subset
32779 complex(CKG) , intent(in) :: source(:,:)
32780 complex(CKG) , intent(inout) :: destin(:,:)
32781 end subroutine
32782#endif
32783
32784#if CK2_ENABLED
32785 PURE module subroutine setMatCopy_RDP_RFP_UXD_AIO_CK2(destin, dpack, source, spack, subset)
32786#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32787 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RFP_UXD_AIO_CK2
32788#endif
32789 use pm_kind, only: CKG => CK2
32790 type(rdpack_type) , intent(in) :: dpack
32791 type(rfpack_type) , intent(in) :: spack
32792 type(uppDia_type) , intent(in) :: subset
32793 complex(CKG) , intent(in) :: source(:,:)
32794 complex(CKG) , intent(inout) :: destin(:,:)
32795 end subroutine
32796#endif
32797
32798#if CK1_ENABLED
32799 PURE module subroutine setMatCopy_RDP_RFP_UXD_AIO_CK1(destin, dpack, source, spack, subset)
32800#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32801 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RFP_UXD_AIO_CK1
32802#endif
32803 use pm_kind, only: CKG => CK1
32804 type(rdpack_type) , intent(in) :: dpack
32805 type(rfpack_type) , intent(in) :: spack
32806 type(uppDia_type) , intent(in) :: subset
32807 complex(CKG) , intent(in) :: source(:,:)
32808 complex(CKG) , intent(inout) :: destin(:,:)
32809 end subroutine
32810#endif
32811
32812 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
32813
32814#if RK5_ENABLED
32815 PURE module subroutine setMatCopy_RDP_RFP_UXD_AIO_RK5(destin, dpack, source, spack, subset)
32816#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32817 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RFP_UXD_AIO_RK5
32818#endif
32819 use pm_kind, only: RKG => RK5
32820 type(rdpack_type) , intent(in) :: dpack
32821 type(rfpack_type) , intent(in) :: spack
32822 type(uppDia_type) , intent(in) :: subset
32823 real(RKG) , intent(in) :: source(:,:)
32824 real(RKG) , intent(inout) :: destin(:,:)
32825 end subroutine
32826#endif
32827
32828#if RK4_ENABLED
32829 PURE module subroutine setMatCopy_RDP_RFP_UXD_AIO_RK4(destin, dpack, source, spack, subset)
32830#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32831 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RFP_UXD_AIO_RK4
32832#endif
32833 use pm_kind, only: RKG => RK4
32834 type(rdpack_type) , intent(in) :: dpack
32835 type(rfpack_type) , intent(in) :: spack
32836 type(uppDia_type) , intent(in) :: subset
32837 real(RKG) , intent(in) :: source(:,:)
32838 real(RKG) , intent(inout) :: destin(:,:)
32839 end subroutine
32840#endif
32841
32842#if RK3_ENABLED
32843 PURE module subroutine setMatCopy_RDP_RFP_UXD_AIO_RK3(destin, dpack, source, spack, subset)
32844#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32845 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RFP_UXD_AIO_RK3
32846#endif
32847 use pm_kind, only: RKG => RK3
32848 type(rdpack_type) , intent(in) :: dpack
32849 type(rfpack_type) , intent(in) :: spack
32850 type(uppDia_type) , intent(in) :: subset
32851 real(RKG) , intent(in) :: source(:,:)
32852 real(RKG) , intent(inout) :: destin(:,:)
32853 end subroutine
32854#endif
32855
32856#if RK2_ENABLED
32857 PURE module subroutine setMatCopy_RDP_RFP_UXD_AIO_RK2(destin, dpack, source, spack, subset)
32858#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32859 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RFP_UXD_AIO_RK2
32860#endif
32861 use pm_kind, only: RKG => RK2
32862 type(rdpack_type) , intent(in) :: dpack
32863 type(rfpack_type) , intent(in) :: spack
32864 type(uppDia_type) , intent(in) :: subset
32865 real(RKG) , intent(in) :: source(:,:)
32866 real(RKG) , intent(inout) :: destin(:,:)
32867 end subroutine
32868#endif
32869
32870#if RK1_ENABLED
32871 PURE module subroutine setMatCopy_RDP_RFP_UXD_AIO_RK1(destin, dpack, source, spack, subset)
32872#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32873 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RFP_UXD_AIO_RK1
32874#endif
32875 use pm_kind, only: RKG => RK1
32876 type(rdpack_type) , intent(in) :: dpack
32877 type(rfpack_type) , intent(in) :: spack
32878 type(uppDia_type) , intent(in) :: subset
32879 real(RKG) , intent(in) :: source(:,:)
32880 real(RKG) , intent(inout) :: destin(:,:)
32881 end subroutine
32882#endif
32883
32884 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
32885
32886 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
32887 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
32888 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
32889
32890 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
32891 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
32892 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
32893
32894 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
32895
32896#if SK5_ENABLED
32897 PURE module subroutine setMatCopy_RDP_RFP_XLD_AIO_SK5(destin, dpack, source, spack, subset)
32898#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32899 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RFP_XLD_AIO_SK5
32900#endif
32901 use pm_kind, only: SKG => SK5
32902 type(rdpack_type) , intent(in) :: dpack
32903 type(rfpack_type) , intent(in) :: spack
32904 type(lowDia_type) , intent(in) :: subset
32905 character(*,SKG) , intent(in) :: source(:,:)
32906 character(*,SKG) , intent(inout) :: destin(:,:)
32907 end subroutine
32908#endif
32909
32910#if SK4_ENABLED
32911 PURE module subroutine setMatCopy_RDP_RFP_XLD_AIO_SK4(destin, dpack, source, spack, subset)
32912#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32913 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RFP_XLD_AIO_SK4
32914#endif
32915 use pm_kind, only: SKG => SK4
32916 type(rdpack_type) , intent(in) :: dpack
32917 type(rfpack_type) , intent(in) :: spack
32918 type(lowDia_type) , intent(in) :: subset
32919 character(*,SKG) , intent(in) :: source(:,:)
32920 character(*,SKG) , intent(inout) :: destin(:,:)
32921 end subroutine
32922#endif
32923
32924#if SK3_ENABLED
32925 PURE module subroutine setMatCopy_RDP_RFP_XLD_AIO_SK3(destin, dpack, source, spack, subset)
32926#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32927 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RFP_XLD_AIO_SK3
32928#endif
32929 use pm_kind, only: SKG => SK3
32930 type(rdpack_type) , intent(in) :: dpack
32931 type(rfpack_type) , intent(in) :: spack
32932 type(lowDia_type) , intent(in) :: subset
32933 character(*,SKG) , intent(in) :: source(:,:)
32934 character(*,SKG) , intent(inout) :: destin(:,:)
32935 end subroutine
32936#endif
32937
32938#if SK2_ENABLED
32939 PURE module subroutine setMatCopy_RDP_RFP_XLD_AIO_SK2(destin, dpack, source, spack, subset)
32940#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32941 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RFP_XLD_AIO_SK2
32942#endif
32943 use pm_kind, only: SKG => SK2
32944 type(rdpack_type) , intent(in) :: dpack
32945 type(rfpack_type) , intent(in) :: spack
32946 type(lowDia_type) , intent(in) :: subset
32947 character(*,SKG) , intent(in) :: source(:,:)
32948 character(*,SKG) , intent(inout) :: destin(:,:)
32949 end subroutine
32950#endif
32951
32952#if SK1_ENABLED
32953 PURE module subroutine setMatCopy_RDP_RFP_XLD_AIO_SK1(destin, dpack, source, spack, subset)
32954#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32955 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RFP_XLD_AIO_SK1
32956#endif
32957 use pm_kind, only: SKG => SK1
32958 type(rdpack_type) , intent(in) :: dpack
32959 type(rfpack_type) , intent(in) :: spack
32960 type(lowDia_type) , intent(in) :: subset
32961 character(*,SKG) , intent(in) :: source(:,:)
32962 character(*,SKG) , intent(inout) :: destin(:,:)
32963 end subroutine
32964#endif
32965
32966 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
32967
32968#if IK5_ENABLED
32969 PURE module subroutine setMatCopy_RDP_RFP_XLD_AIO_IK5(destin, dpack, source, spack, subset)
32970#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32971 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RFP_XLD_AIO_IK5
32972#endif
32973 use pm_kind, only: IKG => IK5
32974 type(rdpack_type) , intent(in) :: dpack
32975 type(rfpack_type) , intent(in) :: spack
32976 type(lowDia_type) , intent(in) :: subset
32977 integer(IKG) , intent(in) :: source(:,:)
32978 integer(IKG) , intent(inout) :: destin(:,:)
32979 end subroutine
32980#endif
32981
32982#if IK4_ENABLED
32983 PURE module subroutine setMatCopy_RDP_RFP_XLD_AIO_IK4(destin, dpack, source, spack, subset)
32984#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32985 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RFP_XLD_AIO_IK4
32986#endif
32987 use pm_kind, only: IKG => IK4
32988 type(rdpack_type) , intent(in) :: dpack
32989 type(rfpack_type) , intent(in) :: spack
32990 type(lowDia_type) , intent(in) :: subset
32991 integer(IKG) , intent(in) :: source(:,:)
32992 integer(IKG) , intent(inout) :: destin(:,:)
32993 end subroutine
32994#endif
32995
32996#if IK3_ENABLED
32997 PURE module subroutine setMatCopy_RDP_RFP_XLD_AIO_IK3(destin, dpack, source, spack, subset)
32998#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
32999 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RFP_XLD_AIO_IK3
33000#endif
33001 use pm_kind, only: IKG => IK3
33002 type(rdpack_type) , intent(in) :: dpack
33003 type(rfpack_type) , intent(in) :: spack
33004 type(lowDia_type) , intent(in) :: subset
33005 integer(IKG) , intent(in) :: source(:,:)
33006 integer(IKG) , intent(inout) :: destin(:,:)
33007 end subroutine
33008#endif
33009
33010#if IK2_ENABLED
33011 PURE module subroutine setMatCopy_RDP_RFP_XLD_AIO_IK2(destin, dpack, source, spack, subset)
33012#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33013 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RFP_XLD_AIO_IK2
33014#endif
33015 use pm_kind, only: IKG => IK2
33016 type(rdpack_type) , intent(in) :: dpack
33017 type(rfpack_type) , intent(in) :: spack
33018 type(lowDia_type) , intent(in) :: subset
33019 integer(IKG) , intent(in) :: source(:,:)
33020 integer(IKG) , intent(inout) :: destin(:,:)
33021 end subroutine
33022#endif
33023
33024#if IK1_ENABLED
33025 PURE module subroutine setMatCopy_RDP_RFP_XLD_AIO_IK1(destin, dpack, source, spack, subset)
33026#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33027 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RFP_XLD_AIO_IK1
33028#endif
33029 use pm_kind, only: IKG => IK1
33030 type(rdpack_type) , intent(in) :: dpack
33031 type(rfpack_type) , intent(in) :: spack
33032 type(lowDia_type) , intent(in) :: subset
33033 integer(IKG) , intent(in) :: source(:,:)
33034 integer(IKG) , intent(inout) :: destin(:,:)
33035 end subroutine
33036#endif
33037
33038 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
33039
33040#if LK5_ENABLED
33041 PURE module subroutine setMatCopy_RDP_RFP_XLD_AIO_LK5(destin, dpack, source, spack, subset)
33042#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33043 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RFP_XLD_AIO_LK5
33044#endif
33045 use pm_kind, only: LKG => LK5
33046 type(rdpack_type) , intent(in) :: dpack
33047 type(rfpack_type) , intent(in) :: spack
33048 type(lowDia_type) , intent(in) :: subset
33049 logical(LKG) , intent(in) :: source(:,:)
33050 logical(LKG) , intent(inout) :: destin(:,:)
33051 end subroutine
33052#endif
33053
33054#if LK4_ENABLED
33055 PURE module subroutine setMatCopy_RDP_RFP_XLD_AIO_LK4(destin, dpack, source, spack, subset)
33056#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33057 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RFP_XLD_AIO_LK4
33058#endif
33059 use pm_kind, only: LKG => LK4
33060 type(rdpack_type) , intent(in) :: dpack
33061 type(rfpack_type) , intent(in) :: spack
33062 type(lowDia_type) , intent(in) :: subset
33063 logical(LKG) , intent(in) :: source(:,:)
33064 logical(LKG) , intent(inout) :: destin(:,:)
33065 end subroutine
33066#endif
33067
33068#if LK3_ENABLED
33069 PURE module subroutine setMatCopy_RDP_RFP_XLD_AIO_LK3(destin, dpack, source, spack, subset)
33070#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33071 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RFP_XLD_AIO_LK3
33072#endif
33073 use pm_kind, only: LKG => LK3
33074 type(rdpack_type) , intent(in) :: dpack
33075 type(rfpack_type) , intent(in) :: spack
33076 type(lowDia_type) , intent(in) :: subset
33077 logical(LKG) , intent(in) :: source(:,:)
33078 logical(LKG) , intent(inout) :: destin(:,:)
33079 end subroutine
33080#endif
33081
33082#if LK2_ENABLED
33083 PURE module subroutine setMatCopy_RDP_RFP_XLD_AIO_LK2(destin, dpack, source, spack, subset)
33084#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33085 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RFP_XLD_AIO_LK2
33086#endif
33087 use pm_kind, only: LKG => LK2
33088 type(rdpack_type) , intent(in) :: dpack
33089 type(rfpack_type) , intent(in) :: spack
33090 type(lowDia_type) , intent(in) :: subset
33091 logical(LKG) , intent(in) :: source(:,:)
33092 logical(LKG) , intent(inout) :: destin(:,:)
33093 end subroutine
33094#endif
33095
33096#if LK1_ENABLED
33097 PURE module subroutine setMatCopy_RDP_RFP_XLD_AIO_LK1(destin, dpack, source, spack, subset)
33098#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33099 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RFP_XLD_AIO_LK1
33100#endif
33101 use pm_kind, only: LKG => LK1
33102 type(rdpack_type) , intent(in) :: dpack
33103 type(rfpack_type) , intent(in) :: spack
33104 type(lowDia_type) , intent(in) :: subset
33105 logical(LKG) , intent(in) :: source(:,:)
33106 logical(LKG) , intent(inout) :: destin(:,:)
33107 end subroutine
33108#endif
33109
33110 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
33111
33112#if CK5_ENABLED
33113 PURE module subroutine setMatCopy_RDP_RFP_XLD_AIO_CK5(destin, dpack, source, spack, subset)
33114#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33115 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RFP_XLD_AIO_CK5
33116#endif
33117 use pm_kind, only: CKG => CK5
33118 type(rdpack_type) , intent(in) :: dpack
33119 type(rfpack_type) , intent(in) :: spack
33120 type(lowDia_type) , intent(in) :: subset
33121 complex(CKG) , intent(in) :: source(:,:)
33122 complex(CKG) , intent(inout) :: destin(:,:)
33123 end subroutine
33124#endif
33125
33126#if CK4_ENABLED
33127 PURE module subroutine setMatCopy_RDP_RFP_XLD_AIO_CK4(destin, dpack, source, spack, subset)
33128#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33129 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RFP_XLD_AIO_CK4
33130#endif
33131 use pm_kind, only: CKG => CK4
33132 type(rdpack_type) , intent(in) :: dpack
33133 type(rfpack_type) , intent(in) :: spack
33134 type(lowDia_type) , intent(in) :: subset
33135 complex(CKG) , intent(in) :: source(:,:)
33136 complex(CKG) , intent(inout) :: destin(:,:)
33137 end subroutine
33138#endif
33139
33140#if CK3_ENABLED
33141 PURE module subroutine setMatCopy_RDP_RFP_XLD_AIO_CK3(destin, dpack, source, spack, subset)
33142#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33143 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RFP_XLD_AIO_CK3
33144#endif
33145 use pm_kind, only: CKG => CK3
33146 type(rdpack_type) , intent(in) :: dpack
33147 type(rfpack_type) , intent(in) :: spack
33148 type(lowDia_type) , intent(in) :: subset
33149 complex(CKG) , intent(in) :: source(:,:)
33150 complex(CKG) , intent(inout) :: destin(:,:)
33151 end subroutine
33152#endif
33153
33154#if CK2_ENABLED
33155 PURE module subroutine setMatCopy_RDP_RFP_XLD_AIO_CK2(destin, dpack, source, spack, subset)
33156#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33157 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RFP_XLD_AIO_CK2
33158#endif
33159 use pm_kind, only: CKG => CK2
33160 type(rdpack_type) , intent(in) :: dpack
33161 type(rfpack_type) , intent(in) :: spack
33162 type(lowDia_type) , intent(in) :: subset
33163 complex(CKG) , intent(in) :: source(:,:)
33164 complex(CKG) , intent(inout) :: destin(:,:)
33165 end subroutine
33166#endif
33167
33168#if CK1_ENABLED
33169 PURE module subroutine setMatCopy_RDP_RFP_XLD_AIO_CK1(destin, dpack, source, spack, subset)
33170#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33171 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RFP_XLD_AIO_CK1
33172#endif
33173 use pm_kind, only: CKG => CK1
33174 type(rdpack_type) , intent(in) :: dpack
33175 type(rfpack_type) , intent(in) :: spack
33176 type(lowDia_type) , intent(in) :: subset
33177 complex(CKG) , intent(in) :: source(:,:)
33178 complex(CKG) , intent(inout) :: destin(:,:)
33179 end subroutine
33180#endif
33181
33182 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
33183
33184#if RK5_ENABLED
33185 PURE module subroutine setMatCopy_RDP_RFP_XLD_AIO_RK5(destin, dpack, source, spack, subset)
33186#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33187 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RFP_XLD_AIO_RK5
33188#endif
33189 use pm_kind, only: RKG => RK5
33190 type(rdpack_type) , intent(in) :: dpack
33191 type(rfpack_type) , intent(in) :: spack
33192 type(lowDia_type) , intent(in) :: subset
33193 real(RKG) , intent(in) :: source(:,:)
33194 real(RKG) , intent(inout) :: destin(:,:)
33195 end subroutine
33196#endif
33197
33198#if RK4_ENABLED
33199 PURE module subroutine setMatCopy_RDP_RFP_XLD_AIO_RK4(destin, dpack, source, spack, subset)
33200#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33201 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RFP_XLD_AIO_RK4
33202#endif
33203 use pm_kind, only: RKG => RK4
33204 type(rdpack_type) , intent(in) :: dpack
33205 type(rfpack_type) , intent(in) :: spack
33206 type(lowDia_type) , intent(in) :: subset
33207 real(RKG) , intent(in) :: source(:,:)
33208 real(RKG) , intent(inout) :: destin(:,:)
33209 end subroutine
33210#endif
33211
33212#if RK3_ENABLED
33213 PURE module subroutine setMatCopy_RDP_RFP_XLD_AIO_RK3(destin, dpack, source, spack, subset)
33214#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33215 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RFP_XLD_AIO_RK3
33216#endif
33217 use pm_kind, only: RKG => RK3
33218 type(rdpack_type) , intent(in) :: dpack
33219 type(rfpack_type) , intent(in) :: spack
33220 type(lowDia_type) , intent(in) :: subset
33221 real(RKG) , intent(in) :: source(:,:)
33222 real(RKG) , intent(inout) :: destin(:,:)
33223 end subroutine
33224#endif
33225
33226#if RK2_ENABLED
33227 PURE module subroutine setMatCopy_RDP_RFP_XLD_AIO_RK2(destin, dpack, source, spack, subset)
33228#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33229 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RFP_XLD_AIO_RK2
33230#endif
33231 use pm_kind, only: RKG => RK2
33232 type(rdpack_type) , intent(in) :: dpack
33233 type(rfpack_type) , intent(in) :: spack
33234 type(lowDia_type) , intent(in) :: subset
33235 real(RKG) , intent(in) :: source(:,:)
33236 real(RKG) , intent(inout) :: destin(:,:)
33237 end subroutine
33238#endif
33239
33240#if RK1_ENABLED
33241 PURE module subroutine setMatCopy_RDP_RFP_XLD_AIO_RK1(destin, dpack, source, spack, subset)
33242#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33243 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RDP_RFP_XLD_AIO_RK1
33244#endif
33245 use pm_kind, only: RKG => RK1
33246 type(rdpack_type) , intent(in) :: dpack
33247 type(rfpack_type) , intent(in) :: spack
33248 type(lowDia_type) , intent(in) :: subset
33249 real(RKG) , intent(in) :: source(:,:)
33250 real(RKG) , intent(inout) :: destin(:,:)
33251 end subroutine
33252#endif
33253
33254 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
33255
33256 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
33257 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
33258 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
33259
33260 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
33261 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
33262 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
33263
33264 end interface setMatCopy
33265
33266 ! package: rfpack, rdpack
33267
33268 interface setMatCopy
33269
33270 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
33271 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
33272 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
33273
33274 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
33275 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
33276 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
33277
33278 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
33279
33280#if SK5_ENABLED
33281 PURE module subroutine setMatCopy_RFP_RDP_UXD_AIO_SK5(destin, dpack, source, spack, subset)
33282#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33283 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RFP_RDP_UXD_AIO_SK5
33284#endif
33285 use pm_kind, only: SKG => SK5
33286 type(rfpack_type) , intent(in) :: dpack
33287 type(rdpack_type) , intent(in) :: spack
33288 type(uppDia_type) , intent(in) :: subset
33289 character(*,SKG) , intent(in) :: source(:,:)
33290 character(*,SKG) , intent(inout) :: destin(:,:)
33291 end subroutine
33292#endif
33293
33294#if SK4_ENABLED
33295 PURE module subroutine setMatCopy_RFP_RDP_UXD_AIO_SK4(destin, dpack, source, spack, subset)
33296#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33297 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RFP_RDP_UXD_AIO_SK4
33298#endif
33299 use pm_kind, only: SKG => SK4
33300 type(rfpack_type) , intent(in) :: dpack
33301 type(rdpack_type) , intent(in) :: spack
33302 type(uppDia_type) , intent(in) :: subset
33303 character(*,SKG) , intent(in) :: source(:,:)
33304 character(*,SKG) , intent(inout) :: destin(:,:)
33305 end subroutine
33306#endif
33307
33308#if SK3_ENABLED
33309 PURE module subroutine setMatCopy_RFP_RDP_UXD_AIO_SK3(destin, dpack, source, spack, subset)
33310#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33311 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RFP_RDP_UXD_AIO_SK3
33312#endif
33313 use pm_kind, only: SKG => SK3
33314 type(rfpack_type) , intent(in) :: dpack
33315 type(rdpack_type) , intent(in) :: spack
33316 type(uppDia_type) , intent(in) :: subset
33317 character(*,SKG) , intent(in) :: source(:,:)
33318 character(*,SKG) , intent(inout) :: destin(:,:)
33319 end subroutine
33320#endif
33321
33322#if SK2_ENABLED
33323 PURE module subroutine setMatCopy_RFP_RDP_UXD_AIO_SK2(destin, dpack, source, spack, subset)
33324#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33325 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RFP_RDP_UXD_AIO_SK2
33326#endif
33327 use pm_kind, only: SKG => SK2
33328 type(rfpack_type) , intent(in) :: dpack
33329 type(rdpack_type) , intent(in) :: spack
33330 type(uppDia_type) , intent(in) :: subset
33331 character(*,SKG) , intent(in) :: source(:,:)
33332 character(*,SKG) , intent(inout) :: destin(:,:)
33333 end subroutine
33334#endif
33335
33336#if SK1_ENABLED
33337 PURE module subroutine setMatCopy_RFP_RDP_UXD_AIO_SK1(destin, dpack, source, spack, subset)
33338#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33339 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RFP_RDP_UXD_AIO_SK1
33340#endif
33341 use pm_kind, only: SKG => SK1
33342 type(rfpack_type) , intent(in) :: dpack
33343 type(rdpack_type) , intent(in) :: spack
33344 type(uppDia_type) , intent(in) :: subset
33345 character(*,SKG) , intent(in) :: source(:,:)
33346 character(*,SKG) , intent(inout) :: destin(:,:)
33347 end subroutine
33348#endif
33349
33350 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
33351
33352#if IK5_ENABLED
33353 PURE module subroutine setMatCopy_RFP_RDP_UXD_AIO_IK5(destin, dpack, source, spack, subset)
33354#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33355 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RFP_RDP_UXD_AIO_IK5
33356#endif
33357 use pm_kind, only: IKG => IK5
33358 type(rfpack_type) , intent(in) :: dpack
33359 type(rdpack_type) , intent(in) :: spack
33360 type(uppDia_type) , intent(in) :: subset
33361 integer(IKG) , intent(in) :: source(:,:)
33362 integer(IKG) , intent(inout) :: destin(:,:)
33363 end subroutine
33364#endif
33365
33366#if IK4_ENABLED
33367 PURE module subroutine setMatCopy_RFP_RDP_UXD_AIO_IK4(destin, dpack, source, spack, subset)
33368#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33369 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RFP_RDP_UXD_AIO_IK4
33370#endif
33371 use pm_kind, only: IKG => IK4
33372 type(rfpack_type) , intent(in) :: dpack
33373 type(rdpack_type) , intent(in) :: spack
33374 type(uppDia_type) , intent(in) :: subset
33375 integer(IKG) , intent(in) :: source(:,:)
33376 integer(IKG) , intent(inout) :: destin(:,:)
33377 end subroutine
33378#endif
33379
33380#if IK3_ENABLED
33381 PURE module subroutine setMatCopy_RFP_RDP_UXD_AIO_IK3(destin, dpack, source, spack, subset)
33382#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33383 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RFP_RDP_UXD_AIO_IK3
33384#endif
33385 use pm_kind, only: IKG => IK3
33386 type(rfpack_type) , intent(in) :: dpack
33387 type(rdpack_type) , intent(in) :: spack
33388 type(uppDia_type) , intent(in) :: subset
33389 integer(IKG) , intent(in) :: source(:,:)
33390 integer(IKG) , intent(inout) :: destin(:,:)
33391 end subroutine
33392#endif
33393
33394#if IK2_ENABLED
33395 PURE module subroutine setMatCopy_RFP_RDP_UXD_AIO_IK2(destin, dpack, source, spack, subset)
33396#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33397 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RFP_RDP_UXD_AIO_IK2
33398#endif
33399 use pm_kind, only: IKG => IK2
33400 type(rfpack_type) , intent(in) :: dpack
33401 type(rdpack_type) , intent(in) :: spack
33402 type(uppDia_type) , intent(in) :: subset
33403 integer(IKG) , intent(in) :: source(:,:)
33404 integer(IKG) , intent(inout) :: destin(:,:)
33405 end subroutine
33406#endif
33407
33408#if IK1_ENABLED
33409 PURE module subroutine setMatCopy_RFP_RDP_UXD_AIO_IK1(destin, dpack, source, spack, subset)
33410#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33411 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RFP_RDP_UXD_AIO_IK1
33412#endif
33413 use pm_kind, only: IKG => IK1
33414 type(rfpack_type) , intent(in) :: dpack
33415 type(rdpack_type) , intent(in) :: spack
33416 type(uppDia_type) , intent(in) :: subset
33417 integer(IKG) , intent(in) :: source(:,:)
33418 integer(IKG) , intent(inout) :: destin(:,:)
33419 end subroutine
33420#endif
33421
33422 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
33423
33424#if LK5_ENABLED
33425 PURE module subroutine setMatCopy_RFP_RDP_UXD_AIO_LK5(destin, dpack, source, spack, subset)
33426#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33427 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RFP_RDP_UXD_AIO_LK5
33428#endif
33429 use pm_kind, only: LKG => LK5
33430 type(rfpack_type) , intent(in) :: dpack
33431 type(rdpack_type) , intent(in) :: spack
33432 type(uppDia_type) , intent(in) :: subset
33433 logical(LKG) , intent(in) :: source(:,:)
33434 logical(LKG) , intent(inout) :: destin(:,:)
33435 end subroutine
33436#endif
33437
33438#if LK4_ENABLED
33439 PURE module subroutine setMatCopy_RFP_RDP_UXD_AIO_LK4(destin, dpack, source, spack, subset)
33440#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33441 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RFP_RDP_UXD_AIO_LK4
33442#endif
33443 use pm_kind, only: LKG => LK4
33444 type(rfpack_type) , intent(in) :: dpack
33445 type(rdpack_type) , intent(in) :: spack
33446 type(uppDia_type) , intent(in) :: subset
33447 logical(LKG) , intent(in) :: source(:,:)
33448 logical(LKG) , intent(inout) :: destin(:,:)
33449 end subroutine
33450#endif
33451
33452#if LK3_ENABLED
33453 PURE module subroutine setMatCopy_RFP_RDP_UXD_AIO_LK3(destin, dpack, source, spack, subset)
33454#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33455 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RFP_RDP_UXD_AIO_LK3
33456#endif
33457 use pm_kind, only: LKG => LK3
33458 type(rfpack_type) , intent(in) :: dpack
33459 type(rdpack_type) , intent(in) :: spack
33460 type(uppDia_type) , intent(in) :: subset
33461 logical(LKG) , intent(in) :: source(:,:)
33462 logical(LKG) , intent(inout) :: destin(:,:)
33463 end subroutine
33464#endif
33465
33466#if LK2_ENABLED
33467 PURE module subroutine setMatCopy_RFP_RDP_UXD_AIO_LK2(destin, dpack, source, spack, subset)
33468#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33469 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RFP_RDP_UXD_AIO_LK2
33470#endif
33471 use pm_kind, only: LKG => LK2
33472 type(rfpack_type) , intent(in) :: dpack
33473 type(rdpack_type) , intent(in) :: spack
33474 type(uppDia_type) , intent(in) :: subset
33475 logical(LKG) , intent(in) :: source(:,:)
33476 logical(LKG) , intent(inout) :: destin(:,:)
33477 end subroutine
33478#endif
33479
33480#if LK1_ENABLED
33481 PURE module subroutine setMatCopy_RFP_RDP_UXD_AIO_LK1(destin, dpack, source, spack, subset)
33482#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33483 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RFP_RDP_UXD_AIO_LK1
33484#endif
33485 use pm_kind, only: LKG => LK1
33486 type(rfpack_type) , intent(in) :: dpack
33487 type(rdpack_type) , intent(in) :: spack
33488 type(uppDia_type) , intent(in) :: subset
33489 logical(LKG) , intent(in) :: source(:,:)
33490 logical(LKG) , intent(inout) :: destin(:,:)
33491 end subroutine
33492#endif
33493
33494 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
33495
33496#if CK5_ENABLED
33497 PURE module subroutine setMatCopy_RFP_RDP_UXD_AIO_CK5(destin, dpack, source, spack, subset)
33498#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33499 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RFP_RDP_UXD_AIO_CK5
33500#endif
33501 use pm_kind, only: CKG => CK5
33502 type(rfpack_type) , intent(in) :: dpack
33503 type(rdpack_type) , intent(in) :: spack
33504 type(uppDia_type) , intent(in) :: subset
33505 complex(CKG) , intent(in) :: source(:,:)
33506 complex(CKG) , intent(inout) :: destin(:,:)
33507 end subroutine
33508#endif
33509
33510#if CK4_ENABLED
33511 PURE module subroutine setMatCopy_RFP_RDP_UXD_AIO_CK4(destin, dpack, source, spack, subset)
33512#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33513 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RFP_RDP_UXD_AIO_CK4
33514#endif
33515 use pm_kind, only: CKG => CK4
33516 type(rfpack_type) , intent(in) :: dpack
33517 type(rdpack_type) , intent(in) :: spack
33518 type(uppDia_type) , intent(in) :: subset
33519 complex(CKG) , intent(in) :: source(:,:)
33520 complex(CKG) , intent(inout) :: destin(:,:)
33521 end subroutine
33522#endif
33523
33524#if CK3_ENABLED
33525 PURE module subroutine setMatCopy_RFP_RDP_UXD_AIO_CK3(destin, dpack, source, spack, subset)
33526#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33527 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RFP_RDP_UXD_AIO_CK3
33528#endif
33529 use pm_kind, only: CKG => CK3
33530 type(rfpack_type) , intent(in) :: dpack
33531 type(rdpack_type) , intent(in) :: spack
33532 type(uppDia_type) , intent(in) :: subset
33533 complex(CKG) , intent(in) :: source(:,:)
33534 complex(CKG) , intent(inout) :: destin(:,:)
33535 end subroutine
33536#endif
33537
33538#if CK2_ENABLED
33539 PURE module subroutine setMatCopy_RFP_RDP_UXD_AIO_CK2(destin, dpack, source, spack, subset)
33540#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33541 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RFP_RDP_UXD_AIO_CK2
33542#endif
33543 use pm_kind, only: CKG => CK2
33544 type(rfpack_type) , intent(in) :: dpack
33545 type(rdpack_type) , intent(in) :: spack
33546 type(uppDia_type) , intent(in) :: subset
33547 complex(CKG) , intent(in) :: source(:,:)
33548 complex(CKG) , intent(inout) :: destin(:,:)
33549 end subroutine
33550#endif
33551
33552#if CK1_ENABLED
33553 PURE module subroutine setMatCopy_RFP_RDP_UXD_AIO_CK1(destin, dpack, source, spack, subset)
33554#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33555 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RFP_RDP_UXD_AIO_CK1
33556#endif
33557 use pm_kind, only: CKG => CK1
33558 type(rfpack_type) , intent(in) :: dpack
33559 type(rdpack_type) , intent(in) :: spack
33560 type(uppDia_type) , intent(in) :: subset
33561 complex(CKG) , intent(in) :: source(:,:)
33562 complex(CKG) , intent(inout) :: destin(:,:)
33563 end subroutine
33564#endif
33565
33566 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
33567
33568#if RK5_ENABLED
33569 PURE module subroutine setMatCopy_RFP_RDP_UXD_AIO_RK5(destin, dpack, source, spack, subset)
33570#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33571 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RFP_RDP_UXD_AIO_RK5
33572#endif
33573 use pm_kind, only: RKG => RK5
33574 type(rfpack_type) , intent(in) :: dpack
33575 type(rdpack_type) , intent(in) :: spack
33576 type(uppDia_type) , intent(in) :: subset
33577 real(RKG) , intent(in) :: source(:,:)
33578 real(RKG) , intent(inout) :: destin(:,:)
33579 end subroutine
33580#endif
33581
33582#if RK4_ENABLED
33583 PURE module subroutine setMatCopy_RFP_RDP_UXD_AIO_RK4(destin, dpack, source, spack, subset)
33584#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33585 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RFP_RDP_UXD_AIO_RK4
33586#endif
33587 use pm_kind, only: RKG => RK4
33588 type(rfpack_type) , intent(in) :: dpack
33589 type(rdpack_type) , intent(in) :: spack
33590 type(uppDia_type) , intent(in) :: subset
33591 real(RKG) , intent(in) :: source(:,:)
33592 real(RKG) , intent(inout) :: destin(:,:)
33593 end subroutine
33594#endif
33595
33596#if RK3_ENABLED
33597 PURE module subroutine setMatCopy_RFP_RDP_UXD_AIO_RK3(destin, dpack, source, spack, subset)
33598#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33599 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RFP_RDP_UXD_AIO_RK3
33600#endif
33601 use pm_kind, only: RKG => RK3
33602 type(rfpack_type) , intent(in) :: dpack
33603 type(rdpack_type) , intent(in) :: spack
33604 type(uppDia_type) , intent(in) :: subset
33605 real(RKG) , intent(in) :: source(:,:)
33606 real(RKG) , intent(inout) :: destin(:,:)
33607 end subroutine
33608#endif
33609
33610#if RK2_ENABLED
33611 PURE module subroutine setMatCopy_RFP_RDP_UXD_AIO_RK2(destin, dpack, source, spack, subset)
33612#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33613 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RFP_RDP_UXD_AIO_RK2
33614#endif
33615 use pm_kind, only: RKG => RK2
33616 type(rfpack_type) , intent(in) :: dpack
33617 type(rdpack_type) , intent(in) :: spack
33618 type(uppDia_type) , intent(in) :: subset
33619 real(RKG) , intent(in) :: source(:,:)
33620 real(RKG) , intent(inout) :: destin(:,:)
33621 end subroutine
33622#endif
33623
33624#if RK1_ENABLED
33625 PURE module subroutine setMatCopy_RFP_RDP_UXD_AIO_RK1(destin, dpack, source, spack, subset)
33626#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33627 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RFP_RDP_UXD_AIO_RK1
33628#endif
33629 use pm_kind, only: RKG => RK1
33630 type(rfpack_type) , intent(in) :: dpack
33631 type(rdpack_type) , intent(in) :: spack
33632 type(uppDia_type) , intent(in) :: subset
33633 real(RKG) , intent(in) :: source(:,:)
33634 real(RKG) , intent(inout) :: destin(:,:)
33635 end subroutine
33636#endif
33637
33638 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
33639
33640 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
33641 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
33642 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
33643
33644 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
33645 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
33646 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
33647
33648 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
33649
33650#if SK5_ENABLED
33651 PURE module subroutine setMatCopy_RFP_RDP_XLD_AIO_SK5(destin, dpack, source, spack, subset)
33652#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33653 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RFP_RDP_XLD_AIO_SK5
33654#endif
33655 use pm_kind, only: SKG => SK5
33656 type(rfpack_type) , intent(in) :: dpack
33657 type(rdpack_type) , intent(in) :: spack
33658 type(lowDia_type) , intent(in) :: subset
33659 character(*,SKG) , intent(in) :: source(:,:)
33660 character(*,SKG) , intent(inout) :: destin(:,:)
33661 end subroutine
33662#endif
33663
33664#if SK4_ENABLED
33665 PURE module subroutine setMatCopy_RFP_RDP_XLD_AIO_SK4(destin, dpack, source, spack, subset)
33666#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33667 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RFP_RDP_XLD_AIO_SK4
33668#endif
33669 use pm_kind, only: SKG => SK4
33670 type(rfpack_type) , intent(in) :: dpack
33671 type(rdpack_type) , intent(in) :: spack
33672 type(lowDia_type) , intent(in) :: subset
33673 character(*,SKG) , intent(in) :: source(:,:)
33674 character(*,SKG) , intent(inout) :: destin(:,:)
33675 end subroutine
33676#endif
33677
33678#if SK3_ENABLED
33679 PURE module subroutine setMatCopy_RFP_RDP_XLD_AIO_SK3(destin, dpack, source, spack, subset)
33680#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33681 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RFP_RDP_XLD_AIO_SK3
33682#endif
33683 use pm_kind, only: SKG => SK3
33684 type(rfpack_type) , intent(in) :: dpack
33685 type(rdpack_type) , intent(in) :: spack
33686 type(lowDia_type) , intent(in) :: subset
33687 character(*,SKG) , intent(in) :: source(:,:)
33688 character(*,SKG) , intent(inout) :: destin(:,:)
33689 end subroutine
33690#endif
33691
33692#if SK2_ENABLED
33693 PURE module subroutine setMatCopy_RFP_RDP_XLD_AIO_SK2(destin, dpack, source, spack, subset)
33694#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33695 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RFP_RDP_XLD_AIO_SK2
33696#endif
33697 use pm_kind, only: SKG => SK2
33698 type(rfpack_type) , intent(in) :: dpack
33699 type(rdpack_type) , intent(in) :: spack
33700 type(lowDia_type) , intent(in) :: subset
33701 character(*,SKG) , intent(in) :: source(:,:)
33702 character(*,SKG) , intent(inout) :: destin(:,:)
33703 end subroutine
33704#endif
33705
33706#if SK1_ENABLED
33707 PURE module subroutine setMatCopy_RFP_RDP_XLD_AIO_SK1(destin, dpack, source, spack, subset)
33708#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33709 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RFP_RDP_XLD_AIO_SK1
33710#endif
33711 use pm_kind, only: SKG => SK1
33712 type(rfpack_type) , intent(in) :: dpack
33713 type(rdpack_type) , intent(in) :: spack
33714 type(lowDia_type) , intent(in) :: subset
33715 character(*,SKG) , intent(in) :: source(:,:)
33716 character(*,SKG) , intent(inout) :: destin(:,:)
33717 end subroutine
33718#endif
33719
33720 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
33721
33722#if IK5_ENABLED
33723 PURE module subroutine setMatCopy_RFP_RDP_XLD_AIO_IK5(destin, dpack, source, spack, subset)
33724#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33725 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RFP_RDP_XLD_AIO_IK5
33726#endif
33727 use pm_kind, only: IKG => IK5
33728 type(rfpack_type) , intent(in) :: dpack
33729 type(rdpack_type) , intent(in) :: spack
33730 type(lowDia_type) , intent(in) :: subset
33731 integer(IKG) , intent(in) :: source(:,:)
33732 integer(IKG) , intent(inout) :: destin(:,:)
33733 end subroutine
33734#endif
33735
33736#if IK4_ENABLED
33737 PURE module subroutine setMatCopy_RFP_RDP_XLD_AIO_IK4(destin, dpack, source, spack, subset)
33738#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33739 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RFP_RDP_XLD_AIO_IK4
33740#endif
33741 use pm_kind, only: IKG => IK4
33742 type(rfpack_type) , intent(in) :: dpack
33743 type(rdpack_type) , intent(in) :: spack
33744 type(lowDia_type) , intent(in) :: subset
33745 integer(IKG) , intent(in) :: source(:,:)
33746 integer(IKG) , intent(inout) :: destin(:,:)
33747 end subroutine
33748#endif
33749
33750#if IK3_ENABLED
33751 PURE module subroutine setMatCopy_RFP_RDP_XLD_AIO_IK3(destin, dpack, source, spack, subset)
33752#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33753 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RFP_RDP_XLD_AIO_IK3
33754#endif
33755 use pm_kind, only: IKG => IK3
33756 type(rfpack_type) , intent(in) :: dpack
33757 type(rdpack_type) , intent(in) :: spack
33758 type(lowDia_type) , intent(in) :: subset
33759 integer(IKG) , intent(in) :: source(:,:)
33760 integer(IKG) , intent(inout) :: destin(:,:)
33761 end subroutine
33762#endif
33763
33764#if IK2_ENABLED
33765 PURE module subroutine setMatCopy_RFP_RDP_XLD_AIO_IK2(destin, dpack, source, spack, subset)
33766#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33767 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RFP_RDP_XLD_AIO_IK2
33768#endif
33769 use pm_kind, only: IKG => IK2
33770 type(rfpack_type) , intent(in) :: dpack
33771 type(rdpack_type) , intent(in) :: spack
33772 type(lowDia_type) , intent(in) :: subset
33773 integer(IKG) , intent(in) :: source(:,:)
33774 integer(IKG) , intent(inout) :: destin(:,:)
33775 end subroutine
33776#endif
33777
33778#if IK1_ENABLED
33779 PURE module subroutine setMatCopy_RFP_RDP_XLD_AIO_IK1(destin, dpack, source, spack, subset)
33780#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33781 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RFP_RDP_XLD_AIO_IK1
33782#endif
33783 use pm_kind, only: IKG => IK1
33784 type(rfpack_type) , intent(in) :: dpack
33785 type(rdpack_type) , intent(in) :: spack
33786 type(lowDia_type) , intent(in) :: subset
33787 integer(IKG) , intent(in) :: source(:,:)
33788 integer(IKG) , intent(inout) :: destin(:,:)
33789 end subroutine
33790#endif
33791
33792 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
33793
33794#if LK5_ENABLED
33795 PURE module subroutine setMatCopy_RFP_RDP_XLD_AIO_LK5(destin, dpack, source, spack, subset)
33796#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33797 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RFP_RDP_XLD_AIO_LK5
33798#endif
33799 use pm_kind, only: LKG => LK5
33800 type(rfpack_type) , intent(in) :: dpack
33801 type(rdpack_type) , intent(in) :: spack
33802 type(lowDia_type) , intent(in) :: subset
33803 logical(LKG) , intent(in) :: source(:,:)
33804 logical(LKG) , intent(inout) :: destin(:,:)
33805 end subroutine
33806#endif
33807
33808#if LK4_ENABLED
33809 PURE module subroutine setMatCopy_RFP_RDP_XLD_AIO_LK4(destin, dpack, source, spack, subset)
33810#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33811 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RFP_RDP_XLD_AIO_LK4
33812#endif
33813 use pm_kind, only: LKG => LK4
33814 type(rfpack_type) , intent(in) :: dpack
33815 type(rdpack_type) , intent(in) :: spack
33816 type(lowDia_type) , intent(in) :: subset
33817 logical(LKG) , intent(in) :: source(:,:)
33818 logical(LKG) , intent(inout) :: destin(:,:)
33819 end subroutine
33820#endif
33821
33822#if LK3_ENABLED
33823 PURE module subroutine setMatCopy_RFP_RDP_XLD_AIO_LK3(destin, dpack, source, spack, subset)
33824#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33825 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RFP_RDP_XLD_AIO_LK3
33826#endif
33827 use pm_kind, only: LKG => LK3
33828 type(rfpack_type) , intent(in) :: dpack
33829 type(rdpack_type) , intent(in) :: spack
33830 type(lowDia_type) , intent(in) :: subset
33831 logical(LKG) , intent(in) :: source(:,:)
33832 logical(LKG) , intent(inout) :: destin(:,:)
33833 end subroutine
33834#endif
33835
33836#if LK2_ENABLED
33837 PURE module subroutine setMatCopy_RFP_RDP_XLD_AIO_LK2(destin, dpack, source, spack, subset)
33838#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33839 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RFP_RDP_XLD_AIO_LK2
33840#endif
33841 use pm_kind, only: LKG => LK2
33842 type(rfpack_type) , intent(in) :: dpack
33843 type(rdpack_type) , intent(in) :: spack
33844 type(lowDia_type) , intent(in) :: subset
33845 logical(LKG) , intent(in) :: source(:,:)
33846 logical(LKG) , intent(inout) :: destin(:,:)
33847 end subroutine
33848#endif
33849
33850#if LK1_ENABLED
33851 PURE module subroutine setMatCopy_RFP_RDP_XLD_AIO_LK1(destin, dpack, source, spack, subset)
33852#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33853 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RFP_RDP_XLD_AIO_LK1
33854#endif
33855 use pm_kind, only: LKG => LK1
33856 type(rfpack_type) , intent(in) :: dpack
33857 type(rdpack_type) , intent(in) :: spack
33858 type(lowDia_type) , intent(in) :: subset
33859 logical(LKG) , intent(in) :: source(:,:)
33860 logical(LKG) , intent(inout) :: destin(:,:)
33861 end subroutine
33862#endif
33863
33864 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
33865
33866#if CK5_ENABLED
33867 PURE module subroutine setMatCopy_RFP_RDP_XLD_AIO_CK5(destin, dpack, source, spack, subset)
33868#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33869 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RFP_RDP_XLD_AIO_CK5
33870#endif
33871 use pm_kind, only: CKG => CK5
33872 type(rfpack_type) , intent(in) :: dpack
33873 type(rdpack_type) , intent(in) :: spack
33874 type(lowDia_type) , intent(in) :: subset
33875 complex(CKG) , intent(in) :: source(:,:)
33876 complex(CKG) , intent(inout) :: destin(:,:)
33877 end subroutine
33878#endif
33879
33880#if CK4_ENABLED
33881 PURE module subroutine setMatCopy_RFP_RDP_XLD_AIO_CK4(destin, dpack, source, spack, subset)
33882#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33883 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RFP_RDP_XLD_AIO_CK4
33884#endif
33885 use pm_kind, only: CKG => CK4
33886 type(rfpack_type) , intent(in) :: dpack
33887 type(rdpack_type) , intent(in) :: spack
33888 type(lowDia_type) , intent(in) :: subset
33889 complex(CKG) , intent(in) :: source(:,:)
33890 complex(CKG) , intent(inout) :: destin(:,:)
33891 end subroutine
33892#endif
33893
33894#if CK3_ENABLED
33895 PURE module subroutine setMatCopy_RFP_RDP_XLD_AIO_CK3(destin, dpack, source, spack, subset)
33896#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33897 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RFP_RDP_XLD_AIO_CK3
33898#endif
33899 use pm_kind, only: CKG => CK3
33900 type(rfpack_type) , intent(in) :: dpack
33901 type(rdpack_type) , intent(in) :: spack
33902 type(lowDia_type) , intent(in) :: subset
33903 complex(CKG) , intent(in) :: source(:,:)
33904 complex(CKG) , intent(inout) :: destin(:,:)
33905 end subroutine
33906#endif
33907
33908#if CK2_ENABLED
33909 PURE module subroutine setMatCopy_RFP_RDP_XLD_AIO_CK2(destin, dpack, source, spack, subset)
33910#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33911 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RFP_RDP_XLD_AIO_CK2
33912#endif
33913 use pm_kind, only: CKG => CK2
33914 type(rfpack_type) , intent(in) :: dpack
33915 type(rdpack_type) , intent(in) :: spack
33916 type(lowDia_type) , intent(in) :: subset
33917 complex(CKG) , intent(in) :: source(:,:)
33918 complex(CKG) , intent(inout) :: destin(:,:)
33919 end subroutine
33920#endif
33921
33922#if CK1_ENABLED
33923 PURE module subroutine setMatCopy_RFP_RDP_XLD_AIO_CK1(destin, dpack, source, spack, subset)
33924#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33925 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RFP_RDP_XLD_AIO_CK1
33926#endif
33927 use pm_kind, only: CKG => CK1
33928 type(rfpack_type) , intent(in) :: dpack
33929 type(rdpack_type) , intent(in) :: spack
33930 type(lowDia_type) , intent(in) :: subset
33931 complex(CKG) , intent(in) :: source(:,:)
33932 complex(CKG) , intent(inout) :: destin(:,:)
33933 end subroutine
33934#endif
33935
33936 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
33937
33938#if RK5_ENABLED
33939 PURE module subroutine setMatCopy_RFP_RDP_XLD_AIO_RK5(destin, dpack, source, spack, subset)
33940#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33941 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RFP_RDP_XLD_AIO_RK5
33942#endif
33943 use pm_kind, only: RKG => RK5
33944 type(rfpack_type) , intent(in) :: dpack
33945 type(rdpack_type) , intent(in) :: spack
33946 type(lowDia_type) , intent(in) :: subset
33947 real(RKG) , intent(in) :: source(:,:)
33948 real(RKG) , intent(inout) :: destin(:,:)
33949 end subroutine
33950#endif
33951
33952#if RK4_ENABLED
33953 PURE module subroutine setMatCopy_RFP_RDP_XLD_AIO_RK4(destin, dpack, source, spack, subset)
33954#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33955 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RFP_RDP_XLD_AIO_RK4
33956#endif
33957 use pm_kind, only: RKG => RK4
33958 type(rfpack_type) , intent(in) :: dpack
33959 type(rdpack_type) , intent(in) :: spack
33960 type(lowDia_type) , intent(in) :: subset
33961 real(RKG) , intent(in) :: source(:,:)
33962 real(RKG) , intent(inout) :: destin(:,:)
33963 end subroutine
33964#endif
33965
33966#if RK3_ENABLED
33967 PURE module subroutine setMatCopy_RFP_RDP_XLD_AIO_RK3(destin, dpack, source, spack, subset)
33968#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33969 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RFP_RDP_XLD_AIO_RK3
33970#endif
33971 use pm_kind, only: RKG => RK3
33972 type(rfpack_type) , intent(in) :: dpack
33973 type(rdpack_type) , intent(in) :: spack
33974 type(lowDia_type) , intent(in) :: subset
33975 real(RKG) , intent(in) :: source(:,:)
33976 real(RKG) , intent(inout) :: destin(:,:)
33977 end subroutine
33978#endif
33979
33980#if RK2_ENABLED
33981 PURE module subroutine setMatCopy_RFP_RDP_XLD_AIO_RK2(destin, dpack, source, spack, subset)
33982#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33983 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RFP_RDP_XLD_AIO_RK2
33984#endif
33985 use pm_kind, only: RKG => RK2
33986 type(rfpack_type) , intent(in) :: dpack
33987 type(rdpack_type) , intent(in) :: spack
33988 type(lowDia_type) , intent(in) :: subset
33989 real(RKG) , intent(in) :: source(:,:)
33990 real(RKG) , intent(inout) :: destin(:,:)
33991 end subroutine
33992#endif
33993
33994#if RK1_ENABLED
33995 PURE module subroutine setMatCopy_RFP_RDP_XLD_AIO_RK1(destin, dpack, source, spack, subset)
33996#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
33997 !DEC$ ATTRIBUTES DLLEXPORT :: setMatCopy_RFP_RDP_XLD_AIO_RK1
33998#endif
33999 use pm_kind, only: RKG => RK1
34000 type(rfpack_type) , intent(in) :: dpack
34001 type(rdpack_type) , intent(in) :: spack
34002 type(lowDia_type) , intent(in) :: subset
34003 real(RKG) , intent(in) :: source(:,:)
34004 real(RKG) , intent(inout) :: destin(:,:)
34005 end subroutine
34006#endif
34007
34008 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
34009
34010 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
34011 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
34012 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
34013
34014 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
34015 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
34016 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
34017
34018 end interface setMatCopy
34019
34020!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
34021
34022end module pm_matrixCopy ! LCOV_EXCL_LINE
Generate and return a copy of a desired subset of the input source matrix of arbitrary shape (:) or (...
Copy a desired subset of the input source matrix of arbitrary shape (:) or (:,:) to the target subset...
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:268
integer, parameter SK5
Definition: pm_kind.F90:326
integer, parameter LK1
Definition: pm_kind.F90:412
integer, parameter IK3
Definition: pm_kind.F90:368
integer, parameter RK5
Definition: pm_kind.F90:478
integer, parameter RK4
Definition: pm_kind.F90:489
integer, parameter SK1
Definition: pm_kind.F90:346
integer, parameter IK1
Definition: pm_kind.F90:382
integer, parameter LK5
Definition: pm_kind.F90:392
integer, parameter RK2
Definition: pm_kind.F90:511
integer, parameter CK1
Definition: pm_kind.F90:464
integer, parameter RK3
Definition: pm_kind.F90:500
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:541
integer, parameter LK2
Definition: pm_kind.F90:407
integer, parameter LK4
Definition: pm_kind.F90:397
integer, parameter CK5
Definition: pm_kind.F90:420
integer, parameter CK4
Definition: pm_kind.F90:431
integer, parameter SK4
Definition: pm_kind.F90:331
integer, parameter LK3
Definition: pm_kind.F90:402
integer, parameter IK2
Definition: pm_kind.F90:375
integer, parameter CK2
Definition: pm_kind.F90:453
integer, parameter SK2
Definition: pm_kind.F90:341
integer, parameter CK3
Definition: pm_kind.F90:442
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:540
integer, parameter IK4
Definition: pm_kind.F90:361
integer, parameter IK5
Definition: pm_kind.F90:354
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
Definition: pm_kind.F90:539
integer, parameter RK1
Definition: pm_kind.F90:522
integer, parameter SK3
Definition: pm_kind.F90:336
This module contains procedures and generic interfaces relevant to copying (diagonal or upper/lower t...
character(*, SK), parameter MODULE_NAME
This module contains abstract and concrete derived types that are required for compile-time resolutio...
type(rdpack_type), parameter rdpack
This is an object instance of class rdpack_type that is exclusively used to signify Rectangular Spars...
type(lfpack_type), parameter lfpack
This is an object instance of class lfpack_type that is exclusively used to signify Linear Full conti...
type(rfpack_type), parameter rfpack
This is an object instance of class rfpack_type that is exclusively used to signify Rectangular Full ...
This module contains abstract and concrete derived types that are required for compile-time resolutio...
type(lowDia_type), parameter lowDia
This is a scalar parameter object of type lowDia_type that is exclusively used to request lower-diago...
type(uppLow_type), parameter uppLow
This is a scalar parameter object of type uppLow_type that is exclusively used to request upper-lower...
type(low_type), parameter low
This is a scalar parameter object of type low_type that is exclusively used to request lower-triangul...
type(upp_type), parameter upp
This is a scalar parameter object of type upp_type that is exclusively used to request upper-triangul...
type(uppDia_type), parameter uppDia
This is a scalar parameter object of type uppDia_type that is exclusively used to request upper-diago...
type(dia_type), parameter dia
This is a scalar parameter object of type dia_type that is exclusively used to request unit (or Ident...
This module contains abstract and concrete derived types and procedures related to various common mat...
type(transSymm_type), parameter transSymm
This is a scalar parameter object of type transSymm_type that is exclusively used to request Symmetri...
type(transHerm_type), parameter transHerm
This is a scalar parameter object of type transHerm_type that is exclusively used to request Hermitia...
This is a concrete derived type whose instances are exclusively used to signify Linear Full contiguou...
This is a concrete derived type whose instances are exclusively used to signify Rectangular Sparse (o...
This is a concrete derived type whose instances are exclusively used to signify Rectangular Full cont...
This is a concrete derived type whose instances are exclusively used to request unit (or Identity or ...
This is a concrete derived type whose instances are exclusively used to request lower-diagonal triang...
This is a concrete derived type whose instances are exclusively used to request lower-triangular stor...
This is a concrete derived type whose instances are exclusively used to request upper-diagonal triang...
This is a concrete derived type whose instances are exclusively used to request upper-lower triangula...
This is a concrete derived type whose instances are exclusively used to request upper-triangular stor...
This is a concrete derived type whose instances are exclusively used to request Hermitian (conjugate)...
This is a concrete derived type whose instances are exclusively used to request Symmetric transpose (...