88#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
89 !DIR$ ATTRIBUTES DLLEXPORT ::
stdscale
203 PURE module function getScaled_ARK_ONO_D1_RK5(sample, amount)
result(sampleScaled)
204#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
205 !DEC$ ATTRIBUTES DLLEXPORT :: getScaled_ARK_ONO_D1_RK5
208 real(RKG) ,
intent(in),
contiguous :: sample(:)
209 real(RKG) ,
intent(in) :: amount
210 real(RKG) :: sampleScaled(
size(sample,
1, IK))
215 PURE module function getScaled_ARK_ONO_D1_RK4(sample, amount)
result(sampleScaled)
216#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
217 !DEC$ ATTRIBUTES DLLEXPORT :: getScaled_ARK_ONO_D1_RK4
220 real(RKG) ,
intent(in),
contiguous :: sample(:)
221 real(RKG) ,
intent(in) :: amount
222 real(RKG) :: sampleScaled(
size(sample,
1, IK))
227 PURE module function getScaled_ARK_ONO_D1_RK3(sample, amount)
result(sampleScaled)
228#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
229 !DEC$ ATTRIBUTES DLLEXPORT :: getScaled_ARK_ONO_D1_RK3
232 real(RKG) ,
intent(in),
contiguous :: sample(:)
233 real(RKG) ,
intent(in) :: amount
234 real(RKG) :: sampleScaled(
size(sample,
1, IK))
239 PURE module function getScaled_ARK_ONO_D1_RK2(sample, amount)
result(sampleScaled)
240#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
241 !DEC$ ATTRIBUTES DLLEXPORT :: getScaled_ARK_ONO_D1_RK2
244 real(RKG) ,
intent(in),
contiguous :: sample(:)
245 real(RKG) ,
intent(in) :: amount
246 real(RKG) :: sampleScaled(
size(sample,
1, IK))
251 PURE module function getScaled_ARK_ONO_D1_RK1(sample, amount)
result(sampleScaled)
252#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
253 !DEC$ ATTRIBUTES DLLEXPORT :: getScaled_ARK_ONO_D1_RK1
256 real(RKG) ,
intent(in),
contiguous :: sample(:)
257 real(RKG) ,
intent(in) :: amount
258 real(RKG) :: sampleScaled(
size(sample,
1, IK))
265 PURE module function getScaled_ARK_ONO_D2_RK5(sample, dim, amount)
result(sampleScaled)
266#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
267 !DEC$ ATTRIBUTES DLLEXPORT :: getScaled_ARK_ONO_D2_RK5
270 real(RKG) ,
intent(in),
contiguous :: sample(:,:)
271 real(RKG) ,
intent(in),
contiguous :: amount(:)
272 integer(IK) ,
intent(in) :: dim
273 real(RKG) :: sampleScaled(
size(sample,
1, IK),
size(sample,
2, IK))
278 PURE module function getScaled_ARK_ONO_D2_RK4(sample, dim, amount)
result(sampleScaled)
279#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
280 !DEC$ ATTRIBUTES DLLEXPORT :: getScaled_ARK_ONO_D2_RK4
283 real(RKG) ,
intent(in),
contiguous :: sample(:,:)
284 real(RKG) ,
intent(in),
contiguous :: amount(:)
285 integer(IK) ,
intent(in) :: dim
286 real(RKG) :: sampleScaled(
size(sample,
1, IK),
size(sample,
2, IK))
291 PURE module function getScaled_ARK_ONO_D2_RK3(sample, dim, amount)
result(sampleScaled)
292#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
293 !DEC$ ATTRIBUTES DLLEXPORT :: getScaled_ARK_ONO_D2_RK3
296 real(RKG) ,
intent(in),
contiguous :: sample(:,:)
297 real(RKG) ,
intent(in),
contiguous :: amount(:)
298 integer(IK) ,
intent(in) :: dim
299 real(RKG) :: sampleScaled(
size(sample,
1, IK),
size(sample,
2, IK))
304 PURE module function getScaled_ARK_ONO_D2_RK2(sample, dim, amount)
result(sampleScaled)
305#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
306 !DEC$ ATTRIBUTES DLLEXPORT :: getScaled_ARK_ONO_D2_RK2
309 real(RKG) ,
intent(in),
contiguous :: sample(:,:)
310 real(RKG) ,
intent(in),
contiguous :: amount(:)
311 integer(IK) ,
intent(in) :: dim
312 real(RKG) :: sampleScaled(
size(sample,
1, IK),
size(sample,
2, IK))
317 PURE module function getScaled_ARK_ONO_D2_RK1(sample, dim, amount)
result(sampleScaled)
318#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
319 !DEC$ ATTRIBUTES DLLEXPORT :: getScaled_ARK_ONO_D2_RK1
322 real(RKG) ,
intent(in),
contiguous :: sample(:,:)
323 real(RKG) ,
intent(in),
contiguous :: amount(:)
324 integer(IK) ,
intent(in) :: dim
325 real(RKG) :: sampleScaled(
size(sample,
1, IK),
size(sample,
2, IK))
332 PURE module function getScaled_ARK_OTH_D2_RK5(sample, dim, amount, operation)
result(sampleScaled)
333#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
334 !DEC$ ATTRIBUTES DLLEXPORT :: getScaled_ARK_OTH_D2_RK5
337 real(RKG) ,
intent(in),
contiguous :: sample(:,:)
338 real(RKG) ,
intent(in),
contiguous :: amount(:)
339 integer(IK) ,
intent(in) :: dim
340 type(transHerm_type),
intent(in) :: operation
341 real(RKG) :: sampleScaled(
size(sample,
2, IK),
size(sample,
1, IK))
346 PURE module function getScaled_ARK_OTH_D2_RK4(sample, dim, amount, operation)
result(sampleScaled)
347#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
348 !DEC$ ATTRIBUTES DLLEXPORT :: getScaled_ARK_OTH_D2_RK4
351 real(RKG) ,
intent(in),
contiguous :: sample(:,:)
352 real(RKG) ,
intent(in),
contiguous :: amount(:)
353 integer(IK) ,
intent(in) :: dim
354 type(transHerm_type),
intent(in) :: operation
355 real(RKG) :: sampleScaled(
size(sample,
2, IK),
size(sample,
1, IK))
360 PURE module function getScaled_ARK_OTH_D2_RK3(sample, dim, amount, operation)
result(sampleScaled)
361#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
362 !DEC$ ATTRIBUTES DLLEXPORT :: getScaled_ARK_OTH_D2_RK3
365 real(RKG) ,
intent(in),
contiguous :: sample(:,:)
366 real(RKG) ,
intent(in),
contiguous :: amount(:)
367 integer(IK) ,
intent(in) :: dim
368 type(transHerm_type),
intent(in) :: operation
369 real(RKG) :: sampleScaled(
size(sample,
2, IK),
size(sample,
1, IK))
374 PURE module function getScaled_ARK_OTH_D2_RK2(sample, dim, amount, operation)
result(sampleScaled)
375#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
376 !DEC$ ATTRIBUTES DLLEXPORT :: getScaled_ARK_OTH_D2_RK2
379 real(RKG) ,
intent(in),
contiguous :: sample(:,:)
380 real(RKG) ,
intent(in),
contiguous :: amount(:)
381 integer(IK) ,
intent(in) :: dim
382 type(transHerm_type),
intent(in) :: operation
383 real(RKG) :: sampleScaled(
size(sample,
2, IK),
size(sample,
1, IK))
388 PURE module function getScaled_ARK_OTH_D2_RK1(sample, dim, amount, operation)
result(sampleScaled)
389#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
390 !DEC$ ATTRIBUTES DLLEXPORT :: getScaled_ARK_OTH_D2_RK1
393 real(RKG) ,
intent(in),
contiguous :: sample(:,:)
394 real(RKG) ,
intent(in),
contiguous :: amount(:)
395 integer(IK) ,
intent(in) :: dim
396 type(transHerm_type),
intent(in) :: operation
397 real(RKG) :: sampleScaled(
size(sample,
2, IK),
size(sample,
1, IK))
412 PURE module function getScaled_ACK_ONO_D1_CK5(sample, amount)
result(sampleScaled)
413#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
414 !DEC$ ATTRIBUTES DLLEXPORT :: getScaled_ACK_ONO_D1_CK5
417 complex(CKG) ,
intent(in),
contiguous :: sample(:)
418 complex(CKG) ,
intent(in) :: amount
419 complex(CKG) :: sampleScaled(
size(sample,
1, IK))
424 PURE module function getScaled_ACK_ONO_D1_CK4(sample, amount)
result(sampleScaled)
425#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
426 !DEC$ ATTRIBUTES DLLEXPORT :: getScaled_ACK_ONO_D1_CK4
429 complex(CKG) ,
intent(in),
contiguous :: sample(:)
430 complex(CKG) ,
intent(in) :: amount
431 complex(CKG) :: sampleScaled(
size(sample,
1, IK))
436 PURE module function getScaled_ACK_ONO_D1_CK3(sample, amount)
result(sampleScaled)
437#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
438 !DEC$ ATTRIBUTES DLLEXPORT :: getScaled_ACK_ONO_D1_CK3
441 complex(CKG) ,
intent(in),
contiguous :: sample(:)
442 complex(CKG) ,
intent(in) :: amount
443 complex(CKG) :: sampleScaled(
size(sample,
1, IK))
448 PURE module function getScaled_ACK_ONO_D1_CK2(sample, amount)
result(sampleScaled)
449#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
450 !DEC$ ATTRIBUTES DLLEXPORT :: getScaled_ACK_ONO_D1_CK2
453 complex(CKG) ,
intent(in),
contiguous :: sample(:)
454 complex(CKG) ,
intent(in) :: amount
455 complex(CKG) :: sampleScaled(
size(sample,
1, IK))
460 PURE module function getScaled_ACK_ONO_D1_CK1(sample, amount)
result(sampleScaled)
461#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
462 !DEC$ ATTRIBUTES DLLEXPORT :: getScaled_ACK_ONO_D1_CK1
465 complex(CKG) ,
intent(in),
contiguous :: sample(:)
466 complex(CKG) ,
intent(in) :: amount
467 complex(CKG) :: sampleScaled(
size(sample,
1, IK))
474 PURE module function getScaled_ACK_ONO_D2_CK5(sample, dim, amount)
result(sampleScaled)
475#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
476 !DEC$ ATTRIBUTES DLLEXPORT :: getScaled_ACK_ONO_D2_CK5
479 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
480 complex(CKG) ,
intent(in),
contiguous :: amount(:)
481 integer(IK) ,
intent(in) :: dim
482 complex(CKG) :: sampleScaled(
size(sample,
1, IK),
size(sample,
2, IK))
487 PURE module function getScaled_ACK_ONO_D2_CK4(sample, dim, amount)
result(sampleScaled)
488#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
489 !DEC$ ATTRIBUTES DLLEXPORT :: getScaled_ACK_ONO_D2_CK4
492 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
493 complex(CKG) ,
intent(in),
contiguous :: amount(:)
494 integer(IK) ,
intent(in) :: dim
495 complex(CKG) :: sampleScaled(
size(sample,
1, IK),
size(sample,
2, IK))
500 PURE module function getScaled_ACK_ONO_D2_CK3(sample, dim, amount)
result(sampleScaled)
501#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
502 !DEC$ ATTRIBUTES DLLEXPORT :: getScaled_ACK_ONO_D2_CK3
505 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
506 complex(CKG) ,
intent(in),
contiguous :: amount(:)
507 integer(IK) ,
intent(in) :: dim
508 complex(CKG) :: sampleScaled(
size(sample,
1, IK),
size(sample,
2, IK))
513 PURE module function getScaled_ACK_ONO_D2_CK2(sample, dim, amount)
result(sampleScaled)
514#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
515 !DEC$ ATTRIBUTES DLLEXPORT :: getScaled_ACK_ONO_D2_CK2
518 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
519 complex(CKG) ,
intent(in),
contiguous :: amount(:)
520 integer(IK) ,
intent(in) :: dim
521 complex(CKG) :: sampleScaled(
size(sample,
1, IK),
size(sample,
2, IK))
526 PURE module function getScaled_ACK_ONO_D2_CK1(sample, dim, amount)
result(sampleScaled)
527#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
528 !DEC$ ATTRIBUTES DLLEXPORT :: getScaled_ACK_ONO_D2_CK1
531 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
532 complex(CKG) ,
intent(in),
contiguous :: amount(:)
533 integer(IK) ,
intent(in) :: dim
534 complex(CKG) :: sampleScaled(
size(sample,
1, IK),
size(sample,
2, IK))
541 PURE module function getScaled_ACK_OTH_D2_CK5(sample, dim, amount, operation)
result(sampleScaled)
542#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
543 !DEC$ ATTRIBUTES DLLEXPORT :: getScaled_ACK_OTH_D2_CK5
546 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
547 complex(CKG) ,
intent(in),
contiguous :: amount(:)
548 integer(IK) ,
intent(in) :: dim
549 type(transHerm_type),
intent(in) :: operation
550 complex(CKG) :: sampleScaled(
size(sample,
2, IK),
size(sample,
1, IK))
555 PURE module function getScaled_ACK_OTH_D2_CK4(sample, dim, amount, operation)
result(sampleScaled)
556#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
557 !DEC$ ATTRIBUTES DLLEXPORT :: getScaled_ACK_OTH_D2_CK4
560 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
561 complex(CKG) ,
intent(in),
contiguous :: amount(:)
562 integer(IK) ,
intent(in) :: dim
563 type(transHerm_type),
intent(in) :: operation
564 complex(CKG) :: sampleScaled(
size(sample,
2, IK),
size(sample,
1, IK))
569 PURE module function getScaled_ACK_OTH_D2_CK3(sample, dim, amount, operation)
result(sampleScaled)
570#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
571 !DEC$ ATTRIBUTES DLLEXPORT :: getScaled_ACK_OTH_D2_CK3
574 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
575 complex(CKG) ,
intent(in),
contiguous :: amount(:)
576 integer(IK) ,
intent(in) :: dim
577 type(transHerm_type),
intent(in) :: operation
578 complex(CKG) :: sampleScaled(
size(sample,
2, IK),
size(sample,
1, IK))
583 PURE module function getScaled_ACK_OTH_D2_CK2(sample, dim, amount, operation)
result(sampleScaled)
584#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
585 !DEC$ ATTRIBUTES DLLEXPORT :: getScaled_ACK_OTH_D2_CK2
588 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
589 complex(CKG) ,
intent(in),
contiguous :: amount(:)
590 integer(IK) ,
intent(in) :: dim
591 type(transHerm_type),
intent(in) :: operation
592 complex(CKG) :: sampleScaled(
size(sample,
2, IK),
size(sample,
1, IK))
597 PURE module function getScaled_ACK_OTH_D2_CK1(sample, dim, amount, operation)
result(sampleScaled)
598#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
599 !DEC$ ATTRIBUTES DLLEXPORT :: getScaled_ACK_OTH_D2_CK1
602 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
603 complex(CKG) ,
intent(in),
contiguous :: amount(:)
604 integer(IK) ,
intent(in) :: dim
605 type(transHerm_type),
intent(in) :: operation
606 complex(CKG) :: sampleScaled(
size(sample,
2, IK),
size(sample,
1, IK))
621 PURE module function getScaled_ARK_ONO_D1_CK5(sample, amount)
result(sampleScaled)
622#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
623 !DEC$ ATTRIBUTES DLLEXPORT :: getScaled_ARK_ONO_D1_CK5
626 complex(CKG) ,
intent(in),
contiguous :: sample(:)
627 real(CKG) ,
intent(in) :: amount
628 complex(CKG) :: sampleScaled(
size(sample,
1, IK))
633 PURE module function getScaled_ARK_ONO_D1_CK4(sample, amount)
result(sampleScaled)
634#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
635 !DEC$ ATTRIBUTES DLLEXPORT :: getScaled_ARK_ONO_D1_CK4
638 complex(CKG) ,
intent(in),
contiguous :: sample(:)
639 real(CKG) ,
intent(in) :: amount
640 complex(CKG) :: sampleScaled(
size(sample,
1, IK))
645 PURE module function getScaled_ARK_ONO_D1_CK3(sample, amount)
result(sampleScaled)
646#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
647 !DEC$ ATTRIBUTES DLLEXPORT :: getScaled_ARK_ONO_D1_CK3
650 complex(CKG) ,
intent(in),
contiguous :: sample(:)
651 real(CKG) ,
intent(in) :: amount
652 complex(CKG) :: sampleScaled(
size(sample,
1, IK))
657 PURE module function getScaled_ARK_ONO_D1_CK2(sample, amount)
result(sampleScaled)
658#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
659 !DEC$ ATTRIBUTES DLLEXPORT :: getScaled_ARK_ONO_D1_CK2
662 complex(CKG) ,
intent(in),
contiguous :: sample(:)
663 real(CKG) ,
intent(in) :: amount
664 complex(CKG) :: sampleScaled(
size(sample,
1, IK))
669 PURE module function getScaled_ARK_ONO_D1_CK1(sample, amount)
result(sampleScaled)
670#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
671 !DEC$ ATTRIBUTES DLLEXPORT :: getScaled_ARK_ONO_D1_CK1
674 complex(CKG) ,
intent(in),
contiguous :: sample(:)
675 real(CKG) ,
intent(in) :: amount
676 complex(CKG) :: sampleScaled(
size(sample,
1, IK))
683 PURE module function getScaled_ARK_ONO_D2_CK5(sample, dim, amount)
result(sampleScaled)
684#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
685 !DEC$ ATTRIBUTES DLLEXPORT :: getScaled_ARK_ONO_D2_CK5
688 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
689 real(CKG) ,
intent(in),
contiguous :: amount(:)
690 integer(IK) ,
intent(in) :: dim
691 complex(CKG) :: sampleScaled(
size(sample,
1, IK),
size(sample,
2, IK))
696 PURE module function getScaled_ARK_ONO_D2_CK4(sample, dim, amount)
result(sampleScaled)
697#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
698 !DEC$ ATTRIBUTES DLLEXPORT :: getScaled_ARK_ONO_D2_CK4
701 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
702 real(CKG) ,
intent(in),
contiguous :: amount(:)
703 integer(IK) ,
intent(in) :: dim
704 complex(CKG) :: sampleScaled(
size(sample,
1, IK),
size(sample,
2, IK))
709 PURE module function getScaled_ARK_ONO_D2_CK3(sample, dim, amount)
result(sampleScaled)
710#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
711 !DEC$ ATTRIBUTES DLLEXPORT :: getScaled_ARK_ONO_D2_CK3
714 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
715 real(CKG) ,
intent(in),
contiguous :: amount(:)
716 integer(IK) ,
intent(in) :: dim
717 complex(CKG) :: sampleScaled(
size(sample,
1, IK),
size(sample,
2, IK))
722 PURE module function getScaled_ARK_ONO_D2_CK2(sample, dim, amount)
result(sampleScaled)
723#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
724 !DEC$ ATTRIBUTES DLLEXPORT :: getScaled_ARK_ONO_D2_CK2
727 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
728 real(CKG) ,
intent(in),
contiguous :: amount(:)
729 integer(IK) ,
intent(in) :: dim
730 complex(CKG) :: sampleScaled(
size(sample,
1, IK),
size(sample,
2, IK))
735 PURE module function getScaled_ARK_ONO_D2_CK1(sample, dim, amount)
result(sampleScaled)
736#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
737 !DEC$ ATTRIBUTES DLLEXPORT :: getScaled_ARK_ONO_D2_CK1
740 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
741 real(CKG) ,
intent(in),
contiguous :: amount(:)
742 integer(IK) ,
intent(in) :: dim
743 complex(CKG) :: sampleScaled(
size(sample,
1, IK),
size(sample,
2, IK))
750 PURE module function getScaled_ARK_OTH_D2_CK5(sample, dim, amount, operation)
result(sampleScaled)
751#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
752 !DEC$ ATTRIBUTES DLLEXPORT :: getScaled_ARK_OTH_D2_CK5
755 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
756 real(CKG) ,
intent(in),
contiguous :: amount(:)
757 integer(IK) ,
intent(in) :: dim
758 type(transHerm_type),
intent(in) :: operation
759 complex(CKG) :: sampleScaled(
size(sample,
2, IK),
size(sample,
1, IK))
764 PURE module function getScaled_ARK_OTH_D2_CK4(sample, dim, amount, operation)
result(sampleScaled)
765#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
766 !DEC$ ATTRIBUTES DLLEXPORT :: getScaled_ARK_OTH_D2_CK4
769 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
770 real(CKG) ,
intent(in),
contiguous :: amount(:)
771 integer(IK) ,
intent(in) :: dim
772 type(transHerm_type),
intent(in) :: operation
773 complex(CKG) :: sampleScaled(
size(sample,
2, IK),
size(sample,
1, IK))
778 PURE module function getScaled_ARK_OTH_D2_CK3(sample, dim, amount, operation)
result(sampleScaled)
779#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
780 !DEC$ ATTRIBUTES DLLEXPORT :: getScaled_ARK_OTH_D2_CK3
783 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
784 real(CKG) ,
intent(in),
contiguous :: amount(:)
785 integer(IK) ,
intent(in) :: dim
786 type(transHerm_type),
intent(in) :: operation
787 complex(CKG) :: sampleScaled(
size(sample,
2, IK),
size(sample,
1, IK))
792 PURE module function getScaled_ARK_OTH_D2_CK2(sample, dim, amount, operation)
result(sampleScaled)
793#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
794 !DEC$ ATTRIBUTES DLLEXPORT :: getScaled_ARK_OTH_D2_CK2
797 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
798 real(CKG) ,
intent(in),
contiguous :: amount(:)
799 integer(IK) ,
intent(in) :: dim
800 type(transHerm_type),
intent(in) :: operation
801 complex(CKG) :: sampleScaled(
size(sample,
2, IK),
size(sample,
1, IK))
806 PURE module function getScaled_ARK_OTH_D2_CK1(sample, dim, amount, operation)
result(sampleScaled)
807#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
808 !DEC$ ATTRIBUTES DLLEXPORT :: getScaled_ARK_OTH_D2_CK1
811 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
812 real(CKG) ,
intent(in),
contiguous :: amount(:)
813 integer(IK) ,
intent(in) :: dim
814 type(transHerm_type),
intent(in) :: operation
815 complex(CKG) :: sampleScaled(
size(sample,
2, IK),
size(sample,
1, IK))
920 PURE module subroutine setScaled_ARK_D1_RK5(sample, amount)
921#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
922 !DEC$ ATTRIBUTES DLLEXPORT :: setScaled_ARK_D1_RK5
925 real(RKG) ,
intent(inout) ,
contiguous :: sample(:)
926 real(RKG) ,
intent(in) :: amount
931 PURE module subroutine setScaled_ARK_D1_RK4(sample, amount)
932#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
933 !DEC$ ATTRIBUTES DLLEXPORT :: setScaled_ARK_D1_RK4
936 real(RKG) ,
intent(inout) ,
contiguous :: sample(:)
937 real(RKG) ,
intent(in) :: amount
942 PURE module subroutine setScaled_ARK_D1_RK3(sample, amount)
943#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
944 !DEC$ ATTRIBUTES DLLEXPORT :: setScaled_ARK_D1_RK3
947 real(RKG) ,
intent(inout) ,
contiguous :: sample(:)
948 real(RKG) ,
intent(in) :: amount
953 PURE module subroutine setScaled_ARK_D1_RK2(sample, amount)
954#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
955 !DEC$ ATTRIBUTES DLLEXPORT :: setScaled_ARK_D1_RK2
958 real(RKG) ,
intent(inout) ,
contiguous :: sample(:)
959 real(RKG) ,
intent(in) :: amount
964 PURE module subroutine setScaled_ARK_D1_RK1(sample, amount)
965#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
966 !DEC$ ATTRIBUTES DLLEXPORT :: setScaled_ARK_D1_RK1
969 real(RKG) ,
intent(inout) ,
contiguous :: sample(:)
970 real(RKG) ,
intent(in) :: amount
977 PURE module subroutine setScaled_ARK_D2_RK5(sample, dim, amount)
978#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
979 !DEC$ ATTRIBUTES DLLEXPORT :: setScaled_ARK_D2_RK5
982 integer(IK) ,
intent(in) :: dim
983 real(RKG) ,
intent(in) ,
contiguous :: amount(:)
984 real(RKG) ,
intent(inout) ,
contiguous :: sample(:,:)
989 PURE module subroutine setScaled_ARK_D2_RK4(sample, dim, amount)
990#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
991 !DEC$ ATTRIBUTES DLLEXPORT :: setScaled_ARK_D2_RK4
994 integer(IK) ,
intent(in) :: dim
995 real(RKG) ,
intent(in) ,
contiguous :: amount(:)
996 real(RKG) ,
intent(inout) ,
contiguous :: sample(:,:)
1001 PURE module subroutine setScaled_ARK_D2_RK3(sample, dim, amount)
1002#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1003 !DEC$ ATTRIBUTES DLLEXPORT :: setScaled_ARK_D2_RK3
1006 integer(IK) ,
intent(in) :: dim
1007 real(RKG) ,
intent(in) ,
contiguous :: amount(:)
1008 real(RKG) ,
intent(inout) ,
contiguous :: sample(:,:)
1013 PURE module subroutine setScaled_ARK_D2_RK2(sample, dim, amount)
1014#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1015 !DEC$ ATTRIBUTES DLLEXPORT :: setScaled_ARK_D2_RK2
1018 integer(IK) ,
intent(in) :: dim
1019 real(RKG) ,
intent(in) ,
contiguous :: amount(:)
1020 real(RKG) ,
intent(inout) ,
contiguous :: sample(:,:)
1025 PURE module subroutine setScaled_ARK_D2_RK1(sample, dim, amount)
1026#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1027 !DEC$ ATTRIBUTES DLLEXPORT :: setScaled_ARK_D2_RK1
1030 integer(IK) ,
intent(in) :: dim
1031 real(RKG) ,
intent(in) ,
contiguous :: amount(:)
1032 real(RKG) ,
intent(inout) ,
contiguous :: sample(:,:)
1047 PURE module subroutine setScaled_ARK_D1_CK5(sample, amount)
1048#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1049 !DEC$ ATTRIBUTES DLLEXPORT :: setScaled_ARK_D1_CK5
1052 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:)
1053 real(CKG) ,
intent(in) :: amount
1058 PURE module subroutine setScaled_ARK_D1_CK4(sample, amount)
1059#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1060 !DEC$ ATTRIBUTES DLLEXPORT :: setScaled_ARK_D1_CK4
1063 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:)
1064 real(CKG) ,
intent(in) :: amount
1069 PURE module subroutine setScaled_ARK_D1_CK3(sample, amount)
1070#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1071 !DEC$ ATTRIBUTES DLLEXPORT :: setScaled_ARK_D1_CK3
1074 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:)
1075 real(CKG) ,
intent(in) :: amount
1080 PURE module subroutine setScaled_ARK_D1_CK2(sample, amount)
1081#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1082 !DEC$ ATTRIBUTES DLLEXPORT :: setScaled_ARK_D1_CK2
1085 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:)
1086 real(CKG) ,
intent(in) :: amount
1091 PURE module subroutine setScaled_ARK_D1_CK1(sample, amount)
1092#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1093 !DEC$ ATTRIBUTES DLLEXPORT :: setScaled_ARK_D1_CK1
1096 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:)
1097 real(CKG) ,
intent(in) :: amount
1104 PURE module subroutine setScaled_ARK_D2_CK5(sample, dim, amount)
1105#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1106 !DEC$ ATTRIBUTES DLLEXPORT :: setScaled_ARK_D2_CK5
1109 integer(IK) ,
intent(in) :: dim
1110 real(CKG) ,
intent(in) ,
contiguous :: amount(:)
1111 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:,:)
1116 PURE module subroutine setScaled_ARK_D2_CK4(sample, dim, amount)
1117#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1118 !DEC$ ATTRIBUTES DLLEXPORT :: setScaled_ARK_D2_CK4
1121 integer(IK) ,
intent(in) :: dim
1122 real(CKG) ,
intent(in) ,
contiguous :: amount(:)
1123 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:,:)
1128 PURE module subroutine setScaled_ARK_D2_CK3(sample, dim, amount)
1129#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1130 !DEC$ ATTRIBUTES DLLEXPORT :: setScaled_ARK_D2_CK3
1133 integer(IK) ,
intent(in) :: dim
1134 real(CKG) ,
intent(in) ,
contiguous :: amount(:)
1135 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:,:)
1140 PURE module subroutine setScaled_ARK_D2_CK2(sample, dim, amount)
1141#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1142 !DEC$ ATTRIBUTES DLLEXPORT :: setScaled_ARK_D2_CK2
1145 integer(IK) ,
intent(in) :: dim
1146 real(CKG) ,
intent(in) ,
contiguous :: amount(:)
1147 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:,:)
1152 PURE module subroutine setScaled_ARK_D2_CK1(sample, dim, amount)
1153#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1154 !DEC$ ATTRIBUTES DLLEXPORT :: setScaled_ARK_D2_CK1
1157 integer(IK) ,
intent(in) :: dim
1158 real(CKG) ,
intent(in) ,
contiguous :: amount(:)
1159 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:,:)
1174 PURE module subroutine setScaled_ACK_D1_CK5(sample, amount)
1175#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1176 !DEC$ ATTRIBUTES DLLEXPORT :: setScaled_ACK_D1_CK5
1179 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:)
1180 complex(CKG) ,
intent(in) :: amount
1185 PURE module subroutine setScaled_ACK_D1_CK4(sample, amount)
1186#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1187 !DEC$ ATTRIBUTES DLLEXPORT :: setScaled_ACK_D1_CK4
1190 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:)
1191 complex(CKG) ,
intent(in) :: amount
1196 PURE module subroutine setScaled_ACK_D1_CK3(sample, amount)
1197#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1198 !DEC$ ATTRIBUTES DLLEXPORT :: setScaled_ACK_D1_CK3
1201 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:)
1202 complex(CKG) ,
intent(in) :: amount
1207 PURE module subroutine setScaled_ACK_D1_CK2(sample, amount)
1208#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1209 !DEC$ ATTRIBUTES DLLEXPORT :: setScaled_ACK_D1_CK2
1212 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:)
1213 complex(CKG) ,
intent(in) :: amount
1218 PURE module subroutine setScaled_ACK_D1_CK1(sample, amount)
1219#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1220 !DEC$ ATTRIBUTES DLLEXPORT :: setScaled_ACK_D1_CK1
1223 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:)
1224 complex(CKG) ,
intent(in) :: amount
1231 PURE module subroutine setScaled_ACK_D2_CK5(sample, dim, amount)
1232#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1233 !DEC$ ATTRIBUTES DLLEXPORT :: setScaled_ACK_D2_CK5
1236 integer(IK) ,
intent(in) :: dim
1237 complex(CKG) ,
intent(in) ,
contiguous :: amount(:)
1238 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:,:)
1243 PURE module subroutine setScaled_ACK_D2_CK4(sample, dim, amount)
1244#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1245 !DEC$ ATTRIBUTES DLLEXPORT :: setScaled_ACK_D2_CK4
1248 integer(IK) ,
intent(in) :: dim
1249 complex(CKG) ,
intent(in) ,
contiguous :: amount(:)
1250 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:,:)
1255 PURE module subroutine setScaled_ACK_D2_CK3(sample, dim, amount)
1256#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1257 !DEC$ ATTRIBUTES DLLEXPORT :: setScaled_ACK_D2_CK3
1260 integer(IK) ,
intent(in) :: dim
1261 complex(CKG) ,
intent(in) ,
contiguous :: amount(:)
1262 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:,:)
1267 PURE module subroutine setScaled_ACK_D2_CK2(sample, dim, amount)
1268#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1269 !DEC$ ATTRIBUTES DLLEXPORT :: setScaled_ACK_D2_CK2
1272 integer(IK) ,
intent(in) :: dim
1273 complex(CKG) ,
intent(in) ,
contiguous :: amount(:)
1274 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:,:)
1279 PURE module subroutine setScaled_ACK_D2_CK1(sample, dim, amount)
1280#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1281 !DEC$ ATTRIBUTES DLLEXPORT :: setScaled_ACK_D2_CK1
1284 integer(IK) ,
intent(in) :: dim
1285 complex(CKG) ,
intent(in) ,
contiguous :: amount(:)
1286 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:,:)
Generate a sample of shape (nsam), or (ndim, nsam) or (nsam, ndim) that is scaled by the specified in...
Return a sample of shape (nsam), or (ndim, nsam) or (nsam, ndim) that is scaled by the specified inpu...
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
This module contains abstract and concrete derived types and procedures related to various common mat...
character(*, SK), parameter MODULE_NAME
type(transHerm_type), parameter transHerm
This is a scalar parameter object of type transHerm_type that is exclusively used to request Hermitia...
This module contains classes and procedures for scaling (i.e., multiplying) univariate or multivariat...
type(stdscale_type), parameter stdscale
This is a concrete derived type whose instances are exclusively used to request Hermitian (conjugate)...
This is the derived type whose instances are meant to signify a sample scaling by an amount equal to ...