202 PURE elemental module function getDisMahalSqEleInvDef_D0_CK5(point, invCov)
result(mahalSq)
203#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
204 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqEleInvDef_D0_CK5
207 complex(CKG),
intent(in) :: point, invCov
208 complex(CKG) :: mahalSq
213 PURE elemental module function getDisMahalSqEleInvDef_D0_CK4(point, invCov)
result(mahalSq)
214#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
215 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqEleInvDef_D0_CK4
218 complex(CKG),
intent(in) :: point, invCov
219 complex(CKG) :: mahalSq
224 PURE elemental module function getDisMahalSqEleInvDef_D0_CK3(point, invCov)
result(mahalSq)
225#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
226 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqEleInvDef_D0_CK3
229 complex(CKG),
intent(in) :: point, invCov
230 complex(CKG) :: mahalSq
235 PURE elemental module function getDisMahalSqEleInvDef_D0_CK2(point, invCov)
result(mahalSq)
236#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
237 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqEleInvDef_D0_CK2
240 complex(CKG),
intent(in) :: point, invCov
241 complex(CKG) :: mahalSq
246 PURE elemental module function getDisMahalSqEleInvDef_D0_CK1(point, invCov)
result(mahalSq)
247#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
248 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqEleInvDef_D0_CK1
251 complex(CKG),
intent(in) :: point, invCov
252 complex(CKG) :: mahalSq
259 PURE elemental module function getDisMahalSqEleInvDef_D0_RK5(point, invCov)
result(mahalSq)
260#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
261 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqEleInvDef_D0_RK5
264 real(RKG) ,
intent(in) :: point, invCov
270 PURE elemental module function getDisMahalSqEleInvDef_D0_RK4(point, invCov)
result(mahalSq)
271#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
272 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqEleInvDef_D0_RK4
275 real(RKG) ,
intent(in) :: point, invCov
281 PURE elemental module function getDisMahalSqEleInvDef_D0_RK3(point, invCov)
result(mahalSq)
282#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
283 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqEleInvDef_D0_RK3
286 real(RKG) ,
intent(in) :: point, invCov
292 PURE elemental module function getDisMahalSqEleInvDef_D0_RK2(point, invCov)
result(mahalSq)
293#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
294 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqEleInvDef_D0_RK2
297 real(RKG) ,
intent(in) :: point, invCov
303 PURE elemental module function getDisMahalSqEleInvDef_D0_RK1(point, invCov)
result(mahalSq)
304#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
305 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqEleInvDef_D0_RK1
308 real(RKG) ,
intent(in) :: point, invCov
322 PURE elemental module function getDisMahalSqEleInvCen_D0_CK5(point, invCov, center)
result(mahalSq)
323#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
324 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqEleInvCen_D0_CK5
327 complex(CKG),
intent(in) :: point, invCov, center
328 complex(CKG) :: mahalSq
333 PURE elemental module function getDisMahalSqEleInvCen_D0_CK4(point, invCov, center)
result(mahalSq)
334#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
335 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqEleInvCen_D0_CK4
338 complex(CKG),
intent(in) :: point, invCov, center
339 complex(CKG) :: mahalSq
344 PURE elemental module function getDisMahalSqEleInvCen_D0_CK3(point, invCov, center)
result(mahalSq)
345#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
346 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqEleInvCen_D0_CK3
349 complex(CKG),
intent(in) :: point, invCov, center
350 complex(CKG) :: mahalSq
355 PURE elemental module function getDisMahalSqEleInvCen_D0_CK2(point, invCov, center)
result(mahalSq)
356#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
357 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqEleInvCen_D0_CK2
360 complex(CKG),
intent(in) :: point, invCov, center
361 complex(CKG) :: mahalSq
366 PURE elemental module function getDisMahalSqEleInvCen_D0_CK1(point, invCov, center)
result(mahalSq)
367#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
368 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqEleInvCen_D0_CK1
371 complex(CKG),
intent(in) :: point, invCov, center
372 complex(CKG) :: mahalSq
379 PURE elemental module function getDisMahalSqEleInvCen_D0_RK5(point, invCov, center)
result(mahalSq)
380#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
381 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqEleInvCen_D0_RK5
384 real(RKG) ,
intent(in) :: point, invCov, center
390 PURE elemental module function getDisMahalSqEleInvCen_D0_RK4(point, invCov, center)
result(mahalSq)
391#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
392 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqEleInvCen_D0_RK4
395 real(RKG) ,
intent(in) :: point, invCov, center
401 PURE elemental module function getDisMahalSqEleInvCen_D0_RK3(point, invCov, center)
result(mahalSq)
402#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
403 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqEleInvCen_D0_RK3
406 real(RKG) ,
intent(in) :: point, invCov, center
412 PURE elemental module function getDisMahalSqEleInvCen_D0_RK2(point, invCov, center)
result(mahalSq)
413#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
414 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqEleInvCen_D0_RK2
417 real(RKG) ,
intent(in) :: point, invCov, center
423 PURE elemental module function getDisMahalSqEleInvCen_D0_RK1(point, invCov, center)
result(mahalSq)
424#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
425 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqEleInvCen_D0_RK1
428 real(RKG) ,
intent(in) :: point, invCov, center
450 PURE module function getDisMahalSqOneInvDef_D1_CK5(point, invCov)
result(mahalSq)
451#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
452 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqOneInvDef_D1_CK5
455 complex(CKG),
intent(in),
contiguous :: point(:), invCov(:,:)
456 complex(CKG) :: mahalSq
461 PURE module function getDisMahalSqOneInvDef_D1_CK4(point, invCov)
result(mahalSq)
462#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
463 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqOneInvDef_D1_CK4
466 complex(CKG),
intent(in),
contiguous :: point(:), invCov(:,:)
467 complex(CKG) :: mahalSq
472 PURE module function getDisMahalSqOneInvDef_D1_CK3(point, invCov)
result(mahalSq)
473#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
474 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqOneInvDef_D1_CK3
477 complex(CKG),
intent(in),
contiguous :: point(:), invCov(:,:)
478 complex(CKG) :: mahalSq
483 PURE module function getDisMahalSqOneInvDef_D1_CK2(point, invCov)
result(mahalSq)
484#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
485 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqOneInvDef_D1_CK2
488 complex(CKG),
intent(in),
contiguous :: point(:), invCov(:,:)
489 complex(CKG) :: mahalSq
494 PURE module function getDisMahalSqOneInvDef_D1_CK1(point, invCov)
result(mahalSq)
495#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
496 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqOneInvDef_D1_CK1
499 complex(CKG),
intent(in),
contiguous :: point(:), invCov(:,:)
500 complex(CKG) :: mahalSq
507 PURE module function getDisMahalSqOneInvDef_D1_RK5(point, invCov)
result(mahalSq)
508#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
509 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqOneInvDef_D1_RK5
512 real(RKG) ,
intent(in),
contiguous :: point(:), invCov(:,:)
518 PURE module function getDisMahalSqOneInvDef_D1_RK4(point, invCov)
result(mahalSq)
519#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
520 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqOneInvDef_D1_RK4
523 real(RKG) ,
intent(in),
contiguous :: point(:), invCov(:,:)
529 PURE module function getDisMahalSqOneInvDef_D1_RK3(point, invCov)
result(mahalSq)
530#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
531 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqOneInvDef_D1_RK3
534 real(RKG) ,
intent(in),
contiguous :: point(:), invCov(:,:)
540 PURE module function getDisMahalSqOneInvDef_D1_RK2(point, invCov)
result(mahalSq)
541#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
542 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqOneInvDef_D1_RK2
545 real(RKG) ,
intent(in),
contiguous :: point(:), invCov(:,:)
551 PURE module function getDisMahalSqOneInvDef_D1_RK1(point, invCov)
result(mahalSq)
552#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
553 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqOneInvDef_D1_RK1
556 real(RKG) ,
intent(in),
contiguous :: point(:), invCov(:,:)
570 PURE module function getDisMahalSqOneInvCen_D1_CK5(point, invCov, center)
result(mahalSq)
571#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
572 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqOneInvCen_D1_CK5
575 complex(CKG),
intent(in),
contiguous :: point(:), invCov(:,:), center(:)
576 complex(CKG) :: mahalSq
581 PURE module function getDisMahalSqOneInvCen_D1_CK4(point, invCov, center)
result(mahalSq)
582#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
583 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqOneInvCen_D1_CK4
586 complex(CKG),
intent(in),
contiguous :: point(:), invCov(:,:), center(:)
587 complex(CKG) :: mahalSq
592 PURE module function getDisMahalSqOneInvCen_D1_CK3(point, invCov, center)
result(mahalSq)
593#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
594 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqOneInvCen_D1_CK3
597 complex(CKG),
intent(in),
contiguous :: point(:), invCov(:,:), center(:)
598 complex(CKG) :: mahalSq
603 PURE module function getDisMahalSqOneInvCen_D1_CK2(point, invCov, center)
result(mahalSq)
604#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
605 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqOneInvCen_D1_CK2
608 complex(CKG),
intent(in),
contiguous :: point(:), invCov(:,:), center(:)
609 complex(CKG) :: mahalSq
614 PURE module function getDisMahalSqOneInvCen_D1_CK1(point, invCov, center)
result(mahalSq)
615#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
616 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqOneInvCen_D1_CK1
619 complex(CKG),
intent(in),
contiguous :: point(:), invCov(:,:), center(:)
620 complex(CKG) :: mahalSq
627 PURE module function getDisMahalSqOneInvCen_D1_RK5(point, invCov, center)
result(mahalSq)
628#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
629 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqOneInvCen_D1_RK5
632 real(RKG) ,
intent(in),
contiguous :: point(:), invCov(:,:), center(:)
638 PURE module function getDisMahalSqOneInvCen_D1_RK4(point, invCov, center)
result(mahalSq)
639#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
640 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqOneInvCen_D1_RK4
643 real(RKG) ,
intent(in),
contiguous :: point(:), invCov(:,:), center(:)
649 PURE module function getDisMahalSqOneInvCen_D1_RK3(point, invCov, center)
result(mahalSq)
650#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
651 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqOneInvCen_D1_RK3
654 real(RKG) ,
intent(in),
contiguous :: point(:), invCov(:,:), center(:)
660 PURE module function getDisMahalSqOneInvCen_D1_RK2(point, invCov, center)
result(mahalSq)
661#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
662 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqOneInvCen_D1_RK2
665 real(RKG) ,
intent(in),
contiguous :: point(:), invCov(:,:), center(:)
671 PURE module function getDisMahalSqOneInvCen_D1_RK1(point, invCov, center)
result(mahalSq)
672#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
673 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqOneInvCen_D1_RK1
676 real(RKG) ,
intent(in),
contiguous :: point(:), invCov(:,:), center(:)
694 PURE module function getDisMahalSqOneInvDef_D2_CK5(point, invCov)
result(mahalSq)
695#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
696 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqOneInvDef_D2_CK5
699 complex(CKG),
intent(in),
contiguous :: point(:,:), invCov(:,:)
700 complex(CKG) :: mahalSq(
size(point,
2, IK))
705 PURE module function getDisMahalSqOneInvDef_D2_CK4(point, invCov)
result(mahalSq)
706#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
707 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqOneInvDef_D2_CK4
710 complex(CKG),
intent(in),
contiguous :: point(:,:), invCov(:,:)
711 complex(CKG) :: mahalSq(
size(point,
2, IK))
716 PURE module function getDisMahalSqOneInvDef_D2_CK3(point, invCov)
result(mahalSq)
717#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
718 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqOneInvDef_D2_CK3
721 complex(CKG),
intent(in),
contiguous :: point(:,:), invCov(:,:)
722 complex(CKG) :: mahalSq(
size(point,
2, IK))
727 PURE module function getDisMahalSqOneInvDef_D2_CK2(point, invCov)
result(mahalSq)
728#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
729 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqOneInvDef_D2_CK2
732 complex(CKG),
intent(in),
contiguous :: point(:,:), invCov(:,:)
733 complex(CKG) :: mahalSq(
size(point,
2, IK))
738 PURE module function getDisMahalSqOneInvDef_D2_CK1(point, invCov)
result(mahalSq)
739#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
740 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqOneInvDef_D2_CK1
743 complex(CKG),
intent(in),
contiguous :: point(:,:), invCov(:,:)
744 complex(CKG) :: mahalSq(
size(point,
2, IK))
751 PURE module function getDisMahalSqOneInvDef_D2_RK5(point, invCov)
result(mahalSq)
752#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
753 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqOneInvDef_D2_RK5
756 real(RKG) ,
intent(in),
contiguous :: point(:,:), invCov(:,:)
757 real(RKG) :: mahalSq(
size(point,
2, IK))
762 PURE module function getDisMahalSqOneInvDef_D2_RK4(point, invCov)
result(mahalSq)
763#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
764 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqOneInvDef_D2_RK4
767 real(RKG) ,
intent(in),
contiguous :: point(:,:), invCov(:,:)
768 real(RKG) :: mahalSq(
size(point,
2, IK))
773 PURE module function getDisMahalSqOneInvDef_D2_RK3(point, invCov)
result(mahalSq)
774#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
775 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqOneInvDef_D2_RK3
778 real(RKG) ,
intent(in),
contiguous :: point(:,:), invCov(:,:)
779 real(RKG) :: mahalSq(
size(point,
2, IK))
784 PURE module function getDisMahalSqOneInvDef_D2_RK2(point, invCov)
result(mahalSq)
785#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
786 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqOneInvDef_D2_RK2
789 real(RKG) ,
intent(in),
contiguous :: point(:,:), invCov(:,:)
790 real(RKG) :: mahalSq(
size(point,
2, IK))
795 PURE module function getDisMahalSqOneInvDef_D2_RK1(point, invCov)
result(mahalSq)
796#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
797 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqOneInvDef_D2_RK1
800 real(RKG) ,
intent(in),
contiguous :: point(:,:), invCov(:,:)
801 real(RKG) :: mahalSq(
size(point,
2, IK))
814 PURE module function getDisMahalSqOneInvCen_D2_CK5(point, invCov, center)
result(mahalSq)
815#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
816 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqOneInvCen_D2_CK5
819 complex(CKG),
intent(in),
contiguous :: point(:,:), invCov(:,:), center(:)
820 complex(CKG) :: mahalSq(
size(point,
2, IK))
825 PURE module function getDisMahalSqOneInvCen_D2_CK4(point, invCov, center)
result(mahalSq)
826#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
827 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqOneInvCen_D2_CK4
830 complex(CKG),
intent(in),
contiguous :: point(:,:), invCov(:,:), center(:)
831 complex(CKG) :: mahalSq(
size(point,
2, IK))
836 PURE module function getDisMahalSqOneInvCen_D2_CK3(point, invCov, center)
result(mahalSq)
837#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
838 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqOneInvCen_D2_CK3
841 complex(CKG),
intent(in),
contiguous :: point(:,:), invCov(:,:), center(:)
842 complex(CKG) :: mahalSq(
size(point,
2, IK))
847 PURE module function getDisMahalSqOneInvCen_D2_CK2(point, invCov, center)
result(mahalSq)
848#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
849 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqOneInvCen_D2_CK2
852 complex(CKG),
intent(in),
contiguous :: point(:,:), invCov(:,:), center(:)
853 complex(CKG) :: mahalSq(
size(point,
2, IK))
858 PURE module function getDisMahalSqOneInvCen_D2_CK1(point, invCov, center)
result(mahalSq)
859#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
860 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqOneInvCen_D2_CK1
863 complex(CKG),
intent(in),
contiguous :: point(:,:), invCov(:,:), center(:)
864 complex(CKG) :: mahalSq(
size(point,
2, IK))
871 PURE module function getDisMahalSqOneInvCen_D2_RK5(point, invCov, center)
result(mahalSq)
872#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
873 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqOneInvCen_D2_RK5
876 real(RKG) ,
intent(in),
contiguous :: point(:,:), invCov(:,:), center(:)
877 real(RKG) :: mahalSq(
size(point,
2, IK))
882 PURE module function getDisMahalSqOneInvCen_D2_RK4(point, invCov, center)
result(mahalSq)
883#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
884 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqOneInvCen_D2_RK4
887 real(RKG) ,
intent(in),
contiguous :: point(:,:), invCov(:,:), center(:)
888 real(RKG) :: mahalSq(
size(point,
2, IK))
893 PURE module function getDisMahalSqOneInvCen_D2_RK3(point, invCov, center)
result(mahalSq)
894#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
895 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqOneInvCen_D2_RK3
898 real(RKG) ,
intent(in),
contiguous :: point(:,:), invCov(:,:), center(:)
899 real(RKG) :: mahalSq(
size(point,
2, IK))
904 PURE module function getDisMahalSqOneInvCen_D2_RK2(point, invCov, center)
result(mahalSq)
905#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
906 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqOneInvCen_D2_RK2
909 real(RKG) ,
intent(in),
contiguous :: point(:,:), invCov(:,:), center(:)
910 real(RKG) :: mahalSq(
size(point,
2, IK))
915 PURE module function getDisMahalSqOneInvCen_D2_RK1(point, invCov, center)
result(mahalSq)
916#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
917 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqOneInvCen_D2_RK1
920 real(RKG) ,
intent(in),
contiguous :: point(:,:), invCov(:,:), center(:)
921 real(RKG) :: mahalSq(
size(point,
2, IK))
942 PURE module function getDisMahalSqMixInvDef_D1_CK5(point, invCov)
result(mahalSq)
943#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
944 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqMixInvDef_D1_CK5
947 complex(CKG),
intent(in),
contiguous :: point(:), invCov(:,:,:)
948 complex(CKG) :: mahalSq(
size(invCov,
3, IK))
953 PURE module function getDisMahalSqMixInvDef_D1_CK4(point, invCov)
result(mahalSq)
954#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
955 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqMixInvDef_D1_CK4
958 complex(CKG),
intent(in),
contiguous :: point(:), invCov(:,:,:)
959 complex(CKG) :: mahalSq(
size(invCov,
3, IK))
964 PURE module function getDisMahalSqMixInvDef_D1_CK3(point, invCov)
result(mahalSq)
965#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
966 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqMixInvDef_D1_CK3
969 complex(CKG),
intent(in),
contiguous :: point(:), invCov(:,:,:)
970 complex(CKG) :: mahalSq(
size(invCov,
3, IK))
975 PURE module function getDisMahalSqMixInvDef_D1_CK2(point, invCov)
result(mahalSq)
976#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
977 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqMixInvDef_D1_CK2
980 complex(CKG),
intent(in),
contiguous :: point(:), invCov(:,:,:)
981 complex(CKG) :: mahalSq(
size(invCov,
3, IK))
986 PURE module function getDisMahalSqMixInvDef_D1_CK1(point, invCov)
result(mahalSq)
987#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
988 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqMixInvDef_D1_CK1
991 complex(CKG),
intent(in),
contiguous :: point(:), invCov(:,:,:)
992 complex(CKG) :: mahalSq(
size(invCov,
3, IK))
999 PURE module function getDisMahalSqMixInvDef_D1_RK5(point, invCov)
result(mahalSq)
1000#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1001 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqMixInvDef_D1_RK5
1004 real(RKG) ,
intent(in),
contiguous :: point(:), invCov(:,:,:)
1005 real(RKG) :: mahalSq(
size(invCov,
3, IK))
1010 PURE module function getDisMahalSqMixInvDef_D1_RK4(point, invCov)
result(mahalSq)
1011#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1012 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqMixInvDef_D1_RK4
1015 real(RKG) ,
intent(in),
contiguous :: point(:), invCov(:,:,:)
1016 real(RKG) :: mahalSq(
size(invCov,
3, IK))
1021 PURE module function getDisMahalSqMixInvDef_D1_RK3(point, invCov)
result(mahalSq)
1022#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1023 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqMixInvDef_D1_RK3
1026 real(RKG) ,
intent(in),
contiguous :: point(:), invCov(:,:,:)
1027 real(RKG) :: mahalSq(
size(invCov,
3, IK))
1032 PURE module function getDisMahalSqMixInvDef_D1_RK2(point, invCov)
result(mahalSq)
1033#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1034 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqMixInvDef_D1_RK2
1037 real(RKG) ,
intent(in),
contiguous :: point(:), invCov(:,:,:)
1038 real(RKG) :: mahalSq(
size(invCov,
3, IK))
1043 PURE module function getDisMahalSqMixInvDef_D1_RK1(point, invCov)
result(mahalSq)
1044#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1045 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqMixInvDef_D1_RK1
1048 real(RKG) ,
intent(in),
contiguous :: point(:), invCov(:,:,:)
1049 real(RKG) :: mahalSq(
size(invCov,
3, IK))
1062 PURE module function getDisMahalSqMixInvCen_D1_CK5(point, invCov, center)
result(mahalSq)
1063#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1064 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqMixInvCen_D1_CK5
1067 complex(CKG),
intent(in),
contiguous :: point(:), invCov(:,:,:), center(:,:)
1068 complex(CKG) :: mahalSq(
size(invCov,
3, IK))
1073 PURE module function getDisMahalSqMixInvCen_D1_CK4(point, invCov, center)
result(mahalSq)
1074#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1075 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqMixInvCen_D1_CK4
1078 complex(CKG),
intent(in),
contiguous :: point(:), invCov(:,:,:), center(:,:)
1079 complex(CKG) :: mahalSq(
size(invCov,
3, IK))
1084 PURE module function getDisMahalSqMixInvCen_D1_CK3(point, invCov, center)
result(mahalSq)
1085#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1086 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqMixInvCen_D1_CK3
1089 complex(CKG),
intent(in),
contiguous :: point(:), invCov(:,:,:), center(:,:)
1090 complex(CKG) :: mahalSq(
size(invCov,
3, IK))
1095 PURE module function getDisMahalSqMixInvCen_D1_CK2(point, invCov, center)
result(mahalSq)
1096#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1097 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqMixInvCen_D1_CK2
1100 complex(CKG),
intent(in),
contiguous :: point(:), invCov(:,:,:), center(:,:)
1101 complex(CKG) :: mahalSq(
size(invCov,
3, IK))
1106 PURE module function getDisMahalSqMixInvCen_D1_CK1(point, invCov, center)
result(mahalSq)
1107#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1108 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqMixInvCen_D1_CK1
1111 complex(CKG),
intent(in),
contiguous :: point(:), invCov(:,:,:), center(:,:)
1112 complex(CKG) :: mahalSq(
size(invCov,
3, IK))
1119 PURE module function getDisMahalSqMixInvCen_D1_RK5(point, invCov, center)
result(mahalSq)
1120#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1121 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqMixInvCen_D1_RK5
1124 real(RKG) ,
intent(in),
contiguous :: point(:), invCov(:,:,:), center(:,:)
1125 real(RKG) :: mahalSq(
size(invCov,
3, IK))
1130 PURE module function getDisMahalSqMixInvCen_D1_RK4(point, invCov, center)
result(mahalSq)
1131#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1132 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqMixInvCen_D1_RK4
1135 real(RKG) ,
intent(in),
contiguous :: point(:), invCov(:,:,:), center(:,:)
1136 real(RKG) :: mahalSq(
size(invCov,
3, IK))
1141 PURE module function getDisMahalSqMixInvCen_D1_RK3(point, invCov, center)
result(mahalSq)
1142#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1143 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqMixInvCen_D1_RK3
1146 real(RKG) ,
intent(in),
contiguous :: point(:), invCov(:,:,:), center(:,:)
1147 real(RKG) :: mahalSq(
size(invCov,
3, IK))
1152 PURE module function getDisMahalSqMixInvCen_D1_RK2(point, invCov, center)
result(mahalSq)
1153#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1154 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqMixInvCen_D1_RK2
1157 real(RKG) ,
intent(in),
contiguous :: point(:), invCov(:,:,:), center(:,:)
1158 real(RKG) :: mahalSq(
size(invCov,
3, IK))
1163 PURE module function getDisMahalSqMixInvCen_D1_RK1(point, invCov, center)
result(mahalSq)
1164#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1165 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqMixInvCen_D1_RK1
1168 real(RKG) ,
intent(in),
contiguous :: point(:), invCov(:,:,:), center(:,:)
1169 real(RKG) :: mahalSq(
size(invCov,
3, IK))
1186 PURE module function getDisMahalSqMixInvDef_D2_CK5(point, invCov)
result(mahalSq)
1187#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1188 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqMixInvDef_D2_CK5
1191 complex(CKG),
intent(in),
contiguous :: point(:,:), invCov(:,:,:)
1192 complex(CKG) :: mahalSq(
size(invCov,
3, IK),
size(point,
2, IK))
1197 PURE module function getDisMahalSqMixInvDef_D2_CK4(point, invCov)
result(mahalSq)
1198#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1199 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqMixInvDef_D2_CK4
1202 complex(CKG),
intent(in),
contiguous :: point(:,:), invCov(:,:,:)
1203 complex(CKG) :: mahalSq(
size(invCov,
3, IK),
size(point,
2, IK))
1208 PURE module function getDisMahalSqMixInvDef_D2_CK3(point, invCov)
result(mahalSq)
1209#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1210 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqMixInvDef_D2_CK3
1213 complex(CKG),
intent(in),
contiguous :: point(:,:), invCov(:,:,:)
1214 complex(CKG) :: mahalSq(
size(invCov,
3, IK),
size(point,
2, IK))
1219 PURE module function getDisMahalSqMixInvDef_D2_CK2(point, invCov)
result(mahalSq)
1220#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1221 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqMixInvDef_D2_CK2
1224 complex(CKG),
intent(in),
contiguous :: point(:,:), invCov(:,:,:)
1225 complex(CKG) :: mahalSq(
size(invCov,
3, IK),
size(point,
2, IK))
1230 PURE module function getDisMahalSqMixInvDef_D2_CK1(point, invCov)
result(mahalSq)
1231#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1232 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqMixInvDef_D2_CK1
1235 complex(CKG),
intent(in),
contiguous :: point(:,:), invCov(:,:,:)
1236 complex(CKG) :: mahalSq(
size(invCov,
3, IK),
size(point,
2, IK))
1243 PURE module function getDisMahalSqMixInvDef_D2_RK5(point, invCov)
result(mahalSq)
1244#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1245 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqMixInvDef_D2_RK5
1248 real(RKG) ,
intent(in),
contiguous :: point(:,:), invCov(:,:,:)
1249 real(RKG) :: mahalSq(
size(invCov,
3, IK),
size(point,
2, IK))
1254 PURE module function getDisMahalSqMixInvDef_D2_RK4(point, invCov)
result(mahalSq)
1255#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1256 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqMixInvDef_D2_RK4
1259 real(RKG) ,
intent(in),
contiguous :: point(:,:), invCov(:,:,:)
1260 real(RKG) :: mahalSq(
size(invCov,
3, IK),
size(point,
2, IK))
1265 PURE module function getDisMahalSqMixInvDef_D2_RK3(point, invCov)
result(mahalSq)
1266#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1267 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqMixInvDef_D2_RK3
1270 real(RKG) ,
intent(in),
contiguous :: point(:,:), invCov(:,:,:)
1271 real(RKG) :: mahalSq(
size(invCov,
3, IK),
size(point,
2, IK))
1276 PURE module function getDisMahalSqMixInvDef_D2_RK2(point, invCov)
result(mahalSq)
1277#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1278 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqMixInvDef_D2_RK2
1281 real(RKG) ,
intent(in),
contiguous :: point(:,:), invCov(:,:,:)
1282 real(RKG) :: mahalSq(
size(invCov,
3, IK),
size(point,
2, IK))
1287 PURE module function getDisMahalSqMixInvDef_D2_RK1(point, invCov)
result(mahalSq)
1288#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1289 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqMixInvDef_D2_RK1
1292 real(RKG) ,
intent(in),
contiguous :: point(:,:), invCov(:,:,:)
1293 real(RKG) :: mahalSq(
size(invCov,
3, IK),
size(point,
2, IK))
1306 PURE module function getDisMahalSqMixInvCen_D2_CK5(point, invCov, center)
result(mahalSq)
1307#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1308 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqMixInvCen_D2_CK5
1311 complex(CKG),
intent(in),
contiguous :: point(:,:), invCov(:,:,:), center(:,:)
1312 complex(CKG) :: mahalSq(
size(invCov,
3, IK),
size(point,
2, IK))
1317 PURE module function getDisMahalSqMixInvCen_D2_CK4(point, invCov, center)
result(mahalSq)
1318#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1319 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqMixInvCen_D2_CK4
1322 complex(CKG),
intent(in),
contiguous :: point(:,:), invCov(:,:,:), center(:,:)
1323 complex(CKG) :: mahalSq(
size(invCov,
3, IK),
size(point,
2, IK))
1328 PURE module function getDisMahalSqMixInvCen_D2_CK3(point, invCov, center)
result(mahalSq)
1329#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1330 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqMixInvCen_D2_CK3
1333 complex(CKG),
intent(in),
contiguous :: point(:,:), invCov(:,:,:), center(:,:)
1334 complex(CKG) :: mahalSq(
size(invCov,
3, IK),
size(point,
2, IK))
1339 PURE module function getDisMahalSqMixInvCen_D2_CK2(point, invCov, center)
result(mahalSq)
1340#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1341 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqMixInvCen_D2_CK2
1344 complex(CKG),
intent(in),
contiguous :: point(:,:), invCov(:,:,:), center(:,:)
1345 complex(CKG) :: mahalSq(
size(invCov,
3, IK),
size(point,
2, IK))
1350 PURE module function getDisMahalSqMixInvCen_D2_CK1(point, invCov, center)
result(mahalSq)
1351#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1352 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqMixInvCen_D2_CK1
1355 complex(CKG),
intent(in),
contiguous :: point(:,:), invCov(:,:,:), center(:,:)
1356 complex(CKG) :: mahalSq(
size(invCov,
3, IK),
size(point,
2, IK))
1363 PURE module function getDisMahalSqMixInvCen_D2_RK5(point, invCov, center)
result(mahalSq)
1364#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1365 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqMixInvCen_D2_RK5
1368 real(RKG) ,
intent(in),
contiguous :: point(:,:), invCov(:,:,:), center(:,:)
1369 real(RKG) :: mahalSq(
size(invCov,
3, IK),
size(point,
2, IK))
1374 PURE module function getDisMahalSqMixInvCen_D2_RK4(point, invCov, center)
result(mahalSq)
1375#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1376 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqMixInvCen_D2_RK4
1379 real(RKG) ,
intent(in),
contiguous :: point(:,:), invCov(:,:,:), center(:,:)
1380 real(RKG) :: mahalSq(
size(invCov,
3, IK),
size(point,
2, IK))
1385 PURE module function getDisMahalSqMixInvCen_D2_RK3(point, invCov, center)
result(mahalSq)
1386#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1387 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqMixInvCen_D2_RK3
1390 real(RKG) ,
intent(in),
contiguous :: point(:,:), invCov(:,:,:), center(:,:)
1391 real(RKG) :: mahalSq(
size(invCov,
3, IK),
size(point,
2, IK))
1396 PURE module function getDisMahalSqMixInvCen_D2_RK2(point, invCov, center)
result(mahalSq)
1397#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1398 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqMixInvCen_D2_RK2
1401 real(RKG) ,
intent(in),
contiguous :: point(:,:), invCov(:,:,:), center(:,:)
1402 real(RKG) :: mahalSq(
size(invCov,
3, IK),
size(point,
2, IK))
1407 PURE module function getDisMahalSqMixInvCen_D2_RK1(point, invCov, center)
result(mahalSq)
1408#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1409 !DEC$ ATTRIBUTES DLLEXPORT :: getDisMahalSqMixInvCen_D2_RK1
1412 real(RKG) ,
intent(in),
contiguous :: point(:,:), invCov(:,:,:), center(:,:)
1413 real(RKG) :: mahalSq(
size(invCov,
3, IK),
size(point,
2, IK))
1550 PURE elemental module subroutine setDisMahalSqEleInvDef_D0_CK5(mahalSq, point, invCov)
1551#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1552 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqEleInvDef_D0_CK5
1555 complex(CKG),
intent(in) :: point, invCov
1556 complex(CKG),
intent(out) :: mahalSq
1561 PURE elemental module subroutine setDisMahalSqEleInvDef_D0_CK4(mahalSq, point, invCov)
1562#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1563 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqEleInvDef_D0_CK4
1566 complex(CKG),
intent(in) :: point, invCov
1567 complex(CKG),
intent(out) :: mahalSq
1572 PURE elemental module subroutine setDisMahalSqEleInvDef_D0_CK3(mahalSq, point, invCov)
1573#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1574 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqEleInvDef_D0_CK3
1577 complex(CKG),
intent(in) :: point, invCov
1578 complex(CKG),
intent(out) :: mahalSq
1583 PURE elemental module subroutine setDisMahalSqEleInvDef_D0_CK2(mahalSq, point, invCov)
1584#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1585 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqEleInvDef_D0_CK2
1588 complex(CKG),
intent(in) :: point, invCov
1589 complex(CKG),
intent(out) :: mahalSq
1594 PURE elemental module subroutine setDisMahalSqEleInvDef_D0_CK1(mahalSq, point, invCov)
1595#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1596 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqEleInvDef_D0_CK1
1599 complex(CKG),
intent(in) :: point, invCov
1600 complex(CKG),
intent(out) :: mahalSq
1607 PURE elemental module subroutine setDisMahalSqEleInvDef_D0_RK5(mahalSq, point, invCov)
1608#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1609 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqEleInvDef_D0_RK5
1612 real(RKG) ,
intent(in) :: point, invCov
1613 real(RKG) ,
intent(out) :: mahalSq
1618 PURE elemental module subroutine setDisMahalSqEleInvDef_D0_RK4(mahalSq, point, invCov)
1619#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1620 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqEleInvDef_D0_RK4
1623 real(RKG) ,
intent(in) :: point, invCov
1624 real(RKG) ,
intent(out) :: mahalSq
1629 PURE elemental module subroutine setDisMahalSqEleInvDef_D0_RK3(mahalSq, point, invCov)
1630#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1631 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqEleInvDef_D0_RK3
1634 real(RKG) ,
intent(in) :: point, invCov
1635 real(RKG) ,
intent(out) :: mahalSq
1640 PURE elemental module subroutine setDisMahalSqEleInvDef_D0_RK2(mahalSq, point, invCov)
1641#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1642 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqEleInvDef_D0_RK2
1645 real(RKG) ,
intent(in) :: point, invCov
1646 real(RKG) ,
intent(out) :: mahalSq
1651 PURE elemental module subroutine setDisMahalSqEleInvDef_D0_RK1(mahalSq, point, invCov)
1652#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1653 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqEleInvDef_D0_RK1
1656 real(RKG) ,
intent(in) :: point, invCov
1657 real(RKG) ,
intent(out) :: mahalSq
1670 PURE elemental module subroutine setDisMahalSqEleInvCen_D0_CK5(mahalSq, point, invCov, center)
1671#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1672 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqEleInvCen_D0_CK5
1675 complex(CKG),
intent(in) :: point, invCov, center
1676 complex(CKG),
intent(out) :: mahalSq
1681 PURE elemental module subroutine setDisMahalSqEleInvCen_D0_CK4(mahalSq, point, invCov, center)
1682#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1683 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqEleInvCen_D0_CK4
1686 complex(CKG),
intent(in) :: point, invCov, center
1687 complex(CKG),
intent(out) :: mahalSq
1692 PURE elemental module subroutine setDisMahalSqEleInvCen_D0_CK3(mahalSq, point, invCov, center)
1693#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1694 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqEleInvCen_D0_CK3
1697 complex(CKG),
intent(in) :: point, invCov, center
1698 complex(CKG),
intent(out) :: mahalSq
1703 PURE elemental module subroutine setDisMahalSqEleInvCen_D0_CK2(mahalSq, point, invCov, center)
1704#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1705 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqEleInvCen_D0_CK2
1708 complex(CKG),
intent(in) :: point, invCov, center
1709 complex(CKG),
intent(out) :: mahalSq
1714 PURE elemental module subroutine setDisMahalSqEleInvCen_D0_CK1(mahalSq, point, invCov, center)
1715#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1716 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqEleInvCen_D0_CK1
1719 complex(CKG),
intent(in) :: point, invCov, center
1720 complex(CKG),
intent(out) :: mahalSq
1727 PURE elemental module subroutine setDisMahalSqEleInvCen_D0_RK5(mahalSq, point, invCov, center)
1728#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1729 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqEleInvCen_D0_RK5
1732 real(RKG) ,
intent(in) :: point, invCov, center
1733 real(RKG) ,
intent(out) :: mahalSq
1738 PURE elemental module subroutine setDisMahalSqEleInvCen_D0_RK4(mahalSq, point, invCov, center)
1739#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1740 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqEleInvCen_D0_RK4
1743 real(RKG) ,
intent(in) :: point, invCov, center
1744 real(RKG) ,
intent(out) :: mahalSq
1749 PURE elemental module subroutine setDisMahalSqEleInvCen_D0_RK3(mahalSq, point, invCov, center)
1750#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1751 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqEleInvCen_D0_RK3
1754 real(RKG) ,
intent(in) :: point, invCov, center
1755 real(RKG) ,
intent(out) :: mahalSq
1760 PURE elemental module subroutine setDisMahalSqEleInvCen_D0_RK2(mahalSq, point, invCov, center)
1761#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1762 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqEleInvCen_D0_RK2
1765 real(RKG) ,
intent(in) :: point, invCov, center
1766 real(RKG) ,
intent(out) :: mahalSq
1771 PURE elemental module subroutine setDisMahalSqEleInvCen_D0_RK1(mahalSq, point, invCov, center)
1772#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1773 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqEleInvCen_D0_RK1
1776 real(RKG) ,
intent(in) :: point, invCov, center
1777 real(RKG) ,
intent(out) :: mahalSq
1798 PURE module subroutine setDisMahalSqOneInvDef_D1_CK5(mahalSq, point, invCov)
1799#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1800 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqOneInvDef_D1_CK5
1803 complex(CKG),
intent(in) ,
contiguous :: point(:), invCov(:,:)
1804 complex(CKG),
intent(out) :: mahalSq
1809 PURE module subroutine setDisMahalSqOneInvDef_D1_CK4(mahalSq, point, invCov)
1810#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1811 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqOneInvDef_D1_CK4
1814 complex(CKG),
intent(in) ,
contiguous :: point(:), invCov(:,:)
1815 complex(CKG),
intent(out) :: mahalSq
1820 PURE module subroutine setDisMahalSqOneInvDef_D1_CK3(mahalSq, point, invCov)
1821#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1822 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqOneInvDef_D1_CK3
1825 complex(CKG),
intent(in) ,
contiguous :: point(:), invCov(:,:)
1826 complex(CKG),
intent(out) :: mahalSq
1831 PURE module subroutine setDisMahalSqOneInvDef_D1_CK2(mahalSq, point, invCov)
1832#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1833 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqOneInvDef_D1_CK2
1836 complex(CKG),
intent(in) ,
contiguous :: point(:), invCov(:,:)
1837 complex(CKG),
intent(out) :: mahalSq
1842 PURE module subroutine setDisMahalSqOneInvDef_D1_CK1(mahalSq, point, invCov)
1843#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1844 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqOneInvDef_D1_CK1
1847 complex(CKG),
intent(in) ,
contiguous :: point(:), invCov(:,:)
1848 complex(CKG),
intent(out) :: mahalSq
1855 PURE module subroutine setDisMahalSqOneInvDef_D1_RK5(mahalSq, point, invCov)
1856#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1857 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqOneInvDef_D1_RK5
1860 real(RKG) ,
intent(in) ,
contiguous :: point(:), invCov(:,:)
1861 real(RKG) ,
intent(out) :: mahalSq
1866 PURE module subroutine setDisMahalSqOneInvDef_D1_RK4(mahalSq, point, invCov)
1867#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1868 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqOneInvDef_D1_RK4
1871 real(RKG) ,
intent(in) ,
contiguous :: point(:), invCov(:,:)
1872 real(RKG) ,
intent(out) :: mahalSq
1877 PURE module subroutine setDisMahalSqOneInvDef_D1_RK3(mahalSq, point, invCov)
1878#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1879 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqOneInvDef_D1_RK3
1882 real(RKG) ,
intent(in) ,
contiguous :: point(:), invCov(:,:)
1883 real(RKG) ,
intent(out) :: mahalSq
1888 PURE module subroutine setDisMahalSqOneInvDef_D1_RK2(mahalSq, point, invCov)
1889#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1890 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqOneInvDef_D1_RK2
1893 real(RKG) ,
intent(in) ,
contiguous :: point(:), invCov(:,:)
1894 real(RKG) ,
intent(out) :: mahalSq
1899 PURE module subroutine setDisMahalSqOneInvDef_D1_RK1(mahalSq, point, invCov)
1900#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1901 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqOneInvDef_D1_RK1
1904 real(RKG) ,
intent(in) ,
contiguous :: point(:), invCov(:,:)
1905 real(RKG) ,
intent(out) :: mahalSq
1918 PURE module subroutine setDisMahalSqOneInvCen_D1_CK5(mahalSq, point, invCov, center)
1919#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1920 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqOneInvCen_D1_CK5
1923 complex(CKG),
intent(in) ,
contiguous :: point(:), invCov(:,:), center(:)
1924 complex(CKG),
intent(out) :: mahalSq
1929 PURE module subroutine setDisMahalSqOneInvCen_D1_CK4(mahalSq, point, invCov, center)
1930#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1931 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqOneInvCen_D1_CK4
1934 complex(CKG),
intent(in) ,
contiguous :: point(:), invCov(:,:), center(:)
1935 complex(CKG),
intent(out) :: mahalSq
1940 PURE module subroutine setDisMahalSqOneInvCen_D1_CK3(mahalSq, point, invCov, center)
1941#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1942 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqOneInvCen_D1_CK3
1945 complex(CKG),
intent(in) ,
contiguous :: point(:), invCov(:,:), center(:)
1946 complex(CKG),
intent(out) :: mahalSq
1951 PURE module subroutine setDisMahalSqOneInvCen_D1_CK2(mahalSq, point, invCov, center)
1952#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1953 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqOneInvCen_D1_CK2
1956 complex(CKG),
intent(in) ,
contiguous :: point(:), invCov(:,:), center(:)
1957 complex(CKG),
intent(out) :: mahalSq
1962 PURE module subroutine setDisMahalSqOneInvCen_D1_CK1(mahalSq, point, invCov, center)
1963#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1964 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqOneInvCen_D1_CK1
1967 complex(CKG),
intent(in) ,
contiguous :: point(:), invCov(:,:), center(:)
1968 complex(CKG),
intent(out) :: mahalSq
1975 PURE module subroutine setDisMahalSqOneInvCen_D1_RK5(mahalSq, point, invCov, center)
1976#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1977 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqOneInvCen_D1_RK5
1980 real(RKG) ,
intent(in) ,
contiguous :: point(:), invCov(:,:), center(:)
1981 real(RKG) ,
intent(out) :: mahalSq
1986 PURE module subroutine setDisMahalSqOneInvCen_D1_RK4(mahalSq, point, invCov, center)
1987#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1988 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqOneInvCen_D1_RK4
1991 real(RKG) ,
intent(in) ,
contiguous :: point(:), invCov(:,:), center(:)
1992 real(RKG) ,
intent(out) :: mahalSq
1997 PURE module subroutine setDisMahalSqOneInvCen_D1_RK3(mahalSq, point, invCov, center)
1998#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1999 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqOneInvCen_D1_RK3
2002 real(RKG) ,
intent(in) ,
contiguous :: point(:), invCov(:,:), center(:)
2003 real(RKG) ,
intent(out) :: mahalSq
2008 PURE module subroutine setDisMahalSqOneInvCen_D1_RK2(mahalSq, point, invCov, center)
2009#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2010 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqOneInvCen_D1_RK2
2013 real(RKG) ,
intent(in) ,
contiguous :: point(:), invCov(:,:), center(:)
2014 real(RKG) ,
intent(out) :: mahalSq
2019 PURE module subroutine setDisMahalSqOneInvCen_D1_RK1(mahalSq, point, invCov, center)
2020#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2021 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqOneInvCen_D1_RK1
2024 real(RKG) ,
intent(in) ,
contiguous :: point(:), invCov(:,:), center(:)
2025 real(RKG) ,
intent(out) :: mahalSq
2042 PURE module subroutine setDisMahalSqOneInvDef_D2_CK5(mahalSq, point, invCov)
2043#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2044 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqOneInvDef_D2_CK5
2047 complex(CKG),
intent(in) ,
contiguous :: point(:,:), invCov(:,:)
2048 complex(CKG),
intent(out) ,
contiguous :: mahalSq(:)
2053 PURE module subroutine setDisMahalSqOneInvDef_D2_CK4(mahalSq, point, invCov)
2054#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2055 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqOneInvDef_D2_CK4
2058 complex(CKG),
intent(in) ,
contiguous :: point(:,:), invCov(:,:)
2059 complex(CKG),
intent(out) ,
contiguous :: mahalSq(:)
2064 PURE module subroutine setDisMahalSqOneInvDef_D2_CK3(mahalSq, point, invCov)
2065#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2066 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqOneInvDef_D2_CK3
2069 complex(CKG),
intent(in) ,
contiguous :: point(:,:), invCov(:,:)
2070 complex(CKG),
intent(out) ,
contiguous :: mahalSq(:)
2075 PURE module subroutine setDisMahalSqOneInvDef_D2_CK2(mahalSq, point, invCov)
2076#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2077 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqOneInvDef_D2_CK2
2080 complex(CKG),
intent(in) ,
contiguous :: point(:,:), invCov(:,:)
2081 complex(CKG),
intent(out) ,
contiguous :: mahalSq(:)
2086 PURE module subroutine setDisMahalSqOneInvDef_D2_CK1(mahalSq, point, invCov)
2087#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2088 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqOneInvDef_D2_CK1
2091 complex(CKG),
intent(in) ,
contiguous :: point(:,:), invCov(:,:)
2092 complex(CKG),
intent(out) ,
contiguous :: mahalSq(:)
2099 PURE module subroutine setDisMahalSqOneInvDef_D2_RK5(mahalSq, point, invCov)
2100#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2101 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqOneInvDef_D2_RK5
2104 real(RKG) ,
intent(in) ,
contiguous :: point(:,:), invCov(:,:)
2105 real(RKG) ,
intent(out) ,
contiguous :: mahalSq(:)
2110 PURE module subroutine setDisMahalSqOneInvDef_D2_RK4(mahalSq, point, invCov)
2111#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2112 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqOneInvDef_D2_RK4
2115 real(RKG) ,
intent(in) ,
contiguous :: point(:,:), invCov(:,:)
2116 real(RKG) ,
intent(out) ,
contiguous :: mahalSq(:)
2121 PURE module subroutine setDisMahalSqOneInvDef_D2_RK3(mahalSq, point, invCov)
2122#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2123 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqOneInvDef_D2_RK3
2126 real(RKG) ,
intent(in) ,
contiguous :: point(:,:), invCov(:,:)
2127 real(RKG) ,
intent(out) ,
contiguous :: mahalSq(:)
2132 PURE module subroutine setDisMahalSqOneInvDef_D2_RK2(mahalSq, point, invCov)
2133#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2134 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqOneInvDef_D2_RK2
2137 real(RKG) ,
intent(in) ,
contiguous :: point(:,:), invCov(:,:)
2138 real(RKG) ,
intent(out) ,
contiguous :: mahalSq(:)
2143 PURE module subroutine setDisMahalSqOneInvDef_D2_RK1(mahalSq, point, invCov)
2144#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2145 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqOneInvDef_D2_RK1
2148 real(RKG) ,
intent(in) ,
contiguous :: point(:,:), invCov(:,:)
2149 real(RKG) ,
intent(out) ,
contiguous :: mahalSq(:)
2162 PURE module subroutine setDisMahalSqOneInvCen_D2_CK5(mahalSq, point, invCov, center)
2163#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2164 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqOneInvCen_D2_CK5
2167 complex(CKG),
intent(in) ,
contiguous :: point(:,:), invCov(:,:), center(:)
2168 complex(CKG),
intent(out) ,
contiguous :: mahalSq(:)
2173 PURE module subroutine setDisMahalSqOneInvCen_D2_CK4(mahalSq, point, invCov, center)
2174#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2175 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqOneInvCen_D2_CK4
2178 complex(CKG),
intent(in) ,
contiguous :: point(:,:), invCov(:,:), center(:)
2179 complex(CKG),
intent(out) ,
contiguous :: mahalSq(:)
2184 PURE module subroutine setDisMahalSqOneInvCen_D2_CK3(mahalSq, point, invCov, center)
2185#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2186 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqOneInvCen_D2_CK3
2189 complex(CKG),
intent(in) ,
contiguous :: point(:,:), invCov(:,:), center(:)
2190 complex(CKG),
intent(out) ,
contiguous :: mahalSq(:)
2195 PURE module subroutine setDisMahalSqOneInvCen_D2_CK2(mahalSq, point, invCov, center)
2196#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2197 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqOneInvCen_D2_CK2
2200 complex(CKG),
intent(in) ,
contiguous :: point(:,:), invCov(:,:), center(:)
2201 complex(CKG),
intent(out) ,
contiguous :: mahalSq(:)
2206 PURE module subroutine setDisMahalSqOneInvCen_D2_CK1(mahalSq, point, invCov, center)
2207#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2208 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqOneInvCen_D2_CK1
2211 complex(CKG),
intent(in) ,
contiguous :: point(:,:), invCov(:,:), center(:)
2212 complex(CKG),
intent(out) ,
contiguous :: mahalSq(:)
2219 PURE module subroutine setDisMahalSqOneInvCen_D2_RK5(mahalSq, point, invCov, center)
2220#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2221 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqOneInvCen_D2_RK5
2224 real(RKG) ,
intent(in) ,
contiguous :: point(:,:), invCov(:,:), center(:)
2225 real(RKG) ,
intent(out) ,
contiguous :: mahalSq(:)
2230 PURE module subroutine setDisMahalSqOneInvCen_D2_RK4(mahalSq, point, invCov, center)
2231#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2232 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqOneInvCen_D2_RK4
2235 real(RKG) ,
intent(in) ,
contiguous :: point(:,:), invCov(:,:), center(:)
2236 real(RKG) ,
intent(out) ,
contiguous :: mahalSq(:)
2241 PURE module subroutine setDisMahalSqOneInvCen_D2_RK3(mahalSq, point, invCov, center)
2242#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2243 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqOneInvCen_D2_RK3
2246 real(RKG) ,
intent(in) ,
contiguous :: point(:,:), invCov(:,:), center(:)
2247 real(RKG) ,
intent(out) ,
contiguous :: mahalSq(:)
2252 PURE module subroutine setDisMahalSqOneInvCen_D2_RK2(mahalSq, point, invCov, center)
2253#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2254 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqOneInvCen_D2_RK2
2257 real(RKG) ,
intent(in) ,
contiguous :: point(:,:), invCov(:,:), center(:)
2258 real(RKG) ,
intent(out) ,
contiguous :: mahalSq(:)
2263 PURE module subroutine setDisMahalSqOneInvCen_D2_RK1(mahalSq, point, invCov, center)
2264#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2265 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqOneInvCen_D2_RK1
2268 real(RKG) ,
intent(in) ,
contiguous :: point(:,:), invCov(:,:), center(:)
2269 real(RKG) ,
intent(out) ,
contiguous :: mahalSq(:)
2290 PURE module subroutine setDisMahalSqMixInvDef_D1_CK5(mahalSq, point, invCov)
2291#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2292 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqMixInvDef_D1_CK5
2295 complex(CKG),
intent(in) ,
contiguous :: point(:), invCov(:,:,:)
2296 complex(CKG),
intent(out) ,
contiguous :: mahalSq(:)
2301 PURE module subroutine setDisMahalSqMixInvDef_D1_CK4(mahalSq, point, invCov)
2302#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2303 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqMixInvDef_D1_CK4
2306 complex(CKG),
intent(in) ,
contiguous :: point(:), invCov(:,:,:)
2307 complex(CKG),
intent(out) ,
contiguous :: mahalSq(:)
2312 PURE module subroutine setDisMahalSqMixInvDef_D1_CK3(mahalSq, point, invCov)
2313#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2314 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqMixInvDef_D1_CK3
2317 complex(CKG),
intent(in) ,
contiguous :: point(:), invCov(:,:,:)
2318 complex(CKG),
intent(out) ,
contiguous :: mahalSq(:)
2323 PURE module subroutine setDisMahalSqMixInvDef_D1_CK2(mahalSq, point, invCov)
2324#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2325 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqMixInvDef_D1_CK2
2328 complex(CKG),
intent(in) ,
contiguous :: point(:), invCov(:,:,:)
2329 complex(CKG),
intent(out) ,
contiguous :: mahalSq(:)
2334 PURE module subroutine setDisMahalSqMixInvDef_D1_CK1(mahalSq, point, invCov)
2335#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2336 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqMixInvDef_D1_CK1
2339 complex(CKG),
intent(in) ,
contiguous :: point(:), invCov(:,:,:)
2340 complex(CKG),
intent(out) ,
contiguous :: mahalSq(:)
2347 PURE module subroutine setDisMahalSqMixInvDef_D1_RK5(mahalSq, point, invCov)
2348#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2349 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqMixInvDef_D1_RK5
2352 real(RKG) ,
intent(in) ,
contiguous :: point(:), invCov(:,:,:)
2353 real(RKG) ,
intent(out) ,
contiguous :: mahalSq(:)
2358 PURE module subroutine setDisMahalSqMixInvDef_D1_RK4(mahalSq, point, invCov)
2359#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2360 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqMixInvDef_D1_RK4
2363 real(RKG) ,
intent(in) ,
contiguous :: point(:), invCov(:,:,:)
2364 real(RKG) ,
intent(out) ,
contiguous :: mahalSq(:)
2369 PURE module subroutine setDisMahalSqMixInvDef_D1_RK3(mahalSq, point, invCov)
2370#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2371 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqMixInvDef_D1_RK3
2374 real(RKG) ,
intent(in) ,
contiguous :: point(:), invCov(:,:,:)
2375 real(RKG) ,
intent(out) ,
contiguous :: mahalSq(:)
2380 PURE module subroutine setDisMahalSqMixInvDef_D1_RK2(mahalSq, point, invCov)
2381#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2382 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqMixInvDef_D1_RK2
2385 real(RKG) ,
intent(in) ,
contiguous :: point(:), invCov(:,:,:)
2386 real(RKG) ,
intent(out) ,
contiguous :: mahalSq(:)
2391 PURE module subroutine setDisMahalSqMixInvDef_D1_RK1(mahalSq, point, invCov)
2392#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2393 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqMixInvDef_D1_RK1
2396 real(RKG) ,
intent(in) ,
contiguous :: point(:), invCov(:,:,:)
2397 real(RKG) ,
intent(out) ,
contiguous :: mahalSq(:)
2410 PURE module subroutine setDisMahalSqMixInvCen_D1_CK5(mahalSq, point, invCov, center)
2411#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2412 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqMixInvCen_D1_CK5
2415 complex(CKG),
intent(in) ,
contiguous :: point(:), invCov(:,:,:), center(:,:)
2416 complex(CKG),
intent(out) ,
contiguous :: mahalSq(:)
2421 PURE module subroutine setDisMahalSqMixInvCen_D1_CK4(mahalSq, point, invCov, center)
2422#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2423 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqMixInvCen_D1_CK4
2426 complex(CKG),
intent(in) ,
contiguous :: point(:), invCov(:,:,:), center(:,:)
2427 complex(CKG),
intent(out) ,
contiguous :: mahalSq(:)
2432 PURE module subroutine setDisMahalSqMixInvCen_D1_CK3(mahalSq, point, invCov, center)
2433#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2434 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqMixInvCen_D1_CK3
2437 complex(CKG),
intent(in) ,
contiguous :: point(:), invCov(:,:,:), center(:,:)
2438 complex(CKG),
intent(out) ,
contiguous :: mahalSq(:)
2443 PURE module subroutine setDisMahalSqMixInvCen_D1_CK2(mahalSq, point, invCov, center)
2444#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2445 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqMixInvCen_D1_CK2
2448 complex(CKG),
intent(in) ,
contiguous :: point(:), invCov(:,:,:), center(:,:)
2449 complex(CKG),
intent(out) ,
contiguous :: mahalSq(:)
2454 PURE module subroutine setDisMahalSqMixInvCen_D1_CK1(mahalSq, point, invCov, center)
2455#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2456 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqMixInvCen_D1_CK1
2459 complex(CKG),
intent(in) ,
contiguous :: point(:), invCov(:,:,:), center(:,:)
2460 complex(CKG),
intent(out) ,
contiguous :: mahalSq(:)
2467 PURE module subroutine setDisMahalSqMixInvCen_D1_RK5(mahalSq, point, invCov, center)
2468#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2469 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqMixInvCen_D1_RK5
2472 real(RKG) ,
intent(in) ,
contiguous :: point(:), invCov(:,:,:), center(:,:)
2473 real(RKG) ,
intent(out) ,
contiguous :: mahalSq(:)
2478 PURE module subroutine setDisMahalSqMixInvCen_D1_RK4(mahalSq, point, invCov, center)
2479#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2480 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqMixInvCen_D1_RK4
2483 real(RKG) ,
intent(in) ,
contiguous :: point(:), invCov(:,:,:), center(:,:)
2484 real(RKG) ,
intent(out) ,
contiguous :: mahalSq(:)
2489 PURE module subroutine setDisMahalSqMixInvCen_D1_RK3(mahalSq, point, invCov, center)
2490#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2491 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqMixInvCen_D1_RK3
2494 real(RKG) ,
intent(in) ,
contiguous :: point(:), invCov(:,:,:), center(:,:)
2495 real(RKG) ,
intent(out) ,
contiguous :: mahalSq(:)
2500 PURE module subroutine setDisMahalSqMixInvCen_D1_RK2(mahalSq, point, invCov, center)
2501#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2502 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqMixInvCen_D1_RK2
2505 real(RKG) ,
intent(in) ,
contiguous :: point(:), invCov(:,:,:), center(:,:)
2506 real(RKG) ,
intent(out) ,
contiguous :: mahalSq(:)
2511 PURE module subroutine setDisMahalSqMixInvCen_D1_RK1(mahalSq, point, invCov, center)
2512#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2513 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqMixInvCen_D1_RK1
2516 real(RKG) ,
intent(in) ,
contiguous :: point(:), invCov(:,:,:), center(:,:)
2517 real(RKG) ,
intent(out) ,
contiguous :: mahalSq(:)
2534 PURE module subroutine setDisMahalSqMixInvDef_D2_CK5(mahalSq, point, invCov)
2535#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2536 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqMixInvDef_D2_CK5
2539 complex(CKG),
intent(in) ,
contiguous :: point(:,:), invCov(:,:,:)
2540 complex(CKG),
intent(out) ,
contiguous :: mahalSq(:,:)
2545 PURE module subroutine setDisMahalSqMixInvDef_D2_CK4(mahalSq, point, invCov)
2546#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2547 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqMixInvDef_D2_CK4
2550 complex(CKG),
intent(in) ,
contiguous :: point(:,:), invCov(:,:,:)
2551 complex(CKG),
intent(out) ,
contiguous :: mahalSq(:,:)
2556 PURE module subroutine setDisMahalSqMixInvDef_D2_CK3(mahalSq, point, invCov)
2557#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2558 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqMixInvDef_D2_CK3
2561 complex(CKG),
intent(in) ,
contiguous :: point(:,:), invCov(:,:,:)
2562 complex(CKG),
intent(out) ,
contiguous :: mahalSq(:,:)
2567 PURE module subroutine setDisMahalSqMixInvDef_D2_CK2(mahalSq, point, invCov)
2568#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2569 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqMixInvDef_D2_CK2
2572 complex(CKG),
intent(in) ,
contiguous :: point(:,:), invCov(:,:,:)
2573 complex(CKG),
intent(out) ,
contiguous :: mahalSq(:,:)
2578 PURE module subroutine setDisMahalSqMixInvDef_D2_CK1(mahalSq, point, invCov)
2579#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2580 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqMixInvDef_D2_CK1
2583 complex(CKG),
intent(in) ,
contiguous :: point(:,:), invCov(:,:,:)
2584 complex(CKG),
intent(out) ,
contiguous :: mahalSq(:,:)
2591 PURE module subroutine setDisMahalSqMixInvDef_D2_RK5(mahalSq, point, invCov)
2592#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2593 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqMixInvDef_D2_RK5
2596 real(RKG) ,
intent(in) ,
contiguous :: point(:,:), invCov(:,:,:)
2597 real(RKG) ,
intent(out) ,
contiguous :: mahalSq(:,:)
2602 PURE module subroutine setDisMahalSqMixInvDef_D2_RK4(mahalSq, point, invCov)
2603#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2604 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqMixInvDef_D2_RK4
2607 real(RKG) ,
intent(in) ,
contiguous :: point(:,:), invCov(:,:,:)
2608 real(RKG) ,
intent(out) ,
contiguous :: mahalSq(:,:)
2613 PURE module subroutine setDisMahalSqMixInvDef_D2_RK3(mahalSq, point, invCov)
2614#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2615 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqMixInvDef_D2_RK3
2618 real(RKG) ,
intent(in) ,
contiguous :: point(:,:), invCov(:,:,:)
2619 real(RKG) ,
intent(out) ,
contiguous :: mahalSq(:,:)
2624 PURE module subroutine setDisMahalSqMixInvDef_D2_RK2(mahalSq, point, invCov)
2625#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2626 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqMixInvDef_D2_RK2
2629 real(RKG) ,
intent(in) ,
contiguous :: point(:,:), invCov(:,:,:)
2630 real(RKG) ,
intent(out) ,
contiguous :: mahalSq(:,:)
2635 PURE module subroutine setDisMahalSqMixInvDef_D2_RK1(mahalSq, point, invCov)
2636#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2637 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqMixInvDef_D2_RK1
2640 real(RKG) ,
intent(in) ,
contiguous :: point(:,:), invCov(:,:,:)
2641 real(RKG) ,
intent(out) ,
contiguous :: mahalSq(:,:)
2654 PURE module subroutine setDisMahalSqMixInvCen_D2_CK5(mahalSq, point, invCov, center)
2655#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2656 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqMixInvCen_D2_CK5
2659 complex(CKG),
intent(in) ,
contiguous :: point(:,:), invCov(:,:,:), center(:,:)
2660 complex(CKG),
intent(out) ,
contiguous :: mahalSq(:,:)
2665 PURE module subroutine setDisMahalSqMixInvCen_D2_CK4(mahalSq, point, invCov, center)
2666#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2667 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqMixInvCen_D2_CK4
2670 complex(CKG),
intent(in) ,
contiguous :: point(:,:), invCov(:,:,:), center(:,:)
2671 complex(CKG),
intent(out) ,
contiguous :: mahalSq(:,:)
2676 PURE module subroutine setDisMahalSqMixInvCen_D2_CK3(mahalSq, point, invCov, center)
2677#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2678 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqMixInvCen_D2_CK3
2681 complex(CKG),
intent(in) ,
contiguous :: point(:,:), invCov(:,:,:), center(:,:)
2682 complex(CKG),
intent(out) ,
contiguous :: mahalSq(:,:)
2687 PURE module subroutine setDisMahalSqMixInvCen_D2_CK2(mahalSq, point, invCov, center)
2688#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2689 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqMixInvCen_D2_CK2
2692 complex(CKG),
intent(in) ,
contiguous :: point(:,:), invCov(:,:,:), center(:,:)
2693 complex(CKG),
intent(out) ,
contiguous :: mahalSq(:,:)
2698 PURE module subroutine setDisMahalSqMixInvCen_D2_CK1(mahalSq, point, invCov, center)
2699#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2700 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqMixInvCen_D2_CK1
2703 complex(CKG),
intent(in) ,
contiguous :: point(:,:), invCov(:,:,:), center(:,:)
2704 complex(CKG),
intent(out) ,
contiguous :: mahalSq(:,:)
2711 PURE module subroutine setDisMahalSqMixInvCen_D2_RK5(mahalSq, point, invCov, center)
2712#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2713 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqMixInvCen_D2_RK5
2716 real(RKG) ,
intent(in) ,
contiguous :: point(:,:), invCov(:,:,:), center(:,:)
2717 real(RKG) ,
intent(out) ,
contiguous :: mahalSq(:,:)
2722 PURE module subroutine setDisMahalSqMixInvCen_D2_RK4(mahalSq, point, invCov, center)
2723#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2724 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqMixInvCen_D2_RK4
2727 real(RKG) ,
intent(in) ,
contiguous :: point(:,:), invCov(:,:,:), center(:,:)
2728 real(RKG) ,
intent(out) ,
contiguous :: mahalSq(:,:)
2733 PURE module subroutine setDisMahalSqMixInvCen_D2_RK3(mahalSq, point, invCov, center)
2734#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2735 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqMixInvCen_D2_RK3
2738 real(RKG) ,
intent(in) ,
contiguous :: point(:,:), invCov(:,:,:), center(:,:)
2739 real(RKG) ,
intent(out) ,
contiguous :: mahalSq(:,:)
2744 PURE module subroutine setDisMahalSqMixInvCen_D2_RK2(mahalSq, point, invCov, center)
2745#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2746 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqMixInvCen_D2_RK2
2749 real(RKG) ,
intent(in) ,
contiguous :: point(:,:), invCov(:,:,:), center(:,:)
2750 real(RKG) ,
intent(out) ,
contiguous :: mahalSq(:,:)
2755 PURE module subroutine setDisMahalSqMixInvCen_D2_RK1(mahalSq, point, invCov, center)
2756#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2757 !DEC$ ATTRIBUTES DLLEXPORT :: setDisMahalSqMixInvCen_D2_RK1
2760 real(RKG) ,
intent(in) ,
contiguous :: point(:,:), invCov(:,:,:), center(:,:)
2761 real(RKG) ,
intent(out) ,
contiguous :: mahalSq(:,:)
Generate and return the square of the Mahalanobis distance of a (set of npnt) point(s) from a single ...
Return the square of the Mahalanobis distance of a (set of npnt) point(s) from a single (or a set of ...
This module contains classes and procedures for computing the Mahalanobis statistical distance.
character(*, SK), parameter MODULE_NAME
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
integer, parameter RK
The default real kind in the ParaMonte library: real64 in Fortran, c_double in C-Fortran Interoperati...
integer, parameter 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...