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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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))
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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
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(:,:)
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...
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
This 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 (...