89#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
206 PURE module function getShiftedDIM_ONO_D1_CK5(sample, dim, amount)
result(sampleShifted)
207#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
208 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedDIM_ONO_D1_CK5
211 complex(CKG) ,
intent(in),
contiguous :: sample(:)
212 complex(CKG) ,
intent(in) :: amount
213 integer(IK) ,
intent(in) :: dim
214 complex(CKG) :: sampleShifted(
size(sample,
1, IK))
219 PURE module function getShiftedDIM_ONO_D1_CK4(sample, dim, amount)
result(sampleShifted)
220#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
221 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedDIM_ONO_D1_CK4
224 complex(CKG) ,
intent(in),
contiguous :: sample(:)
225 complex(CKG) ,
intent(in) :: amount
226 integer(IK) ,
intent(in) :: dim
227 complex(CKG) :: sampleShifted(
size(sample,
1, IK))
232 PURE module function getShiftedDIM_ONO_D1_CK3(sample, dim, amount)
result(sampleShifted)
233#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
234 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedDIM_ONO_D1_CK3
237 complex(CKG) ,
intent(in),
contiguous :: sample(:)
238 complex(CKG) ,
intent(in) :: amount
239 integer(IK) ,
intent(in) :: dim
240 complex(CKG) :: sampleShifted(
size(sample,
1, IK))
245 PURE module function getShiftedDIM_ONO_D1_CK2(sample, dim, amount)
result(sampleShifted)
246#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
247 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedDIM_ONO_D1_CK2
250 complex(CKG) ,
intent(in),
contiguous :: sample(:)
251 complex(CKG) ,
intent(in) :: amount
252 integer(IK) ,
intent(in) :: dim
253 complex(CKG) :: sampleShifted(
size(sample,
1, IK))
258 PURE module function getShiftedDIM_ONO_D1_CK1(sample, dim, amount)
result(sampleShifted)
259#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
260 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedDIM_ONO_D1_CK1
263 complex(CKG) ,
intent(in),
contiguous :: sample(:)
264 complex(CKG) ,
intent(in) :: amount
265 integer(IK) ,
intent(in) :: dim
266 complex(CKG) :: sampleShifted(
size(sample,
1, IK))
273 PURE module function getShiftedDIM_ONO_D1_RK5(sample, dim, amount)
result(sampleShifted)
274#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
275 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedDIM_ONO_D1_RK5
278 real(RKG) ,
intent(in),
contiguous :: sample(:)
279 real(RKG) ,
intent(in) :: amount
280 integer(IK) ,
intent(in) :: dim
281 real(RKG) :: sampleShifted(
size(sample,
1, IK))
286 PURE module function getShiftedDIM_ONO_D1_RK4(sample, dim, amount)
result(sampleShifted)
287#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
288 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedDIM_ONO_D1_RK4
291 real(RKG) ,
intent(in),
contiguous :: sample(:)
292 real(RKG) ,
intent(in) :: amount
293 integer(IK) ,
intent(in) :: dim
294 real(RKG) :: sampleShifted(
size(sample,
1, IK))
299 PURE module function getShiftedDIM_ONO_D1_RK3(sample, dim, amount)
result(sampleShifted)
300#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
301 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedDIM_ONO_D1_RK3
304 real(RKG) ,
intent(in),
contiguous :: sample(:)
305 real(RKG) ,
intent(in) :: amount
306 integer(IK) ,
intent(in) :: dim
307 real(RKG) :: sampleShifted(
size(sample,
1, IK))
312 PURE module function getShiftedDIM_ONO_D1_RK2(sample, dim, amount)
result(sampleShifted)
313#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
314 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedDIM_ONO_D1_RK2
317 real(RKG) ,
intent(in),
contiguous :: sample(:)
318 real(RKG) ,
intent(in) :: amount
319 integer(IK) ,
intent(in) :: dim
320 real(RKG) :: sampleShifted(
size(sample,
1, IK))
325 PURE module function getShiftedDIM_ONO_D1_RK1(sample, dim, amount)
result(sampleShifted)
326#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
327 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedDIM_ONO_D1_RK1
330 real(RKG) ,
intent(in),
contiguous :: sample(:)
331 real(RKG) ,
intent(in) :: amount
332 integer(IK) ,
intent(in) :: dim
333 real(RKG) :: sampleShifted(
size(sample,
1, IK))
346 PURE module function getShiftedDIM_ONO_D2_CK5(sample, dim, amount)
result(sampleShifted)
347#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
348 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedDIM_ONO_D2_CK5
351 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
352 complex(CKG) ,
intent(in),
contiguous :: amount(:)
353 integer(IK) ,
intent(in) :: dim
354 complex(CKG) :: sampleShifted(
size(sample,
1, IK),
size(sample,
2, IK))
359 PURE module function getShiftedDIM_ONO_D2_CK4(sample, dim, amount)
result(sampleShifted)
360#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
361 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedDIM_ONO_D2_CK4
364 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
365 complex(CKG) ,
intent(in),
contiguous :: amount(:)
366 integer(IK) ,
intent(in) :: dim
367 complex(CKG) :: sampleShifted(
size(sample,
1, IK),
size(sample,
2, IK))
372 PURE module function getShiftedDIM_ONO_D2_CK3(sample, dim, amount)
result(sampleShifted)
373#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
374 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedDIM_ONO_D2_CK3
377 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
378 complex(CKG) ,
intent(in),
contiguous :: amount(:)
379 integer(IK) ,
intent(in) :: dim
380 complex(CKG) :: sampleShifted(
size(sample,
1, IK),
size(sample,
2, IK))
385 PURE module function getShiftedDIM_ONO_D2_CK2(sample, dim, amount)
result(sampleShifted)
386#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
387 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedDIM_ONO_D2_CK2
390 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
391 complex(CKG) ,
intent(in),
contiguous :: amount(:)
392 integer(IK) ,
intent(in) :: dim
393 complex(CKG) :: sampleShifted(
size(sample,
1, IK),
size(sample,
2, IK))
398 PURE module function getShiftedDIM_ONO_D2_CK1(sample, dim, amount)
result(sampleShifted)
399#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
400 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedDIM_ONO_D2_CK1
403 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
404 complex(CKG) ,
intent(in),
contiguous :: amount(:)
405 integer(IK) ,
intent(in) :: dim
406 complex(CKG) :: sampleShifted(
size(sample,
1, IK),
size(sample,
2, IK))
413 PURE module function getShiftedDIM_ONO_D2_RK5(sample, dim, amount)
result(sampleShifted)
414#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
415 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedDIM_ONO_D2_RK5
418 real(RKG) ,
intent(in),
contiguous :: sample(:,:)
419 real(RKG) ,
intent(in),
contiguous :: amount(:)
420 integer(IK) ,
intent(in) :: dim
421 real(RKG) :: sampleShifted(
size(sample,
1, IK),
size(sample,
2, IK))
426 PURE module function getShiftedDIM_ONO_D2_RK4(sample, dim, amount)
result(sampleShifted)
427#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
428 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedDIM_ONO_D2_RK4
431 real(RKG) ,
intent(in),
contiguous :: sample(:,:)
432 real(RKG) ,
intent(in),
contiguous :: amount(:)
433 integer(IK) ,
intent(in) :: dim
434 real(RKG) :: sampleShifted(
size(sample,
1, IK),
size(sample,
2, IK))
439 PURE module function getShiftedDIM_ONO_D2_RK3(sample, dim, amount)
result(sampleShifted)
440#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
441 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedDIM_ONO_D2_RK3
444 real(RKG) ,
intent(in),
contiguous :: sample(:,:)
445 real(RKG) ,
intent(in),
contiguous :: amount(:)
446 integer(IK) ,
intent(in) :: dim
447 real(RKG) :: sampleShifted(
size(sample,
1, IK),
size(sample,
2, IK))
452 PURE module function getShiftedDIM_ONO_D2_RK2(sample, dim, amount)
result(sampleShifted)
453#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
454 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedDIM_ONO_D2_RK2
457 real(RKG) ,
intent(in),
contiguous :: sample(:,:)
458 real(RKG) ,
intent(in),
contiguous :: amount(:)
459 integer(IK) ,
intent(in) :: dim
460 real(RKG) :: sampleShifted(
size(sample,
1, IK),
size(sample,
2, IK))
465 PURE module function getShiftedDIM_ONO_D2_RK1(sample, dim, amount)
result(sampleShifted)
466#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
467 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedDIM_ONO_D2_RK1
470 real(RKG) ,
intent(in),
contiguous :: sample(:,:)
471 real(RKG) ,
intent(in),
contiguous :: amount(:)
472 integer(IK) ,
intent(in) :: dim
473 real(RKG) :: sampleShifted(
size(sample,
1, IK),
size(sample,
2, IK))
486 PURE module function getShiftedDIM_OTH_D2_CK5(sample, dim, amount, operation)
result(sampleShifted)
487#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
488 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedDIM_OTH_D2_CK5
491 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
492 complex(CKG) ,
intent(in),
contiguous :: amount(:)
493 integer(IK) ,
intent(in) :: dim
494 type(transHerm_type),
intent(in) :: operation
495 complex(CKG) :: sampleShifted(
size(sample,
2, IK),
size(sample,
1, IK))
500 PURE module function getShiftedDIM_OTH_D2_CK4(sample, dim, amount, operation)
result(sampleShifted)
501#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
502 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedDIM_OTH_D2_CK4
505 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
506 complex(CKG) ,
intent(in),
contiguous :: amount(:)
507 integer(IK) ,
intent(in) :: dim
508 type(transHerm_type),
intent(in) :: operation
509 complex(CKG) :: sampleShifted(
size(sample,
2, IK),
size(sample,
1, IK))
514 PURE module function getShiftedDIM_OTH_D2_CK3(sample, dim, amount, operation)
result(sampleShifted)
515#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
516 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedDIM_OTH_D2_CK3
519 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
520 complex(CKG) ,
intent(in),
contiguous :: amount(:)
521 integer(IK) ,
intent(in) :: dim
522 type(transHerm_type),
intent(in) :: operation
523 complex(CKG) :: sampleShifted(
size(sample,
2, IK),
size(sample,
1, IK))
528 PURE module function getShiftedDIM_OTH_D2_CK2(sample, dim, amount, operation)
result(sampleShifted)
529#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
530 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedDIM_OTH_D2_CK2
533 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
534 complex(CKG) ,
intent(in),
contiguous :: amount(:)
535 integer(IK) ,
intent(in) :: dim
536 type(transHerm_type),
intent(in) :: operation
537 complex(CKG) :: sampleShifted(
size(sample,
2, IK),
size(sample,
1, IK))
542 PURE module function getShiftedDIM_OTH_D2_CK1(sample, dim, amount, operation)
result(sampleShifted)
543#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
544 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedDIM_OTH_D2_CK1
547 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
548 complex(CKG) ,
intent(in),
contiguous :: amount(:)
549 integer(IK) ,
intent(in) :: dim
550 type(transHerm_type),
intent(in) :: operation
551 complex(CKG) :: sampleShifted(
size(sample,
2, IK),
size(sample,
1, IK))
558 PURE module function getShiftedDIM_OTH_D2_RK5(sample, dim, amount, operation)
result(sampleShifted)
559#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
560 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedDIM_OTH_D2_RK5
563 real(RKG) ,
intent(in),
contiguous :: sample(:,:)
564 real(RKG) ,
intent(in),
contiguous :: amount(:)
565 integer(IK) ,
intent(in) :: dim
566 type(transHerm_type),
intent(in) :: operation
567 real(RKG) :: sampleShifted(
size(sample,
2, IK),
size(sample,
1, IK))
572 PURE module function getShiftedDIM_OTH_D2_RK4(sample, dim, amount, operation)
result(sampleShifted)
573#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
574 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedDIM_OTH_D2_RK4
577 real(RKG) ,
intent(in),
contiguous :: sample(:,:)
578 real(RKG) ,
intent(in),
contiguous :: amount(:)
579 integer(IK) ,
intent(in) :: dim
580 type(transHerm_type),
intent(in) :: operation
581 real(RKG) :: sampleShifted(
size(sample,
2, IK),
size(sample,
1, IK))
586 PURE module function getShiftedDIM_OTH_D2_RK3(sample, dim, amount, operation)
result(sampleShifted)
587#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
588 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedDIM_OTH_D2_RK3
591 real(RKG) ,
intent(in),
contiguous :: sample(:,:)
592 real(RKG) ,
intent(in),
contiguous :: amount(:)
593 integer(IK) ,
intent(in) :: dim
594 type(transHerm_type),
intent(in) :: operation
595 real(RKG) :: sampleShifted(
size(sample,
2, IK),
size(sample,
1, IK))
600 PURE module function getShiftedDIM_OTH_D2_RK2(sample, dim, amount, operation)
result(sampleShifted)
601#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
602 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedDIM_OTH_D2_RK2
605 real(RKG) ,
intent(in),
contiguous :: sample(:,:)
606 real(RKG) ,
intent(in),
contiguous :: amount(:)
607 integer(IK) ,
intent(in) :: dim
608 type(transHerm_type),
intent(in) :: operation
609 real(RKG) :: sampleShifted(
size(sample,
2, IK),
size(sample,
1, IK))
614 PURE module function getShiftedDIM_OTH_D2_RK1(sample, dim, amount, operation)
result(sampleShifted)
615#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
616 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedDIM_OTH_D2_RK1
619 real(RKG) ,
intent(in),
contiguous :: sample(:,:)
620 real(RKG) ,
intent(in),
contiguous :: amount(:)
621 integer(IK) ,
intent(in) :: dim
622 type(transHerm_type),
intent(in) :: operation
623 real(RKG) :: sampleShifted(
size(sample,
2, IK),
size(sample,
1, IK))
646 PURE module function getShiftedALL_ONO_D1_CK5(sample, amount)
result(sampleShifted)
647#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
648 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedALL_ONO_D1_CK5
651 complex(CKG) ,
intent(in),
contiguous :: sample(:)
652 complex(CKG) ,
intent(in) :: amount
653 complex(CKG) :: sampleShifted(
size(sample,
1, IK))
658 PURE module function getShiftedALL_ONO_D1_CK4(sample, amount)
result(sampleShifted)
659#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
660 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedALL_ONO_D1_CK4
663 complex(CKG) ,
intent(in),
contiguous :: sample(:)
664 complex(CKG) ,
intent(in) :: amount
665 complex(CKG) :: sampleShifted(
size(sample,
1, IK))
670 PURE module function getShiftedALL_ONO_D1_CK3(sample, amount)
result(sampleShifted)
671#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
672 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedALL_ONO_D1_CK3
675 complex(CKG) ,
intent(in),
contiguous :: sample(:)
676 complex(CKG) ,
intent(in) :: amount
677 complex(CKG) :: sampleShifted(
size(sample,
1, IK))
682 PURE module function getShiftedALL_ONO_D1_CK2(sample, amount)
result(sampleShifted)
683#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
684 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedALL_ONO_D1_CK2
687 complex(CKG) ,
intent(in),
contiguous :: sample(:)
688 complex(CKG) ,
intent(in) :: amount
689 complex(CKG) :: sampleShifted(
size(sample,
1, IK))
694 PURE module function getShiftedALL_ONO_D1_CK1(sample, amount)
result(sampleShifted)
695#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
696 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedALL_ONO_D1_CK1
699 complex(CKG) ,
intent(in),
contiguous :: sample(:)
700 complex(CKG) ,
intent(in) :: amount
701 complex(CKG) :: sampleShifted(
size(sample,
1, IK))
708 PURE module function getShiftedALL_ONO_D1_RK5(sample, amount)
result(sampleShifted)
709#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
710 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedALL_ONO_D1_RK5
713 real(RKG) ,
intent(in),
contiguous :: sample(:)
714 real(RKG) ,
intent(in) :: amount
715 real(RKG) :: sampleShifted(
size(sample,
1, IK))
720 PURE module function getShiftedALL_ONO_D1_RK4(sample, amount)
result(sampleShifted)
721#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
722 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedALL_ONO_D1_RK4
725 real(RKG) ,
intent(in),
contiguous :: sample(:)
726 real(RKG) ,
intent(in) :: amount
727 real(RKG) :: sampleShifted(
size(sample,
1, IK))
732 PURE module function getShiftedALL_ONO_D1_RK3(sample, amount)
result(sampleShifted)
733#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
734 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedALL_ONO_D1_RK3
737 real(RKG) ,
intent(in),
contiguous :: sample(:)
738 real(RKG) ,
intent(in) :: amount
739 real(RKG) :: sampleShifted(
size(sample,
1, IK))
744 PURE module function getShiftedALL_ONO_D1_RK2(sample, amount)
result(sampleShifted)
745#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
746 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedALL_ONO_D1_RK2
749 real(RKG) ,
intent(in),
contiguous :: sample(:)
750 real(RKG) ,
intent(in) :: amount
751 real(RKG) :: sampleShifted(
size(sample,
1, IK))
756 PURE module function getShiftedALL_ONO_D1_RK1(sample, amount)
result(sampleShifted)
757#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
758 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedALL_ONO_D1_RK1
761 real(RKG) ,
intent(in),
contiguous :: sample(:)
762 real(RKG) ,
intent(in) :: amount
763 real(RKG) :: sampleShifted(
size(sample,
1, IK))
776 PURE module function getShiftedALL_ONO_D2_CK5(sample, amount)
result(sampleShifted)
777#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
778 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedALL_ONO_D2_CK5
781 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
782 complex(CKG) ,
intent(in) :: amount
783 complex(CKG) :: sampleShifted(
size(sample,
1, IK),
size(sample,
2, IK))
788 PURE module function getShiftedALL_ONO_D2_CK4(sample, amount)
result(sampleShifted)
789#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
790 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedALL_ONO_D2_CK4
793 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
794 complex(CKG) ,
intent(in) :: amount
795 complex(CKG) :: sampleShifted(
size(sample,
1, IK),
size(sample,
2, IK))
800 PURE module function getShiftedALL_ONO_D2_CK3(sample, amount)
result(sampleShifted)
801#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
802 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedALL_ONO_D2_CK3
805 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
806 complex(CKG) ,
intent(in) :: amount
807 complex(CKG) :: sampleShifted(
size(sample,
1, IK),
size(sample,
2, IK))
812 PURE module function getShiftedALL_ONO_D2_CK2(sample, amount)
result(sampleShifted)
813#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
814 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedALL_ONO_D2_CK2
817 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
818 complex(CKG) ,
intent(in) :: amount
819 complex(CKG) :: sampleShifted(
size(sample,
1, IK),
size(sample,
2, IK))
824 PURE module function getShiftedALL_ONO_D2_CK1(sample, amount)
result(sampleShifted)
825#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
826 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedALL_ONO_D2_CK1
829 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
830 complex(CKG) ,
intent(in) :: amount
831 complex(CKG) :: sampleShifted(
size(sample,
1, IK),
size(sample,
2, IK))
838 PURE module function getShiftedALL_ONO_D2_RK5(sample, amount)
result(sampleShifted)
839#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
840 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedALL_ONO_D2_RK5
843 real(RKG) ,
intent(in),
contiguous :: sample(:,:)
844 real(RKG) ,
intent(in) :: amount
845 real(RKG) :: sampleShifted(
size(sample,
1, IK),
size(sample,
2, IK))
850 PURE module function getShiftedALL_ONO_D2_RK4(sample, amount)
result(sampleShifted)
851#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
852 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedALL_ONO_D2_RK4
855 real(RKG) ,
intent(in),
contiguous :: sample(:,:)
856 real(RKG) ,
intent(in) :: amount
857 real(RKG) :: sampleShifted(
size(sample,
1, IK),
size(sample,
2, IK))
862 PURE module function getShiftedALL_ONO_D2_RK3(sample, amount)
result(sampleShifted)
863#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
864 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedALL_ONO_D2_RK3
867 real(RKG) ,
intent(in),
contiguous :: sample(:,:)
868 real(RKG) ,
intent(in) :: amount
869 real(RKG) :: sampleShifted(
size(sample,
1, IK),
size(sample,
2, IK))
874 PURE module function getShiftedALL_ONO_D2_RK2(sample, amount)
result(sampleShifted)
875#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
876 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedALL_ONO_D2_RK2
879 real(RKG) ,
intent(in),
contiguous :: sample(:,:)
880 real(RKG) ,
intent(in) :: amount
881 real(RKG) :: sampleShifted(
size(sample,
1, IK),
size(sample,
2, IK))
886 PURE module function getShiftedALL_ONO_D2_RK1(sample, amount)
result(sampleShifted)
887#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
888 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedALL_ONO_D2_RK1
891 real(RKG) ,
intent(in),
contiguous :: sample(:,:)
892 real(RKG) ,
intent(in) :: amount
893 real(RKG) :: sampleShifted(
size(sample,
1, IK),
size(sample,
2, IK))
906 PURE module function getShiftedALL_OTH_D2_CK5(sample, amount, operation)
result(sampleShifted)
907#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
908 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedALL_OTH_D2_CK5
911 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
912 complex(CKG) ,
intent(in) :: amount
913 type(transHerm_type),
intent(in) :: operation
914 complex(CKG) :: sampleShifted(
size(sample,
2, IK),
size(sample,
1, IK))
919 PURE module function getShiftedALL_OTH_D2_CK4(sample, amount, operation)
result(sampleShifted)
920#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
921 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedALL_OTH_D2_CK4
924 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
925 complex(CKG) ,
intent(in) :: amount
926 type(transHerm_type),
intent(in) :: operation
927 complex(CKG) :: sampleShifted(
size(sample,
2, IK),
size(sample,
1, IK))
932 PURE module function getShiftedALL_OTH_D2_CK3(sample, amount, operation)
result(sampleShifted)
933#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
934 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedALL_OTH_D2_CK3
937 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
938 complex(CKG) ,
intent(in) :: amount
939 type(transHerm_type),
intent(in) :: operation
940 complex(CKG) :: sampleShifted(
size(sample,
2, IK),
size(sample,
1, IK))
945 PURE module function getShiftedALL_OTH_D2_CK2(sample, amount, operation)
result(sampleShifted)
946#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
947 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedALL_OTH_D2_CK2
950 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
951 complex(CKG) ,
intent(in) :: amount
952 type(transHerm_type),
intent(in) :: operation
953 complex(CKG) :: sampleShifted(
size(sample,
2, IK),
size(sample,
1, IK))
958 PURE module function getShiftedALL_OTH_D2_CK1(sample, amount, operation)
result(sampleShifted)
959#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
960 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedALL_OTH_D2_CK1
963 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
964 complex(CKG) ,
intent(in) :: amount
965 type(transHerm_type),
intent(in) :: operation
966 complex(CKG) :: sampleShifted(
size(sample,
2, IK),
size(sample,
1, IK))
973 PURE module function getShiftedALL_OTH_D2_RK5(sample, amount, operation)
result(sampleShifted)
974#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
975 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedALL_OTH_D2_RK5
978 real(RKG) ,
intent(in),
contiguous :: sample(:,:)
979 real(RKG) ,
intent(in) :: amount
980 type(transHerm_type),
intent(in) :: operation
981 real(RKG) :: sampleShifted(
size(sample,
2, IK),
size(sample,
1, IK))
986 PURE module function getShiftedALL_OTH_D2_RK4(sample, amount, operation)
result(sampleShifted)
987#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
988 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedALL_OTH_D2_RK4
991 real(RKG) ,
intent(in),
contiguous :: sample(:,:)
992 real(RKG) ,
intent(in) :: amount
993 type(transHerm_type),
intent(in) :: operation
994 real(RKG) :: sampleShifted(
size(sample,
2, IK),
size(sample,
1, IK))
999 PURE module function getShiftedALL_OTH_D2_RK3(sample, amount, operation)
result(sampleShifted)
1000#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1001 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedALL_OTH_D2_RK3
1004 real(RKG) ,
intent(in),
contiguous :: sample(:,:)
1005 real(RKG) ,
intent(in) :: amount
1006 type(transHerm_type),
intent(in) :: operation
1007 real(RKG) :: sampleShifted(
size(sample,
2, IK),
size(sample,
1, IK))
1012 PURE module function getShiftedALL_OTH_D2_RK2(sample, amount, operation)
result(sampleShifted)
1013#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1014 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedALL_OTH_D2_RK2
1017 real(RKG) ,
intent(in),
contiguous :: sample(:,:)
1018 real(RKG) ,
intent(in) :: amount
1019 type(transHerm_type),
intent(in) :: operation
1020 real(RKG) :: sampleShifted(
size(sample,
2, IK),
size(sample,
1, IK))
1025 PURE module function getShiftedALL_OTH_D2_RK1(sample, amount, operation)
result(sampleShifted)
1026#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1027 !DEC$ ATTRIBUTES DLLEXPORT :: getShiftedALL_OTH_D2_RK1
1030 real(RKG) ,
intent(in),
contiguous :: sample(:,:)
1031 real(RKG) ,
intent(in) :: amount
1032 type(transHerm_type),
intent(in) :: operation
1033 real(RKG) :: sampleShifted(
size(sample,
2, IK),
size(sample,
1, IK))
1142 PURE module subroutine setShiftedDIM_D1_CK5(sample, dim, amount)
1143#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1144 !DEC$ ATTRIBUTES DLLEXPORT :: setShiftedDIM_D1_CK5
1147 integer(IK) ,
intent(in) :: dim
1148 complex(CKG) ,
intent(in) :: amount
1149 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:)
1154 PURE module subroutine setShiftedDIM_D1_CK4(sample, dim, amount)
1155#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1156 !DEC$ ATTRIBUTES DLLEXPORT :: setShiftedDIM_D1_CK4
1159 integer(IK) ,
intent(in) :: dim
1160 complex(CKG) ,
intent(in) :: amount
1161 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:)
1166 PURE module subroutine setShiftedDIM_D1_CK3(sample, dim, amount)
1167#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1168 !DEC$ ATTRIBUTES DLLEXPORT :: setShiftedDIM_D1_CK3
1171 integer(IK) ,
intent(in) :: dim
1172 complex(CKG) ,
intent(in) :: amount
1173 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:)
1178 PURE module subroutine setShiftedDIM_D1_CK2(sample, dim, amount)
1179#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1180 !DEC$ ATTRIBUTES DLLEXPORT :: setShiftedDIM_D1_CK2
1183 integer(IK) ,
intent(in) :: dim
1184 complex(CKG) ,
intent(in) :: amount
1185 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:)
1190 PURE module subroutine setShiftedDIM_D1_CK1(sample, dim, amount)
1191#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1192 !DEC$ ATTRIBUTES DLLEXPORT :: setShiftedDIM_D1_CK1
1195 integer(IK) ,
intent(in) :: dim
1196 complex(CKG) ,
intent(in) :: amount
1197 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:)
1204 PURE module subroutine setShiftedDIM_D1_RK5(sample, dim, amount)
1205#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1206 !DEC$ ATTRIBUTES DLLEXPORT :: setShiftedDIM_D1_RK5
1209 integer(IK) ,
intent(in) :: dim
1210 real(RKG) ,
intent(in) :: amount
1211 real(RKG) ,
intent(inout) ,
contiguous :: sample(:)
1216 PURE module subroutine setShiftedDIM_D1_RK4(sample, dim, amount)
1217#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1218 !DEC$ ATTRIBUTES DLLEXPORT :: setShiftedDIM_D1_RK4
1221 integer(IK) ,
intent(in) :: dim
1222 real(RKG) ,
intent(in) :: amount
1223 real(RKG) ,
intent(inout) ,
contiguous :: sample(:)
1228 PURE module subroutine setShiftedDIM_D1_RK3(sample, dim, amount)
1229#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1230 !DEC$ ATTRIBUTES DLLEXPORT :: setShiftedDIM_D1_RK3
1233 integer(IK) ,
intent(in) :: dim
1234 real(RKG) ,
intent(in) :: amount
1235 real(RKG) ,
intent(inout) ,
contiguous :: sample(:)
1240 PURE module subroutine setShiftedDIM_D1_RK2(sample, dim, amount)
1241#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1242 !DEC$ ATTRIBUTES DLLEXPORT :: setShiftedDIM_D1_RK2
1245 integer(IK) ,
intent(in) :: dim
1246 real(RKG) ,
intent(in) :: amount
1247 real(RKG) ,
intent(inout) ,
contiguous :: sample(:)
1252 PURE module subroutine setShiftedDIM_D1_RK1(sample, dim, amount)
1253#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1254 !DEC$ ATTRIBUTES DLLEXPORT :: setShiftedDIM_D1_RK1
1257 integer(IK) ,
intent(in) :: dim
1258 real(RKG) ,
intent(in) :: amount
1259 real(RKG) ,
intent(inout) ,
contiguous :: sample(:)
1272 PURE module subroutine setShiftedDIM_D2_CK5(sample, dim, amount)
1273#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1274 !DEC$ ATTRIBUTES DLLEXPORT :: setShiftedDIM_D2_CK5
1277 integer(IK) ,
intent(in) :: dim
1278 complex(CKG) ,
intent(in) ,
contiguous :: amount(:)
1279 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:,:)
1284 PURE module subroutine setShiftedDIM_D2_CK4(sample, dim, amount)
1285#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1286 !DEC$ ATTRIBUTES DLLEXPORT :: setShiftedDIM_D2_CK4
1289 integer(IK) ,
intent(in) :: dim
1290 complex(CKG) ,
intent(in) ,
contiguous :: amount(:)
1291 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:,:)
1296 PURE module subroutine setShiftedDIM_D2_CK3(sample, dim, amount)
1297#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1298 !DEC$ ATTRIBUTES DLLEXPORT :: setShiftedDIM_D2_CK3
1301 integer(IK) ,
intent(in) :: dim
1302 complex(CKG) ,
intent(in) ,
contiguous :: amount(:)
1303 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:,:)
1308 PURE module subroutine setShiftedDIM_D2_CK2(sample, dim, amount)
1309#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1310 !DEC$ ATTRIBUTES DLLEXPORT :: setShiftedDIM_D2_CK2
1313 integer(IK) ,
intent(in) :: dim
1314 complex(CKG) ,
intent(in) ,
contiguous :: amount(:)
1315 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:,:)
1320 PURE module subroutine setShiftedDIM_D2_CK1(sample, dim, amount)
1321#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1322 !DEC$ ATTRIBUTES DLLEXPORT :: setShiftedDIM_D2_CK1
1325 integer(IK) ,
intent(in) :: dim
1326 complex(CKG) ,
intent(in) ,
contiguous :: amount(:)
1327 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:,:)
1334 PURE module subroutine setShiftedDIM_D2_RK5(sample, dim, amount)
1335#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1336 !DEC$ ATTRIBUTES DLLEXPORT :: setShiftedDIM_D2_RK5
1339 integer(IK) ,
intent(in) :: dim
1340 real(RKG) ,
intent(in) ,
contiguous :: amount(:)
1341 real(RKG) ,
intent(inout) ,
contiguous :: sample(:,:)
1346 PURE module subroutine setShiftedDIM_D2_RK4(sample, dim, amount)
1347#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1348 !DEC$ ATTRIBUTES DLLEXPORT :: setShiftedDIM_D2_RK4
1351 integer(IK) ,
intent(in) :: dim
1352 real(RKG) ,
intent(in) ,
contiguous :: amount(:)
1353 real(RKG) ,
intent(inout) ,
contiguous :: sample(:,:)
1358 PURE module subroutine setShiftedDIM_D2_RK3(sample, dim, amount)
1359#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1360 !DEC$ ATTRIBUTES DLLEXPORT :: setShiftedDIM_D2_RK3
1363 integer(IK) ,
intent(in) :: dim
1364 real(RKG) ,
intent(in) ,
contiguous :: amount(:)
1365 real(RKG) ,
intent(inout) ,
contiguous :: sample(:,:)
1370 PURE module subroutine setShiftedDIM_D2_RK2(sample, dim, amount)
1371#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1372 !DEC$ ATTRIBUTES DLLEXPORT :: setShiftedDIM_D2_RK2
1375 integer(IK) ,
intent(in) :: dim
1376 real(RKG) ,
intent(in) ,
contiguous :: amount(:)
1377 real(RKG) ,
intent(inout) ,
contiguous :: sample(:,:)
1382 PURE module subroutine setShiftedDIM_D2_RK1(sample, dim, amount)
1383#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1384 !DEC$ ATTRIBUTES DLLEXPORT :: setShiftedDIM_D2_RK1
1387 integer(IK) ,
intent(in) :: dim
1388 real(RKG) ,
intent(in) ,
contiguous :: amount(:)
1389 real(RKG) ,
intent(inout) ,
contiguous :: sample(:,:)
1412 PURE module subroutine setShiftedALL_D1_CK5(sample, amount)
1413#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1414 !DEC$ ATTRIBUTES DLLEXPORT :: setShiftedALL_D1_CK5
1417 complex(CKG) ,
intent(in) :: amount
1418 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:)
1423 PURE module subroutine setShiftedALL_D1_CK4(sample, amount)
1424#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1425 !DEC$ ATTRIBUTES DLLEXPORT :: setShiftedALL_D1_CK4
1428 complex(CKG) ,
intent(in) :: amount
1429 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:)
1434 PURE module subroutine setShiftedALL_D1_CK3(sample, amount)
1435#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1436 !DEC$ ATTRIBUTES DLLEXPORT :: setShiftedALL_D1_CK3
1439 complex(CKG) ,
intent(in) :: amount
1440 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:)
1445 PURE module subroutine setShiftedALL_D1_CK2(sample, amount)
1446#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1447 !DEC$ ATTRIBUTES DLLEXPORT :: setShiftedALL_D1_CK2
1450 complex(CKG) ,
intent(in) :: amount
1451 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:)
1456 PURE module subroutine setShiftedALL_D1_CK1(sample, amount)
1457#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1458 !DEC$ ATTRIBUTES DLLEXPORT :: setShiftedALL_D1_CK1
1461 complex(CKG) ,
intent(in) :: amount
1462 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:)
1469 PURE module subroutine setShiftedALL_D1_RK5(sample, amount)
1470#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1471 !DEC$ ATTRIBUTES DLLEXPORT :: setShiftedALL_D1_RK5
1474 real(RKG) ,
intent(in) :: amount
1475 real(RKG) ,
intent(inout) ,
contiguous :: sample(:)
1480 PURE module subroutine setShiftedALL_D1_RK4(sample, amount)
1481#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1482 !DEC$ ATTRIBUTES DLLEXPORT :: setShiftedALL_D1_RK4
1485 real(RKG) ,
intent(in) :: amount
1486 real(RKG) ,
intent(inout) ,
contiguous :: sample(:)
1491 PURE module subroutine setShiftedALL_D1_RK3(sample, amount)
1492#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1493 !DEC$ ATTRIBUTES DLLEXPORT :: setShiftedALL_D1_RK3
1496 real(RKG) ,
intent(in) :: amount
1497 real(RKG) ,
intent(inout) ,
contiguous :: sample(:)
1502 PURE module subroutine setShiftedALL_D1_RK2(sample, amount)
1503#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1504 !DEC$ ATTRIBUTES DLLEXPORT :: setShiftedALL_D1_RK2
1507 real(RKG) ,
intent(in) :: amount
1508 real(RKG) ,
intent(inout) ,
contiguous :: sample(:)
1513 PURE module subroutine setShiftedALL_D1_RK1(sample, amount)
1514#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1515 !DEC$ ATTRIBUTES DLLEXPORT :: setShiftedALL_D1_RK1
1518 real(RKG) ,
intent(in) :: amount
1519 real(RKG) ,
intent(inout) ,
contiguous :: sample(:)
1532 PURE module subroutine setShiftedALL_D2_CK5(sample, amount)
1533#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1534 !DEC$ ATTRIBUTES DLLEXPORT :: setShiftedALL_D2_CK5
1537 complex(CKG) ,
intent(in) :: amount
1538 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:,:)
1543 PURE module subroutine setShiftedALL_D2_CK4(sample, amount)
1544#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1545 !DEC$ ATTRIBUTES DLLEXPORT :: setShiftedALL_D2_CK4
1548 complex(CKG) ,
intent(in) :: amount
1549 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:,:)
1554 PURE module subroutine setShiftedALL_D2_CK3(sample, amount)
1555#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1556 !DEC$ ATTRIBUTES DLLEXPORT :: setShiftedALL_D2_CK3
1559 complex(CKG) ,
intent(in) :: amount
1560 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:,:)
1565 PURE module subroutine setShiftedALL_D2_CK2(sample, amount)
1566#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1567 !DEC$ ATTRIBUTES DLLEXPORT :: setShiftedALL_D2_CK2
1570 complex(CKG) ,
intent(in) :: amount
1571 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:,:)
1576 PURE module subroutine setShiftedALL_D2_CK1(sample, amount)
1577#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1578 !DEC$ ATTRIBUTES DLLEXPORT :: setShiftedALL_D2_CK1
1581 complex(CKG) ,
intent(in) :: amount
1582 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:,:)
1589 PURE module subroutine setShiftedALL_D2_RK5(sample, amount)
1590#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1591 !DEC$ ATTRIBUTES DLLEXPORT :: setShiftedALL_D2_RK5
1594 real(RKG) ,
intent(in) :: amount
1595 real(RKG) ,
intent(inout) ,
contiguous :: sample(:,:)
1600 PURE module subroutine setShiftedALL_D2_RK4(sample, amount)
1601#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1602 !DEC$ ATTRIBUTES DLLEXPORT :: setShiftedALL_D2_RK4
1605 real(RKG) ,
intent(in) :: amount
1606 real(RKG) ,
intent(inout) ,
contiguous :: sample(:,:)
1611 PURE module subroutine setShiftedALL_D2_RK3(sample, amount)
1612#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1613 !DEC$ ATTRIBUTES DLLEXPORT :: setShiftedALL_D2_RK3
1616 real(RKG) ,
intent(in) :: amount
1617 real(RKG) ,
intent(inout) ,
contiguous :: sample(:,:)
1622 PURE module subroutine setShiftedALL_D2_RK2(sample, amount)
1623#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1624 !DEC$ ATTRIBUTES DLLEXPORT :: setShiftedALL_D2_RK2
1627 real(RKG) ,
intent(in) :: amount
1628 real(RKG) ,
intent(inout) ,
contiguous :: sample(:,:)
1633 PURE module subroutine setShiftedALL_D2_RK1(sample, amount)
1634#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1635 !DEC$ ATTRIBUTES DLLEXPORT :: setShiftedALL_D2_RK1
1638 real(RKG) ,
intent(in) :: amount
1639 real(RKG) ,
intent(inout) ,
contiguous :: sample(:,:)
Generate a sample of shape (nsam), or (ndim, nsam) or (nsam, ndim) that is shifted by the specified i...
Return a sample of shape (nsam), or (ndim, nsam) or (nsam, ndim) that is shifted by the specified inp...
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 shifting univariate or multivariate samples by arbitr...
type(meanshift_type), parameter meanshift
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 shifting by an amount equal to...