302 PURE module function getMatInitXXD_D2XX0_SK5(shape, subset, vdia, ndia, roff, coff)
result(mat)
303#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
304 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXXD_D2XX0_SK5
307 character(
*,SKG) ,
intent(in) :: vdia
308 integer(IK) ,
intent(in) ::
shape(
2)
309 integer(IK) ,
intent(in),
optional :: ndia
310 integer(IK) ,
intent(in),
optional :: roff, coff
311 type(dia_type) ,
intent(in) :: subset
312 character(
len(vdia,IK),SKG) :: mat(
shape(
1),
shape(
2))
317 PURE module function getMatInitXXD_D2XX0_SK4(shape, subset, vdia, ndia, roff, coff)
result(mat)
318#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
319 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXXD_D2XX0_SK4
322 character(
*,SKG) ,
intent(in) :: vdia
323 integer(IK) ,
intent(in) ::
shape(
2)
324 integer(IK) ,
intent(in),
optional :: ndia
325 integer(IK) ,
intent(in),
optional :: roff, coff
326 type(dia_type) ,
intent(in) :: subset
327 character(
len(vdia,IK),SKG) :: mat(
shape(
1),
shape(
2))
332 PURE module function getMatInitXXD_D2XX0_SK3(shape, subset, vdia, ndia, roff, coff)
result(mat)
333#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
334 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXXD_D2XX0_SK3
337 character(
*,SKG) ,
intent(in) :: vdia
338 integer(IK) ,
intent(in) ::
shape(
2)
339 integer(IK) ,
intent(in),
optional :: ndia
340 integer(IK) ,
intent(in),
optional :: roff, coff
341 type(dia_type) ,
intent(in) :: subset
342 character(
len(vdia,IK),SKG) :: mat(
shape(
1),
shape(
2))
347 PURE module function getMatInitXXD_D2XX0_SK2(shape, subset, vdia, ndia, roff, coff)
result(mat)
348#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
349 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXXD_D2XX0_SK2
352 character(
*,SKG) ,
intent(in) :: vdia
353 integer(IK) ,
intent(in) ::
shape(
2)
354 integer(IK) ,
intent(in),
optional :: ndia
355 integer(IK) ,
intent(in),
optional :: roff, coff
356 type(dia_type) ,
intent(in) :: subset
357 character(
len(vdia,IK),SKG) :: mat(
shape(
1),
shape(
2))
362 PURE module function getMatInitXXD_D2XX0_SK1(shape, subset, vdia, ndia, roff, coff)
result(mat)
363#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
364 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXXD_D2XX0_SK1
367 character(
*,SKG) ,
intent(in) :: vdia
368 integer(IK) ,
intent(in) ::
shape(
2)
369 integer(IK) ,
intent(in),
optional :: ndia
370 integer(IK) ,
intent(in),
optional :: roff, coff
371 type(dia_type) ,
intent(in) :: subset
372 character(
len(vdia,IK),SKG) :: mat(
shape(
1),
shape(
2))
379 PURE module function getMatInitXXD_D2XX0_IK5(shape, subset, vdia, ndia, roff, coff)
result(mat)
380#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
381 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXXD_D2XX0_IK5
384 integer(IKG) ,
intent(in) :: vdia
385 integer(IK) ,
intent(in) ::
shape(
2)
386 integer(IK) ,
intent(in),
optional :: ndia
387 integer(IK) ,
intent(in),
optional :: roff, coff
388 type(dia_type) ,
intent(in) :: subset
389 integer(IKG) :: mat(
shape(
1),
shape(
2))
394 PURE module function getMatInitXXD_D2XX0_IK4(shape, subset, vdia, ndia, roff, coff)
result(mat)
395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
396 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXXD_D2XX0_IK4
399 integer(IKG) ,
intent(in) :: vdia
400 integer(IK) ,
intent(in) ::
shape(
2)
401 integer(IK) ,
intent(in),
optional :: ndia
402 integer(IK) ,
intent(in),
optional :: roff, coff
403 type(dia_type) ,
intent(in) :: subset
404 integer(IKG) :: mat(
shape(
1),
shape(
2))
409 PURE module function getMatInitXXD_D2XX0_IK3(shape, subset, vdia, ndia, roff, coff)
result(mat)
410#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
411 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXXD_D2XX0_IK3
414 integer(IKG) ,
intent(in) :: vdia
415 integer(IK) ,
intent(in) ::
shape(
2)
416 integer(IK) ,
intent(in),
optional :: ndia
417 integer(IK) ,
intent(in),
optional :: roff, coff
418 type(dia_type) ,
intent(in) :: subset
419 integer(IKG) :: mat(
shape(
1),
shape(
2))
424 PURE module function getMatInitXXD_D2XX0_IK2(shape, subset, vdia, ndia, roff, coff)
result(mat)
425#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
426 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXXD_D2XX0_IK2
429 integer(IKG) ,
intent(in) :: vdia
430 integer(IK) ,
intent(in) ::
shape(
2)
431 integer(IK) ,
intent(in),
optional :: ndia
432 integer(IK) ,
intent(in),
optional :: roff, coff
433 type(dia_type) ,
intent(in) :: subset
434 integer(IKG) :: mat(
shape(
1),
shape(
2))
439 PURE module function getMatInitXXD_D2XX0_IK1(shape, subset, vdia, ndia, roff, coff)
result(mat)
440#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
441 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXXD_D2XX0_IK1
444 integer(IKG) ,
intent(in) :: vdia
445 integer(IK) ,
intent(in) ::
shape(
2)
446 integer(IK) ,
intent(in),
optional :: ndia
447 integer(IK) ,
intent(in),
optional :: roff, coff
448 type(dia_type) ,
intent(in) :: subset
449 integer(IKG) :: mat(
shape(
1),
shape(
2))
456 PURE module function getMatInitXXD_D2XX0_LK5(shape, subset, vdia, ndia, roff, coff)
result(mat)
457#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
458 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXXD_D2XX0_LK5
461 logical(LKG) ,
intent(in) :: vdia
462 integer(IK) ,
intent(in) ::
shape(
2)
463 integer(IK) ,
intent(in),
optional :: ndia
464 integer(IK) ,
intent(in),
optional :: roff, coff
465 type(dia_type) ,
intent(in) :: subset
466 logical(LKG) :: mat(
shape(
1),
shape(
2))
471 PURE module function getMatInitXXD_D2XX0_LK4(shape, subset, vdia, ndia, roff, coff)
result(mat)
472#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
473 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXXD_D2XX0_LK4
476 logical(LKG) ,
intent(in) :: vdia
477 integer(IK) ,
intent(in) ::
shape(
2)
478 integer(IK) ,
intent(in),
optional :: ndia
479 integer(IK) ,
intent(in),
optional :: roff, coff
480 type(dia_type) ,
intent(in) :: subset
481 logical(LKG) :: mat(
shape(
1),
shape(
2))
486 PURE module function getMatInitXXD_D2XX0_LK3(shape, subset, vdia, ndia, roff, coff)
result(mat)
487#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
488 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXXD_D2XX0_LK3
491 logical(LKG) ,
intent(in) :: vdia
492 integer(IK) ,
intent(in) ::
shape(
2)
493 integer(IK) ,
intent(in),
optional :: ndia
494 integer(IK) ,
intent(in),
optional :: roff, coff
495 type(dia_type) ,
intent(in) :: subset
496 logical(LKG) :: mat(
shape(
1),
shape(
2))
501 PURE module function getMatInitXXD_D2XX0_LK2(shape, subset, vdia, ndia, roff, coff)
result(mat)
502#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
503 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXXD_D2XX0_LK2
506 logical(LKG) ,
intent(in) :: vdia
507 integer(IK) ,
intent(in) ::
shape(
2)
508 integer(IK) ,
intent(in),
optional :: ndia
509 integer(IK) ,
intent(in),
optional :: roff, coff
510 type(dia_type) ,
intent(in) :: subset
511 logical(LKG) :: mat(
shape(
1),
shape(
2))
516 PURE module function getMatInitXXD_D2XX0_LK1(shape, subset, vdia, ndia, roff, coff)
result(mat)
517#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
518 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXXD_D2XX0_LK1
521 logical(LKG) ,
intent(in) :: vdia
522 integer(IK) ,
intent(in) ::
shape(
2)
523 integer(IK) ,
intent(in),
optional :: ndia
524 integer(IK) ,
intent(in),
optional :: roff, coff
525 type(dia_type) ,
intent(in) :: subset
526 logical(LKG) :: mat(
shape(
1),
shape(
2))
533 PURE module function getMatInitXXD_D2XX0_CK5(shape, subset, vdia, ndia, roff, coff)
result(mat)
534#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
535 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXXD_D2XX0_CK5
538 complex(CKG) ,
intent(in) :: vdia
539 integer(IK) ,
intent(in) ::
shape(
2)
540 integer(IK) ,
intent(in),
optional :: ndia
541 integer(IK) ,
intent(in),
optional :: roff, coff
542 type(dia_type) ,
intent(in) :: subset
543 complex(CKG) :: mat(
shape(
1),
shape(
2))
548 PURE module function getMatInitXXD_D2XX0_CK4(shape, subset, vdia, ndia, roff, coff)
result(mat)
549#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
550 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXXD_D2XX0_CK4
553 complex(CKG) ,
intent(in) :: vdia
554 integer(IK) ,
intent(in) ::
shape(
2)
555 integer(IK) ,
intent(in),
optional :: ndia
556 integer(IK) ,
intent(in),
optional :: roff, coff
557 type(dia_type) ,
intent(in) :: subset
558 complex(CKG) :: mat(
shape(
1),
shape(
2))
563 PURE module function getMatInitXXD_D2XX0_CK3(shape, subset, vdia, ndia, roff, coff)
result(mat)
564#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
565 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXXD_D2XX0_CK3
568 complex(CKG) ,
intent(in) :: vdia
569 integer(IK) ,
intent(in) ::
shape(
2)
570 integer(IK) ,
intent(in),
optional :: ndia
571 integer(IK) ,
intent(in),
optional :: roff, coff
572 type(dia_type) ,
intent(in) :: subset
573 complex(CKG) :: mat(
shape(
1),
shape(
2))
578 PURE module function getMatInitXXD_D2XX0_CK2(shape, subset, vdia, ndia, roff, coff)
result(mat)
579#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
580 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXXD_D2XX0_CK2
583 complex(CKG) ,
intent(in) :: vdia
584 integer(IK) ,
intent(in) ::
shape(
2)
585 integer(IK) ,
intent(in),
optional :: ndia
586 integer(IK) ,
intent(in),
optional :: roff, coff
587 type(dia_type) ,
intent(in) :: subset
588 complex(CKG) :: mat(
shape(
1),
shape(
2))
593 PURE module function getMatInitXXD_D2XX0_CK1(shape, subset, vdia, ndia, roff, coff)
result(mat)
594#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
595 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXXD_D2XX0_CK1
598 complex(CKG) ,
intent(in) :: vdia
599 integer(IK) ,
intent(in) ::
shape(
2)
600 integer(IK) ,
intent(in),
optional :: ndia
601 integer(IK) ,
intent(in),
optional :: roff, coff
602 type(dia_type) ,
intent(in) :: subset
603 complex(CKG) :: mat(
shape(
1),
shape(
2))
610 PURE module function getMatInitXXD_D2XX0_RK5(shape, subset, vdia, ndia, roff, coff)
result(mat)
611#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
612 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXXD_D2XX0_RK5
615 real(RKG) ,
intent(in) :: vdia
616 integer(IK) ,
intent(in) ::
shape(
2)
617 integer(IK) ,
intent(in),
optional :: ndia
618 integer(IK) ,
intent(in),
optional :: roff, coff
619 type(dia_type) ,
intent(in) :: subset
620 real(RKG) :: mat(
shape(
1),
shape(
2))
625 PURE module function getMatInitXXD_D2XX0_RK4(shape, subset, vdia, ndia, roff, coff)
result(mat)
626#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
627 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXXD_D2XX0_RK4
630 real(RKG) ,
intent(in) :: vdia
631 integer(IK) ,
intent(in) ::
shape(
2)
632 integer(IK) ,
intent(in),
optional :: ndia
633 integer(IK) ,
intent(in),
optional :: roff, coff
634 type(dia_type) ,
intent(in) :: subset
635 real(RKG) :: mat(
shape(
1),
shape(
2))
640 PURE module function getMatInitXXD_D2XX0_RK3(shape, subset, vdia, ndia, roff, coff)
result(mat)
641#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
642 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXXD_D2XX0_RK3
645 real(RKG) ,
intent(in) :: vdia
646 integer(IK) ,
intent(in) ::
shape(
2)
647 integer(IK) ,
intent(in),
optional :: ndia
648 integer(IK) ,
intent(in),
optional :: roff, coff
649 type(dia_type) ,
intent(in) :: subset
650 real(RKG) :: mat(
shape(
1),
shape(
2))
655 PURE module function getMatInitXXD_D2XX0_RK2(shape, subset, vdia, ndia, roff, coff)
result(mat)
656#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
657 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXXD_D2XX0_RK2
660 real(RKG) ,
intent(in) :: vdia
661 integer(IK) ,
intent(in) ::
shape(
2)
662 integer(IK) ,
intent(in),
optional :: ndia
663 integer(IK) ,
intent(in),
optional :: roff, coff
664 type(dia_type) ,
intent(in) :: subset
665 real(RKG) :: mat(
shape(
1),
shape(
2))
670 PURE module function getMatInitXXD_D2XX0_RK1(shape, subset, vdia, ndia, roff, coff)
result(mat)
671#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
672 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXXD_D2XX0_RK1
675 real(RKG) ,
intent(in) :: vdia
676 integer(IK) ,
intent(in) ::
shape(
2)
677 integer(IK) ,
intent(in),
optional :: ndia
678 integer(IK) ,
intent(in),
optional :: roff, coff
679 type(dia_type) ,
intent(in) :: subset
680 real(RKG) :: mat(
shape(
1),
shape(
2))
693 PURE module function getMatInitXXD_D2XX1_SK5(shape, subset, vdia, roff, coff)
result(mat)
694#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
695 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXXD_D2XX1_SK5
698 character(
*,SKG) ,
intent(in),
contiguous :: vdia(:)
699 integer(IK) ,
intent(in) ::
shape(
2)
700 integer(IK) ,
intent(in),
optional :: roff, coff
701 type(dia_type) ,
intent(in) :: subset
702 character(
len(vdia,IK),SKG) :: mat(
shape(
1),
shape(
2))
707 PURE module function getMatInitXXD_D2XX1_SK4(shape, subset, vdia, roff, coff)
result(mat)
708#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
709 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXXD_D2XX1_SK4
712 character(
*,SKG) ,
intent(in),
contiguous :: vdia(:)
713 integer(IK) ,
intent(in) ::
shape(
2)
714 integer(IK) ,
intent(in),
optional :: roff, coff
715 type(dia_type) ,
intent(in) :: subset
716 character(
len(vdia,IK),SKG) :: mat(
shape(
1),
shape(
2))
721 PURE module function getMatInitXXD_D2XX1_SK3(shape, subset, vdia, roff, coff)
result(mat)
722#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
723 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXXD_D2XX1_SK3
726 character(
*,SKG) ,
intent(in),
contiguous :: vdia(:)
727 integer(IK) ,
intent(in) ::
shape(
2)
728 integer(IK) ,
intent(in),
optional :: roff, coff
729 type(dia_type) ,
intent(in) :: subset
730 character(
len(vdia,IK),SKG) :: mat(
shape(
1),
shape(
2))
735 PURE module function getMatInitXXD_D2XX1_SK2(shape, subset, vdia, roff, coff)
result(mat)
736#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
737 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXXD_D2XX1_SK2
740 character(
*,SKG) ,
intent(in),
contiguous :: vdia(:)
741 integer(IK) ,
intent(in) ::
shape(
2)
742 integer(IK) ,
intent(in),
optional :: roff, coff
743 type(dia_type) ,
intent(in) :: subset
744 character(
len(vdia,IK),SKG) :: mat(
shape(
1),
shape(
2))
749 PURE module function getMatInitXXD_D2XX1_SK1(shape, subset, vdia, roff, coff)
result(mat)
750#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
751 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXXD_D2XX1_SK1
754 character(
*,SKG) ,
intent(in),
contiguous :: vdia(:)
755 integer(IK) ,
intent(in) ::
shape(
2)
756 integer(IK) ,
intent(in),
optional :: roff, coff
757 type(dia_type) ,
intent(in) :: subset
758 character(
len(vdia,IK),SKG) :: mat(
shape(
1),
shape(
2))
765 PURE module function getMatInitXXD_D2XX1_IK5(shape, subset, vdia, roff, coff)
result(mat)
766#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
767 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXXD_D2XX1_IK5
770 integer(IKG) ,
intent(in),
contiguous :: vdia(:)
771 integer(IK) ,
intent(in) ::
shape(
2)
772 integer(IK) ,
intent(in),
optional :: roff, coff
773 type(dia_type) ,
intent(in) :: subset
774 integer(IKG) :: mat(
shape(
1),
shape(
2))
779 PURE module function getMatInitXXD_D2XX1_IK4(shape, subset, vdia, roff, coff)
result(mat)
780#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
781 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXXD_D2XX1_IK4
784 integer(IKG) ,
intent(in),
contiguous :: vdia(:)
785 integer(IK) ,
intent(in) ::
shape(
2)
786 integer(IK) ,
intent(in),
optional :: roff, coff
787 type(dia_type) ,
intent(in) :: subset
788 integer(IKG) :: mat(
shape(
1),
shape(
2))
793 PURE module function getMatInitXXD_D2XX1_IK3(shape, subset, vdia, roff, coff)
result(mat)
794#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
795 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXXD_D2XX1_IK3
798 integer(IKG) ,
intent(in),
contiguous :: vdia(:)
799 integer(IK) ,
intent(in) ::
shape(
2)
800 integer(IK) ,
intent(in),
optional :: roff, coff
801 type(dia_type) ,
intent(in) :: subset
802 integer(IKG) :: mat(
shape(
1),
shape(
2))
807 PURE module function getMatInitXXD_D2XX1_IK2(shape, subset, vdia, roff, coff)
result(mat)
808#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
809 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXXD_D2XX1_IK2
812 integer(IKG) ,
intent(in),
contiguous :: vdia(:)
813 integer(IK) ,
intent(in) ::
shape(
2)
814 integer(IK) ,
intent(in),
optional :: roff, coff
815 type(dia_type) ,
intent(in) :: subset
816 integer(IKG) :: mat(
shape(
1),
shape(
2))
821 PURE module function getMatInitXXD_D2XX1_IK1(shape, subset, vdia, roff, coff)
result(mat)
822#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
823 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXXD_D2XX1_IK1
826 integer(IKG) ,
intent(in),
contiguous :: vdia(:)
827 integer(IK) ,
intent(in) ::
shape(
2)
828 integer(IK) ,
intent(in),
optional :: roff, coff
829 type(dia_type) ,
intent(in) :: subset
830 integer(IKG) :: mat(
shape(
1),
shape(
2))
837 PURE module function getMatInitXXD_D2XX1_LK5(shape, subset, vdia, roff, coff)
result(mat)
838#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
839 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXXD_D2XX1_LK5
842 logical(LKG) ,
intent(in),
contiguous :: vdia(:)
843 integer(IK) ,
intent(in) ::
shape(
2)
844 integer(IK) ,
intent(in),
optional :: roff, coff
845 type(dia_type) ,
intent(in) :: subset
846 logical(LKG) :: mat(
shape(
1),
shape(
2))
851 PURE module function getMatInitXXD_D2XX1_LK4(shape, subset, vdia, roff, coff)
result(mat)
852#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
853 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXXD_D2XX1_LK4
856 logical(LKG) ,
intent(in),
contiguous :: vdia(:)
857 integer(IK) ,
intent(in) ::
shape(
2)
858 integer(IK) ,
intent(in),
optional :: roff, coff
859 type(dia_type) ,
intent(in) :: subset
860 logical(LKG) :: mat(
shape(
1),
shape(
2))
865 PURE module function getMatInitXXD_D2XX1_LK3(shape, subset, vdia, roff, coff)
result(mat)
866#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
867 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXXD_D2XX1_LK3
870 logical(LKG) ,
intent(in),
contiguous :: vdia(:)
871 integer(IK) ,
intent(in) ::
shape(
2)
872 integer(IK) ,
intent(in),
optional :: roff, coff
873 type(dia_type) ,
intent(in) :: subset
874 logical(LKG) :: mat(
shape(
1),
shape(
2))
879 PURE module function getMatInitXXD_D2XX1_LK2(shape, subset, vdia, roff, coff)
result(mat)
880#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
881 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXXD_D2XX1_LK2
884 logical(LKG) ,
intent(in),
contiguous :: vdia(:)
885 integer(IK) ,
intent(in) ::
shape(
2)
886 integer(IK) ,
intent(in),
optional :: roff, coff
887 type(dia_type) ,
intent(in) :: subset
888 logical(LKG) :: mat(
shape(
1),
shape(
2))
893 PURE module function getMatInitXXD_D2XX1_LK1(shape, subset, vdia, roff, coff)
result(mat)
894#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
895 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXXD_D2XX1_LK1
898 logical(LKG) ,
intent(in),
contiguous :: vdia(:)
899 integer(IK) ,
intent(in) ::
shape(
2)
900 integer(IK) ,
intent(in),
optional :: roff, coff
901 type(dia_type) ,
intent(in) :: subset
902 logical(LKG) :: mat(
shape(
1),
shape(
2))
909 PURE module function getMatInitXXD_D2XX1_CK5(shape, subset, vdia, roff, coff)
result(mat)
910#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
911 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXXD_D2XX1_CK5
914 complex(CKG) ,
intent(in),
contiguous :: vdia(:)
915 integer(IK) ,
intent(in) ::
shape(
2)
916 integer(IK) ,
intent(in),
optional :: roff, coff
917 type(dia_type) ,
intent(in) :: subset
918 complex(CKG) :: mat(
shape(
1),
shape(
2))
923 PURE module function getMatInitXXD_D2XX1_CK4(shape, subset, vdia, roff, coff)
result(mat)
924#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
925 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXXD_D2XX1_CK4
928 complex(CKG) ,
intent(in),
contiguous :: vdia(:)
929 integer(IK) ,
intent(in) ::
shape(
2)
930 integer(IK) ,
intent(in),
optional :: roff, coff
931 type(dia_type) ,
intent(in) :: subset
932 complex(CKG) :: mat(
shape(
1),
shape(
2))
937 PURE module function getMatInitXXD_D2XX1_CK3(shape, subset, vdia, roff, coff)
result(mat)
938#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
939 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXXD_D2XX1_CK3
942 complex(CKG) ,
intent(in),
contiguous :: vdia(:)
943 integer(IK) ,
intent(in) ::
shape(
2)
944 integer(IK) ,
intent(in),
optional :: roff, coff
945 type(dia_type) ,
intent(in) :: subset
946 complex(CKG) :: mat(
shape(
1),
shape(
2))
951 PURE module function getMatInitXXD_D2XX1_CK2(shape, subset, vdia, roff, coff)
result(mat)
952#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
953 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXXD_D2XX1_CK2
956 complex(CKG) ,
intent(in),
contiguous :: vdia(:)
957 integer(IK) ,
intent(in) ::
shape(
2)
958 integer(IK) ,
intent(in),
optional :: roff, coff
959 type(dia_type) ,
intent(in) :: subset
960 complex(CKG) :: mat(
shape(
1),
shape(
2))
965 PURE module function getMatInitXXD_D2XX1_CK1(shape, subset, vdia, roff, coff)
result(mat)
966#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
967 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXXD_D2XX1_CK1
970 complex(CKG) ,
intent(in),
contiguous :: vdia(:)
971 integer(IK) ,
intent(in) ::
shape(
2)
972 integer(IK) ,
intent(in),
optional :: roff, coff
973 type(dia_type) ,
intent(in) :: subset
974 complex(CKG) :: mat(
shape(
1),
shape(
2))
981 PURE module function getMatInitXXD_D2XX1_RK5(shape, subset, vdia, roff, coff)
result(mat)
982#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
983 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXXD_D2XX1_RK5
986 real(RKG) ,
intent(in),
contiguous :: vdia(:)
987 integer(IK) ,
intent(in) ::
shape(
2)
988 integer(IK) ,
intent(in),
optional :: roff, coff
989 type(dia_type) ,
intent(in) :: subset
990 real(RKG) :: mat(
shape(
1),
shape(
2))
995 PURE module function getMatInitXXD_D2XX1_RK4(shape, subset, vdia, roff, coff)
result(mat)
996#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
997 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXXD_D2XX1_RK4
1000 real(RKG) ,
intent(in),
contiguous :: vdia(:)
1001 integer(IK) ,
intent(in) ::
shape(
2)
1002 integer(IK) ,
intent(in),
optional :: roff, coff
1003 type(dia_type) ,
intent(in) :: subset
1004 real(RKG) :: mat(
shape(
1),
shape(
2))
1009 PURE module function getMatInitXXD_D2XX1_RK3(shape, subset, vdia, roff, coff)
result(mat)
1010#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1011 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXXD_D2XX1_RK3
1014 real(RKG) ,
intent(in),
contiguous :: vdia(:)
1015 integer(IK) ,
intent(in) ::
shape(
2)
1016 integer(IK) ,
intent(in),
optional :: roff, coff
1017 type(dia_type) ,
intent(in) :: subset
1018 real(RKG) :: mat(
shape(
1),
shape(
2))
1023 PURE module function getMatInitXXD_D2XX1_RK2(shape, subset, vdia, roff, coff)
result(mat)
1024#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1025 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXXD_D2XX1_RK2
1028 real(RKG) ,
intent(in),
contiguous :: vdia(:)
1029 integer(IK) ,
intent(in) ::
shape(
2)
1030 integer(IK) ,
intent(in),
optional :: roff, coff
1031 type(dia_type) ,
intent(in) :: subset
1032 real(RKG) :: mat(
shape(
1),
shape(
2))
1037 PURE module function getMatInitXXD_D2XX1_RK1(shape, subset, vdia, roff, coff)
result(mat)
1038#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1039 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXXD_D2XX1_RK1
1042 real(RKG) ,
intent(in),
contiguous :: vdia(:)
1043 integer(IK) ,
intent(in) ::
shape(
2)
1044 integer(IK) ,
intent(in),
optional :: roff, coff
1045 type(dia_type) ,
intent(in) :: subset
1046 real(RKG) :: mat(
shape(
1),
shape(
2))
1063 PURE module function getMatInitXLD_D2X00_SK5(shape, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
1064#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1065 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXLD_D2X00_SK5
1068 character(
*,SKG) ,
intent(in) :: vlow
1069 character(
*,SKG) ,
intent(in) :: vdia
1070 integer(IK) ,
intent(in) ::
shape(
2)
1071 integer(IK) ,
intent(in),
optional :: nrow, ncol
1072 integer(IK) ,
intent(in),
optional :: roff, coff, doff
1073 type(lowDia_type) ,
intent(in) :: subset
1074 character(
len(vdia,IK),SKG) :: mat(
shape(
1),
shape(
2))
1079 PURE module function getMatInitXLD_D2X00_SK4(shape, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
1080#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1081 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXLD_D2X00_SK4
1084 character(
*,SKG) ,
intent(in) :: vlow
1085 character(
*,SKG) ,
intent(in) :: vdia
1086 integer(IK) ,
intent(in) ::
shape(
2)
1087 integer(IK) ,
intent(in),
optional :: nrow, ncol
1088 integer(IK) ,
intent(in),
optional :: roff, coff, doff
1089 type(lowDia_type) ,
intent(in) :: subset
1090 character(
len(vdia,IK),SKG) :: mat(
shape(
1),
shape(
2))
1095 PURE module function getMatInitXLD_D2X00_SK3(shape, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
1096#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1097 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXLD_D2X00_SK3
1100 character(
*,SKG) ,
intent(in) :: vlow
1101 character(
*,SKG) ,
intent(in) :: vdia
1102 integer(IK) ,
intent(in) ::
shape(
2)
1103 integer(IK) ,
intent(in),
optional :: nrow, ncol
1104 integer(IK) ,
intent(in),
optional :: roff, coff, doff
1105 type(lowDia_type) ,
intent(in) :: subset
1106 character(
len(vdia,IK),SKG) :: mat(
shape(
1),
shape(
2))
1111 PURE module function getMatInitXLD_D2X00_SK2(shape, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
1112#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1113 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXLD_D2X00_SK2
1116 character(
*,SKG) ,
intent(in) :: vlow
1117 character(
*,SKG) ,
intent(in) :: vdia
1118 integer(IK) ,
intent(in) ::
shape(
2)
1119 integer(IK) ,
intent(in),
optional :: nrow, ncol
1120 integer(IK) ,
intent(in),
optional :: roff, coff, doff
1121 type(lowDia_type) ,
intent(in) :: subset
1122 character(
len(vdia,IK),SKG) :: mat(
shape(
1),
shape(
2))
1127 PURE module function getMatInitXLD_D2X00_SK1(shape, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
1128#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1129 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXLD_D2X00_SK1
1132 character(
*,SKG) ,
intent(in) :: vlow
1133 character(
*,SKG) ,
intent(in) :: vdia
1134 integer(IK) ,
intent(in) ::
shape(
2)
1135 integer(IK) ,
intent(in),
optional :: nrow, ncol
1136 integer(IK) ,
intent(in),
optional :: roff, coff, doff
1137 type(lowDia_type) ,
intent(in) :: subset
1138 character(
len(vdia,IK),SKG) :: mat(
shape(
1),
shape(
2))
1145 PURE module function getMatInitXLD_D2X00_IK5(shape, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
1146#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1147 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXLD_D2X00_IK5
1150 integer(IKG) ,
intent(in) :: vlow
1151 integer(IKG) ,
intent(in) :: vdia
1152 integer(IK) ,
intent(in) ::
shape(
2)
1153 integer(IK) ,
intent(in),
optional :: nrow, ncol
1154 integer(IK) ,
intent(in),
optional :: roff, coff, doff
1155 type(lowDia_type) ,
intent(in) :: subset
1156 integer(IKG) :: mat(
shape(
1),
shape(
2))
1161 PURE module function getMatInitXLD_D2X00_IK4(shape, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
1162#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1163 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXLD_D2X00_IK4
1166 integer(IKG) ,
intent(in) :: vlow
1167 integer(IKG) ,
intent(in) :: vdia
1168 integer(IK) ,
intent(in) ::
shape(
2)
1169 integer(IK) ,
intent(in),
optional :: nrow, ncol
1170 integer(IK) ,
intent(in),
optional :: roff, coff, doff
1171 type(lowDia_type) ,
intent(in) :: subset
1172 integer(IKG) :: mat(
shape(
1),
shape(
2))
1177 PURE module function getMatInitXLD_D2X00_IK3(shape, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
1178#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1179 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXLD_D2X00_IK3
1182 integer(IKG) ,
intent(in) :: vlow
1183 integer(IKG) ,
intent(in) :: vdia
1184 integer(IK) ,
intent(in) ::
shape(
2)
1185 integer(IK) ,
intent(in),
optional :: nrow, ncol
1186 integer(IK) ,
intent(in),
optional :: roff, coff, doff
1187 type(lowDia_type) ,
intent(in) :: subset
1188 integer(IKG) :: mat(
shape(
1),
shape(
2))
1193 PURE module function getMatInitXLD_D2X00_IK2(shape, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
1194#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1195 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXLD_D2X00_IK2
1198 integer(IKG) ,
intent(in) :: vlow
1199 integer(IKG) ,
intent(in) :: vdia
1200 integer(IK) ,
intent(in) ::
shape(
2)
1201 integer(IK) ,
intent(in),
optional :: nrow, ncol
1202 integer(IK) ,
intent(in),
optional :: roff, coff, doff
1203 type(lowDia_type) ,
intent(in) :: subset
1204 integer(IKG) :: mat(
shape(
1),
shape(
2))
1209 PURE module function getMatInitXLD_D2X00_IK1(shape, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
1210#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1211 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXLD_D2X00_IK1
1214 integer(IKG) ,
intent(in) :: vlow
1215 integer(IKG) ,
intent(in) :: vdia
1216 integer(IK) ,
intent(in) ::
shape(
2)
1217 integer(IK) ,
intent(in),
optional :: nrow, ncol
1218 integer(IK) ,
intent(in),
optional :: roff, coff, doff
1219 type(lowDia_type) ,
intent(in) :: subset
1220 integer(IKG) :: mat(
shape(
1),
shape(
2))
1227 PURE module function getMatInitXLD_D2X00_LK5(shape, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
1228#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1229 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXLD_D2X00_LK5
1232 logical(LKG) ,
intent(in) :: vlow
1233 logical(LKG) ,
intent(in) :: vdia
1234 integer(IK) ,
intent(in) ::
shape(
2)
1235 integer(IK) ,
intent(in),
optional :: nrow, ncol
1236 integer(IK) ,
intent(in),
optional :: roff, coff, doff
1237 type(lowDia_type) ,
intent(in) :: subset
1238 logical(LKG) :: mat(
shape(
1),
shape(
2))
1243 PURE module function getMatInitXLD_D2X00_LK4(shape, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
1244#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1245 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXLD_D2X00_LK4
1248 logical(LKG) ,
intent(in) :: vlow
1249 logical(LKG) ,
intent(in) :: vdia
1250 integer(IK) ,
intent(in) ::
shape(
2)
1251 integer(IK) ,
intent(in),
optional :: nrow, ncol
1252 integer(IK) ,
intent(in),
optional :: roff, coff, doff
1253 type(lowDia_type) ,
intent(in) :: subset
1254 logical(LKG) :: mat(
shape(
1),
shape(
2))
1259 PURE module function getMatInitXLD_D2X00_LK3(shape, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
1260#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1261 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXLD_D2X00_LK3
1264 logical(LKG) ,
intent(in) :: vlow
1265 logical(LKG) ,
intent(in) :: vdia
1266 integer(IK) ,
intent(in) ::
shape(
2)
1267 integer(IK) ,
intent(in),
optional :: nrow, ncol
1268 integer(IK) ,
intent(in),
optional :: roff, coff, doff
1269 type(lowDia_type) ,
intent(in) :: subset
1270 logical(LKG) :: mat(
shape(
1),
shape(
2))
1275 PURE module function getMatInitXLD_D2X00_LK2(shape, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
1276#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1277 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXLD_D2X00_LK2
1280 logical(LKG) ,
intent(in) :: vlow
1281 logical(LKG) ,
intent(in) :: vdia
1282 integer(IK) ,
intent(in) ::
shape(
2)
1283 integer(IK) ,
intent(in),
optional :: nrow, ncol
1284 integer(IK) ,
intent(in),
optional :: roff, coff, doff
1285 type(lowDia_type) ,
intent(in) :: subset
1286 logical(LKG) :: mat(
shape(
1),
shape(
2))
1291 PURE module function getMatInitXLD_D2X00_LK1(shape, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
1292#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1293 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXLD_D2X00_LK1
1296 logical(LKG) ,
intent(in) :: vlow
1297 logical(LKG) ,
intent(in) :: vdia
1298 integer(IK) ,
intent(in) ::
shape(
2)
1299 integer(IK) ,
intent(in),
optional :: nrow, ncol
1300 integer(IK) ,
intent(in),
optional :: roff, coff, doff
1301 type(lowDia_type) ,
intent(in) :: subset
1302 logical(LKG) :: mat(
shape(
1),
shape(
2))
1309 PURE module function getMatInitXLD_D2X00_CK5(shape, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
1310#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1311 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXLD_D2X00_CK5
1314 complex(CKG) ,
intent(in) :: vlow
1315 complex(CKG) ,
intent(in) :: vdia
1316 integer(IK) ,
intent(in) ::
shape(
2)
1317 integer(IK) ,
intent(in),
optional :: nrow, ncol
1318 integer(IK) ,
intent(in),
optional :: roff, coff, doff
1319 type(lowDia_type) ,
intent(in) :: subset
1320 complex(CKG) :: mat(
shape(
1),
shape(
2))
1325 PURE module function getMatInitXLD_D2X00_CK4(shape, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
1326#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1327 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXLD_D2X00_CK4
1330 complex(CKG) ,
intent(in) :: vlow
1331 complex(CKG) ,
intent(in) :: vdia
1332 integer(IK) ,
intent(in) ::
shape(
2)
1333 integer(IK) ,
intent(in),
optional :: nrow, ncol
1334 integer(IK) ,
intent(in),
optional :: roff, coff, doff
1335 type(lowDia_type) ,
intent(in) :: subset
1336 complex(CKG) :: mat(
shape(
1),
shape(
2))
1341 PURE module function getMatInitXLD_D2X00_CK3(shape, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
1342#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1343 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXLD_D2X00_CK3
1346 complex(CKG) ,
intent(in) :: vlow
1347 complex(CKG) ,
intent(in) :: vdia
1348 integer(IK) ,
intent(in) ::
shape(
2)
1349 integer(IK) ,
intent(in),
optional :: nrow, ncol
1350 integer(IK) ,
intent(in),
optional :: roff, coff, doff
1351 type(lowDia_type) ,
intent(in) :: subset
1352 complex(CKG) :: mat(
shape(
1),
shape(
2))
1357 PURE module function getMatInitXLD_D2X00_CK2(shape, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
1358#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1359 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXLD_D2X00_CK2
1362 complex(CKG) ,
intent(in) :: vlow
1363 complex(CKG) ,
intent(in) :: vdia
1364 integer(IK) ,
intent(in) ::
shape(
2)
1365 integer(IK) ,
intent(in),
optional :: nrow, ncol
1366 integer(IK) ,
intent(in),
optional :: roff, coff, doff
1367 type(lowDia_type) ,
intent(in) :: subset
1368 complex(CKG) :: mat(
shape(
1),
shape(
2))
1373 PURE module function getMatInitXLD_D2X00_CK1(shape, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
1374#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1375 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXLD_D2X00_CK1
1378 complex(CKG) ,
intent(in) :: vlow
1379 complex(CKG) ,
intent(in) :: vdia
1380 integer(IK) ,
intent(in) ::
shape(
2)
1381 integer(IK) ,
intent(in),
optional :: nrow, ncol
1382 integer(IK) ,
intent(in),
optional :: roff, coff, doff
1383 type(lowDia_type) ,
intent(in) :: subset
1384 complex(CKG) :: mat(
shape(
1),
shape(
2))
1391 PURE module function getMatInitXLD_D2X00_RK5(shape, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
1392#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1393 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXLD_D2X00_RK5
1396 real(RKG) ,
intent(in) :: vlow
1397 real(RKG) ,
intent(in) :: vdia
1398 integer(IK) ,
intent(in) ::
shape(
2)
1399 integer(IK) ,
intent(in),
optional :: nrow, ncol
1400 integer(IK) ,
intent(in),
optional :: roff, coff, doff
1401 type(lowDia_type) ,
intent(in) :: subset
1402 real(RKG) :: mat(
shape(
1),
shape(
2))
1407 PURE module function getMatInitXLD_D2X00_RK4(shape, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
1408#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1409 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXLD_D2X00_RK4
1412 real(RKG) ,
intent(in) :: vlow
1413 real(RKG) ,
intent(in) :: vdia
1414 integer(IK) ,
intent(in) ::
shape(
2)
1415 integer(IK) ,
intent(in),
optional :: nrow, ncol
1416 integer(IK) ,
intent(in),
optional :: roff, coff, doff
1417 type(lowDia_type) ,
intent(in) :: subset
1418 real(RKG) :: mat(
shape(
1),
shape(
2))
1423 PURE module function getMatInitXLD_D2X00_RK3(shape, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
1424#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1425 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXLD_D2X00_RK3
1428 real(RKG) ,
intent(in) :: vlow
1429 real(RKG) ,
intent(in) :: vdia
1430 integer(IK) ,
intent(in) ::
shape(
2)
1431 integer(IK) ,
intent(in),
optional :: nrow, ncol
1432 integer(IK) ,
intent(in),
optional :: roff, coff, doff
1433 type(lowDia_type) ,
intent(in) :: subset
1434 real(RKG) :: mat(
shape(
1),
shape(
2))
1439 PURE module function getMatInitXLD_D2X00_RK2(shape, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
1440#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1441 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXLD_D2X00_RK2
1444 real(RKG) ,
intent(in) :: vlow
1445 real(RKG) ,
intent(in) :: vdia
1446 integer(IK) ,
intent(in) ::
shape(
2)
1447 integer(IK) ,
intent(in),
optional :: nrow, ncol
1448 integer(IK) ,
intent(in),
optional :: roff, coff, doff
1449 type(lowDia_type) ,
intent(in) :: subset
1450 real(RKG) :: mat(
shape(
1),
shape(
2))
1455 PURE module function getMatInitXLD_D2X00_RK1(shape, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
1456#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1457 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXLD_D2X00_RK1
1460 real(RKG) ,
intent(in) :: vlow
1461 real(RKG) ,
intent(in) :: vdia
1462 integer(IK) ,
intent(in) ::
shape(
2)
1463 integer(IK) ,
intent(in),
optional :: nrow, ncol
1464 integer(IK) ,
intent(in),
optional :: roff, coff, doff
1465 type(lowDia_type) ,
intent(in) :: subset
1466 real(RKG) :: mat(
shape(
1),
shape(
2))
1479 PURE module function getMatInitXLD_D2X01_SK5(shape, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
1480#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1481 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXLD_D2X01_SK5
1484 character(
*,SKG) ,
intent(in) :: vlow
1485 character(
*,SKG) ,
intent(in),
contiguous :: vdia(:)
1486 integer(IK) ,
intent(in) ::
shape(
2)
1487 integer(IK) ,
intent(in),
optional :: nrow, ncol
1488 integer(IK) ,
intent(in),
optional :: roff, coff, doff
1489 type(lowDia_type) ,
intent(in) :: subset
1490 character(
len(vdia,IK),SKG) :: mat(
shape(
1),
shape(
2))
1495 PURE module function getMatInitXLD_D2X01_SK4(shape, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
1496#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1497 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXLD_D2X01_SK4
1500 character(
*,SKG) ,
intent(in) :: vlow
1501 character(
*,SKG) ,
intent(in),
contiguous :: vdia(:)
1502 integer(IK) ,
intent(in) ::
shape(
2)
1503 integer(IK) ,
intent(in),
optional :: nrow, ncol
1504 integer(IK) ,
intent(in),
optional :: roff, coff, doff
1505 type(lowDia_type) ,
intent(in) :: subset
1506 character(
len(vdia,IK),SKG) :: mat(
shape(
1),
shape(
2))
1511 PURE module function getMatInitXLD_D2X01_SK3(shape, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
1512#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1513 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXLD_D2X01_SK3
1516 character(
*,SKG) ,
intent(in) :: vlow
1517 character(
*,SKG) ,
intent(in),
contiguous :: vdia(:)
1518 integer(IK) ,
intent(in) ::
shape(
2)
1519 integer(IK) ,
intent(in),
optional :: nrow, ncol
1520 integer(IK) ,
intent(in),
optional :: roff, coff, doff
1521 type(lowDia_type) ,
intent(in) :: subset
1522 character(
len(vdia,IK),SKG) :: mat(
shape(
1),
shape(
2))
1527 PURE module function getMatInitXLD_D2X01_SK2(shape, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
1528#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1529 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXLD_D2X01_SK2
1532 character(
*,SKG) ,
intent(in) :: vlow
1533 character(
*,SKG) ,
intent(in),
contiguous :: vdia(:)
1534 integer(IK) ,
intent(in) ::
shape(
2)
1535 integer(IK) ,
intent(in),
optional :: nrow, ncol
1536 integer(IK) ,
intent(in),
optional :: roff, coff, doff
1537 type(lowDia_type) ,
intent(in) :: subset
1538 character(
len(vdia,IK),SKG) :: mat(
shape(
1),
shape(
2))
1543 PURE module function getMatInitXLD_D2X01_SK1(shape, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
1544#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1545 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXLD_D2X01_SK1
1548 character(
*,SKG) ,
intent(in) :: vlow
1549 character(
*,SKG) ,
intent(in),
contiguous :: vdia(:)
1550 integer(IK) ,
intent(in) ::
shape(
2)
1551 integer(IK) ,
intent(in),
optional :: nrow, ncol
1552 integer(IK) ,
intent(in),
optional :: roff, coff, doff
1553 type(lowDia_type) ,
intent(in) :: subset
1554 character(
len(vdia,IK),SKG) :: mat(
shape(
1),
shape(
2))
1561 PURE module function getMatInitXLD_D2X01_IK5(shape, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
1562#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1563 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXLD_D2X01_IK5
1566 integer(IKG) ,
intent(in) :: vlow
1567 integer(IKG) ,
intent(in),
contiguous :: vdia(:)
1568 integer(IK) ,
intent(in) ::
shape(
2)
1569 integer(IK) ,
intent(in),
optional :: nrow, ncol
1570 integer(IK) ,
intent(in),
optional :: roff, coff, doff
1571 type(lowDia_type) ,
intent(in) :: subset
1572 integer(IKG) :: mat(
shape(
1),
shape(
2))
1577 PURE module function getMatInitXLD_D2X01_IK4(shape, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
1578#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1579 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXLD_D2X01_IK4
1582 integer(IKG) ,
intent(in) :: vlow
1583 integer(IKG) ,
intent(in),
contiguous :: vdia(:)
1584 integer(IK) ,
intent(in) ::
shape(
2)
1585 integer(IK) ,
intent(in),
optional :: nrow, ncol
1586 integer(IK) ,
intent(in),
optional :: roff, coff, doff
1587 type(lowDia_type) ,
intent(in) :: subset
1588 integer(IKG) :: mat(
shape(
1),
shape(
2))
1593 PURE module function getMatInitXLD_D2X01_IK3(shape, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
1594#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1595 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXLD_D2X01_IK3
1598 integer(IKG) ,
intent(in) :: vlow
1599 integer(IKG) ,
intent(in),
contiguous :: vdia(:)
1600 integer(IK) ,
intent(in) ::
shape(
2)
1601 integer(IK) ,
intent(in),
optional :: nrow, ncol
1602 integer(IK) ,
intent(in),
optional :: roff, coff, doff
1603 type(lowDia_type) ,
intent(in) :: subset
1604 integer(IKG) :: mat(
shape(
1),
shape(
2))
1609 PURE module function getMatInitXLD_D2X01_IK2(shape, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
1610#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1611 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXLD_D2X01_IK2
1614 integer(IKG) ,
intent(in) :: vlow
1615 integer(IKG) ,
intent(in),
contiguous :: vdia(:)
1616 integer(IK) ,
intent(in) ::
shape(
2)
1617 integer(IK) ,
intent(in),
optional :: nrow, ncol
1618 integer(IK) ,
intent(in),
optional :: roff, coff, doff
1619 type(lowDia_type) ,
intent(in) :: subset
1620 integer(IKG) :: mat(
shape(
1),
shape(
2))
1625 PURE module function getMatInitXLD_D2X01_IK1(shape, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
1626#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1627 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXLD_D2X01_IK1
1630 integer(IKG) ,
intent(in) :: vlow
1631 integer(IKG) ,
intent(in),
contiguous :: vdia(:)
1632 integer(IK) ,
intent(in) ::
shape(
2)
1633 integer(IK) ,
intent(in),
optional :: nrow, ncol
1634 integer(IK) ,
intent(in),
optional :: roff, coff, doff
1635 type(lowDia_type) ,
intent(in) :: subset
1636 integer(IKG) :: mat(
shape(
1),
shape(
2))
1643 PURE module function getMatInitXLD_D2X01_LK5(shape, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
1644#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1645 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXLD_D2X01_LK5
1648 logical(LKG) ,
intent(in) :: vlow
1649 logical(LKG) ,
intent(in),
contiguous :: vdia(:)
1650 integer(IK) ,
intent(in) ::
shape(
2)
1651 integer(IK) ,
intent(in),
optional :: nrow, ncol
1652 integer(IK) ,
intent(in),
optional :: roff, coff, doff
1653 type(lowDia_type) ,
intent(in) :: subset
1654 logical(LKG) :: mat(
shape(
1),
shape(
2))
1659 PURE module function getMatInitXLD_D2X01_LK4(shape, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
1660#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1661 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXLD_D2X01_LK4
1664 logical(LKG) ,
intent(in) :: vlow
1665 logical(LKG) ,
intent(in),
contiguous :: vdia(:)
1666 integer(IK) ,
intent(in) ::
shape(
2)
1667 integer(IK) ,
intent(in),
optional :: nrow, ncol
1668 integer(IK) ,
intent(in),
optional :: roff, coff, doff
1669 type(lowDia_type) ,
intent(in) :: subset
1670 logical(LKG) :: mat(
shape(
1),
shape(
2))
1675 PURE module function getMatInitXLD_D2X01_LK3(shape, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
1676#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1677 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXLD_D2X01_LK3
1680 logical(LKG) ,
intent(in) :: vlow
1681 logical(LKG) ,
intent(in),
contiguous :: vdia(:)
1682 integer(IK) ,
intent(in) ::
shape(
2)
1683 integer(IK) ,
intent(in),
optional :: nrow, ncol
1684 integer(IK) ,
intent(in),
optional :: roff, coff, doff
1685 type(lowDia_type) ,
intent(in) :: subset
1686 logical(LKG) :: mat(
shape(
1),
shape(
2))
1691 PURE module function getMatInitXLD_D2X01_LK2(shape, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
1692#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1693 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXLD_D2X01_LK2
1696 logical(LKG) ,
intent(in) :: vlow
1697 logical(LKG) ,
intent(in),
contiguous :: vdia(:)
1698 integer(IK) ,
intent(in) ::
shape(
2)
1699 integer(IK) ,
intent(in),
optional :: nrow, ncol
1700 integer(IK) ,
intent(in),
optional :: roff, coff, doff
1701 type(lowDia_type) ,
intent(in) :: subset
1702 logical(LKG) :: mat(
shape(
1),
shape(
2))
1707 PURE module function getMatInitXLD_D2X01_LK1(shape, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
1708#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1709 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXLD_D2X01_LK1
1712 logical(LKG) ,
intent(in) :: vlow
1713 logical(LKG) ,
intent(in),
contiguous :: vdia(:)
1714 integer(IK) ,
intent(in) ::
shape(
2)
1715 integer(IK) ,
intent(in),
optional :: nrow, ncol
1716 integer(IK) ,
intent(in),
optional :: roff, coff, doff
1717 type(lowDia_type) ,
intent(in) :: subset
1718 logical(LKG) :: mat(
shape(
1),
shape(
2))
1725 PURE module function getMatInitXLD_D2X01_CK5(shape, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
1726#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1727 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXLD_D2X01_CK5
1730 complex(CKG) ,
intent(in) :: vlow
1731 complex(CKG) ,
intent(in),
contiguous :: vdia(:)
1732 integer(IK) ,
intent(in) ::
shape(
2)
1733 integer(IK) ,
intent(in),
optional :: nrow, ncol
1734 integer(IK) ,
intent(in),
optional :: roff, coff, doff
1735 type(lowDia_type) ,
intent(in) :: subset
1736 complex(CKG) :: mat(
shape(
1),
shape(
2))
1741 PURE module function getMatInitXLD_D2X01_CK4(shape, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
1742#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1743 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXLD_D2X01_CK4
1746 complex(CKG) ,
intent(in) :: vlow
1747 complex(CKG) ,
intent(in),
contiguous :: vdia(:)
1748 integer(IK) ,
intent(in) ::
shape(
2)
1749 integer(IK) ,
intent(in),
optional :: nrow, ncol
1750 integer(IK) ,
intent(in),
optional :: roff, coff, doff
1751 type(lowDia_type) ,
intent(in) :: subset
1752 complex(CKG) :: mat(
shape(
1),
shape(
2))
1757 PURE module function getMatInitXLD_D2X01_CK3(shape, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
1758#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1759 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXLD_D2X01_CK3
1762 complex(CKG) ,
intent(in) :: vlow
1763 complex(CKG) ,
intent(in),
contiguous :: vdia(:)
1764 integer(IK) ,
intent(in) ::
shape(
2)
1765 integer(IK) ,
intent(in),
optional :: nrow, ncol
1766 integer(IK) ,
intent(in),
optional :: roff, coff, doff
1767 type(lowDia_type) ,
intent(in) :: subset
1768 complex(CKG) :: mat(
shape(
1),
shape(
2))
1773 PURE module function getMatInitXLD_D2X01_CK2(shape, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
1774#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1775 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXLD_D2X01_CK2
1778 complex(CKG) ,
intent(in) :: vlow
1779 complex(CKG) ,
intent(in),
contiguous :: vdia(:)
1780 integer(IK) ,
intent(in) ::
shape(
2)
1781 integer(IK) ,
intent(in),
optional :: nrow, ncol
1782 integer(IK) ,
intent(in),
optional :: roff, coff, doff
1783 type(lowDia_type) ,
intent(in) :: subset
1784 complex(CKG) :: mat(
shape(
1),
shape(
2))
1789 PURE module function getMatInitXLD_D2X01_CK1(shape, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
1790#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1791 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXLD_D2X01_CK1
1794 complex(CKG) ,
intent(in) :: vlow
1795 complex(CKG) ,
intent(in),
contiguous :: vdia(:)
1796 integer(IK) ,
intent(in) ::
shape(
2)
1797 integer(IK) ,
intent(in),
optional :: nrow, ncol
1798 integer(IK) ,
intent(in),
optional :: roff, coff, doff
1799 type(lowDia_type) ,
intent(in) :: subset
1800 complex(CKG) :: mat(
shape(
1),
shape(
2))
1807 PURE module function getMatInitXLD_D2X01_RK5(shape, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
1808#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1809 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXLD_D2X01_RK5
1812 real(RKG) ,
intent(in) :: vlow
1813 real(RKG) ,
intent(in),
contiguous :: vdia(:)
1814 integer(IK) ,
intent(in) ::
shape(
2)
1815 integer(IK) ,
intent(in),
optional :: nrow, ncol
1816 integer(IK) ,
intent(in),
optional :: roff, coff, doff
1817 type(lowDia_type) ,
intent(in) :: subset
1818 real(RKG) :: mat(
shape(
1),
shape(
2))
1823 PURE module function getMatInitXLD_D2X01_RK4(shape, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
1824#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1825 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXLD_D2X01_RK4
1828 real(RKG) ,
intent(in) :: vlow
1829 real(RKG) ,
intent(in),
contiguous :: vdia(:)
1830 integer(IK) ,
intent(in) ::
shape(
2)
1831 integer(IK) ,
intent(in),
optional :: nrow, ncol
1832 integer(IK) ,
intent(in),
optional :: roff, coff, doff
1833 type(lowDia_type) ,
intent(in) :: subset
1834 real(RKG) :: mat(
shape(
1),
shape(
2))
1839 PURE module function getMatInitXLD_D2X01_RK3(shape, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
1840#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1841 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXLD_D2X01_RK3
1844 real(RKG) ,
intent(in) :: vlow
1845 real(RKG) ,
intent(in),
contiguous :: vdia(:)
1846 integer(IK) ,
intent(in) ::
shape(
2)
1847 integer(IK) ,
intent(in),
optional :: nrow, ncol
1848 integer(IK) ,
intent(in),
optional :: roff, coff, doff
1849 type(lowDia_type) ,
intent(in) :: subset
1850 real(RKG) :: mat(
shape(
1),
shape(
2))
1855 PURE module function getMatInitXLD_D2X01_RK2(shape, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
1856#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1857 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXLD_D2X01_RK2
1860 real(RKG) ,
intent(in) :: vlow
1861 real(RKG) ,
intent(in),
contiguous :: vdia(:)
1862 integer(IK) ,
intent(in) ::
shape(
2)
1863 integer(IK) ,
intent(in),
optional :: nrow, ncol
1864 integer(IK) ,
intent(in),
optional :: roff, coff, doff
1865 type(lowDia_type) ,
intent(in) :: subset
1866 real(RKG) :: mat(
shape(
1),
shape(
2))
1871 PURE module function getMatInitXLD_D2X01_RK1(shape, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
1872#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1873 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitXLD_D2X01_RK1
1876 real(RKG) ,
intent(in) :: vlow
1877 real(RKG) ,
intent(in),
contiguous :: vdia(:)
1878 integer(IK) ,
intent(in) ::
shape(
2)
1879 integer(IK) ,
intent(in),
optional :: nrow, ncol
1880 integer(IK) ,
intent(in),
optional :: roff, coff, doff
1881 type(lowDia_type) ,
intent(in) :: subset
1882 real(RKG) :: mat(
shape(
1),
shape(
2))
1899 PURE module function getMatInitUXD_D20X0_SK5(shape, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
result(mat)
1900#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1901 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitUXD_D20X0_SK5
1904 character(
*,SKG) ,
intent(in) :: vupp
1905 character(
*,SKG) ,
intent(in) :: vdia
1906 integer(IK) ,
intent(in) ::
shape(
2)
1907 integer(IK) ,
intent(in),
optional :: nrow, ncol
1908 integer(IK) ,
intent(in),
optional :: roff, coff, doff
1909 type(uppDia_type) ,
intent(in) :: subset
1910 character(
len(vdia,IK),SKG) :: mat(
shape(
1),
shape(
2))
1915 PURE module function getMatInitUXD_D20X0_SK4(shape, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
result(mat)
1916#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1917 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitUXD_D20X0_SK4
1920 character(
*,SKG) ,
intent(in) :: vupp
1921 character(
*,SKG) ,
intent(in) :: vdia
1922 integer(IK) ,
intent(in) ::
shape(
2)
1923 integer(IK) ,
intent(in),
optional :: nrow, ncol
1924 integer(IK) ,
intent(in),
optional :: roff, coff, doff
1925 type(uppDia_type) ,
intent(in) :: subset
1926 character(
len(vdia,IK),SKG) :: mat(
shape(
1),
shape(
2))
1931 PURE module function getMatInitUXD_D20X0_SK3(shape, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
result(mat)
1932#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1933 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitUXD_D20X0_SK3
1936 character(
*,SKG) ,
intent(in) :: vupp
1937 character(
*,SKG) ,
intent(in) :: vdia
1938 integer(IK) ,
intent(in) ::
shape(
2)
1939 integer(IK) ,
intent(in),
optional :: nrow, ncol
1940 integer(IK) ,
intent(in),
optional :: roff, coff, doff
1941 type(uppDia_type) ,
intent(in) :: subset
1942 character(
len(vdia,IK),SKG) :: mat(
shape(
1),
shape(
2))
1947 PURE module function getMatInitUXD_D20X0_SK2(shape, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
result(mat)
1948#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1949 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitUXD_D20X0_SK2
1952 character(
*,SKG) ,
intent(in) :: vupp
1953 character(
*,SKG) ,
intent(in) :: vdia
1954 integer(IK) ,
intent(in) ::
shape(
2)
1955 integer(IK) ,
intent(in),
optional :: nrow, ncol
1956 integer(IK) ,
intent(in),
optional :: roff, coff, doff
1957 type(uppDia_type) ,
intent(in) :: subset
1958 character(
len(vdia,IK),SKG) :: mat(
shape(
1),
shape(
2))
1963 PURE module function getMatInitUXD_D20X0_SK1(shape, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
result(mat)
1964#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1965 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitUXD_D20X0_SK1
1968 character(
*,SKG) ,
intent(in) :: vupp
1969 character(
*,SKG) ,
intent(in) :: vdia
1970 integer(IK) ,
intent(in) ::
shape(
2)
1971 integer(IK) ,
intent(in),
optional :: nrow, ncol
1972 integer(IK) ,
intent(in),
optional :: roff, coff, doff
1973 type(uppDia_type) ,
intent(in) :: subset
1974 character(
len(vdia,IK),SKG) :: mat(
shape(
1),
shape(
2))
1981 PURE module function getMatInitUXD_D20X0_IK5(shape, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
result(mat)
1982#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1983 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitUXD_D20X0_IK5
1986 integer(IKG) ,
intent(in) :: vupp
1987 integer(IKG) ,
intent(in) :: vdia
1988 integer(IK) ,
intent(in) ::
shape(
2)
1989 integer(IK) ,
intent(in),
optional :: nrow, ncol
1990 integer(IK) ,
intent(in),
optional :: roff, coff, doff
1991 type(uppDia_type) ,
intent(in) :: subset
1992 integer(IKG) :: mat(
shape(
1),
shape(
2))
1997 PURE module function getMatInitUXD_D20X0_IK4(shape, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
result(mat)
1998#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1999 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitUXD_D20X0_IK4
2002 integer(IKG) ,
intent(in) :: vupp
2003 integer(IKG) ,
intent(in) :: vdia
2004 integer(IK) ,
intent(in) ::
shape(
2)
2005 integer(IK) ,
intent(in),
optional :: nrow, ncol
2006 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2007 type(uppDia_type) ,
intent(in) :: subset
2008 integer(IKG) :: mat(
shape(
1),
shape(
2))
2013 PURE module function getMatInitUXD_D20X0_IK3(shape, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
result(mat)
2014#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2015 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitUXD_D20X0_IK3
2018 integer(IKG) ,
intent(in) :: vupp
2019 integer(IKG) ,
intent(in) :: vdia
2020 integer(IK) ,
intent(in) ::
shape(
2)
2021 integer(IK) ,
intent(in),
optional :: nrow, ncol
2022 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2023 type(uppDia_type) ,
intent(in) :: subset
2024 integer(IKG) :: mat(
shape(
1),
shape(
2))
2029 PURE module function getMatInitUXD_D20X0_IK2(shape, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
result(mat)
2030#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2031 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitUXD_D20X0_IK2
2034 integer(IKG) ,
intent(in) :: vupp
2035 integer(IKG) ,
intent(in) :: vdia
2036 integer(IK) ,
intent(in) ::
shape(
2)
2037 integer(IK) ,
intent(in),
optional :: nrow, ncol
2038 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2039 type(uppDia_type) ,
intent(in) :: subset
2040 integer(IKG) :: mat(
shape(
1),
shape(
2))
2045 PURE module function getMatInitUXD_D20X0_IK1(shape, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
result(mat)
2046#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2047 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitUXD_D20X0_IK1
2050 integer(IKG) ,
intent(in) :: vupp
2051 integer(IKG) ,
intent(in) :: vdia
2052 integer(IK) ,
intent(in) ::
shape(
2)
2053 integer(IK) ,
intent(in),
optional :: nrow, ncol
2054 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2055 type(uppDia_type) ,
intent(in) :: subset
2056 integer(IKG) :: mat(
shape(
1),
shape(
2))
2063 PURE module function getMatInitUXD_D20X0_LK5(shape, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
result(mat)
2064#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2065 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitUXD_D20X0_LK5
2068 logical(LKG) ,
intent(in) :: vupp
2069 logical(LKG) ,
intent(in) :: vdia
2070 integer(IK) ,
intent(in) ::
shape(
2)
2071 integer(IK) ,
intent(in),
optional :: nrow, ncol
2072 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2073 type(uppDia_type) ,
intent(in) :: subset
2074 logical(LKG) :: mat(
shape(
1),
shape(
2))
2079 PURE module function getMatInitUXD_D20X0_LK4(shape, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
result(mat)
2080#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2081 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitUXD_D20X0_LK4
2084 logical(LKG) ,
intent(in) :: vupp
2085 logical(LKG) ,
intent(in) :: vdia
2086 integer(IK) ,
intent(in) ::
shape(
2)
2087 integer(IK) ,
intent(in),
optional :: nrow, ncol
2088 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2089 type(uppDia_type) ,
intent(in) :: subset
2090 logical(LKG) :: mat(
shape(
1),
shape(
2))
2095 PURE module function getMatInitUXD_D20X0_LK3(shape, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
result(mat)
2096#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2097 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitUXD_D20X0_LK3
2100 logical(LKG) ,
intent(in) :: vupp
2101 logical(LKG) ,
intent(in) :: vdia
2102 integer(IK) ,
intent(in) ::
shape(
2)
2103 integer(IK) ,
intent(in),
optional :: nrow, ncol
2104 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2105 type(uppDia_type) ,
intent(in) :: subset
2106 logical(LKG) :: mat(
shape(
1),
shape(
2))
2111 PURE module function getMatInitUXD_D20X0_LK2(shape, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
result(mat)
2112#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2113 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitUXD_D20X0_LK2
2116 logical(LKG) ,
intent(in) :: vupp
2117 logical(LKG) ,
intent(in) :: vdia
2118 integer(IK) ,
intent(in) ::
shape(
2)
2119 integer(IK) ,
intent(in),
optional :: nrow, ncol
2120 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2121 type(uppDia_type) ,
intent(in) :: subset
2122 logical(LKG) :: mat(
shape(
1),
shape(
2))
2127 PURE module function getMatInitUXD_D20X0_LK1(shape, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
result(mat)
2128#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2129 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitUXD_D20X0_LK1
2132 logical(LKG) ,
intent(in) :: vupp
2133 logical(LKG) ,
intent(in) :: vdia
2134 integer(IK) ,
intent(in) ::
shape(
2)
2135 integer(IK) ,
intent(in),
optional :: nrow, ncol
2136 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2137 type(uppDia_type) ,
intent(in) :: subset
2138 logical(LKG) :: mat(
shape(
1),
shape(
2))
2145 PURE module function getMatInitUXD_D20X0_CK5(shape, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
result(mat)
2146#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2147 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitUXD_D20X0_CK5
2150 complex(CKG) ,
intent(in) :: vupp
2151 complex(CKG) ,
intent(in) :: vdia
2152 integer(IK) ,
intent(in) ::
shape(
2)
2153 integer(IK) ,
intent(in),
optional :: nrow, ncol
2154 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2155 type(uppDia_type) ,
intent(in) :: subset
2156 complex(CKG) :: mat(
shape(
1),
shape(
2))
2161 PURE module function getMatInitUXD_D20X0_CK4(shape, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
result(mat)
2162#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2163 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitUXD_D20X0_CK4
2166 complex(CKG) ,
intent(in) :: vupp
2167 complex(CKG) ,
intent(in) :: vdia
2168 integer(IK) ,
intent(in) ::
shape(
2)
2169 integer(IK) ,
intent(in),
optional :: nrow, ncol
2170 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2171 type(uppDia_type) ,
intent(in) :: subset
2172 complex(CKG) :: mat(
shape(
1),
shape(
2))
2177 PURE module function getMatInitUXD_D20X0_CK3(shape, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
result(mat)
2178#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2179 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitUXD_D20X0_CK3
2182 complex(CKG) ,
intent(in) :: vupp
2183 complex(CKG) ,
intent(in) :: vdia
2184 integer(IK) ,
intent(in) ::
shape(
2)
2185 integer(IK) ,
intent(in),
optional :: nrow, ncol
2186 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2187 type(uppDia_type) ,
intent(in) :: subset
2188 complex(CKG) :: mat(
shape(
1),
shape(
2))
2193 PURE module function getMatInitUXD_D20X0_CK2(shape, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
result(mat)
2194#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2195 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitUXD_D20X0_CK2
2198 complex(CKG) ,
intent(in) :: vupp
2199 complex(CKG) ,
intent(in) :: vdia
2200 integer(IK) ,
intent(in) ::
shape(
2)
2201 integer(IK) ,
intent(in),
optional :: nrow, ncol
2202 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2203 type(uppDia_type) ,
intent(in) :: subset
2204 complex(CKG) :: mat(
shape(
1),
shape(
2))
2209 PURE module function getMatInitUXD_D20X0_CK1(shape, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
result(mat)
2210#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2211 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitUXD_D20X0_CK1
2214 complex(CKG) ,
intent(in) :: vupp
2215 complex(CKG) ,
intent(in) :: vdia
2216 integer(IK) ,
intent(in) ::
shape(
2)
2217 integer(IK) ,
intent(in),
optional :: nrow, ncol
2218 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2219 type(uppDia_type) ,
intent(in) :: subset
2220 complex(CKG) :: mat(
shape(
1),
shape(
2))
2227 PURE module function getMatInitUXD_D20X0_RK5(shape, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
result(mat)
2228#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2229 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitUXD_D20X0_RK5
2232 real(RKG) ,
intent(in) :: vupp
2233 real(RKG) ,
intent(in) :: vdia
2234 integer(IK) ,
intent(in) ::
shape(
2)
2235 integer(IK) ,
intent(in),
optional :: nrow, ncol
2236 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2237 type(uppDia_type) ,
intent(in) :: subset
2238 real(RKG) :: mat(
shape(
1),
shape(
2))
2243 PURE module function getMatInitUXD_D20X0_RK4(shape, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
result(mat)
2244#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2245 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitUXD_D20X0_RK4
2248 real(RKG) ,
intent(in) :: vupp
2249 real(RKG) ,
intent(in) :: vdia
2250 integer(IK) ,
intent(in) ::
shape(
2)
2251 integer(IK) ,
intent(in),
optional :: nrow, ncol
2252 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2253 type(uppDia_type) ,
intent(in) :: subset
2254 real(RKG) :: mat(
shape(
1),
shape(
2))
2259 PURE module function getMatInitUXD_D20X0_RK3(shape, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
result(mat)
2260#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2261 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitUXD_D20X0_RK3
2264 real(RKG) ,
intent(in) :: vupp
2265 real(RKG) ,
intent(in) :: vdia
2266 integer(IK) ,
intent(in) ::
shape(
2)
2267 integer(IK) ,
intent(in),
optional :: nrow, ncol
2268 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2269 type(uppDia_type) ,
intent(in) :: subset
2270 real(RKG) :: mat(
shape(
1),
shape(
2))
2275 PURE module function getMatInitUXD_D20X0_RK2(shape, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
result(mat)
2276#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2277 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitUXD_D20X0_RK2
2280 real(RKG) ,
intent(in) :: vupp
2281 real(RKG) ,
intent(in) :: vdia
2282 integer(IK) ,
intent(in) ::
shape(
2)
2283 integer(IK) ,
intent(in),
optional :: nrow, ncol
2284 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2285 type(uppDia_type) ,
intent(in) :: subset
2286 real(RKG) :: mat(
shape(
1),
shape(
2))
2291 PURE module function getMatInitUXD_D20X0_RK1(shape, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
result(mat)
2292#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2293 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitUXD_D20X0_RK1
2296 real(RKG) ,
intent(in) :: vupp
2297 real(RKG) ,
intent(in) :: vdia
2298 integer(IK) ,
intent(in) ::
shape(
2)
2299 integer(IK) ,
intent(in),
optional :: nrow, ncol
2300 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2301 type(uppDia_type) ,
intent(in) :: subset
2302 real(RKG) :: mat(
shape(
1),
shape(
2))
2315 PURE module function getMatInitUXD_D20X1_SK5(shape, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
result(mat)
2316#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2317 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitUXD_D20X1_SK5
2320 character(
*,SKG) ,
intent(in) :: vupp
2321 character(
*,SKG) ,
intent(in),
contiguous :: vdia(:)
2322 integer(IK) ,
intent(in) ::
shape(
2)
2323 integer(IK) ,
intent(in),
optional :: nrow, ncol
2324 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2325 type(uppDia_type) ,
intent(in) :: subset
2326 character(
len(vdia,IK),SKG) :: mat(
shape(
1),
shape(
2))
2331 PURE module function getMatInitUXD_D20X1_SK4(shape, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
result(mat)
2332#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2333 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitUXD_D20X1_SK4
2336 character(
*,SKG) ,
intent(in) :: vupp
2337 character(
*,SKG) ,
intent(in),
contiguous :: vdia(:)
2338 integer(IK) ,
intent(in) ::
shape(
2)
2339 integer(IK) ,
intent(in),
optional :: nrow, ncol
2340 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2341 type(uppDia_type) ,
intent(in) :: subset
2342 character(
len(vdia,IK),SKG) :: mat(
shape(
1),
shape(
2))
2347 PURE module function getMatInitUXD_D20X1_SK3(shape, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
result(mat)
2348#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2349 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitUXD_D20X1_SK3
2352 character(
*,SKG) ,
intent(in) :: vupp
2353 character(
*,SKG) ,
intent(in),
contiguous :: vdia(:)
2354 integer(IK) ,
intent(in) ::
shape(
2)
2355 integer(IK) ,
intent(in),
optional :: nrow, ncol
2356 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2357 type(uppDia_type) ,
intent(in) :: subset
2358 character(
len(vdia,IK),SKG) :: mat(
shape(
1),
shape(
2))
2363 PURE module function getMatInitUXD_D20X1_SK2(shape, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
result(mat)
2364#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2365 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitUXD_D20X1_SK2
2368 character(
*,SKG) ,
intent(in) :: vupp
2369 character(
*,SKG) ,
intent(in),
contiguous :: vdia(:)
2370 integer(IK) ,
intent(in) ::
shape(
2)
2371 integer(IK) ,
intent(in),
optional :: nrow, ncol
2372 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2373 type(uppDia_type) ,
intent(in) :: subset
2374 character(
len(vdia,IK),SKG) :: mat(
shape(
1),
shape(
2))
2379 PURE module function getMatInitUXD_D20X1_SK1(shape, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
result(mat)
2380#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2381 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitUXD_D20X1_SK1
2384 character(
*,SKG) ,
intent(in) :: vupp
2385 character(
*,SKG) ,
intent(in),
contiguous :: vdia(:)
2386 integer(IK) ,
intent(in) ::
shape(
2)
2387 integer(IK) ,
intent(in),
optional :: nrow, ncol
2388 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2389 type(uppDia_type) ,
intent(in) :: subset
2390 character(
len(vdia,IK),SKG) :: mat(
shape(
1),
shape(
2))
2397 PURE module function getMatInitUXD_D20X1_IK5(shape, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
result(mat)
2398#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2399 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitUXD_D20X1_IK5
2402 integer(IKG) ,
intent(in) :: vupp
2403 integer(IKG) ,
intent(in),
contiguous :: vdia(:)
2404 integer(IK) ,
intent(in) ::
shape(
2)
2405 integer(IK) ,
intent(in),
optional :: nrow, ncol
2406 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2407 type(uppDia_type) ,
intent(in) :: subset
2408 integer(IKG) :: mat(
shape(
1),
shape(
2))
2413 PURE module function getMatInitUXD_D20X1_IK4(shape, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
result(mat)
2414#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2415 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitUXD_D20X1_IK4
2418 integer(IKG) ,
intent(in) :: vupp
2419 integer(IKG) ,
intent(in),
contiguous :: vdia(:)
2420 integer(IK) ,
intent(in) ::
shape(
2)
2421 integer(IK) ,
intent(in),
optional :: nrow, ncol
2422 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2423 type(uppDia_type) ,
intent(in) :: subset
2424 integer(IKG) :: mat(
shape(
1),
shape(
2))
2429 PURE module function getMatInitUXD_D20X1_IK3(shape, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
result(mat)
2430#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2431 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitUXD_D20X1_IK3
2434 integer(IKG) ,
intent(in) :: vupp
2435 integer(IKG) ,
intent(in),
contiguous :: vdia(:)
2436 integer(IK) ,
intent(in) ::
shape(
2)
2437 integer(IK) ,
intent(in),
optional :: nrow, ncol
2438 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2439 type(uppDia_type) ,
intent(in) :: subset
2440 integer(IKG) :: mat(
shape(
1),
shape(
2))
2445 PURE module function getMatInitUXD_D20X1_IK2(shape, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
result(mat)
2446#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2447 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitUXD_D20X1_IK2
2450 integer(IKG) ,
intent(in) :: vupp
2451 integer(IKG) ,
intent(in),
contiguous :: vdia(:)
2452 integer(IK) ,
intent(in) ::
shape(
2)
2453 integer(IK) ,
intent(in),
optional :: nrow, ncol
2454 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2455 type(uppDia_type) ,
intent(in) :: subset
2456 integer(IKG) :: mat(
shape(
1),
shape(
2))
2461 PURE module function getMatInitUXD_D20X1_IK1(shape, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
result(mat)
2462#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2463 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitUXD_D20X1_IK1
2466 integer(IKG) ,
intent(in) :: vupp
2467 integer(IKG) ,
intent(in),
contiguous :: vdia(:)
2468 integer(IK) ,
intent(in) ::
shape(
2)
2469 integer(IK) ,
intent(in),
optional :: nrow, ncol
2470 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2471 type(uppDia_type) ,
intent(in) :: subset
2472 integer(IKG) :: mat(
shape(
1),
shape(
2))
2479 PURE module function getMatInitUXD_D20X1_LK5(shape, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
result(mat)
2480#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2481 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitUXD_D20X1_LK5
2484 logical(LKG) ,
intent(in) :: vupp
2485 logical(LKG) ,
intent(in),
contiguous :: vdia(:)
2486 integer(IK) ,
intent(in) ::
shape(
2)
2487 integer(IK) ,
intent(in),
optional :: nrow, ncol
2488 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2489 type(uppDia_type) ,
intent(in) :: subset
2490 logical(LKG) :: mat(
shape(
1),
shape(
2))
2495 PURE module function getMatInitUXD_D20X1_LK4(shape, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
result(mat)
2496#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2497 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitUXD_D20X1_LK4
2500 logical(LKG) ,
intent(in) :: vupp
2501 logical(LKG) ,
intent(in),
contiguous :: vdia(:)
2502 integer(IK) ,
intent(in) ::
shape(
2)
2503 integer(IK) ,
intent(in),
optional :: nrow, ncol
2504 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2505 type(uppDia_type) ,
intent(in) :: subset
2506 logical(LKG) :: mat(
shape(
1),
shape(
2))
2511 PURE module function getMatInitUXD_D20X1_LK3(shape, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
result(mat)
2512#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2513 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitUXD_D20X1_LK3
2516 logical(LKG) ,
intent(in) :: vupp
2517 logical(LKG) ,
intent(in),
contiguous :: vdia(:)
2518 integer(IK) ,
intent(in) ::
shape(
2)
2519 integer(IK) ,
intent(in),
optional :: nrow, ncol
2520 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2521 type(uppDia_type) ,
intent(in) :: subset
2522 logical(LKG) :: mat(
shape(
1),
shape(
2))
2527 PURE module function getMatInitUXD_D20X1_LK2(shape, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
result(mat)
2528#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2529 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitUXD_D20X1_LK2
2532 logical(LKG) ,
intent(in) :: vupp
2533 logical(LKG) ,
intent(in),
contiguous :: vdia(:)
2534 integer(IK) ,
intent(in) ::
shape(
2)
2535 integer(IK) ,
intent(in),
optional :: nrow, ncol
2536 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2537 type(uppDia_type) ,
intent(in) :: subset
2538 logical(LKG) :: mat(
shape(
1),
shape(
2))
2543 PURE module function getMatInitUXD_D20X1_LK1(shape, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
result(mat)
2544#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2545 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitUXD_D20X1_LK1
2548 logical(LKG) ,
intent(in) :: vupp
2549 logical(LKG) ,
intent(in),
contiguous :: vdia(:)
2550 integer(IK) ,
intent(in) ::
shape(
2)
2551 integer(IK) ,
intent(in),
optional :: nrow, ncol
2552 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2553 type(uppDia_type) ,
intent(in) :: subset
2554 logical(LKG) :: mat(
shape(
1),
shape(
2))
2561 PURE module function getMatInitUXD_D20X1_CK5(shape, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
result(mat)
2562#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2563 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitUXD_D20X1_CK5
2566 complex(CKG) ,
intent(in) :: vupp
2567 complex(CKG) ,
intent(in),
contiguous :: vdia(:)
2568 integer(IK) ,
intent(in) ::
shape(
2)
2569 integer(IK) ,
intent(in),
optional :: nrow, ncol
2570 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2571 type(uppDia_type) ,
intent(in) :: subset
2572 complex(CKG) :: mat(
shape(
1),
shape(
2))
2577 PURE module function getMatInitUXD_D20X1_CK4(shape, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
result(mat)
2578#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2579 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitUXD_D20X1_CK4
2582 complex(CKG) ,
intent(in) :: vupp
2583 complex(CKG) ,
intent(in),
contiguous :: vdia(:)
2584 integer(IK) ,
intent(in) ::
shape(
2)
2585 integer(IK) ,
intent(in),
optional :: nrow, ncol
2586 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2587 type(uppDia_type) ,
intent(in) :: subset
2588 complex(CKG) :: mat(
shape(
1),
shape(
2))
2593 PURE module function getMatInitUXD_D20X1_CK3(shape, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
result(mat)
2594#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2595 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitUXD_D20X1_CK3
2598 complex(CKG) ,
intent(in) :: vupp
2599 complex(CKG) ,
intent(in),
contiguous :: vdia(:)
2600 integer(IK) ,
intent(in) ::
shape(
2)
2601 integer(IK) ,
intent(in),
optional :: nrow, ncol
2602 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2603 type(uppDia_type) ,
intent(in) :: subset
2604 complex(CKG) :: mat(
shape(
1),
shape(
2))
2609 PURE module function getMatInitUXD_D20X1_CK2(shape, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
result(mat)
2610#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2611 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitUXD_D20X1_CK2
2614 complex(CKG) ,
intent(in) :: vupp
2615 complex(CKG) ,
intent(in),
contiguous :: vdia(:)
2616 integer(IK) ,
intent(in) ::
shape(
2)
2617 integer(IK) ,
intent(in),
optional :: nrow, ncol
2618 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2619 type(uppDia_type) ,
intent(in) :: subset
2620 complex(CKG) :: mat(
shape(
1),
shape(
2))
2625 PURE module function getMatInitUXD_D20X1_CK1(shape, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
result(mat)
2626#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2627 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitUXD_D20X1_CK1
2630 complex(CKG) ,
intent(in) :: vupp
2631 complex(CKG) ,
intent(in),
contiguous :: vdia(:)
2632 integer(IK) ,
intent(in) ::
shape(
2)
2633 integer(IK) ,
intent(in),
optional :: nrow, ncol
2634 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2635 type(uppDia_type) ,
intent(in) :: subset
2636 complex(CKG) :: mat(
shape(
1),
shape(
2))
2643 PURE module function getMatInitUXD_D20X1_RK5(shape, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
result(mat)
2644#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2645 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitUXD_D20X1_RK5
2648 real(RKG) ,
intent(in) :: vupp
2649 real(RKG) ,
intent(in),
contiguous :: vdia(:)
2650 integer(IK) ,
intent(in) ::
shape(
2)
2651 integer(IK) ,
intent(in),
optional :: nrow, ncol
2652 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2653 type(uppDia_type) ,
intent(in) :: subset
2654 real(RKG) :: mat(
shape(
1),
shape(
2))
2659 PURE module function getMatInitUXD_D20X1_RK4(shape, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
result(mat)
2660#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2661 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitUXD_D20X1_RK4
2664 real(RKG) ,
intent(in) :: vupp
2665 real(RKG) ,
intent(in),
contiguous :: vdia(:)
2666 integer(IK) ,
intent(in) ::
shape(
2)
2667 integer(IK) ,
intent(in),
optional :: nrow, ncol
2668 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2669 type(uppDia_type) ,
intent(in) :: subset
2670 real(RKG) :: mat(
shape(
1),
shape(
2))
2675 PURE module function getMatInitUXD_D20X1_RK3(shape, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
result(mat)
2676#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2677 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitUXD_D20X1_RK3
2680 real(RKG) ,
intent(in) :: vupp
2681 real(RKG) ,
intent(in),
contiguous :: vdia(:)
2682 integer(IK) ,
intent(in) ::
shape(
2)
2683 integer(IK) ,
intent(in),
optional :: nrow, ncol
2684 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2685 type(uppDia_type) ,
intent(in) :: subset
2686 real(RKG) :: mat(
shape(
1),
shape(
2))
2691 PURE module function getMatInitUXD_D20X1_RK2(shape, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
result(mat)
2692#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2693 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitUXD_D20X1_RK2
2696 real(RKG) ,
intent(in) :: vupp
2697 real(RKG) ,
intent(in),
contiguous :: vdia(:)
2698 integer(IK) ,
intent(in) ::
shape(
2)
2699 integer(IK) ,
intent(in),
optional :: nrow, ncol
2700 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2701 type(uppDia_type) ,
intent(in) :: subset
2702 real(RKG) :: mat(
shape(
1),
shape(
2))
2707 PURE module function getMatInitUXD_D20X1_RK1(shape, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
result(mat)
2708#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2709 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitUXD_D20X1_RK1
2712 real(RKG) ,
intent(in) :: vupp
2713 real(RKG) ,
intent(in),
contiguous :: vdia(:)
2714 integer(IK) ,
intent(in) ::
shape(
2)
2715 integer(IK) ,
intent(in),
optional :: nrow, ncol
2716 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2717 type(uppDia_type) ,
intent(in) :: subset
2718 real(RKG) :: mat(
shape(
1),
shape(
2))
2735 PURE module function getMatInitULX_D200X_SK5(shape, subset, vupp, vlow, nrow, ncol, roff, coff, doff)
result(mat)
2736#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2737 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULX_D200X_SK5
2740 character(
*,SKG) ,
intent(in) :: vupp, vlow
2741 integer(IK) ,
intent(in) ::
shape(
2)
2742 integer(IK) ,
intent(in),
optional :: nrow, ncol
2743 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2744 type(uppLow_type) ,
intent(in) :: subset
2745 character(
len(vupp,IK),SKG) :: mat(
shape(
1),
shape(
2))
2750 PURE module function getMatInitULX_D200X_SK4(shape, subset, vupp, vlow, nrow, ncol, roff, coff, doff)
result(mat)
2751#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2752 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULX_D200X_SK4
2755 character(
*,SKG) ,
intent(in) :: vupp, vlow
2756 integer(IK) ,
intent(in) ::
shape(
2)
2757 integer(IK) ,
intent(in),
optional :: nrow, ncol
2758 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2759 type(uppLow_type) ,
intent(in) :: subset
2760 character(
len(vupp,IK),SKG) :: mat(
shape(
1),
shape(
2))
2765 PURE module function getMatInitULX_D200X_SK3(shape, subset, vupp, vlow, nrow, ncol, roff, coff, doff)
result(mat)
2766#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2767 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULX_D200X_SK3
2770 character(
*,SKG) ,
intent(in) :: vupp, vlow
2771 integer(IK) ,
intent(in) ::
shape(
2)
2772 integer(IK) ,
intent(in),
optional :: nrow, ncol
2773 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2774 type(uppLow_type) ,
intent(in) :: subset
2775 character(
len(vupp,IK),SKG) :: mat(
shape(
1),
shape(
2))
2780 PURE module function getMatInitULX_D200X_SK2(shape, subset, vupp, vlow, nrow, ncol, roff, coff, doff)
result(mat)
2781#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2782 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULX_D200X_SK2
2785 character(
*,SKG) ,
intent(in) :: vupp, vlow
2786 integer(IK) ,
intent(in) ::
shape(
2)
2787 integer(IK) ,
intent(in),
optional :: nrow, ncol
2788 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2789 type(uppLow_type) ,
intent(in) :: subset
2790 character(
len(vupp,IK),SKG) :: mat(
shape(
1),
shape(
2))
2795 PURE module function getMatInitULX_D200X_SK1(shape, subset, vupp, vlow, nrow, ncol, roff, coff, doff)
result(mat)
2796#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2797 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULX_D200X_SK1
2800 character(
*,SKG) ,
intent(in) :: vupp, vlow
2801 integer(IK) ,
intent(in) ::
shape(
2)
2802 integer(IK) ,
intent(in),
optional :: nrow, ncol
2803 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2804 type(uppLow_type) ,
intent(in) :: subset
2805 character(
len(vupp,IK),SKG) :: mat(
shape(
1),
shape(
2))
2812 PURE module function getMatInitULX_D200X_IK5(shape, subset, vupp, vlow, nrow, ncol, roff, coff, doff)
result(mat)
2813#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2814 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULX_D200X_IK5
2817 integer(IKG) ,
intent(in) :: vupp, vlow
2818 integer(IK) ,
intent(in) ::
shape(
2)
2819 integer(IK) ,
intent(in),
optional :: nrow, ncol
2820 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2821 type(uppLow_type) ,
intent(in) :: subset
2822 integer(IKG) :: mat(
shape(
1),
shape(
2))
2827 PURE module function getMatInitULX_D200X_IK4(shape, subset, vupp, vlow, nrow, ncol, roff, coff, doff)
result(mat)
2828#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2829 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULX_D200X_IK4
2832 integer(IKG) ,
intent(in) :: vupp, vlow
2833 integer(IK) ,
intent(in) ::
shape(
2)
2834 integer(IK) ,
intent(in),
optional :: nrow, ncol
2835 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2836 type(uppLow_type) ,
intent(in) :: subset
2837 integer(IKG) :: mat(
shape(
1),
shape(
2))
2842 PURE module function getMatInitULX_D200X_IK3(shape, subset, vupp, vlow, nrow, ncol, roff, coff, doff)
result(mat)
2843#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2844 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULX_D200X_IK3
2847 integer(IKG) ,
intent(in) :: vupp, vlow
2848 integer(IK) ,
intent(in) ::
shape(
2)
2849 integer(IK) ,
intent(in),
optional :: nrow, ncol
2850 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2851 type(uppLow_type) ,
intent(in) :: subset
2852 integer(IKG) :: mat(
shape(
1),
shape(
2))
2857 PURE module function getMatInitULX_D200X_IK2(shape, subset, vupp, vlow, nrow, ncol, roff, coff, doff)
result(mat)
2858#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2859 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULX_D200X_IK2
2862 integer(IKG) ,
intent(in) :: vupp, vlow
2863 integer(IK) ,
intent(in) ::
shape(
2)
2864 integer(IK) ,
intent(in),
optional :: nrow, ncol
2865 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2866 type(uppLow_type) ,
intent(in) :: subset
2867 integer(IKG) :: mat(
shape(
1),
shape(
2))
2872 PURE module function getMatInitULX_D200X_IK1(shape, subset, vupp, vlow, nrow, ncol, roff, coff, doff)
result(mat)
2873#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2874 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULX_D200X_IK1
2877 integer(IKG) ,
intent(in) :: vupp, vlow
2878 integer(IK) ,
intent(in) ::
shape(
2)
2879 integer(IK) ,
intent(in),
optional :: nrow, ncol
2880 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2881 type(uppLow_type) ,
intent(in) :: subset
2882 integer(IKG) :: mat(
shape(
1),
shape(
2))
2889 PURE module function getMatInitULX_D200X_LK5(shape, subset, vupp, vlow, nrow, ncol, roff, coff, doff)
result(mat)
2890#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2891 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULX_D200X_LK5
2894 logical(LKG) ,
intent(in) :: vupp, vlow
2895 integer(IK) ,
intent(in) ::
shape(
2)
2896 integer(IK) ,
intent(in),
optional :: nrow, ncol
2897 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2898 type(uppLow_type) ,
intent(in) :: subset
2899 logical(LKG) :: mat(
shape(
1),
shape(
2))
2904 PURE module function getMatInitULX_D200X_LK4(shape, subset, vupp, vlow, nrow, ncol, roff, coff, doff)
result(mat)
2905#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2906 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULX_D200X_LK4
2909 logical(LKG) ,
intent(in) :: vupp, vlow
2910 integer(IK) ,
intent(in) ::
shape(
2)
2911 integer(IK) ,
intent(in),
optional :: nrow, ncol
2912 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2913 type(uppLow_type) ,
intent(in) :: subset
2914 logical(LKG) :: mat(
shape(
1),
shape(
2))
2919 PURE module function getMatInitULX_D200X_LK3(shape, subset, vupp, vlow, nrow, ncol, roff, coff, doff)
result(mat)
2920#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2921 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULX_D200X_LK3
2924 logical(LKG) ,
intent(in) :: vupp, vlow
2925 integer(IK) ,
intent(in) ::
shape(
2)
2926 integer(IK) ,
intent(in),
optional :: nrow, ncol
2927 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2928 type(uppLow_type) ,
intent(in) :: subset
2929 logical(LKG) :: mat(
shape(
1),
shape(
2))
2934 PURE module function getMatInitULX_D200X_LK2(shape, subset, vupp, vlow, nrow, ncol, roff, coff, doff)
result(mat)
2935#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2936 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULX_D200X_LK2
2939 logical(LKG) ,
intent(in) :: vupp, vlow
2940 integer(IK) ,
intent(in) ::
shape(
2)
2941 integer(IK) ,
intent(in),
optional :: nrow, ncol
2942 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2943 type(uppLow_type) ,
intent(in) :: subset
2944 logical(LKG) :: mat(
shape(
1),
shape(
2))
2949 PURE module function getMatInitULX_D200X_LK1(shape, subset, vupp, vlow, nrow, ncol, roff, coff, doff)
result(mat)
2950#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2951 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULX_D200X_LK1
2954 logical(LKG) ,
intent(in) :: vupp, vlow
2955 integer(IK) ,
intent(in) ::
shape(
2)
2956 integer(IK) ,
intent(in),
optional :: nrow, ncol
2957 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2958 type(uppLow_type) ,
intent(in) :: subset
2959 logical(LKG) :: mat(
shape(
1),
shape(
2))
2966 PURE module function getMatInitULX_D200X_CK5(shape, subset, vupp, vlow, nrow, ncol, roff, coff, doff)
result(mat)
2967#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2968 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULX_D200X_CK5
2971 complex(CKG) ,
intent(in) :: vupp, vlow
2972 integer(IK) ,
intent(in) ::
shape(
2)
2973 integer(IK) ,
intent(in),
optional :: nrow, ncol
2974 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2975 type(uppLow_type) ,
intent(in) :: subset
2976 complex(CKG) :: mat(
shape(
1),
shape(
2))
2981 PURE module function getMatInitULX_D200X_CK4(shape, subset, vupp, vlow, nrow, ncol, roff, coff, doff)
result(mat)
2982#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2983 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULX_D200X_CK4
2986 complex(CKG) ,
intent(in) :: vupp, vlow
2987 integer(IK) ,
intent(in) ::
shape(
2)
2988 integer(IK) ,
intent(in),
optional :: nrow, ncol
2989 integer(IK) ,
intent(in),
optional :: roff, coff, doff
2990 type(uppLow_type) ,
intent(in) :: subset
2991 complex(CKG) :: mat(
shape(
1),
shape(
2))
2996 PURE module function getMatInitULX_D200X_CK3(shape, subset, vupp, vlow, nrow, ncol, roff, coff, doff)
result(mat)
2997#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2998 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULX_D200X_CK3
3001 complex(CKG) ,
intent(in) :: vupp, vlow
3002 integer(IK) ,
intent(in) ::
shape(
2)
3003 integer(IK) ,
intent(in),
optional :: nrow, ncol
3004 integer(IK) ,
intent(in),
optional :: roff, coff, doff
3005 type(uppLow_type) ,
intent(in) :: subset
3006 complex(CKG) :: mat(
shape(
1),
shape(
2))
3011 PURE module function getMatInitULX_D200X_CK2(shape, subset, vupp, vlow, nrow, ncol, roff, coff, doff)
result(mat)
3012#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3013 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULX_D200X_CK2
3016 complex(CKG) ,
intent(in) :: vupp, vlow
3017 integer(IK) ,
intent(in) ::
shape(
2)
3018 integer(IK) ,
intent(in),
optional :: nrow, ncol
3019 integer(IK) ,
intent(in),
optional :: roff, coff, doff
3020 type(uppLow_type) ,
intent(in) :: subset
3021 complex(CKG) :: mat(
shape(
1),
shape(
2))
3026 PURE module function getMatInitULX_D200X_CK1(shape, subset, vupp, vlow, nrow, ncol, roff, coff, doff)
result(mat)
3027#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3028 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULX_D200X_CK1
3031 complex(CKG) ,
intent(in) :: vupp, vlow
3032 integer(IK) ,
intent(in) ::
shape(
2)
3033 integer(IK) ,
intent(in),
optional :: nrow, ncol
3034 integer(IK) ,
intent(in),
optional :: roff, coff, doff
3035 type(uppLow_type) ,
intent(in) :: subset
3036 complex(CKG) :: mat(
shape(
1),
shape(
2))
3043 PURE module function getMatInitULX_D200X_RK5(shape, subset, vupp, vlow, nrow, ncol, roff, coff, doff)
result(mat)
3044#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3045 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULX_D200X_RK5
3048 real(RKG) ,
intent(in) :: vupp, vlow
3049 integer(IK) ,
intent(in) ::
shape(
2)
3050 integer(IK) ,
intent(in),
optional :: nrow, ncol
3051 integer(IK) ,
intent(in),
optional :: roff, coff, doff
3052 type(uppLow_type) ,
intent(in) :: subset
3053 real(RKG) :: mat(
shape(
1),
shape(
2))
3058 PURE module function getMatInitULX_D200X_RK4(shape, subset, vupp, vlow, nrow, ncol, roff, coff, doff)
result(mat)
3059#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3060 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULX_D200X_RK4
3063 real(RKG) ,
intent(in) :: vupp, vlow
3064 integer(IK) ,
intent(in) ::
shape(
2)
3065 integer(IK) ,
intent(in),
optional :: nrow, ncol
3066 integer(IK) ,
intent(in),
optional :: roff, coff, doff
3067 type(uppLow_type) ,
intent(in) :: subset
3068 real(RKG) :: mat(
shape(
1),
shape(
2))
3073 PURE module function getMatInitULX_D200X_RK3(shape, subset, vupp, vlow, nrow, ncol, roff, coff, doff)
result(mat)
3074#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3075 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULX_D200X_RK3
3078 real(RKG) ,
intent(in) :: vupp, vlow
3079 integer(IK) ,
intent(in) ::
shape(
2)
3080 integer(IK) ,
intent(in),
optional :: nrow, ncol
3081 integer(IK) ,
intent(in),
optional :: roff, coff, doff
3082 type(uppLow_type) ,
intent(in) :: subset
3083 real(RKG) :: mat(
shape(
1),
shape(
2))
3088 PURE module function getMatInitULX_D200X_RK2(shape, subset, vupp, vlow, nrow, ncol, roff, coff, doff)
result(mat)
3089#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3090 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULX_D200X_RK2
3093 real(RKG) ,
intent(in) :: vupp, vlow
3094 integer(IK) ,
intent(in) ::
shape(
2)
3095 integer(IK) ,
intent(in),
optional :: nrow, ncol
3096 integer(IK) ,
intent(in),
optional :: roff, coff, doff
3097 type(uppLow_type) ,
intent(in) :: subset
3098 real(RKG) :: mat(
shape(
1),
shape(
2))
3103 PURE module function getMatInitULX_D200X_RK1(shape, subset, vupp, vlow, nrow, ncol, roff, coff, doff)
result(mat)
3104#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3105 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULX_D200X_RK1
3108 real(RKG) ,
intent(in) :: vupp, vlow
3109 integer(IK) ,
intent(in) ::
shape(
2)
3110 integer(IK) ,
intent(in),
optional :: nrow, ncol
3111 integer(IK) ,
intent(in),
optional :: roff, coff, doff
3112 type(uppLow_type) ,
intent(in) :: subset
3113 real(RKG) :: mat(
shape(
1),
shape(
2))
3130 PURE module function getMatInitULD_D2000_SK5(shape, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
3131#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3132 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULD_D2000_SK5
3135 character(
*,SKG) ,
intent(in) :: vupp, vlow
3136 character(
*,SKG) ,
intent(in) :: vdia
3137 integer(IK) ,
intent(in) ::
shape(
2)
3138 integer(IK) ,
intent(in),
optional :: nrow, ncol
3139 integer(IK) ,
intent(in),
optional :: roff, coff, doff
3140 type(uppLowDia_type) ,
intent(in) :: subset
3141 character(
len(vdia,IK),SKG) :: mat(
shape(
1),
shape(
2))
3146 PURE module function getMatInitULD_D2000_SK4(shape, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
3147#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3148 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULD_D2000_SK4
3151 character(
*,SKG) ,
intent(in) :: vupp, vlow
3152 character(
*,SKG) ,
intent(in) :: vdia
3153 integer(IK) ,
intent(in) ::
shape(
2)
3154 integer(IK) ,
intent(in),
optional :: nrow, ncol
3155 integer(IK) ,
intent(in),
optional :: roff, coff, doff
3156 type(uppLowDia_type) ,
intent(in) :: subset
3157 character(
len(vdia,IK),SKG) :: mat(
shape(
1),
shape(
2))
3162 PURE module function getMatInitULD_D2000_SK3(shape, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
3163#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3164 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULD_D2000_SK3
3167 character(
*,SKG) ,
intent(in) :: vupp, vlow
3168 character(
*,SKG) ,
intent(in) :: vdia
3169 integer(IK) ,
intent(in) ::
shape(
2)
3170 integer(IK) ,
intent(in),
optional :: nrow, ncol
3171 integer(IK) ,
intent(in),
optional :: roff, coff, doff
3172 type(uppLowDia_type) ,
intent(in) :: subset
3173 character(
len(vdia,IK),SKG) :: mat(
shape(
1),
shape(
2))
3178 PURE module function getMatInitULD_D2000_SK2(shape, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
3179#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3180 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULD_D2000_SK2
3183 character(
*,SKG) ,
intent(in) :: vupp, vlow
3184 character(
*,SKG) ,
intent(in) :: vdia
3185 integer(IK) ,
intent(in) ::
shape(
2)
3186 integer(IK) ,
intent(in),
optional :: nrow, ncol
3187 integer(IK) ,
intent(in),
optional :: roff, coff, doff
3188 type(uppLowDia_type) ,
intent(in) :: subset
3189 character(
len(vdia,IK),SKG) :: mat(
shape(
1),
shape(
2))
3194 PURE module function getMatInitULD_D2000_SK1(shape, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
3195#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3196 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULD_D2000_SK1
3199 character(
*,SKG) ,
intent(in) :: vupp, vlow
3200 character(
*,SKG) ,
intent(in) :: vdia
3201 integer(IK) ,
intent(in) ::
shape(
2)
3202 integer(IK) ,
intent(in),
optional :: nrow, ncol
3203 integer(IK) ,
intent(in),
optional :: roff, coff, doff
3204 type(uppLowDia_type) ,
intent(in) :: subset
3205 character(
len(vdia,IK),SKG) :: mat(
shape(
1),
shape(
2))
3212 PURE module function getMatInitULD_D2000_IK5(shape, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
3213#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3214 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULD_D2000_IK5
3217 integer(IKG) ,
intent(in) :: vupp, vlow
3218 integer(IKG) ,
intent(in) :: vdia
3219 integer(IK) ,
intent(in) ::
shape(
2)
3220 integer(IK) ,
intent(in),
optional :: nrow, ncol
3221 integer(IK) ,
intent(in),
optional :: roff, coff, doff
3222 type(uppLowDia_type) ,
intent(in) :: subset
3223 integer(IKG) :: mat(
shape(
1),
shape(
2))
3228 PURE module function getMatInitULD_D2000_IK4(shape, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
3229#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3230 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULD_D2000_IK4
3233 integer(IKG) ,
intent(in) :: vupp, vlow
3234 integer(IKG) ,
intent(in) :: vdia
3235 integer(IK) ,
intent(in) ::
shape(
2)
3236 integer(IK) ,
intent(in),
optional :: nrow, ncol
3237 integer(IK) ,
intent(in),
optional :: roff, coff, doff
3238 type(uppLowDia_type) ,
intent(in) :: subset
3239 integer(IKG) :: mat(
shape(
1),
shape(
2))
3244 PURE module function getMatInitULD_D2000_IK3(shape, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
3245#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3246 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULD_D2000_IK3
3249 integer(IKG) ,
intent(in) :: vupp, vlow
3250 integer(IKG) ,
intent(in) :: vdia
3251 integer(IK) ,
intent(in) ::
shape(
2)
3252 integer(IK) ,
intent(in),
optional :: nrow, ncol
3253 integer(IK) ,
intent(in),
optional :: roff, coff, doff
3254 type(uppLowDia_type) ,
intent(in) :: subset
3255 integer(IKG) :: mat(
shape(
1),
shape(
2))
3260 PURE module function getMatInitULD_D2000_IK2(shape, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
3261#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3262 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULD_D2000_IK2
3265 integer(IKG) ,
intent(in) :: vupp, vlow
3266 integer(IKG) ,
intent(in) :: vdia
3267 integer(IK) ,
intent(in) ::
shape(
2)
3268 integer(IK) ,
intent(in),
optional :: nrow, ncol
3269 integer(IK) ,
intent(in),
optional :: roff, coff, doff
3270 type(uppLowDia_type) ,
intent(in) :: subset
3271 integer(IKG) :: mat(
shape(
1),
shape(
2))
3276 PURE module function getMatInitULD_D2000_IK1(shape, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
3277#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3278 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULD_D2000_IK1
3281 integer(IKG) ,
intent(in) :: vupp, vlow
3282 integer(IKG) ,
intent(in) :: vdia
3283 integer(IK) ,
intent(in) ::
shape(
2)
3284 integer(IK) ,
intent(in),
optional :: nrow, ncol
3285 integer(IK) ,
intent(in),
optional :: roff, coff, doff
3286 type(uppLowDia_type) ,
intent(in) :: subset
3287 integer(IKG) :: mat(
shape(
1),
shape(
2))
3294 PURE module function getMatInitULD_D2000_LK5(shape, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
3295#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3296 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULD_D2000_LK5
3299 logical(LKG) ,
intent(in) :: vupp, vlow
3300 logical(LKG) ,
intent(in) :: vdia
3301 integer(IK) ,
intent(in) ::
shape(
2)
3302 integer(IK) ,
intent(in),
optional :: nrow, ncol
3303 integer(IK) ,
intent(in),
optional :: roff, coff, doff
3304 type(uppLowDia_type) ,
intent(in) :: subset
3305 logical(LKG) :: mat(
shape(
1),
shape(
2))
3310 PURE module function getMatInitULD_D2000_LK4(shape, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
3311#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3312 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULD_D2000_LK4
3315 logical(LKG) ,
intent(in) :: vupp, vlow
3316 logical(LKG) ,
intent(in) :: vdia
3317 integer(IK) ,
intent(in) ::
shape(
2)
3318 integer(IK) ,
intent(in),
optional :: nrow, ncol
3319 integer(IK) ,
intent(in),
optional :: roff, coff, doff
3320 type(uppLowDia_type) ,
intent(in) :: subset
3321 logical(LKG) :: mat(
shape(
1),
shape(
2))
3326 PURE module function getMatInitULD_D2000_LK3(shape, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
3327#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3328 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULD_D2000_LK3
3331 logical(LKG) ,
intent(in) :: vupp, vlow
3332 logical(LKG) ,
intent(in) :: vdia
3333 integer(IK) ,
intent(in) ::
shape(
2)
3334 integer(IK) ,
intent(in),
optional :: nrow, ncol
3335 integer(IK) ,
intent(in),
optional :: roff, coff, doff
3336 type(uppLowDia_type) ,
intent(in) :: subset
3337 logical(LKG) :: mat(
shape(
1),
shape(
2))
3342 PURE module function getMatInitULD_D2000_LK2(shape, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
3343#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3344 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULD_D2000_LK2
3347 logical(LKG) ,
intent(in) :: vupp, vlow
3348 logical(LKG) ,
intent(in) :: vdia
3349 integer(IK) ,
intent(in) ::
shape(
2)
3350 integer(IK) ,
intent(in),
optional :: nrow, ncol
3351 integer(IK) ,
intent(in),
optional :: roff, coff, doff
3352 type(uppLowDia_type) ,
intent(in) :: subset
3353 logical(LKG) :: mat(
shape(
1),
shape(
2))
3358 PURE module function getMatInitULD_D2000_LK1(shape, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
3359#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3360 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULD_D2000_LK1
3363 logical(LKG) ,
intent(in) :: vupp, vlow
3364 logical(LKG) ,
intent(in) :: vdia
3365 integer(IK) ,
intent(in) ::
shape(
2)
3366 integer(IK) ,
intent(in),
optional :: nrow, ncol
3367 integer(IK) ,
intent(in),
optional :: roff, coff, doff
3368 type(uppLowDia_type) ,
intent(in) :: subset
3369 logical(LKG) :: mat(
shape(
1),
shape(
2))
3376 PURE module function getMatInitULD_D2000_CK5(shape, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
3377#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3378 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULD_D2000_CK5
3381 complex(CKG) ,
intent(in) :: vupp, vlow
3382 complex(CKG) ,
intent(in) :: vdia
3383 integer(IK) ,
intent(in) ::
shape(
2)
3384 integer(IK) ,
intent(in),
optional :: nrow, ncol
3385 integer(IK) ,
intent(in),
optional :: roff, coff, doff
3386 type(uppLowDia_type) ,
intent(in) :: subset
3387 complex(CKG) :: mat(
shape(
1),
shape(
2))
3392 PURE module function getMatInitULD_D2000_CK4(shape, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
3393#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3394 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULD_D2000_CK4
3397 complex(CKG) ,
intent(in) :: vupp, vlow
3398 complex(CKG) ,
intent(in) :: vdia
3399 integer(IK) ,
intent(in) ::
shape(
2)
3400 integer(IK) ,
intent(in),
optional :: nrow, ncol
3401 integer(IK) ,
intent(in),
optional :: roff, coff, doff
3402 type(uppLowDia_type) ,
intent(in) :: subset
3403 complex(CKG) :: mat(
shape(
1),
shape(
2))
3408 PURE module function getMatInitULD_D2000_CK3(shape, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
3409#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3410 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULD_D2000_CK3
3413 complex(CKG) ,
intent(in) :: vupp, vlow
3414 complex(CKG) ,
intent(in) :: vdia
3415 integer(IK) ,
intent(in) ::
shape(
2)
3416 integer(IK) ,
intent(in),
optional :: nrow, ncol
3417 integer(IK) ,
intent(in),
optional :: roff, coff, doff
3418 type(uppLowDia_type) ,
intent(in) :: subset
3419 complex(CKG) :: mat(
shape(
1),
shape(
2))
3424 PURE module function getMatInitULD_D2000_CK2(shape, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
3425#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3426 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULD_D2000_CK2
3429 complex(CKG) ,
intent(in) :: vupp, vlow
3430 complex(CKG) ,
intent(in) :: vdia
3431 integer(IK) ,
intent(in) ::
shape(
2)
3432 integer(IK) ,
intent(in),
optional :: nrow, ncol
3433 integer(IK) ,
intent(in),
optional :: roff, coff, doff
3434 type(uppLowDia_type) ,
intent(in) :: subset
3435 complex(CKG) :: mat(
shape(
1),
shape(
2))
3440 PURE module function getMatInitULD_D2000_CK1(shape, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
3441#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3442 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULD_D2000_CK1
3445 complex(CKG) ,
intent(in) :: vupp, vlow
3446 complex(CKG) ,
intent(in) :: vdia
3447 integer(IK) ,
intent(in) ::
shape(
2)
3448 integer(IK) ,
intent(in),
optional :: nrow, ncol
3449 integer(IK) ,
intent(in),
optional :: roff, coff, doff
3450 type(uppLowDia_type) ,
intent(in) :: subset
3451 complex(CKG) :: mat(
shape(
1),
shape(
2))
3458 PURE module function getMatInitULD_D2000_RK5(shape, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
3459#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3460 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULD_D2000_RK5
3463 real(RKG) ,
intent(in) :: vupp, vlow
3464 real(RKG) ,
intent(in) :: vdia
3465 integer(IK) ,
intent(in) ::
shape(
2)
3466 integer(IK) ,
intent(in),
optional :: nrow, ncol
3467 integer(IK) ,
intent(in),
optional :: roff, coff, doff
3468 type(uppLowDia_type) ,
intent(in) :: subset
3469 real(RKG) :: mat(
shape(
1),
shape(
2))
3474 PURE module function getMatInitULD_D2000_RK4(shape, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
3475#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3476 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULD_D2000_RK4
3479 real(RKG) ,
intent(in) :: vupp, vlow
3480 real(RKG) ,
intent(in) :: vdia
3481 integer(IK) ,
intent(in) ::
shape(
2)
3482 integer(IK) ,
intent(in),
optional :: nrow, ncol
3483 integer(IK) ,
intent(in),
optional :: roff, coff, doff
3484 type(uppLowDia_type) ,
intent(in) :: subset
3485 real(RKG) :: mat(
shape(
1),
shape(
2))
3490 PURE module function getMatInitULD_D2000_RK3(shape, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
3491#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3492 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULD_D2000_RK3
3495 real(RKG) ,
intent(in) :: vupp, vlow
3496 real(RKG) ,
intent(in) :: vdia
3497 integer(IK) ,
intent(in) ::
shape(
2)
3498 integer(IK) ,
intent(in),
optional :: nrow, ncol
3499 integer(IK) ,
intent(in),
optional :: roff, coff, doff
3500 type(uppLowDia_type) ,
intent(in) :: subset
3501 real(RKG) :: mat(
shape(
1),
shape(
2))
3506 PURE module function getMatInitULD_D2000_RK2(shape, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
3507#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3508 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULD_D2000_RK2
3511 real(RKG) ,
intent(in) :: vupp, vlow
3512 real(RKG) ,
intent(in) :: vdia
3513 integer(IK) ,
intent(in) ::
shape(
2)
3514 integer(IK) ,
intent(in),
optional :: nrow, ncol
3515 integer(IK) ,
intent(in),
optional :: roff, coff, doff
3516 type(uppLowDia_type) ,
intent(in) :: subset
3517 real(RKG) :: mat(
shape(
1),
shape(
2))
3522 PURE module function getMatInitULD_D2000_RK1(shape, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
3523#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3524 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULD_D2000_RK1
3527 real(RKG) ,
intent(in) :: vupp, vlow
3528 real(RKG) ,
intent(in) :: vdia
3529 integer(IK) ,
intent(in) ::
shape(
2)
3530 integer(IK) ,
intent(in),
optional :: nrow, ncol
3531 integer(IK) ,
intent(in),
optional :: roff, coff, doff
3532 type(uppLowDia_type) ,
intent(in) :: subset
3533 real(RKG) :: mat(
shape(
1),
shape(
2))
3546 PURE module function getMatInitULD_D2001_SK5(shape, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
3547#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3548 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULD_D2001_SK5
3551 character(
*,SKG) ,
intent(in) :: vupp, vlow
3552 character(
*,SKG) ,
intent(in),
contiguous :: vdia(:)
3553 integer(IK) ,
intent(in) ::
shape(
2)
3554 integer(IK) ,
intent(in),
optional :: nrow, ncol
3555 integer(IK) ,
intent(in),
optional :: roff, coff, doff
3556 type(uppLowDia_type) ,
intent(in) :: subset
3557 character(
len(vdia,IK),SKG) :: mat(
shape(
1),
shape(
2))
3562 PURE module function getMatInitULD_D2001_SK4(shape, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
3563#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3564 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULD_D2001_SK4
3567 character(
*,SKG) ,
intent(in) :: vupp, vlow
3568 character(
*,SKG) ,
intent(in),
contiguous :: vdia(:)
3569 integer(IK) ,
intent(in) ::
shape(
2)
3570 integer(IK) ,
intent(in),
optional :: nrow, ncol
3571 integer(IK) ,
intent(in),
optional :: roff, coff, doff
3572 type(uppLowDia_type) ,
intent(in) :: subset
3573 character(
len(vdia,IK),SKG) :: mat(
shape(
1),
shape(
2))
3578 PURE module function getMatInitULD_D2001_SK3(shape, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
3579#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3580 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULD_D2001_SK3
3583 character(
*,SKG) ,
intent(in) :: vupp, vlow
3584 character(
*,SKG) ,
intent(in),
contiguous :: vdia(:)
3585 integer(IK) ,
intent(in) ::
shape(
2)
3586 integer(IK) ,
intent(in),
optional :: nrow, ncol
3587 integer(IK) ,
intent(in),
optional :: roff, coff, doff
3588 type(uppLowDia_type) ,
intent(in) :: subset
3589 character(
len(vdia,IK),SKG) :: mat(
shape(
1),
shape(
2))
3594 PURE module function getMatInitULD_D2001_SK2(shape, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
3595#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3596 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULD_D2001_SK2
3599 character(
*,SKG) ,
intent(in) :: vupp, vlow
3600 character(
*,SKG) ,
intent(in),
contiguous :: vdia(:)
3601 integer(IK) ,
intent(in) ::
shape(
2)
3602 integer(IK) ,
intent(in),
optional :: nrow, ncol
3603 integer(IK) ,
intent(in),
optional :: roff, coff, doff
3604 type(uppLowDia_type) ,
intent(in) :: subset
3605 character(
len(vdia,IK),SKG) :: mat(
shape(
1),
shape(
2))
3610 PURE module function getMatInitULD_D2001_SK1(shape, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
3611#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3612 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULD_D2001_SK1
3615 character(
*,SKG) ,
intent(in) :: vupp, vlow
3616 character(
*,SKG) ,
intent(in),
contiguous :: vdia(:)
3617 integer(IK) ,
intent(in) ::
shape(
2)
3618 integer(IK) ,
intent(in),
optional :: nrow, ncol
3619 integer(IK) ,
intent(in),
optional :: roff, coff, doff
3620 type(uppLowDia_type) ,
intent(in) :: subset
3621 character(
len(vdia,IK),SKG) :: mat(
shape(
1),
shape(
2))
3628 PURE module function getMatInitULD_D2001_IK5(shape, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
3629#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3630 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULD_D2001_IK5
3633 integer(IKG) ,
intent(in) :: vupp, vlow
3634 integer(IKG) ,
intent(in),
contiguous :: vdia(:)
3635 integer(IK) ,
intent(in) ::
shape(
2)
3636 integer(IK) ,
intent(in),
optional :: nrow, ncol
3637 integer(IK) ,
intent(in),
optional :: roff, coff, doff
3638 type(uppLowDia_type) ,
intent(in) :: subset
3639 integer(IKG) :: mat(
shape(
1),
shape(
2))
3644 PURE module function getMatInitULD_D2001_IK4(shape, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
3645#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3646 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULD_D2001_IK4
3649 integer(IKG) ,
intent(in) :: vupp, vlow
3650 integer(IKG) ,
intent(in),
contiguous :: vdia(:)
3651 integer(IK) ,
intent(in) ::
shape(
2)
3652 integer(IK) ,
intent(in),
optional :: nrow, ncol
3653 integer(IK) ,
intent(in),
optional :: roff, coff, doff
3654 type(uppLowDia_type) ,
intent(in) :: subset
3655 integer(IKG) :: mat(
shape(
1),
shape(
2))
3660 PURE module function getMatInitULD_D2001_IK3(shape, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
3661#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3662 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULD_D2001_IK3
3665 integer(IKG) ,
intent(in) :: vupp, vlow
3666 integer(IKG) ,
intent(in),
contiguous :: vdia(:)
3667 integer(IK) ,
intent(in) ::
shape(
2)
3668 integer(IK) ,
intent(in),
optional :: nrow, ncol
3669 integer(IK) ,
intent(in),
optional :: roff, coff, doff
3670 type(uppLowDia_type) ,
intent(in) :: subset
3671 integer(IKG) :: mat(
shape(
1),
shape(
2))
3676 PURE module function getMatInitULD_D2001_IK2(shape, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
3677#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3678 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULD_D2001_IK2
3681 integer(IKG) ,
intent(in) :: vupp, vlow
3682 integer(IKG) ,
intent(in),
contiguous :: vdia(:)
3683 integer(IK) ,
intent(in) ::
shape(
2)
3684 integer(IK) ,
intent(in),
optional :: nrow, ncol
3685 integer(IK) ,
intent(in),
optional :: roff, coff, doff
3686 type(uppLowDia_type) ,
intent(in) :: subset
3687 integer(IKG) :: mat(
shape(
1),
shape(
2))
3692 PURE module function getMatInitULD_D2001_IK1(shape, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
3693#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3694 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULD_D2001_IK1
3697 integer(IKG) ,
intent(in) :: vupp, vlow
3698 integer(IKG) ,
intent(in),
contiguous :: vdia(:)
3699 integer(IK) ,
intent(in) ::
shape(
2)
3700 integer(IK) ,
intent(in),
optional :: nrow, ncol
3701 integer(IK) ,
intent(in),
optional :: roff, coff, doff
3702 type(uppLowDia_type) ,
intent(in) :: subset
3703 integer(IKG) :: mat(
shape(
1),
shape(
2))
3710 PURE module function getMatInitULD_D2001_LK5(shape, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
3711#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3712 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULD_D2001_LK5
3715 logical(LKG) ,
intent(in) :: vupp, vlow
3716 logical(LKG) ,
intent(in),
contiguous :: vdia(:)
3717 integer(IK) ,
intent(in) ::
shape(
2)
3718 integer(IK) ,
intent(in),
optional :: nrow, ncol
3719 integer(IK) ,
intent(in),
optional :: roff, coff, doff
3720 type(uppLowDia_type) ,
intent(in) :: subset
3721 logical(LKG) :: mat(
shape(
1),
shape(
2))
3726 PURE module function getMatInitULD_D2001_LK4(shape, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
3727#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3728 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULD_D2001_LK4
3731 logical(LKG) ,
intent(in) :: vupp, vlow
3732 logical(LKG) ,
intent(in),
contiguous :: vdia(:)
3733 integer(IK) ,
intent(in) ::
shape(
2)
3734 integer(IK) ,
intent(in),
optional :: nrow, ncol
3735 integer(IK) ,
intent(in),
optional :: roff, coff, doff
3736 type(uppLowDia_type) ,
intent(in) :: subset
3737 logical(LKG) :: mat(
shape(
1),
shape(
2))
3742 PURE module function getMatInitULD_D2001_LK3(shape, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
3743#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3744 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULD_D2001_LK3
3747 logical(LKG) ,
intent(in) :: vupp, vlow
3748 logical(LKG) ,
intent(in),
contiguous :: vdia(:)
3749 integer(IK) ,
intent(in) ::
shape(
2)
3750 integer(IK) ,
intent(in),
optional :: nrow, ncol
3751 integer(IK) ,
intent(in),
optional :: roff, coff, doff
3752 type(uppLowDia_type) ,
intent(in) :: subset
3753 logical(LKG) :: mat(
shape(
1),
shape(
2))
3758 PURE module function getMatInitULD_D2001_LK2(shape, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
3759#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3760 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULD_D2001_LK2
3763 logical(LKG) ,
intent(in) :: vupp, vlow
3764 logical(LKG) ,
intent(in),
contiguous :: vdia(:)
3765 integer(IK) ,
intent(in) ::
shape(
2)
3766 integer(IK) ,
intent(in),
optional :: nrow, ncol
3767 integer(IK) ,
intent(in),
optional :: roff, coff, doff
3768 type(uppLowDia_type) ,
intent(in) :: subset
3769 logical(LKG) :: mat(
shape(
1),
shape(
2))
3774 PURE module function getMatInitULD_D2001_LK1(shape, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
3775#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3776 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULD_D2001_LK1
3779 logical(LKG) ,
intent(in) :: vupp, vlow
3780 logical(LKG) ,
intent(in),
contiguous :: vdia(:)
3781 integer(IK) ,
intent(in) ::
shape(
2)
3782 integer(IK) ,
intent(in),
optional :: nrow, ncol
3783 integer(IK) ,
intent(in),
optional :: roff, coff, doff
3784 type(uppLowDia_type) ,
intent(in) :: subset
3785 logical(LKG) :: mat(
shape(
1),
shape(
2))
3792 PURE module function getMatInitULD_D2001_CK5(shape, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
3793#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3794 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULD_D2001_CK5
3797 complex(CKG) ,
intent(in) :: vupp, vlow
3798 complex(CKG) ,
intent(in),
contiguous :: vdia(:)
3799 integer(IK) ,
intent(in) ::
shape(
2)
3800 integer(IK) ,
intent(in),
optional :: nrow, ncol
3801 integer(IK) ,
intent(in),
optional :: roff, coff, doff
3802 type(uppLowDia_type) ,
intent(in) :: subset
3803 complex(CKG) :: mat(
shape(
1),
shape(
2))
3808 PURE module function getMatInitULD_D2001_CK4(shape, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
3809#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3810 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULD_D2001_CK4
3813 complex(CKG) ,
intent(in) :: vupp, vlow
3814 complex(CKG) ,
intent(in),
contiguous :: vdia(:)
3815 integer(IK) ,
intent(in) ::
shape(
2)
3816 integer(IK) ,
intent(in),
optional :: nrow, ncol
3817 integer(IK) ,
intent(in),
optional :: roff, coff, doff
3818 type(uppLowDia_type) ,
intent(in) :: subset
3819 complex(CKG) :: mat(
shape(
1),
shape(
2))
3824 PURE module function getMatInitULD_D2001_CK3(shape, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
3825#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3826 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULD_D2001_CK3
3829 complex(CKG) ,
intent(in) :: vupp, vlow
3830 complex(CKG) ,
intent(in),
contiguous :: vdia(:)
3831 integer(IK) ,
intent(in) ::
shape(
2)
3832 integer(IK) ,
intent(in),
optional :: nrow, ncol
3833 integer(IK) ,
intent(in),
optional :: roff, coff, doff
3834 type(uppLowDia_type) ,
intent(in) :: subset
3835 complex(CKG) :: mat(
shape(
1),
shape(
2))
3840 PURE module function getMatInitULD_D2001_CK2(shape, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
3841#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3842 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULD_D2001_CK2
3845 complex(CKG) ,
intent(in) :: vupp, vlow
3846 complex(CKG) ,
intent(in),
contiguous :: vdia(:)
3847 integer(IK) ,
intent(in) ::
shape(
2)
3848 integer(IK) ,
intent(in),
optional :: nrow, ncol
3849 integer(IK) ,
intent(in),
optional :: roff, coff, doff
3850 type(uppLowDia_type) ,
intent(in) :: subset
3851 complex(CKG) :: mat(
shape(
1),
shape(
2))
3856 PURE module function getMatInitULD_D2001_CK1(shape, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
3857#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3858 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULD_D2001_CK1
3861 complex(CKG) ,
intent(in) :: vupp, vlow
3862 complex(CKG) ,
intent(in),
contiguous :: vdia(:)
3863 integer(IK) ,
intent(in) ::
shape(
2)
3864 integer(IK) ,
intent(in),
optional :: nrow, ncol
3865 integer(IK) ,
intent(in),
optional :: roff, coff, doff
3866 type(uppLowDia_type) ,
intent(in) :: subset
3867 complex(CKG) :: mat(
shape(
1),
shape(
2))
3874 PURE module function getMatInitULD_D2001_RK5(shape, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
3875#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3876 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULD_D2001_RK5
3879 real(RKG) ,
intent(in) :: vupp, vlow
3880 real(RKG) ,
intent(in),
contiguous :: vdia(:)
3881 integer(IK) ,
intent(in) ::
shape(
2)
3882 integer(IK) ,
intent(in),
optional :: nrow, ncol
3883 integer(IK) ,
intent(in),
optional :: roff, coff, doff
3884 type(uppLowDia_type) ,
intent(in) :: subset
3885 real(RKG) :: mat(
shape(
1),
shape(
2))
3890 PURE module function getMatInitULD_D2001_RK4(shape, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
3891#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3892 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULD_D2001_RK4
3895 real(RKG) ,
intent(in) :: vupp, vlow
3896 real(RKG) ,
intent(in),
contiguous :: vdia(:)
3897 integer(IK) ,
intent(in) ::
shape(
2)
3898 integer(IK) ,
intent(in),
optional :: nrow, ncol
3899 integer(IK) ,
intent(in),
optional :: roff, coff, doff
3900 type(uppLowDia_type) ,
intent(in) :: subset
3901 real(RKG) :: mat(
shape(
1),
shape(
2))
3906 PURE module function getMatInitULD_D2001_RK3(shape, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
3907#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3908 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULD_D2001_RK3
3911 real(RKG) ,
intent(in) :: vupp, vlow
3912 real(RKG) ,
intent(in),
contiguous :: vdia(:)
3913 integer(IK) ,
intent(in) ::
shape(
2)
3914 integer(IK) ,
intent(in),
optional :: nrow, ncol
3915 integer(IK) ,
intent(in),
optional :: roff, coff, doff
3916 type(uppLowDia_type) ,
intent(in) :: subset
3917 real(RKG) :: mat(
shape(
1),
shape(
2))
3922 PURE module function getMatInitULD_D2001_RK2(shape, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
3923#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3924 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULD_D2001_RK2
3927 real(RKG) ,
intent(in) :: vupp, vlow
3928 real(RKG) ,
intent(in),
contiguous :: vdia(:)
3929 integer(IK) ,
intent(in) ::
shape(
2)
3930 integer(IK) ,
intent(in),
optional :: nrow, ncol
3931 integer(IK) ,
intent(in),
optional :: roff, coff, doff
3932 type(uppLowDia_type) ,
intent(in) :: subset
3933 real(RKG) :: mat(
shape(
1),
shape(
2))
3938 PURE module function getMatInitULD_D2001_RK1(shape, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
result(mat)
3939#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3940 !DEC$ ATTRIBUTES DLLEXPORT :: getMatInitULD_D2001_RK1
3943 real(RKG) ,
intent(in) :: vupp, vlow
3944 real(RKG) ,
intent(in),
contiguous :: vdia(:)
3945 integer(IK) ,
intent(in) ::
shape(
2)
3946 integer(IK) ,
intent(in),
optional :: nrow, ncol
3947 integer(IK) ,
intent(in),
optional :: roff, coff, doff
3948 type(uppLowDia_type) ,
intent(in) :: subset
3949 real(RKG) :: mat(
shape(
1),
shape(
2))
4148 PURE module subroutine setMatInit_EXP_XLX_D2X0X_SK5(mat, subset, vlow, nrow, ncol, roff, coff, doff)
4149#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4150 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLX_D2X0X_SK5
4153 integer(IK) ,
intent(in) ,
optional :: doff
4154 integer(IK) ,
intent(in) :: nrow, ncol
4155 integer(IK) ,
intent(in) :: roff, coff
4156 type(low_type) ,
intent(in) :: subset
4157 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4158 character(
*,SKG) ,
intent(in) :: vlow
4163 PURE module subroutine setMatInit_EXP_XLX_D2X0X_SK4(mat, subset, vlow, nrow, ncol, roff, coff, doff)
4164#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4165 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLX_D2X0X_SK4
4168 integer(IK) ,
intent(in) ,
optional :: doff
4169 integer(IK) ,
intent(in) :: nrow, ncol
4170 integer(IK) ,
intent(in) :: roff, coff
4171 type(low_type) ,
intent(in) :: subset
4172 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4173 character(
*,SKG) ,
intent(in) :: vlow
4178 PURE module subroutine setMatInit_EXP_XLX_D2X0X_SK3(mat, subset, vlow, nrow, ncol, roff, coff, doff)
4179#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4180 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLX_D2X0X_SK3
4183 integer(IK) ,
intent(in) ,
optional :: doff
4184 integer(IK) ,
intent(in) :: nrow, ncol
4185 integer(IK) ,
intent(in) :: roff, coff
4186 type(low_type) ,
intent(in) :: subset
4187 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4188 character(
*,SKG) ,
intent(in) :: vlow
4193 PURE module subroutine setMatInit_EXP_XLX_D2X0X_SK2(mat, subset, vlow, nrow, ncol, roff, coff, doff)
4194#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4195 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLX_D2X0X_SK2
4198 integer(IK) ,
intent(in) ,
optional :: doff
4199 integer(IK) ,
intent(in) :: nrow, ncol
4200 integer(IK) ,
intent(in) :: roff, coff
4201 type(low_type) ,
intent(in) :: subset
4202 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4203 character(
*,SKG) ,
intent(in) :: vlow
4208 PURE module subroutine setMatInit_EXP_XLX_D2X0X_SK1(mat, subset, vlow, nrow, ncol, roff, coff, doff)
4209#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4210 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLX_D2X0X_SK1
4213 integer(IK) ,
intent(in) ,
optional :: doff
4214 integer(IK) ,
intent(in) :: nrow, ncol
4215 integer(IK) ,
intent(in) :: roff, coff
4216 type(low_type) ,
intent(in) :: subset
4217 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4218 character(
*,SKG) ,
intent(in) :: vlow
4225 PURE module subroutine setMatInit_EXP_XLX_D2X0X_IK5(mat, subset, vlow, nrow, ncol, roff, coff, doff)
4226#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4227 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLX_D2X0X_IK5
4230 integer(IK) ,
intent(in) ,
optional :: doff
4231 integer(IK) ,
intent(in) :: nrow, ncol
4232 integer(IK) ,
intent(in) :: roff, coff
4233 type(low_type) ,
intent(in) :: subset
4234 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4235 integer(IKG) ,
intent(in) :: vlow
4240 PURE module subroutine setMatInit_EXP_XLX_D2X0X_IK4(mat, subset, vlow, nrow, ncol, roff, coff, doff)
4241#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4242 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLX_D2X0X_IK4
4245 integer(IK) ,
intent(in) ,
optional :: doff
4246 integer(IK) ,
intent(in) :: nrow, ncol
4247 integer(IK) ,
intent(in) :: roff, coff
4248 type(low_type) ,
intent(in) :: subset
4249 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4250 integer(IKG) ,
intent(in) :: vlow
4255 PURE module subroutine setMatInit_EXP_XLX_D2X0X_IK3(mat, subset, vlow, nrow, ncol, roff, coff, doff)
4256#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4257 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLX_D2X0X_IK3
4260 integer(IK) ,
intent(in) ,
optional :: doff
4261 integer(IK) ,
intent(in) :: nrow, ncol
4262 integer(IK) ,
intent(in) :: roff, coff
4263 type(low_type) ,
intent(in) :: subset
4264 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4265 integer(IKG) ,
intent(in) :: vlow
4270 PURE module subroutine setMatInit_EXP_XLX_D2X0X_IK2(mat, subset, vlow, nrow, ncol, roff, coff, doff)
4271#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4272 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLX_D2X0X_IK2
4275 integer(IK) ,
intent(in) ,
optional :: doff
4276 integer(IK) ,
intent(in) :: nrow, ncol
4277 integer(IK) ,
intent(in) :: roff, coff
4278 type(low_type) ,
intent(in) :: subset
4279 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4280 integer(IKG) ,
intent(in) :: vlow
4285 PURE module subroutine setMatInit_EXP_XLX_D2X0X_IK1(mat, subset, vlow, nrow, ncol, roff, coff, doff)
4286#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4287 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLX_D2X0X_IK1
4290 integer(IK) ,
intent(in) ,
optional :: doff
4291 integer(IK) ,
intent(in) :: nrow, ncol
4292 integer(IK) ,
intent(in) :: roff, coff
4293 type(low_type) ,
intent(in) :: subset
4294 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4295 integer(IKG) ,
intent(in) :: vlow
4302 PURE module subroutine setMatInit_EXP_XLX_D2X0X_LK5(mat, subset, vlow, nrow, ncol, roff, coff, doff)
4303#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4304 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLX_D2X0X_LK5
4307 integer(IK) ,
intent(in) ,
optional :: doff
4308 integer(IK) ,
intent(in) :: nrow, ncol
4309 integer(IK) ,
intent(in) :: roff, coff
4310 type(low_type) ,
intent(in) :: subset
4311 logical(LKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4312 logical(LKG) ,
intent(in) :: vlow
4317 PURE module subroutine setMatInit_EXP_XLX_D2X0X_LK4(mat, subset, vlow, nrow, ncol, roff, coff, doff)
4318#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4319 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLX_D2X0X_LK4
4322 integer(IK) ,
intent(in) ,
optional :: doff
4323 integer(IK) ,
intent(in) :: nrow, ncol
4324 integer(IK) ,
intent(in) :: roff, coff
4325 type(low_type) ,
intent(in) :: subset
4326 logical(LKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4327 logical(LKG) ,
intent(in) :: vlow
4332 PURE module subroutine setMatInit_EXP_XLX_D2X0X_LK3(mat, subset, vlow, nrow, ncol, roff, coff, doff)
4333#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4334 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLX_D2X0X_LK3
4337 integer(IK) ,
intent(in) ,
optional :: doff
4338 integer(IK) ,
intent(in) :: nrow, ncol
4339 integer(IK) ,
intent(in) :: roff, coff
4340 type(low_type) ,
intent(in) :: subset
4341 logical(LKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4342 logical(LKG) ,
intent(in) :: vlow
4347 PURE module subroutine setMatInit_EXP_XLX_D2X0X_LK2(mat, subset, vlow, nrow, ncol, roff, coff, doff)
4348#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4349 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLX_D2X0X_LK2
4352 integer(IK) ,
intent(in) ,
optional :: doff
4353 integer(IK) ,
intent(in) :: nrow, ncol
4354 integer(IK) ,
intent(in) :: roff, coff
4355 type(low_type) ,
intent(in) :: subset
4356 logical(LKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4357 logical(LKG) ,
intent(in) :: vlow
4362 PURE module subroutine setMatInit_EXP_XLX_D2X0X_LK1(mat, subset, vlow, nrow, ncol, roff, coff, doff)
4363#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4364 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLX_D2X0X_LK1
4367 integer(IK) ,
intent(in) ,
optional :: doff
4368 integer(IK) ,
intent(in) :: nrow, ncol
4369 integer(IK) ,
intent(in) :: roff, coff
4370 type(low_type) ,
intent(in) :: subset
4371 logical(LKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4372 logical(LKG) ,
intent(in) :: vlow
4379 PURE module subroutine setMatInit_EXP_XLX_D2X0X_CK5(mat, subset, vlow, nrow, ncol, roff, coff, doff)
4380#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4381 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLX_D2X0X_CK5
4384 integer(IK) ,
intent(in) ,
optional :: doff
4385 integer(IK) ,
intent(in) :: nrow, ncol
4386 integer(IK) ,
intent(in) :: roff, coff
4387 type(low_type) ,
intent(in) :: subset
4388 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4389 complex(CKG) ,
intent(in) :: vlow
4394 PURE module subroutine setMatInit_EXP_XLX_D2X0X_CK4(mat, subset, vlow, nrow, ncol, roff, coff, doff)
4395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4396 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLX_D2X0X_CK4
4399 integer(IK) ,
intent(in) ,
optional :: doff
4400 integer(IK) ,
intent(in) :: nrow, ncol
4401 integer(IK) ,
intent(in) :: roff, coff
4402 type(low_type) ,
intent(in) :: subset
4403 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4404 complex(CKG) ,
intent(in) :: vlow
4409 PURE module subroutine setMatInit_EXP_XLX_D2X0X_CK3(mat, subset, vlow, nrow, ncol, roff, coff, doff)
4410#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4411 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLX_D2X0X_CK3
4414 integer(IK) ,
intent(in) ,
optional :: doff
4415 integer(IK) ,
intent(in) :: nrow, ncol
4416 integer(IK) ,
intent(in) :: roff, coff
4417 type(low_type) ,
intent(in) :: subset
4418 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4419 complex(CKG) ,
intent(in) :: vlow
4424 PURE module subroutine setMatInit_EXP_XLX_D2X0X_CK2(mat, subset, vlow, nrow, ncol, roff, coff, doff)
4425#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4426 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLX_D2X0X_CK2
4429 integer(IK) ,
intent(in) ,
optional :: doff
4430 integer(IK) ,
intent(in) :: nrow, ncol
4431 integer(IK) ,
intent(in) :: roff, coff
4432 type(low_type) ,
intent(in) :: subset
4433 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4434 complex(CKG) ,
intent(in) :: vlow
4439 PURE module subroutine setMatInit_EXP_XLX_D2X0X_CK1(mat, subset, vlow, nrow, ncol, roff, coff, doff)
4440#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4441 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLX_D2X0X_CK1
4444 integer(IK) ,
intent(in) ,
optional :: doff
4445 integer(IK) ,
intent(in) :: nrow, ncol
4446 integer(IK) ,
intent(in) :: roff, coff
4447 type(low_type) ,
intent(in) :: subset
4448 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4449 complex(CKG) ,
intent(in) :: vlow
4456 PURE module subroutine setMatInit_EXP_XLX_D2X0X_RK5(mat, subset, vlow, nrow, ncol, roff, coff, doff)
4457#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4458 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLX_D2X0X_RK5
4461 integer(IK) ,
intent(in) ,
optional :: doff
4462 integer(IK) ,
intent(in) :: nrow, ncol
4463 integer(IK) ,
intent(in) :: roff, coff
4464 type(low_type) ,
intent(in) :: subset
4465 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4466 real(RKG) ,
intent(in) :: vlow
4471 PURE module subroutine setMatInit_EXP_XLX_D2X0X_RK4(mat, subset, vlow, nrow, ncol, roff, coff, doff)
4472#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4473 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLX_D2X0X_RK4
4476 integer(IK) ,
intent(in) ,
optional :: doff
4477 integer(IK) ,
intent(in) :: nrow, ncol
4478 integer(IK) ,
intent(in) :: roff, coff
4479 type(low_type) ,
intent(in) :: subset
4480 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4481 real(RKG) ,
intent(in) :: vlow
4486 PURE module subroutine setMatInit_EXP_XLX_D2X0X_RK3(mat, subset, vlow, nrow, ncol, roff, coff, doff)
4487#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4488 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLX_D2X0X_RK3
4491 integer(IK) ,
intent(in) ,
optional :: doff
4492 integer(IK) ,
intent(in) :: nrow, ncol
4493 integer(IK) ,
intent(in) :: roff, coff
4494 type(low_type) ,
intent(in) :: subset
4495 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4496 real(RKG) ,
intent(in) :: vlow
4501 PURE module subroutine setMatInit_EXP_XLX_D2X0X_RK2(mat, subset, vlow, nrow, ncol, roff, coff, doff)
4502#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4503 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLX_D2X0X_RK2
4506 integer(IK) ,
intent(in) ,
optional :: doff
4507 integer(IK) ,
intent(in) :: nrow, ncol
4508 integer(IK) ,
intent(in) :: roff, coff
4509 type(low_type) ,
intent(in) :: subset
4510 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4511 real(RKG) ,
intent(in) :: vlow
4516 PURE module subroutine setMatInit_EXP_XLX_D2X0X_RK1(mat, subset, vlow, nrow, ncol, roff, coff, doff)
4517#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4518 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLX_D2X0X_RK1
4521 integer(IK) ,
intent(in) ,
optional :: doff
4522 integer(IK) ,
intent(in) :: nrow, ncol
4523 integer(IK) ,
intent(in) :: roff, coff
4524 type(low_type) ,
intent(in) :: subset
4525 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4526 real(RKG) ,
intent(in) :: vlow
4549 PURE module subroutine setMatInit_EXP_UXX_D20XX_SK5(mat, subset, vupp, nrow, ncol, roff, coff, doff)
4550#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4551 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXX_D20XX_SK5
4554 integer(IK) ,
intent(in) ,
optional :: doff
4555 integer(IK) ,
intent(in) :: nrow, ncol
4556 integer(IK) ,
intent(in) :: roff, coff
4557 type(upp_type) ,
intent(in) :: subset
4558 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4559 character(
*,SKG) ,
intent(in) :: vupp
4564 PURE module subroutine setMatInit_EXP_UXX_D20XX_SK4(mat, subset, vupp, nrow, ncol, roff, coff, doff)
4565#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4566 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXX_D20XX_SK4
4569 integer(IK) ,
intent(in) ,
optional :: doff
4570 integer(IK) ,
intent(in) :: nrow, ncol
4571 integer(IK) ,
intent(in) :: roff, coff
4572 type(upp_type) ,
intent(in) :: subset
4573 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4574 character(
*,SKG) ,
intent(in) :: vupp
4579 PURE module subroutine setMatInit_EXP_UXX_D20XX_SK3(mat, subset, vupp, nrow, ncol, roff, coff, doff)
4580#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4581 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXX_D20XX_SK3
4584 integer(IK) ,
intent(in) ,
optional :: doff
4585 integer(IK) ,
intent(in) :: nrow, ncol
4586 integer(IK) ,
intent(in) :: roff, coff
4587 type(upp_type) ,
intent(in) :: subset
4588 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4589 character(
*,SKG) ,
intent(in) :: vupp
4594 PURE module subroutine setMatInit_EXP_UXX_D20XX_SK2(mat, subset, vupp, nrow, ncol, roff, coff, doff)
4595#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4596 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXX_D20XX_SK2
4599 integer(IK) ,
intent(in) ,
optional :: doff
4600 integer(IK) ,
intent(in) :: nrow, ncol
4601 integer(IK) ,
intent(in) :: roff, coff
4602 type(upp_type) ,
intent(in) :: subset
4603 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4604 character(
*,SKG) ,
intent(in) :: vupp
4609 PURE module subroutine setMatInit_EXP_UXX_D20XX_SK1(mat, subset, vupp, nrow, ncol, roff, coff, doff)
4610#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4611 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXX_D20XX_SK1
4614 integer(IK) ,
intent(in) ,
optional :: doff
4615 integer(IK) ,
intent(in) :: nrow, ncol
4616 integer(IK) ,
intent(in) :: roff, coff
4617 type(upp_type) ,
intent(in) :: subset
4618 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4619 character(
*,SKG) ,
intent(in) :: vupp
4626 PURE module subroutine setMatInit_EXP_UXX_D20XX_IK5(mat, subset, vupp, nrow, ncol, roff, coff, doff)
4627#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4628 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXX_D20XX_IK5
4631 integer(IK) ,
intent(in) ,
optional :: doff
4632 integer(IK) ,
intent(in) :: nrow, ncol
4633 integer(IK) ,
intent(in) :: roff, coff
4634 type(upp_type) ,
intent(in) :: subset
4635 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4636 integer(IKG) ,
intent(in) :: vupp
4641 PURE module subroutine setMatInit_EXP_UXX_D20XX_IK4(mat, subset, vupp, nrow, ncol, roff, coff, doff)
4642#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4643 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXX_D20XX_IK4
4646 integer(IK) ,
intent(in) ,
optional :: doff
4647 integer(IK) ,
intent(in) :: nrow, ncol
4648 integer(IK) ,
intent(in) :: roff, coff
4649 type(upp_type) ,
intent(in) :: subset
4650 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4651 integer(IKG) ,
intent(in) :: vupp
4656 PURE module subroutine setMatInit_EXP_UXX_D20XX_IK3(mat, subset, vupp, nrow, ncol, roff, coff, doff)
4657#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4658 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXX_D20XX_IK3
4661 integer(IK) ,
intent(in) ,
optional :: doff
4662 integer(IK) ,
intent(in) :: nrow, ncol
4663 integer(IK) ,
intent(in) :: roff, coff
4664 type(upp_type) ,
intent(in) :: subset
4665 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4666 integer(IKG) ,
intent(in) :: vupp
4671 PURE module subroutine setMatInit_EXP_UXX_D20XX_IK2(mat, subset, vupp, nrow, ncol, roff, coff, doff)
4672#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4673 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXX_D20XX_IK2
4676 integer(IK) ,
intent(in) ,
optional :: doff
4677 integer(IK) ,
intent(in) :: nrow, ncol
4678 integer(IK) ,
intent(in) :: roff, coff
4679 type(upp_type) ,
intent(in) :: subset
4680 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4681 integer(IKG) ,
intent(in) :: vupp
4686 PURE module subroutine setMatInit_EXP_UXX_D20XX_IK1(mat, subset, vupp, nrow, ncol, roff, coff, doff)
4687#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4688 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXX_D20XX_IK1
4691 integer(IK) ,
intent(in) ,
optional :: doff
4692 integer(IK) ,
intent(in) :: nrow, ncol
4693 integer(IK) ,
intent(in) :: roff, coff
4694 type(upp_type) ,
intent(in) :: subset
4695 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4696 integer(IKG) ,
intent(in) :: vupp
4703 PURE module subroutine setMatInit_EXP_UXX_D20XX_LK5(mat, subset, vupp, nrow, ncol, roff, coff, doff)
4704#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4705 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXX_D20XX_LK5
4708 integer(IK) ,
intent(in) ,
optional :: doff
4709 integer(IK) ,
intent(in) :: nrow, ncol
4710 integer(IK) ,
intent(in) :: roff, coff
4711 type(upp_type) ,
intent(in) :: subset
4712 logical(LKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4713 logical(LKG) ,
intent(in) :: vupp
4718 PURE module subroutine setMatInit_EXP_UXX_D20XX_LK4(mat, subset, vupp, nrow, ncol, roff, coff, doff)
4719#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4720 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXX_D20XX_LK4
4723 integer(IK) ,
intent(in) ,
optional :: doff
4724 integer(IK) ,
intent(in) :: nrow, ncol
4725 integer(IK) ,
intent(in) :: roff, coff
4726 type(upp_type) ,
intent(in) :: subset
4727 logical(LKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4728 logical(LKG) ,
intent(in) :: vupp
4733 PURE module subroutine setMatInit_EXP_UXX_D20XX_LK3(mat, subset, vupp, nrow, ncol, roff, coff, doff)
4734#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4735 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXX_D20XX_LK3
4738 integer(IK) ,
intent(in) ,
optional :: doff
4739 integer(IK) ,
intent(in) :: nrow, ncol
4740 integer(IK) ,
intent(in) :: roff, coff
4741 type(upp_type) ,
intent(in) :: subset
4742 logical(LKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4743 logical(LKG) ,
intent(in) :: vupp
4748 PURE module subroutine setMatInit_EXP_UXX_D20XX_LK2(mat, subset, vupp, nrow, ncol, roff, coff, doff)
4749#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4750 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXX_D20XX_LK2
4753 integer(IK) ,
intent(in) ,
optional :: doff
4754 integer(IK) ,
intent(in) :: nrow, ncol
4755 integer(IK) ,
intent(in) :: roff, coff
4756 type(upp_type) ,
intent(in) :: subset
4757 logical(LKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4758 logical(LKG) ,
intent(in) :: vupp
4763 PURE module subroutine setMatInit_EXP_UXX_D20XX_LK1(mat, subset, vupp, nrow, ncol, roff, coff, doff)
4764#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4765 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXX_D20XX_LK1
4768 integer(IK) ,
intent(in) ,
optional :: doff
4769 integer(IK) ,
intent(in) :: nrow, ncol
4770 integer(IK) ,
intent(in) :: roff, coff
4771 type(upp_type) ,
intent(in) :: subset
4772 logical(LKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4773 logical(LKG) ,
intent(in) :: vupp
4780 PURE module subroutine setMatInit_EXP_UXX_D20XX_CK5(mat, subset, vupp, nrow, ncol, roff, coff, doff)
4781#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4782 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXX_D20XX_CK5
4785 integer(IK) ,
intent(in) ,
optional :: doff
4786 integer(IK) ,
intent(in) :: nrow, ncol
4787 integer(IK) ,
intent(in) :: roff, coff
4788 type(upp_type) ,
intent(in) :: subset
4789 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4790 complex(CKG) ,
intent(in) :: vupp
4795 PURE module subroutine setMatInit_EXP_UXX_D20XX_CK4(mat, subset, vupp, nrow, ncol, roff, coff, doff)
4796#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4797 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXX_D20XX_CK4
4800 integer(IK) ,
intent(in) ,
optional :: doff
4801 integer(IK) ,
intent(in) :: nrow, ncol
4802 integer(IK) ,
intent(in) :: roff, coff
4803 type(upp_type) ,
intent(in) :: subset
4804 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4805 complex(CKG) ,
intent(in) :: vupp
4810 PURE module subroutine setMatInit_EXP_UXX_D20XX_CK3(mat, subset, vupp, nrow, ncol, roff, coff, doff)
4811#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4812 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXX_D20XX_CK3
4815 integer(IK) ,
intent(in) ,
optional :: doff
4816 integer(IK) ,
intent(in) :: nrow, ncol
4817 integer(IK) ,
intent(in) :: roff, coff
4818 type(upp_type) ,
intent(in) :: subset
4819 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4820 complex(CKG) ,
intent(in) :: vupp
4825 PURE module subroutine setMatInit_EXP_UXX_D20XX_CK2(mat, subset, vupp, nrow, ncol, roff, coff, doff)
4826#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4827 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXX_D20XX_CK2
4830 integer(IK) ,
intent(in) ,
optional :: doff
4831 integer(IK) ,
intent(in) :: nrow, ncol
4832 integer(IK) ,
intent(in) :: roff, coff
4833 type(upp_type) ,
intent(in) :: subset
4834 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4835 complex(CKG) ,
intent(in) :: vupp
4840 PURE module subroutine setMatInit_EXP_UXX_D20XX_CK1(mat, subset, vupp, nrow, ncol, roff, coff, doff)
4841#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4842 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXX_D20XX_CK1
4845 integer(IK) ,
intent(in) ,
optional :: doff
4846 integer(IK) ,
intent(in) :: nrow, ncol
4847 integer(IK) ,
intent(in) :: roff, coff
4848 type(upp_type) ,
intent(in) :: subset
4849 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4850 complex(CKG) ,
intent(in) :: vupp
4857 PURE module subroutine setMatInit_EXP_UXX_D20XX_RK5(mat, subset, vupp, nrow, ncol, roff, coff, doff)
4858#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4859 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXX_D20XX_RK5
4862 integer(IK) ,
intent(in) ,
optional :: doff
4863 integer(IK) ,
intent(in) :: nrow, ncol
4864 integer(IK) ,
intent(in) :: roff, coff
4865 type(upp_type) ,
intent(in) :: subset
4866 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4867 real(RKG) ,
intent(in) :: vupp
4872 PURE module subroutine setMatInit_EXP_UXX_D20XX_RK4(mat, subset, vupp, nrow, ncol, roff, coff, doff)
4873#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4874 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXX_D20XX_RK4
4877 integer(IK) ,
intent(in) ,
optional :: doff
4878 integer(IK) ,
intent(in) :: nrow, ncol
4879 integer(IK) ,
intent(in) :: roff, coff
4880 type(upp_type) ,
intent(in) :: subset
4881 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4882 real(RKG) ,
intent(in) :: vupp
4887 PURE module subroutine setMatInit_EXP_UXX_D20XX_RK3(mat, subset, vupp, nrow, ncol, roff, coff, doff)
4888#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4889 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXX_D20XX_RK3
4892 integer(IK) ,
intent(in) ,
optional :: doff
4893 integer(IK) ,
intent(in) :: nrow, ncol
4894 integer(IK) ,
intent(in) :: roff, coff
4895 type(upp_type) ,
intent(in) :: subset
4896 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4897 real(RKG) ,
intent(in) :: vupp
4902 PURE module subroutine setMatInit_EXP_UXX_D20XX_RK2(mat, subset, vupp, nrow, ncol, roff, coff, doff)
4903#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4904 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXX_D20XX_RK2
4907 integer(IK) ,
intent(in) ,
optional :: doff
4908 integer(IK) ,
intent(in) :: nrow, ncol
4909 integer(IK) ,
intent(in) :: roff, coff
4910 type(upp_type) ,
intent(in) :: subset
4911 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4912 real(RKG) ,
intent(in) :: vupp
4917 PURE module subroutine setMatInit_EXP_UXX_D20XX_RK1(mat, subset, vupp, nrow, ncol, roff, coff, doff)
4918#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4919 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXX_D20XX_RK1
4922 integer(IK) ,
intent(in) ,
optional :: doff
4923 integer(IK) ,
intent(in) :: nrow, ncol
4924 integer(IK) ,
intent(in) :: roff, coff
4925 type(upp_type) ,
intent(in) :: subset
4926 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4927 real(RKG) ,
intent(in) :: vupp
4950 PURE module subroutine setMatInit_EXP_XXD_D2XXF_SK5(mat, subset, vdia, roff, coff)
4951#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4952 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XXF_SK5
4955 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
4956 character(
*,SKG) ,
intent(in) :: vdia
4957 integer(IK) ,
intent(in) :: roff, coff
4958 type(dia_type) ,
intent(in) :: subset
4963 PURE module subroutine setMatInit_EXP_XXD_D2XXF_SK4(mat, subset, vdia, roff, coff)
4964#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4965 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XXF_SK4
4968 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
4969 character(
*,SKG) ,
intent(in) :: vdia
4970 integer(IK) ,
intent(in) :: roff, coff
4971 type(dia_type) ,
intent(in) :: subset
4976 PURE module subroutine setMatInit_EXP_XXD_D2XXF_SK3(mat, subset, vdia, roff, coff)
4977#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4978 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XXF_SK3
4981 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
4982 character(
*,SKG) ,
intent(in) :: vdia
4983 integer(IK) ,
intent(in) :: roff, coff
4984 type(dia_type) ,
intent(in) :: subset
4989 PURE module subroutine setMatInit_EXP_XXD_D2XXF_SK2(mat, subset, vdia, roff, coff)
4990#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4991 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XXF_SK2
4994 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
4995 character(
*,SKG) ,
intent(in) :: vdia
4996 integer(IK) ,
intent(in) :: roff, coff
4997 type(dia_type) ,
intent(in) :: subset
5002 PURE module subroutine setMatInit_EXP_XXD_D2XXF_SK1(mat, subset, vdia, roff, coff)
5003#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5004 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XXF_SK1
5007 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5008 character(
*,SKG) ,
intent(in) :: vdia
5009 integer(IK) ,
intent(in) :: roff, coff
5010 type(dia_type) ,
intent(in) :: subset
5017 PURE module subroutine setMatInit_EXP_XXD_D2XXF_IK5(mat, subset, vdia, roff, coff)
5018#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5019 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XXF_IK5
5022 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5023 integer(IKG) ,
intent(in) :: vdia
5024 integer(IK) ,
intent(in) :: roff, coff
5025 type(dia_type) ,
intent(in) :: subset
5030 PURE module subroutine setMatInit_EXP_XXD_D2XXF_IK4(mat, subset, vdia, roff, coff)
5031#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5032 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XXF_IK4
5035 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5036 integer(IKG) ,
intent(in) :: vdia
5037 integer(IK) ,
intent(in) :: roff, coff
5038 type(dia_type) ,
intent(in) :: subset
5043 PURE module subroutine setMatInit_EXP_XXD_D2XXF_IK3(mat, subset, vdia, roff, coff)
5044#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5045 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XXF_IK3
5048 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5049 integer(IKG) ,
intent(in) :: vdia
5050 integer(IK) ,
intent(in) :: roff, coff
5051 type(dia_type) ,
intent(in) :: subset
5056 PURE module subroutine setMatInit_EXP_XXD_D2XXF_IK2(mat, subset, vdia, roff, coff)
5057#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5058 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XXF_IK2
5061 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5062 integer(IKG) ,
intent(in) :: vdia
5063 integer(IK) ,
intent(in) :: roff, coff
5064 type(dia_type) ,
intent(in) :: subset
5069 PURE module subroutine setMatInit_EXP_XXD_D2XXF_IK1(mat, subset, vdia, roff, coff)
5070#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5071 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XXF_IK1
5074 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5075 integer(IKG) ,
intent(in) :: vdia
5076 integer(IK) ,
intent(in) :: roff, coff
5077 type(dia_type) ,
intent(in) :: subset
5084 PURE module subroutine setMatInit_EXP_XXD_D2XXF_LK5(mat, subset, vdia, roff, coff)
5085#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5086 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XXF_LK5
5089 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5090 logical(LKG) ,
intent(in) :: vdia
5091 integer(IK) ,
intent(in) :: roff, coff
5092 type(dia_type) ,
intent(in) :: subset
5097 PURE module subroutine setMatInit_EXP_XXD_D2XXF_LK4(mat, subset, vdia, roff, coff)
5098#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5099 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XXF_LK4
5102 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5103 logical(LKG) ,
intent(in) :: vdia
5104 integer(IK) ,
intent(in) :: roff, coff
5105 type(dia_type) ,
intent(in) :: subset
5110 PURE module subroutine setMatInit_EXP_XXD_D2XXF_LK3(mat, subset, vdia, roff, coff)
5111#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5112 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XXF_LK3
5115 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5116 logical(LKG) ,
intent(in) :: vdia
5117 integer(IK) ,
intent(in) :: roff, coff
5118 type(dia_type) ,
intent(in) :: subset
5123 PURE module subroutine setMatInit_EXP_XXD_D2XXF_LK2(mat, subset, vdia, roff, coff)
5124#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5125 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XXF_LK2
5128 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5129 logical(LKG) ,
intent(in) :: vdia
5130 integer(IK) ,
intent(in) :: roff, coff
5131 type(dia_type) ,
intent(in) :: subset
5136 PURE module subroutine setMatInit_EXP_XXD_D2XXF_LK1(mat, subset, vdia, roff, coff)
5137#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5138 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XXF_LK1
5141 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5142 logical(LKG) ,
intent(in) :: vdia
5143 integer(IK) ,
intent(in) :: roff, coff
5144 type(dia_type) ,
intent(in) :: subset
5151 PURE module subroutine setMatInit_EXP_XXD_D2XXF_CK5(mat, subset, vdia, roff, coff)
5152#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5153 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XXF_CK5
5156 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5157 complex(CKG) ,
intent(in) :: vdia
5158 integer(IK) ,
intent(in) :: roff, coff
5159 type(dia_type) ,
intent(in) :: subset
5164 PURE module subroutine setMatInit_EXP_XXD_D2XXF_CK4(mat, subset, vdia, roff, coff)
5165#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5166 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XXF_CK4
5169 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5170 complex(CKG) ,
intent(in) :: vdia
5171 integer(IK) ,
intent(in) :: roff, coff
5172 type(dia_type) ,
intent(in) :: subset
5177 PURE module subroutine setMatInit_EXP_XXD_D2XXF_CK3(mat, subset, vdia, roff, coff)
5178#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5179 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XXF_CK3
5182 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5183 complex(CKG) ,
intent(in) :: vdia
5184 integer(IK) ,
intent(in) :: roff, coff
5185 type(dia_type) ,
intent(in) :: subset
5190 PURE module subroutine setMatInit_EXP_XXD_D2XXF_CK2(mat, subset, vdia, roff, coff)
5191#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5192 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XXF_CK2
5195 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5196 complex(CKG) ,
intent(in) :: vdia
5197 integer(IK) ,
intent(in) :: roff, coff
5198 type(dia_type) ,
intent(in) :: subset
5203 PURE module subroutine setMatInit_EXP_XXD_D2XXF_CK1(mat, subset, vdia, roff, coff)
5204#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5205 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XXF_CK1
5208 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5209 complex(CKG) ,
intent(in) :: vdia
5210 integer(IK) ,
intent(in) :: roff, coff
5211 type(dia_type) ,
intent(in) :: subset
5218 PURE module subroutine setMatInit_EXP_XXD_D2XXF_RK5(mat, subset, vdia, roff, coff)
5219#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5220 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XXF_RK5
5223 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5224 real(RKG) ,
intent(in) :: vdia
5225 integer(IK) ,
intent(in) :: roff, coff
5226 type(dia_type) ,
intent(in) :: subset
5231 PURE module subroutine setMatInit_EXP_XXD_D2XXF_RK4(mat, subset, vdia, roff, coff)
5232#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5233 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XXF_RK4
5236 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5237 real(RKG) ,
intent(in) :: vdia
5238 integer(IK) ,
intent(in) :: roff, coff
5239 type(dia_type) ,
intent(in) :: subset
5244 PURE module subroutine setMatInit_EXP_XXD_D2XXF_RK3(mat, subset, vdia, roff, coff)
5245#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5246 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XXF_RK3
5249 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5250 real(RKG) ,
intent(in) :: vdia
5251 integer(IK) ,
intent(in) :: roff, coff
5252 type(dia_type) ,
intent(in) :: subset
5257 PURE module subroutine setMatInit_EXP_XXD_D2XXF_RK2(mat, subset, vdia, roff, coff)
5258#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5259 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XXF_RK2
5262 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5263 real(RKG) ,
intent(in) :: vdia
5264 integer(IK) ,
intent(in) :: roff, coff
5265 type(dia_type) ,
intent(in) :: subset
5270 PURE module subroutine setMatInit_EXP_XXD_D2XXF_RK1(mat, subset, vdia, roff, coff)
5271#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5272 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XXF_RK1
5275 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5276 real(RKG) ,
intent(in) :: vdia
5277 integer(IK) ,
intent(in) :: roff, coff
5278 type(dia_type) ,
intent(in) :: subset
5291 PURE module subroutine setMatInit_EXP_XXD_D2XX0_SK5(mat, subset, vdia, ndia, roff, coff)
5292#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5293 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XX0_SK5
5296 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5297 character(
*,SKG) ,
intent(in) :: vdia
5298 integer(IK) ,
intent(in) :: ndia
5299 integer(IK) ,
intent(in) :: roff, coff
5300 type(dia_type) ,
intent(in) :: subset
5305 PURE module subroutine setMatInit_EXP_XXD_D2XX0_SK4(mat, subset, vdia, ndia, roff, coff)
5306#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5307 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XX0_SK4
5310 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5311 character(
*,SKG) ,
intent(in) :: vdia
5312 integer(IK) ,
intent(in) :: ndia
5313 integer(IK) ,
intent(in) :: roff, coff
5314 type(dia_type) ,
intent(in) :: subset
5319 PURE module subroutine setMatInit_EXP_XXD_D2XX0_SK3(mat, subset, vdia, ndia, roff, coff)
5320#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5321 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XX0_SK3
5324 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5325 character(
*,SKG) ,
intent(in) :: vdia
5326 integer(IK) ,
intent(in) :: ndia
5327 integer(IK) ,
intent(in) :: roff, coff
5328 type(dia_type) ,
intent(in) :: subset
5333 PURE module subroutine setMatInit_EXP_XXD_D2XX0_SK2(mat, subset, vdia, ndia, roff, coff)
5334#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5335 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XX0_SK2
5338 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5339 character(
*,SKG) ,
intent(in) :: vdia
5340 integer(IK) ,
intent(in) :: ndia
5341 integer(IK) ,
intent(in) :: roff, coff
5342 type(dia_type) ,
intent(in) :: subset
5347 PURE module subroutine setMatInit_EXP_XXD_D2XX0_SK1(mat, subset, vdia, ndia, roff, coff)
5348#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5349 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XX0_SK1
5352 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5353 character(
*,SKG) ,
intent(in) :: vdia
5354 integer(IK) ,
intent(in) :: ndia
5355 integer(IK) ,
intent(in) :: roff, coff
5356 type(dia_type) ,
intent(in) :: subset
5363 PURE module subroutine setMatInit_EXP_XXD_D2XX0_IK5(mat, subset, vdia, ndia, roff, coff)
5364#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5365 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XX0_IK5
5368 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5369 integer(IKG) ,
intent(in) :: vdia
5370 integer(IK) ,
intent(in) :: ndia
5371 integer(IK) ,
intent(in) :: roff, coff
5372 type(dia_type) ,
intent(in) :: subset
5377 PURE module subroutine setMatInit_EXP_XXD_D2XX0_IK4(mat, subset, vdia, ndia, roff, coff)
5378#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5379 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XX0_IK4
5382 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5383 integer(IKG) ,
intent(in) :: vdia
5384 integer(IK) ,
intent(in) :: ndia
5385 integer(IK) ,
intent(in) :: roff, coff
5386 type(dia_type) ,
intent(in) :: subset
5391 PURE module subroutine setMatInit_EXP_XXD_D2XX0_IK3(mat, subset, vdia, ndia, roff, coff)
5392#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5393 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XX0_IK3
5396 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5397 integer(IKG) ,
intent(in) :: vdia
5398 integer(IK) ,
intent(in) :: ndia
5399 integer(IK) ,
intent(in) :: roff, coff
5400 type(dia_type) ,
intent(in) :: subset
5405 PURE module subroutine setMatInit_EXP_XXD_D2XX0_IK2(mat, subset, vdia, ndia, roff, coff)
5406#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5407 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XX0_IK2
5410 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5411 integer(IKG) ,
intent(in) :: vdia
5412 integer(IK) ,
intent(in) :: ndia
5413 integer(IK) ,
intent(in) :: roff, coff
5414 type(dia_type) ,
intent(in) :: subset
5419 PURE module subroutine setMatInit_EXP_XXD_D2XX0_IK1(mat, subset, vdia, ndia, roff, coff)
5420#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5421 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XX0_IK1
5424 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5425 integer(IKG) ,
intent(in) :: vdia
5426 integer(IK) ,
intent(in) :: ndia
5427 integer(IK) ,
intent(in) :: roff, coff
5428 type(dia_type) ,
intent(in) :: subset
5435 PURE module subroutine setMatInit_EXP_XXD_D2XX0_LK5(mat, subset, vdia, ndia, roff, coff)
5436#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5437 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XX0_LK5
5440 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5441 logical(LKG) ,
intent(in) :: vdia
5442 integer(IK) ,
intent(in) :: ndia
5443 integer(IK) ,
intent(in) :: roff, coff
5444 type(dia_type) ,
intent(in) :: subset
5449 PURE module subroutine setMatInit_EXP_XXD_D2XX0_LK4(mat, subset, vdia, ndia, roff, coff)
5450#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5451 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XX0_LK4
5454 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5455 logical(LKG) ,
intent(in) :: vdia
5456 integer(IK) ,
intent(in) :: ndia
5457 integer(IK) ,
intent(in) :: roff, coff
5458 type(dia_type) ,
intent(in) :: subset
5463 PURE module subroutine setMatInit_EXP_XXD_D2XX0_LK3(mat, subset, vdia, ndia, roff, coff)
5464#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5465 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XX0_LK3
5468 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5469 logical(LKG) ,
intent(in) :: vdia
5470 integer(IK) ,
intent(in) :: ndia
5471 integer(IK) ,
intent(in) :: roff, coff
5472 type(dia_type) ,
intent(in) :: subset
5477 PURE module subroutine setMatInit_EXP_XXD_D2XX0_LK2(mat, subset, vdia, ndia, roff, coff)
5478#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5479 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XX0_LK2
5482 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5483 logical(LKG) ,
intent(in) :: vdia
5484 integer(IK) ,
intent(in) :: ndia
5485 integer(IK) ,
intent(in) :: roff, coff
5486 type(dia_type) ,
intent(in) :: subset
5491 PURE module subroutine setMatInit_EXP_XXD_D2XX0_LK1(mat, subset, vdia, ndia, roff, coff)
5492#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5493 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XX0_LK1
5496 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5497 logical(LKG) ,
intent(in) :: vdia
5498 integer(IK) ,
intent(in) :: ndia
5499 integer(IK) ,
intent(in) :: roff, coff
5500 type(dia_type) ,
intent(in) :: subset
5507 PURE module subroutine setMatInit_EXP_XXD_D2XX0_CK5(mat, subset, vdia, ndia, roff, coff)
5508#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5509 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XX0_CK5
5512 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5513 complex(CKG) ,
intent(in) :: vdia
5514 integer(IK) ,
intent(in) :: ndia
5515 integer(IK) ,
intent(in) :: roff, coff
5516 type(dia_type) ,
intent(in) :: subset
5521 PURE module subroutine setMatInit_EXP_XXD_D2XX0_CK4(mat, subset, vdia, ndia, roff, coff)
5522#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5523 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XX0_CK4
5526 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5527 complex(CKG) ,
intent(in) :: vdia
5528 integer(IK) ,
intent(in) :: ndia
5529 integer(IK) ,
intent(in) :: roff, coff
5530 type(dia_type) ,
intent(in) :: subset
5535 PURE module subroutine setMatInit_EXP_XXD_D2XX0_CK3(mat, subset, vdia, ndia, roff, coff)
5536#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5537 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XX0_CK3
5540 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5541 complex(CKG) ,
intent(in) :: vdia
5542 integer(IK) ,
intent(in) :: ndia
5543 integer(IK) ,
intent(in) :: roff, coff
5544 type(dia_type) ,
intent(in) :: subset
5549 PURE module subroutine setMatInit_EXP_XXD_D2XX0_CK2(mat, subset, vdia, ndia, roff, coff)
5550#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5551 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XX0_CK2
5554 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5555 complex(CKG) ,
intent(in) :: vdia
5556 integer(IK) ,
intent(in) :: ndia
5557 integer(IK) ,
intent(in) :: roff, coff
5558 type(dia_type) ,
intent(in) :: subset
5563 PURE module subroutine setMatInit_EXP_XXD_D2XX0_CK1(mat, subset, vdia, ndia, roff, coff)
5564#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5565 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XX0_CK1
5568 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5569 complex(CKG) ,
intent(in) :: vdia
5570 integer(IK) ,
intent(in) :: ndia
5571 integer(IK) ,
intent(in) :: roff, coff
5572 type(dia_type) ,
intent(in) :: subset
5579 PURE module subroutine setMatInit_EXP_XXD_D2XX0_RK5(mat, subset, vdia, ndia, roff, coff)
5580#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5581 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XX0_RK5
5584 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5585 real(RKG) ,
intent(in) :: vdia
5586 integer(IK) ,
intent(in) :: ndia
5587 integer(IK) ,
intent(in) :: roff, coff
5588 type(dia_type) ,
intent(in) :: subset
5593 PURE module subroutine setMatInit_EXP_XXD_D2XX0_RK4(mat, subset, vdia, ndia, roff, coff)
5594#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5595 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XX0_RK4
5598 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5599 real(RKG) ,
intent(in) :: vdia
5600 integer(IK) ,
intent(in) :: ndia
5601 integer(IK) ,
intent(in) :: roff, coff
5602 type(dia_type) ,
intent(in) :: subset
5607 PURE module subroutine setMatInit_EXP_XXD_D2XX0_RK3(mat, subset, vdia, ndia, roff, coff)
5608#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5609 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XX0_RK3
5612 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5613 real(RKG) ,
intent(in) :: vdia
5614 integer(IK) ,
intent(in) :: ndia
5615 integer(IK) ,
intent(in) :: roff, coff
5616 type(dia_type) ,
intent(in) :: subset
5621 PURE module subroutine setMatInit_EXP_XXD_D2XX0_RK2(mat, subset, vdia, ndia, roff, coff)
5622#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5623 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XX0_RK2
5626 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5627 real(RKG) ,
intent(in) :: vdia
5628 integer(IK) ,
intent(in) :: ndia
5629 integer(IK) ,
intent(in) :: roff, coff
5630 type(dia_type) ,
intent(in) :: subset
5635 PURE module subroutine setMatInit_EXP_XXD_D2XX0_RK1(mat, subset, vdia, ndia, roff, coff)
5636#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5637 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XX0_RK1
5640 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5641 real(RKG) ,
intent(in) :: vdia
5642 integer(IK) ,
intent(in) :: ndia
5643 integer(IK) ,
intent(in) :: roff, coff
5644 type(dia_type) ,
intent(in) :: subset
5657 PURE module subroutine setMatInit_EXP_XXD_D2XX1_SK5(mat, subset, vdia, roff, coff)
5658#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5659 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XX1_SK5
5662 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5663 character(
*,SKG) ,
intent(in) ,
contiguous :: vdia(:)
5664 integer(IK) ,
intent(in) :: roff, coff
5665 type(dia_type) ,
intent(in) :: subset
5670 PURE module subroutine setMatInit_EXP_XXD_D2XX1_SK4(mat, subset, vdia, roff, coff)
5671#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5672 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XX1_SK4
5675 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5676 character(
*,SKG) ,
intent(in) ,
contiguous :: vdia(:)
5677 integer(IK) ,
intent(in) :: roff, coff
5678 type(dia_type) ,
intent(in) :: subset
5683 PURE module subroutine setMatInit_EXP_XXD_D2XX1_SK3(mat, subset, vdia, roff, coff)
5684#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5685 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XX1_SK3
5688 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5689 character(
*,SKG) ,
intent(in) ,
contiguous :: vdia(:)
5690 integer(IK) ,
intent(in) :: roff, coff
5691 type(dia_type) ,
intent(in) :: subset
5696 PURE module subroutine setMatInit_EXP_XXD_D2XX1_SK2(mat, subset, vdia, roff, coff)
5697#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5698 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XX1_SK2
5701 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5702 character(
*,SKG) ,
intent(in) ,
contiguous :: vdia(:)
5703 integer(IK) ,
intent(in) :: roff, coff
5704 type(dia_type) ,
intent(in) :: subset
5709 PURE module subroutine setMatInit_EXP_XXD_D2XX1_SK1(mat, subset, vdia, roff, coff)
5710#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5711 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XX1_SK1
5714 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5715 character(
*,SKG) ,
intent(in) ,
contiguous :: vdia(:)
5716 integer(IK) ,
intent(in) :: roff, coff
5717 type(dia_type) ,
intent(in) :: subset
5724 PURE module subroutine setMatInit_EXP_XXD_D2XX1_IK5(mat, subset, vdia, roff, coff)
5725#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5726 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XX1_IK5
5729 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5730 integer(IKG) ,
intent(in) ,
contiguous :: vdia(:)
5731 integer(IK) ,
intent(in) :: roff, coff
5732 type(dia_type) ,
intent(in) :: subset
5737 PURE module subroutine setMatInit_EXP_XXD_D2XX1_IK4(mat, subset, vdia, roff, coff)
5738#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5739 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XX1_IK4
5742 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5743 integer(IKG) ,
intent(in) ,
contiguous :: vdia(:)
5744 integer(IK) ,
intent(in) :: roff, coff
5745 type(dia_type) ,
intent(in) :: subset
5750 PURE module subroutine setMatInit_EXP_XXD_D2XX1_IK3(mat, subset, vdia, roff, coff)
5751#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5752 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XX1_IK3
5755 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5756 integer(IKG) ,
intent(in) ,
contiguous :: vdia(:)
5757 integer(IK) ,
intent(in) :: roff, coff
5758 type(dia_type) ,
intent(in) :: subset
5763 PURE module subroutine setMatInit_EXP_XXD_D2XX1_IK2(mat, subset, vdia, roff, coff)
5764#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5765 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XX1_IK2
5768 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5769 integer(IKG) ,
intent(in) ,
contiguous :: vdia(:)
5770 integer(IK) ,
intent(in) :: roff, coff
5771 type(dia_type) ,
intent(in) :: subset
5776 PURE module subroutine setMatInit_EXP_XXD_D2XX1_IK1(mat, subset, vdia, roff, coff)
5777#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5778 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XX1_IK1
5781 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5782 integer(IKG) ,
intent(in) ,
contiguous :: vdia(:)
5783 integer(IK) ,
intent(in) :: roff, coff
5784 type(dia_type) ,
intent(in) :: subset
5791 PURE module subroutine setMatInit_EXP_XXD_D2XX1_LK5(mat, subset, vdia, roff, coff)
5792#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5793 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XX1_LK5
5796 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5797 logical(LKG) ,
intent(in) ,
contiguous :: vdia(:)
5798 integer(IK) ,
intent(in) :: roff, coff
5799 type(dia_type) ,
intent(in) :: subset
5804 PURE module subroutine setMatInit_EXP_XXD_D2XX1_LK4(mat, subset, vdia, roff, coff)
5805#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5806 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XX1_LK4
5809 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5810 logical(LKG) ,
intent(in) ,
contiguous :: vdia(:)
5811 integer(IK) ,
intent(in) :: roff, coff
5812 type(dia_type) ,
intent(in) :: subset
5817 PURE module subroutine setMatInit_EXP_XXD_D2XX1_LK3(mat, subset, vdia, roff, coff)
5818#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5819 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XX1_LK3
5822 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5823 logical(LKG) ,
intent(in) ,
contiguous :: vdia(:)
5824 integer(IK) ,
intent(in) :: roff, coff
5825 type(dia_type) ,
intent(in) :: subset
5830 PURE module subroutine setMatInit_EXP_XXD_D2XX1_LK2(mat, subset, vdia, roff, coff)
5831#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5832 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XX1_LK2
5835 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5836 logical(LKG) ,
intent(in) ,
contiguous :: vdia(:)
5837 integer(IK) ,
intent(in) :: roff, coff
5838 type(dia_type) ,
intent(in) :: subset
5843 PURE module subroutine setMatInit_EXP_XXD_D2XX1_LK1(mat, subset, vdia, roff, coff)
5844#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5845 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XX1_LK1
5848 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5849 logical(LKG) ,
intent(in) ,
contiguous :: vdia(:)
5850 integer(IK) ,
intent(in) :: roff, coff
5851 type(dia_type) ,
intent(in) :: subset
5858 PURE module subroutine setMatInit_EXP_XXD_D2XX1_CK5(mat, subset, vdia, roff, coff)
5859#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5860 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XX1_CK5
5863 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5864 complex(CKG) ,
intent(in) ,
contiguous :: vdia(:)
5865 integer(IK) ,
intent(in) :: roff, coff
5866 type(dia_type) ,
intent(in) :: subset
5871 PURE module subroutine setMatInit_EXP_XXD_D2XX1_CK4(mat, subset, vdia, roff, coff)
5872#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5873 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XX1_CK4
5876 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5877 complex(CKG) ,
intent(in) ,
contiguous :: vdia(:)
5878 integer(IK) ,
intent(in) :: roff, coff
5879 type(dia_type) ,
intent(in) :: subset
5884 PURE module subroutine setMatInit_EXP_XXD_D2XX1_CK3(mat, subset, vdia, roff, coff)
5885#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5886 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XX1_CK3
5889 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5890 complex(CKG) ,
intent(in) ,
contiguous :: vdia(:)
5891 integer(IK) ,
intent(in) :: roff, coff
5892 type(dia_type) ,
intent(in) :: subset
5897 PURE module subroutine setMatInit_EXP_XXD_D2XX1_CK2(mat, subset, vdia, roff, coff)
5898#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5899 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XX1_CK2
5902 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5903 complex(CKG) ,
intent(in) ,
contiguous :: vdia(:)
5904 integer(IK) ,
intent(in) :: roff, coff
5905 type(dia_type) ,
intent(in) :: subset
5910 PURE module subroutine setMatInit_EXP_XXD_D2XX1_CK1(mat, subset, vdia, roff, coff)
5911#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5912 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XX1_CK1
5915 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5916 complex(CKG) ,
intent(in) ,
contiguous :: vdia(:)
5917 integer(IK) ,
intent(in) :: roff, coff
5918 type(dia_type) ,
intent(in) :: subset
5925 PURE module subroutine setMatInit_EXP_XXD_D2XX1_RK5(mat, subset, vdia, roff, coff)
5926#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5927 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XX1_RK5
5930 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5931 real(RKG) ,
intent(in) ,
contiguous :: vdia(:)
5932 integer(IK) ,
intent(in) :: roff, coff
5933 type(dia_type) ,
intent(in) :: subset
5938 PURE module subroutine setMatInit_EXP_XXD_D2XX1_RK4(mat, subset, vdia, roff, coff)
5939#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5940 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XX1_RK4
5943 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5944 real(RKG) ,
intent(in) ,
contiguous :: vdia(:)
5945 integer(IK) ,
intent(in) :: roff, coff
5946 type(dia_type) ,
intent(in) :: subset
5951 PURE module subroutine setMatInit_EXP_XXD_D2XX1_RK3(mat, subset, vdia, roff, coff)
5952#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5953 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XX1_RK3
5956 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5957 real(RKG) ,
intent(in) ,
contiguous :: vdia(:)
5958 integer(IK) ,
intent(in) :: roff, coff
5959 type(dia_type) ,
intent(in) :: subset
5964 PURE module subroutine setMatInit_EXP_XXD_D2XX1_RK2(mat, subset, vdia, roff, coff)
5965#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5966 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XX1_RK2
5969 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5970 real(RKG) ,
intent(in) ,
contiguous :: vdia(:)
5971 integer(IK) ,
intent(in) :: roff, coff
5972 type(dia_type) ,
intent(in) :: subset
5977 PURE module subroutine setMatInit_EXP_XXD_D2XX1_RK1(mat, subset, vdia, roff, coff)
5978#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5979 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XXD_D2XX1_RK1
5982 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
5983 real(RKG) ,
intent(in) ,
contiguous :: vdia(:)
5984 integer(IK) ,
intent(in) :: roff, coff
5985 type(dia_type) ,
intent(in) :: subset
6008 PURE module subroutine setMatInit_EXP_XLD_D2X00_SK5(mat, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
6009#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6010 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLD_D2X00_SK5
6013 integer(IK) ,
intent(in) ,
optional :: doff
6014 integer(IK) ,
intent(in) :: nrow, ncol
6015 integer(IK) ,
intent(in) :: roff, coff
6016 type(lowDia_type) ,
intent(in) :: subset
6017 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6018 character(
*,SKG) ,
intent(in) :: vlow
6019 character(
*,SKG) ,
intent(in) :: vdia
6024 PURE module subroutine setMatInit_EXP_XLD_D2X00_SK4(mat, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
6025#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6026 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLD_D2X00_SK4
6029 integer(IK) ,
intent(in) ,
optional :: doff
6030 integer(IK) ,
intent(in) :: nrow, ncol
6031 integer(IK) ,
intent(in) :: roff, coff
6032 type(lowDia_type) ,
intent(in) :: subset
6033 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6034 character(
*,SKG) ,
intent(in) :: vlow
6035 character(
*,SKG) ,
intent(in) :: vdia
6040 PURE module subroutine setMatInit_EXP_XLD_D2X00_SK3(mat, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
6041#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6042 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLD_D2X00_SK3
6045 integer(IK) ,
intent(in) ,
optional :: doff
6046 integer(IK) ,
intent(in) :: nrow, ncol
6047 integer(IK) ,
intent(in) :: roff, coff
6048 type(lowDia_type) ,
intent(in) :: subset
6049 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6050 character(
*,SKG) ,
intent(in) :: vlow
6051 character(
*,SKG) ,
intent(in) :: vdia
6056 PURE module subroutine setMatInit_EXP_XLD_D2X00_SK2(mat, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
6057#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6058 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLD_D2X00_SK2
6061 integer(IK) ,
intent(in) ,
optional :: doff
6062 integer(IK) ,
intent(in) :: nrow, ncol
6063 integer(IK) ,
intent(in) :: roff, coff
6064 type(lowDia_type) ,
intent(in) :: subset
6065 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6066 character(
*,SKG) ,
intent(in) :: vlow
6067 character(
*,SKG) ,
intent(in) :: vdia
6072 PURE module subroutine setMatInit_EXP_XLD_D2X00_SK1(mat, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
6073#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6074 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLD_D2X00_SK1
6077 integer(IK) ,
intent(in) ,
optional :: doff
6078 integer(IK) ,
intent(in) :: nrow, ncol
6079 integer(IK) ,
intent(in) :: roff, coff
6080 type(lowDia_type) ,
intent(in) :: subset
6081 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6082 character(
*,SKG) ,
intent(in) :: vlow
6083 character(
*,SKG) ,
intent(in) :: vdia
6090 PURE module subroutine setMatInit_EXP_XLD_D2X00_IK5(mat, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
6091#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6092 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLD_D2X00_IK5
6095 integer(IK) ,
intent(in) ,
optional :: doff
6096 integer(IK) ,
intent(in) :: nrow, ncol
6097 integer(IK) ,
intent(in) :: roff, coff
6098 type(lowDia_type) ,
intent(in) :: subset
6099 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6100 integer(IKG) ,
intent(in) :: vlow
6101 integer(IKG) ,
intent(in) :: vdia
6106 PURE module subroutine setMatInit_EXP_XLD_D2X00_IK4(mat, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
6107#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6108 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLD_D2X00_IK4
6111 integer(IK) ,
intent(in) ,
optional :: doff
6112 integer(IK) ,
intent(in) :: nrow, ncol
6113 integer(IK) ,
intent(in) :: roff, coff
6114 type(lowDia_type) ,
intent(in) :: subset
6115 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6116 integer(IKG) ,
intent(in) :: vlow
6117 integer(IKG) ,
intent(in) :: vdia
6122 PURE module subroutine setMatInit_EXP_XLD_D2X00_IK3(mat, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
6123#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6124 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLD_D2X00_IK3
6127 integer(IK) ,
intent(in) ,
optional :: doff
6128 integer(IK) ,
intent(in) :: nrow, ncol
6129 integer(IK) ,
intent(in) :: roff, coff
6130 type(lowDia_type) ,
intent(in) :: subset
6131 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6132 integer(IKG) ,
intent(in) :: vlow
6133 integer(IKG) ,
intent(in) :: vdia
6138 PURE module subroutine setMatInit_EXP_XLD_D2X00_IK2(mat, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
6139#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6140 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLD_D2X00_IK2
6143 integer(IK) ,
intent(in) ,
optional :: doff
6144 integer(IK) ,
intent(in) :: nrow, ncol
6145 integer(IK) ,
intent(in) :: roff, coff
6146 type(lowDia_type) ,
intent(in) :: subset
6147 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6148 integer(IKG) ,
intent(in) :: vlow
6149 integer(IKG) ,
intent(in) :: vdia
6154 PURE module subroutine setMatInit_EXP_XLD_D2X00_IK1(mat, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
6155#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6156 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLD_D2X00_IK1
6159 integer(IK) ,
intent(in) ,
optional :: doff
6160 integer(IK) ,
intent(in) :: nrow, ncol
6161 integer(IK) ,
intent(in) :: roff, coff
6162 type(lowDia_type) ,
intent(in) :: subset
6163 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6164 integer(IKG) ,
intent(in) :: vlow
6165 integer(IKG) ,
intent(in) :: vdia
6172 PURE module subroutine setMatInit_EXP_XLD_D2X00_LK5(mat, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
6173#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6174 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLD_D2X00_LK5
6177 integer(IK) ,
intent(in) ,
optional :: doff
6178 integer(IK) ,
intent(in) :: nrow, ncol
6179 integer(IK) ,
intent(in) :: roff, coff
6180 type(lowDia_type) ,
intent(in) :: subset
6181 logical(LKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6182 logical(LKG) ,
intent(in) :: vlow
6183 logical(LKG) ,
intent(in) :: vdia
6188 PURE module subroutine setMatInit_EXP_XLD_D2X00_LK4(mat, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
6189#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6190 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLD_D2X00_LK4
6193 integer(IK) ,
intent(in) ,
optional :: doff
6194 integer(IK) ,
intent(in) :: nrow, ncol
6195 integer(IK) ,
intent(in) :: roff, coff
6196 type(lowDia_type) ,
intent(in) :: subset
6197 logical(LKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6198 logical(LKG) ,
intent(in) :: vlow
6199 logical(LKG) ,
intent(in) :: vdia
6204 PURE module subroutine setMatInit_EXP_XLD_D2X00_LK3(mat, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
6205#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6206 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLD_D2X00_LK3
6209 integer(IK) ,
intent(in) ,
optional :: doff
6210 integer(IK) ,
intent(in) :: nrow, ncol
6211 integer(IK) ,
intent(in) :: roff, coff
6212 type(lowDia_type) ,
intent(in) :: subset
6213 logical(LKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6214 logical(LKG) ,
intent(in) :: vlow
6215 logical(LKG) ,
intent(in) :: vdia
6220 PURE module subroutine setMatInit_EXP_XLD_D2X00_LK2(mat, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
6221#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6222 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLD_D2X00_LK2
6225 integer(IK) ,
intent(in) ,
optional :: doff
6226 integer(IK) ,
intent(in) :: nrow, ncol
6227 integer(IK) ,
intent(in) :: roff, coff
6228 type(lowDia_type) ,
intent(in) :: subset
6229 logical(LKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6230 logical(LKG) ,
intent(in) :: vlow
6231 logical(LKG) ,
intent(in) :: vdia
6236 PURE module subroutine setMatInit_EXP_XLD_D2X00_LK1(mat, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
6237#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6238 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLD_D2X00_LK1
6241 integer(IK) ,
intent(in) ,
optional :: doff
6242 integer(IK) ,
intent(in) :: nrow, ncol
6243 integer(IK) ,
intent(in) :: roff, coff
6244 type(lowDia_type) ,
intent(in) :: subset
6245 logical(LKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6246 logical(LKG) ,
intent(in) :: vlow
6247 logical(LKG) ,
intent(in) :: vdia
6254 PURE module subroutine setMatInit_EXP_XLD_D2X00_CK5(mat, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
6255#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6256 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLD_D2X00_CK5
6259 integer(IK) ,
intent(in) ,
optional :: doff
6260 integer(IK) ,
intent(in) :: nrow, ncol
6261 integer(IK) ,
intent(in) :: roff, coff
6262 type(lowDia_type) ,
intent(in) :: subset
6263 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6264 complex(CKG) ,
intent(in) :: vlow
6265 complex(CKG) ,
intent(in) :: vdia
6270 PURE module subroutine setMatInit_EXP_XLD_D2X00_CK4(mat, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
6271#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6272 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLD_D2X00_CK4
6275 integer(IK) ,
intent(in) ,
optional :: doff
6276 integer(IK) ,
intent(in) :: nrow, ncol
6277 integer(IK) ,
intent(in) :: roff, coff
6278 type(lowDia_type) ,
intent(in) :: subset
6279 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6280 complex(CKG) ,
intent(in) :: vlow
6281 complex(CKG) ,
intent(in) :: vdia
6286 PURE module subroutine setMatInit_EXP_XLD_D2X00_CK3(mat, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
6287#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6288 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLD_D2X00_CK3
6291 integer(IK) ,
intent(in) ,
optional :: doff
6292 integer(IK) ,
intent(in) :: nrow, ncol
6293 integer(IK) ,
intent(in) :: roff, coff
6294 type(lowDia_type) ,
intent(in) :: subset
6295 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6296 complex(CKG) ,
intent(in) :: vlow
6297 complex(CKG) ,
intent(in) :: vdia
6302 PURE module subroutine setMatInit_EXP_XLD_D2X00_CK2(mat, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
6303#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6304 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLD_D2X00_CK2
6307 integer(IK) ,
intent(in) ,
optional :: doff
6308 integer(IK) ,
intent(in) :: nrow, ncol
6309 integer(IK) ,
intent(in) :: roff, coff
6310 type(lowDia_type) ,
intent(in) :: subset
6311 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6312 complex(CKG) ,
intent(in) :: vlow
6313 complex(CKG) ,
intent(in) :: vdia
6318 PURE module subroutine setMatInit_EXP_XLD_D2X00_CK1(mat, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
6319#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6320 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLD_D2X00_CK1
6323 integer(IK) ,
intent(in) ,
optional :: doff
6324 integer(IK) ,
intent(in) :: nrow, ncol
6325 integer(IK) ,
intent(in) :: roff, coff
6326 type(lowDia_type) ,
intent(in) :: subset
6327 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6328 complex(CKG) ,
intent(in) :: vlow
6329 complex(CKG) ,
intent(in) :: vdia
6336 PURE module subroutine setMatInit_EXP_XLD_D2X00_RK5(mat, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
6337#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6338 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLD_D2X00_RK5
6341 integer(IK) ,
intent(in) ,
optional :: doff
6342 integer(IK) ,
intent(in) :: nrow, ncol
6343 integer(IK) ,
intent(in) :: roff, coff
6344 type(lowDia_type) ,
intent(in) :: subset
6345 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6346 real(RKG) ,
intent(in) :: vlow
6347 real(RKG) ,
intent(in) :: vdia
6352 PURE module subroutine setMatInit_EXP_XLD_D2X00_RK4(mat, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
6353#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6354 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLD_D2X00_RK4
6357 integer(IK) ,
intent(in) ,
optional :: doff
6358 integer(IK) ,
intent(in) :: nrow, ncol
6359 integer(IK) ,
intent(in) :: roff, coff
6360 type(lowDia_type) ,
intent(in) :: subset
6361 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6362 real(RKG) ,
intent(in) :: vlow
6363 real(RKG) ,
intent(in) :: vdia
6368 PURE module subroutine setMatInit_EXP_XLD_D2X00_RK3(mat, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
6369#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6370 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLD_D2X00_RK3
6373 integer(IK) ,
intent(in) ,
optional :: doff
6374 integer(IK) ,
intent(in) :: nrow, ncol
6375 integer(IK) ,
intent(in) :: roff, coff
6376 type(lowDia_type) ,
intent(in) :: subset
6377 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6378 real(RKG) ,
intent(in) :: vlow
6379 real(RKG) ,
intent(in) :: vdia
6384 PURE module subroutine setMatInit_EXP_XLD_D2X00_RK2(mat, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
6385#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6386 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLD_D2X00_RK2
6389 integer(IK) ,
intent(in) ,
optional :: doff
6390 integer(IK) ,
intent(in) :: nrow, ncol
6391 integer(IK) ,
intent(in) :: roff, coff
6392 type(lowDia_type) ,
intent(in) :: subset
6393 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6394 real(RKG) ,
intent(in) :: vlow
6395 real(RKG) ,
intent(in) :: vdia
6400 PURE module subroutine setMatInit_EXP_XLD_D2X00_RK1(mat, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
6401#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6402 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLD_D2X00_RK1
6405 integer(IK) ,
intent(in) ,
optional :: doff
6406 integer(IK) ,
intent(in) :: nrow, ncol
6407 integer(IK) ,
intent(in) :: roff, coff
6408 type(lowDia_type) ,
intent(in) :: subset
6409 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6410 real(RKG) ,
intent(in) :: vlow
6411 real(RKG) ,
intent(in) :: vdia
6424 PURE module subroutine setMatInit_EXP_XLD_D2X01_SK5(mat, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
6425#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6426 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLD_D2X01_SK5
6429 integer(IK) ,
intent(in) ,
optional :: doff
6430 integer(IK) ,
intent(in) :: nrow, ncol
6431 integer(IK) ,
intent(in) :: roff, coff
6432 type(lowDia_type) ,
intent(in) :: subset
6433 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6434 character(
*,SKG) ,
intent(in) ,
contiguous :: vdia(:)
6435 character(
*,SKG) ,
intent(in) :: vlow
6440 PURE module subroutine setMatInit_EXP_XLD_D2X01_SK4(mat, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
6441#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6442 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLD_D2X01_SK4
6445 integer(IK) ,
intent(in) ,
optional :: doff
6446 integer(IK) ,
intent(in) :: nrow, ncol
6447 integer(IK) ,
intent(in) :: roff, coff
6448 type(lowDia_type) ,
intent(in) :: subset
6449 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6450 character(
*,SKG) ,
intent(in) ,
contiguous :: vdia(:)
6451 character(
*,SKG) ,
intent(in) :: vlow
6456 PURE module subroutine setMatInit_EXP_XLD_D2X01_SK3(mat, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
6457#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6458 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLD_D2X01_SK3
6461 integer(IK) ,
intent(in) ,
optional :: doff
6462 integer(IK) ,
intent(in) :: nrow, ncol
6463 integer(IK) ,
intent(in) :: roff, coff
6464 type(lowDia_type) ,
intent(in) :: subset
6465 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6466 character(
*,SKG) ,
intent(in) ,
contiguous :: vdia(:)
6467 character(
*,SKG) ,
intent(in) :: vlow
6472 PURE module subroutine setMatInit_EXP_XLD_D2X01_SK2(mat, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
6473#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6474 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLD_D2X01_SK2
6477 integer(IK) ,
intent(in) ,
optional :: doff
6478 integer(IK) ,
intent(in) :: nrow, ncol
6479 integer(IK) ,
intent(in) :: roff, coff
6480 type(lowDia_type) ,
intent(in) :: subset
6481 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6482 character(
*,SKG) ,
intent(in) ,
contiguous :: vdia(:)
6483 character(
*,SKG) ,
intent(in) :: vlow
6488 PURE module subroutine setMatInit_EXP_XLD_D2X01_SK1(mat, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
6489#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6490 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLD_D2X01_SK1
6493 integer(IK) ,
intent(in) ,
optional :: doff
6494 integer(IK) ,
intent(in) :: nrow, ncol
6495 integer(IK) ,
intent(in) :: roff, coff
6496 type(lowDia_type) ,
intent(in) :: subset
6497 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6498 character(
*,SKG) ,
intent(in) ,
contiguous :: vdia(:)
6499 character(
*,SKG) ,
intent(in) :: vlow
6506 PURE module subroutine setMatInit_EXP_XLD_D2X01_IK5(mat, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
6507#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6508 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLD_D2X01_IK5
6511 integer(IK) ,
intent(in) ,
optional :: doff
6512 integer(IK) ,
intent(in) :: nrow, ncol
6513 integer(IK) ,
intent(in) :: roff, coff
6514 type(lowDia_type) ,
intent(in) :: subset
6515 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6516 integer(IKG) ,
intent(in) ,
contiguous :: vdia(:)
6517 integer(IKG) ,
intent(in) :: vlow
6522 PURE module subroutine setMatInit_EXP_XLD_D2X01_IK4(mat, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
6523#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6524 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLD_D2X01_IK4
6527 integer(IK) ,
intent(in) ,
optional :: doff
6528 integer(IK) ,
intent(in) :: nrow, ncol
6529 integer(IK) ,
intent(in) :: roff, coff
6530 type(lowDia_type) ,
intent(in) :: subset
6531 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6532 integer(IKG) ,
intent(in) ,
contiguous :: vdia(:)
6533 integer(IKG) ,
intent(in) :: vlow
6538 PURE module subroutine setMatInit_EXP_XLD_D2X01_IK3(mat, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
6539#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6540 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLD_D2X01_IK3
6543 integer(IK) ,
intent(in) ,
optional :: doff
6544 integer(IK) ,
intent(in) :: nrow, ncol
6545 integer(IK) ,
intent(in) :: roff, coff
6546 type(lowDia_type) ,
intent(in) :: subset
6547 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6548 integer(IKG) ,
intent(in) ,
contiguous :: vdia(:)
6549 integer(IKG) ,
intent(in) :: vlow
6554 PURE module subroutine setMatInit_EXP_XLD_D2X01_IK2(mat, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
6555#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6556 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLD_D2X01_IK2
6559 integer(IK) ,
intent(in) ,
optional :: doff
6560 integer(IK) ,
intent(in) :: nrow, ncol
6561 integer(IK) ,
intent(in) :: roff, coff
6562 type(lowDia_type) ,
intent(in) :: subset
6563 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6564 integer(IKG) ,
intent(in) ,
contiguous :: vdia(:)
6565 integer(IKG) ,
intent(in) :: vlow
6570 PURE module subroutine setMatInit_EXP_XLD_D2X01_IK1(mat, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
6571#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6572 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLD_D2X01_IK1
6575 integer(IK) ,
intent(in) ,
optional :: doff
6576 integer(IK) ,
intent(in) :: nrow, ncol
6577 integer(IK) ,
intent(in) :: roff, coff
6578 type(lowDia_type) ,
intent(in) :: subset
6579 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6580 integer(IKG) ,
intent(in) ,
contiguous :: vdia(:)
6581 integer(IKG) ,
intent(in) :: vlow
6588 PURE module subroutine setMatInit_EXP_XLD_D2X01_LK5(mat, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
6589#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6590 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLD_D2X01_LK5
6593 integer(IK) ,
intent(in) ,
optional :: doff
6594 integer(IK) ,
intent(in) :: nrow, ncol
6595 integer(IK) ,
intent(in) :: roff, coff
6596 type(lowDia_type) ,
intent(in) :: subset
6597 logical(LKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6598 logical(LKG) ,
intent(in) ,
contiguous :: vdia(:)
6599 logical(LKG) ,
intent(in) :: vlow
6604 PURE module subroutine setMatInit_EXP_XLD_D2X01_LK4(mat, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
6605#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6606 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLD_D2X01_LK4
6609 integer(IK) ,
intent(in) ,
optional :: doff
6610 integer(IK) ,
intent(in) :: nrow, ncol
6611 integer(IK) ,
intent(in) :: roff, coff
6612 type(lowDia_type) ,
intent(in) :: subset
6613 logical(LKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6614 logical(LKG) ,
intent(in) ,
contiguous :: vdia(:)
6615 logical(LKG) ,
intent(in) :: vlow
6620 PURE module subroutine setMatInit_EXP_XLD_D2X01_LK3(mat, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
6621#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6622 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLD_D2X01_LK3
6625 integer(IK) ,
intent(in) ,
optional :: doff
6626 integer(IK) ,
intent(in) :: nrow, ncol
6627 integer(IK) ,
intent(in) :: roff, coff
6628 type(lowDia_type) ,
intent(in) :: subset
6629 logical(LKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6630 logical(LKG) ,
intent(in) ,
contiguous :: vdia(:)
6631 logical(LKG) ,
intent(in) :: vlow
6636 PURE module subroutine setMatInit_EXP_XLD_D2X01_LK2(mat, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
6637#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6638 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLD_D2X01_LK2
6641 integer(IK) ,
intent(in) ,
optional :: doff
6642 integer(IK) ,
intent(in) :: nrow, ncol
6643 integer(IK) ,
intent(in) :: roff, coff
6644 type(lowDia_type) ,
intent(in) :: subset
6645 logical(LKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6646 logical(LKG) ,
intent(in) ,
contiguous :: vdia(:)
6647 logical(LKG) ,
intent(in) :: vlow
6652 PURE module subroutine setMatInit_EXP_XLD_D2X01_LK1(mat, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
6653#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6654 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLD_D2X01_LK1
6657 integer(IK) ,
intent(in) ,
optional :: doff
6658 integer(IK) ,
intent(in) :: nrow, ncol
6659 integer(IK) ,
intent(in) :: roff, coff
6660 type(lowDia_type) ,
intent(in) :: subset
6661 logical(LKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6662 logical(LKG) ,
intent(in) ,
contiguous :: vdia(:)
6663 logical(LKG) ,
intent(in) :: vlow
6670 PURE module subroutine setMatInit_EXP_XLD_D2X01_CK5(mat, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
6671#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6672 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLD_D2X01_CK5
6675 integer(IK) ,
intent(in) ,
optional :: doff
6676 integer(IK) ,
intent(in) :: nrow, ncol
6677 integer(IK) ,
intent(in) :: roff, coff
6678 type(lowDia_type) ,
intent(in) :: subset
6679 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6680 complex(CKG) ,
intent(in) ,
contiguous :: vdia(:)
6681 complex(CKG) ,
intent(in) :: vlow
6686 PURE module subroutine setMatInit_EXP_XLD_D2X01_CK4(mat, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
6687#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6688 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLD_D2X01_CK4
6691 integer(IK) ,
intent(in) ,
optional :: doff
6692 integer(IK) ,
intent(in) :: nrow, ncol
6693 integer(IK) ,
intent(in) :: roff, coff
6694 type(lowDia_type) ,
intent(in) :: subset
6695 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6696 complex(CKG) ,
intent(in) ,
contiguous :: vdia(:)
6697 complex(CKG) ,
intent(in) :: vlow
6702 PURE module subroutine setMatInit_EXP_XLD_D2X01_CK3(mat, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
6703#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6704 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLD_D2X01_CK3
6707 integer(IK) ,
intent(in) ,
optional :: doff
6708 integer(IK) ,
intent(in) :: nrow, ncol
6709 integer(IK) ,
intent(in) :: roff, coff
6710 type(lowDia_type) ,
intent(in) :: subset
6711 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6712 complex(CKG) ,
intent(in) ,
contiguous :: vdia(:)
6713 complex(CKG) ,
intent(in) :: vlow
6718 PURE module subroutine setMatInit_EXP_XLD_D2X01_CK2(mat, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
6719#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6720 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLD_D2X01_CK2
6723 integer(IK) ,
intent(in) ,
optional :: doff
6724 integer(IK) ,
intent(in) :: nrow, ncol
6725 integer(IK) ,
intent(in) :: roff, coff
6726 type(lowDia_type) ,
intent(in) :: subset
6727 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6728 complex(CKG) ,
intent(in) ,
contiguous :: vdia(:)
6729 complex(CKG) ,
intent(in) :: vlow
6734 PURE module subroutine setMatInit_EXP_XLD_D2X01_CK1(mat, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
6735#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6736 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLD_D2X01_CK1
6739 integer(IK) ,
intent(in) ,
optional :: doff
6740 integer(IK) ,
intent(in) :: nrow, ncol
6741 integer(IK) ,
intent(in) :: roff, coff
6742 type(lowDia_type) ,
intent(in) :: subset
6743 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6744 complex(CKG) ,
intent(in) ,
contiguous :: vdia(:)
6745 complex(CKG) ,
intent(in) :: vlow
6752 PURE module subroutine setMatInit_EXP_XLD_D2X01_RK5(mat, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
6753#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6754 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLD_D2X01_RK5
6757 integer(IK) ,
intent(in) ,
optional :: doff
6758 integer(IK) ,
intent(in) :: nrow, ncol
6759 integer(IK) ,
intent(in) :: roff, coff
6760 type(lowDia_type) ,
intent(in) :: subset
6761 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6762 real(RKG) ,
intent(in) ,
contiguous :: vdia(:)
6763 real(RKG) ,
intent(in) :: vlow
6768 PURE module subroutine setMatInit_EXP_XLD_D2X01_RK4(mat, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
6769#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6770 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLD_D2X01_RK4
6773 integer(IK) ,
intent(in) ,
optional :: doff
6774 integer(IK) ,
intent(in) :: nrow, ncol
6775 integer(IK) ,
intent(in) :: roff, coff
6776 type(lowDia_type) ,
intent(in) :: subset
6777 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6778 real(RKG) ,
intent(in) ,
contiguous :: vdia(:)
6779 real(RKG) ,
intent(in) :: vlow
6784 PURE module subroutine setMatInit_EXP_XLD_D2X01_RK3(mat, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
6785#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6786 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLD_D2X01_RK3
6789 integer(IK) ,
intent(in) ,
optional :: doff
6790 integer(IK) ,
intent(in) :: nrow, ncol
6791 integer(IK) ,
intent(in) :: roff, coff
6792 type(lowDia_type) ,
intent(in) :: subset
6793 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6794 real(RKG) ,
intent(in) ,
contiguous :: vdia(:)
6795 real(RKG) ,
intent(in) :: vlow
6800 PURE module subroutine setMatInit_EXP_XLD_D2X01_RK2(mat, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
6801#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6802 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLD_D2X01_RK2
6805 integer(IK) ,
intent(in) ,
optional :: doff
6806 integer(IK) ,
intent(in) :: nrow, ncol
6807 integer(IK) ,
intent(in) :: roff, coff
6808 type(lowDia_type) ,
intent(in) :: subset
6809 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6810 real(RKG) ,
intent(in) ,
contiguous :: vdia(:)
6811 real(RKG) ,
intent(in) :: vlow
6816 PURE module subroutine setMatInit_EXP_XLD_D2X01_RK1(mat, subset, vlow, vdia, nrow, ncol, roff, coff, doff)
6817#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6818 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_XLD_D2X01_RK1
6821 integer(IK) ,
intent(in) ,
optional :: doff
6822 integer(IK) ,
intent(in) :: nrow, ncol
6823 integer(IK) ,
intent(in) :: roff, coff
6824 type(lowDia_type) ,
intent(in) :: subset
6825 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6826 real(RKG) ,
intent(in) ,
contiguous :: vdia(:)
6827 real(RKG) ,
intent(in) :: vlow
6850 PURE module subroutine setMatInit_EXP_UXD_D20X0_SK5(mat, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
6851#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6852 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXD_D20X0_SK5
6855 integer(IK) ,
intent(in) ,
optional :: doff
6856 integer(IK) ,
intent(in) :: nrow, ncol
6857 integer(IK) ,
intent(in) :: roff, coff
6858 type(uppDia_type) ,
intent(in) :: subset
6859 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6860 character(
*,SKG) ,
intent(in) :: vupp
6861 character(
*,SKG) ,
intent(in) :: vdia
6866 PURE module subroutine setMatInit_EXP_UXD_D20X0_SK4(mat, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
6867#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6868 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXD_D20X0_SK4
6871 integer(IK) ,
intent(in) ,
optional :: doff
6872 integer(IK) ,
intent(in) :: nrow, ncol
6873 integer(IK) ,
intent(in) :: roff, coff
6874 type(uppDia_type) ,
intent(in) :: subset
6875 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6876 character(
*,SKG) ,
intent(in) :: vupp
6877 character(
*,SKG) ,
intent(in) :: vdia
6882 PURE module subroutine setMatInit_EXP_UXD_D20X0_SK3(mat, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
6883#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6884 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXD_D20X0_SK3
6887 integer(IK) ,
intent(in) ,
optional :: doff
6888 integer(IK) ,
intent(in) :: nrow, ncol
6889 integer(IK) ,
intent(in) :: roff, coff
6890 type(uppDia_type) ,
intent(in) :: subset
6891 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6892 character(
*,SKG) ,
intent(in) :: vupp
6893 character(
*,SKG) ,
intent(in) :: vdia
6898 PURE module subroutine setMatInit_EXP_UXD_D20X0_SK2(mat, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
6899#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6900 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXD_D20X0_SK2
6903 integer(IK) ,
intent(in) ,
optional :: doff
6904 integer(IK) ,
intent(in) :: nrow, ncol
6905 integer(IK) ,
intent(in) :: roff, coff
6906 type(uppDia_type) ,
intent(in) :: subset
6907 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6908 character(
*,SKG) ,
intent(in) :: vupp
6909 character(
*,SKG) ,
intent(in) :: vdia
6914 PURE module subroutine setMatInit_EXP_UXD_D20X0_SK1(mat, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
6915#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6916 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXD_D20X0_SK1
6919 integer(IK) ,
intent(in) ,
optional :: doff
6920 integer(IK) ,
intent(in) :: nrow, ncol
6921 integer(IK) ,
intent(in) :: roff, coff
6922 type(uppDia_type) ,
intent(in) :: subset
6923 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6924 character(
*,SKG) ,
intent(in) :: vupp
6925 character(
*,SKG) ,
intent(in) :: vdia
6932 PURE module subroutine setMatInit_EXP_UXD_D20X0_IK5(mat, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
6933#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6934 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXD_D20X0_IK5
6937 integer(IK) ,
intent(in) ,
optional :: doff
6938 integer(IK) ,
intent(in) :: nrow, ncol
6939 integer(IK) ,
intent(in) :: roff, coff
6940 type(uppDia_type) ,
intent(in) :: subset
6941 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6942 integer(IKG) ,
intent(in) :: vupp
6943 integer(IKG) ,
intent(in) :: vdia
6948 PURE module subroutine setMatInit_EXP_UXD_D20X0_IK4(mat, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
6949#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6950 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXD_D20X0_IK4
6953 integer(IK) ,
intent(in) ,
optional :: doff
6954 integer(IK) ,
intent(in) :: nrow, ncol
6955 integer(IK) ,
intent(in) :: roff, coff
6956 type(uppDia_type) ,
intent(in) :: subset
6957 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6958 integer(IKG) ,
intent(in) :: vupp
6959 integer(IKG) ,
intent(in) :: vdia
6964 PURE module subroutine setMatInit_EXP_UXD_D20X0_IK3(mat, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
6965#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6966 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXD_D20X0_IK3
6969 integer(IK) ,
intent(in) ,
optional :: doff
6970 integer(IK) ,
intent(in) :: nrow, ncol
6971 integer(IK) ,
intent(in) :: roff, coff
6972 type(uppDia_type) ,
intent(in) :: subset
6973 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6974 integer(IKG) ,
intent(in) :: vupp
6975 integer(IKG) ,
intent(in) :: vdia
6980 PURE module subroutine setMatInit_EXP_UXD_D20X0_IK2(mat, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
6981#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6982 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXD_D20X0_IK2
6985 integer(IK) ,
intent(in) ,
optional :: doff
6986 integer(IK) ,
intent(in) :: nrow, ncol
6987 integer(IK) ,
intent(in) :: roff, coff
6988 type(uppDia_type) ,
intent(in) :: subset
6989 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6990 integer(IKG) ,
intent(in) :: vupp
6991 integer(IKG) ,
intent(in) :: vdia
6996 PURE module subroutine setMatInit_EXP_UXD_D20X0_IK1(mat, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
6997#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6998 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXD_D20X0_IK1
7001 integer(IK) ,
intent(in) ,
optional :: doff
7002 integer(IK) ,
intent(in) :: nrow, ncol
7003 integer(IK) ,
intent(in) :: roff, coff
7004 type(uppDia_type) ,
intent(in) :: subset
7005 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7006 integer(IKG) ,
intent(in) :: vupp
7007 integer(IKG) ,
intent(in) :: vdia
7014 PURE module subroutine setMatInit_EXP_UXD_D20X0_LK5(mat, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
7015#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7016 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXD_D20X0_LK5
7019 integer(IK) ,
intent(in) ,
optional :: doff
7020 integer(IK) ,
intent(in) :: nrow, ncol
7021 integer(IK) ,
intent(in) :: roff, coff
7022 type(uppDia_type) ,
intent(in) :: subset
7023 logical(LKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7024 logical(LKG) ,
intent(in) :: vupp
7025 logical(LKG) ,
intent(in) :: vdia
7030 PURE module subroutine setMatInit_EXP_UXD_D20X0_LK4(mat, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
7031#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7032 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXD_D20X0_LK4
7035 integer(IK) ,
intent(in) ,
optional :: doff
7036 integer(IK) ,
intent(in) :: nrow, ncol
7037 integer(IK) ,
intent(in) :: roff, coff
7038 type(uppDia_type) ,
intent(in) :: subset
7039 logical(LKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7040 logical(LKG) ,
intent(in) :: vupp
7041 logical(LKG) ,
intent(in) :: vdia
7046 PURE module subroutine setMatInit_EXP_UXD_D20X0_LK3(mat, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
7047#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7048 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXD_D20X0_LK3
7051 integer(IK) ,
intent(in) ,
optional :: doff
7052 integer(IK) ,
intent(in) :: nrow, ncol
7053 integer(IK) ,
intent(in) :: roff, coff
7054 type(uppDia_type) ,
intent(in) :: subset
7055 logical(LKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7056 logical(LKG) ,
intent(in) :: vupp
7057 logical(LKG) ,
intent(in) :: vdia
7062 PURE module subroutine setMatInit_EXP_UXD_D20X0_LK2(mat, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
7063#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7064 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXD_D20X0_LK2
7067 integer(IK) ,
intent(in) ,
optional :: doff
7068 integer(IK) ,
intent(in) :: nrow, ncol
7069 integer(IK) ,
intent(in) :: roff, coff
7070 type(uppDia_type) ,
intent(in) :: subset
7071 logical(LKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7072 logical(LKG) ,
intent(in) :: vupp
7073 logical(LKG) ,
intent(in) :: vdia
7078 PURE module subroutine setMatInit_EXP_UXD_D20X0_LK1(mat, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
7079#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7080 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXD_D20X0_LK1
7083 integer(IK) ,
intent(in) ,
optional :: doff
7084 integer(IK) ,
intent(in) :: nrow, ncol
7085 integer(IK) ,
intent(in) :: roff, coff
7086 type(uppDia_type) ,
intent(in) :: subset
7087 logical(LKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7088 logical(LKG) ,
intent(in) :: vupp
7089 logical(LKG) ,
intent(in) :: vdia
7096 PURE module subroutine setMatInit_EXP_UXD_D20X0_CK5(mat, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
7097#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7098 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXD_D20X0_CK5
7101 integer(IK) ,
intent(in) ,
optional :: doff
7102 integer(IK) ,
intent(in) :: nrow, ncol
7103 integer(IK) ,
intent(in) :: roff, coff
7104 type(uppDia_type) ,
intent(in) :: subset
7105 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7106 complex(CKG) ,
intent(in) :: vupp
7107 complex(CKG) ,
intent(in) :: vdia
7112 PURE module subroutine setMatInit_EXP_UXD_D20X0_CK4(mat, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
7113#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7114 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXD_D20X0_CK4
7117 integer(IK) ,
intent(in) ,
optional :: doff
7118 integer(IK) ,
intent(in) :: nrow, ncol
7119 integer(IK) ,
intent(in) :: roff, coff
7120 type(uppDia_type) ,
intent(in) :: subset
7121 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7122 complex(CKG) ,
intent(in) :: vupp
7123 complex(CKG) ,
intent(in) :: vdia
7128 PURE module subroutine setMatInit_EXP_UXD_D20X0_CK3(mat, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
7129#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7130 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXD_D20X0_CK3
7133 integer(IK) ,
intent(in) ,
optional :: doff
7134 integer(IK) ,
intent(in) :: nrow, ncol
7135 integer(IK) ,
intent(in) :: roff, coff
7136 type(uppDia_type) ,
intent(in) :: subset
7137 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7138 complex(CKG) ,
intent(in) :: vupp
7139 complex(CKG) ,
intent(in) :: vdia
7144 PURE module subroutine setMatInit_EXP_UXD_D20X0_CK2(mat, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
7145#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7146 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXD_D20X0_CK2
7149 integer(IK) ,
intent(in) ,
optional :: doff
7150 integer(IK) ,
intent(in) :: nrow, ncol
7151 integer(IK) ,
intent(in) :: roff, coff
7152 type(uppDia_type) ,
intent(in) :: subset
7153 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7154 complex(CKG) ,
intent(in) :: vupp
7155 complex(CKG) ,
intent(in) :: vdia
7160 PURE module subroutine setMatInit_EXP_UXD_D20X0_CK1(mat, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
7161#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7162 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXD_D20X0_CK1
7165 integer(IK) ,
intent(in) ,
optional :: doff
7166 integer(IK) ,
intent(in) :: nrow, ncol
7167 integer(IK) ,
intent(in) :: roff, coff
7168 type(uppDia_type) ,
intent(in) :: subset
7169 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7170 complex(CKG) ,
intent(in) :: vupp
7171 complex(CKG) ,
intent(in) :: vdia
7178 PURE module subroutine setMatInit_EXP_UXD_D20X0_RK5(mat, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
7179#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7180 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXD_D20X0_RK5
7183 integer(IK) ,
intent(in) ,
optional :: doff
7184 integer(IK) ,
intent(in) :: nrow, ncol
7185 integer(IK) ,
intent(in) :: roff, coff
7186 type(uppDia_type) ,
intent(in) :: subset
7187 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7188 real(RKG) ,
intent(in) :: vupp
7189 real(RKG) ,
intent(in) :: vdia
7194 PURE module subroutine setMatInit_EXP_UXD_D20X0_RK4(mat, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
7195#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7196 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXD_D20X0_RK4
7199 integer(IK) ,
intent(in) ,
optional :: doff
7200 integer(IK) ,
intent(in) :: nrow, ncol
7201 integer(IK) ,
intent(in) :: roff, coff
7202 type(uppDia_type) ,
intent(in) :: subset
7203 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7204 real(RKG) ,
intent(in) :: vupp
7205 real(RKG) ,
intent(in) :: vdia
7210 PURE module subroutine setMatInit_EXP_UXD_D20X0_RK3(mat, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
7211#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7212 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXD_D20X0_RK3
7215 integer(IK) ,
intent(in) ,
optional :: doff
7216 integer(IK) ,
intent(in) :: nrow, ncol
7217 integer(IK) ,
intent(in) :: roff, coff
7218 type(uppDia_type) ,
intent(in) :: subset
7219 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7220 real(RKG) ,
intent(in) :: vupp
7221 real(RKG) ,
intent(in) :: vdia
7226 PURE module subroutine setMatInit_EXP_UXD_D20X0_RK2(mat, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
7227#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7228 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXD_D20X0_RK2
7231 integer(IK) ,
intent(in) ,
optional :: doff
7232 integer(IK) ,
intent(in) :: nrow, ncol
7233 integer(IK) ,
intent(in) :: roff, coff
7234 type(uppDia_type) ,
intent(in) :: subset
7235 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7236 real(RKG) ,
intent(in) :: vupp
7237 real(RKG) ,
intent(in) :: vdia
7242 PURE module subroutine setMatInit_EXP_UXD_D20X0_RK1(mat, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
7243#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7244 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXD_D20X0_RK1
7247 integer(IK) ,
intent(in) ,
optional :: doff
7248 integer(IK) ,
intent(in) :: nrow, ncol
7249 integer(IK) ,
intent(in) :: roff, coff
7250 type(uppDia_type) ,
intent(in) :: subset
7251 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7252 real(RKG) ,
intent(in) :: vupp
7253 real(RKG) ,
intent(in) :: vdia
7266 PURE module subroutine setMatInit_EXP_UXD_D20X1_SK5(mat, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
7267#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7268 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXD_D20X1_SK5
7271 integer(IK) ,
intent(in) ,
optional :: doff
7272 integer(IK) ,
intent(in) :: nrow, ncol
7273 integer(IK) ,
intent(in) :: roff, coff
7274 type(uppDia_type) ,
intent(in) :: subset
7275 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7276 character(
*,SKG) ,
intent(in) ,
contiguous :: vdia(:)
7277 character(
*,SKG) ,
intent(in) :: vupp
7282 PURE module subroutine setMatInit_EXP_UXD_D20X1_SK4(mat, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
7283#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7284 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXD_D20X1_SK4
7287 integer(IK) ,
intent(in) ,
optional :: doff
7288 integer(IK) ,
intent(in) :: nrow, ncol
7289 integer(IK) ,
intent(in) :: roff, coff
7290 type(uppDia_type) ,
intent(in) :: subset
7291 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7292 character(
*,SKG) ,
intent(in) ,
contiguous :: vdia(:)
7293 character(
*,SKG) ,
intent(in) :: vupp
7298 PURE module subroutine setMatInit_EXP_UXD_D20X1_SK3(mat, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
7299#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7300 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXD_D20X1_SK3
7303 integer(IK) ,
intent(in) ,
optional :: doff
7304 integer(IK) ,
intent(in) :: nrow, ncol
7305 integer(IK) ,
intent(in) :: roff, coff
7306 type(uppDia_type) ,
intent(in) :: subset
7307 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7308 character(
*,SKG) ,
intent(in) ,
contiguous :: vdia(:)
7309 character(
*,SKG) ,
intent(in) :: vupp
7314 PURE module subroutine setMatInit_EXP_UXD_D20X1_SK2(mat, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
7315#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7316 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXD_D20X1_SK2
7319 integer(IK) ,
intent(in) ,
optional :: doff
7320 integer(IK) ,
intent(in) :: nrow, ncol
7321 integer(IK) ,
intent(in) :: roff, coff
7322 type(uppDia_type) ,
intent(in) :: subset
7323 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7324 character(
*,SKG) ,
intent(in) ,
contiguous :: vdia(:)
7325 character(
*,SKG) ,
intent(in) :: vupp
7330 PURE module subroutine setMatInit_EXP_UXD_D20X1_SK1(mat, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
7331#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7332 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXD_D20X1_SK1
7335 integer(IK) ,
intent(in) ,
optional :: doff
7336 integer(IK) ,
intent(in) :: nrow, ncol
7337 integer(IK) ,
intent(in) :: roff, coff
7338 type(uppDia_type) ,
intent(in) :: subset
7339 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7340 character(
*,SKG) ,
intent(in) ,
contiguous :: vdia(:)
7341 character(
*,SKG) ,
intent(in) :: vupp
7348 PURE module subroutine setMatInit_EXP_UXD_D20X1_IK5(mat, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
7349#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7350 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXD_D20X1_IK5
7353 integer(IK) ,
intent(in) ,
optional :: doff
7354 integer(IK) ,
intent(in) :: nrow, ncol
7355 integer(IK) ,
intent(in) :: roff, coff
7356 type(uppDia_type) ,
intent(in) :: subset
7357 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7358 integer(IKG) ,
intent(in) ,
contiguous :: vdia(:)
7359 integer(IKG) ,
intent(in) :: vupp
7364 PURE module subroutine setMatInit_EXP_UXD_D20X1_IK4(mat, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
7365#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7366 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXD_D20X1_IK4
7369 integer(IK) ,
intent(in) ,
optional :: doff
7370 integer(IK) ,
intent(in) :: nrow, ncol
7371 integer(IK) ,
intent(in) :: roff, coff
7372 type(uppDia_type) ,
intent(in) :: subset
7373 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7374 integer(IKG) ,
intent(in) ,
contiguous :: vdia(:)
7375 integer(IKG) ,
intent(in) :: vupp
7380 PURE module subroutine setMatInit_EXP_UXD_D20X1_IK3(mat, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
7381#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7382 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXD_D20X1_IK3
7385 integer(IK) ,
intent(in) ,
optional :: doff
7386 integer(IK) ,
intent(in) :: nrow, ncol
7387 integer(IK) ,
intent(in) :: roff, coff
7388 type(uppDia_type) ,
intent(in) :: subset
7389 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7390 integer(IKG) ,
intent(in) ,
contiguous :: vdia(:)
7391 integer(IKG) ,
intent(in) :: vupp
7396 PURE module subroutine setMatInit_EXP_UXD_D20X1_IK2(mat, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
7397#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7398 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXD_D20X1_IK2
7401 integer(IK) ,
intent(in) ,
optional :: doff
7402 integer(IK) ,
intent(in) :: nrow, ncol
7403 integer(IK) ,
intent(in) :: roff, coff
7404 type(uppDia_type) ,
intent(in) :: subset
7405 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7406 integer(IKG) ,
intent(in) ,
contiguous :: vdia(:)
7407 integer(IKG) ,
intent(in) :: vupp
7412 PURE module subroutine setMatInit_EXP_UXD_D20X1_IK1(mat, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
7413#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7414 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXD_D20X1_IK1
7417 integer(IK) ,
intent(in) ,
optional :: doff
7418 integer(IK) ,
intent(in) :: nrow, ncol
7419 integer(IK) ,
intent(in) :: roff, coff
7420 type(uppDia_type) ,
intent(in) :: subset
7421 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7422 integer(IKG) ,
intent(in) ,
contiguous :: vdia(:)
7423 integer(IKG) ,
intent(in) :: vupp
7430 PURE module subroutine setMatInit_EXP_UXD_D20X1_LK5(mat, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
7431#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7432 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXD_D20X1_LK5
7435 integer(IK) ,
intent(in) ,
optional :: doff
7436 integer(IK) ,
intent(in) :: nrow, ncol
7437 integer(IK) ,
intent(in) :: roff, coff
7438 type(uppDia_type) ,
intent(in) :: subset
7439 logical(LKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7440 logical(LKG) ,
intent(in) ,
contiguous :: vdia(:)
7441 logical(LKG) ,
intent(in) :: vupp
7446 PURE module subroutine setMatInit_EXP_UXD_D20X1_LK4(mat, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
7447#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7448 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXD_D20X1_LK4
7451 integer(IK) ,
intent(in) ,
optional :: doff
7452 integer(IK) ,
intent(in) :: nrow, ncol
7453 integer(IK) ,
intent(in) :: roff, coff
7454 type(uppDia_type) ,
intent(in) :: subset
7455 logical(LKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7456 logical(LKG) ,
intent(in) ,
contiguous :: vdia(:)
7457 logical(LKG) ,
intent(in) :: vupp
7462 PURE module subroutine setMatInit_EXP_UXD_D20X1_LK3(mat, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
7463#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7464 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXD_D20X1_LK3
7467 integer(IK) ,
intent(in) ,
optional :: doff
7468 integer(IK) ,
intent(in) :: nrow, ncol
7469 integer(IK) ,
intent(in) :: roff, coff
7470 type(uppDia_type) ,
intent(in) :: subset
7471 logical(LKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7472 logical(LKG) ,
intent(in) ,
contiguous :: vdia(:)
7473 logical(LKG) ,
intent(in) :: vupp
7478 PURE module subroutine setMatInit_EXP_UXD_D20X1_LK2(mat, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
7479#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7480 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXD_D20X1_LK2
7483 integer(IK) ,
intent(in) ,
optional :: doff
7484 integer(IK) ,
intent(in) :: nrow, ncol
7485 integer(IK) ,
intent(in) :: roff, coff
7486 type(uppDia_type) ,
intent(in) :: subset
7487 logical(LKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7488 logical(LKG) ,
intent(in) ,
contiguous :: vdia(:)
7489 logical(LKG) ,
intent(in) :: vupp
7494 PURE module subroutine setMatInit_EXP_UXD_D20X1_LK1(mat, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
7495#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7496 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXD_D20X1_LK1
7499 integer(IK) ,
intent(in) ,
optional :: doff
7500 integer(IK) ,
intent(in) :: nrow, ncol
7501 integer(IK) ,
intent(in) :: roff, coff
7502 type(uppDia_type) ,
intent(in) :: subset
7503 logical(LKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7504 logical(LKG) ,
intent(in) ,
contiguous :: vdia(:)
7505 logical(LKG) ,
intent(in) :: vupp
7512 PURE module subroutine setMatInit_EXP_UXD_D20X1_CK5(mat, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
7513#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7514 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXD_D20X1_CK5
7517 integer(IK) ,
intent(in) ,
optional :: doff
7518 integer(IK) ,
intent(in) :: nrow, ncol
7519 integer(IK) ,
intent(in) :: roff, coff
7520 type(uppDia_type) ,
intent(in) :: subset
7521 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7522 complex(CKG) ,
intent(in) ,
contiguous :: vdia(:)
7523 complex(CKG) ,
intent(in) :: vupp
7528 PURE module subroutine setMatInit_EXP_UXD_D20X1_CK4(mat, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
7529#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7530 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXD_D20X1_CK4
7533 integer(IK) ,
intent(in) ,
optional :: doff
7534 integer(IK) ,
intent(in) :: nrow, ncol
7535 integer(IK) ,
intent(in) :: roff, coff
7536 type(uppDia_type) ,
intent(in) :: subset
7537 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7538 complex(CKG) ,
intent(in) ,
contiguous :: vdia(:)
7539 complex(CKG) ,
intent(in) :: vupp
7544 PURE module subroutine setMatInit_EXP_UXD_D20X1_CK3(mat, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
7545#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7546 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXD_D20X1_CK3
7549 integer(IK) ,
intent(in) ,
optional :: doff
7550 integer(IK) ,
intent(in) :: nrow, ncol
7551 integer(IK) ,
intent(in) :: roff, coff
7552 type(uppDia_type) ,
intent(in) :: subset
7553 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7554 complex(CKG) ,
intent(in) ,
contiguous :: vdia(:)
7555 complex(CKG) ,
intent(in) :: vupp
7560 PURE module subroutine setMatInit_EXP_UXD_D20X1_CK2(mat, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
7561#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7562 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXD_D20X1_CK2
7565 integer(IK) ,
intent(in) ,
optional :: doff
7566 integer(IK) ,
intent(in) :: nrow, ncol
7567 integer(IK) ,
intent(in) :: roff, coff
7568 type(uppDia_type) ,
intent(in) :: subset
7569 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7570 complex(CKG) ,
intent(in) ,
contiguous :: vdia(:)
7571 complex(CKG) ,
intent(in) :: vupp
7576 PURE module subroutine setMatInit_EXP_UXD_D20X1_CK1(mat, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
7577#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7578 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXD_D20X1_CK1
7581 integer(IK) ,
intent(in) ,
optional :: doff
7582 integer(IK) ,
intent(in) :: nrow, ncol
7583 integer(IK) ,
intent(in) :: roff, coff
7584 type(uppDia_type) ,
intent(in) :: subset
7585 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7586 complex(CKG) ,
intent(in) ,
contiguous :: vdia(:)
7587 complex(CKG) ,
intent(in) :: vupp
7594 PURE module subroutine setMatInit_EXP_UXD_D20X1_RK5(mat, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
7595#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7596 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXD_D20X1_RK5
7599 integer(IK) ,
intent(in) ,
optional :: doff
7600 integer(IK) ,
intent(in) :: nrow, ncol
7601 integer(IK) ,
intent(in) :: roff, coff
7602 type(uppDia_type) ,
intent(in) :: subset
7603 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7604 real(RKG) ,
intent(in) ,
contiguous :: vdia(:)
7605 real(RKG) ,
intent(in) :: vupp
7610 PURE module subroutine setMatInit_EXP_UXD_D20X1_RK4(mat, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
7611#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7612 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXD_D20X1_RK4
7615 integer(IK) ,
intent(in) ,
optional :: doff
7616 integer(IK) ,
intent(in) :: nrow, ncol
7617 integer(IK) ,
intent(in) :: roff, coff
7618 type(uppDia_type) ,
intent(in) :: subset
7619 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7620 real(RKG) ,
intent(in) ,
contiguous :: vdia(:)
7621 real(RKG) ,
intent(in) :: vupp
7626 PURE module subroutine setMatInit_EXP_UXD_D20X1_RK3(mat, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
7627#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7628 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXD_D20X1_RK3
7631 integer(IK) ,
intent(in) ,
optional :: doff
7632 integer(IK) ,
intent(in) :: nrow, ncol
7633 integer(IK) ,
intent(in) :: roff, coff
7634 type(uppDia_type) ,
intent(in) :: subset
7635 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7636 real(RKG) ,
intent(in) ,
contiguous :: vdia(:)
7637 real(RKG) ,
intent(in) :: vupp
7642 PURE module subroutine setMatInit_EXP_UXD_D20X1_RK2(mat, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
7643#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7644 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXD_D20X1_RK2
7647 integer(IK) ,
intent(in) ,
optional :: doff
7648 integer(IK) ,
intent(in) :: nrow, ncol
7649 integer(IK) ,
intent(in) :: roff, coff
7650 type(uppDia_type) ,
intent(in) :: subset
7651 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7652 real(RKG) ,
intent(in) ,
contiguous :: vdia(:)
7653 real(RKG) ,
intent(in) :: vupp
7658 PURE module subroutine setMatInit_EXP_UXD_D20X1_RK1(mat, subset, vupp, vdia, nrow, ncol, roff, coff, doff)
7659#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7660 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_UXD_D20X1_RK1
7663 integer(IK) ,
intent(in) ,
optional :: doff
7664 integer(IK) ,
intent(in) :: nrow, ncol
7665 integer(IK) ,
intent(in) :: roff, coff
7666 type(uppDia_type) ,
intent(in) :: subset
7667 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7668 real(RKG) ,
intent(in) ,
contiguous :: vdia(:)
7669 real(RKG) ,
intent(in) :: vupp
7692 PURE module subroutine setMatInit_EXP_ULX_D200X_SK5(mat, subset, vupp, vlow, nrow, ncol, roff, coff, doff)
7693#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7694 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULX_D200X_SK5
7697 integer(IK) ,
intent(in) ,
optional :: doff
7698 integer(IK) ,
intent(in) :: nrow, ncol
7699 integer(IK) ,
intent(in) :: roff, coff
7700 type(uppLow_type) ,
intent(in) :: subset
7701 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7702 character(
*,SKG) ,
intent(in) :: vupp, vlow
7707 PURE module subroutine setMatInit_EXP_ULX_D200X_SK4(mat, subset, vupp, vlow, nrow, ncol, roff, coff, doff)
7708#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7709 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULX_D200X_SK4
7712 integer(IK) ,
intent(in) ,
optional :: doff
7713 integer(IK) ,
intent(in) :: nrow, ncol
7714 integer(IK) ,
intent(in) :: roff, coff
7715 type(uppLow_type) ,
intent(in) :: subset
7716 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7717 character(
*,SKG) ,
intent(in) :: vupp, vlow
7722 PURE module subroutine setMatInit_EXP_ULX_D200X_SK3(mat, subset, vupp, vlow, nrow, ncol, roff, coff, doff)
7723#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7724 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULX_D200X_SK3
7727 integer(IK) ,
intent(in) ,
optional :: doff
7728 integer(IK) ,
intent(in) :: nrow, ncol
7729 integer(IK) ,
intent(in) :: roff, coff
7730 type(uppLow_type) ,
intent(in) :: subset
7731 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7732 character(
*,SKG) ,
intent(in) :: vupp, vlow
7737 PURE module subroutine setMatInit_EXP_ULX_D200X_SK2(mat, subset, vupp, vlow, nrow, ncol, roff, coff, doff)
7738#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7739 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULX_D200X_SK2
7742 integer(IK) ,
intent(in) ,
optional :: doff
7743 integer(IK) ,
intent(in) :: nrow, ncol
7744 integer(IK) ,
intent(in) :: roff, coff
7745 type(uppLow_type) ,
intent(in) :: subset
7746 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7747 character(
*,SKG) ,
intent(in) :: vupp, vlow
7752 PURE module subroutine setMatInit_EXP_ULX_D200X_SK1(mat, subset, vupp, vlow, nrow, ncol, roff, coff, doff)
7753#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7754 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULX_D200X_SK1
7757 integer(IK) ,
intent(in) ,
optional :: doff
7758 integer(IK) ,
intent(in) :: nrow, ncol
7759 integer(IK) ,
intent(in) :: roff, coff
7760 type(uppLow_type) ,
intent(in) :: subset
7761 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7762 character(
*,SKG) ,
intent(in) :: vupp, vlow
7769 PURE module subroutine setMatInit_EXP_ULX_D200X_IK5(mat, subset, vupp, vlow, nrow, ncol, roff, coff, doff)
7770#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7771 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULX_D200X_IK5
7774 integer(IK) ,
intent(in) ,
optional :: doff
7775 integer(IK) ,
intent(in) :: nrow, ncol
7776 integer(IK) ,
intent(in) :: roff, coff
7777 type(uppLow_type) ,
intent(in) :: subset
7778 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7779 integer(IKG) ,
intent(in) :: vupp, vlow
7784 PURE module subroutine setMatInit_EXP_ULX_D200X_IK4(mat, subset, vupp, vlow, nrow, ncol, roff, coff, doff)
7785#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7786 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULX_D200X_IK4
7789 integer(IK) ,
intent(in) ,
optional :: doff
7790 integer(IK) ,
intent(in) :: nrow, ncol
7791 integer(IK) ,
intent(in) :: roff, coff
7792 type(uppLow_type) ,
intent(in) :: subset
7793 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7794 integer(IKG) ,
intent(in) :: vupp, vlow
7799 PURE module subroutine setMatInit_EXP_ULX_D200X_IK3(mat, subset, vupp, vlow, nrow, ncol, roff, coff, doff)
7800#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7801 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULX_D200X_IK3
7804 integer(IK) ,
intent(in) ,
optional :: doff
7805 integer(IK) ,
intent(in) :: nrow, ncol
7806 integer(IK) ,
intent(in) :: roff, coff
7807 type(uppLow_type) ,
intent(in) :: subset
7808 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7809 integer(IKG) ,
intent(in) :: vupp, vlow
7814 PURE module subroutine setMatInit_EXP_ULX_D200X_IK2(mat, subset, vupp, vlow, nrow, ncol, roff, coff, doff)
7815#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7816 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULX_D200X_IK2
7819 integer(IK) ,
intent(in) ,
optional :: doff
7820 integer(IK) ,
intent(in) :: nrow, ncol
7821 integer(IK) ,
intent(in) :: roff, coff
7822 type(uppLow_type) ,
intent(in) :: subset
7823 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7824 integer(IKG) ,
intent(in) :: vupp, vlow
7829 PURE module subroutine setMatInit_EXP_ULX_D200X_IK1(mat, subset, vupp, vlow, nrow, ncol, roff, coff, doff)
7830#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7831 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULX_D200X_IK1
7834 integer(IK) ,
intent(in) ,
optional :: doff
7835 integer(IK) ,
intent(in) :: nrow, ncol
7836 integer(IK) ,
intent(in) :: roff, coff
7837 type(uppLow_type) ,
intent(in) :: subset
7838 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7839 integer(IKG) ,
intent(in) :: vupp, vlow
7846 PURE module subroutine setMatInit_EXP_ULX_D200X_LK5(mat, subset, vupp, vlow, nrow, ncol, roff, coff, doff)
7847#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7848 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULX_D200X_LK5
7851 integer(IK) ,
intent(in) ,
optional :: doff
7852 integer(IK) ,
intent(in) :: nrow, ncol
7853 integer(IK) ,
intent(in) :: roff, coff
7854 type(uppLow_type) ,
intent(in) :: subset
7855 logical(LKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7856 logical(LKG) ,
intent(in) :: vupp, vlow
7861 PURE module subroutine setMatInit_EXP_ULX_D200X_LK4(mat, subset, vupp, vlow, nrow, ncol, roff, coff, doff)
7862#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7863 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULX_D200X_LK4
7866 integer(IK) ,
intent(in) ,
optional :: doff
7867 integer(IK) ,
intent(in) :: nrow, ncol
7868 integer(IK) ,
intent(in) :: roff, coff
7869 type(uppLow_type) ,
intent(in) :: subset
7870 logical(LKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7871 logical(LKG) ,
intent(in) :: vupp, vlow
7876 PURE module subroutine setMatInit_EXP_ULX_D200X_LK3(mat, subset, vupp, vlow, nrow, ncol, roff, coff, doff)
7877#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7878 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULX_D200X_LK3
7881 integer(IK) ,
intent(in) ,
optional :: doff
7882 integer(IK) ,
intent(in) :: nrow, ncol
7883 integer(IK) ,
intent(in) :: roff, coff
7884 type(uppLow_type) ,
intent(in) :: subset
7885 logical(LKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7886 logical(LKG) ,
intent(in) :: vupp, vlow
7891 PURE module subroutine setMatInit_EXP_ULX_D200X_LK2(mat, subset, vupp, vlow, nrow, ncol, roff, coff, doff)
7892#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7893 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULX_D200X_LK2
7896 integer(IK) ,
intent(in) ,
optional :: doff
7897 integer(IK) ,
intent(in) :: nrow, ncol
7898 integer(IK) ,
intent(in) :: roff, coff
7899 type(uppLow_type) ,
intent(in) :: subset
7900 logical(LKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7901 logical(LKG) ,
intent(in) :: vupp, vlow
7906 PURE module subroutine setMatInit_EXP_ULX_D200X_LK1(mat, subset, vupp, vlow, nrow, ncol, roff, coff, doff)
7907#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7908 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULX_D200X_LK1
7911 integer(IK) ,
intent(in) ,
optional :: doff
7912 integer(IK) ,
intent(in) :: nrow, ncol
7913 integer(IK) ,
intent(in) :: roff, coff
7914 type(uppLow_type) ,
intent(in) :: subset
7915 logical(LKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7916 logical(LKG) ,
intent(in) :: vupp, vlow
7923 PURE module subroutine setMatInit_EXP_ULX_D200X_CK5(mat, subset, vupp, vlow, nrow, ncol, roff, coff, doff)
7924#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7925 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULX_D200X_CK5
7928 integer(IK) ,
intent(in) ,
optional :: doff
7929 integer(IK) ,
intent(in) :: nrow, ncol
7930 integer(IK) ,
intent(in) :: roff, coff
7931 type(uppLow_type) ,
intent(in) :: subset
7932 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7933 complex(CKG) ,
intent(in) :: vupp, vlow
7938 PURE module subroutine setMatInit_EXP_ULX_D200X_CK4(mat, subset, vupp, vlow, nrow, ncol, roff, coff, doff)
7939#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7940 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULX_D200X_CK4
7943 integer(IK) ,
intent(in) ,
optional :: doff
7944 integer(IK) ,
intent(in) :: nrow, ncol
7945 integer(IK) ,
intent(in) :: roff, coff
7946 type(uppLow_type) ,
intent(in) :: subset
7947 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7948 complex(CKG) ,
intent(in) :: vupp, vlow
7953 PURE module subroutine setMatInit_EXP_ULX_D200X_CK3(mat, subset, vupp, vlow, nrow, ncol, roff, coff, doff)
7954#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7955 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULX_D200X_CK3
7958 integer(IK) ,
intent(in) ,
optional :: doff
7959 integer(IK) ,
intent(in) :: nrow, ncol
7960 integer(IK) ,
intent(in) :: roff, coff
7961 type(uppLow_type) ,
intent(in) :: subset
7962 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7963 complex(CKG) ,
intent(in) :: vupp, vlow
7968 PURE module subroutine setMatInit_EXP_ULX_D200X_CK2(mat, subset, vupp, vlow, nrow, ncol, roff, coff, doff)
7969#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7970 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULX_D200X_CK2
7973 integer(IK) ,
intent(in) ,
optional :: doff
7974 integer(IK) ,
intent(in) :: nrow, ncol
7975 integer(IK) ,
intent(in) :: roff, coff
7976 type(uppLow_type) ,
intent(in) :: subset
7977 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7978 complex(CKG) ,
intent(in) :: vupp, vlow
7983 PURE module subroutine setMatInit_EXP_ULX_D200X_CK1(mat, subset, vupp, vlow, nrow, ncol, roff, coff, doff)
7984#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7985 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULX_D200X_CK1
7988 integer(IK) ,
intent(in) ,
optional :: doff
7989 integer(IK) ,
intent(in) :: nrow, ncol
7990 integer(IK) ,
intent(in) :: roff, coff
7991 type(uppLow_type) ,
intent(in) :: subset
7992 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
7993 complex(CKG) ,
intent(in) :: vupp, vlow
8000 PURE module subroutine setMatInit_EXP_ULX_D200X_RK5(mat, subset, vupp, vlow, nrow, ncol, roff, coff, doff)
8001#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8002 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULX_D200X_RK5
8005 integer(IK) ,
intent(in) ,
optional :: doff
8006 integer(IK) ,
intent(in) :: nrow, ncol
8007 integer(IK) ,
intent(in) :: roff, coff
8008 type(uppLow_type) ,
intent(in) :: subset
8009 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
8010 real(RKG) ,
intent(in) :: vupp, vlow
8015 PURE module subroutine setMatInit_EXP_ULX_D200X_RK4(mat, subset, vupp, vlow, nrow, ncol, roff, coff, doff)
8016#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8017 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULX_D200X_RK4
8020 integer(IK) ,
intent(in) ,
optional :: doff
8021 integer(IK) ,
intent(in) :: nrow, ncol
8022 integer(IK) ,
intent(in) :: roff, coff
8023 type(uppLow_type) ,
intent(in) :: subset
8024 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
8025 real(RKG) ,
intent(in) :: vupp, vlow
8030 PURE module subroutine setMatInit_EXP_ULX_D200X_RK3(mat, subset, vupp, vlow, nrow, ncol, roff, coff, doff)
8031#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8032 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULX_D200X_RK3
8035 integer(IK) ,
intent(in) ,
optional :: doff
8036 integer(IK) ,
intent(in) :: nrow, ncol
8037 integer(IK) ,
intent(in) :: roff, coff
8038 type(uppLow_type) ,
intent(in) :: subset
8039 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
8040 real(RKG) ,
intent(in) :: vupp, vlow
8045 PURE module subroutine setMatInit_EXP_ULX_D200X_RK2(mat, subset, vupp, vlow, nrow, ncol, roff, coff, doff)
8046#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8047 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULX_D200X_RK2
8050 integer(IK) ,
intent(in) ,
optional :: doff
8051 integer(IK) ,
intent(in) :: nrow, ncol
8052 integer(IK) ,
intent(in) :: roff, coff
8053 type(uppLow_type) ,
intent(in) :: subset
8054 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
8055 real(RKG) ,
intent(in) :: vupp, vlow
8060 PURE module subroutine setMatInit_EXP_ULX_D200X_RK1(mat, subset, vupp, vlow, nrow, ncol, roff, coff, doff)
8061#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8062 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULX_D200X_RK1
8065 integer(IK) ,
intent(in) ,
optional :: doff
8066 integer(IK) ,
intent(in) :: nrow, ncol
8067 integer(IK) ,
intent(in) :: roff, coff
8068 type(uppLow_type) ,
intent(in) :: subset
8069 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
8070 real(RKG) ,
intent(in) :: vupp, vlow
8093 PURE module subroutine setMatInit_EXP_ULD_D2000_SK5(mat, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
8094#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8095 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULD_D2000_SK5
8098 type(uppLowDia_type) ,
intent(in) :: subset
8099 integer(IK) ,
intent(in) ,
optional :: doff
8100 integer(IK) ,
intent(in) :: nrow, ncol
8101 integer(IK) ,
intent(in) :: roff, coff
8102 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
8103 character(
*,SKG) ,
intent(in) :: vupp, vlow
8104 character(
*,SKG) ,
intent(in) :: vdia
8109 PURE module subroutine setMatInit_EXP_ULD_D2000_SK4(mat, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
8110#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8111 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULD_D2000_SK4
8114 type(uppLowDia_type) ,
intent(in) :: subset
8115 integer(IK) ,
intent(in) ,
optional :: doff
8116 integer(IK) ,
intent(in) :: nrow, ncol
8117 integer(IK) ,
intent(in) :: roff, coff
8118 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
8119 character(
*,SKG) ,
intent(in) :: vupp, vlow
8120 character(
*,SKG) ,
intent(in) :: vdia
8125 PURE module subroutine setMatInit_EXP_ULD_D2000_SK3(mat, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
8126#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8127 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULD_D2000_SK3
8130 type(uppLowDia_type) ,
intent(in) :: subset
8131 integer(IK) ,
intent(in) ,
optional :: doff
8132 integer(IK) ,
intent(in) :: nrow, ncol
8133 integer(IK) ,
intent(in) :: roff, coff
8134 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
8135 character(
*,SKG) ,
intent(in) :: vupp, vlow
8136 character(
*,SKG) ,
intent(in) :: vdia
8141 PURE module subroutine setMatInit_EXP_ULD_D2000_SK2(mat, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
8142#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8143 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULD_D2000_SK2
8146 type(uppLowDia_type) ,
intent(in) :: subset
8147 integer(IK) ,
intent(in) ,
optional :: doff
8148 integer(IK) ,
intent(in) :: nrow, ncol
8149 integer(IK) ,
intent(in) :: roff, coff
8150 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
8151 character(
*,SKG) ,
intent(in) :: vupp, vlow
8152 character(
*,SKG) ,
intent(in) :: vdia
8157 PURE module subroutine setMatInit_EXP_ULD_D2000_SK1(mat, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
8158#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8159 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULD_D2000_SK1
8162 type(uppLowDia_type) ,
intent(in) :: subset
8163 integer(IK) ,
intent(in) ,
optional :: doff
8164 integer(IK) ,
intent(in) :: nrow, ncol
8165 integer(IK) ,
intent(in) :: roff, coff
8166 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
8167 character(
*,SKG) ,
intent(in) :: vupp, vlow
8168 character(
*,SKG) ,
intent(in) :: vdia
8175 PURE module subroutine setMatInit_EXP_ULD_D2000_IK5(mat, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
8176#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8177 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULD_D2000_IK5
8180 type(uppLowDia_type) ,
intent(in) :: subset
8181 integer(IK) ,
intent(in) ,
optional :: doff
8182 integer(IK) ,
intent(in) :: nrow, ncol
8183 integer(IK) ,
intent(in) :: roff, coff
8184 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
8185 integer(IKG) ,
intent(in) :: vupp, vlow
8186 integer(IKG) ,
intent(in) :: vdia
8191 PURE module subroutine setMatInit_EXP_ULD_D2000_IK4(mat, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
8192#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8193 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULD_D2000_IK4
8196 type(uppLowDia_type) ,
intent(in) :: subset
8197 integer(IK) ,
intent(in) ,
optional :: doff
8198 integer(IK) ,
intent(in) :: nrow, ncol
8199 integer(IK) ,
intent(in) :: roff, coff
8200 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
8201 integer(IKG) ,
intent(in) :: vupp, vlow
8202 integer(IKG) ,
intent(in) :: vdia
8207 PURE module subroutine setMatInit_EXP_ULD_D2000_IK3(mat, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
8208#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8209 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULD_D2000_IK3
8212 type(uppLowDia_type) ,
intent(in) :: subset
8213 integer(IK) ,
intent(in) ,
optional :: doff
8214 integer(IK) ,
intent(in) :: nrow, ncol
8215 integer(IK) ,
intent(in) :: roff, coff
8216 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
8217 integer(IKG) ,
intent(in) :: vupp, vlow
8218 integer(IKG) ,
intent(in) :: vdia
8223 PURE module subroutine setMatInit_EXP_ULD_D2000_IK2(mat, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
8224#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8225 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULD_D2000_IK2
8228 type(uppLowDia_type) ,
intent(in) :: subset
8229 integer(IK) ,
intent(in) ,
optional :: doff
8230 integer(IK) ,
intent(in) :: nrow, ncol
8231 integer(IK) ,
intent(in) :: roff, coff
8232 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
8233 integer(IKG) ,
intent(in) :: vupp, vlow
8234 integer(IKG) ,
intent(in) :: vdia
8239 PURE module subroutine setMatInit_EXP_ULD_D2000_IK1(mat, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
8240#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8241 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULD_D2000_IK1
8244 type(uppLowDia_type) ,
intent(in) :: subset
8245 integer(IK) ,
intent(in) ,
optional :: doff
8246 integer(IK) ,
intent(in) :: nrow, ncol
8247 integer(IK) ,
intent(in) :: roff, coff
8248 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
8249 integer(IKG) ,
intent(in) :: vupp, vlow
8250 integer(IKG) ,
intent(in) :: vdia
8257 PURE module subroutine setMatInit_EXP_ULD_D2000_LK5(mat, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
8258#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8259 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULD_D2000_LK5
8262 type(uppLowDia_type) ,
intent(in) :: subset
8263 integer(IK) ,
intent(in) ,
optional :: doff
8264 integer(IK) ,
intent(in) :: nrow, ncol
8265 integer(IK) ,
intent(in) :: roff, coff
8266 logical(LKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
8267 logical(LKG) ,
intent(in) :: vupp, vlow
8268 logical(LKG) ,
intent(in) :: vdia
8273 PURE module subroutine setMatInit_EXP_ULD_D2000_LK4(mat, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
8274#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8275 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULD_D2000_LK4
8278 type(uppLowDia_type) ,
intent(in) :: subset
8279 integer(IK) ,
intent(in) ,
optional :: doff
8280 integer(IK) ,
intent(in) :: nrow, ncol
8281 integer(IK) ,
intent(in) :: roff, coff
8282 logical(LKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
8283 logical(LKG) ,
intent(in) :: vupp, vlow
8284 logical(LKG) ,
intent(in) :: vdia
8289 PURE module subroutine setMatInit_EXP_ULD_D2000_LK3(mat, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
8290#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8291 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULD_D2000_LK3
8294 type(uppLowDia_type) ,
intent(in) :: subset
8295 integer(IK) ,
intent(in) ,
optional :: doff
8296 integer(IK) ,
intent(in) :: nrow, ncol
8297 integer(IK) ,
intent(in) :: roff, coff
8298 logical(LKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
8299 logical(LKG) ,
intent(in) :: vupp, vlow
8300 logical(LKG) ,
intent(in) :: vdia
8305 PURE module subroutine setMatInit_EXP_ULD_D2000_LK2(mat, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
8306#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8307 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULD_D2000_LK2
8310 type(uppLowDia_type) ,
intent(in) :: subset
8311 integer(IK) ,
intent(in) ,
optional :: doff
8312 integer(IK) ,
intent(in) :: nrow, ncol
8313 integer(IK) ,
intent(in) :: roff, coff
8314 logical(LKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
8315 logical(LKG) ,
intent(in) :: vupp, vlow
8316 logical(LKG) ,
intent(in) :: vdia
8321 PURE module subroutine setMatInit_EXP_ULD_D2000_LK1(mat, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
8322#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8323 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULD_D2000_LK1
8326 type(uppLowDia_type) ,
intent(in) :: subset
8327 integer(IK) ,
intent(in) ,
optional :: doff
8328 integer(IK) ,
intent(in) :: nrow, ncol
8329 integer(IK) ,
intent(in) :: roff, coff
8330 logical(LKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
8331 logical(LKG) ,
intent(in) :: vupp, vlow
8332 logical(LKG) ,
intent(in) :: vdia
8339 PURE module subroutine setMatInit_EXP_ULD_D2000_CK5(mat, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
8340#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8341 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULD_D2000_CK5
8344 type(uppLowDia_type) ,
intent(in) :: subset
8345 integer(IK) ,
intent(in) ,
optional :: doff
8346 integer(IK) ,
intent(in) :: nrow, ncol
8347 integer(IK) ,
intent(in) :: roff, coff
8348 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
8349 complex(CKG) ,
intent(in) :: vupp, vlow
8350 complex(CKG) ,
intent(in) :: vdia
8355 PURE module subroutine setMatInit_EXP_ULD_D2000_CK4(mat, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
8356#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8357 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULD_D2000_CK4
8360 type(uppLowDia_type) ,
intent(in) :: subset
8361 integer(IK) ,
intent(in) ,
optional :: doff
8362 integer(IK) ,
intent(in) :: nrow, ncol
8363 integer(IK) ,
intent(in) :: roff, coff
8364 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
8365 complex(CKG) ,
intent(in) :: vupp, vlow
8366 complex(CKG) ,
intent(in) :: vdia
8371 PURE module subroutine setMatInit_EXP_ULD_D2000_CK3(mat, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
8372#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8373 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULD_D2000_CK3
8376 type(uppLowDia_type) ,
intent(in) :: subset
8377 integer(IK) ,
intent(in) ,
optional :: doff
8378 integer(IK) ,
intent(in) :: nrow, ncol
8379 integer(IK) ,
intent(in) :: roff, coff
8380 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
8381 complex(CKG) ,
intent(in) :: vupp, vlow
8382 complex(CKG) ,
intent(in) :: vdia
8387 PURE module subroutine setMatInit_EXP_ULD_D2000_CK2(mat, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
8388#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8389 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULD_D2000_CK2
8392 type(uppLowDia_type) ,
intent(in) :: subset
8393 integer(IK) ,
intent(in) ,
optional :: doff
8394 integer(IK) ,
intent(in) :: nrow, ncol
8395 integer(IK) ,
intent(in) :: roff, coff
8396 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
8397 complex(CKG) ,
intent(in) :: vupp, vlow
8398 complex(CKG) ,
intent(in) :: vdia
8403 PURE module subroutine setMatInit_EXP_ULD_D2000_CK1(mat, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
8404#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8405 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULD_D2000_CK1
8408 type(uppLowDia_type) ,
intent(in) :: subset
8409 integer(IK) ,
intent(in) ,
optional :: doff
8410 integer(IK) ,
intent(in) :: nrow, ncol
8411 integer(IK) ,
intent(in) :: roff, coff
8412 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
8413 complex(CKG) ,
intent(in) :: vupp, vlow
8414 complex(CKG) ,
intent(in) :: vdia
8421 PURE module subroutine setMatInit_EXP_ULD_D2000_RK5(mat, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
8422#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8423 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULD_D2000_RK5
8426 type(uppLowDia_type) ,
intent(in) :: subset
8427 integer(IK) ,
intent(in) ,
optional :: doff
8428 integer(IK) ,
intent(in) :: nrow, ncol
8429 integer(IK) ,
intent(in) :: roff, coff
8430 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
8431 real(RKG) ,
intent(in) :: vupp, vlow
8432 real(RKG) ,
intent(in) :: vdia
8437 PURE module subroutine setMatInit_EXP_ULD_D2000_RK4(mat, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
8438#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8439 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULD_D2000_RK4
8442 type(uppLowDia_type) ,
intent(in) :: subset
8443 integer(IK) ,
intent(in) ,
optional :: doff
8444 integer(IK) ,
intent(in) :: nrow, ncol
8445 integer(IK) ,
intent(in) :: roff, coff
8446 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
8447 real(RKG) ,
intent(in) :: vupp, vlow
8448 real(RKG) ,
intent(in) :: vdia
8453 PURE module subroutine setMatInit_EXP_ULD_D2000_RK3(mat, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
8454#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8455 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULD_D2000_RK3
8458 type(uppLowDia_type) ,
intent(in) :: subset
8459 integer(IK) ,
intent(in) ,
optional :: doff
8460 integer(IK) ,
intent(in) :: nrow, ncol
8461 integer(IK) ,
intent(in) :: roff, coff
8462 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
8463 real(RKG) ,
intent(in) :: vupp, vlow
8464 real(RKG) ,
intent(in) :: vdia
8469 PURE module subroutine setMatInit_EXP_ULD_D2000_RK2(mat, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
8470#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8471 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULD_D2000_RK2
8474 type(uppLowDia_type) ,
intent(in) :: subset
8475 integer(IK) ,
intent(in) ,
optional :: doff
8476 integer(IK) ,
intent(in) :: nrow, ncol
8477 integer(IK) ,
intent(in) :: roff, coff
8478 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
8479 real(RKG) ,
intent(in) :: vupp, vlow
8480 real(RKG) ,
intent(in) :: vdia
8485 PURE module subroutine setMatInit_EXP_ULD_D2000_RK1(mat, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
8486#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8487 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULD_D2000_RK1
8490 type(uppLowDia_type) ,
intent(in) :: subset
8491 integer(IK) ,
intent(in) ,
optional :: doff
8492 integer(IK) ,
intent(in) :: nrow, ncol
8493 integer(IK) ,
intent(in) :: roff, coff
8494 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
8495 real(RKG) ,
intent(in) :: vupp, vlow
8496 real(RKG) ,
intent(in) :: vdia
8509 PURE module subroutine setMatInit_EXP_ULD_D2001_SK5(mat, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
8510#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8511 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULD_D2001_SK5
8514 type(uppLowDia_type) ,
intent(in) :: subset
8515 integer(IK) ,
intent(in) ,
optional :: doff
8516 integer(IK) ,
intent(in) :: nrow, ncol
8517 integer(IK) ,
intent(in) :: roff, coff
8518 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
8519 character(
*,SKG) ,
intent(in) ,
contiguous :: vdia(:)
8520 character(
*,SKG) ,
intent(in) :: vupp, vlow
8525 PURE module subroutine setMatInit_EXP_ULD_D2001_SK4(mat, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
8526#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8527 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULD_D2001_SK4
8530 type(uppLowDia_type) ,
intent(in) :: subset
8531 integer(IK) ,
intent(in) ,
optional :: doff
8532 integer(IK) ,
intent(in) :: nrow, ncol
8533 integer(IK) ,
intent(in) :: roff, coff
8534 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
8535 character(
*,SKG) ,
intent(in) ,
contiguous :: vdia(:)
8536 character(
*,SKG) ,
intent(in) :: vupp, vlow
8541 PURE module subroutine setMatInit_EXP_ULD_D2001_SK3(mat, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
8542#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8543 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULD_D2001_SK3
8546 type(uppLowDia_type) ,
intent(in) :: subset
8547 integer(IK) ,
intent(in) ,
optional :: doff
8548 integer(IK) ,
intent(in) :: nrow, ncol
8549 integer(IK) ,
intent(in) :: roff, coff
8550 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
8551 character(
*,SKG) ,
intent(in) ,
contiguous :: vdia(:)
8552 character(
*,SKG) ,
intent(in) :: vupp, vlow
8557 PURE module subroutine setMatInit_EXP_ULD_D2001_SK2(mat, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
8558#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8559 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULD_D2001_SK2
8562 type(uppLowDia_type) ,
intent(in) :: subset
8563 integer(IK) ,
intent(in) ,
optional :: doff
8564 integer(IK) ,
intent(in) :: nrow, ncol
8565 integer(IK) ,
intent(in) :: roff, coff
8566 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
8567 character(
*,SKG) ,
intent(in) ,
contiguous :: vdia(:)
8568 character(
*,SKG) ,
intent(in) :: vupp, vlow
8573 PURE module subroutine setMatInit_EXP_ULD_D2001_SK1(mat, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
8574#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8575 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULD_D2001_SK1
8578 type(uppLowDia_type) ,
intent(in) :: subset
8579 integer(IK) ,
intent(in) ,
optional :: doff
8580 integer(IK) ,
intent(in) :: nrow, ncol
8581 integer(IK) ,
intent(in) :: roff, coff
8582 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
8583 character(
*,SKG) ,
intent(in) ,
contiguous :: vdia(:)
8584 character(
*,SKG) ,
intent(in) :: vupp, vlow
8591 PURE module subroutine setMatInit_EXP_ULD_D2001_IK5(mat, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
8592#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8593 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULD_D2001_IK5
8596 type(uppLowDia_type) ,
intent(in) :: subset
8597 integer(IK) ,
intent(in) ,
optional :: doff
8598 integer(IK) ,
intent(in) :: nrow, ncol
8599 integer(IK) ,
intent(in) :: roff, coff
8600 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
8601 integer(IKG) ,
intent(in) ,
contiguous :: vdia(:)
8602 integer(IKG) ,
intent(in) :: vupp, vlow
8607 PURE module subroutine setMatInit_EXP_ULD_D2001_IK4(mat, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
8608#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8609 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULD_D2001_IK4
8612 type(uppLowDia_type) ,
intent(in) :: subset
8613 integer(IK) ,
intent(in) ,
optional :: doff
8614 integer(IK) ,
intent(in) :: nrow, ncol
8615 integer(IK) ,
intent(in) :: roff, coff
8616 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
8617 integer(IKG) ,
intent(in) ,
contiguous :: vdia(:)
8618 integer(IKG) ,
intent(in) :: vupp, vlow
8623 PURE module subroutine setMatInit_EXP_ULD_D2001_IK3(mat, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
8624#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8625 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULD_D2001_IK3
8628 type(uppLowDia_type) ,
intent(in) :: subset
8629 integer(IK) ,
intent(in) ,
optional :: doff
8630 integer(IK) ,
intent(in) :: nrow, ncol
8631 integer(IK) ,
intent(in) :: roff, coff
8632 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
8633 integer(IKG) ,
intent(in) ,
contiguous :: vdia(:)
8634 integer(IKG) ,
intent(in) :: vupp, vlow
8639 PURE module subroutine setMatInit_EXP_ULD_D2001_IK2(mat, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
8640#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8641 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULD_D2001_IK2
8644 type(uppLowDia_type) ,
intent(in) :: subset
8645 integer(IK) ,
intent(in) ,
optional :: doff
8646 integer(IK) ,
intent(in) :: nrow, ncol
8647 integer(IK) ,
intent(in) :: roff, coff
8648 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
8649 integer(IKG) ,
intent(in) ,
contiguous :: vdia(:)
8650 integer(IKG) ,
intent(in) :: vupp, vlow
8655 PURE module subroutine setMatInit_EXP_ULD_D2001_IK1(mat, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
8656#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8657 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULD_D2001_IK1
8660 type(uppLowDia_type) ,
intent(in) :: subset
8661 integer(IK) ,
intent(in) ,
optional :: doff
8662 integer(IK) ,
intent(in) :: nrow, ncol
8663 integer(IK) ,
intent(in) :: roff, coff
8664 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
8665 integer(IKG) ,
intent(in) ,
contiguous :: vdia(:)
8666 integer(IKG) ,
intent(in) :: vupp, vlow
8673 PURE module subroutine setMatInit_EXP_ULD_D2001_LK5(mat, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
8674#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8675 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULD_D2001_LK5
8678 type(uppLowDia_type) ,
intent(in) :: subset
8679 integer(IK) ,
intent(in) ,
optional :: doff
8680 integer(IK) ,
intent(in) :: nrow, ncol
8681 integer(IK) ,
intent(in) :: roff, coff
8682 logical(LKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
8683 logical(LKG) ,
intent(in) ,
contiguous :: vdia(:)
8684 logical(LKG) ,
intent(in) :: vupp, vlow
8689 PURE module subroutine setMatInit_EXP_ULD_D2001_LK4(mat, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
8690#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8691 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULD_D2001_LK4
8694 type(uppLowDia_type) ,
intent(in) :: subset
8695 integer(IK) ,
intent(in) ,
optional :: doff
8696 integer(IK) ,
intent(in) :: nrow, ncol
8697 integer(IK) ,
intent(in) :: roff, coff
8698 logical(LKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
8699 logical(LKG) ,
intent(in) ,
contiguous :: vdia(:)
8700 logical(LKG) ,
intent(in) :: vupp, vlow
8705 PURE module subroutine setMatInit_EXP_ULD_D2001_LK3(mat, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
8706#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8707 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULD_D2001_LK3
8710 type(uppLowDia_type) ,
intent(in) :: subset
8711 integer(IK) ,
intent(in) ,
optional :: doff
8712 integer(IK) ,
intent(in) :: nrow, ncol
8713 integer(IK) ,
intent(in) :: roff, coff
8714 logical(LKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
8715 logical(LKG) ,
intent(in) ,
contiguous :: vdia(:)
8716 logical(LKG) ,
intent(in) :: vupp, vlow
8721 PURE module subroutine setMatInit_EXP_ULD_D2001_LK2(mat, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
8722#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8723 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULD_D2001_LK2
8726 type(uppLowDia_type) ,
intent(in) :: subset
8727 integer(IK) ,
intent(in) ,
optional :: doff
8728 integer(IK) ,
intent(in) :: nrow, ncol
8729 integer(IK) ,
intent(in) :: roff, coff
8730 logical(LKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
8731 logical(LKG) ,
intent(in) ,
contiguous :: vdia(:)
8732 logical(LKG) ,
intent(in) :: vupp, vlow
8737 PURE module subroutine setMatInit_EXP_ULD_D2001_LK1(mat, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
8738#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8739 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULD_D2001_LK1
8742 type(uppLowDia_type) ,
intent(in) :: subset
8743 integer(IK) ,
intent(in) ,
optional :: doff
8744 integer(IK) ,
intent(in) :: nrow, ncol
8745 integer(IK) ,
intent(in) :: roff, coff
8746 logical(LKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
8747 logical(LKG) ,
intent(in) ,
contiguous :: vdia(:)
8748 logical(LKG) ,
intent(in) :: vupp, vlow
8755 PURE module subroutine setMatInit_EXP_ULD_D2001_CK5(mat, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
8756#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8757 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULD_D2001_CK5
8760 type(uppLowDia_type) ,
intent(in) :: subset
8761 integer(IK) ,
intent(in) ,
optional :: doff
8762 integer(IK) ,
intent(in) :: nrow, ncol
8763 integer(IK) ,
intent(in) :: roff, coff
8764 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
8765 complex(CKG) ,
intent(in) ,
contiguous :: vdia(:)
8766 complex(CKG) ,
intent(in) :: vupp, vlow
8771 PURE module subroutine setMatInit_EXP_ULD_D2001_CK4(mat, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
8772#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8773 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULD_D2001_CK4
8776 type(uppLowDia_type) ,
intent(in) :: subset
8777 integer(IK) ,
intent(in) ,
optional :: doff
8778 integer(IK) ,
intent(in) :: nrow, ncol
8779 integer(IK) ,
intent(in) :: roff, coff
8780 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
8781 complex(CKG) ,
intent(in) ,
contiguous :: vdia(:)
8782 complex(CKG) ,
intent(in) :: vupp, vlow
8787 PURE module subroutine setMatInit_EXP_ULD_D2001_CK3(mat, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
8788#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8789 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULD_D2001_CK3
8792 type(uppLowDia_type) ,
intent(in) :: subset
8793 integer(IK) ,
intent(in) ,
optional :: doff
8794 integer(IK) ,
intent(in) :: nrow, ncol
8795 integer(IK) ,
intent(in) :: roff, coff
8796 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
8797 complex(CKG) ,
intent(in) ,
contiguous :: vdia(:)
8798 complex(CKG) ,
intent(in) :: vupp, vlow
8803 PURE module subroutine setMatInit_EXP_ULD_D2001_CK2(mat, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
8804#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8805 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULD_D2001_CK2
8808 type(uppLowDia_type) ,
intent(in) :: subset
8809 integer(IK) ,
intent(in) ,
optional :: doff
8810 integer(IK) ,
intent(in) :: nrow, ncol
8811 integer(IK) ,
intent(in) :: roff, coff
8812 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
8813 complex(CKG) ,
intent(in) ,
contiguous :: vdia(:)
8814 complex(CKG) ,
intent(in) :: vupp, vlow
8819 PURE module subroutine setMatInit_EXP_ULD_D2001_CK1(mat, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
8820#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8821 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULD_D2001_CK1
8824 type(uppLowDia_type) ,
intent(in) :: subset
8825 integer(IK) ,
intent(in) ,
optional :: doff
8826 integer(IK) ,
intent(in) :: nrow, ncol
8827 integer(IK) ,
intent(in) :: roff, coff
8828 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
8829 complex(CKG) ,
intent(in) ,
contiguous :: vdia(:)
8830 complex(CKG) ,
intent(in) :: vupp, vlow
8837 PURE module subroutine setMatInit_EXP_ULD_D2001_RK5(mat, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
8838#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8839 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULD_D2001_RK5
8842 type(uppLowDia_type) ,
intent(in) :: subset
8843 integer(IK) ,
intent(in) ,
optional :: doff
8844 integer(IK) ,
intent(in) :: nrow, ncol
8845 integer(IK) ,
intent(in) :: roff, coff
8846 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
8847 real(RKG) ,
intent(in) ,
contiguous :: vdia(:)
8848 real(RKG) ,
intent(in) :: vupp, vlow
8853 PURE module subroutine setMatInit_EXP_ULD_D2001_RK4(mat, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
8854#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8855 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULD_D2001_RK4
8858 type(uppLowDia_type) ,
intent(in) :: subset
8859 integer(IK) ,
intent(in) ,
optional :: doff
8860 integer(IK) ,
intent(in) :: nrow, ncol
8861 integer(IK) ,
intent(in) :: roff, coff
8862 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
8863 real(RKG) ,
intent(in) ,
contiguous :: vdia(:)
8864 real(RKG) ,
intent(in) :: vupp, vlow
8869 PURE module subroutine setMatInit_EXP_ULD_D2001_RK3(mat, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
8870#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8871 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULD_D2001_RK3
8874 type(uppLowDia_type) ,
intent(in) :: subset
8875 integer(IK) ,
intent(in) ,
optional :: doff
8876 integer(IK) ,
intent(in) :: nrow, ncol
8877 integer(IK) ,
intent(in) :: roff, coff
8878 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
8879 real(RKG) ,
intent(in) ,
contiguous :: vdia(:)
8880 real(RKG) ,
intent(in) :: vupp, vlow
8885 PURE module subroutine setMatInit_EXP_ULD_D2001_RK2(mat, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
8886#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8887 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULD_D2001_RK2
8890 type(uppLowDia_type) ,
intent(in) :: subset
8891 integer(IK) ,
intent(in) ,
optional :: doff
8892 integer(IK) ,
intent(in) :: nrow, ncol
8893 integer(IK) ,
intent(in) :: roff, coff
8894 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
8895 real(RKG) ,
intent(in) ,
contiguous :: vdia(:)
8896 real(RKG) ,
intent(in) :: vupp, vlow
8901 PURE module subroutine setMatInit_EXP_ULD_D2001_RK1(mat, subset, vupp, vlow, vdia, nrow, ncol, roff, coff, doff)
8902#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8903 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_EXP_ULD_D2001_RK1
8906 type(uppLowDia_type) ,
intent(in) :: subset
8907 integer(IK) ,
intent(in) ,
optional :: doff
8908 integer(IK) ,
intent(in) :: nrow, ncol
8909 integer(IK) ,
intent(in) :: roff, coff
8910 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
8911 real(RKG) ,
intent(in) ,
contiguous :: vdia(:)
8912 real(RKG) ,
intent(in) :: vupp, vlow
8937 PURE module subroutine setMatInit_IMP_XLX_D2X0X_SK5(mat, subset, vlow, doff)
8938#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8939 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLX_D2X0X_SK5
8942 integer(IK) ,
intent(in) ,
optional :: doff
8943 type(low_type) ,
intent(in) :: subset
8944 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
8945 character(
*,SKG) ,
intent(in) :: vlow
8950 PURE module subroutine setMatInit_IMP_XLX_D2X0X_SK4(mat, subset, vlow, doff)
8951#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8952 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLX_D2X0X_SK4
8955 integer(IK) ,
intent(in) ,
optional :: doff
8956 type(low_type) ,
intent(in) :: subset
8957 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
8958 character(
*,SKG) ,
intent(in) :: vlow
8963 PURE module subroutine setMatInit_IMP_XLX_D2X0X_SK3(mat, subset, vlow, doff)
8964#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8965 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLX_D2X0X_SK3
8968 integer(IK) ,
intent(in) ,
optional :: doff
8969 type(low_type) ,
intent(in) :: subset
8970 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
8971 character(
*,SKG) ,
intent(in) :: vlow
8976 PURE module subroutine setMatInit_IMP_XLX_D2X0X_SK2(mat, subset, vlow, doff)
8977#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8978 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLX_D2X0X_SK2
8981 integer(IK) ,
intent(in) ,
optional :: doff
8982 type(low_type) ,
intent(in) :: subset
8983 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
8984 character(
*,SKG) ,
intent(in) :: vlow
8989 PURE module subroutine setMatInit_IMP_XLX_D2X0X_SK1(mat, subset, vlow, doff)
8990#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8991 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLX_D2X0X_SK1
8994 integer(IK) ,
intent(in) ,
optional :: doff
8995 type(low_type) ,
intent(in) :: subset
8996 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
8997 character(
*,SKG) ,
intent(in) :: vlow
9004 PURE module subroutine setMatInit_IMP_XLX_D2X0X_IK5(mat, subset, vlow, doff)
9005#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9006 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLX_D2X0X_IK5
9009 integer(IK) ,
intent(in) ,
optional :: doff
9010 type(low_type) ,
intent(in) :: subset
9011 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9012 integer(IKG) ,
intent(in) :: vlow
9017 PURE module subroutine setMatInit_IMP_XLX_D2X0X_IK4(mat, subset, vlow, doff)
9018#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9019 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLX_D2X0X_IK4
9022 integer(IK) ,
intent(in) ,
optional :: doff
9023 type(low_type) ,
intent(in) :: subset
9024 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9025 integer(IKG) ,
intent(in) :: vlow
9030 PURE module subroutine setMatInit_IMP_XLX_D2X0X_IK3(mat, subset, vlow, doff)
9031#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9032 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLX_D2X0X_IK3
9035 integer(IK) ,
intent(in) ,
optional :: doff
9036 type(low_type) ,
intent(in) :: subset
9037 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9038 integer(IKG) ,
intent(in) :: vlow
9043 PURE module subroutine setMatInit_IMP_XLX_D2X0X_IK2(mat, subset, vlow, doff)
9044#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9045 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLX_D2X0X_IK2
9048 integer(IK) ,
intent(in) ,
optional :: doff
9049 type(low_type) ,
intent(in) :: subset
9050 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9051 integer(IKG) ,
intent(in) :: vlow
9056 PURE module subroutine setMatInit_IMP_XLX_D2X0X_IK1(mat, subset, vlow, doff)
9057#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9058 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLX_D2X0X_IK1
9061 integer(IK) ,
intent(in) ,
optional :: doff
9062 type(low_type) ,
intent(in) :: subset
9063 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9064 integer(IKG) ,
intent(in) :: vlow
9071 PURE module subroutine setMatInit_IMP_XLX_D2X0X_LK5(mat, subset, vlow, doff)
9072#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9073 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLX_D2X0X_LK5
9076 integer(IK) ,
intent(in) ,
optional :: doff
9077 type(low_type) ,
intent(in) :: subset
9078 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9079 logical(LKG) ,
intent(in) :: vlow
9084 PURE module subroutine setMatInit_IMP_XLX_D2X0X_LK4(mat, subset, vlow, doff)
9085#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9086 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLX_D2X0X_LK4
9089 integer(IK) ,
intent(in) ,
optional :: doff
9090 type(low_type) ,
intent(in) :: subset
9091 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9092 logical(LKG) ,
intent(in) :: vlow
9097 PURE module subroutine setMatInit_IMP_XLX_D2X0X_LK3(mat, subset, vlow, doff)
9098#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9099 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLX_D2X0X_LK3
9102 integer(IK) ,
intent(in) ,
optional :: doff
9103 type(low_type) ,
intent(in) :: subset
9104 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9105 logical(LKG) ,
intent(in) :: vlow
9110 PURE module subroutine setMatInit_IMP_XLX_D2X0X_LK2(mat, subset, vlow, doff)
9111#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9112 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLX_D2X0X_LK2
9115 integer(IK) ,
intent(in) ,
optional :: doff
9116 type(low_type) ,
intent(in) :: subset
9117 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9118 logical(LKG) ,
intent(in) :: vlow
9123 PURE module subroutine setMatInit_IMP_XLX_D2X0X_LK1(mat, subset, vlow, doff)
9124#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9125 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLX_D2X0X_LK1
9128 integer(IK) ,
intent(in) ,
optional :: doff
9129 type(low_type) ,
intent(in) :: subset
9130 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9131 logical(LKG) ,
intent(in) :: vlow
9138 PURE module subroutine setMatInit_IMP_XLX_D2X0X_CK5(mat, subset, vlow, doff)
9139#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9140 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLX_D2X0X_CK5
9143 integer(IK) ,
intent(in) ,
optional :: doff
9144 type(low_type) ,
intent(in) :: subset
9145 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9146 complex(CKG) ,
intent(in) :: vlow
9151 PURE module subroutine setMatInit_IMP_XLX_D2X0X_CK4(mat, subset, vlow, doff)
9152#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9153 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLX_D2X0X_CK4
9156 integer(IK) ,
intent(in) ,
optional :: doff
9157 type(low_type) ,
intent(in) :: subset
9158 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9159 complex(CKG) ,
intent(in) :: vlow
9164 PURE module subroutine setMatInit_IMP_XLX_D2X0X_CK3(mat, subset, vlow, doff)
9165#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9166 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLX_D2X0X_CK3
9169 integer(IK) ,
intent(in) ,
optional :: doff
9170 type(low_type) ,
intent(in) :: subset
9171 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9172 complex(CKG) ,
intent(in) :: vlow
9177 PURE module subroutine setMatInit_IMP_XLX_D2X0X_CK2(mat, subset, vlow, doff)
9178#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9179 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLX_D2X0X_CK2
9182 integer(IK) ,
intent(in) ,
optional :: doff
9183 type(low_type) ,
intent(in) :: subset
9184 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9185 complex(CKG) ,
intent(in) :: vlow
9190 PURE module subroutine setMatInit_IMP_XLX_D2X0X_CK1(mat, subset, vlow, doff)
9191#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9192 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLX_D2X0X_CK1
9195 integer(IK) ,
intent(in) ,
optional :: doff
9196 type(low_type) ,
intent(in) :: subset
9197 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9198 complex(CKG) ,
intent(in) :: vlow
9205 PURE module subroutine setMatInit_IMP_XLX_D2X0X_RK5(mat, subset, vlow, doff)
9206#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9207 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLX_D2X0X_RK5
9210 integer(IK) ,
intent(in) ,
optional :: doff
9211 type(low_type) ,
intent(in) :: subset
9212 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9213 real(RKG) ,
intent(in) :: vlow
9218 PURE module subroutine setMatInit_IMP_XLX_D2X0X_RK4(mat, subset, vlow, doff)
9219#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9220 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLX_D2X0X_RK4
9223 integer(IK) ,
intent(in) ,
optional :: doff
9224 type(low_type) ,
intent(in) :: subset
9225 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9226 real(RKG) ,
intent(in) :: vlow
9231 PURE module subroutine setMatInit_IMP_XLX_D2X0X_RK3(mat, subset, vlow, doff)
9232#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9233 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLX_D2X0X_RK3
9236 integer(IK) ,
intent(in) ,
optional :: doff
9237 type(low_type) ,
intent(in) :: subset
9238 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9239 real(RKG) ,
intent(in) :: vlow
9244 PURE module subroutine setMatInit_IMP_XLX_D2X0X_RK2(mat, subset, vlow, doff)
9245#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9246 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLX_D2X0X_RK2
9249 integer(IK) ,
intent(in) ,
optional :: doff
9250 type(low_type) ,
intent(in) :: subset
9251 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9252 real(RKG) ,
intent(in) :: vlow
9257 PURE module subroutine setMatInit_IMP_XLX_D2X0X_RK1(mat, subset, vlow, doff)
9258#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9259 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLX_D2X0X_RK1
9262 integer(IK) ,
intent(in) ,
optional :: doff
9263 type(low_type) ,
intent(in) :: subset
9264 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9265 real(RKG) ,
intent(in) :: vlow
9288 PURE module subroutine setMatInit_IMP_UXX_D20XX_SK5(mat, subset, vupp, doff)
9289#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9290 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXX_D20XX_SK5
9293 integer(IK) ,
intent(in) ,
optional :: doff
9294 type(upp_type) ,
intent(in) :: subset
9295 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9296 character(
*,SKG) ,
intent(in) :: vupp
9301 PURE module subroutine setMatInit_IMP_UXX_D20XX_SK4(mat, subset, vupp, doff)
9302#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9303 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXX_D20XX_SK4
9306 integer(IK) ,
intent(in) ,
optional :: doff
9307 type(upp_type) ,
intent(in) :: subset
9308 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9309 character(
*,SKG) ,
intent(in) :: vupp
9314 PURE module subroutine setMatInit_IMP_UXX_D20XX_SK3(mat, subset, vupp, doff)
9315#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9316 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXX_D20XX_SK3
9319 integer(IK) ,
intent(in) ,
optional :: doff
9320 type(upp_type) ,
intent(in) :: subset
9321 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9322 character(
*,SKG) ,
intent(in) :: vupp
9327 PURE module subroutine setMatInit_IMP_UXX_D20XX_SK2(mat, subset, vupp, doff)
9328#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9329 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXX_D20XX_SK2
9332 integer(IK) ,
intent(in) ,
optional :: doff
9333 type(upp_type) ,
intent(in) :: subset
9334 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9335 character(
*,SKG) ,
intent(in) :: vupp
9340 PURE module subroutine setMatInit_IMP_UXX_D20XX_SK1(mat, subset, vupp, doff)
9341#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9342 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXX_D20XX_SK1
9345 integer(IK) ,
intent(in) ,
optional :: doff
9346 type(upp_type) ,
intent(in) :: subset
9347 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9348 character(
*,SKG) ,
intent(in) :: vupp
9355 PURE module subroutine setMatInit_IMP_UXX_D20XX_IK5(mat, subset, vupp, doff)
9356#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9357 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXX_D20XX_IK5
9360 integer(IK) ,
intent(in) ,
optional :: doff
9361 type(upp_type) ,
intent(in) :: subset
9362 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9363 integer(IKG) ,
intent(in) :: vupp
9368 PURE module subroutine setMatInit_IMP_UXX_D20XX_IK4(mat, subset, vupp, doff)
9369#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9370 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXX_D20XX_IK4
9373 integer(IK) ,
intent(in) ,
optional :: doff
9374 type(upp_type) ,
intent(in) :: subset
9375 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9376 integer(IKG) ,
intent(in) :: vupp
9381 PURE module subroutine setMatInit_IMP_UXX_D20XX_IK3(mat, subset, vupp, doff)
9382#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9383 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXX_D20XX_IK3
9386 integer(IK) ,
intent(in) ,
optional :: doff
9387 type(upp_type) ,
intent(in) :: subset
9388 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9389 integer(IKG) ,
intent(in) :: vupp
9394 PURE module subroutine setMatInit_IMP_UXX_D20XX_IK2(mat, subset, vupp, doff)
9395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9396 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXX_D20XX_IK2
9399 integer(IK) ,
intent(in) ,
optional :: doff
9400 type(upp_type) ,
intent(in) :: subset
9401 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9402 integer(IKG) ,
intent(in) :: vupp
9407 PURE module subroutine setMatInit_IMP_UXX_D20XX_IK1(mat, subset, vupp, doff)
9408#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9409 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXX_D20XX_IK1
9412 integer(IK) ,
intent(in) ,
optional :: doff
9413 type(upp_type) ,
intent(in) :: subset
9414 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9415 integer(IKG) ,
intent(in) :: vupp
9422 PURE module subroutine setMatInit_IMP_UXX_D20XX_LK5(mat, subset, vupp, doff)
9423#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9424 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXX_D20XX_LK5
9427 integer(IK) ,
intent(in) ,
optional :: doff
9428 type(upp_type) ,
intent(in) :: subset
9429 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9430 logical(LKG) ,
intent(in) :: vupp
9435 PURE module subroutine setMatInit_IMP_UXX_D20XX_LK4(mat, subset, vupp, doff)
9436#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9437 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXX_D20XX_LK4
9440 integer(IK) ,
intent(in) ,
optional :: doff
9441 type(upp_type) ,
intent(in) :: subset
9442 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9443 logical(LKG) ,
intent(in) :: vupp
9448 PURE module subroutine setMatInit_IMP_UXX_D20XX_LK3(mat, subset, vupp, doff)
9449#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9450 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXX_D20XX_LK3
9453 integer(IK) ,
intent(in) ,
optional :: doff
9454 type(upp_type) ,
intent(in) :: subset
9455 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9456 logical(LKG) ,
intent(in) :: vupp
9461 PURE module subroutine setMatInit_IMP_UXX_D20XX_LK2(mat, subset, vupp, doff)
9462#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9463 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXX_D20XX_LK2
9466 integer(IK) ,
intent(in) ,
optional :: doff
9467 type(upp_type) ,
intent(in) :: subset
9468 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9469 logical(LKG) ,
intent(in) :: vupp
9474 PURE module subroutine setMatInit_IMP_UXX_D20XX_LK1(mat, subset, vupp, doff)
9475#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9476 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXX_D20XX_LK1
9479 integer(IK) ,
intent(in) ,
optional :: doff
9480 type(upp_type) ,
intent(in) :: subset
9481 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9482 logical(LKG) ,
intent(in) :: vupp
9489 PURE module subroutine setMatInit_IMP_UXX_D20XX_CK5(mat, subset, vupp, doff)
9490#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9491 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXX_D20XX_CK5
9494 integer(IK) ,
intent(in) ,
optional :: doff
9495 type(upp_type) ,
intent(in) :: subset
9496 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9497 complex(CKG) ,
intent(in) :: vupp
9502 PURE module subroutine setMatInit_IMP_UXX_D20XX_CK4(mat, subset, vupp, doff)
9503#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9504 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXX_D20XX_CK4
9507 integer(IK) ,
intent(in) ,
optional :: doff
9508 type(upp_type) ,
intent(in) :: subset
9509 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9510 complex(CKG) ,
intent(in) :: vupp
9515 PURE module subroutine setMatInit_IMP_UXX_D20XX_CK3(mat, subset, vupp, doff)
9516#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9517 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXX_D20XX_CK3
9520 integer(IK) ,
intent(in) ,
optional :: doff
9521 type(upp_type) ,
intent(in) :: subset
9522 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9523 complex(CKG) ,
intent(in) :: vupp
9528 PURE module subroutine setMatInit_IMP_UXX_D20XX_CK2(mat, subset, vupp, doff)
9529#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9530 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXX_D20XX_CK2
9533 integer(IK) ,
intent(in) ,
optional :: doff
9534 type(upp_type) ,
intent(in) :: subset
9535 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9536 complex(CKG) ,
intent(in) :: vupp
9541 PURE module subroutine setMatInit_IMP_UXX_D20XX_CK1(mat, subset, vupp, doff)
9542#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9543 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXX_D20XX_CK1
9546 integer(IK) ,
intent(in) ,
optional :: doff
9547 type(upp_type) ,
intent(in) :: subset
9548 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9549 complex(CKG) ,
intent(in) :: vupp
9556 PURE module subroutine setMatInit_IMP_UXX_D20XX_RK5(mat, subset, vupp, doff)
9557#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9558 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXX_D20XX_RK5
9561 integer(IK) ,
intent(in) ,
optional :: doff
9562 type(upp_type) ,
intent(in) :: subset
9563 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9564 real(RKG) ,
intent(in) :: vupp
9569 PURE module subroutine setMatInit_IMP_UXX_D20XX_RK4(mat, subset, vupp, doff)
9570#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9571 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXX_D20XX_RK4
9574 integer(IK) ,
intent(in) ,
optional :: doff
9575 type(upp_type) ,
intent(in) :: subset
9576 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9577 real(RKG) ,
intent(in) :: vupp
9582 PURE module subroutine setMatInit_IMP_UXX_D20XX_RK3(mat, subset, vupp, doff)
9583#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9584 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXX_D20XX_RK3
9587 integer(IK) ,
intent(in) ,
optional :: doff
9588 type(upp_type) ,
intent(in) :: subset
9589 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9590 real(RKG) ,
intent(in) :: vupp
9595 PURE module subroutine setMatInit_IMP_UXX_D20XX_RK2(mat, subset, vupp, doff)
9596#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9597 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXX_D20XX_RK2
9600 integer(IK) ,
intent(in) ,
optional :: doff
9601 type(upp_type) ,
intent(in) :: subset
9602 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9603 real(RKG) ,
intent(in) :: vupp
9608 PURE module subroutine setMatInit_IMP_UXX_D20XX_RK1(mat, subset, vupp, doff)
9609#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9610 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXX_D20XX_RK1
9613 integer(IK) ,
intent(in) ,
optional :: doff
9614 type(upp_type) ,
intent(in) :: subset
9615 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9616 real(RKG) ,
intent(in) :: vupp
9639 PURE module subroutine setMatInit_IMP_XXD_D2XXF_SK5(mat, subset, vdia)
9640#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9641 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XXF_SK5
9644 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9645 character(
*,SKG) ,
intent(in) :: vdia
9646 type(dia_type) ,
intent(in) :: subset
9651 PURE module subroutine setMatInit_IMP_XXD_D2XXF_SK4(mat, subset, vdia)
9652#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9653 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XXF_SK4
9656 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9657 character(
*,SKG) ,
intent(in) :: vdia
9658 type(dia_type) ,
intent(in) :: subset
9663 PURE module subroutine setMatInit_IMP_XXD_D2XXF_SK3(mat, subset, vdia)
9664#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9665 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XXF_SK3
9668 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9669 character(
*,SKG) ,
intent(in) :: vdia
9670 type(dia_type) ,
intent(in) :: subset
9675 PURE module subroutine setMatInit_IMP_XXD_D2XXF_SK2(mat, subset, vdia)
9676#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9677 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XXF_SK2
9680 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9681 character(
*,SKG) ,
intent(in) :: vdia
9682 type(dia_type) ,
intent(in) :: subset
9687 PURE module subroutine setMatInit_IMP_XXD_D2XXF_SK1(mat, subset, vdia)
9688#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9689 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XXF_SK1
9692 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9693 character(
*,SKG) ,
intent(in) :: vdia
9694 type(dia_type) ,
intent(in) :: subset
9701 PURE module subroutine setMatInit_IMP_XXD_D2XXF_IK5(mat, subset, vdia)
9702#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9703 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XXF_IK5
9706 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9707 integer(IKG) ,
intent(in) :: vdia
9708 type(dia_type) ,
intent(in) :: subset
9713 PURE module subroutine setMatInit_IMP_XXD_D2XXF_IK4(mat, subset, vdia)
9714#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9715 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XXF_IK4
9718 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9719 integer(IKG) ,
intent(in) :: vdia
9720 type(dia_type) ,
intent(in) :: subset
9725 PURE module subroutine setMatInit_IMP_XXD_D2XXF_IK3(mat, subset, vdia)
9726#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9727 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XXF_IK3
9730 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9731 integer(IKG) ,
intent(in) :: vdia
9732 type(dia_type) ,
intent(in) :: subset
9737 PURE module subroutine setMatInit_IMP_XXD_D2XXF_IK2(mat, subset, vdia)
9738#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9739 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XXF_IK2
9742 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9743 integer(IKG) ,
intent(in) :: vdia
9744 type(dia_type) ,
intent(in) :: subset
9749 PURE module subroutine setMatInit_IMP_XXD_D2XXF_IK1(mat, subset, vdia)
9750#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9751 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XXF_IK1
9754 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9755 integer(IKG) ,
intent(in) :: vdia
9756 type(dia_type) ,
intent(in) :: subset
9763 PURE module subroutine setMatInit_IMP_XXD_D2XXF_LK5(mat, subset, vdia)
9764#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9765 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XXF_LK5
9768 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9769 logical(LKG) ,
intent(in) :: vdia
9770 type(dia_type) ,
intent(in) :: subset
9775 PURE module subroutine setMatInit_IMP_XXD_D2XXF_LK4(mat, subset, vdia)
9776#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9777 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XXF_LK4
9780 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9781 logical(LKG) ,
intent(in) :: vdia
9782 type(dia_type) ,
intent(in) :: subset
9787 PURE module subroutine setMatInit_IMP_XXD_D2XXF_LK3(mat, subset, vdia)
9788#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9789 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XXF_LK3
9792 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9793 logical(LKG) ,
intent(in) :: vdia
9794 type(dia_type) ,
intent(in) :: subset
9799 PURE module subroutine setMatInit_IMP_XXD_D2XXF_LK2(mat, subset, vdia)
9800#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9801 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XXF_LK2
9804 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9805 logical(LKG) ,
intent(in) :: vdia
9806 type(dia_type) ,
intent(in) :: subset
9811 PURE module subroutine setMatInit_IMP_XXD_D2XXF_LK1(mat, subset, vdia)
9812#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9813 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XXF_LK1
9816 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9817 logical(LKG) ,
intent(in) :: vdia
9818 type(dia_type) ,
intent(in) :: subset
9825 PURE module subroutine setMatInit_IMP_XXD_D2XXF_CK5(mat, subset, vdia)
9826#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9827 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XXF_CK5
9830 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9831 complex(CKG) ,
intent(in) :: vdia
9832 type(dia_type) ,
intent(in) :: subset
9837 PURE module subroutine setMatInit_IMP_XXD_D2XXF_CK4(mat, subset, vdia)
9838#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9839 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XXF_CK4
9842 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9843 complex(CKG) ,
intent(in) :: vdia
9844 type(dia_type) ,
intent(in) :: subset
9849 PURE module subroutine setMatInit_IMP_XXD_D2XXF_CK3(mat, subset, vdia)
9850#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9851 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XXF_CK3
9854 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9855 complex(CKG) ,
intent(in) :: vdia
9856 type(dia_type) ,
intent(in) :: subset
9861 PURE module subroutine setMatInit_IMP_XXD_D2XXF_CK2(mat, subset, vdia)
9862#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9863 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XXF_CK2
9866 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9867 complex(CKG) ,
intent(in) :: vdia
9868 type(dia_type) ,
intent(in) :: subset
9873 PURE module subroutine setMatInit_IMP_XXD_D2XXF_CK1(mat, subset, vdia)
9874#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9875 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XXF_CK1
9878 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9879 complex(CKG) ,
intent(in) :: vdia
9880 type(dia_type) ,
intent(in) :: subset
9887 PURE module subroutine setMatInit_IMP_XXD_D2XXF_RK5(mat, subset, vdia)
9888#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9889 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XXF_RK5
9892 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9893 real(RKG) ,
intent(in) :: vdia
9894 type(dia_type) ,
intent(in) :: subset
9899 PURE module subroutine setMatInit_IMP_XXD_D2XXF_RK4(mat, subset, vdia)
9900#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9901 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XXF_RK4
9904 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9905 real(RKG) ,
intent(in) :: vdia
9906 type(dia_type) ,
intent(in) :: subset
9911 PURE module subroutine setMatInit_IMP_XXD_D2XXF_RK3(mat, subset, vdia)
9912#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9913 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XXF_RK3
9916 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9917 real(RKG) ,
intent(in) :: vdia
9918 type(dia_type) ,
intent(in) :: subset
9923 PURE module subroutine setMatInit_IMP_XXD_D2XXF_RK2(mat, subset, vdia)
9924#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9925 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XXF_RK2
9928 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9929 real(RKG) ,
intent(in) :: vdia
9930 type(dia_type) ,
intent(in) :: subset
9935 PURE module subroutine setMatInit_IMP_XXD_D2XXF_RK1(mat, subset, vdia)
9936#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9937 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XXF_RK1
9940 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9941 real(RKG) ,
intent(in) :: vdia
9942 type(dia_type) ,
intent(in) :: subset
9955 PURE module subroutine setMatInit_IMP_XXD_D2XX0_SK5(mat, subset, vdia, ndia)
9956#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9957 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XX0_SK5
9960 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9961 character(
*,SKG) ,
intent(in) :: vdia
9962 integer(IK) ,
intent(in) :: ndia
9963 type(dia_type) ,
intent(in) :: subset
9968 PURE module subroutine setMatInit_IMP_XXD_D2XX0_SK4(mat, subset, vdia, ndia)
9969#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9970 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XX0_SK4
9973 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9974 character(
*,SKG) ,
intent(in) :: vdia
9975 integer(IK) ,
intent(in) :: ndia
9976 type(dia_type) ,
intent(in) :: subset
9981 PURE module subroutine setMatInit_IMP_XXD_D2XX0_SK3(mat, subset, vdia, ndia)
9982#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9983 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XX0_SK3
9986 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
9987 character(
*,SKG) ,
intent(in) :: vdia
9988 integer(IK) ,
intent(in) :: ndia
9989 type(dia_type) ,
intent(in) :: subset
9994 PURE module subroutine setMatInit_IMP_XXD_D2XX0_SK2(mat, subset, vdia, ndia)
9995#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9996 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XX0_SK2
9999 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10000 character(
*,SKG) ,
intent(in) :: vdia
10001 integer(IK) ,
intent(in) :: ndia
10002 type(dia_type) ,
intent(in) :: subset
10007 PURE module subroutine setMatInit_IMP_XXD_D2XX0_SK1(mat, subset, vdia, ndia)
10008#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10009 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XX0_SK1
10012 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10013 character(
*,SKG) ,
intent(in) :: vdia
10014 integer(IK) ,
intent(in) :: ndia
10015 type(dia_type) ,
intent(in) :: subset
10022 PURE module subroutine setMatInit_IMP_XXD_D2XX0_IK5(mat, subset, vdia, ndia)
10023#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10024 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XX0_IK5
10027 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10028 integer(IKG) ,
intent(in) :: vdia
10029 integer(IK) ,
intent(in) :: ndia
10030 type(dia_type) ,
intent(in) :: subset
10035 PURE module subroutine setMatInit_IMP_XXD_D2XX0_IK4(mat, subset, vdia, ndia)
10036#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10037 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XX0_IK4
10040 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10041 integer(IKG) ,
intent(in) :: vdia
10042 integer(IK) ,
intent(in) :: ndia
10043 type(dia_type) ,
intent(in) :: subset
10048 PURE module subroutine setMatInit_IMP_XXD_D2XX0_IK3(mat, subset, vdia, ndia)
10049#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10050 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XX0_IK3
10053 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10054 integer(IKG) ,
intent(in) :: vdia
10055 integer(IK) ,
intent(in) :: ndia
10056 type(dia_type) ,
intent(in) :: subset
10061 PURE module subroutine setMatInit_IMP_XXD_D2XX0_IK2(mat, subset, vdia, ndia)
10062#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10063 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XX0_IK2
10066 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10067 integer(IKG) ,
intent(in) :: vdia
10068 integer(IK) ,
intent(in) :: ndia
10069 type(dia_type) ,
intent(in) :: subset
10074 PURE module subroutine setMatInit_IMP_XXD_D2XX0_IK1(mat, subset, vdia, ndia)
10075#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10076 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XX0_IK1
10079 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10080 integer(IKG) ,
intent(in) :: vdia
10081 integer(IK) ,
intent(in) :: ndia
10082 type(dia_type) ,
intent(in) :: subset
10089 PURE module subroutine setMatInit_IMP_XXD_D2XX0_LK5(mat, subset, vdia, ndia)
10090#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10091 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XX0_LK5
10094 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10095 logical(LKG) ,
intent(in) :: vdia
10096 integer(IK) ,
intent(in) :: ndia
10097 type(dia_type) ,
intent(in) :: subset
10102 PURE module subroutine setMatInit_IMP_XXD_D2XX0_LK4(mat, subset, vdia, ndia)
10103#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10104 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XX0_LK4
10107 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10108 logical(LKG) ,
intent(in) :: vdia
10109 integer(IK) ,
intent(in) :: ndia
10110 type(dia_type) ,
intent(in) :: subset
10115 PURE module subroutine setMatInit_IMP_XXD_D2XX0_LK3(mat, subset, vdia, ndia)
10116#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10117 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XX0_LK3
10120 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10121 logical(LKG) ,
intent(in) :: vdia
10122 integer(IK) ,
intent(in) :: ndia
10123 type(dia_type) ,
intent(in) :: subset
10128 PURE module subroutine setMatInit_IMP_XXD_D2XX0_LK2(mat, subset, vdia, ndia)
10129#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10130 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XX0_LK2
10133 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10134 logical(LKG) ,
intent(in) :: vdia
10135 integer(IK) ,
intent(in) :: ndia
10136 type(dia_type) ,
intent(in) :: subset
10141 PURE module subroutine setMatInit_IMP_XXD_D2XX0_LK1(mat, subset, vdia, ndia)
10142#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10143 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XX0_LK1
10146 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10147 logical(LKG) ,
intent(in) :: vdia
10148 integer(IK) ,
intent(in) :: ndia
10149 type(dia_type) ,
intent(in) :: subset
10156 PURE module subroutine setMatInit_IMP_XXD_D2XX0_CK5(mat, subset, vdia, ndia)
10157#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10158 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XX0_CK5
10161 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10162 complex(CKG) ,
intent(in) :: vdia
10163 integer(IK) ,
intent(in) :: ndia
10164 type(dia_type) ,
intent(in) :: subset
10169 PURE module subroutine setMatInit_IMP_XXD_D2XX0_CK4(mat, subset, vdia, ndia)
10170#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10171 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XX0_CK4
10174 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10175 complex(CKG) ,
intent(in) :: vdia
10176 integer(IK) ,
intent(in) :: ndia
10177 type(dia_type) ,
intent(in) :: subset
10182 PURE module subroutine setMatInit_IMP_XXD_D2XX0_CK3(mat, subset, vdia, ndia)
10183#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10184 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XX0_CK3
10187 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10188 complex(CKG) ,
intent(in) :: vdia
10189 integer(IK) ,
intent(in) :: ndia
10190 type(dia_type) ,
intent(in) :: subset
10195 PURE module subroutine setMatInit_IMP_XXD_D2XX0_CK2(mat, subset, vdia, ndia)
10196#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10197 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XX0_CK2
10200 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10201 complex(CKG) ,
intent(in) :: vdia
10202 integer(IK) ,
intent(in) :: ndia
10203 type(dia_type) ,
intent(in) :: subset
10208 PURE module subroutine setMatInit_IMP_XXD_D2XX0_CK1(mat, subset, vdia, ndia)
10209#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10210 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XX0_CK1
10213 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10214 complex(CKG) ,
intent(in) :: vdia
10215 integer(IK) ,
intent(in) :: ndia
10216 type(dia_type) ,
intent(in) :: subset
10223 PURE module subroutine setMatInit_IMP_XXD_D2XX0_RK5(mat, subset, vdia, ndia)
10224#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10225 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XX0_RK5
10228 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10229 real(RKG) ,
intent(in) :: vdia
10230 integer(IK) ,
intent(in) :: ndia
10231 type(dia_type) ,
intent(in) :: subset
10236 PURE module subroutine setMatInit_IMP_XXD_D2XX0_RK4(mat, subset, vdia, ndia)
10237#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10238 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XX0_RK4
10241 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10242 real(RKG) ,
intent(in) :: vdia
10243 integer(IK) ,
intent(in) :: ndia
10244 type(dia_type) ,
intent(in) :: subset
10249 PURE module subroutine setMatInit_IMP_XXD_D2XX0_RK3(mat, subset, vdia, ndia)
10250#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10251 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XX0_RK3
10254 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10255 real(RKG) ,
intent(in) :: vdia
10256 integer(IK) ,
intent(in) :: ndia
10257 type(dia_type) ,
intent(in) :: subset
10262 PURE module subroutine setMatInit_IMP_XXD_D2XX0_RK2(mat, subset, vdia, ndia)
10263#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10264 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XX0_RK2
10267 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10268 real(RKG) ,
intent(in) :: vdia
10269 integer(IK) ,
intent(in) :: ndia
10270 type(dia_type) ,
intent(in) :: subset
10275 PURE module subroutine setMatInit_IMP_XXD_D2XX0_RK1(mat, subset, vdia, ndia)
10276#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10277 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XX0_RK1
10280 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10281 real(RKG) ,
intent(in) :: vdia
10282 integer(IK) ,
intent(in) :: ndia
10283 type(dia_type) ,
intent(in) :: subset
10296 PURE module subroutine setMatInit_IMP_XXD_D2XX1_SK5(mat, subset, vdia)
10297#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10298 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XX1_SK5
10301 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10302 character(
*,SKG) ,
intent(in) ,
contiguous :: vdia(:)
10303 type(dia_type) ,
intent(in) :: subset
10308 PURE module subroutine setMatInit_IMP_XXD_D2XX1_SK4(mat, subset, vdia)
10309#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10310 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XX1_SK4
10313 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10314 character(
*,SKG) ,
intent(in) ,
contiguous :: vdia(:)
10315 type(dia_type) ,
intent(in) :: subset
10320 PURE module subroutine setMatInit_IMP_XXD_D2XX1_SK3(mat, subset, vdia)
10321#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10322 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XX1_SK3
10325 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10326 character(
*,SKG) ,
intent(in) ,
contiguous :: vdia(:)
10327 type(dia_type) ,
intent(in) :: subset
10332 PURE module subroutine setMatInit_IMP_XXD_D2XX1_SK2(mat, subset, vdia)
10333#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10334 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XX1_SK2
10337 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10338 character(
*,SKG) ,
intent(in) ,
contiguous :: vdia(:)
10339 type(dia_type) ,
intent(in) :: subset
10344 PURE module subroutine setMatInit_IMP_XXD_D2XX1_SK1(mat, subset, vdia)
10345#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10346 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XX1_SK1
10349 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10350 character(
*,SKG) ,
intent(in) ,
contiguous :: vdia(:)
10351 type(dia_type) ,
intent(in) :: subset
10358 PURE module subroutine setMatInit_IMP_XXD_D2XX1_IK5(mat, subset, vdia)
10359#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10360 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XX1_IK5
10363 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10364 integer(IKG) ,
intent(in) ,
contiguous :: vdia(:)
10365 type(dia_type) ,
intent(in) :: subset
10370 PURE module subroutine setMatInit_IMP_XXD_D2XX1_IK4(mat, subset, vdia)
10371#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10372 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XX1_IK4
10375 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10376 integer(IKG) ,
intent(in) ,
contiguous :: vdia(:)
10377 type(dia_type) ,
intent(in) :: subset
10382 PURE module subroutine setMatInit_IMP_XXD_D2XX1_IK3(mat, subset, vdia)
10383#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10384 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XX1_IK3
10387 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10388 integer(IKG) ,
intent(in) ,
contiguous :: vdia(:)
10389 type(dia_type) ,
intent(in) :: subset
10394 PURE module subroutine setMatInit_IMP_XXD_D2XX1_IK2(mat, subset, vdia)
10395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10396 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XX1_IK2
10399 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10400 integer(IKG) ,
intent(in) ,
contiguous :: vdia(:)
10401 type(dia_type) ,
intent(in) :: subset
10406 PURE module subroutine setMatInit_IMP_XXD_D2XX1_IK1(mat, subset, vdia)
10407#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10408 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XX1_IK1
10411 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10412 integer(IKG) ,
intent(in) ,
contiguous :: vdia(:)
10413 type(dia_type) ,
intent(in) :: subset
10420 PURE module subroutine setMatInit_IMP_XXD_D2XX1_LK5(mat, subset, vdia)
10421#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10422 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XX1_LK5
10425 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10426 logical(LKG) ,
intent(in) ,
contiguous :: vdia(:)
10427 type(dia_type) ,
intent(in) :: subset
10432 PURE module subroutine setMatInit_IMP_XXD_D2XX1_LK4(mat, subset, vdia)
10433#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10434 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XX1_LK4
10437 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10438 logical(LKG) ,
intent(in) ,
contiguous :: vdia(:)
10439 type(dia_type) ,
intent(in) :: subset
10444 PURE module subroutine setMatInit_IMP_XXD_D2XX1_LK3(mat, subset, vdia)
10445#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10446 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XX1_LK3
10449 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10450 logical(LKG) ,
intent(in) ,
contiguous :: vdia(:)
10451 type(dia_type) ,
intent(in) :: subset
10456 PURE module subroutine setMatInit_IMP_XXD_D2XX1_LK2(mat, subset, vdia)
10457#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10458 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XX1_LK2
10461 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10462 logical(LKG) ,
intent(in) ,
contiguous :: vdia(:)
10463 type(dia_type) ,
intent(in) :: subset
10468 PURE module subroutine setMatInit_IMP_XXD_D2XX1_LK1(mat, subset, vdia)
10469#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10470 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XX1_LK1
10473 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10474 logical(LKG) ,
intent(in) ,
contiguous :: vdia(:)
10475 type(dia_type) ,
intent(in) :: subset
10482 PURE module subroutine setMatInit_IMP_XXD_D2XX1_CK5(mat, subset, vdia)
10483#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10484 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XX1_CK5
10487 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10488 complex(CKG) ,
intent(in) ,
contiguous :: vdia(:)
10489 type(dia_type) ,
intent(in) :: subset
10494 PURE module subroutine setMatInit_IMP_XXD_D2XX1_CK4(mat, subset, vdia)
10495#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10496 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XX1_CK4
10499 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10500 complex(CKG) ,
intent(in) ,
contiguous :: vdia(:)
10501 type(dia_type) ,
intent(in) :: subset
10506 PURE module subroutine setMatInit_IMP_XXD_D2XX1_CK3(mat, subset, vdia)
10507#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10508 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XX1_CK3
10511 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10512 complex(CKG) ,
intent(in) ,
contiguous :: vdia(:)
10513 type(dia_type) ,
intent(in) :: subset
10518 PURE module subroutine setMatInit_IMP_XXD_D2XX1_CK2(mat, subset, vdia)
10519#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10520 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XX1_CK2
10523 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10524 complex(CKG) ,
intent(in) ,
contiguous :: vdia(:)
10525 type(dia_type) ,
intent(in) :: subset
10530 PURE module subroutine setMatInit_IMP_XXD_D2XX1_CK1(mat, subset, vdia)
10531#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10532 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XX1_CK1
10535 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10536 complex(CKG) ,
intent(in) ,
contiguous :: vdia(:)
10537 type(dia_type) ,
intent(in) :: subset
10544 PURE module subroutine setMatInit_IMP_XXD_D2XX1_RK5(mat, subset, vdia)
10545#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10546 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XX1_RK5
10549 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10550 real(RKG) ,
intent(in) ,
contiguous :: vdia(:)
10551 type(dia_type) ,
intent(in) :: subset
10556 PURE module subroutine setMatInit_IMP_XXD_D2XX1_RK4(mat, subset, vdia)
10557#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10558 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XX1_RK4
10561 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10562 real(RKG) ,
intent(in) ,
contiguous :: vdia(:)
10563 type(dia_type) ,
intent(in) :: subset
10568 PURE module subroutine setMatInit_IMP_XXD_D2XX1_RK3(mat, subset, vdia)
10569#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10570 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XX1_RK3
10573 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10574 real(RKG) ,
intent(in) ,
contiguous :: vdia(:)
10575 type(dia_type) ,
intent(in) :: subset
10580 PURE module subroutine setMatInit_IMP_XXD_D2XX1_RK2(mat, subset, vdia)
10581#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10582 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XX1_RK2
10585 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10586 real(RKG) ,
intent(in) ,
contiguous :: vdia(:)
10587 type(dia_type) ,
intent(in) :: subset
10592 PURE module subroutine setMatInit_IMP_XXD_D2XX1_RK1(mat, subset, vdia)
10593#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10594 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XXD_D2XX1_RK1
10597 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10598 real(RKG) ,
intent(in) ,
contiguous :: vdia(:)
10599 type(dia_type) ,
intent(in) :: subset
10622 PURE module subroutine setMatInit_IMP_XLD_D2X00_SK5(mat, subset, vlow, vdia, doff)
10623#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10624 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLD_D2X00_SK5
10627 integer(IK) ,
intent(in) ,
optional :: doff
10628 type(lowDia_type) ,
intent(in) :: subset
10629 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10630 character(
*,SKG) ,
intent(in) :: vlow
10631 character(
*,SKG) ,
intent(in) :: vdia
10636 PURE module subroutine setMatInit_IMP_XLD_D2X00_SK4(mat, subset, vlow, vdia, doff)
10637#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10638 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLD_D2X00_SK4
10641 integer(IK) ,
intent(in) ,
optional :: doff
10642 type(lowDia_type) ,
intent(in) :: subset
10643 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10644 character(
*,SKG) ,
intent(in) :: vlow
10645 character(
*,SKG) ,
intent(in) :: vdia
10650 PURE module subroutine setMatInit_IMP_XLD_D2X00_SK3(mat, subset, vlow, vdia, doff)
10651#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10652 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLD_D2X00_SK3
10655 integer(IK) ,
intent(in) ,
optional :: doff
10656 type(lowDia_type) ,
intent(in) :: subset
10657 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10658 character(
*,SKG) ,
intent(in) :: vlow
10659 character(
*,SKG) ,
intent(in) :: vdia
10664 PURE module subroutine setMatInit_IMP_XLD_D2X00_SK2(mat, subset, vlow, vdia, doff)
10665#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10666 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLD_D2X00_SK2
10669 integer(IK) ,
intent(in) ,
optional :: doff
10670 type(lowDia_type) ,
intent(in) :: subset
10671 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10672 character(
*,SKG) ,
intent(in) :: vlow
10673 character(
*,SKG) ,
intent(in) :: vdia
10678 PURE module subroutine setMatInit_IMP_XLD_D2X00_SK1(mat, subset, vlow, vdia, doff)
10679#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10680 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLD_D2X00_SK1
10683 integer(IK) ,
intent(in) ,
optional :: doff
10684 type(lowDia_type) ,
intent(in) :: subset
10685 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10686 character(
*,SKG) ,
intent(in) :: vlow
10687 character(
*,SKG) ,
intent(in) :: vdia
10694 PURE module subroutine setMatInit_IMP_XLD_D2X00_IK5(mat, subset, vlow, vdia, doff)
10695#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10696 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLD_D2X00_IK5
10699 integer(IK) ,
intent(in) ,
optional :: doff
10700 type(lowDia_type) ,
intent(in) :: subset
10701 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10702 integer(IKG) ,
intent(in) :: vlow
10703 integer(IKG) ,
intent(in) :: vdia
10708 PURE module subroutine setMatInit_IMP_XLD_D2X00_IK4(mat, subset, vlow, vdia, doff)
10709#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10710 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLD_D2X00_IK4
10713 integer(IK) ,
intent(in) ,
optional :: doff
10714 type(lowDia_type) ,
intent(in) :: subset
10715 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10716 integer(IKG) ,
intent(in) :: vlow
10717 integer(IKG) ,
intent(in) :: vdia
10722 PURE module subroutine setMatInit_IMP_XLD_D2X00_IK3(mat, subset, vlow, vdia, doff)
10723#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10724 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLD_D2X00_IK3
10727 integer(IK) ,
intent(in) ,
optional :: doff
10728 type(lowDia_type) ,
intent(in) :: subset
10729 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10730 integer(IKG) ,
intent(in) :: vlow
10731 integer(IKG) ,
intent(in) :: vdia
10736 PURE module subroutine setMatInit_IMP_XLD_D2X00_IK2(mat, subset, vlow, vdia, doff)
10737#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10738 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLD_D2X00_IK2
10741 integer(IK) ,
intent(in) ,
optional :: doff
10742 type(lowDia_type) ,
intent(in) :: subset
10743 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10744 integer(IKG) ,
intent(in) :: vlow
10745 integer(IKG) ,
intent(in) :: vdia
10750 PURE module subroutine setMatInit_IMP_XLD_D2X00_IK1(mat, subset, vlow, vdia, doff)
10751#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10752 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLD_D2X00_IK1
10755 integer(IK) ,
intent(in) ,
optional :: doff
10756 type(lowDia_type) ,
intent(in) :: subset
10757 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10758 integer(IKG) ,
intent(in) :: vlow
10759 integer(IKG) ,
intent(in) :: vdia
10766 PURE module subroutine setMatInit_IMP_XLD_D2X00_LK5(mat, subset, vlow, vdia, doff)
10767#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10768 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLD_D2X00_LK5
10771 integer(IK) ,
intent(in) ,
optional :: doff
10772 type(lowDia_type) ,
intent(in) :: subset
10773 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10774 logical(LKG) ,
intent(in) :: vlow
10775 logical(LKG) ,
intent(in) :: vdia
10780 PURE module subroutine setMatInit_IMP_XLD_D2X00_LK4(mat, subset, vlow, vdia, doff)
10781#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10782 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLD_D2X00_LK4
10785 integer(IK) ,
intent(in) ,
optional :: doff
10786 type(lowDia_type) ,
intent(in) :: subset
10787 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10788 logical(LKG) ,
intent(in) :: vlow
10789 logical(LKG) ,
intent(in) :: vdia
10794 PURE module subroutine setMatInit_IMP_XLD_D2X00_LK3(mat, subset, vlow, vdia, doff)
10795#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10796 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLD_D2X00_LK3
10799 integer(IK) ,
intent(in) ,
optional :: doff
10800 type(lowDia_type) ,
intent(in) :: subset
10801 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10802 logical(LKG) ,
intent(in) :: vlow
10803 logical(LKG) ,
intent(in) :: vdia
10808 PURE module subroutine setMatInit_IMP_XLD_D2X00_LK2(mat, subset, vlow, vdia, doff)
10809#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10810 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLD_D2X00_LK2
10813 integer(IK) ,
intent(in) ,
optional :: doff
10814 type(lowDia_type) ,
intent(in) :: subset
10815 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10816 logical(LKG) ,
intent(in) :: vlow
10817 logical(LKG) ,
intent(in) :: vdia
10822 PURE module subroutine setMatInit_IMP_XLD_D2X00_LK1(mat, subset, vlow, vdia, doff)
10823#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10824 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLD_D2X00_LK1
10827 integer(IK) ,
intent(in) ,
optional :: doff
10828 type(lowDia_type) ,
intent(in) :: subset
10829 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10830 logical(LKG) ,
intent(in) :: vlow
10831 logical(LKG) ,
intent(in) :: vdia
10838 PURE module subroutine setMatInit_IMP_XLD_D2X00_CK5(mat, subset, vlow, vdia, doff)
10839#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10840 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLD_D2X00_CK5
10843 integer(IK) ,
intent(in) ,
optional :: doff
10844 type(lowDia_type) ,
intent(in) :: subset
10845 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10846 complex(CKG) ,
intent(in) :: vlow
10847 complex(CKG) ,
intent(in) :: vdia
10852 PURE module subroutine setMatInit_IMP_XLD_D2X00_CK4(mat, subset, vlow, vdia, doff)
10853#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10854 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLD_D2X00_CK4
10857 integer(IK) ,
intent(in) ,
optional :: doff
10858 type(lowDia_type) ,
intent(in) :: subset
10859 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10860 complex(CKG) ,
intent(in) :: vlow
10861 complex(CKG) ,
intent(in) :: vdia
10866 PURE module subroutine setMatInit_IMP_XLD_D2X00_CK3(mat, subset, vlow, vdia, doff)
10867#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10868 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLD_D2X00_CK3
10871 integer(IK) ,
intent(in) ,
optional :: doff
10872 type(lowDia_type) ,
intent(in) :: subset
10873 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10874 complex(CKG) ,
intent(in) :: vlow
10875 complex(CKG) ,
intent(in) :: vdia
10880 PURE module subroutine setMatInit_IMP_XLD_D2X00_CK2(mat, subset, vlow, vdia, doff)
10881#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10882 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLD_D2X00_CK2
10885 integer(IK) ,
intent(in) ,
optional :: doff
10886 type(lowDia_type) ,
intent(in) :: subset
10887 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10888 complex(CKG) ,
intent(in) :: vlow
10889 complex(CKG) ,
intent(in) :: vdia
10894 PURE module subroutine setMatInit_IMP_XLD_D2X00_CK1(mat, subset, vlow, vdia, doff)
10895#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10896 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLD_D2X00_CK1
10899 integer(IK) ,
intent(in) ,
optional :: doff
10900 type(lowDia_type) ,
intent(in) :: subset
10901 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10902 complex(CKG) ,
intent(in) :: vlow
10903 complex(CKG) ,
intent(in) :: vdia
10910 PURE module subroutine setMatInit_IMP_XLD_D2X00_RK5(mat, subset, vlow, vdia, doff)
10911#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10912 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLD_D2X00_RK5
10915 integer(IK) ,
intent(in) ,
optional :: doff
10916 type(lowDia_type) ,
intent(in) :: subset
10917 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10918 real(RKG) ,
intent(in) :: vlow
10919 real(RKG) ,
intent(in) :: vdia
10924 PURE module subroutine setMatInit_IMP_XLD_D2X00_RK4(mat, subset, vlow, vdia, doff)
10925#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10926 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLD_D2X00_RK4
10929 integer(IK) ,
intent(in) ,
optional :: doff
10930 type(lowDia_type) ,
intent(in) :: subset
10931 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10932 real(RKG) ,
intent(in) :: vlow
10933 real(RKG) ,
intent(in) :: vdia
10938 PURE module subroutine setMatInit_IMP_XLD_D2X00_RK3(mat, subset, vlow, vdia, doff)
10939#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10940 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLD_D2X00_RK3
10943 integer(IK) ,
intent(in) ,
optional :: doff
10944 type(lowDia_type) ,
intent(in) :: subset
10945 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10946 real(RKG) ,
intent(in) :: vlow
10947 real(RKG) ,
intent(in) :: vdia
10952 PURE module subroutine setMatInit_IMP_XLD_D2X00_RK2(mat, subset, vlow, vdia, doff)
10953#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10954 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLD_D2X00_RK2
10957 integer(IK) ,
intent(in) ,
optional :: doff
10958 type(lowDia_type) ,
intent(in) :: subset
10959 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10960 real(RKG) ,
intent(in) :: vlow
10961 real(RKG) ,
intent(in) :: vdia
10966 PURE module subroutine setMatInit_IMP_XLD_D2X00_RK1(mat, subset, vlow, vdia, doff)
10967#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10968 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLD_D2X00_RK1
10971 integer(IK) ,
intent(in) ,
optional :: doff
10972 type(lowDia_type) ,
intent(in) :: subset
10973 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10974 real(RKG) ,
intent(in) :: vlow
10975 real(RKG) ,
intent(in) :: vdia
10988 PURE module subroutine setMatInit_IMP_XLD_D2X01_SK5(mat, subset, vlow, vdia, doff)
10989#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10990 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLD_D2X01_SK5
10993 integer(IK) ,
intent(in) ,
optional :: doff
10994 type(lowDia_type) ,
intent(in) :: subset
10995 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
10996 character(
*,SKG) ,
intent(in) ,
contiguous :: vdia(:)
10997 character(
*,SKG) ,
intent(in) :: vlow
11002 PURE module subroutine setMatInit_IMP_XLD_D2X01_SK4(mat, subset, vlow, vdia, doff)
11003#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11004 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLD_D2X01_SK4
11007 integer(IK) ,
intent(in) ,
optional :: doff
11008 type(lowDia_type) ,
intent(in) :: subset
11009 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11010 character(
*,SKG) ,
intent(in) ,
contiguous :: vdia(:)
11011 character(
*,SKG) ,
intent(in) :: vlow
11016 PURE module subroutine setMatInit_IMP_XLD_D2X01_SK3(mat, subset, vlow, vdia, doff)
11017#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11018 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLD_D2X01_SK3
11021 integer(IK) ,
intent(in) ,
optional :: doff
11022 type(lowDia_type) ,
intent(in) :: subset
11023 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11024 character(
*,SKG) ,
intent(in) ,
contiguous :: vdia(:)
11025 character(
*,SKG) ,
intent(in) :: vlow
11030 PURE module subroutine setMatInit_IMP_XLD_D2X01_SK2(mat, subset, vlow, vdia, doff)
11031#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11032 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLD_D2X01_SK2
11035 integer(IK) ,
intent(in) ,
optional :: doff
11036 type(lowDia_type) ,
intent(in) :: subset
11037 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11038 character(
*,SKG) ,
intent(in) ,
contiguous :: vdia(:)
11039 character(
*,SKG) ,
intent(in) :: vlow
11044 PURE module subroutine setMatInit_IMP_XLD_D2X01_SK1(mat, subset, vlow, vdia, doff)
11045#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11046 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLD_D2X01_SK1
11049 integer(IK) ,
intent(in) ,
optional :: doff
11050 type(lowDia_type) ,
intent(in) :: subset
11051 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11052 character(
*,SKG) ,
intent(in) ,
contiguous :: vdia(:)
11053 character(
*,SKG) ,
intent(in) :: vlow
11060 PURE module subroutine setMatInit_IMP_XLD_D2X01_IK5(mat, subset, vlow, vdia, doff)
11061#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11062 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLD_D2X01_IK5
11065 integer(IK) ,
intent(in) ,
optional :: doff
11066 type(lowDia_type) ,
intent(in) :: subset
11067 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11068 integer(IKG) ,
intent(in) ,
contiguous :: vdia(:)
11069 integer(IKG) ,
intent(in) :: vlow
11074 PURE module subroutine setMatInit_IMP_XLD_D2X01_IK4(mat, subset, vlow, vdia, doff)
11075#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11076 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLD_D2X01_IK4
11079 integer(IK) ,
intent(in) ,
optional :: doff
11080 type(lowDia_type) ,
intent(in) :: subset
11081 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11082 integer(IKG) ,
intent(in) ,
contiguous :: vdia(:)
11083 integer(IKG) ,
intent(in) :: vlow
11088 PURE module subroutine setMatInit_IMP_XLD_D2X01_IK3(mat, subset, vlow, vdia, doff)
11089#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11090 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLD_D2X01_IK3
11093 integer(IK) ,
intent(in) ,
optional :: doff
11094 type(lowDia_type) ,
intent(in) :: subset
11095 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11096 integer(IKG) ,
intent(in) ,
contiguous :: vdia(:)
11097 integer(IKG) ,
intent(in) :: vlow
11102 PURE module subroutine setMatInit_IMP_XLD_D2X01_IK2(mat, subset, vlow, vdia, doff)
11103#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11104 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLD_D2X01_IK2
11107 integer(IK) ,
intent(in) ,
optional :: doff
11108 type(lowDia_type) ,
intent(in) :: subset
11109 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11110 integer(IKG) ,
intent(in) ,
contiguous :: vdia(:)
11111 integer(IKG) ,
intent(in) :: vlow
11116 PURE module subroutine setMatInit_IMP_XLD_D2X01_IK1(mat, subset, vlow, vdia, doff)
11117#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11118 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLD_D2X01_IK1
11121 integer(IK) ,
intent(in) ,
optional :: doff
11122 type(lowDia_type) ,
intent(in) :: subset
11123 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11124 integer(IKG) ,
intent(in) ,
contiguous :: vdia(:)
11125 integer(IKG) ,
intent(in) :: vlow
11132 PURE module subroutine setMatInit_IMP_XLD_D2X01_LK5(mat, subset, vlow, vdia, doff)
11133#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11134 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLD_D2X01_LK5
11137 integer(IK) ,
intent(in) ,
optional :: doff
11138 type(lowDia_type) ,
intent(in) :: subset
11139 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11140 logical(LKG) ,
intent(in) ,
contiguous :: vdia(:)
11141 logical(LKG) ,
intent(in) :: vlow
11146 PURE module subroutine setMatInit_IMP_XLD_D2X01_LK4(mat, subset, vlow, vdia, doff)
11147#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11148 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLD_D2X01_LK4
11151 integer(IK) ,
intent(in) ,
optional :: doff
11152 type(lowDia_type) ,
intent(in) :: subset
11153 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11154 logical(LKG) ,
intent(in) ,
contiguous :: vdia(:)
11155 logical(LKG) ,
intent(in) :: vlow
11160 PURE module subroutine setMatInit_IMP_XLD_D2X01_LK3(mat, subset, vlow, vdia, doff)
11161#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11162 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLD_D2X01_LK3
11165 integer(IK) ,
intent(in) ,
optional :: doff
11166 type(lowDia_type) ,
intent(in) :: subset
11167 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11168 logical(LKG) ,
intent(in) ,
contiguous :: vdia(:)
11169 logical(LKG) ,
intent(in) :: vlow
11174 PURE module subroutine setMatInit_IMP_XLD_D2X01_LK2(mat, subset, vlow, vdia, doff)
11175#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11176 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLD_D2X01_LK2
11179 integer(IK) ,
intent(in) ,
optional :: doff
11180 type(lowDia_type) ,
intent(in) :: subset
11181 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11182 logical(LKG) ,
intent(in) ,
contiguous :: vdia(:)
11183 logical(LKG) ,
intent(in) :: vlow
11188 PURE module subroutine setMatInit_IMP_XLD_D2X01_LK1(mat, subset, vlow, vdia, doff)
11189#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11190 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLD_D2X01_LK1
11193 integer(IK) ,
intent(in) ,
optional :: doff
11194 type(lowDia_type) ,
intent(in) :: subset
11195 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11196 logical(LKG) ,
intent(in) ,
contiguous :: vdia(:)
11197 logical(LKG) ,
intent(in) :: vlow
11204 PURE module subroutine setMatInit_IMP_XLD_D2X01_CK5(mat, subset, vlow, vdia, doff)
11205#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11206 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLD_D2X01_CK5
11209 integer(IK) ,
intent(in) ,
optional :: doff
11210 type(lowDia_type) ,
intent(in) :: subset
11211 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11212 complex(CKG) ,
intent(in) ,
contiguous :: vdia(:)
11213 complex(CKG) ,
intent(in) :: vlow
11218 PURE module subroutine setMatInit_IMP_XLD_D2X01_CK4(mat, subset, vlow, vdia, doff)
11219#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11220 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLD_D2X01_CK4
11223 integer(IK) ,
intent(in) ,
optional :: doff
11224 type(lowDia_type) ,
intent(in) :: subset
11225 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11226 complex(CKG) ,
intent(in) ,
contiguous :: vdia(:)
11227 complex(CKG) ,
intent(in) :: vlow
11232 PURE module subroutine setMatInit_IMP_XLD_D2X01_CK3(mat, subset, vlow, vdia, doff)
11233#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11234 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLD_D2X01_CK3
11237 integer(IK) ,
intent(in) ,
optional :: doff
11238 type(lowDia_type) ,
intent(in) :: subset
11239 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11240 complex(CKG) ,
intent(in) ,
contiguous :: vdia(:)
11241 complex(CKG) ,
intent(in) :: vlow
11246 PURE module subroutine setMatInit_IMP_XLD_D2X01_CK2(mat, subset, vlow, vdia, doff)
11247#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11248 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLD_D2X01_CK2
11251 integer(IK) ,
intent(in) ,
optional :: doff
11252 type(lowDia_type) ,
intent(in) :: subset
11253 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11254 complex(CKG) ,
intent(in) ,
contiguous :: vdia(:)
11255 complex(CKG) ,
intent(in) :: vlow
11260 PURE module subroutine setMatInit_IMP_XLD_D2X01_CK1(mat, subset, vlow, vdia, doff)
11261#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11262 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLD_D2X01_CK1
11265 integer(IK) ,
intent(in) ,
optional :: doff
11266 type(lowDia_type) ,
intent(in) :: subset
11267 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11268 complex(CKG) ,
intent(in) ,
contiguous :: vdia(:)
11269 complex(CKG) ,
intent(in) :: vlow
11276 PURE module subroutine setMatInit_IMP_XLD_D2X01_RK5(mat, subset, vlow, vdia, doff)
11277#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11278 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLD_D2X01_RK5
11281 integer(IK) ,
intent(in) ,
optional :: doff
11282 type(lowDia_type) ,
intent(in) :: subset
11283 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11284 real(RKG) ,
intent(in) ,
contiguous :: vdia(:)
11285 real(RKG) ,
intent(in) :: vlow
11290 PURE module subroutine setMatInit_IMP_XLD_D2X01_RK4(mat, subset, vlow, vdia, doff)
11291#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11292 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLD_D2X01_RK4
11295 integer(IK) ,
intent(in) ,
optional :: doff
11296 type(lowDia_type) ,
intent(in) :: subset
11297 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11298 real(RKG) ,
intent(in) ,
contiguous :: vdia(:)
11299 real(RKG) ,
intent(in) :: vlow
11304 PURE module subroutine setMatInit_IMP_XLD_D2X01_RK3(mat, subset, vlow, vdia, doff)
11305#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11306 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLD_D2X01_RK3
11309 integer(IK) ,
intent(in) ,
optional :: doff
11310 type(lowDia_type) ,
intent(in) :: subset
11311 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11312 real(RKG) ,
intent(in) ,
contiguous :: vdia(:)
11313 real(RKG) ,
intent(in) :: vlow
11318 PURE module subroutine setMatInit_IMP_XLD_D2X01_RK2(mat, subset, vlow, vdia, doff)
11319#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11320 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLD_D2X01_RK2
11323 integer(IK) ,
intent(in) ,
optional :: doff
11324 type(lowDia_type) ,
intent(in) :: subset
11325 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11326 real(RKG) ,
intent(in) ,
contiguous :: vdia(:)
11327 real(RKG) ,
intent(in) :: vlow
11332 PURE module subroutine setMatInit_IMP_XLD_D2X01_RK1(mat, subset, vlow, vdia, doff)
11333#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11334 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_XLD_D2X01_RK1
11337 integer(IK) ,
intent(in) ,
optional :: doff
11338 type(lowDia_type) ,
intent(in) :: subset
11339 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11340 real(RKG) ,
intent(in) ,
contiguous :: vdia(:)
11341 real(RKG) ,
intent(in) :: vlow
11364 PURE module subroutine setMatInit_IMP_UXD_D20X0_SK5(mat, subset, vupp, vdia, doff)
11365#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11366 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXD_D20X0_SK5
11369 integer(IK) ,
intent(in) ,
optional :: doff
11370 type(uppDia_type) ,
intent(in) :: subset
11371 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11372 character(
*,SKG) ,
intent(in) :: vupp
11373 character(
*,SKG) ,
intent(in) :: vdia
11378 PURE module subroutine setMatInit_IMP_UXD_D20X0_SK4(mat, subset, vupp, vdia, doff)
11379#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11380 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXD_D20X0_SK4
11383 integer(IK) ,
intent(in) ,
optional :: doff
11384 type(uppDia_type) ,
intent(in) :: subset
11385 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11386 character(
*,SKG) ,
intent(in) :: vupp
11387 character(
*,SKG) ,
intent(in) :: vdia
11392 PURE module subroutine setMatInit_IMP_UXD_D20X0_SK3(mat, subset, vupp, vdia, doff)
11393#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11394 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXD_D20X0_SK3
11397 integer(IK) ,
intent(in) ,
optional :: doff
11398 type(uppDia_type) ,
intent(in) :: subset
11399 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11400 character(
*,SKG) ,
intent(in) :: vupp
11401 character(
*,SKG) ,
intent(in) :: vdia
11406 PURE module subroutine setMatInit_IMP_UXD_D20X0_SK2(mat, subset, vupp, vdia, doff)
11407#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11408 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXD_D20X0_SK2
11411 integer(IK) ,
intent(in) ,
optional :: doff
11412 type(uppDia_type) ,
intent(in) :: subset
11413 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11414 character(
*,SKG) ,
intent(in) :: vupp
11415 character(
*,SKG) ,
intent(in) :: vdia
11420 PURE module subroutine setMatInit_IMP_UXD_D20X0_SK1(mat, subset, vupp, vdia, doff)
11421#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11422 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXD_D20X0_SK1
11425 integer(IK) ,
intent(in) ,
optional :: doff
11426 type(uppDia_type) ,
intent(in) :: subset
11427 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11428 character(
*,SKG) ,
intent(in) :: vupp
11429 character(
*,SKG) ,
intent(in) :: vdia
11436 PURE module subroutine setMatInit_IMP_UXD_D20X0_IK5(mat, subset, vupp, vdia, doff)
11437#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11438 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXD_D20X0_IK5
11441 integer(IK) ,
intent(in) ,
optional :: doff
11442 type(uppDia_type) ,
intent(in) :: subset
11443 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11444 integer(IKG) ,
intent(in) :: vupp
11445 integer(IKG) ,
intent(in) :: vdia
11450 PURE module subroutine setMatInit_IMP_UXD_D20X0_IK4(mat, subset, vupp, vdia, doff)
11451#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11452 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXD_D20X0_IK4
11455 integer(IK) ,
intent(in) ,
optional :: doff
11456 type(uppDia_type) ,
intent(in) :: subset
11457 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11458 integer(IKG) ,
intent(in) :: vupp
11459 integer(IKG) ,
intent(in) :: vdia
11464 PURE module subroutine setMatInit_IMP_UXD_D20X0_IK3(mat, subset, vupp, vdia, doff)
11465#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11466 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXD_D20X0_IK3
11469 integer(IK) ,
intent(in) ,
optional :: doff
11470 type(uppDia_type) ,
intent(in) :: subset
11471 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11472 integer(IKG) ,
intent(in) :: vupp
11473 integer(IKG) ,
intent(in) :: vdia
11478 PURE module subroutine setMatInit_IMP_UXD_D20X0_IK2(mat, subset, vupp, vdia, doff)
11479#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11480 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXD_D20X0_IK2
11483 integer(IK) ,
intent(in) ,
optional :: doff
11484 type(uppDia_type) ,
intent(in) :: subset
11485 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11486 integer(IKG) ,
intent(in) :: vupp
11487 integer(IKG) ,
intent(in) :: vdia
11492 PURE module subroutine setMatInit_IMP_UXD_D20X0_IK1(mat, subset, vupp, vdia, doff)
11493#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11494 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXD_D20X0_IK1
11497 integer(IK) ,
intent(in) ,
optional :: doff
11498 type(uppDia_type) ,
intent(in) :: subset
11499 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11500 integer(IKG) ,
intent(in) :: vupp
11501 integer(IKG) ,
intent(in) :: vdia
11508 PURE module subroutine setMatInit_IMP_UXD_D20X0_LK5(mat, subset, vupp, vdia, doff)
11509#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11510 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXD_D20X0_LK5
11513 integer(IK) ,
intent(in) ,
optional :: doff
11514 type(uppDia_type) ,
intent(in) :: subset
11515 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11516 logical(LKG) ,
intent(in) :: vupp
11517 logical(LKG) ,
intent(in) :: vdia
11522 PURE module subroutine setMatInit_IMP_UXD_D20X0_LK4(mat, subset, vupp, vdia, doff)
11523#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11524 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXD_D20X0_LK4
11527 integer(IK) ,
intent(in) ,
optional :: doff
11528 type(uppDia_type) ,
intent(in) :: subset
11529 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11530 logical(LKG) ,
intent(in) :: vupp
11531 logical(LKG) ,
intent(in) :: vdia
11536 PURE module subroutine setMatInit_IMP_UXD_D20X0_LK3(mat, subset, vupp, vdia, doff)
11537#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11538 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXD_D20X0_LK3
11541 integer(IK) ,
intent(in) ,
optional :: doff
11542 type(uppDia_type) ,
intent(in) :: subset
11543 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11544 logical(LKG) ,
intent(in) :: vupp
11545 logical(LKG) ,
intent(in) :: vdia
11550 PURE module subroutine setMatInit_IMP_UXD_D20X0_LK2(mat, subset, vupp, vdia, doff)
11551#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11552 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXD_D20X0_LK2
11555 integer(IK) ,
intent(in) ,
optional :: doff
11556 type(uppDia_type) ,
intent(in) :: subset
11557 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11558 logical(LKG) ,
intent(in) :: vupp
11559 logical(LKG) ,
intent(in) :: vdia
11564 PURE module subroutine setMatInit_IMP_UXD_D20X0_LK1(mat, subset, vupp, vdia, doff)
11565#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11566 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXD_D20X0_LK1
11569 integer(IK) ,
intent(in) ,
optional :: doff
11570 type(uppDia_type) ,
intent(in) :: subset
11571 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11572 logical(LKG) ,
intent(in) :: vupp
11573 logical(LKG) ,
intent(in) :: vdia
11580 PURE module subroutine setMatInit_IMP_UXD_D20X0_CK5(mat, subset, vupp, vdia, doff)
11581#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11582 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXD_D20X0_CK5
11585 integer(IK) ,
intent(in) ,
optional :: doff
11586 type(uppDia_type) ,
intent(in) :: subset
11587 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11588 complex(CKG) ,
intent(in) :: vupp
11589 complex(CKG) ,
intent(in) :: vdia
11594 PURE module subroutine setMatInit_IMP_UXD_D20X0_CK4(mat, subset, vupp, vdia, doff)
11595#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11596 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXD_D20X0_CK4
11599 integer(IK) ,
intent(in) ,
optional :: doff
11600 type(uppDia_type) ,
intent(in) :: subset
11601 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11602 complex(CKG) ,
intent(in) :: vupp
11603 complex(CKG) ,
intent(in) :: vdia
11608 PURE module subroutine setMatInit_IMP_UXD_D20X0_CK3(mat, subset, vupp, vdia, doff)
11609#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11610 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXD_D20X0_CK3
11613 integer(IK) ,
intent(in) ,
optional :: doff
11614 type(uppDia_type) ,
intent(in) :: subset
11615 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11616 complex(CKG) ,
intent(in) :: vupp
11617 complex(CKG) ,
intent(in) :: vdia
11622 PURE module subroutine setMatInit_IMP_UXD_D20X0_CK2(mat, subset, vupp, vdia, doff)
11623#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11624 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXD_D20X0_CK2
11627 integer(IK) ,
intent(in) ,
optional :: doff
11628 type(uppDia_type) ,
intent(in) :: subset
11629 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11630 complex(CKG) ,
intent(in) :: vupp
11631 complex(CKG) ,
intent(in) :: vdia
11636 PURE module subroutine setMatInit_IMP_UXD_D20X0_CK1(mat, subset, vupp, vdia, doff)
11637#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11638 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXD_D20X0_CK1
11641 integer(IK) ,
intent(in) ,
optional :: doff
11642 type(uppDia_type) ,
intent(in) :: subset
11643 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11644 complex(CKG) ,
intent(in) :: vupp
11645 complex(CKG) ,
intent(in) :: vdia
11652 PURE module subroutine setMatInit_IMP_UXD_D20X0_RK5(mat, subset, vupp, vdia, doff)
11653#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11654 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXD_D20X0_RK5
11657 integer(IK) ,
intent(in) ,
optional :: doff
11658 type(uppDia_type) ,
intent(in) :: subset
11659 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11660 real(RKG) ,
intent(in) :: vupp
11661 real(RKG) ,
intent(in) :: vdia
11666 PURE module subroutine setMatInit_IMP_UXD_D20X0_RK4(mat, subset, vupp, vdia, doff)
11667#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11668 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXD_D20X0_RK4
11671 integer(IK) ,
intent(in) ,
optional :: doff
11672 type(uppDia_type) ,
intent(in) :: subset
11673 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11674 real(RKG) ,
intent(in) :: vupp
11675 real(RKG) ,
intent(in) :: vdia
11680 PURE module subroutine setMatInit_IMP_UXD_D20X0_RK3(mat, subset, vupp, vdia, doff)
11681#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11682 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXD_D20X0_RK3
11685 integer(IK) ,
intent(in) ,
optional :: doff
11686 type(uppDia_type) ,
intent(in) :: subset
11687 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11688 real(RKG) ,
intent(in) :: vupp
11689 real(RKG) ,
intent(in) :: vdia
11694 PURE module subroutine setMatInit_IMP_UXD_D20X0_RK2(mat, subset, vupp, vdia, doff)
11695#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11696 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXD_D20X0_RK2
11699 integer(IK) ,
intent(in) ,
optional :: doff
11700 type(uppDia_type) ,
intent(in) :: subset
11701 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11702 real(RKG) ,
intent(in) :: vupp
11703 real(RKG) ,
intent(in) :: vdia
11708 PURE module subroutine setMatInit_IMP_UXD_D20X0_RK1(mat, subset, vupp, vdia, doff)
11709#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11710 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXD_D20X0_RK1
11713 integer(IK) ,
intent(in) ,
optional :: doff
11714 type(uppDia_type) ,
intent(in) :: subset
11715 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11716 real(RKG) ,
intent(in) :: vupp
11717 real(RKG) ,
intent(in) :: vdia
11730 PURE module subroutine setMatInit_IMP_UXD_D20X1_SK5(mat, subset, vupp, vdia, doff)
11731#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11732 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXD_D20X1_SK5
11735 integer(IK) ,
intent(in) ,
optional :: doff
11736 type(uppDia_type) ,
intent(in) :: subset
11737 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11738 character(
*,SKG) ,
intent(in) ,
contiguous :: vdia(:)
11739 character(
*,SKG) ,
intent(in) :: vupp
11744 PURE module subroutine setMatInit_IMP_UXD_D20X1_SK4(mat, subset, vupp, vdia, doff)
11745#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11746 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXD_D20X1_SK4
11749 integer(IK) ,
intent(in) ,
optional :: doff
11750 type(uppDia_type) ,
intent(in) :: subset
11751 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11752 character(
*,SKG) ,
intent(in) ,
contiguous :: vdia(:)
11753 character(
*,SKG) ,
intent(in) :: vupp
11758 PURE module subroutine setMatInit_IMP_UXD_D20X1_SK3(mat, subset, vupp, vdia, doff)
11759#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11760 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXD_D20X1_SK3
11763 integer(IK) ,
intent(in) ,
optional :: doff
11764 type(uppDia_type) ,
intent(in) :: subset
11765 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11766 character(
*,SKG) ,
intent(in) ,
contiguous :: vdia(:)
11767 character(
*,SKG) ,
intent(in) :: vupp
11772 PURE module subroutine setMatInit_IMP_UXD_D20X1_SK2(mat, subset, vupp, vdia, doff)
11773#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11774 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXD_D20X1_SK2
11777 integer(IK) ,
intent(in) ,
optional :: doff
11778 type(uppDia_type) ,
intent(in) :: subset
11779 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11780 character(
*,SKG) ,
intent(in) ,
contiguous :: vdia(:)
11781 character(
*,SKG) ,
intent(in) :: vupp
11786 PURE module subroutine setMatInit_IMP_UXD_D20X1_SK1(mat, subset, vupp, vdia, doff)
11787#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11788 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXD_D20X1_SK1
11791 integer(IK) ,
intent(in) ,
optional :: doff
11792 type(uppDia_type) ,
intent(in) :: subset
11793 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11794 character(
*,SKG) ,
intent(in) ,
contiguous :: vdia(:)
11795 character(
*,SKG) ,
intent(in) :: vupp
11802 PURE module subroutine setMatInit_IMP_UXD_D20X1_IK5(mat, subset, vupp, vdia, doff)
11803#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11804 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXD_D20X1_IK5
11807 integer(IK) ,
intent(in) ,
optional :: doff
11808 type(uppDia_type) ,
intent(in) :: subset
11809 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11810 integer(IKG) ,
intent(in) ,
contiguous :: vdia(:)
11811 integer(IKG) ,
intent(in) :: vupp
11816 PURE module subroutine setMatInit_IMP_UXD_D20X1_IK4(mat, subset, vupp, vdia, doff)
11817#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11818 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXD_D20X1_IK4
11821 integer(IK) ,
intent(in) ,
optional :: doff
11822 type(uppDia_type) ,
intent(in) :: subset
11823 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11824 integer(IKG) ,
intent(in) ,
contiguous :: vdia(:)
11825 integer(IKG) ,
intent(in) :: vupp
11830 PURE module subroutine setMatInit_IMP_UXD_D20X1_IK3(mat, subset, vupp, vdia, doff)
11831#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11832 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXD_D20X1_IK3
11835 integer(IK) ,
intent(in) ,
optional :: doff
11836 type(uppDia_type) ,
intent(in) :: subset
11837 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11838 integer(IKG) ,
intent(in) ,
contiguous :: vdia(:)
11839 integer(IKG) ,
intent(in) :: vupp
11844 PURE module subroutine setMatInit_IMP_UXD_D20X1_IK2(mat, subset, vupp, vdia, doff)
11845#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11846 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXD_D20X1_IK2
11849 integer(IK) ,
intent(in) ,
optional :: doff
11850 type(uppDia_type) ,
intent(in) :: subset
11851 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11852 integer(IKG) ,
intent(in) ,
contiguous :: vdia(:)
11853 integer(IKG) ,
intent(in) :: vupp
11858 PURE module subroutine setMatInit_IMP_UXD_D20X1_IK1(mat, subset, vupp, vdia, doff)
11859#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11860 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXD_D20X1_IK1
11863 integer(IK) ,
intent(in) ,
optional :: doff
11864 type(uppDia_type) ,
intent(in) :: subset
11865 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11866 integer(IKG) ,
intent(in) ,
contiguous :: vdia(:)
11867 integer(IKG) ,
intent(in) :: vupp
11874 PURE module subroutine setMatInit_IMP_UXD_D20X1_LK5(mat, subset, vupp, vdia, doff)
11875#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11876 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXD_D20X1_LK5
11879 integer(IK) ,
intent(in) ,
optional :: doff
11880 type(uppDia_type) ,
intent(in) :: subset
11881 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11882 logical(LKG) ,
intent(in) ,
contiguous :: vdia(:)
11883 logical(LKG) ,
intent(in) :: vupp
11888 PURE module subroutine setMatInit_IMP_UXD_D20X1_LK4(mat, subset, vupp, vdia, doff)
11889#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11890 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXD_D20X1_LK4
11893 integer(IK) ,
intent(in) ,
optional :: doff
11894 type(uppDia_type) ,
intent(in) :: subset
11895 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11896 logical(LKG) ,
intent(in) ,
contiguous :: vdia(:)
11897 logical(LKG) ,
intent(in) :: vupp
11902 PURE module subroutine setMatInit_IMP_UXD_D20X1_LK3(mat, subset, vupp, vdia, doff)
11903#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11904 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXD_D20X1_LK3
11907 integer(IK) ,
intent(in) ,
optional :: doff
11908 type(uppDia_type) ,
intent(in) :: subset
11909 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11910 logical(LKG) ,
intent(in) ,
contiguous :: vdia(:)
11911 logical(LKG) ,
intent(in) :: vupp
11916 PURE module subroutine setMatInit_IMP_UXD_D20X1_LK2(mat, subset, vupp, vdia, doff)
11917#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11918 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXD_D20X1_LK2
11921 integer(IK) ,
intent(in) ,
optional :: doff
11922 type(uppDia_type) ,
intent(in) :: subset
11923 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11924 logical(LKG) ,
intent(in) ,
contiguous :: vdia(:)
11925 logical(LKG) ,
intent(in) :: vupp
11930 PURE module subroutine setMatInit_IMP_UXD_D20X1_LK1(mat, subset, vupp, vdia, doff)
11931#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11932 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXD_D20X1_LK1
11935 integer(IK) ,
intent(in) ,
optional :: doff
11936 type(uppDia_type) ,
intent(in) :: subset
11937 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11938 logical(LKG) ,
intent(in) ,
contiguous :: vdia(:)
11939 logical(LKG) ,
intent(in) :: vupp
11946 PURE module subroutine setMatInit_IMP_UXD_D20X1_CK5(mat, subset, vupp, vdia, doff)
11947#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11948 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXD_D20X1_CK5
11951 integer(IK) ,
intent(in) ,
optional :: doff
11952 type(uppDia_type) ,
intent(in) :: subset
11953 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11954 complex(CKG) ,
intent(in) ,
contiguous :: vdia(:)
11955 complex(CKG) ,
intent(in) :: vupp
11960 PURE module subroutine setMatInit_IMP_UXD_D20X1_CK4(mat, subset, vupp, vdia, doff)
11961#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11962 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXD_D20X1_CK4
11965 integer(IK) ,
intent(in) ,
optional :: doff
11966 type(uppDia_type) ,
intent(in) :: subset
11967 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11968 complex(CKG) ,
intent(in) ,
contiguous :: vdia(:)
11969 complex(CKG) ,
intent(in) :: vupp
11974 PURE module subroutine setMatInit_IMP_UXD_D20X1_CK3(mat, subset, vupp, vdia, doff)
11975#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11976 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXD_D20X1_CK3
11979 integer(IK) ,
intent(in) ,
optional :: doff
11980 type(uppDia_type) ,
intent(in) :: subset
11981 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11982 complex(CKG) ,
intent(in) ,
contiguous :: vdia(:)
11983 complex(CKG) ,
intent(in) :: vupp
11988 PURE module subroutine setMatInit_IMP_UXD_D20X1_CK2(mat, subset, vupp, vdia, doff)
11989#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11990 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXD_D20X1_CK2
11993 integer(IK) ,
intent(in) ,
optional :: doff
11994 type(uppDia_type) ,
intent(in) :: subset
11995 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
11996 complex(CKG) ,
intent(in) ,
contiguous :: vdia(:)
11997 complex(CKG) ,
intent(in) :: vupp
12002 PURE module subroutine setMatInit_IMP_UXD_D20X1_CK1(mat, subset, vupp, vdia, doff)
12003#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12004 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXD_D20X1_CK1
12007 integer(IK) ,
intent(in) ,
optional :: doff
12008 type(uppDia_type) ,
intent(in) :: subset
12009 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12010 complex(CKG) ,
intent(in) ,
contiguous :: vdia(:)
12011 complex(CKG) ,
intent(in) :: vupp
12018 PURE module subroutine setMatInit_IMP_UXD_D20X1_RK5(mat, subset, vupp, vdia, doff)
12019#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12020 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXD_D20X1_RK5
12023 integer(IK) ,
intent(in) ,
optional :: doff
12024 type(uppDia_type) ,
intent(in) :: subset
12025 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12026 real(RKG) ,
intent(in) ,
contiguous :: vdia(:)
12027 real(RKG) ,
intent(in) :: vupp
12032 PURE module subroutine setMatInit_IMP_UXD_D20X1_RK4(mat, subset, vupp, vdia, doff)
12033#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12034 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXD_D20X1_RK4
12037 integer(IK) ,
intent(in) ,
optional :: doff
12038 type(uppDia_type) ,
intent(in) :: subset
12039 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12040 real(RKG) ,
intent(in) ,
contiguous :: vdia(:)
12041 real(RKG) ,
intent(in) :: vupp
12046 PURE module subroutine setMatInit_IMP_UXD_D20X1_RK3(mat, subset, vupp, vdia, doff)
12047#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12048 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXD_D20X1_RK3
12051 integer(IK) ,
intent(in) ,
optional :: doff
12052 type(uppDia_type) ,
intent(in) :: subset
12053 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12054 real(RKG) ,
intent(in) ,
contiguous :: vdia(:)
12055 real(RKG) ,
intent(in) :: vupp
12060 PURE module subroutine setMatInit_IMP_UXD_D20X1_RK2(mat, subset, vupp, vdia, doff)
12061#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12062 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXD_D20X1_RK2
12065 integer(IK) ,
intent(in) ,
optional :: doff
12066 type(uppDia_type) ,
intent(in) :: subset
12067 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12068 real(RKG) ,
intent(in) ,
contiguous :: vdia(:)
12069 real(RKG) ,
intent(in) :: vupp
12074 PURE module subroutine setMatInit_IMP_UXD_D20X1_RK1(mat, subset, vupp, vdia, doff)
12075#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12076 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_UXD_D20X1_RK1
12079 integer(IK) ,
intent(in) ,
optional :: doff
12080 type(uppDia_type) ,
intent(in) :: subset
12081 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12082 real(RKG) ,
intent(in) ,
contiguous :: vdia(:)
12083 real(RKG) ,
intent(in) :: vupp
12106 PURE module subroutine setMatInit_IMP_ULX_D200X_SK5(mat, subset, vupp, vlow, doff)
12107#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12108 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULX_D200X_SK5
12111 integer(IK) ,
intent(in) ,
optional :: doff
12112 type(uppLow_type) ,
intent(in) :: subset
12113 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12114 character(
*,SKG) ,
intent(in) :: vupp, vlow
12119 PURE module subroutine setMatInit_IMP_ULX_D200X_SK4(mat, subset, vupp, vlow, doff)
12120#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12121 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULX_D200X_SK4
12124 integer(IK) ,
intent(in) ,
optional :: doff
12125 type(uppLow_type) ,
intent(in) :: subset
12126 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12127 character(
*,SKG) ,
intent(in) :: vupp, vlow
12132 PURE module subroutine setMatInit_IMP_ULX_D200X_SK3(mat, subset, vupp, vlow, doff)
12133#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12134 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULX_D200X_SK3
12137 integer(IK) ,
intent(in) ,
optional :: doff
12138 type(uppLow_type) ,
intent(in) :: subset
12139 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12140 character(
*,SKG) ,
intent(in) :: vupp, vlow
12145 PURE module subroutine setMatInit_IMP_ULX_D200X_SK2(mat, subset, vupp, vlow, doff)
12146#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12147 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULX_D200X_SK2
12150 integer(IK) ,
intent(in) ,
optional :: doff
12151 type(uppLow_type) ,
intent(in) :: subset
12152 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12153 character(
*,SKG) ,
intent(in) :: vupp, vlow
12158 PURE module subroutine setMatInit_IMP_ULX_D200X_SK1(mat, subset, vupp, vlow, doff)
12159#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12160 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULX_D200X_SK1
12163 integer(IK) ,
intent(in) ,
optional :: doff
12164 type(uppLow_type) ,
intent(in) :: subset
12165 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12166 character(
*,SKG) ,
intent(in) :: vupp, vlow
12173 PURE module subroutine setMatInit_IMP_ULX_D200X_IK5(mat, subset, vupp, vlow, doff)
12174#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12175 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULX_D200X_IK5
12178 integer(IK) ,
intent(in) ,
optional :: doff
12179 type(uppLow_type) ,
intent(in) :: subset
12180 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12181 integer(IKG) ,
intent(in) :: vupp, vlow
12186 PURE module subroutine setMatInit_IMP_ULX_D200X_IK4(mat, subset, vupp, vlow, doff)
12187#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12188 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULX_D200X_IK4
12191 integer(IK) ,
intent(in) ,
optional :: doff
12192 type(uppLow_type) ,
intent(in) :: subset
12193 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12194 integer(IKG) ,
intent(in) :: vupp, vlow
12199 PURE module subroutine setMatInit_IMP_ULX_D200X_IK3(mat, subset, vupp, vlow, doff)
12200#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12201 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULX_D200X_IK3
12204 integer(IK) ,
intent(in) ,
optional :: doff
12205 type(uppLow_type) ,
intent(in) :: subset
12206 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12207 integer(IKG) ,
intent(in) :: vupp, vlow
12212 PURE module subroutine setMatInit_IMP_ULX_D200X_IK2(mat, subset, vupp, vlow, doff)
12213#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12214 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULX_D200X_IK2
12217 integer(IK) ,
intent(in) ,
optional :: doff
12218 type(uppLow_type) ,
intent(in) :: subset
12219 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12220 integer(IKG) ,
intent(in) :: vupp, vlow
12225 PURE module subroutine setMatInit_IMP_ULX_D200X_IK1(mat, subset, vupp, vlow, doff)
12226#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12227 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULX_D200X_IK1
12230 integer(IK) ,
intent(in) ,
optional :: doff
12231 type(uppLow_type) ,
intent(in) :: subset
12232 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12233 integer(IKG) ,
intent(in) :: vupp, vlow
12240 PURE module subroutine setMatInit_IMP_ULX_D200X_LK5(mat, subset, vupp, vlow, doff)
12241#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12242 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULX_D200X_LK5
12245 integer(IK) ,
intent(in) ,
optional :: doff
12246 type(uppLow_type) ,
intent(in) :: subset
12247 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12248 logical(LKG) ,
intent(in) :: vupp, vlow
12253 PURE module subroutine setMatInit_IMP_ULX_D200X_LK4(mat, subset, vupp, vlow, doff)
12254#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12255 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULX_D200X_LK4
12258 integer(IK) ,
intent(in) ,
optional :: doff
12259 type(uppLow_type) ,
intent(in) :: subset
12260 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12261 logical(LKG) ,
intent(in) :: vupp, vlow
12266 PURE module subroutine setMatInit_IMP_ULX_D200X_LK3(mat, subset, vupp, vlow, doff)
12267#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12268 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULX_D200X_LK3
12271 integer(IK) ,
intent(in) ,
optional :: doff
12272 type(uppLow_type) ,
intent(in) :: subset
12273 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12274 logical(LKG) ,
intent(in) :: vupp, vlow
12279 PURE module subroutine setMatInit_IMP_ULX_D200X_LK2(mat, subset, vupp, vlow, doff)
12280#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12281 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULX_D200X_LK2
12284 integer(IK) ,
intent(in) ,
optional :: doff
12285 type(uppLow_type) ,
intent(in) :: subset
12286 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12287 logical(LKG) ,
intent(in) :: vupp, vlow
12292 PURE module subroutine setMatInit_IMP_ULX_D200X_LK1(mat, subset, vupp, vlow, doff)
12293#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12294 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULX_D200X_LK1
12297 integer(IK) ,
intent(in) ,
optional :: doff
12298 type(uppLow_type) ,
intent(in) :: subset
12299 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12300 logical(LKG) ,
intent(in) :: vupp, vlow
12307 PURE module subroutine setMatInit_IMP_ULX_D200X_CK5(mat, subset, vupp, vlow, doff)
12308#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12309 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULX_D200X_CK5
12312 integer(IK) ,
intent(in) ,
optional :: doff
12313 type(uppLow_type) ,
intent(in) :: subset
12314 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12315 complex(CKG) ,
intent(in) :: vupp, vlow
12320 PURE module subroutine setMatInit_IMP_ULX_D200X_CK4(mat, subset, vupp, vlow, doff)
12321#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12322 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULX_D200X_CK4
12325 integer(IK) ,
intent(in) ,
optional :: doff
12326 type(uppLow_type) ,
intent(in) :: subset
12327 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12328 complex(CKG) ,
intent(in) :: vupp, vlow
12333 PURE module subroutine setMatInit_IMP_ULX_D200X_CK3(mat, subset, vupp, vlow, doff)
12334#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12335 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULX_D200X_CK3
12338 integer(IK) ,
intent(in) ,
optional :: doff
12339 type(uppLow_type) ,
intent(in) :: subset
12340 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12341 complex(CKG) ,
intent(in) :: vupp, vlow
12346 PURE module subroutine setMatInit_IMP_ULX_D200X_CK2(mat, subset, vupp, vlow, doff)
12347#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12348 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULX_D200X_CK2
12351 integer(IK) ,
intent(in) ,
optional :: doff
12352 type(uppLow_type) ,
intent(in) :: subset
12353 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12354 complex(CKG) ,
intent(in) :: vupp, vlow
12359 PURE module subroutine setMatInit_IMP_ULX_D200X_CK1(mat, subset, vupp, vlow, doff)
12360#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12361 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULX_D200X_CK1
12364 integer(IK) ,
intent(in) ,
optional :: doff
12365 type(uppLow_type) ,
intent(in) :: subset
12366 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12367 complex(CKG) ,
intent(in) :: vupp, vlow
12374 PURE module subroutine setMatInit_IMP_ULX_D200X_RK5(mat, subset, vupp, vlow, doff)
12375#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12376 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULX_D200X_RK5
12379 integer(IK) ,
intent(in) ,
optional :: doff
12380 type(uppLow_type) ,
intent(in) :: subset
12381 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12382 real(RKG) ,
intent(in) :: vupp, vlow
12387 PURE module subroutine setMatInit_IMP_ULX_D200X_RK4(mat, subset, vupp, vlow, doff)
12388#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12389 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULX_D200X_RK4
12392 integer(IK) ,
intent(in) ,
optional :: doff
12393 type(uppLow_type) ,
intent(in) :: subset
12394 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12395 real(RKG) ,
intent(in) :: vupp, vlow
12400 PURE module subroutine setMatInit_IMP_ULX_D200X_RK3(mat, subset, vupp, vlow, doff)
12401#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12402 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULX_D200X_RK3
12405 integer(IK) ,
intent(in) ,
optional :: doff
12406 type(uppLow_type) ,
intent(in) :: subset
12407 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12408 real(RKG) ,
intent(in) :: vupp, vlow
12413 PURE module subroutine setMatInit_IMP_ULX_D200X_RK2(mat, subset, vupp, vlow, doff)
12414#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12415 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULX_D200X_RK2
12418 integer(IK) ,
intent(in) ,
optional :: doff
12419 type(uppLow_type) ,
intent(in) :: subset
12420 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12421 real(RKG) ,
intent(in) :: vupp, vlow
12426 PURE module subroutine setMatInit_IMP_ULX_D200X_RK1(mat, subset, vupp, vlow, doff)
12427#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12428 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULX_D200X_RK1
12431 integer(IK) ,
intent(in) ,
optional :: doff
12432 type(uppLow_type) ,
intent(in) :: subset
12433 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12434 real(RKG) ,
intent(in) :: vupp, vlow
12457 PURE module subroutine setMatInit_IMP_ULD_D2000_SK5(mat, subset, vupp, vlow, vdia, doff)
12458#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12459 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULD_D2000_SK5
12462 type(uppLowDia_type) ,
intent(in) :: subset
12463 integer(IK) ,
intent(in) ,
optional :: doff
12464 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12465 character(
*,SKG) ,
intent(in) :: vupp, vlow
12466 character(
*,SKG) ,
intent(in) :: vdia
12471 PURE module subroutine setMatInit_IMP_ULD_D2000_SK4(mat, subset, vupp, vlow, vdia, doff)
12472#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12473 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULD_D2000_SK4
12476 type(uppLowDia_type) ,
intent(in) :: subset
12477 integer(IK) ,
intent(in) ,
optional :: doff
12478 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12479 character(
*,SKG) ,
intent(in) :: vupp, vlow
12480 character(
*,SKG) ,
intent(in) :: vdia
12485 PURE module subroutine setMatInit_IMP_ULD_D2000_SK3(mat, subset, vupp, vlow, vdia, doff)
12486#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12487 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULD_D2000_SK3
12490 type(uppLowDia_type) ,
intent(in) :: subset
12491 integer(IK) ,
intent(in) ,
optional :: doff
12492 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12493 character(
*,SKG) ,
intent(in) :: vupp, vlow
12494 character(
*,SKG) ,
intent(in) :: vdia
12499 PURE module subroutine setMatInit_IMP_ULD_D2000_SK2(mat, subset, vupp, vlow, vdia, doff)
12500#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12501 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULD_D2000_SK2
12504 type(uppLowDia_type) ,
intent(in) :: subset
12505 integer(IK) ,
intent(in) ,
optional :: doff
12506 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12507 character(
*,SKG) ,
intent(in) :: vupp, vlow
12508 character(
*,SKG) ,
intent(in) :: vdia
12513 PURE module subroutine setMatInit_IMP_ULD_D2000_SK1(mat, subset, vupp, vlow, vdia, doff)
12514#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12515 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULD_D2000_SK1
12518 type(uppLowDia_type) ,
intent(in) :: subset
12519 integer(IK) ,
intent(in) ,
optional :: doff
12520 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12521 character(
*,SKG) ,
intent(in) :: vupp, vlow
12522 character(
*,SKG) ,
intent(in) :: vdia
12529 PURE module subroutine setMatInit_IMP_ULD_D2000_IK5(mat, subset, vupp, vlow, vdia, doff)
12530#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12531 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULD_D2000_IK5
12534 type(uppLowDia_type) ,
intent(in) :: subset
12535 integer(IK) ,
intent(in) ,
optional :: doff
12536 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12537 integer(IKG) ,
intent(in) :: vupp, vlow
12538 integer(IKG) ,
intent(in) :: vdia
12543 PURE module subroutine setMatInit_IMP_ULD_D2000_IK4(mat, subset, vupp, vlow, vdia, doff)
12544#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12545 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULD_D2000_IK4
12548 type(uppLowDia_type) ,
intent(in) :: subset
12549 integer(IK) ,
intent(in) ,
optional :: doff
12550 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12551 integer(IKG) ,
intent(in) :: vupp, vlow
12552 integer(IKG) ,
intent(in) :: vdia
12557 PURE module subroutine setMatInit_IMP_ULD_D2000_IK3(mat, subset, vupp, vlow, vdia, doff)
12558#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12559 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULD_D2000_IK3
12562 type(uppLowDia_type) ,
intent(in) :: subset
12563 integer(IK) ,
intent(in) ,
optional :: doff
12564 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12565 integer(IKG) ,
intent(in) :: vupp, vlow
12566 integer(IKG) ,
intent(in) :: vdia
12571 PURE module subroutine setMatInit_IMP_ULD_D2000_IK2(mat, subset, vupp, vlow, vdia, doff)
12572#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12573 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULD_D2000_IK2
12576 type(uppLowDia_type) ,
intent(in) :: subset
12577 integer(IK) ,
intent(in) ,
optional :: doff
12578 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12579 integer(IKG) ,
intent(in) :: vupp, vlow
12580 integer(IKG) ,
intent(in) :: vdia
12585 PURE module subroutine setMatInit_IMP_ULD_D2000_IK1(mat, subset, vupp, vlow, vdia, doff)
12586#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12587 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULD_D2000_IK1
12590 type(uppLowDia_type) ,
intent(in) :: subset
12591 integer(IK) ,
intent(in) ,
optional :: doff
12592 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12593 integer(IKG) ,
intent(in) :: vupp, vlow
12594 integer(IKG) ,
intent(in) :: vdia
12601 PURE module subroutine setMatInit_IMP_ULD_D2000_LK5(mat, subset, vupp, vlow, vdia, doff)
12602#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12603 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULD_D2000_LK5
12606 type(uppLowDia_type) ,
intent(in) :: subset
12607 integer(IK) ,
intent(in) ,
optional :: doff
12608 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12609 logical(LKG) ,
intent(in) :: vupp, vlow
12610 logical(LKG) ,
intent(in) :: vdia
12615 PURE module subroutine setMatInit_IMP_ULD_D2000_LK4(mat, subset, vupp, vlow, vdia, doff)
12616#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12617 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULD_D2000_LK4
12620 type(uppLowDia_type) ,
intent(in) :: subset
12621 integer(IK) ,
intent(in) ,
optional :: doff
12622 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12623 logical(LKG) ,
intent(in) :: vupp, vlow
12624 logical(LKG) ,
intent(in) :: vdia
12629 PURE module subroutine setMatInit_IMP_ULD_D2000_LK3(mat, subset, vupp, vlow, vdia, doff)
12630#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12631 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULD_D2000_LK3
12634 type(uppLowDia_type) ,
intent(in) :: subset
12635 integer(IK) ,
intent(in) ,
optional :: doff
12636 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12637 logical(LKG) ,
intent(in) :: vupp, vlow
12638 logical(LKG) ,
intent(in) :: vdia
12643 PURE module subroutine setMatInit_IMP_ULD_D2000_LK2(mat, subset, vupp, vlow, vdia, doff)
12644#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12645 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULD_D2000_LK2
12648 type(uppLowDia_type) ,
intent(in) :: subset
12649 integer(IK) ,
intent(in) ,
optional :: doff
12650 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12651 logical(LKG) ,
intent(in) :: vupp, vlow
12652 logical(LKG) ,
intent(in) :: vdia
12657 PURE module subroutine setMatInit_IMP_ULD_D2000_LK1(mat, subset, vupp, vlow, vdia, doff)
12658#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12659 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULD_D2000_LK1
12662 type(uppLowDia_type) ,
intent(in) :: subset
12663 integer(IK) ,
intent(in) ,
optional :: doff
12664 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12665 logical(LKG) ,
intent(in) :: vupp, vlow
12666 logical(LKG) ,
intent(in) :: vdia
12673 PURE module subroutine setMatInit_IMP_ULD_D2000_CK5(mat, subset, vupp, vlow, vdia, doff)
12674#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12675 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULD_D2000_CK5
12678 type(uppLowDia_type) ,
intent(in) :: subset
12679 integer(IK) ,
intent(in) ,
optional :: doff
12680 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12681 complex(CKG) ,
intent(in) :: vupp, vlow
12682 complex(CKG) ,
intent(in) :: vdia
12687 PURE module subroutine setMatInit_IMP_ULD_D2000_CK4(mat, subset, vupp, vlow, vdia, doff)
12688#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12689 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULD_D2000_CK4
12692 type(uppLowDia_type) ,
intent(in) :: subset
12693 integer(IK) ,
intent(in) ,
optional :: doff
12694 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12695 complex(CKG) ,
intent(in) :: vupp, vlow
12696 complex(CKG) ,
intent(in) :: vdia
12701 PURE module subroutine setMatInit_IMP_ULD_D2000_CK3(mat, subset, vupp, vlow, vdia, doff)
12702#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12703 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULD_D2000_CK3
12706 type(uppLowDia_type) ,
intent(in) :: subset
12707 integer(IK) ,
intent(in) ,
optional :: doff
12708 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12709 complex(CKG) ,
intent(in) :: vupp, vlow
12710 complex(CKG) ,
intent(in) :: vdia
12715 PURE module subroutine setMatInit_IMP_ULD_D2000_CK2(mat, subset, vupp, vlow, vdia, doff)
12716#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12717 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULD_D2000_CK2
12720 type(uppLowDia_type) ,
intent(in) :: subset
12721 integer(IK) ,
intent(in) ,
optional :: doff
12722 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12723 complex(CKG) ,
intent(in) :: vupp, vlow
12724 complex(CKG) ,
intent(in) :: vdia
12729 PURE module subroutine setMatInit_IMP_ULD_D2000_CK1(mat, subset, vupp, vlow, vdia, doff)
12730#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12731 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULD_D2000_CK1
12734 type(uppLowDia_type) ,
intent(in) :: subset
12735 integer(IK) ,
intent(in) ,
optional :: doff
12736 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12737 complex(CKG) ,
intent(in) :: vupp, vlow
12738 complex(CKG) ,
intent(in) :: vdia
12745 PURE module subroutine setMatInit_IMP_ULD_D2000_RK5(mat, subset, vupp, vlow, vdia, doff)
12746#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12747 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULD_D2000_RK5
12750 type(uppLowDia_type) ,
intent(in) :: subset
12751 integer(IK) ,
intent(in) ,
optional :: doff
12752 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12753 real(RKG) ,
intent(in) :: vupp, vlow
12754 real(RKG) ,
intent(in) :: vdia
12759 PURE module subroutine setMatInit_IMP_ULD_D2000_RK4(mat, subset, vupp, vlow, vdia, doff)
12760#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12761 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULD_D2000_RK4
12764 type(uppLowDia_type) ,
intent(in) :: subset
12765 integer(IK) ,
intent(in) ,
optional :: doff
12766 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12767 real(RKG) ,
intent(in) :: vupp, vlow
12768 real(RKG) ,
intent(in) :: vdia
12773 PURE module subroutine setMatInit_IMP_ULD_D2000_RK3(mat, subset, vupp, vlow, vdia, doff)
12774#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12775 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULD_D2000_RK3
12778 type(uppLowDia_type) ,
intent(in) :: subset
12779 integer(IK) ,
intent(in) ,
optional :: doff
12780 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12781 real(RKG) ,
intent(in) :: vupp, vlow
12782 real(RKG) ,
intent(in) :: vdia
12787 PURE module subroutine setMatInit_IMP_ULD_D2000_RK2(mat, subset, vupp, vlow, vdia, doff)
12788#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12789 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULD_D2000_RK2
12792 type(uppLowDia_type) ,
intent(in) :: subset
12793 integer(IK) ,
intent(in) ,
optional :: doff
12794 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12795 real(RKG) ,
intent(in) :: vupp, vlow
12796 real(RKG) ,
intent(in) :: vdia
12801 PURE module subroutine setMatInit_IMP_ULD_D2000_RK1(mat, subset, vupp, vlow, vdia, doff)
12802#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12803 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULD_D2000_RK1
12806 type(uppLowDia_type) ,
intent(in) :: subset
12807 integer(IK) ,
intent(in) ,
optional :: doff
12808 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12809 real(RKG) ,
intent(in) :: vupp, vlow
12810 real(RKG) ,
intent(in) :: vdia
12823 PURE module subroutine setMatInit_IMP_ULD_D2001_SK5(mat, subset, vupp, vlow, vdia, doff)
12824#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12825 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULD_D2001_SK5
12828 type(uppLowDia_type) ,
intent(in) :: subset
12829 integer(IK) ,
intent(in) ,
optional :: doff
12830 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12831 character(
*,SKG) ,
intent(in) ,
contiguous :: vdia(:)
12832 character(
*,SKG) ,
intent(in) :: vupp, vlow
12837 PURE module subroutine setMatInit_IMP_ULD_D2001_SK4(mat, subset, vupp, vlow, vdia, doff)
12838#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12839 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULD_D2001_SK4
12842 type(uppLowDia_type) ,
intent(in) :: subset
12843 integer(IK) ,
intent(in) ,
optional :: doff
12844 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12845 character(
*,SKG) ,
intent(in) ,
contiguous :: vdia(:)
12846 character(
*,SKG) ,
intent(in) :: vupp, vlow
12851 PURE module subroutine setMatInit_IMP_ULD_D2001_SK3(mat, subset, vupp, vlow, vdia, doff)
12852#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12853 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULD_D2001_SK3
12856 type(uppLowDia_type) ,
intent(in) :: subset
12857 integer(IK) ,
intent(in) ,
optional :: doff
12858 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12859 character(
*,SKG) ,
intent(in) ,
contiguous :: vdia(:)
12860 character(
*,SKG) ,
intent(in) :: vupp, vlow
12865 PURE module subroutine setMatInit_IMP_ULD_D2001_SK2(mat, subset, vupp, vlow, vdia, doff)
12866#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12867 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULD_D2001_SK2
12870 type(uppLowDia_type) ,
intent(in) :: subset
12871 integer(IK) ,
intent(in) ,
optional :: doff
12872 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12873 character(
*,SKG) ,
intent(in) ,
contiguous :: vdia(:)
12874 character(
*,SKG) ,
intent(in) :: vupp, vlow
12879 PURE module subroutine setMatInit_IMP_ULD_D2001_SK1(mat, subset, vupp, vlow, vdia, doff)
12880#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12881 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULD_D2001_SK1
12884 type(uppLowDia_type) ,
intent(in) :: subset
12885 integer(IK) ,
intent(in) ,
optional :: doff
12886 character(
*,SKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12887 character(
*,SKG) ,
intent(in) ,
contiguous :: vdia(:)
12888 character(
*,SKG) ,
intent(in) :: vupp, vlow
12895 PURE module subroutine setMatInit_IMP_ULD_D2001_IK5(mat, subset, vupp, vlow, vdia, doff)
12896#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12897 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULD_D2001_IK5
12900 type(uppLowDia_type) ,
intent(in) :: subset
12901 integer(IK) ,
intent(in) ,
optional :: doff
12902 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12903 integer(IKG) ,
intent(in) ,
contiguous :: vdia(:)
12904 integer(IKG) ,
intent(in) :: vupp, vlow
12909 PURE module subroutine setMatInit_IMP_ULD_D2001_IK4(mat, subset, vupp, vlow, vdia, doff)
12910#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12911 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULD_D2001_IK4
12914 type(uppLowDia_type) ,
intent(in) :: subset
12915 integer(IK) ,
intent(in) ,
optional :: doff
12916 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12917 integer(IKG) ,
intent(in) ,
contiguous :: vdia(:)
12918 integer(IKG) ,
intent(in) :: vupp, vlow
12923 PURE module subroutine setMatInit_IMP_ULD_D2001_IK3(mat, subset, vupp, vlow, vdia, doff)
12924#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12925 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULD_D2001_IK3
12928 type(uppLowDia_type) ,
intent(in) :: subset
12929 integer(IK) ,
intent(in) ,
optional :: doff
12930 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12931 integer(IKG) ,
intent(in) ,
contiguous :: vdia(:)
12932 integer(IKG) ,
intent(in) :: vupp, vlow
12937 PURE module subroutine setMatInit_IMP_ULD_D2001_IK2(mat, subset, vupp, vlow, vdia, doff)
12938#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12939 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULD_D2001_IK2
12942 type(uppLowDia_type) ,
intent(in) :: subset
12943 integer(IK) ,
intent(in) ,
optional :: doff
12944 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12945 integer(IKG) ,
intent(in) ,
contiguous :: vdia(:)
12946 integer(IKG) ,
intent(in) :: vupp, vlow
12951 PURE module subroutine setMatInit_IMP_ULD_D2001_IK1(mat, subset, vupp, vlow, vdia, doff)
12952#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12953 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULD_D2001_IK1
12956 type(uppLowDia_type) ,
intent(in) :: subset
12957 integer(IK) ,
intent(in) ,
optional :: doff
12958 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12959 integer(IKG) ,
intent(in) ,
contiguous :: vdia(:)
12960 integer(IKG) ,
intent(in) :: vupp, vlow
12967 PURE module subroutine setMatInit_IMP_ULD_D2001_LK5(mat, subset, vupp, vlow, vdia, doff)
12968#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12969 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULD_D2001_LK5
12972 type(uppLowDia_type) ,
intent(in) :: subset
12973 integer(IK) ,
intent(in) ,
optional :: doff
12974 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12975 logical(LKG) ,
intent(in) ,
contiguous :: vdia(:)
12976 logical(LKG) ,
intent(in) :: vupp, vlow
12981 PURE module subroutine setMatInit_IMP_ULD_D2001_LK4(mat, subset, vupp, vlow, vdia, doff)
12982#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12983 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULD_D2001_LK4
12986 type(uppLowDia_type) ,
intent(in) :: subset
12987 integer(IK) ,
intent(in) ,
optional :: doff
12988 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
12989 logical(LKG) ,
intent(in) ,
contiguous :: vdia(:)
12990 logical(LKG) ,
intent(in) :: vupp, vlow
12995 PURE module subroutine setMatInit_IMP_ULD_D2001_LK3(mat, subset, vupp, vlow, vdia, doff)
12996#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12997 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULD_D2001_LK3
13000 type(uppLowDia_type) ,
intent(in) :: subset
13001 integer(IK) ,
intent(in) ,
optional :: doff
13002 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
13003 logical(LKG) ,
intent(in) ,
contiguous :: vdia(:)
13004 logical(LKG) ,
intent(in) :: vupp, vlow
13009 PURE module subroutine setMatInit_IMP_ULD_D2001_LK2(mat, subset, vupp, vlow, vdia, doff)
13010#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13011 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULD_D2001_LK2
13014 type(uppLowDia_type) ,
intent(in) :: subset
13015 integer(IK) ,
intent(in) ,
optional :: doff
13016 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
13017 logical(LKG) ,
intent(in) ,
contiguous :: vdia(:)
13018 logical(LKG) ,
intent(in) :: vupp, vlow
13023 PURE module subroutine setMatInit_IMP_ULD_D2001_LK1(mat, subset, vupp, vlow, vdia, doff)
13024#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13025 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULD_D2001_LK1
13028 type(uppLowDia_type) ,
intent(in) :: subset
13029 integer(IK) ,
intent(in) ,
optional :: doff
13030 logical(LKG) ,
intent(inout) ,
contiguous :: mat(:,:)
13031 logical(LKG) ,
intent(in) ,
contiguous :: vdia(:)
13032 logical(LKG) ,
intent(in) :: vupp, vlow
13039 PURE module subroutine setMatInit_IMP_ULD_D2001_CK5(mat, subset, vupp, vlow, vdia, doff)
13040#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13041 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULD_D2001_CK5
13044 type(uppLowDia_type) ,
intent(in) :: subset
13045 integer(IK) ,
intent(in) ,
optional :: doff
13046 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
13047 complex(CKG) ,
intent(in) ,
contiguous :: vdia(:)
13048 complex(CKG) ,
intent(in) :: vupp, vlow
13053 PURE module subroutine setMatInit_IMP_ULD_D2001_CK4(mat, subset, vupp, vlow, vdia, doff)
13054#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13055 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULD_D2001_CK4
13058 type(uppLowDia_type) ,
intent(in) :: subset
13059 integer(IK) ,
intent(in) ,
optional :: doff
13060 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
13061 complex(CKG) ,
intent(in) ,
contiguous :: vdia(:)
13062 complex(CKG) ,
intent(in) :: vupp, vlow
13067 PURE module subroutine setMatInit_IMP_ULD_D2001_CK3(mat, subset, vupp, vlow, vdia, doff)
13068#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13069 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULD_D2001_CK3
13072 type(uppLowDia_type) ,
intent(in) :: subset
13073 integer(IK) ,
intent(in) ,
optional :: doff
13074 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
13075 complex(CKG) ,
intent(in) ,
contiguous :: vdia(:)
13076 complex(CKG) ,
intent(in) :: vupp, vlow
13081 PURE module subroutine setMatInit_IMP_ULD_D2001_CK2(mat, subset, vupp, vlow, vdia, doff)
13082#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13083 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULD_D2001_CK2
13086 type(uppLowDia_type) ,
intent(in) :: subset
13087 integer(IK) ,
intent(in) ,
optional :: doff
13088 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
13089 complex(CKG) ,
intent(in) ,
contiguous :: vdia(:)
13090 complex(CKG) ,
intent(in) :: vupp, vlow
13095 PURE module subroutine setMatInit_IMP_ULD_D2001_CK1(mat, subset, vupp, vlow, vdia, doff)
13096#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13097 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULD_D2001_CK1
13100 type(uppLowDia_type) ,
intent(in) :: subset
13101 integer(IK) ,
intent(in) ,
optional :: doff
13102 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
13103 complex(CKG) ,
intent(in) ,
contiguous :: vdia(:)
13104 complex(CKG) ,
intent(in) :: vupp, vlow
13111 PURE module subroutine setMatInit_IMP_ULD_D2001_RK5(mat, subset, vupp, vlow, vdia, doff)
13112#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13113 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULD_D2001_RK5
13116 type(uppLowDia_type) ,
intent(in) :: subset
13117 integer(IK) ,
intent(in) ,
optional :: doff
13118 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
13119 real(RKG) ,
intent(in) ,
contiguous :: vdia(:)
13120 real(RKG) ,
intent(in) :: vupp, vlow
13125 PURE module subroutine setMatInit_IMP_ULD_D2001_RK4(mat, subset, vupp, vlow, vdia, doff)
13126#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13127 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULD_D2001_RK4
13130 type(uppLowDia_type) ,
intent(in) :: subset
13131 integer(IK) ,
intent(in) ,
optional :: doff
13132 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
13133 real(RKG) ,
intent(in) ,
contiguous :: vdia(:)
13134 real(RKG) ,
intent(in) :: vupp, vlow
13139 PURE module subroutine setMatInit_IMP_ULD_D2001_RK3(mat, subset, vupp, vlow, vdia, doff)
13140#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13141 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULD_D2001_RK3
13144 type(uppLowDia_type) ,
intent(in) :: subset
13145 integer(IK) ,
intent(in) ,
optional :: doff
13146 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
13147 real(RKG) ,
intent(in) ,
contiguous :: vdia(:)
13148 real(RKG) ,
intent(in) :: vupp, vlow
13153 PURE module subroutine setMatInit_IMP_ULD_D2001_RK2(mat, subset, vupp, vlow, vdia, doff)
13154#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13155 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULD_D2001_RK2
13158 type(uppLowDia_type) ,
intent(in) :: subset
13159 integer(IK) ,
intent(in) ,
optional :: doff
13160 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
13161 real(RKG) ,
intent(in) ,
contiguous :: vdia(:)
13162 real(RKG) ,
intent(in) :: vupp, vlow
13167 PURE module subroutine setMatInit_IMP_ULD_D2001_RK1(mat, subset, vupp, vlow, vdia, doff)
13168#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13169 !DEC$ ATTRIBUTES DLLEXPORT :: setMatInit_IMP_ULD_D2001_RK1
13172 type(uppLowDia_type) ,
intent(in) :: subset
13173 integer(IK) ,
intent(in) ,
optional :: doff
13174 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
13175 real(RKG) ,
intent(in) ,
contiguous :: vdia(:)
13176 real(RKG) ,
intent(in) :: vupp, vlow
Generate and return a matrix of shape (shape(1), shape(2)) with the upper/lower triangle and the diag...
Set the upper/lower triangle and the diagonal elements of the input matrix of arbitrary shape (:,...
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
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 generating and initializing matric...
character(*, SK), parameter MODULE_NAME
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(uppLowDia_type), parameter uppLowDia
This is a scalar parameter object of type uppLowDia_type that is exclusively used to request full dia...
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 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 full diagonal and upp...
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...