194 PURE elemental module function getCoreHaloArr_D0_SK5(size, core, halo, coffset)
result(array)
195#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
196 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D0_SK5
199 integer(IK) ,
intent(in) :: coffset
200 integer(IK) ,
intent(in) :: size
201 character(
1,SKG) ,
intent(in) :: halo
202 character(
*,SKG) ,
intent(in) :: core
203 character(size,SKG) :: array
208 PURE elemental module function getCoreHaloArr_D0_SK4(size, core, halo, coffset)
result(array)
209#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
210 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D0_SK4
213 integer(IK) ,
intent(in) :: coffset
214 integer(IK) ,
intent(in) :: size
215 character(
1,SKG) ,
intent(in) :: halo
216 character(
*,SKG) ,
intent(in) :: core
217 character(size,SKG) :: array
222 PURE elemental module function getCoreHaloArr_D0_SK3(size, core, halo, coffset)
result(array)
223#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
224 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D0_SK3
227 integer(IK) ,
intent(in) :: coffset
228 integer(IK) ,
intent(in) :: size
229 character(
1,SKG) ,
intent(in) :: halo
230 character(
*,SKG) ,
intent(in) :: core
231 character(size,SKG) :: array
236 PURE elemental module function getCoreHaloArr_D0_SK2(size, core, halo, coffset)
result(array)
237#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
238 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D0_SK2
241 integer(IK) ,
intent(in) :: coffset
242 integer(IK) ,
intent(in) :: size
243 character(
1,SKG) ,
intent(in) :: halo
244 character(
*,SKG) ,
intent(in) :: core
245 character(size,SKG) :: array
250 PURE elemental module function getCoreHaloArr_D0_SK1(size, core, halo, coffset)
result(array)
251#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
252 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D0_SK1
255 integer(IK) ,
intent(in) :: coffset
256 integer(IK) ,
intent(in) :: size
257 character(
1,SKG) ,
intent(in) :: halo
258 character(
*,SKG) ,
intent(in) :: core
259 character(size,SKG) :: array
272 PURE module function getCoreHaloArr_D1_SK5(size, core, halo, coffset)
result(array)
273#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
274 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D1_SK5
277 integer(IK) ,
intent(in) :: coffset
278 integer(IK) ,
intent(in) :: size
279 character(
*,SKG) ,
intent(in) :: halo
280 character(
*,SKG) ,
intent(in) ,
contiguous :: core(:)
281 character(
max(
len(halo,IK),
len(core,IK)),SKG) :: array(size)
286 PURE module function getCoreHaloArr_D1_SK4(size, core, halo, coffset)
result(array)
287#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
288 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D1_SK4
291 integer(IK) ,
intent(in) :: coffset
292 integer(IK) ,
intent(in) :: size
293 character(
*,SKG) ,
intent(in) :: halo
294 character(
*,SKG) ,
intent(in) ,
contiguous :: core(:)
295 character(
max(
len(halo,IK),
len(core,IK)),SKG) :: array(size)
300 PURE module function getCoreHaloArr_D1_SK3(size, core, halo, coffset)
result(array)
301#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
302 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D1_SK3
305 integer(IK) ,
intent(in) :: coffset
306 integer(IK) ,
intent(in) :: size
307 character(
*,SKG) ,
intent(in) :: halo
308 character(
*,SKG) ,
intent(in) ,
contiguous :: core(:)
309 character(
max(
len(halo,IK),
len(core,IK)),SKG) :: array(size)
314 PURE module function getCoreHaloArr_D1_SK2(size, core, halo, coffset)
result(array)
315#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
316 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D1_SK2
319 integer(IK) ,
intent(in) :: coffset
320 integer(IK) ,
intent(in) :: size
321 character(
*,SKG) ,
intent(in) :: halo
322 character(
*,SKG) ,
intent(in) ,
contiguous :: core(:)
323 character(
max(
len(halo,IK),
len(core,IK)),SKG) :: array(size)
328 PURE module function getCoreHaloArr_D1_SK1(size, core, halo, coffset)
result(array)
329#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
330 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D1_SK1
333 integer(IK) ,
intent(in) :: coffset
334 integer(IK) ,
intent(in) :: size
335 character(
*,SKG) ,
intent(in) :: halo
336 character(
*,SKG) ,
intent(in) ,
contiguous :: core(:)
337 character(
max(
len(halo,IK),
len(core,IK)),SKG) :: array(size)
344 PURE module function getCoreHaloArr_D1_IK5(size, core, halo, coffset)
result(array)
345#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
346 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D1_IK5
349 integer(IK) ,
intent(in) :: coffset
350 integer(IK) ,
intent(in) :: size
351 integer(IKG) ,
intent(in) :: halo
352 integer(IKG) ,
intent(in) ,
contiguous :: core(:)
353 integer(IKG) :: array(size)
358 PURE module function getCoreHaloArr_D1_IK4(size, core, halo, coffset)
result(array)
359#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
360 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D1_IK4
363 integer(IK) ,
intent(in) :: coffset
364 integer(IK) ,
intent(in) :: size
365 integer(IKG) ,
intent(in) :: halo
366 integer(IKG) ,
intent(in) ,
contiguous :: core(:)
367 integer(IKG) :: array(size)
372 PURE module function getCoreHaloArr_D1_IK3(size, core, halo, coffset)
result(array)
373#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
374 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D1_IK3
377 integer(IK) ,
intent(in) :: coffset
378 integer(IK) ,
intent(in) :: size
379 integer(IKG) ,
intent(in) :: halo
380 integer(IKG) ,
intent(in) ,
contiguous :: core(:)
381 integer(IKG) :: array(size)
386 PURE module function getCoreHaloArr_D1_IK2(size, core, halo, coffset)
result(array)
387#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
388 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D1_IK2
391 integer(IK) ,
intent(in) :: coffset
392 integer(IK) ,
intent(in) :: size
393 integer(IKG) ,
intent(in) :: halo
394 integer(IKG) ,
intent(in) ,
contiguous :: core(:)
395 integer(IKG) :: array(size)
400 PURE module function getCoreHaloArr_D1_IK1(size, core, halo, coffset)
result(array)
401#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
402 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D1_IK1
405 integer(IK) ,
intent(in) :: coffset
406 integer(IK) ,
intent(in) :: size
407 integer(IKG) ,
intent(in) :: halo
408 integer(IKG) ,
intent(in) ,
contiguous :: core(:)
409 integer(IKG) :: array(size)
416 PURE module function getCoreHaloArr_D1_LK5(size, core, halo, coffset)
result(array)
417#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
418 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D1_LK5
421 integer(IK) ,
intent(in) :: coffset
422 integer(IK) ,
intent(in) :: size
423 logical(LKG) ,
intent(in) :: halo
424 logical(LKG) ,
intent(in) ,
contiguous :: core(:)
425 logical(LKG) :: array(size)
430 PURE module function getCoreHaloArr_D1_LK4(size, core, halo, coffset)
result(array)
431#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
432 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D1_LK4
435 integer(IK) ,
intent(in) :: coffset
436 integer(IK) ,
intent(in) :: size
437 logical(LKG) ,
intent(in) :: halo
438 logical(LKG) ,
intent(in) ,
contiguous :: core(:)
439 logical(LKG) :: array(size)
444 PURE module function getCoreHaloArr_D1_LK3(size, core, halo, coffset)
result(array)
445#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
446 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D1_LK3
449 integer(IK) ,
intent(in) :: coffset
450 integer(IK) ,
intent(in) :: size
451 logical(LKG) ,
intent(in) :: halo
452 logical(LKG) ,
intent(in) ,
contiguous :: core(:)
453 logical(LKG) :: array(size)
458 PURE module function getCoreHaloArr_D1_LK2(size, core, halo, coffset)
result(array)
459#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
460 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D1_LK2
463 integer(IK) ,
intent(in) :: coffset
464 integer(IK) ,
intent(in) :: size
465 logical(LKG) ,
intent(in) :: halo
466 logical(LKG) ,
intent(in) ,
contiguous :: core(:)
467 logical(LKG) :: array(size)
472 PURE module function getCoreHaloArr_D1_LK1(size, core, halo, coffset)
result(array)
473#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
474 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D1_LK1
477 integer(IK) ,
intent(in) :: coffset
478 integer(IK) ,
intent(in) :: size
479 logical(LKG) ,
intent(in) :: halo
480 logical(LKG) ,
intent(in) ,
contiguous :: core(:)
481 logical(LKG) :: array(size)
488 PURE module function getCoreHaloArr_D1_CK5(size, core, halo, coffset)
result(array)
489#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
490 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D1_CK5
493 integer(IK) ,
intent(in) :: coffset
494 integer(IK) ,
intent(in) :: size
495 complex(CKG) ,
intent(in) :: halo
496 complex(CKG) ,
intent(in) ,
contiguous :: core(:)
497 complex(CKG) :: array(size)
502 PURE module function getCoreHaloArr_D1_CK4(size, core, halo, coffset)
result(array)
503#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
504 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D1_CK4
507 integer(IK) ,
intent(in) :: coffset
508 integer(IK) ,
intent(in) :: size
509 complex(CKG) ,
intent(in) :: halo
510 complex(CKG) ,
intent(in) ,
contiguous :: core(:)
511 complex(CKG) :: array(size)
516 PURE module function getCoreHaloArr_D1_CK3(size, core, halo, coffset)
result(array)
517#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
518 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D1_CK3
521 integer(IK) ,
intent(in) :: coffset
522 integer(IK) ,
intent(in) :: size
523 complex(CKG) ,
intent(in) :: halo
524 complex(CKG) ,
intent(in) ,
contiguous :: core(:)
525 complex(CKG) :: array(size)
530 PURE module function getCoreHaloArr_D1_CK2(size, core, halo, coffset)
result(array)
531#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
532 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D1_CK2
535 integer(IK) ,
intent(in) :: coffset
536 integer(IK) ,
intent(in) :: size
537 complex(CKG) ,
intent(in) :: halo
538 complex(CKG) ,
intent(in) ,
contiguous :: core(:)
539 complex(CKG) :: array(size)
544 PURE module function getCoreHaloArr_D1_CK1(size, core, halo, coffset)
result(array)
545#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
546 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D1_CK1
549 integer(IK) ,
intent(in) :: coffset
550 integer(IK) ,
intent(in) :: size
551 complex(CKG) ,
intent(in) :: halo
552 complex(CKG) ,
intent(in) ,
contiguous :: core(:)
553 complex(CKG) :: array(size)
560 PURE module function getCoreHaloArr_D1_RK5(size, core, halo, coffset)
result(array)
561#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
562 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D1_RK5
565 integer(IK) ,
intent(in) :: coffset
566 integer(IK) ,
intent(in) :: size
567 real(RKG) ,
intent(in) :: halo
568 real(RKG) ,
intent(in) ,
contiguous :: core(:)
569 real(RKG) :: array(size)
574 PURE module function getCoreHaloArr_D1_RK4(size, core, halo, coffset)
result(array)
575#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
576 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D1_RK4
579 integer(IK) ,
intent(in) :: coffset
580 integer(IK) ,
intent(in) :: size
581 real(RKG) ,
intent(in) :: halo
582 real(RKG) ,
intent(in) ,
contiguous :: core(:)
583 real(RKG) :: array(size)
588 PURE module function getCoreHaloArr_D1_RK3(size, core, halo, coffset)
result(array)
589#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
590 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D1_RK3
593 integer(IK) ,
intent(in) :: coffset
594 integer(IK) ,
intent(in) :: size
595 real(RKG) ,
intent(in) :: halo
596 real(RKG) ,
intent(in) ,
contiguous :: core(:)
597 real(RKG) :: array(size)
602 PURE module function getCoreHaloArr_D1_RK2(size, core, halo, coffset)
result(array)
603#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
604 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D1_RK2
607 integer(IK) ,
intent(in) :: coffset
608 integer(IK) ,
intent(in) :: size
609 real(RKG) ,
intent(in) :: halo
610 real(RKG) ,
intent(in) ,
contiguous :: core(:)
611 real(RKG) :: array(size)
616 PURE module function getCoreHaloArr_D1_RK1(size, core, halo, coffset)
result(array)
617#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
618 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D1_RK1
621 integer(IK) ,
intent(in) :: coffset
622 integer(IK) ,
intent(in) :: size
623 real(RKG) ,
intent(in) :: halo
624 real(RKG) ,
intent(in) ,
contiguous :: core(:)
625 real(RKG) :: array(size)
638 PURE module function getCoreHaloArr_D2_SK5(size, core, halo, coffset)
result(array)
639#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
640 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D2_SK5
643 integer(IK) ,
intent(in) :: coffset(
2)
644 integer(IK) ,
intent(in) ::
Size(
2)
645 character(
*,SKG) ,
intent(in) :: halo
646 character(
*,SKG) ,
intent(in) ,
contiguous :: core(:,:)
647 character(
max(
len(halo,IK),
len(core,IK)),SKG) :: array(
Size(
1),
Size(
2))
652 PURE module function getCoreHaloArr_D2_SK4(size, core, halo, coffset)
result(array)
653#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
654 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D2_SK4
657 integer(IK) ,
intent(in) :: coffset(
2)
658 integer(IK) ,
intent(in) ::
Size(
2)
659 character(
*,SKG) ,
intent(in) :: halo
660 character(
*,SKG) ,
intent(in) ,
contiguous :: core(:,:)
661 character(
max(
len(halo,IK),
len(core,IK)),SKG) :: array(
Size(
1),
Size(
2))
666 PURE module function getCoreHaloArr_D2_SK3(size, core, halo, coffset)
result(array)
667#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
668 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D2_SK3
671 integer(IK) ,
intent(in) :: coffset(
2)
672 integer(IK) ,
intent(in) ::
Size(
2)
673 character(
*,SKG) ,
intent(in) :: halo
674 character(
*,SKG) ,
intent(in) ,
contiguous :: core(:,:)
675 character(
max(
len(halo,IK),
len(core,IK)),SKG) :: array(
Size(
1),
Size(
2))
680 PURE module function getCoreHaloArr_D2_SK2(size, core, halo, coffset)
result(array)
681#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
682 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D2_SK2
685 integer(IK) ,
intent(in) :: coffset(
2)
686 integer(IK) ,
intent(in) ::
Size(
2)
687 character(
*,SKG) ,
intent(in) :: halo
688 character(
*,SKG) ,
intent(in) ,
contiguous :: core(:,:)
689 character(
max(
len(halo,IK),
len(core,IK)),SKG) :: array(
Size(
1),
Size(
2))
694 PURE module function getCoreHaloArr_D2_SK1(size, core, halo, coffset)
result(array)
695#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
696 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D2_SK1
699 integer(IK) ,
intent(in) :: coffset(
2)
700 integer(IK) ,
intent(in) ::
Size(
2)
701 character(
*,SKG) ,
intent(in) :: halo
702 character(
*,SKG) ,
intent(in) ,
contiguous :: core(:,:)
703 character(
max(
len(halo,IK),
len(core,IK)),SKG) :: array(
Size(
1),
Size(
2))
710 PURE module function getCoreHaloArr_D2_IK5(size, core, halo, coffset)
result(array)
711#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
712 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D2_IK5
715 integer(IK) ,
intent(in) :: coffset(
2)
716 integer(IK) ,
intent(in) ::
Size(
2)
717 integer(IKG) ,
intent(in) :: halo
718 integer(IKG) ,
intent(in) ,
contiguous :: core(:,:)
719 integer(IKG) :: array(
Size(
1),
Size(
2))
724 PURE module function getCoreHaloArr_D2_IK4(size, core, halo, coffset)
result(array)
725#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
726 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D2_IK4
729 integer(IK) ,
intent(in) :: coffset(
2)
730 integer(IK) ,
intent(in) ::
Size(
2)
731 integer(IKG) ,
intent(in) :: halo
732 integer(IKG) ,
intent(in) ,
contiguous :: core(:,:)
733 integer(IKG) :: array(
Size(
1),
Size(
2))
738 PURE module function getCoreHaloArr_D2_IK3(size, core, halo, coffset)
result(array)
739#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
740 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D2_IK3
743 integer(IK) ,
intent(in) :: coffset(
2)
744 integer(IK) ,
intent(in) ::
Size(
2)
745 integer(IKG) ,
intent(in) :: halo
746 integer(IKG) ,
intent(in) ,
contiguous :: core(:,:)
747 integer(IKG) :: array(
Size(
1),
Size(
2))
752 PURE module function getCoreHaloArr_D2_IK2(size, core, halo, coffset)
result(array)
753#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
754 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D2_IK2
757 integer(IK) ,
intent(in) :: coffset(
2)
758 integer(IK) ,
intent(in) ::
Size(
2)
759 integer(IKG) ,
intent(in) :: halo
760 integer(IKG) ,
intent(in) ,
contiguous :: core(:,:)
761 integer(IKG) :: array(
Size(
1),
Size(
2))
766 PURE module function getCoreHaloArr_D2_IK1(size, core, halo, coffset)
result(array)
767#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
768 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D2_IK1
771 integer(IK) ,
intent(in) :: coffset(
2)
772 integer(IK) ,
intent(in) ::
Size(
2)
773 integer(IKG) ,
intent(in) :: halo
774 integer(IKG) ,
intent(in) ,
contiguous :: core(:,:)
775 integer(IKG) :: array(
Size(
1),
Size(
2))
782 PURE module function getCoreHaloArr_D2_LK5(size, core, halo, coffset)
result(array)
783#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
784 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D2_LK5
787 integer(IK) ,
intent(in) :: coffset(
2)
788 integer(IK) ,
intent(in) ::
Size(
2)
789 logical(LKG) ,
intent(in) :: halo
790 logical(LKG) ,
intent(in) ,
contiguous :: core(:,:)
791 logical(LKG) :: array(
Size(
1),
Size(
2))
796 PURE module function getCoreHaloArr_D2_LK4(size, core, halo, coffset)
result(array)
797#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
798 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D2_LK4
801 integer(IK) ,
intent(in) :: coffset(
2)
802 integer(IK) ,
intent(in) ::
Size(
2)
803 logical(LKG) ,
intent(in) :: halo
804 logical(LKG) ,
intent(in) ,
contiguous :: core(:,:)
805 logical(LKG) :: array(
Size(
1),
Size(
2))
810 PURE module function getCoreHaloArr_D2_LK3(size, core, halo, coffset)
result(array)
811#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
812 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D2_LK3
815 integer(IK) ,
intent(in) :: coffset(
2)
816 integer(IK) ,
intent(in) ::
Size(
2)
817 logical(LKG) ,
intent(in) :: halo
818 logical(LKG) ,
intent(in) ,
contiguous :: core(:,:)
819 logical(LKG) :: array(
Size(
1),
Size(
2))
824 PURE module function getCoreHaloArr_D2_LK2(size, core, halo, coffset)
result(array)
825#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
826 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D2_LK2
829 integer(IK) ,
intent(in) :: coffset(
2)
830 integer(IK) ,
intent(in) ::
Size(
2)
831 logical(LKG) ,
intent(in) :: halo
832 logical(LKG) ,
intent(in) ,
contiguous :: core(:,:)
833 logical(LKG) :: array(
Size(
1),
Size(
2))
838 PURE module function getCoreHaloArr_D2_LK1(size, core, halo, coffset)
result(array)
839#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
840 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D2_LK1
843 integer(IK) ,
intent(in) :: coffset(
2)
844 integer(IK) ,
intent(in) ::
Size(
2)
845 logical(LKG) ,
intent(in) :: halo
846 logical(LKG) ,
intent(in) ,
contiguous :: core(:,:)
847 logical(LKG) :: array(
Size(
1),
Size(
2))
854 PURE module function getCoreHaloArr_D2_CK5(size, core, halo, coffset)
result(array)
855#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
856 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D2_CK5
859 integer(IK) ,
intent(in) :: coffset(
2)
860 integer(IK) ,
intent(in) ::
Size(
2)
861 complex(CKG) ,
intent(in) :: halo
862 complex(CKG) ,
intent(in) ,
contiguous :: core(:,:)
863 complex(CKG) :: array(
Size(
1),
Size(
2))
868 PURE module function getCoreHaloArr_D2_CK4(size, core, halo, coffset)
result(array)
869#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
870 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D2_CK4
873 integer(IK) ,
intent(in) :: coffset(
2)
874 integer(IK) ,
intent(in) ::
Size(
2)
875 complex(CKG) ,
intent(in) :: halo
876 complex(CKG) ,
intent(in) ,
contiguous :: core(:,:)
877 complex(CKG) :: array(
Size(
1),
Size(
2))
882 PURE module function getCoreHaloArr_D2_CK3(size, core, halo, coffset)
result(array)
883#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
884 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D2_CK3
887 integer(IK) ,
intent(in) :: coffset(
2)
888 integer(IK) ,
intent(in) ::
Size(
2)
889 complex(CKG) ,
intent(in) :: halo
890 complex(CKG) ,
intent(in) ,
contiguous :: core(:,:)
891 complex(CKG) :: array(
Size(
1),
Size(
2))
896 PURE module function getCoreHaloArr_D2_CK2(size, core, halo, coffset)
result(array)
897#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
898 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D2_CK2
901 integer(IK) ,
intent(in) :: coffset(
2)
902 integer(IK) ,
intent(in) ::
Size(
2)
903 complex(CKG) ,
intent(in) :: halo
904 complex(CKG) ,
intent(in) ,
contiguous :: core(:,:)
905 complex(CKG) :: array(
Size(
1),
Size(
2))
910 PURE module function getCoreHaloArr_D2_CK1(size, core, halo, coffset)
result(array)
911#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
912 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D2_CK1
915 integer(IK) ,
intent(in) :: coffset(
2)
916 integer(IK) ,
intent(in) ::
Size(
2)
917 complex(CKG) ,
intent(in) :: halo
918 complex(CKG) ,
intent(in) ,
contiguous :: core(:,:)
919 complex(CKG) :: array(
Size(
1),
Size(
2))
926 PURE module function getCoreHaloArr_D2_RK5(size, core, halo, coffset)
result(array)
927#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
928 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D2_RK5
931 integer(IK) ,
intent(in) :: coffset(
2)
932 integer(IK) ,
intent(in) ::
Size(
2)
933 real(RKG) ,
intent(in) :: halo
934 real(RKG) ,
intent(in) ,
contiguous :: core(:,:)
935 real(RKG) :: array(
Size(
1),
Size(
2))
940 PURE module function getCoreHaloArr_D2_RK4(size, core, halo, coffset)
result(array)
941#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
942 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D2_RK4
945 integer(IK) ,
intent(in) :: coffset(
2)
946 integer(IK) ,
intent(in) ::
Size(
2)
947 real(RKG) ,
intent(in) :: halo
948 real(RKG) ,
intent(in) ,
contiguous :: core(:,:)
949 real(RKG) :: array(
Size(
1),
Size(
2))
954 PURE module function getCoreHaloArr_D2_RK3(size, core, halo, coffset)
result(array)
955#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
956 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D2_RK3
959 integer(IK) ,
intent(in) :: coffset(
2)
960 integer(IK) ,
intent(in) ::
Size(
2)
961 real(RKG) ,
intent(in) :: halo
962 real(RKG) ,
intent(in) ,
contiguous :: core(:,:)
963 real(RKG) :: array(
Size(
1),
Size(
2))
968 PURE module function getCoreHaloArr_D2_RK2(size, core, halo, coffset)
result(array)
969#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
970 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D2_RK2
973 integer(IK) ,
intent(in) :: coffset(
2)
974 integer(IK) ,
intent(in) ::
Size(
2)
975 real(RKG) ,
intent(in) :: halo
976 real(RKG) ,
intent(in) ,
contiguous :: core(:,:)
977 real(RKG) :: array(
Size(
1),
Size(
2))
982 PURE module function getCoreHaloArr_D2_RK1(size, core, halo, coffset)
result(array)
983#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
984 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D2_RK1
987 integer(IK) ,
intent(in) :: coffset(
2)
988 integer(IK) ,
intent(in) ::
Size(
2)
989 real(RKG) ,
intent(in) :: halo
990 real(RKG) ,
intent(in) ,
contiguous :: core(:,:)
991 real(RKG) :: array(
Size(
1),
Size(
2))
1004 PURE module function getCoreHaloArr_D3_SK5(size, core, halo, coffset)
result(array)
1005#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1006 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D3_SK5
1009 integer(IK) ,
intent(in) :: coffset(
3)
1010 integer(IK) ,
intent(in) ::
Size(
3)
1011 character(
*,SKG) ,
intent(in) :: halo
1012 character(
*,SKG) ,
intent(in) ,
contiguous :: core(:,:,:)
1013 character(
max(
len(halo,IK),
len(core,IK)),SKG) :: array(
Size(
1),
Size(
2),
Size(
3))
1018 PURE module function getCoreHaloArr_D3_SK4(size, core, halo, coffset)
result(array)
1019#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1020 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D3_SK4
1023 integer(IK) ,
intent(in) :: coffset(
3)
1024 integer(IK) ,
intent(in) ::
Size(
3)
1025 character(
*,SKG) ,
intent(in) :: halo
1026 character(
*,SKG) ,
intent(in) ,
contiguous :: core(:,:,:)
1027 character(
max(
len(halo,IK),
len(core,IK)),SKG) :: array(
Size(
1),
Size(
2),
Size(
3))
1032 PURE module function getCoreHaloArr_D3_SK3(size, core, halo, coffset)
result(array)
1033#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1034 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D3_SK3
1037 integer(IK) ,
intent(in) :: coffset(
3)
1038 integer(IK) ,
intent(in) ::
Size(
3)
1039 character(
*,SKG) ,
intent(in) :: halo
1040 character(
*,SKG) ,
intent(in) ,
contiguous :: core(:,:,:)
1041 character(
max(
len(halo,IK),
len(core,IK)),SKG) :: array(
Size(
1),
Size(
2),
Size(
3))
1046 PURE module function getCoreHaloArr_D3_SK2(size, core, halo, coffset)
result(array)
1047#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1048 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D3_SK2
1051 integer(IK) ,
intent(in) :: coffset(
3)
1052 integer(IK) ,
intent(in) ::
Size(
3)
1053 character(
*,SKG) ,
intent(in) :: halo
1054 character(
*,SKG) ,
intent(in) ,
contiguous :: core(:,:,:)
1055 character(
max(
len(halo,IK),
len(core,IK)),SKG) :: array(
Size(
1),
Size(
2),
Size(
3))
1060 PURE module function getCoreHaloArr_D3_SK1(size, core, halo, coffset)
result(array)
1061#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1062 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D3_SK1
1065 integer(IK) ,
intent(in) :: coffset(
3)
1066 integer(IK) ,
intent(in) ::
Size(
3)
1067 character(
*,SKG) ,
intent(in) :: halo
1068 character(
*,SKG) ,
intent(in) ,
contiguous :: core(:,:,:)
1069 character(
max(
len(halo,IK),
len(core,IK)),SKG) :: array(
Size(
1),
Size(
2),
Size(
3))
1076 PURE module function getCoreHaloArr_D3_IK5(size, core, halo, coffset)
result(array)
1077#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1078 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D3_IK5
1081 integer(IK) ,
intent(in) :: coffset(
3)
1082 integer(IK) ,
intent(in) ::
Size(
3)
1083 integer(IKG) ,
intent(in) :: halo
1084 integer(IKG) ,
intent(in) ,
contiguous :: core(:,:,:)
1085 integer(IKG) :: array(
Size(
1),
Size(
2),
Size(
3))
1090 PURE module function getCoreHaloArr_D3_IK4(size, core, halo, coffset)
result(array)
1091#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1092 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D3_IK4
1095 integer(IK) ,
intent(in) :: coffset(
3)
1096 integer(IK) ,
intent(in) ::
Size(
3)
1097 integer(IKG) ,
intent(in) :: halo
1098 integer(IKG) ,
intent(in) ,
contiguous :: core(:,:,:)
1099 integer(IKG) :: array(
Size(
1),
Size(
2),
Size(
3))
1104 PURE module function getCoreHaloArr_D3_IK3(size, core, halo, coffset)
result(array)
1105#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1106 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D3_IK3
1109 integer(IK) ,
intent(in) :: coffset(
3)
1110 integer(IK) ,
intent(in) ::
Size(
3)
1111 integer(IKG) ,
intent(in) :: halo
1112 integer(IKG) ,
intent(in) ,
contiguous :: core(:,:,:)
1113 integer(IKG) :: array(
Size(
1),
Size(
2),
Size(
3))
1118 PURE module function getCoreHaloArr_D3_IK2(size, core, halo, coffset)
result(array)
1119#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1120 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D3_IK2
1123 integer(IK) ,
intent(in) :: coffset(
3)
1124 integer(IK) ,
intent(in) ::
Size(
3)
1125 integer(IKG) ,
intent(in) :: halo
1126 integer(IKG) ,
intent(in) ,
contiguous :: core(:,:,:)
1127 integer(IKG) :: array(
Size(
1),
Size(
2),
Size(
3))
1132 PURE module function getCoreHaloArr_D3_IK1(size, core, halo, coffset)
result(array)
1133#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1134 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D3_IK1
1137 integer(IK) ,
intent(in) :: coffset(
3)
1138 integer(IK) ,
intent(in) ::
Size(
3)
1139 integer(IKG) ,
intent(in) :: halo
1140 integer(IKG) ,
intent(in) ,
contiguous :: core(:,:,:)
1141 integer(IKG) :: array(
Size(
1),
Size(
2),
Size(
3))
1148 PURE module function getCoreHaloArr_D3_LK5(size, core, halo, coffset)
result(array)
1149#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1150 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D3_LK5
1153 integer(IK) ,
intent(in) :: coffset(
3)
1154 integer(IK) ,
intent(in) ::
Size(
3)
1155 logical(LKG) ,
intent(in) :: halo
1156 logical(LKG) ,
intent(in) ,
contiguous :: core(:,:,:)
1157 logical(LKG) :: array(
Size(
1),
Size(
2),
Size(
3))
1162 PURE module function getCoreHaloArr_D3_LK4(size, core, halo, coffset)
result(array)
1163#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1164 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D3_LK4
1167 integer(IK) ,
intent(in) :: coffset(
3)
1168 integer(IK) ,
intent(in) ::
Size(
3)
1169 logical(LKG) ,
intent(in) :: halo
1170 logical(LKG) ,
intent(in) ,
contiguous :: core(:,:,:)
1171 logical(LKG) :: array(
Size(
1),
Size(
2),
Size(
3))
1176 PURE module function getCoreHaloArr_D3_LK3(size, core, halo, coffset)
result(array)
1177#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1178 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D3_LK3
1181 integer(IK) ,
intent(in) :: coffset(
3)
1182 integer(IK) ,
intent(in) ::
Size(
3)
1183 logical(LKG) ,
intent(in) :: halo
1184 logical(LKG) ,
intent(in) ,
contiguous :: core(:,:,:)
1185 logical(LKG) :: array(
Size(
1),
Size(
2),
Size(
3))
1190 PURE module function getCoreHaloArr_D3_LK2(size, core, halo, coffset)
result(array)
1191#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1192 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D3_LK2
1195 integer(IK) ,
intent(in) :: coffset(
3)
1196 integer(IK) ,
intent(in) ::
Size(
3)
1197 logical(LKG) ,
intent(in) :: halo
1198 logical(LKG) ,
intent(in) ,
contiguous :: core(:,:,:)
1199 logical(LKG) :: array(
Size(
1),
Size(
2),
Size(
3))
1204 PURE module function getCoreHaloArr_D3_LK1(size, core, halo, coffset)
result(array)
1205#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1206 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D3_LK1
1209 integer(IK) ,
intent(in) :: coffset(
3)
1210 integer(IK) ,
intent(in) ::
Size(
3)
1211 logical(LKG) ,
intent(in) :: halo
1212 logical(LKG) ,
intent(in) ,
contiguous :: core(:,:,:)
1213 logical(LKG) :: array(
Size(
1),
Size(
2),
Size(
3))
1220 PURE module function getCoreHaloArr_D3_CK5(size, core, halo, coffset)
result(array)
1221#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1222 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D3_CK5
1225 integer(IK) ,
intent(in) :: coffset(
3)
1226 integer(IK) ,
intent(in) ::
Size(
3)
1227 complex(CKG) ,
intent(in) :: halo
1228 complex(CKG) ,
intent(in) ,
contiguous :: core(:,:,:)
1229 complex(CKG) :: array(
Size(
1),
Size(
2),
Size(
3))
1234 PURE module function getCoreHaloArr_D3_CK4(size, core, halo, coffset)
result(array)
1235#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1236 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D3_CK4
1239 integer(IK) ,
intent(in) :: coffset(
3)
1240 integer(IK) ,
intent(in) ::
Size(
3)
1241 complex(CKG) ,
intent(in) :: halo
1242 complex(CKG) ,
intent(in) ,
contiguous :: core(:,:,:)
1243 complex(CKG) :: array(
Size(
1),
Size(
2),
Size(
3))
1248 PURE module function getCoreHaloArr_D3_CK3(size, core, halo, coffset)
result(array)
1249#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1250 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D3_CK3
1253 integer(IK) ,
intent(in) :: coffset(
3)
1254 integer(IK) ,
intent(in) ::
Size(
3)
1255 complex(CKG) ,
intent(in) :: halo
1256 complex(CKG) ,
intent(in) ,
contiguous :: core(:,:,:)
1257 complex(CKG) :: array(
Size(
1),
Size(
2),
Size(
3))
1262 PURE module function getCoreHaloArr_D3_CK2(size, core, halo, coffset)
result(array)
1263#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1264 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D3_CK2
1267 integer(IK) ,
intent(in) :: coffset(
3)
1268 integer(IK) ,
intent(in) ::
Size(
3)
1269 complex(CKG) ,
intent(in) :: halo
1270 complex(CKG) ,
intent(in) ,
contiguous :: core(:,:,:)
1271 complex(CKG) :: array(
Size(
1),
Size(
2),
Size(
3))
1276 PURE module function getCoreHaloArr_D3_CK1(size, core, halo, coffset)
result(array)
1277#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1278 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D3_CK1
1281 integer(IK) ,
intent(in) :: coffset(
3)
1282 integer(IK) ,
intent(in) ::
Size(
3)
1283 complex(CKG) ,
intent(in) :: halo
1284 complex(CKG) ,
intent(in) ,
contiguous :: core(:,:,:)
1285 complex(CKG) :: array(
Size(
1),
Size(
2),
Size(
3))
1292 PURE module function getCoreHaloArr_D3_RK5(size, core, halo, coffset)
result(array)
1293#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1294 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D3_RK5
1297 integer(IK) ,
intent(in) :: coffset(
3)
1298 integer(IK) ,
intent(in) ::
Size(
3)
1299 real(RKG) ,
intent(in) :: halo
1300 real(RKG) ,
intent(in) ,
contiguous :: core(:,:,:)
1301 real(RKG) :: array(
Size(
1),
Size(
2),
Size(
3))
1306 PURE module function getCoreHaloArr_D3_RK4(size, core, halo, coffset)
result(array)
1307#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1308 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D3_RK4
1311 integer(IK) ,
intent(in) :: coffset(
3)
1312 integer(IK) ,
intent(in) ::
Size(
3)
1313 real(RKG) ,
intent(in) :: halo
1314 real(RKG) ,
intent(in) ,
contiguous :: core(:,:,:)
1315 real(RKG) :: array(
Size(
1),
Size(
2),
Size(
3))
1320 PURE module function getCoreHaloArr_D3_RK3(size, core, halo, coffset)
result(array)
1321#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1322 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D3_RK3
1325 integer(IK) ,
intent(in) :: coffset(
3)
1326 integer(IK) ,
intent(in) ::
Size(
3)
1327 real(RKG) ,
intent(in) :: halo
1328 real(RKG) ,
intent(in) ,
contiguous :: core(:,:,:)
1329 real(RKG) :: array(
Size(
1),
Size(
2),
Size(
3))
1334 PURE module function getCoreHaloArr_D3_RK2(size, core, halo, coffset)
result(array)
1335#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1336 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D3_RK2
1339 integer(IK) ,
intent(in) :: coffset(
3)
1340 integer(IK) ,
intent(in) ::
Size(
3)
1341 real(RKG) ,
intent(in) :: halo
1342 real(RKG) ,
intent(in) ,
contiguous :: core(:,:,:)
1343 real(RKG) :: array(
Size(
1),
Size(
2),
Size(
3))
1348 PURE module function getCoreHaloArr_D3_RK1(size, core, halo, coffset)
result(array)
1349#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1350 !DEC$ ATTRIBUTES DLLEXPORT :: getCoreHaloArr_D3_RK1
1353 integer(IK) ,
intent(in) :: coffset(
3)
1354 integer(IK) ,
intent(in) ::
Size(
3)
1355 real(RKG) ,
intent(in) :: halo
1356 real(RKG) ,
intent(in) ,
contiguous :: core(:,:,:)
1357 real(RKG) :: array(
Size(
1),
Size(
2),
Size(
3))
1517 PURE elemental module subroutine setCoreHaloArr_D0_SK5(array, core, halo, coffset)
1518#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1519 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D0_SK5
1522 character(
*,SKG) ,
intent(out) :: array
1523 character(
*,SKG) ,
intent(in) :: core
1524 character(
1,SKG) ,
intent(in) :: halo
1525 integer(IK) ,
intent(in) :: coffset
1530 PURE elemental module subroutine setCoreHaloArr_D0_SK4(array, core, halo, coffset)
1531#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1532 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D0_SK4
1535 character(
*,SKG) ,
intent(out) :: array
1536 character(
*,SKG) ,
intent(in) :: core
1537 character(
1,SKG) ,
intent(in) :: halo
1538 integer(IK) ,
intent(in) :: coffset
1543 PURE elemental module subroutine setCoreHaloArr_D0_SK3(array, core, halo, coffset)
1544#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1545 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D0_SK3
1548 character(
*,SKG) ,
intent(out) :: array
1549 character(
*,SKG) ,
intent(in) :: core
1550 character(
1,SKG) ,
intent(in) :: halo
1551 integer(IK) ,
intent(in) :: coffset
1556 PURE elemental module subroutine setCoreHaloArr_D0_SK2(array, core, halo, coffset)
1557#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1558 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D0_SK2
1561 character(
*,SKG) ,
intent(out) :: array
1562 character(
*,SKG) ,
intent(in) :: core
1563 character(
1,SKG) ,
intent(in) :: halo
1564 integer(IK) ,
intent(in) :: coffset
1569 PURE elemental module subroutine setCoreHaloArr_D0_SK1(array, core, halo, coffset)
1570#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1571 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D0_SK1
1574 character(
*,SKG) ,
intent(out) :: array
1575 character(
*,SKG) ,
intent(in) :: core
1576 character(
1,SKG) ,
intent(in) :: halo
1577 integer(IK) ,
intent(in) :: coffset
1590 PURE module subroutine setCoreHaloArr_D1_SK5(array, core, halo, coffset)
1591#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1592 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D1_SK5
1595 character(
*,SKG) ,
intent(out) ,
contiguous :: array(:)
1596 character(
*,SKG) ,
intent(in) ,
contiguous :: core(:)
1597 character(
*,SKG) ,
intent(in) :: halo
1598 integer(IK) ,
intent(in) :: coffset
1603 PURE module subroutine setCoreHaloArr_D1_SK4(array, core, halo, coffset)
1604#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1605 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D1_SK4
1608 character(
*,SKG) ,
intent(out) ,
contiguous :: array(:)
1609 character(
*,SKG) ,
intent(in) ,
contiguous :: core(:)
1610 character(
*,SKG) ,
intent(in) :: halo
1611 integer(IK) ,
intent(in) :: coffset
1616 PURE module subroutine setCoreHaloArr_D1_SK3(array, core, halo, coffset)
1617#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1618 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D1_SK3
1621 character(
*,SKG) ,
intent(out) ,
contiguous :: array(:)
1622 character(
*,SKG) ,
intent(in) ,
contiguous :: core(:)
1623 character(
*,SKG) ,
intent(in) :: halo
1624 integer(IK) ,
intent(in) :: coffset
1629 PURE module subroutine setCoreHaloArr_D1_SK2(array, core, halo, coffset)
1630#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1631 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D1_SK2
1634 character(
*,SKG) ,
intent(out) ,
contiguous :: array(:)
1635 character(
*,SKG) ,
intent(in) ,
contiguous :: core(:)
1636 character(
*,SKG) ,
intent(in) :: halo
1637 integer(IK) ,
intent(in) :: coffset
1642 PURE module subroutine setCoreHaloArr_D1_SK1(array, core, halo, coffset)
1643#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1644 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D1_SK1
1647 character(
*,SKG) ,
intent(out) ,
contiguous :: array(:)
1648 character(
*,SKG) ,
intent(in) ,
contiguous :: core(:)
1649 character(
*,SKG) ,
intent(in) :: halo
1650 integer(IK) ,
intent(in) :: coffset
1657 PURE module subroutine setCoreHaloArr_D1_IK5(array, core, halo, coffset)
1658#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1659 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D1_IK5
1662 integer(IKG) ,
intent(out) ,
contiguous :: array(:)
1663 integer(IKG) ,
intent(in) ,
contiguous :: core(:)
1664 integer(IKG) ,
intent(in) :: halo
1665 integer(IK) ,
intent(in) :: coffset
1670 PURE module subroutine setCoreHaloArr_D1_IK4(array, core, halo, coffset)
1671#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1672 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D1_IK4
1675 integer(IKG) ,
intent(out) ,
contiguous :: array(:)
1676 integer(IKG) ,
intent(in) ,
contiguous :: core(:)
1677 integer(IKG) ,
intent(in) :: halo
1678 integer(IK) ,
intent(in) :: coffset
1683 PURE module subroutine setCoreHaloArr_D1_IK3(array, core, halo, coffset)
1684#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1685 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D1_IK3
1688 integer(IKG) ,
intent(out) ,
contiguous :: array(:)
1689 integer(IKG) ,
intent(in) ,
contiguous :: core(:)
1690 integer(IKG) ,
intent(in) :: halo
1691 integer(IK) ,
intent(in) :: coffset
1696 PURE module subroutine setCoreHaloArr_D1_IK2(array, core, halo, coffset)
1697#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1698 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D1_IK2
1701 integer(IKG) ,
intent(out) ,
contiguous :: array(:)
1702 integer(IKG) ,
intent(in) ,
contiguous :: core(:)
1703 integer(IKG) ,
intent(in) :: halo
1704 integer(IK) ,
intent(in) :: coffset
1709 PURE module subroutine setCoreHaloArr_D1_IK1(array, core, halo, coffset)
1710#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1711 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D1_IK1
1714 integer(IKG) ,
intent(out) ,
contiguous :: array(:)
1715 integer(IKG) ,
intent(in) ,
contiguous :: core(:)
1716 integer(IKG) ,
intent(in) :: halo
1717 integer(IK) ,
intent(in) :: coffset
1724 PURE module subroutine setCoreHaloArr_D1_LK5(array, core, halo, coffset)
1725#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1726 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D1_LK5
1729 logical(LKG) ,
intent(out) ,
contiguous :: array(:)
1730 logical(LKG) ,
intent(in) ,
contiguous :: core(:)
1731 logical(LKG) ,
intent(in) :: halo
1732 integer(IK) ,
intent(in) :: coffset
1737 PURE module subroutine setCoreHaloArr_D1_LK4(array, core, halo, coffset)
1738#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1739 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D1_LK4
1742 logical(LKG) ,
intent(out) ,
contiguous :: array(:)
1743 logical(LKG) ,
intent(in) ,
contiguous :: core(:)
1744 logical(LKG) ,
intent(in) :: halo
1745 integer(IK) ,
intent(in) :: coffset
1750 PURE module subroutine setCoreHaloArr_D1_LK3(array, core, halo, coffset)
1751#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1752 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D1_LK3
1755 logical(LKG) ,
intent(out) ,
contiguous :: array(:)
1756 logical(LKG) ,
intent(in) ,
contiguous :: core(:)
1757 logical(LKG) ,
intent(in) :: halo
1758 integer(IK) ,
intent(in) :: coffset
1763 PURE module subroutine setCoreHaloArr_D1_LK2(array, core, halo, coffset)
1764#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1765 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D1_LK2
1768 logical(LKG) ,
intent(out) ,
contiguous :: array(:)
1769 logical(LKG) ,
intent(in) ,
contiguous :: core(:)
1770 logical(LKG) ,
intent(in) :: halo
1771 integer(IK) ,
intent(in) :: coffset
1776 PURE module subroutine setCoreHaloArr_D1_LK1(array, core, halo, coffset)
1777#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1778 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D1_LK1
1781 logical(LKG) ,
intent(out) ,
contiguous :: array(:)
1782 logical(LKG) ,
intent(in) ,
contiguous :: core(:)
1783 logical(LKG) ,
intent(in) :: halo
1784 integer(IK) ,
intent(in) :: coffset
1791 PURE module subroutine setCoreHaloArr_D1_CK5(array, core, halo, coffset)
1792#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1793 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D1_CK5
1796 complex(CKG) ,
intent(out) ,
contiguous :: array(:)
1797 complex(CKG) ,
intent(in) ,
contiguous :: core(:)
1798 complex(CKG) ,
intent(in) :: halo
1799 integer(IK) ,
intent(in) :: coffset
1804 PURE module subroutine setCoreHaloArr_D1_CK4(array, core, halo, coffset)
1805#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1806 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D1_CK4
1809 complex(CKG) ,
intent(out) ,
contiguous :: array(:)
1810 complex(CKG) ,
intent(in) ,
contiguous :: core(:)
1811 complex(CKG) ,
intent(in) :: halo
1812 integer(IK) ,
intent(in) :: coffset
1817 PURE module subroutine setCoreHaloArr_D1_CK3(array, core, halo, coffset)
1818#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1819 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D1_CK3
1822 complex(CKG) ,
intent(out) ,
contiguous :: array(:)
1823 complex(CKG) ,
intent(in) ,
contiguous :: core(:)
1824 complex(CKG) ,
intent(in) :: halo
1825 integer(IK) ,
intent(in) :: coffset
1830 PURE module subroutine setCoreHaloArr_D1_CK2(array, core, halo, coffset)
1831#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1832 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D1_CK2
1835 complex(CKG) ,
intent(out) ,
contiguous :: array(:)
1836 complex(CKG) ,
intent(in) ,
contiguous :: core(:)
1837 complex(CKG) ,
intent(in) :: halo
1838 integer(IK) ,
intent(in) :: coffset
1843 PURE module subroutine setCoreHaloArr_D1_CK1(array, core, halo, coffset)
1844#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1845 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D1_CK1
1848 complex(CKG) ,
intent(out) ,
contiguous :: array(:)
1849 complex(CKG) ,
intent(in) ,
contiguous :: core(:)
1850 complex(CKG) ,
intent(in) :: halo
1851 integer(IK) ,
intent(in) :: coffset
1858 PURE module subroutine setCoreHaloArr_D1_RK5(array, core, halo, coffset)
1859#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1860 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D1_RK5
1863 real(RKG) ,
intent(out) ,
contiguous :: array(:)
1864 real(RKG) ,
intent(in) ,
contiguous :: core(:)
1865 real(RKG) ,
intent(in) :: halo
1866 integer(IK) ,
intent(in) :: coffset
1871 PURE module subroutine setCoreHaloArr_D1_RK4(array, core, halo, coffset)
1872#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1873 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D1_RK4
1876 real(RKG) ,
intent(out) ,
contiguous :: array(:)
1877 real(RKG) ,
intent(in) ,
contiguous :: core(:)
1878 real(RKG) ,
intent(in) :: halo
1879 integer(IK) ,
intent(in) :: coffset
1884 PURE module subroutine setCoreHaloArr_D1_RK3(array, core, halo, coffset)
1885#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1886 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D1_RK3
1889 real(RKG) ,
intent(out) ,
contiguous :: array(:)
1890 real(RKG) ,
intent(in) ,
contiguous :: core(:)
1891 real(RKG) ,
intent(in) :: halo
1892 integer(IK) ,
intent(in) :: coffset
1897 PURE module subroutine setCoreHaloArr_D1_RK2(array, core, halo, coffset)
1898#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1899 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D1_RK2
1902 real(RKG) ,
intent(out) ,
contiguous :: array(:)
1903 real(RKG) ,
intent(in) ,
contiguous :: core(:)
1904 real(RKG) ,
intent(in) :: halo
1905 integer(IK) ,
intent(in) :: coffset
1910 PURE module subroutine setCoreHaloArr_D1_RK1(array, core, halo, coffset)
1911#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1912 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D1_RK1
1915 real(RKG) ,
intent(out) ,
contiguous :: array(:)
1916 real(RKG) ,
intent(in) ,
contiguous :: core(:)
1917 real(RKG) ,
intent(in) :: halo
1918 integer(IK) ,
intent(in) :: coffset
1931 PURE module subroutine setCoreHaloArr_D2_SK5(array, core, halo, coffset)
1932#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1933 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D2_SK5
1936 character(
*,SKG) ,
intent(out) ,
contiguous :: array(:,:)
1937 character(
*,SKG) ,
intent(in) ,
contiguous :: core(:,:)
1938 character(
*,SKG) ,
intent(in) :: halo
1939 integer(IK) ,
intent(in) :: coffset(
rank(array))
1944 PURE module subroutine setCoreHaloArr_D2_SK4(array, core, halo, coffset)
1945#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1946 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D2_SK4
1949 character(
*,SKG) ,
intent(out) ,
contiguous :: array(:,:)
1950 character(
*,SKG) ,
intent(in) ,
contiguous :: core(:,:)
1951 character(
*,SKG) ,
intent(in) :: halo
1952 integer(IK) ,
intent(in) :: coffset(
rank(array))
1957 PURE module subroutine setCoreHaloArr_D2_SK3(array, core, halo, coffset)
1958#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1959 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D2_SK3
1962 character(
*,SKG) ,
intent(out) ,
contiguous :: array(:,:)
1963 character(
*,SKG) ,
intent(in) ,
contiguous :: core(:,:)
1964 character(
*,SKG) ,
intent(in) :: halo
1965 integer(IK) ,
intent(in) :: coffset(
rank(array))
1970 PURE module subroutine setCoreHaloArr_D2_SK2(array, core, halo, coffset)
1971#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1972 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D2_SK2
1975 character(
*,SKG) ,
intent(out) ,
contiguous :: array(:,:)
1976 character(
*,SKG) ,
intent(in) ,
contiguous :: core(:,:)
1977 character(
*,SKG) ,
intent(in) :: halo
1978 integer(IK) ,
intent(in) :: coffset(
rank(array))
1983 PURE module subroutine setCoreHaloArr_D2_SK1(array, core, halo, coffset)
1984#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1985 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D2_SK1
1988 character(
*,SKG) ,
intent(out) ,
contiguous :: array(:,:)
1989 character(
*,SKG) ,
intent(in) ,
contiguous :: core(:,:)
1990 character(
*,SKG) ,
intent(in) :: halo
1991 integer(IK) ,
intent(in) :: coffset(
rank(array))
1998 PURE module subroutine setCoreHaloArr_D2_IK5(array, core, halo, coffset)
1999#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2000 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D2_IK5
2003 integer(IKG) ,
intent(out) ,
contiguous :: array(:,:)
2004 integer(IKG) ,
intent(in) ,
contiguous :: core(:,:)
2005 integer(IKG) ,
intent(in) :: halo
2006 integer(IK) ,
intent(in) :: coffset(
rank(array))
2011 PURE module subroutine setCoreHaloArr_D2_IK4(array, core, halo, coffset)
2012#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2013 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D2_IK4
2016 integer(IKG) ,
intent(out) ,
contiguous :: array(:,:)
2017 integer(IKG) ,
intent(in) ,
contiguous :: core(:,:)
2018 integer(IKG) ,
intent(in) :: halo
2019 integer(IK) ,
intent(in) :: coffset(
rank(array))
2024 PURE module subroutine setCoreHaloArr_D2_IK3(array, core, halo, coffset)
2025#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2026 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D2_IK3
2029 integer(IKG) ,
intent(out) ,
contiguous :: array(:,:)
2030 integer(IKG) ,
intent(in) ,
contiguous :: core(:,:)
2031 integer(IKG) ,
intent(in) :: halo
2032 integer(IK) ,
intent(in) :: coffset(
rank(array))
2037 PURE module subroutine setCoreHaloArr_D2_IK2(array, core, halo, coffset)
2038#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2039 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D2_IK2
2042 integer(IKG) ,
intent(out) ,
contiguous :: array(:,:)
2043 integer(IKG) ,
intent(in) ,
contiguous :: core(:,:)
2044 integer(IKG) ,
intent(in) :: halo
2045 integer(IK) ,
intent(in) :: coffset(
rank(array))
2050 PURE module subroutine setCoreHaloArr_D2_IK1(array, core, halo, coffset)
2051#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2052 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D2_IK1
2055 integer(IKG) ,
intent(out) ,
contiguous :: array(:,:)
2056 integer(IKG) ,
intent(in) ,
contiguous :: core(:,:)
2057 integer(IKG) ,
intent(in) :: halo
2058 integer(IK) ,
intent(in) :: coffset(
rank(array))
2065 PURE module subroutine setCoreHaloArr_D2_LK5(array, core, halo, coffset)
2066#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2067 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D2_LK5
2070 logical(LKG) ,
intent(out) ,
contiguous :: array(:,:)
2071 logical(LKG) ,
intent(in) ,
contiguous :: core(:,:)
2072 logical(LKG) ,
intent(in) :: halo
2073 integer(IK) ,
intent(in) :: coffset(
rank(array))
2078 PURE module subroutine setCoreHaloArr_D2_LK4(array, core, halo, coffset)
2079#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2080 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D2_LK4
2083 logical(LKG) ,
intent(out) ,
contiguous :: array(:,:)
2084 logical(LKG) ,
intent(in) ,
contiguous :: core(:,:)
2085 logical(LKG) ,
intent(in) :: halo
2086 integer(IK) ,
intent(in) :: coffset(
rank(array))
2091 PURE module subroutine setCoreHaloArr_D2_LK3(array, core, halo, coffset)
2092#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2093 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D2_LK3
2096 logical(LKG) ,
intent(out) ,
contiguous :: array(:,:)
2097 logical(LKG) ,
intent(in) ,
contiguous :: core(:,:)
2098 logical(LKG) ,
intent(in) :: halo
2099 integer(IK) ,
intent(in) :: coffset(
rank(array))
2104 PURE module subroutine setCoreHaloArr_D2_LK2(array, core, halo, coffset)
2105#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2106 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D2_LK2
2109 logical(LKG) ,
intent(out) ,
contiguous :: array(:,:)
2110 logical(LKG) ,
intent(in) ,
contiguous :: core(:,:)
2111 logical(LKG) ,
intent(in) :: halo
2112 integer(IK) ,
intent(in) :: coffset(
rank(array))
2117 PURE module subroutine setCoreHaloArr_D2_LK1(array, core, halo, coffset)
2118#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2119 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D2_LK1
2122 logical(LKG) ,
intent(out) ,
contiguous :: array(:,:)
2123 logical(LKG) ,
intent(in) ,
contiguous :: core(:,:)
2124 logical(LKG) ,
intent(in) :: halo
2125 integer(IK) ,
intent(in) :: coffset(
rank(array))
2132 PURE module subroutine setCoreHaloArr_D2_CK5(array, core, halo, coffset)
2133#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2134 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D2_CK5
2137 complex(CKG) ,
intent(out) ,
contiguous :: array(:,:)
2138 complex(CKG) ,
intent(in) ,
contiguous :: core(:,:)
2139 complex(CKG) ,
intent(in) :: halo
2140 integer(IK) ,
intent(in) :: coffset(
rank(array))
2145 PURE module subroutine setCoreHaloArr_D2_CK4(array, core, halo, coffset)
2146#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2147 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D2_CK4
2150 complex(CKG) ,
intent(out) ,
contiguous :: array(:,:)
2151 complex(CKG) ,
intent(in) ,
contiguous :: core(:,:)
2152 complex(CKG) ,
intent(in) :: halo
2153 integer(IK) ,
intent(in) :: coffset(
rank(array))
2158 PURE module subroutine setCoreHaloArr_D2_CK3(array, core, halo, coffset)
2159#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2160 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D2_CK3
2163 complex(CKG) ,
intent(out) ,
contiguous :: array(:,:)
2164 complex(CKG) ,
intent(in) ,
contiguous :: core(:,:)
2165 complex(CKG) ,
intent(in) :: halo
2166 integer(IK) ,
intent(in) :: coffset(
rank(array))
2171 PURE module subroutine setCoreHaloArr_D2_CK2(array, core, halo, coffset)
2172#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2173 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D2_CK2
2176 complex(CKG) ,
intent(out) ,
contiguous :: array(:,:)
2177 complex(CKG) ,
intent(in) ,
contiguous :: core(:,:)
2178 complex(CKG) ,
intent(in) :: halo
2179 integer(IK) ,
intent(in) :: coffset(
rank(array))
2184 PURE module subroutine setCoreHaloArr_D2_CK1(array, core, halo, coffset)
2185#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2186 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D2_CK1
2189 complex(CKG) ,
intent(out) ,
contiguous :: array(:,:)
2190 complex(CKG) ,
intent(in) ,
contiguous :: core(:,:)
2191 complex(CKG) ,
intent(in) :: halo
2192 integer(IK) ,
intent(in) :: coffset(
rank(array))
2199 PURE module subroutine setCoreHaloArr_D2_RK5(array, core, halo, coffset)
2200#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2201 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D2_RK5
2204 real(RKG) ,
intent(out) ,
contiguous :: array(:,:)
2205 real(RKG) ,
intent(in) ,
contiguous :: core(:,:)
2206 real(RKG) ,
intent(in) :: halo
2207 integer(IK) ,
intent(in) :: coffset(
rank(array))
2212 PURE module subroutine setCoreHaloArr_D2_RK4(array, core, halo, coffset)
2213#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2214 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D2_RK4
2217 real(RKG) ,
intent(out) ,
contiguous :: array(:,:)
2218 real(RKG) ,
intent(in) ,
contiguous :: core(:,:)
2219 real(RKG) ,
intent(in) :: halo
2220 integer(IK) ,
intent(in) :: coffset(
rank(array))
2225 PURE module subroutine setCoreHaloArr_D2_RK3(array, core, halo, coffset)
2226#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2227 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D2_RK3
2230 real(RKG) ,
intent(out) ,
contiguous :: array(:,:)
2231 real(RKG) ,
intent(in) ,
contiguous :: core(:,:)
2232 real(RKG) ,
intent(in) :: halo
2233 integer(IK) ,
intent(in) :: coffset(
rank(array))
2238 PURE module subroutine setCoreHaloArr_D2_RK2(array, core, halo, coffset)
2239#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2240 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D2_RK2
2243 real(RKG) ,
intent(out) ,
contiguous :: array(:,:)
2244 real(RKG) ,
intent(in) ,
contiguous :: core(:,:)
2245 real(RKG) ,
intent(in) :: halo
2246 integer(IK) ,
intent(in) :: coffset(
rank(array))
2251 PURE module subroutine setCoreHaloArr_D2_RK1(array, core, halo, coffset)
2252#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2253 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D2_RK1
2256 real(RKG) ,
intent(out) ,
contiguous :: array(:,:)
2257 real(RKG) ,
intent(in) ,
contiguous :: core(:,:)
2258 real(RKG) ,
intent(in) :: halo
2259 integer(IK) ,
intent(in) :: coffset(
rank(array))
2272 PURE module subroutine setCoreHaloArr_D3_SK5(array, core, halo, coffset)
2273#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2274 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D3_SK5
2277 character(
*,SKG) ,
intent(out) ,
contiguous :: array(:,:,:)
2278 character(
*,SKG) ,
intent(in) ,
contiguous :: core(:,:,:)
2279 character(
*,SKG) ,
intent(in) :: halo
2280 integer(IK) ,
intent(in) :: coffset(
rank(array))
2285 PURE module subroutine setCoreHaloArr_D3_SK4(array, core, halo, coffset)
2286#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2287 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D3_SK4
2290 character(
*,SKG) ,
intent(out) ,
contiguous :: array(:,:,:)
2291 character(
*,SKG) ,
intent(in) ,
contiguous :: core(:,:,:)
2292 character(
*,SKG) ,
intent(in) :: halo
2293 integer(IK) ,
intent(in) :: coffset(
rank(array))
2298 PURE module subroutine setCoreHaloArr_D3_SK3(array, core, halo, coffset)
2299#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2300 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D3_SK3
2303 character(
*,SKG) ,
intent(out) ,
contiguous :: array(:,:,:)
2304 character(
*,SKG) ,
intent(in) ,
contiguous :: core(:,:,:)
2305 character(
*,SKG) ,
intent(in) :: halo
2306 integer(IK) ,
intent(in) :: coffset(
rank(array))
2311 PURE module subroutine setCoreHaloArr_D3_SK2(array, core, halo, coffset)
2312#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2313 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D3_SK2
2316 character(
*,SKG) ,
intent(out) ,
contiguous :: array(:,:,:)
2317 character(
*,SKG) ,
intent(in) ,
contiguous :: core(:,:,:)
2318 character(
*,SKG) ,
intent(in) :: halo
2319 integer(IK) ,
intent(in) :: coffset(
rank(array))
2324 PURE module subroutine setCoreHaloArr_D3_SK1(array, core, halo, coffset)
2325#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2326 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D3_SK1
2329 character(
*,SKG) ,
intent(out) ,
contiguous :: array(:,:,:)
2330 character(
*,SKG) ,
intent(in) ,
contiguous :: core(:,:,:)
2331 character(
*,SKG) ,
intent(in) :: halo
2332 integer(IK) ,
intent(in) :: coffset(
rank(array))
2339 PURE module subroutine setCoreHaloArr_D3_IK5(array, core, halo, coffset)
2340#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2341 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D3_IK5
2344 integer(IKG) ,
intent(out) ,
contiguous :: array(:,:,:)
2345 integer(IKG) ,
intent(in) ,
contiguous :: core(:,:,:)
2346 integer(IKG) ,
intent(in) :: halo
2347 integer(IK) ,
intent(in) :: coffset(
rank(array))
2352 PURE module subroutine setCoreHaloArr_D3_IK4(array, core, halo, coffset)
2353#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2354 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D3_IK4
2357 integer(IKG) ,
intent(out) ,
contiguous :: array(:,:,:)
2358 integer(IKG) ,
intent(in) ,
contiguous :: core(:,:,:)
2359 integer(IKG) ,
intent(in) :: halo
2360 integer(IK) ,
intent(in) :: coffset(
rank(array))
2365 PURE module subroutine setCoreHaloArr_D3_IK3(array, core, halo, coffset)
2366#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2367 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D3_IK3
2370 integer(IKG) ,
intent(out) ,
contiguous :: array(:,:,:)
2371 integer(IKG) ,
intent(in) ,
contiguous :: core(:,:,:)
2372 integer(IKG) ,
intent(in) :: halo
2373 integer(IK) ,
intent(in) :: coffset(
rank(array))
2378 PURE module subroutine setCoreHaloArr_D3_IK2(array, core, halo, coffset)
2379#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2380 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D3_IK2
2383 integer(IKG) ,
intent(out) ,
contiguous :: array(:,:,:)
2384 integer(IKG) ,
intent(in) ,
contiguous :: core(:,:,:)
2385 integer(IKG) ,
intent(in) :: halo
2386 integer(IK) ,
intent(in) :: coffset(
rank(array))
2391 PURE module subroutine setCoreHaloArr_D3_IK1(array, core, halo, coffset)
2392#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2393 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D3_IK1
2396 integer(IKG) ,
intent(out) ,
contiguous :: array(:,:,:)
2397 integer(IKG) ,
intent(in) ,
contiguous :: core(:,:,:)
2398 integer(IKG) ,
intent(in) :: halo
2399 integer(IK) ,
intent(in) :: coffset(
rank(array))
2406 PURE module subroutine setCoreHaloArr_D3_LK5(array, core, halo, coffset)
2407#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2408 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D3_LK5
2411 logical(LKG) ,
intent(out) ,
contiguous :: array(:,:,:)
2412 logical(LKG) ,
intent(in) ,
contiguous :: core(:,:,:)
2413 logical(LKG) ,
intent(in) :: halo
2414 integer(IK) ,
intent(in) :: coffset(
rank(array))
2419 PURE module subroutine setCoreHaloArr_D3_LK4(array, core, halo, coffset)
2420#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2421 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D3_LK4
2424 logical(LKG) ,
intent(out) ,
contiguous :: array(:,:,:)
2425 logical(LKG) ,
intent(in) ,
contiguous :: core(:,:,:)
2426 logical(LKG) ,
intent(in) :: halo
2427 integer(IK) ,
intent(in) :: coffset(
rank(array))
2432 PURE module subroutine setCoreHaloArr_D3_LK3(array, core, halo, coffset)
2433#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2434 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D3_LK3
2437 logical(LKG) ,
intent(out) ,
contiguous :: array(:,:,:)
2438 logical(LKG) ,
intent(in) ,
contiguous :: core(:,:,:)
2439 logical(LKG) ,
intent(in) :: halo
2440 integer(IK) ,
intent(in) :: coffset(
rank(array))
2445 PURE module subroutine setCoreHaloArr_D3_LK2(array, core, halo, coffset)
2446#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2447 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D3_LK2
2450 logical(LKG) ,
intent(out) ,
contiguous :: array(:,:,:)
2451 logical(LKG) ,
intent(in) ,
contiguous :: core(:,:,:)
2452 logical(LKG) ,
intent(in) :: halo
2453 integer(IK) ,
intent(in) :: coffset(
rank(array))
2458 PURE module subroutine setCoreHaloArr_D3_LK1(array, core, halo, coffset)
2459#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2460 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D3_LK1
2463 logical(LKG) ,
intent(out) ,
contiguous :: array(:,:,:)
2464 logical(LKG) ,
intent(in) ,
contiguous :: core(:,:,:)
2465 logical(LKG) ,
intent(in) :: halo
2466 integer(IK) ,
intent(in) :: coffset(
rank(array))
2473 PURE module subroutine setCoreHaloArr_D3_CK5(array, core, halo, coffset)
2474#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2475 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D3_CK5
2478 complex(CKG) ,
intent(out) ,
contiguous :: array(:,:,:)
2479 complex(CKG) ,
intent(in) ,
contiguous :: core(:,:,:)
2480 complex(CKG) ,
intent(in) :: halo
2481 integer(IK) ,
intent(in) :: coffset(
rank(array))
2486 PURE module subroutine setCoreHaloArr_D3_CK4(array, core, halo, coffset)
2487#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2488 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D3_CK4
2491 complex(CKG) ,
intent(out) ,
contiguous :: array(:,:,:)
2492 complex(CKG) ,
intent(in) ,
contiguous :: core(:,:,:)
2493 complex(CKG) ,
intent(in) :: halo
2494 integer(IK) ,
intent(in) :: coffset(
rank(array))
2499 PURE module subroutine setCoreHaloArr_D3_CK3(array, core, halo, coffset)
2500#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2501 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D3_CK3
2504 complex(CKG) ,
intent(out) ,
contiguous :: array(:,:,:)
2505 complex(CKG) ,
intent(in) ,
contiguous :: core(:,:,:)
2506 complex(CKG) ,
intent(in) :: halo
2507 integer(IK) ,
intent(in) :: coffset(
rank(array))
2512 PURE module subroutine setCoreHaloArr_D3_CK2(array, core, halo, coffset)
2513#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2514 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D3_CK2
2517 complex(CKG) ,
intent(out) ,
contiguous :: array(:,:,:)
2518 complex(CKG) ,
intent(in) ,
contiguous :: core(:,:,:)
2519 complex(CKG) ,
intent(in) :: halo
2520 integer(IK) ,
intent(in) :: coffset(
rank(array))
2525 PURE module subroutine setCoreHaloArr_D3_CK1(array, core, halo, coffset)
2526#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2527 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D3_CK1
2530 complex(CKG) ,
intent(out) ,
contiguous :: array(:,:,:)
2531 complex(CKG) ,
intent(in) ,
contiguous :: core(:,:,:)
2532 complex(CKG) ,
intent(in) :: halo
2533 integer(IK) ,
intent(in) :: coffset(
rank(array))
2540 PURE module subroutine setCoreHaloArr_D3_RK5(array, core, halo, coffset)
2541#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2542 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D3_RK5
2545 real(RKG) ,
intent(out) ,
contiguous :: array(:,:,:)
2546 real(RKG) ,
intent(in) ,
contiguous :: core(:,:,:)
2547 real(RKG) ,
intent(in) :: halo
2548 integer(IK) ,
intent(in) :: coffset(
rank(array))
2553 PURE module subroutine setCoreHaloArr_D3_RK4(array, core, halo, coffset)
2554#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2555 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D3_RK4
2558 real(RKG) ,
intent(out) ,
contiguous :: array(:,:,:)
2559 real(RKG) ,
intent(in) ,
contiguous :: core(:,:,:)
2560 real(RKG) ,
intent(in) :: halo
2561 integer(IK) ,
intent(in) :: coffset(
rank(array))
2566 PURE module subroutine setCoreHaloArr_D3_RK3(array, core, halo, coffset)
2567#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2568 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D3_RK3
2571 real(RKG) ,
intent(out) ,
contiguous :: array(:,:,:)
2572 real(RKG) ,
intent(in) ,
contiguous :: core(:,:,:)
2573 real(RKG) ,
intent(in) :: halo
2574 integer(IK) ,
intent(in) :: coffset(
rank(array))
2579 PURE module subroutine setCoreHaloArr_D3_RK2(array, core, halo, coffset)
2580#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2581 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D3_RK2
2584 real(RKG) ,
intent(out) ,
contiguous :: array(:,:,:)
2585 real(RKG) ,
intent(in) ,
contiguous :: core(:,:,:)
2586 real(RKG) ,
intent(in) :: halo
2587 integer(IK) ,
intent(in) :: coffset(
rank(array))
2592 PURE module subroutine setCoreHaloArr_D3_RK1(array, core, halo, coffset)
2593#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2594 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloArr_D3_RK1
2597 real(RKG) ,
intent(out) ,
contiguous :: array(:,:,:)
2598 real(RKG) ,
intent(in) ,
contiguous :: core(:,:,:)
2599 real(RKG) ,
intent(in) :: halo
2600 integer(IK) ,
intent(in) :: coffset(
rank(array))
2620 PURE elemental module subroutine setCoreHaloSca_D0_SK5(array, core, halo, coffset, csize)
2621#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2622 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D0_SK5
2625 character(
*,SKG) ,
intent(out) :: array
2626 character(
1,SKG) ,
intent(in) :: core
2627 character(
1,SKG) ,
intent(in) :: halo
2628 integer(IK) ,
intent(in) :: coffset, csize
2633 PURE elemental module subroutine setCoreHaloSca_D0_SK4(array, core, halo, coffset, csize)
2634#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2635 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D0_SK4
2638 character(
*,SKG) ,
intent(out) :: array
2639 character(
1,SKG) ,
intent(in) :: core
2640 character(
1,SKG) ,
intent(in) :: halo
2641 integer(IK) ,
intent(in) :: coffset, csize
2646 PURE elemental module subroutine setCoreHaloSca_D0_SK3(array, core, halo, coffset, csize)
2647#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2648 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D0_SK3
2651 character(
*,SKG) ,
intent(out) :: array
2652 character(
1,SKG) ,
intent(in) :: core
2653 character(
1,SKG) ,
intent(in) :: halo
2654 integer(IK) ,
intent(in) :: coffset, csize
2659 PURE elemental module subroutine setCoreHaloSca_D0_SK2(array, core, halo, coffset, csize)
2660#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2661 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D0_SK2
2664 character(
*,SKG) ,
intent(out) :: array
2665 character(
1,SKG) ,
intent(in) :: core
2666 character(
1,SKG) ,
intent(in) :: halo
2667 integer(IK) ,
intent(in) :: coffset, csize
2672 PURE elemental module subroutine setCoreHaloSca_D0_SK1(array, core, halo, coffset, csize)
2673#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2674 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D0_SK1
2677 character(
*,SKG) ,
intent(out) :: array
2678 character(
1,SKG) ,
intent(in) :: core
2679 character(
1,SKG) ,
intent(in) :: halo
2680 integer(IK) ,
intent(in) :: coffset, csize
2693 PURE module subroutine setCoreHaloSca_D1_SK5(array, core, halo, coffset, csize)
2694#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2695 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D1_SK5
2698 character(
*,SKG) ,
intent(out) ,
contiguous :: array(:)
2699 character(
*,SKG) ,
intent(in) :: core
2700 character(
*,SKG) ,
intent(in) :: halo
2701 integer(IK) ,
intent(in) :: coffset, csize
2706 PURE module subroutine setCoreHaloSca_D1_SK4(array, core, halo, coffset, csize)
2707#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2708 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D1_SK4
2711 character(
*,SKG) ,
intent(out) ,
contiguous :: array(:)
2712 character(
*,SKG) ,
intent(in) :: core
2713 character(
*,SKG) ,
intent(in) :: halo
2714 integer(IK) ,
intent(in) :: coffset, csize
2719 PURE module subroutine setCoreHaloSca_D1_SK3(array, core, halo, coffset, csize)
2720#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2721 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D1_SK3
2724 character(
*,SKG) ,
intent(out) ,
contiguous :: array(:)
2725 character(
*,SKG) ,
intent(in) :: core
2726 character(
*,SKG) ,
intent(in) :: halo
2727 integer(IK) ,
intent(in) :: coffset, csize
2732 PURE module subroutine setCoreHaloSca_D1_SK2(array, core, halo, coffset, csize)
2733#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2734 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D1_SK2
2737 character(
*,SKG) ,
intent(out) ,
contiguous :: array(:)
2738 character(
*,SKG) ,
intent(in) :: core
2739 character(
*,SKG) ,
intent(in) :: halo
2740 integer(IK) ,
intent(in) :: coffset, csize
2745 PURE module subroutine setCoreHaloSca_D1_SK1(array, core, halo, coffset, csize)
2746#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2747 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D1_SK1
2750 character(
*,SKG) ,
intent(out) ,
contiguous :: array(:)
2751 character(
*,SKG) ,
intent(in) :: core
2752 character(
*,SKG) ,
intent(in) :: halo
2753 integer(IK) ,
intent(in) :: coffset, csize
2760 PURE module subroutine setCoreHaloSca_D1_IK5(array, core, halo, coffset, csize)
2761#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2762 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D1_IK5
2765 integer(IKG) ,
intent(out) ,
contiguous :: array(:)
2766 integer(IKG) ,
intent(in) :: core
2767 integer(IKG) ,
intent(in) :: halo
2768 integer(IK) ,
intent(in) :: coffset, csize
2773 PURE module subroutine setCoreHaloSca_D1_IK4(array, core, halo, coffset, csize)
2774#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2775 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D1_IK4
2778 integer(IKG) ,
intent(out) ,
contiguous :: array(:)
2779 integer(IKG) ,
intent(in) :: core
2780 integer(IKG) ,
intent(in) :: halo
2781 integer(IK) ,
intent(in) :: coffset, csize
2786 PURE module subroutine setCoreHaloSca_D1_IK3(array, core, halo, coffset, csize)
2787#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2788 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D1_IK3
2791 integer(IKG) ,
intent(out) ,
contiguous :: array(:)
2792 integer(IKG) ,
intent(in) :: core
2793 integer(IKG) ,
intent(in) :: halo
2794 integer(IK) ,
intent(in) :: coffset, csize
2799 PURE module subroutine setCoreHaloSca_D1_IK2(array, core, halo, coffset, csize)
2800#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2801 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D1_IK2
2804 integer(IKG) ,
intent(out) ,
contiguous :: array(:)
2805 integer(IKG) ,
intent(in) :: core
2806 integer(IKG) ,
intent(in) :: halo
2807 integer(IK) ,
intent(in) :: coffset, csize
2812 PURE module subroutine setCoreHaloSca_D1_IK1(array, core, halo, coffset, csize)
2813#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2814 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D1_IK1
2817 integer(IKG) ,
intent(out) ,
contiguous :: array(:)
2818 integer(IKG) ,
intent(in) :: core
2819 integer(IKG) ,
intent(in) :: halo
2820 integer(IK) ,
intent(in) :: coffset, csize
2827 PURE module subroutine setCoreHaloSca_D1_LK5(array, core, halo, coffset, csize)
2828#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2829 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D1_LK5
2832 logical(LKG) ,
intent(out) ,
contiguous :: array(:)
2833 logical(LKG) ,
intent(in) :: core
2834 logical(LKG) ,
intent(in) :: halo
2835 integer(IK) ,
intent(in) :: coffset, csize
2840 PURE module subroutine setCoreHaloSca_D1_LK4(array, core, halo, coffset, csize)
2841#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2842 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D1_LK4
2845 logical(LKG) ,
intent(out) ,
contiguous :: array(:)
2846 logical(LKG) ,
intent(in) :: core
2847 logical(LKG) ,
intent(in) :: halo
2848 integer(IK) ,
intent(in) :: coffset, csize
2853 PURE module subroutine setCoreHaloSca_D1_LK3(array, core, halo, coffset, csize)
2854#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2855 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D1_LK3
2858 logical(LKG) ,
intent(out) ,
contiguous :: array(:)
2859 logical(LKG) ,
intent(in) :: core
2860 logical(LKG) ,
intent(in) :: halo
2861 integer(IK) ,
intent(in) :: coffset, csize
2866 PURE module subroutine setCoreHaloSca_D1_LK2(array, core, halo, coffset, csize)
2867#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2868 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D1_LK2
2871 logical(LKG) ,
intent(out) ,
contiguous :: array(:)
2872 logical(LKG) ,
intent(in) :: core
2873 logical(LKG) ,
intent(in) :: halo
2874 integer(IK) ,
intent(in) :: coffset, csize
2879 PURE module subroutine setCoreHaloSca_D1_LK1(array, core, halo, coffset, csize)
2880#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2881 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D1_LK1
2884 logical(LKG) ,
intent(out) ,
contiguous :: array(:)
2885 logical(LKG) ,
intent(in) :: core
2886 logical(LKG) ,
intent(in) :: halo
2887 integer(IK) ,
intent(in) :: coffset, csize
2894 PURE module subroutine setCoreHaloSca_D1_CK5(array, core, halo, coffset, csize)
2895#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2896 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D1_CK5
2899 complex(CKG) ,
intent(out) ,
contiguous :: array(:)
2900 complex(CKG) ,
intent(in) :: core
2901 complex(CKG) ,
intent(in) :: halo
2902 integer(IK) ,
intent(in) :: coffset, csize
2907 PURE module subroutine setCoreHaloSca_D1_CK4(array, core, halo, coffset, csize)
2908#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2909 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D1_CK4
2912 complex(CKG) ,
intent(out) ,
contiguous :: array(:)
2913 complex(CKG) ,
intent(in) :: core
2914 complex(CKG) ,
intent(in) :: halo
2915 integer(IK) ,
intent(in) :: coffset, csize
2920 PURE module subroutine setCoreHaloSca_D1_CK3(array, core, halo, coffset, csize)
2921#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2922 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D1_CK3
2925 complex(CKG) ,
intent(out) ,
contiguous :: array(:)
2926 complex(CKG) ,
intent(in) :: core
2927 complex(CKG) ,
intent(in) :: halo
2928 integer(IK) ,
intent(in) :: coffset, csize
2933 PURE module subroutine setCoreHaloSca_D1_CK2(array, core, halo, coffset, csize)
2934#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2935 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D1_CK2
2938 complex(CKG) ,
intent(out) ,
contiguous :: array(:)
2939 complex(CKG) ,
intent(in) :: core
2940 complex(CKG) ,
intent(in) :: halo
2941 integer(IK) ,
intent(in) :: coffset, csize
2946 PURE module subroutine setCoreHaloSca_D1_CK1(array, core, halo, coffset, csize)
2947#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2948 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D1_CK1
2951 complex(CKG) ,
intent(out) ,
contiguous :: array(:)
2952 complex(CKG) ,
intent(in) :: core
2953 complex(CKG) ,
intent(in) :: halo
2954 integer(IK) ,
intent(in) :: coffset, csize
2961 PURE module subroutine setCoreHaloSca_D1_RK5(array, core, halo, coffset, csize)
2962#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2963 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D1_RK5
2966 real(RKG) ,
intent(out) ,
contiguous :: array(:)
2967 real(RKG) ,
intent(in) :: core
2968 real(RKG) ,
intent(in) :: halo
2969 integer(IK) ,
intent(in) :: coffset, csize
2974 PURE module subroutine setCoreHaloSca_D1_RK4(array, core, halo, coffset, csize)
2975#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2976 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D1_RK4
2979 real(RKG) ,
intent(out) ,
contiguous :: array(:)
2980 real(RKG) ,
intent(in) :: core
2981 real(RKG) ,
intent(in) :: halo
2982 integer(IK) ,
intent(in) :: coffset, csize
2987 PURE module subroutine setCoreHaloSca_D1_RK3(array, core, halo, coffset, csize)
2988#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2989 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D1_RK3
2992 real(RKG) ,
intent(out) ,
contiguous :: array(:)
2993 real(RKG) ,
intent(in) :: core
2994 real(RKG) ,
intent(in) :: halo
2995 integer(IK) ,
intent(in) :: coffset, csize
3000 PURE module subroutine setCoreHaloSca_D1_RK2(array, core, halo, coffset, csize)
3001#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3002 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D1_RK2
3005 real(RKG) ,
intent(out) ,
contiguous :: array(:)
3006 real(RKG) ,
intent(in) :: core
3007 real(RKG) ,
intent(in) :: halo
3008 integer(IK) ,
intent(in) :: coffset, csize
3013 PURE module subroutine setCoreHaloSca_D1_RK1(array, core, halo, coffset, csize)
3014#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3015 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D1_RK1
3018 real(RKG) ,
intent(out) ,
contiguous :: array(:)
3019 real(RKG) ,
intent(in) :: core
3020 real(RKG) ,
intent(in) :: halo
3021 integer(IK) ,
intent(in) :: coffset, csize
3034 PURE module subroutine setCoreHaloSca_D2_SK5(array, core, halo, coffset, csize)
3035#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3036 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D2_SK5
3039 character(
*,SKG) ,
intent(out) ,
contiguous :: array(:,:)
3040 character(
*,SKG) ,
intent(in) :: core
3041 character(
*,SKG) ,
intent(in) :: halo
3042 integer(IK) ,
intent(in) :: coffset(
rank(array)), csize(
rank(array))
3047 PURE module subroutine setCoreHaloSca_D2_SK4(array, core, halo, coffset, csize)
3048#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3049 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D2_SK4
3052 character(
*,SKG) ,
intent(out) ,
contiguous :: array(:,:)
3053 character(
*,SKG) ,
intent(in) :: core
3054 character(
*,SKG) ,
intent(in) :: halo
3055 integer(IK) ,
intent(in) :: coffset(
rank(array)), csize(
rank(array))
3060 PURE module subroutine setCoreHaloSca_D2_SK3(array, core, halo, coffset, csize)
3061#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3062 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D2_SK3
3065 character(
*,SKG) ,
intent(out) ,
contiguous :: array(:,:)
3066 character(
*,SKG) ,
intent(in) :: core
3067 character(
*,SKG) ,
intent(in) :: halo
3068 integer(IK) ,
intent(in) :: coffset(
rank(array)), csize(
rank(array))
3073 PURE module subroutine setCoreHaloSca_D2_SK2(array, core, halo, coffset, csize)
3074#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3075 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D2_SK2
3078 character(
*,SKG) ,
intent(out) ,
contiguous :: array(:,:)
3079 character(
*,SKG) ,
intent(in) :: core
3080 character(
*,SKG) ,
intent(in) :: halo
3081 integer(IK) ,
intent(in) :: coffset(
rank(array)), csize(
rank(array))
3086 PURE module subroutine setCoreHaloSca_D2_SK1(array, core, halo, coffset, csize)
3087#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3088 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D2_SK1
3091 character(
*,SKG) ,
intent(out) ,
contiguous :: array(:,:)
3092 character(
*,SKG) ,
intent(in) :: core
3093 character(
*,SKG) ,
intent(in) :: halo
3094 integer(IK) ,
intent(in) :: coffset(
rank(array)), csize(
rank(array))
3101 PURE module subroutine setCoreHaloSca_D2_IK5(array, core, halo, coffset, csize)
3102#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3103 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D2_IK5
3106 integer(IKG) ,
intent(out) ,
contiguous :: array(:,:)
3107 integer(IKG) ,
intent(in) :: core
3108 integer(IKG) ,
intent(in) :: halo
3109 integer(IK) ,
intent(in) :: coffset(
rank(array)), csize(
rank(array))
3114 PURE module subroutine setCoreHaloSca_D2_IK4(array, core, halo, coffset, csize)
3115#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3116 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D2_IK4
3119 integer(IKG) ,
intent(out) ,
contiguous :: array(:,:)
3120 integer(IKG) ,
intent(in) :: core
3121 integer(IKG) ,
intent(in) :: halo
3122 integer(IK) ,
intent(in) :: coffset(
rank(array)), csize(
rank(array))
3127 PURE module subroutine setCoreHaloSca_D2_IK3(array, core, halo, coffset, csize)
3128#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3129 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D2_IK3
3132 integer(IKG) ,
intent(out) ,
contiguous :: array(:,:)
3133 integer(IKG) ,
intent(in) :: core
3134 integer(IKG) ,
intent(in) :: halo
3135 integer(IK) ,
intent(in) :: coffset(
rank(array)), csize(
rank(array))
3140 PURE module subroutine setCoreHaloSca_D2_IK2(array, core, halo, coffset, csize)
3141#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3142 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D2_IK2
3145 integer(IKG) ,
intent(out) ,
contiguous :: array(:,:)
3146 integer(IKG) ,
intent(in) :: core
3147 integer(IKG) ,
intent(in) :: halo
3148 integer(IK) ,
intent(in) :: coffset(
rank(array)), csize(
rank(array))
3153 PURE module subroutine setCoreHaloSca_D2_IK1(array, core, halo, coffset, csize)
3154#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3155 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D2_IK1
3158 integer(IKG) ,
intent(out) ,
contiguous :: array(:,:)
3159 integer(IKG) ,
intent(in) :: core
3160 integer(IKG) ,
intent(in) :: halo
3161 integer(IK) ,
intent(in) :: coffset(
rank(array)), csize(
rank(array))
3168 PURE module subroutine setCoreHaloSca_D2_LK5(array, core, halo, coffset, csize)
3169#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3170 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D2_LK5
3173 logical(LKG) ,
intent(out) ,
contiguous :: array(:,:)
3174 logical(LKG) ,
intent(in) :: core
3175 logical(LKG) ,
intent(in) :: halo
3176 integer(IK) ,
intent(in) :: coffset(
rank(array)), csize(
rank(array))
3181 PURE module subroutine setCoreHaloSca_D2_LK4(array, core, halo, coffset, csize)
3182#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3183 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D2_LK4
3186 logical(LKG) ,
intent(out) ,
contiguous :: array(:,:)
3187 logical(LKG) ,
intent(in) :: core
3188 logical(LKG) ,
intent(in) :: halo
3189 integer(IK) ,
intent(in) :: coffset(
rank(array)), csize(
rank(array))
3194 PURE module subroutine setCoreHaloSca_D2_LK3(array, core, halo, coffset, csize)
3195#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3196 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D2_LK3
3199 logical(LKG) ,
intent(out) ,
contiguous :: array(:,:)
3200 logical(LKG) ,
intent(in) :: core
3201 logical(LKG) ,
intent(in) :: halo
3202 integer(IK) ,
intent(in) :: coffset(
rank(array)), csize(
rank(array))
3207 PURE module subroutine setCoreHaloSca_D2_LK2(array, core, halo, coffset, csize)
3208#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3209 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D2_LK2
3212 logical(LKG) ,
intent(out) ,
contiguous :: array(:,:)
3213 logical(LKG) ,
intent(in) :: core
3214 logical(LKG) ,
intent(in) :: halo
3215 integer(IK) ,
intent(in) :: coffset(
rank(array)), csize(
rank(array))
3220 PURE module subroutine setCoreHaloSca_D2_LK1(array, core, halo, coffset, csize)
3221#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3222 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D2_LK1
3225 logical(LKG) ,
intent(out) ,
contiguous :: array(:,:)
3226 logical(LKG) ,
intent(in) :: core
3227 logical(LKG) ,
intent(in) :: halo
3228 integer(IK) ,
intent(in) :: coffset(
rank(array)), csize(
rank(array))
3235 PURE module subroutine setCoreHaloSca_D2_CK5(array, core, halo, coffset, csize)
3236#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3237 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D2_CK5
3240 complex(CKG) ,
intent(out) ,
contiguous :: array(:,:)
3241 complex(CKG) ,
intent(in) :: core
3242 complex(CKG) ,
intent(in) :: halo
3243 integer(IK) ,
intent(in) :: coffset(
rank(array)), csize(
rank(array))
3248 PURE module subroutine setCoreHaloSca_D2_CK4(array, core, halo, coffset, csize)
3249#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3250 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D2_CK4
3253 complex(CKG) ,
intent(out) ,
contiguous :: array(:,:)
3254 complex(CKG) ,
intent(in) :: core
3255 complex(CKG) ,
intent(in) :: halo
3256 integer(IK) ,
intent(in) :: coffset(
rank(array)), csize(
rank(array))
3261 PURE module subroutine setCoreHaloSca_D2_CK3(array, core, halo, coffset, csize)
3262#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3263 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D2_CK3
3266 complex(CKG) ,
intent(out) ,
contiguous :: array(:,:)
3267 complex(CKG) ,
intent(in) :: core
3268 complex(CKG) ,
intent(in) :: halo
3269 integer(IK) ,
intent(in) :: coffset(
rank(array)), csize(
rank(array))
3274 PURE module subroutine setCoreHaloSca_D2_CK2(array, core, halo, coffset, csize)
3275#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3276 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D2_CK2
3279 complex(CKG) ,
intent(out) ,
contiguous :: array(:,:)
3280 complex(CKG) ,
intent(in) :: core
3281 complex(CKG) ,
intent(in) :: halo
3282 integer(IK) ,
intent(in) :: coffset(
rank(array)), csize(
rank(array))
3287 PURE module subroutine setCoreHaloSca_D2_CK1(array, core, halo, coffset, csize)
3288#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3289 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D2_CK1
3292 complex(CKG) ,
intent(out) ,
contiguous :: array(:,:)
3293 complex(CKG) ,
intent(in) :: core
3294 complex(CKG) ,
intent(in) :: halo
3295 integer(IK) ,
intent(in) :: coffset(
rank(array)), csize(
rank(array))
3302 PURE module subroutine setCoreHaloSca_D2_RK5(array, core, halo, coffset, csize)
3303#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3304 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D2_RK5
3307 real(RKG) ,
intent(out) ,
contiguous :: array(:,:)
3308 real(RKG) ,
intent(in) :: core
3309 real(RKG) ,
intent(in) :: halo
3310 integer(IK) ,
intent(in) :: coffset(
rank(array)), csize(
rank(array))
3315 PURE module subroutine setCoreHaloSca_D2_RK4(array, core, halo, coffset, csize)
3316#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3317 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D2_RK4
3320 real(RKG) ,
intent(out) ,
contiguous :: array(:,:)
3321 real(RKG) ,
intent(in) :: core
3322 real(RKG) ,
intent(in) :: halo
3323 integer(IK) ,
intent(in) :: coffset(
rank(array)), csize(
rank(array))
3328 PURE module subroutine setCoreHaloSca_D2_RK3(array, core, halo, coffset, csize)
3329#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3330 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D2_RK3
3333 real(RKG) ,
intent(out) ,
contiguous :: array(:,:)
3334 real(RKG) ,
intent(in) :: core
3335 real(RKG) ,
intent(in) :: halo
3336 integer(IK) ,
intent(in) :: coffset(
rank(array)), csize(
rank(array))
3341 PURE module subroutine setCoreHaloSca_D2_RK2(array, core, halo, coffset, csize)
3342#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3343 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D2_RK2
3346 real(RKG) ,
intent(out) ,
contiguous :: array(:,:)
3347 real(RKG) ,
intent(in) :: core
3348 real(RKG) ,
intent(in) :: halo
3349 integer(IK) ,
intent(in) :: coffset(
rank(array)), csize(
rank(array))
3354 PURE module subroutine setCoreHaloSca_D2_RK1(array, core, halo, coffset, csize)
3355#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3356 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D2_RK1
3359 real(RKG) ,
intent(out) ,
contiguous :: array(:,:)
3360 real(RKG) ,
intent(in) :: core
3361 real(RKG) ,
intent(in) :: halo
3362 integer(IK) ,
intent(in) :: coffset(
rank(array)), csize(
rank(array))
3375 PURE module subroutine setCoreHaloSca_D3_SK5(array, core, halo, coffset, csize)
3376#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3377 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D3_SK5
3380 character(
*,SKG) ,
intent(out) ,
contiguous :: array(:,:,:)
3381 character(
*,SKG) ,
intent(in) :: core
3382 character(
*,SKG) ,
intent(in) :: halo
3383 integer(IK) ,
intent(in) :: coffset(
rank(array)), csize(
rank(array))
3388 PURE module subroutine setCoreHaloSca_D3_SK4(array, core, halo, coffset, csize)
3389#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3390 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D3_SK4
3393 character(
*,SKG) ,
intent(out) ,
contiguous :: array(:,:,:)
3394 character(
*,SKG) ,
intent(in) :: core
3395 character(
*,SKG) ,
intent(in) :: halo
3396 integer(IK) ,
intent(in) :: coffset(
rank(array)), csize(
rank(array))
3401 PURE module subroutine setCoreHaloSca_D3_SK3(array, core, halo, coffset, csize)
3402#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3403 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D3_SK3
3406 character(
*,SKG) ,
intent(out) ,
contiguous :: array(:,:,:)
3407 character(
*,SKG) ,
intent(in) :: core
3408 character(
*,SKG) ,
intent(in) :: halo
3409 integer(IK) ,
intent(in) :: coffset(
rank(array)), csize(
rank(array))
3414 PURE module subroutine setCoreHaloSca_D3_SK2(array, core, halo, coffset, csize)
3415#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3416 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D3_SK2
3419 character(
*,SKG) ,
intent(out) ,
contiguous :: array(:,:,:)
3420 character(
*,SKG) ,
intent(in) :: core
3421 character(
*,SKG) ,
intent(in) :: halo
3422 integer(IK) ,
intent(in) :: coffset(
rank(array)), csize(
rank(array))
3427 PURE module subroutine setCoreHaloSca_D3_SK1(array, core, halo, coffset, csize)
3428#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3429 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D3_SK1
3432 character(
*,SKG) ,
intent(out) ,
contiguous :: array(:,:,:)
3433 character(
*,SKG) ,
intent(in) :: core
3434 character(
*,SKG) ,
intent(in) :: halo
3435 integer(IK) ,
intent(in) :: coffset(
rank(array)), csize(
rank(array))
3442 PURE module subroutine setCoreHaloSca_D3_IK5(array, core, halo, coffset, csize)
3443#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3444 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D3_IK5
3447 integer(IKG) ,
intent(out) ,
contiguous :: array(:,:,:)
3448 integer(IKG) ,
intent(in) :: core
3449 integer(IKG) ,
intent(in) :: halo
3450 integer(IK) ,
intent(in) :: coffset(
rank(array)), csize(
rank(array))
3455 PURE module subroutine setCoreHaloSca_D3_IK4(array, core, halo, coffset, csize)
3456#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3457 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D3_IK4
3460 integer(IKG) ,
intent(out) ,
contiguous :: array(:,:,:)
3461 integer(IKG) ,
intent(in) :: core
3462 integer(IKG) ,
intent(in) :: halo
3463 integer(IK) ,
intent(in) :: coffset(
rank(array)), csize(
rank(array))
3468 PURE module subroutine setCoreHaloSca_D3_IK3(array, core, halo, coffset, csize)
3469#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3470 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D3_IK3
3473 integer(IKG) ,
intent(out) ,
contiguous :: array(:,:,:)
3474 integer(IKG) ,
intent(in) :: core
3475 integer(IKG) ,
intent(in) :: halo
3476 integer(IK) ,
intent(in) :: coffset(
rank(array)), csize(
rank(array))
3481 PURE module subroutine setCoreHaloSca_D3_IK2(array, core, halo, coffset, csize)
3482#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3483 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D3_IK2
3486 integer(IKG) ,
intent(out) ,
contiguous :: array(:,:,:)
3487 integer(IKG) ,
intent(in) :: core
3488 integer(IKG) ,
intent(in) :: halo
3489 integer(IK) ,
intent(in) :: coffset(
rank(array)), csize(
rank(array))
3494 PURE module subroutine setCoreHaloSca_D3_IK1(array, core, halo, coffset, csize)
3495#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3496 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D3_IK1
3499 integer(IKG) ,
intent(out) ,
contiguous :: array(:,:,:)
3500 integer(IKG) ,
intent(in) :: core
3501 integer(IKG) ,
intent(in) :: halo
3502 integer(IK) ,
intent(in) :: coffset(
rank(array)), csize(
rank(array))
3509 PURE module subroutine setCoreHaloSca_D3_LK5(array, core, halo, coffset, csize)
3510#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3511 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D3_LK5
3514 logical(LKG) ,
intent(out) ,
contiguous :: array(:,:,:)
3515 logical(LKG) ,
intent(in) :: core
3516 logical(LKG) ,
intent(in) :: halo
3517 integer(IK) ,
intent(in) :: coffset(
rank(array)), csize(
rank(array))
3522 PURE module subroutine setCoreHaloSca_D3_LK4(array, core, halo, coffset, csize)
3523#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3524 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D3_LK4
3527 logical(LKG) ,
intent(out) ,
contiguous :: array(:,:,:)
3528 logical(LKG) ,
intent(in) :: core
3529 logical(LKG) ,
intent(in) :: halo
3530 integer(IK) ,
intent(in) :: coffset(
rank(array)), csize(
rank(array))
3535 PURE module subroutine setCoreHaloSca_D3_LK3(array, core, halo, coffset, csize)
3536#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3537 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D3_LK3
3540 logical(LKG) ,
intent(out) ,
contiguous :: array(:,:,:)
3541 logical(LKG) ,
intent(in) :: core
3542 logical(LKG) ,
intent(in) :: halo
3543 integer(IK) ,
intent(in) :: coffset(
rank(array)), csize(
rank(array))
3548 PURE module subroutine setCoreHaloSca_D3_LK2(array, core, halo, coffset, csize)
3549#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3550 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D3_LK2
3553 logical(LKG) ,
intent(out) ,
contiguous :: array(:,:,:)
3554 logical(LKG) ,
intent(in) :: core
3555 logical(LKG) ,
intent(in) :: halo
3556 integer(IK) ,
intent(in) :: coffset(
rank(array)), csize(
rank(array))
3561 PURE module subroutine setCoreHaloSca_D3_LK1(array, core, halo, coffset, csize)
3562#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3563 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D3_LK1
3566 logical(LKG) ,
intent(out) ,
contiguous :: array(:,:,:)
3567 logical(LKG) ,
intent(in) :: core
3568 logical(LKG) ,
intent(in) :: halo
3569 integer(IK) ,
intent(in) :: coffset(
rank(array)), csize(
rank(array))
3576 PURE module subroutine setCoreHaloSca_D3_CK5(array, core, halo, coffset, csize)
3577#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3578 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D3_CK5
3581 complex(CKG) ,
intent(out) ,
contiguous :: array(:,:,:)
3582 complex(CKG) ,
intent(in) :: core
3583 complex(CKG) ,
intent(in) :: halo
3584 integer(IK) ,
intent(in) :: coffset(
rank(array)), csize(
rank(array))
3589 PURE module subroutine setCoreHaloSca_D3_CK4(array, core, halo, coffset, csize)
3590#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3591 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D3_CK4
3594 complex(CKG) ,
intent(out) ,
contiguous :: array(:,:,:)
3595 complex(CKG) ,
intent(in) :: core
3596 complex(CKG) ,
intent(in) :: halo
3597 integer(IK) ,
intent(in) :: coffset(
rank(array)), csize(
rank(array))
3602 PURE module subroutine setCoreHaloSca_D3_CK3(array, core, halo, coffset, csize)
3603#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3604 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D3_CK3
3607 complex(CKG) ,
intent(out) ,
contiguous :: array(:,:,:)
3608 complex(CKG) ,
intent(in) :: core
3609 complex(CKG) ,
intent(in) :: halo
3610 integer(IK) ,
intent(in) :: coffset(
rank(array)), csize(
rank(array))
3615 PURE module subroutine setCoreHaloSca_D3_CK2(array, core, halo, coffset, csize)
3616#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3617 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D3_CK2
3620 complex(CKG) ,
intent(out) ,
contiguous :: array(:,:,:)
3621 complex(CKG) ,
intent(in) :: core
3622 complex(CKG) ,
intent(in) :: halo
3623 integer(IK) ,
intent(in) :: coffset(
rank(array)), csize(
rank(array))
3628 PURE module subroutine setCoreHaloSca_D3_CK1(array, core, halo, coffset, csize)
3629#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3630 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D3_CK1
3633 complex(CKG) ,
intent(out) ,
contiguous :: array(:,:,:)
3634 complex(CKG) ,
intent(in) :: core
3635 complex(CKG) ,
intent(in) :: halo
3636 integer(IK) ,
intent(in) :: coffset(
rank(array)), csize(
rank(array))
3643 PURE module subroutine setCoreHaloSca_D3_RK5(array, core, halo, coffset, csize)
3644#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3645 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D3_RK5
3648 real(RKG) ,
intent(out) ,
contiguous :: array(:,:,:)
3649 real(RKG) ,
intent(in) :: core
3650 real(RKG) ,
intent(in) :: halo
3651 integer(IK) ,
intent(in) :: coffset(
rank(array)), csize(
rank(array))
3656 PURE module subroutine setCoreHaloSca_D3_RK4(array, core, halo, coffset, csize)
3657#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3658 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D3_RK4
3661 real(RKG) ,
intent(out) ,
contiguous :: array(:,:,:)
3662 real(RKG) ,
intent(in) :: core
3663 real(RKG) ,
intent(in) :: halo
3664 integer(IK) ,
intent(in) :: coffset(
rank(array)), csize(
rank(array))
3669 PURE module subroutine setCoreHaloSca_D3_RK3(array, core, halo, coffset, csize)
3670#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3671 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D3_RK3
3674 real(RKG) ,
intent(out) ,
contiguous :: array(:,:,:)
3675 real(RKG) ,
intent(in) :: core
3676 real(RKG) ,
intent(in) :: halo
3677 integer(IK) ,
intent(in) :: coffset(
rank(array)), csize(
rank(array))
3682 PURE module subroutine setCoreHaloSca_D3_RK2(array, core, halo, coffset, csize)
3683#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3684 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D3_RK2
3687 real(RKG) ,
intent(out) ,
contiguous :: array(:,:,:)
3688 real(RKG) ,
intent(in) :: core
3689 real(RKG) ,
intent(in) :: halo
3690 integer(IK) ,
intent(in) :: coffset(
rank(array)), csize(
rank(array))
3695 PURE module subroutine setCoreHaloSca_D3_RK1(array, core, halo, coffset, csize)
3696#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3697 !DEC$ ATTRIBUTES DLLEXPORT :: setCoreHaloSca_D3_RK1
3700 real(RKG) ,
intent(out) ,
contiguous :: array(:,:,:)
3701 real(RKG) ,
intent(in) :: core
3702 real(RKG) ,
intent(in) :: halo
3703 integer(IK) ,
intent(in) :: coffset(
rank(array)), csize(
rank(array))
Generate and return an array of specified rank and shape of arbitrary intrinsic type and kind with it...
Initialize the rectangular core and halo of an input array of arbitrary rank and shape of arbitrary i...
This module contains procedures and generic interfaces for efficient initialization of arbitrary rect...
character(*, SK), parameter MODULE_NAME
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...