178 PURE module function getCenteredAsis_D0_SK5(array, size, fill)
result(arrayCentered)
179#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
180 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredAsis_D0_SK5
183 character(
*,SKG) ,
intent(in) :: array
184 character(
1,SKG) ,
intent(in) ,
optional :: fill
185 integer(IK) ,
intent(in) :: size
186 character(size,SKG) :: arrayCentered
191 PURE module function getCenteredAsis_D0_SK4(array, size, fill)
result(arrayCentered)
192#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
193 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredAsis_D0_SK4
196 character(
*,SKG) ,
intent(in) :: array
197 character(
1,SKG) ,
intent(in) ,
optional :: fill
198 integer(IK) ,
intent(in) :: size
199 character(size,SKG) :: arrayCentered
204 PURE module function getCenteredAsis_D0_SK3(array, size, fill)
result(arrayCentered)
205#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
206 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredAsis_D0_SK3
209 character(
*,SKG) ,
intent(in) :: array
210 character(
1,SKG) ,
intent(in) ,
optional :: fill
211 integer(IK) ,
intent(in) :: size
212 character(size,SKG) :: arrayCentered
217 PURE module function getCenteredAsis_D0_SK2(array, size, fill)
result(arrayCentered)
218#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
219 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredAsis_D0_SK2
222 character(
*,SKG) ,
intent(in) :: array
223 character(
1,SKG) ,
intent(in) ,
optional :: fill
224 integer(IK) ,
intent(in) :: size
225 character(size,SKG) :: arrayCentered
230 PURE module function getCenteredAsis_D0_SK1(array, size, fill)
result(arrayCentered)
231#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
232 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredAsis_D0_SK1
235 character(
*,SKG) ,
intent(in) :: array
236 character(
1,SKG) ,
intent(in) ,
optional :: fill
237 integer(IK) ,
intent(in) :: size
238 character(size,SKG) :: arrayCentered
245 PURE module function getCenteredAsis_D1_SK5(array, size, fill)
result(arrayCentered)
246#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
247 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredAsis_D1_SK5
250 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
251 integer(IK) ,
intent(in) :: size
252 character(
len(array,IK),SKG),
intent(in) ,
optional :: fill
253 character(
len(array,IK),SKG) :: arrayCentered(size)
258 PURE module function getCenteredAsis_D1_SK4(array, size, fill)
result(arrayCentered)
259#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
260 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredAsis_D1_SK4
263 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
264 integer(IK) ,
intent(in) :: size
265 character(
len(array,IK),SKG),
intent(in) ,
optional :: fill
266 character(
len(array,IK),SKG) :: arrayCentered(size)
271 PURE module function getCenteredAsis_D1_SK3(array, size, fill)
result(arrayCentered)
272#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
273 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredAsis_D1_SK3
276 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
277 integer(IK) ,
intent(in) :: size
278 character(
len(array,IK),SKG),
intent(in) ,
optional :: fill
279 character(
len(array,IK),SKG) :: arrayCentered(size)
284 PURE module function getCenteredAsis_D1_SK2(array, size, fill)
result(arrayCentered)
285#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
286 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredAsis_D1_SK2
289 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
290 integer(IK) ,
intent(in) :: size
291 character(
len(array,IK),SKG),
intent(in) ,
optional :: fill
292 character(
len(array,IK),SKG) :: arrayCentered(size)
297 PURE module function getCenteredAsis_D1_SK1(array, size, fill)
result(arrayCentered)
298#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
299 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredAsis_D1_SK1
302 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
303 integer(IK) ,
intent(in) :: size
304 character(
len(array,IK),SKG),
intent(in) ,
optional :: fill
305 character(
len(array,IK),SKG) :: arrayCentered(size)
312 PURE module function getCenteredAsis_D1_IK5(array, size, fill)
result(arrayCentered)
313#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
314 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredAsis_D1_IK5
317 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
318 integer(IKG) ,
intent(in) ,
optional :: fill
319 integer(IK) ,
intent(in) :: size
320 integer(IKG) :: arrayCentered(size)
325 PURE module function getCenteredAsis_D1_IK4(array, size, fill)
result(arrayCentered)
326#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
327 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredAsis_D1_IK4
330 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
331 integer(IKG) ,
intent(in) ,
optional :: fill
332 integer(IK) ,
intent(in) :: size
333 integer(IKG) :: arrayCentered(size)
338 PURE module function getCenteredAsis_D1_IK3(array, size, fill)
result(arrayCentered)
339#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
340 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredAsis_D1_IK3
343 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
344 integer(IKG) ,
intent(in) ,
optional :: fill
345 integer(IK) ,
intent(in) :: size
346 integer(IKG) :: arrayCentered(size)
351 PURE module function getCenteredAsis_D1_IK2(array, size, fill)
result(arrayCentered)
352#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
353 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredAsis_D1_IK2
356 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
357 integer(IKG) ,
intent(in) ,
optional :: fill
358 integer(IK) ,
intent(in) :: size
359 integer(IKG) :: arrayCentered(size)
364 PURE module function getCenteredAsis_D1_IK1(array, size, fill)
result(arrayCentered)
365#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
366 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredAsis_D1_IK1
369 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
370 integer(IKG) ,
intent(in) ,
optional :: fill
371 integer(IK) ,
intent(in) :: size
372 integer(IKG) :: arrayCentered(size)
379 PURE module function getCenteredAsis_D1_LK5(array, size, fill)
result(arrayCentered)
380#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
381 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredAsis_D1_LK5
384 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
385 logical(LKG) ,
intent(in) ,
optional :: fill
386 integer(IK) ,
intent(in) :: size
387 logical(LKG) :: arrayCentered(size)
392 PURE module function getCenteredAsis_D1_LK4(array, size, fill)
result(arrayCentered)
393#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
394 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredAsis_D1_LK4
397 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
398 logical(LKG) ,
intent(in) ,
optional :: fill
399 integer(IK) ,
intent(in) :: size
400 logical(LKG) :: arrayCentered(size)
405 PURE module function getCenteredAsis_D1_LK3(array, size, fill)
result(arrayCentered)
406#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
407 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredAsis_D1_LK3
410 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
411 logical(LKG) ,
intent(in) ,
optional :: fill
412 integer(IK) ,
intent(in) :: size
413 logical(LKG) :: arrayCentered(size)
418 PURE module function getCenteredAsis_D1_LK2(array, size, fill)
result(arrayCentered)
419#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
420 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredAsis_D1_LK2
423 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
424 logical(LKG) ,
intent(in) ,
optional :: fill
425 integer(IK) ,
intent(in) :: size
426 logical(LKG) :: arrayCentered(size)
431 PURE module function getCenteredAsis_D1_LK1(array, size, fill)
result(arrayCentered)
432#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
433 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredAsis_D1_LK1
436 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
437 logical(LKG) ,
intent(in) ,
optional :: fill
438 integer(IK) ,
intent(in) :: size
439 logical(LKG) :: arrayCentered(size)
446 PURE module function getCenteredAsis_D1_CK5(array, size, fill)
result(arrayCentered)
447#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
448 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredAsis_D1_CK5
451 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
452 complex(CKG) ,
intent(in) ,
optional :: fill
453 integer(IK) ,
intent(in) :: size
454 complex(CKG) :: arrayCentered(size)
459 PURE module function getCenteredAsis_D1_CK4(array, size, fill)
result(arrayCentered)
460#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
461 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredAsis_D1_CK4
464 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
465 complex(CKG) ,
intent(in) ,
optional :: fill
466 integer(IK) ,
intent(in) :: size
467 complex(CKG) :: arrayCentered(size)
472 PURE module function getCenteredAsis_D1_CK3(array, size, fill)
result(arrayCentered)
473#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
474 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredAsis_D1_CK3
477 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
478 complex(CKG) ,
intent(in) ,
optional :: fill
479 integer(IK) ,
intent(in) :: size
480 complex(CKG) :: arrayCentered(size)
485 PURE module function getCenteredAsis_D1_CK2(array, size, fill)
result(arrayCentered)
486#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
487 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredAsis_D1_CK2
490 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
491 complex(CKG) ,
intent(in) ,
optional :: fill
492 integer(IK) ,
intent(in) :: size
493 complex(CKG) :: arrayCentered(size)
498 PURE module function getCenteredAsis_D1_CK1(array, size, fill)
result(arrayCentered)
499#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
500 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredAsis_D1_CK1
503 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
504 complex(CKG) ,
intent(in) ,
optional :: fill
505 integer(IK) ,
intent(in) :: size
506 complex(CKG) :: arrayCentered(size)
513 PURE module function getCenteredAsis_D1_RK5(array, size, fill)
result(arrayCentered)
514#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
515 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredAsis_D1_RK5
518 real(RKG) ,
intent(in) ,
contiguous :: array(:)
519 real(RKG) ,
intent(in) ,
optional :: fill
520 integer(IK) ,
intent(in) :: size
521 real(RKG) :: arrayCentered(size)
526 PURE module function getCenteredAsis_D1_RK4(array, size, fill)
result(arrayCentered)
527#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
528 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredAsis_D1_RK4
531 real(RKG) ,
intent(in) ,
contiguous :: array(:)
532 real(RKG) ,
intent(in) ,
optional :: fill
533 integer(IK) ,
intent(in) :: size
534 real(RKG) :: arrayCentered(size)
539 PURE module function getCenteredAsis_D1_RK3(array, size, fill)
result(arrayCentered)
540#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
541 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredAsis_D1_RK3
544 real(RKG) ,
intent(in) ,
contiguous :: array(:)
545 real(RKG) ,
intent(in) ,
optional :: fill
546 integer(IK) ,
intent(in) :: size
547 real(RKG) :: arrayCentered(size)
552 PURE module function getCenteredAsis_D1_RK2(array, size, fill)
result(arrayCentered)
553#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
554 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredAsis_D1_RK2
557 real(RKG) ,
intent(in) ,
contiguous :: array(:)
558 real(RKG) ,
intent(in) ,
optional :: fill
559 integer(IK) ,
intent(in) :: size
560 real(RKG) :: arrayCentered(size)
565 PURE module function getCenteredAsis_D1_RK1(array, size, fill)
result(arrayCentered)
566#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
567 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredAsis_D1_RK1
570 real(RKG) ,
intent(in) ,
contiguous :: array(:)
571 real(RKG) ,
intent(in) ,
optional :: fill
572 integer(IK) ,
intent(in) :: size
573 real(RKG) :: arrayCentered(size)
586 PURE module function getCenteredMarg_D0_SK5(array, size, lmsize, rmsize, fill, lmfill, rmfill)
result(arrayCentered)
587#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
588 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredMarg_D0_SK5
591 character(
*,SKG) ,
intent(in) :: array
592 character(
1,SKG) ,
intent(in) ,
optional :: fill, lmfill, rmfill
593 integer(IK) ,
intent(in) :: size, lmsize, rmsize
594 character(size
+lmsize
+rmsize,SKG) :: arrayCentered
599 PURE module function getCenteredMarg_D0_SK4(array, size, lmsize, rmsize, fill, lmfill, rmfill)
result(arrayCentered)
600#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
601 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredMarg_D0_SK4
604 character(
*,SKG) ,
intent(in) :: array
605 character(
1,SKG) ,
intent(in) ,
optional :: fill, lmfill, rmfill
606 integer(IK) ,
intent(in) :: size, lmsize, rmsize
607 character(size
+lmsize
+rmsize,SKG) :: arrayCentered
612 PURE module function getCenteredMarg_D0_SK3(array, size, lmsize, rmsize, fill, lmfill, rmfill)
result(arrayCentered)
613#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
614 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredMarg_D0_SK3
617 character(
*,SKG) ,
intent(in) :: array
618 character(
1,SKG) ,
intent(in) ,
optional :: fill, lmfill, rmfill
619 integer(IK) ,
intent(in) :: size, lmsize, rmsize
620 character(size
+lmsize
+rmsize,SKG) :: arrayCentered
625 PURE module function getCenteredMarg_D0_SK2(array, size, lmsize, rmsize, fill, lmfill, rmfill)
result(arrayCentered)
626#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
627 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredMarg_D0_SK2
630 character(
*,SKG) ,
intent(in) :: array
631 character(
1,SKG) ,
intent(in) ,
optional :: fill, lmfill, rmfill
632 integer(IK) ,
intent(in) :: size, lmsize, rmsize
633 character(size
+lmsize
+rmsize,SKG) :: arrayCentered
638 PURE module function getCenteredMarg_D0_SK1(array, size, lmsize, rmsize, fill, lmfill, rmfill)
result(arrayCentered)
639#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
640 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredMarg_D0_SK1
643 character(
*,SKG) ,
intent(in) :: array
644 character(
1,SKG) ,
intent(in) ,
optional :: fill, lmfill, rmfill
645 integer(IK) ,
intent(in) :: size, lmsize, rmsize
646 character(size
+lmsize
+rmsize,SKG) :: arrayCentered
653 PURE module function getCenteredMarg_D1_SK5(array, size, lmsize, rmsize, fill, lmfill, rmfill)
result(arrayCentered)
654#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
655 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredMarg_D1_SK5
658 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
659 integer(IK) ,
intent(in) :: size, lmsize, rmsize
660 character(
len(array,IK),SKG),
intent(in) ,
optional :: fill, lmfill, rmfill
661 character(
len(array,IK),SKG) :: arrayCentered(size
+lmsize
+rmsize)
666 PURE module function getCenteredMarg_D1_SK4(array, size, lmsize, rmsize, fill, lmfill, rmfill)
result(arrayCentered)
667#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
668 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredMarg_D1_SK4
671 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
672 integer(IK) ,
intent(in) :: size, lmsize, rmsize
673 character(
len(array,IK),SKG),
intent(in) ,
optional :: fill, lmfill, rmfill
674 character(
len(array,IK),SKG) :: arrayCentered(size
+lmsize
+rmsize)
679 PURE module function getCenteredMarg_D1_SK3(array, size, lmsize, rmsize, fill, lmfill, rmfill)
result(arrayCentered)
680#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
681 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredMarg_D1_SK3
684 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
685 integer(IK) ,
intent(in) :: size, lmsize, rmsize
686 character(
len(array,IK),SKG),
intent(in) ,
optional :: fill, lmfill, rmfill
687 character(
len(array,IK),SKG) :: arrayCentered(size
+lmsize
+rmsize)
692 PURE module function getCenteredMarg_D1_SK2(array, size, lmsize, rmsize, fill, lmfill, rmfill)
result(arrayCentered)
693#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
694 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredMarg_D1_SK2
697 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
698 integer(IK) ,
intent(in) :: size, lmsize, rmsize
699 character(
len(array,IK),SKG),
intent(in) ,
optional :: fill, lmfill, rmfill
700 character(
len(array,IK),SKG) :: arrayCentered(size
+lmsize
+rmsize)
705 PURE module function getCenteredMarg_D1_SK1(array, size, lmsize, rmsize, fill, lmfill, rmfill)
result(arrayCentered)
706#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
707 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredMarg_D1_SK1
710 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
711 integer(IK) ,
intent(in) :: size, lmsize, rmsize
712 character(
len(array,IK),SKG),
intent(in) ,
optional :: fill, lmfill, rmfill
713 character(
len(array,IK),SKG) :: arrayCentered(size
+lmsize
+rmsize)
720 PURE module function getCenteredMarg_D1_IK5(array, size, lmsize, rmsize, fill, lmfill, rmfill)
result(arrayCentered)
721#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
722 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredMarg_D1_IK5
725 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
726 integer(IKG) ,
intent(in) ,
optional :: fill, lmfill, rmfill
727 integer(IK) ,
intent(in) :: size, lmsize, rmsize
728 integer(IKG) :: arrayCentered(size
+lmsize
+rmsize)
733 PURE module function getCenteredMarg_D1_IK4(array, size, lmsize, rmsize, fill, lmfill, rmfill)
result(arrayCentered)
734#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
735 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredMarg_D1_IK4
738 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
739 integer(IKG) ,
intent(in) ,
optional :: fill, lmfill, rmfill
740 integer(IK) ,
intent(in) :: size, lmsize, rmsize
741 integer(IKG) :: arrayCentered(size
+lmsize
+rmsize)
746 PURE module function getCenteredMarg_D1_IK3(array, size, lmsize, rmsize, fill, lmfill, rmfill)
result(arrayCentered)
747#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
748 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredMarg_D1_IK3
751 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
752 integer(IKG) ,
intent(in) ,
optional :: fill, lmfill, rmfill
753 integer(IK) ,
intent(in) :: size, lmsize, rmsize
754 integer(IKG) :: arrayCentered(size
+lmsize
+rmsize)
759 PURE module function getCenteredMarg_D1_IK2(array, size, lmsize, rmsize, fill, lmfill, rmfill)
result(arrayCentered)
760#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
761 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredMarg_D1_IK2
764 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
765 integer(IKG) ,
intent(in) ,
optional :: fill, lmfill, rmfill
766 integer(IK) ,
intent(in) :: size, lmsize, rmsize
767 integer(IKG) :: arrayCentered(size
+lmsize
+rmsize)
772 PURE module function getCenteredMarg_D1_IK1(array, size, lmsize, rmsize, fill, lmfill, rmfill)
result(arrayCentered)
773#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
774 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredMarg_D1_IK1
777 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
778 integer(IKG) ,
intent(in) ,
optional :: fill, lmfill, rmfill
779 integer(IK) ,
intent(in) :: size, lmsize, rmsize
780 integer(IKG) :: arrayCentered(size
+lmsize
+rmsize)
787 PURE module function getCenteredMarg_D1_LK5(array, size, lmsize, rmsize, fill, lmfill, rmfill)
result(arrayCentered)
788#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
789 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredMarg_D1_LK5
792 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
793 logical(LKG) ,
intent(in) ,
optional :: fill, lmfill, rmfill
794 integer(IK) ,
intent(in) :: size, lmsize, rmsize
795 logical(LKG) :: arrayCentered(size
+lmsize
+rmsize)
800 PURE module function getCenteredMarg_D1_LK4(array, size, lmsize, rmsize, fill, lmfill, rmfill)
result(arrayCentered)
801#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
802 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredMarg_D1_LK4
805 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
806 logical(LKG) ,
intent(in) ,
optional :: fill, lmfill, rmfill
807 integer(IK) ,
intent(in) :: size, lmsize, rmsize
808 logical(LKG) :: arrayCentered(size
+lmsize
+rmsize)
813 PURE module function getCenteredMarg_D1_LK3(array, size, lmsize, rmsize, fill, lmfill, rmfill)
result(arrayCentered)
814#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
815 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredMarg_D1_LK3
818 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
819 logical(LKG) ,
intent(in) ,
optional :: fill, lmfill, rmfill
820 integer(IK) ,
intent(in) :: size, lmsize, rmsize
821 logical(LKG) :: arrayCentered(size
+lmsize
+rmsize)
826 PURE module function getCenteredMarg_D1_LK2(array, size, lmsize, rmsize, fill, lmfill, rmfill)
result(arrayCentered)
827#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
828 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredMarg_D1_LK2
831 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
832 logical(LKG) ,
intent(in) ,
optional :: fill, lmfill, rmfill
833 integer(IK) ,
intent(in) :: size, lmsize, rmsize
834 logical(LKG) :: arrayCentered(size
+lmsize
+rmsize)
839 PURE module function getCenteredMarg_D1_LK1(array, size, lmsize, rmsize, fill, lmfill, rmfill)
result(arrayCentered)
840#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
841 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredMarg_D1_LK1
844 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
845 logical(LKG) ,
intent(in) ,
optional :: fill, lmfill, rmfill
846 integer(IK) ,
intent(in) :: size, lmsize, rmsize
847 logical(LKG) :: arrayCentered(size
+lmsize
+rmsize)
855 PURE module function getCenteredMarg_D1_CK5(array, size, lmsize, rmsize, fill, lmfill, rmfill)
result(arrayCentered)
856#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
857 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredMarg_D1_CK5
860 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
861 complex(CKG) ,
intent(in) ,
optional :: fill, lmfill, rmfill
862 integer(IK) ,
intent(in) :: size, lmsize, rmsize
863 complex(CKG) :: arrayCentered(size
+lmsize
+rmsize)
868 PURE module function getCenteredMarg_D1_CK4(array, size, lmsize, rmsize, fill, lmfill, rmfill)
result(arrayCentered)
869#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
870 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredMarg_D1_CK4
873 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
874 complex(CKG) ,
intent(in) ,
optional :: fill, lmfill, rmfill
875 integer(IK) ,
intent(in) :: size, lmsize, rmsize
876 complex(CKG) :: arrayCentered(size
+lmsize
+rmsize)
881 PURE module function getCenteredMarg_D1_CK3(array, size, lmsize, rmsize, fill, lmfill, rmfill)
result(arrayCentered)
882#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
883 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredMarg_D1_CK3
886 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
887 complex(CKG) ,
intent(in) ,
optional :: fill, lmfill, rmfill
888 integer(IK) ,
intent(in) :: size, lmsize, rmsize
889 complex(CKG) :: arrayCentered(size
+lmsize
+rmsize)
894 PURE module function getCenteredMarg_D1_CK2(array, size, lmsize, rmsize, fill, lmfill, rmfill)
result(arrayCentered)
895#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
896 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredMarg_D1_CK2
899 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
900 complex(CKG) ,
intent(in) ,
optional :: fill, lmfill, rmfill
901 integer(IK) ,
intent(in) :: size, lmsize, rmsize
902 complex(CKG) :: arrayCentered(size
+lmsize
+rmsize)
907 PURE module function getCenteredMarg_D1_CK1(array, size, lmsize, rmsize, fill, lmfill, rmfill)
result(arrayCentered)
908#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
909 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredMarg_D1_CK1
912 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
913 complex(CKG) ,
intent(in) ,
optional :: fill, lmfill, rmfill
914 integer(IK) ,
intent(in) :: size, lmsize, rmsize
915 complex(CKG) :: arrayCentered(size
+lmsize
+rmsize)
922 PURE module function getCenteredMarg_D1_RK5(array, size, lmsize, rmsize, fill, lmfill, rmfill)
result(arrayCentered)
923#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
924 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredMarg_D1_RK5
927 real(RKG) ,
intent(in) ,
contiguous :: array(:)
928 real(RKG) ,
intent(in) ,
optional :: fill, lmfill, rmfill
929 integer(IK) ,
intent(in) :: size, lmsize, rmsize
930 real(RKG) :: arrayCentered(size
+lmsize
+rmsize)
935 PURE module function getCenteredMarg_D1_RK4(array, size, lmsize, rmsize, fill, lmfill, rmfill)
result(arrayCentered)
936#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
937 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredMarg_D1_RK4
940 real(RKG) ,
intent(in) ,
contiguous :: array(:)
941 real(RKG) ,
intent(in) ,
optional :: fill, lmfill, rmfill
942 integer(IK) ,
intent(in) :: size, lmsize, rmsize
943 real(RKG) :: arrayCentered(size
+lmsize
+rmsize)
948 PURE module function getCenteredMarg_D1_RK3(array, size, lmsize, rmsize, fill, lmfill, rmfill)
result(arrayCentered)
949#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
950 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredMarg_D1_RK3
953 real(RKG) ,
intent(in) ,
contiguous :: array(:)
954 real(RKG) ,
intent(in) ,
optional :: fill, lmfill, rmfill
955 integer(IK) ,
intent(in) :: size, lmsize, rmsize
956 real(RKG) :: arrayCentered(size
+lmsize
+rmsize)
961 PURE module function getCenteredMarg_D1_RK2(array, size, lmsize, rmsize, fill, lmfill, rmfill)
result(arrayCentered)
962#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
963 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredMarg_D1_RK2
966 real(RKG) ,
intent(in) ,
contiguous :: array(:)
967 real(RKG) ,
intent(in) ,
optional :: fill, lmfill, rmfill
968 integer(IK) ,
intent(in) :: size, lmsize, rmsize
969 real(RKG) :: arrayCentered(size
+lmsize
+rmsize)
974 PURE module function getCenteredMarg_D1_RK1(array, size, lmsize, rmsize, fill, lmfill, rmfill)
result(arrayCentered)
975#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
976 !DEC$ ATTRIBUTES DLLEXPORT :: getCenteredMarg_D1_RK1
979 real(RKG) ,
intent(in) ,
contiguous :: array(:)
980 real(RKG) ,
intent(in) ,
optional :: fill, lmfill, rmfill
981 integer(IK) ,
intent(in) :: size, lmsize, rmsize
982 real(RKG) :: arrayCentered(size
+lmsize
+rmsize)
1128 PURE module subroutine setCenteredAsis_D0_SK5(arrayCentered, array, fill)
1129#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1130 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredAsis_D0_SK5
1133 character(
*,SKG) ,
intent(out) :: arrayCentered
1134 character(
*,SKG) ,
intent(in) :: array
1135 character(
1,SKG) ,
intent(in) ,
optional :: fill
1140 PURE module subroutine setCenteredAsis_D0_SK4(arrayCentered, array, fill)
1141#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1142 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredAsis_D0_SK4
1145 character(
*,SKG) ,
intent(out) :: arrayCentered
1146 character(
*,SKG) ,
intent(in) :: array
1147 character(
1,SKG) ,
intent(in) ,
optional :: fill
1152 PURE module subroutine setCenteredAsis_D0_SK3(arrayCentered, array, fill)
1153#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1154 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredAsis_D0_SK3
1157 character(
*,SKG) ,
intent(out) :: arrayCentered
1158 character(
*,SKG) ,
intent(in) :: array
1159 character(
1,SKG) ,
intent(in) ,
optional :: fill
1164 PURE module subroutine setCenteredAsis_D0_SK2(arrayCentered, array, fill)
1165#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1166 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredAsis_D0_SK2
1169 character(
*,SKG) ,
intent(out) :: arrayCentered
1170 character(
*,SKG) ,
intent(in) :: array
1171 character(
1,SKG) ,
intent(in) ,
optional :: fill
1176 PURE module subroutine setCenteredAsis_D0_SK1(arrayCentered, array, fill)
1177#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1178 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredAsis_D0_SK1
1181 character(
*,SKG) ,
intent(out) :: arrayCentered
1182 character(
*,SKG) ,
intent(in) :: array
1183 character(
1,SKG) ,
intent(in) ,
optional :: fill
1190 PURE module subroutine setCenteredAsis_D1_SK5(arrayCentered, array, fill)
1191#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1192 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredAsis_D1_SK5
1195 character(
*,SKG) ,
intent(out) ,
contiguous :: arrayCentered(:)
1196 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1197 character(
len(array,IK),SKG) ,
intent(in) ,
optional :: fill
1198 character(
*,SKG) ,
intent(out) ,
contiguous :: array(:)
1203 PURE module subroutine setCenteredAsis_D1_SK4(arrayCentered, array, fill)
1204#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1205 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredAsis_D1_SK4
1208 character(
*,SKG) ,
intent(out) ,
contiguous :: arrayCentered(:)
1209 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1210 character(
len(array,IK),SKG) ,
intent(in) ,
optional :: fill
1215 PURE module subroutine setCenteredAsis_D1_SK3(arrayCentered, array, fill)
1216#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1217 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredAsis_D1_SK3
1220 character(
*,SKG) ,
intent(out) ,
contiguous :: arrayCentered(:)
1221 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1222 character(
len(array,IK),SKG) ,
intent(in) ,
optional :: fill
1227 PURE module subroutine setCenteredAsis_D1_SK2(arrayCentered, array, fill)
1228#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1229 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredAsis_D1_SK2
1232 character(
*,SKG) ,
intent(out) ,
contiguous :: arrayCentered(:)
1233 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1234 character(
len(array,IK),SKG) ,
intent(in) ,
optional :: fill
1239 PURE module subroutine setCenteredAsis_D1_SK1(arrayCentered, array, fill)
1240#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1241 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredAsis_D1_SK1
1244 character(
*,SKG) ,
intent(out) ,
contiguous :: arrayCentered(:)
1245 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1246 character(
len(array,IK),SKG) ,
intent(in) ,
optional :: fill
1253 PURE module subroutine setCenteredAsis_D1_IK5(arrayCentered, array, fill)
1254#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1255 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredAsis_D1_IK5
1258 integer(IKG) ,
intent(out) ,
contiguous :: arrayCentered(:)
1259 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1260 integer(IKG) ,
intent(in) ,
optional :: fill
1265 PURE module subroutine setCenteredAsis_D1_IK4(arrayCentered, array, fill)
1266#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1267 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredAsis_D1_IK4
1270 integer(IKG) ,
intent(out) ,
contiguous :: arrayCentered(:)
1271 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1272 integer(IKG) ,
intent(in) ,
optional :: fill
1277 PURE module subroutine setCenteredAsis_D1_IK3(arrayCentered, array, fill)
1278#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1279 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredAsis_D1_IK3
1282 integer(IKG) ,
intent(out) ,
contiguous :: arrayCentered(:)
1283 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1284 integer(IKG) ,
intent(in) ,
optional :: fill
1289 PURE module subroutine setCenteredAsis_D1_IK2(arrayCentered, array, fill)
1290#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1291 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredAsis_D1_IK2
1294 integer(IKG) ,
intent(out) ,
contiguous :: arrayCentered(:)
1295 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1296 integer(IKG) ,
intent(in) ,
optional :: fill
1301 PURE module subroutine setCenteredAsis_D1_IK1(arrayCentered, array, fill)
1302#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1303 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredAsis_D1_IK1
1306 integer(IKG) ,
intent(out) ,
contiguous :: arrayCentered(:)
1307 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1308 integer(IKG) ,
intent(in) ,
optional :: fill
1315 PURE module subroutine setCenteredAsis_D1_LK5(arrayCentered, array, fill)
1316#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1317 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredAsis_D1_LK5
1320 logical(LKG) ,
intent(out) ,
contiguous :: arrayCentered(:)
1321 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1322 logical(LKG) ,
intent(in) ,
optional :: fill
1327 PURE module subroutine setCenteredAsis_D1_LK4(arrayCentered, array, fill)
1328#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1329 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredAsis_D1_LK4
1332 logical(LKG) ,
intent(out) ,
contiguous :: arrayCentered(:)
1333 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1334 logical(LKG) ,
intent(in) ,
optional :: fill
1339 PURE module subroutine setCenteredAsis_D1_LK3(arrayCentered, array, fill)
1340#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1341 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredAsis_D1_LK3
1344 logical(LKG) ,
intent(out) ,
contiguous :: arrayCentered(:)
1345 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1346 logical(LKG) ,
intent(in) ,
optional :: fill
1351 PURE module subroutine setCenteredAsis_D1_LK2(arrayCentered, array, fill)
1352#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1353 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredAsis_D1_LK2
1356 logical(LKG) ,
intent(out) ,
contiguous :: arrayCentered(:)
1357 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1358 logical(LKG) ,
intent(in) ,
optional :: fill
1363 PURE module subroutine setCenteredAsis_D1_LK1(arrayCentered, array, fill)
1364#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1365 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredAsis_D1_LK1
1368 logical(LKG) ,
intent(out) ,
contiguous :: arrayCentered(:)
1369 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1370 logical(LKG) ,
intent(in) ,
optional :: fill
1377 PURE module subroutine setCenteredAsis_D1_CK5(arrayCentered, array, fill)
1378#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1379 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredAsis_D1_CK5
1382 complex(CKG) ,
intent(out) ,
contiguous :: arrayCentered(:)
1383 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1384 complex(CKG) ,
intent(in) ,
optional :: fill
1389 PURE module subroutine setCenteredAsis_D1_CK4(arrayCentered, array, fill)
1390#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1391 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredAsis_D1_CK4
1394 complex(CKG) ,
intent(out) ,
contiguous :: arrayCentered(:)
1395 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1396 complex(CKG) ,
intent(in) ,
optional :: fill
1401 PURE module subroutine setCenteredAsis_D1_CK3(arrayCentered, array, fill)
1402#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1403 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredAsis_D1_CK3
1406 complex(CKG) ,
intent(out) ,
contiguous :: arrayCentered(:)
1407 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1408 complex(CKG) ,
intent(in) ,
optional :: fill
1413 PURE module subroutine setCenteredAsis_D1_CK2(arrayCentered, array, fill)
1414#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1415 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredAsis_D1_CK2
1418 complex(CKG) ,
intent(out) ,
contiguous :: arrayCentered(:)
1419 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1420 complex(CKG) ,
intent(in) ,
optional :: fill
1425 PURE module subroutine setCenteredAsis_D1_CK1(arrayCentered, array, fill)
1426#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1427 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredAsis_D1_CK1
1430 complex(CKG) ,
intent(out) ,
contiguous :: arrayCentered(:)
1431 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1432 complex(CKG) ,
intent(in) ,
optional :: fill
1439 PURE module subroutine setCenteredAsis_D1_RK5(arrayCentered, array, fill)
1440#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1441 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredAsis_D1_RK5
1444 real(RKG) ,
intent(out) ,
contiguous :: arrayCentered(:)
1445 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1446 real(RKG) ,
intent(in) ,
optional :: fill
1451 PURE module subroutine setCenteredAsis_D1_RK4(arrayCentered, array, fill)
1452#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1453 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredAsis_D1_RK4
1456 real(RKG) ,
intent(out) ,
contiguous :: arrayCentered(:)
1457 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1458 real(RKG) ,
intent(in) ,
optional :: fill
1463 PURE module subroutine setCenteredAsis_D1_RK3(arrayCentered, array, fill)
1464#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1465 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredAsis_D1_RK3
1468 real(RKG) ,
intent(out) ,
contiguous :: arrayCentered(:)
1469 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1470 real(RKG) ,
intent(in) ,
optional :: fill
1475 PURE module subroutine setCenteredAsis_D1_RK2(arrayCentered, array, fill)
1476#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1477 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredAsis_D1_RK2
1480 real(RKG) ,
intent(out) ,
contiguous :: arrayCentered(:)
1481 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1482 real(RKG) ,
intent(in) ,
optional :: fill
1487 PURE module subroutine setCenteredAsis_D1_RK1(arrayCentered, array, fill)
1488#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1489 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredAsis_D1_RK1
1492 real(RKG) ,
intent(out) ,
contiguous :: arrayCentered(:)
1493 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1494 real(RKG) ,
intent(in) ,
optional :: fill
1507 PURE module subroutine setCenteredMarg_D0_SK5(arrayCentered, array, lmsize, rmsize, fill, lmfill, rmfill)
1508#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1509 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredMarg_D0_SK5
1512 character(
*,SKG) ,
intent(out) :: arrayCentered
1513 character(
*,SKG) ,
intent(in) :: array
1514 character(
1,SKG) ,
intent(in) ,
optional :: fill, lmfill, rmfill
1515 integer(IK) ,
intent(in) :: lmsize, rmsize
1520 PURE module subroutine setCenteredMarg_D0_SK4(arrayCentered, array, lmsize, rmsize, fill, lmfill, rmfill)
1521#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1522 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredMarg_D0_SK4
1525 character(
*,SKG) ,
intent(out) :: arrayCentered
1526 character(
*,SKG) ,
intent(in) :: array
1527 character(
1,SKG) ,
intent(in) ,
optional :: fill, lmfill, rmfill
1528 integer(IK) ,
intent(in) :: lmsize, rmsize
1533 PURE module subroutine setCenteredMarg_D0_SK3(arrayCentered, array, lmsize, rmsize, fill, lmfill, rmfill)
1534#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1535 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredMarg_D0_SK3
1538 character(
*,SKG) ,
intent(out) :: arrayCentered
1539 character(
*,SKG) ,
intent(in) :: array
1540 character(
1,SKG) ,
intent(in) ,
optional :: fill, lmfill, rmfill
1541 integer(IK) ,
intent(in) :: lmsize, rmsize
1546 PURE module subroutine setCenteredMarg_D0_SK2(arrayCentered, array, lmsize, rmsize, fill, lmfill, rmfill)
1547#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1548 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredMarg_D0_SK2
1551 character(
*,SKG) ,
intent(out) :: arrayCentered
1552 character(
*,SKG) ,
intent(in) :: array
1553 character(
1,SKG) ,
intent(in) ,
optional :: fill, lmfill, rmfill
1554 integer(IK) ,
intent(in) :: lmsize, rmsize
1559 PURE module subroutine setCenteredMarg_D0_SK1(arrayCentered, array, lmsize, rmsize, fill, lmfill, rmfill)
1560#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1561 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredMarg_D0_SK1
1564 character(
*,SKG) ,
intent(out) :: arrayCentered
1565 character(
*,SKG) ,
intent(in) :: array
1566 character(
1,SKG) ,
intent(in) ,
optional :: fill, lmfill, rmfill
1567 integer(IK) ,
intent(in) :: lmsize, rmsize
1574 PURE module subroutine setCenteredMarg_D1_SK5(arrayCentered, array, lmsize, rmsize, fill, lmfill, rmfill)
1575#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1576 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredMarg_D1_SK5
1579 character(
*,SKG) ,
intent(out) ,
contiguous :: arrayCentered(:)
1580 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1581 character(
len(array,IK),SKG) ,
intent(in) ,
optional :: fill, lmfill, rmfill
1582 integer(IK) ,
intent(in) :: lmsize, rmsize
1587 PURE module subroutine setCenteredMarg_D1_SK4(arrayCentered, array, lmsize, rmsize, fill, lmfill, rmfill)
1588#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1589 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredMarg_D1_SK4
1592 character(
*,SKG) ,
intent(out) ,
contiguous :: arrayCentered(:)
1593 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1594 character(
len(array,IK),SKG) ,
intent(in) ,
optional :: fill, lmfill, rmfill
1595 integer(IK) ,
intent(in) :: lmsize, rmsize
1600 PURE module subroutine setCenteredMarg_D1_SK3(arrayCentered, array, lmsize, rmsize, fill, lmfill, rmfill)
1601#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1602 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredMarg_D1_SK3
1605 character(
*,SKG) ,
intent(out) ,
contiguous :: arrayCentered(:)
1606 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1607 character(
len(array,IK),SKG) ,
intent(in) ,
optional :: fill, lmfill, rmfill
1608 integer(IK) ,
intent(in) :: lmsize, rmsize
1613 PURE module subroutine setCenteredMarg_D1_SK2(arrayCentered, array, lmsize, rmsize, fill, lmfill, rmfill)
1614#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1615 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredMarg_D1_SK2
1618 character(
*,SKG) ,
intent(out) ,
contiguous :: arrayCentered(:)
1619 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1620 character(
len(array,IK),SKG) ,
intent(in) ,
optional :: fill, lmfill, rmfill
1621 integer(IK) ,
intent(in) :: lmsize, rmsize
1626 PURE module subroutine setCenteredMarg_D1_SK1(arrayCentered, array, lmsize, rmsize, fill, lmfill, rmfill)
1627#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1628 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredMarg_D1_SK1
1631 character(
*,SKG) ,
intent(out) ,
contiguous :: arrayCentered(:)
1632 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1633 character(
len(array,IK),SKG) ,
intent(in) ,
optional :: fill, lmfill, rmfill
1634 integer(IK) ,
intent(in) :: lmsize, rmsize
1641 PURE module subroutine setCenteredMarg_D1_IK5(arrayCentered, array, lmsize, rmsize, fill, lmfill, rmfill)
1642#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1643 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredMarg_D1_IK5
1646 integer(IKG) ,
intent(out) ,
contiguous :: arrayCentered(:)
1647 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1648 integer(IKG) ,
intent(in) ,
optional :: fill, lmfill, rmfill
1649 integer(IK) ,
intent(in) :: lmsize, rmsize
1654 PURE module subroutine setCenteredMarg_D1_IK4(arrayCentered, array, lmsize, rmsize, fill, lmfill, rmfill)
1655#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1656 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredMarg_D1_IK4
1659 integer(IKG) ,
intent(out) ,
contiguous :: arrayCentered(:)
1660 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1661 integer(IKG) ,
intent(in) ,
optional :: fill, lmfill, rmfill
1662 integer(IK) ,
intent(in) :: lmsize, rmsize
1667 PURE module subroutine setCenteredMarg_D1_IK3(arrayCentered, array, lmsize, rmsize, fill, lmfill, rmfill)
1668#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1669 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredMarg_D1_IK3
1672 integer(IKG) ,
intent(out) ,
contiguous :: arrayCentered(:)
1673 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1674 integer(IKG) ,
intent(in) ,
optional :: fill, lmfill, rmfill
1675 integer(IK) ,
intent(in) :: lmsize, rmsize
1680 PURE module subroutine setCenteredMarg_D1_IK2(arrayCentered, array, lmsize, rmsize, fill, lmfill, rmfill)
1681#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1682 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredMarg_D1_IK2
1685 integer(IKG) ,
intent(out) ,
contiguous :: arrayCentered(:)
1686 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1687 integer(IKG) ,
intent(in) ,
optional :: fill, lmfill, rmfill
1688 integer(IK) ,
intent(in) :: lmsize, rmsize
1693 PURE module subroutine setCenteredMarg_D1_IK1(arrayCentered, array, lmsize, rmsize, fill, lmfill, rmfill)
1694#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1695 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredMarg_D1_IK1
1698 integer(IKG) ,
intent(out) ,
contiguous :: arrayCentered(:)
1699 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1700 integer(IKG) ,
intent(in) ,
optional :: fill, lmfill, rmfill
1701 integer(IK) ,
intent(in) :: lmsize, rmsize
1708 PURE module subroutine setCenteredMarg_D1_LK5(arrayCentered, array, lmsize, rmsize, fill, lmfill, rmfill)
1709#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1710 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredMarg_D1_LK5
1713 logical(LKG) ,
intent(out) ,
contiguous :: arrayCentered(:)
1714 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1715 logical(LKG) ,
intent(in) ,
optional :: fill, lmfill, rmfill
1716 integer(IK) ,
intent(in) :: lmsize, rmsize
1721 PURE module subroutine setCenteredMarg_D1_LK4(arrayCentered, array, lmsize, rmsize, fill, lmfill, rmfill)
1722#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1723 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredMarg_D1_LK4
1726 logical(LKG) ,
intent(out) ,
contiguous :: arrayCentered(:)
1727 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1728 logical(LKG) ,
intent(in) ,
optional :: fill, lmfill, rmfill
1729 integer(IK) ,
intent(in) :: lmsize, rmsize
1734 PURE module subroutine setCenteredMarg_D1_LK3(arrayCentered, array, lmsize, rmsize, fill, lmfill, rmfill)
1735#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1736 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredMarg_D1_LK3
1739 logical(LKG) ,
intent(out) ,
contiguous :: arrayCentered(:)
1740 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1741 logical(LKG) ,
intent(in) ,
optional :: fill, lmfill, rmfill
1742 integer(IK) ,
intent(in) :: lmsize, rmsize
1747 PURE module subroutine setCenteredMarg_D1_LK2(arrayCentered, array, lmsize, rmsize, fill, lmfill, rmfill)
1748#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1749 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredMarg_D1_LK2
1752 logical(LKG) ,
intent(out) ,
contiguous :: arrayCentered(:)
1753 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1754 logical(LKG) ,
intent(in) ,
optional :: fill, lmfill, rmfill
1755 integer(IK) ,
intent(in) :: lmsize, rmsize
1760 PURE module subroutine setCenteredMarg_D1_LK1(arrayCentered, array, lmsize, rmsize, fill, lmfill, rmfill)
1761#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1762 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredMarg_D1_LK1
1765 logical(LKG) ,
intent(out) ,
contiguous :: arrayCentered(:)
1766 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1767 logical(LKG) ,
intent(in) ,
optional :: fill, lmfill, rmfill
1768 integer(IK) ,
intent(in) :: lmsize, rmsize
1775 PURE module subroutine setCenteredMarg_D1_CK5(arrayCentered, array, lmsize, rmsize, fill, lmfill, rmfill)
1776#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1777 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredMarg_D1_CK5
1780 complex(CKG) ,
intent(out) ,
contiguous :: arrayCentered(:)
1781 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1782 complex(CKG) ,
intent(in) ,
optional :: fill, lmfill, rmfill
1783 integer(IK) ,
intent(in) :: lmsize, rmsize
1788 PURE module subroutine setCenteredMarg_D1_CK4(arrayCentered, array, lmsize, rmsize, fill, lmfill, rmfill)
1789#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1790 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredMarg_D1_CK4
1793 complex(CKG) ,
intent(out) ,
contiguous :: arrayCentered(:)
1794 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1795 complex(CKG) ,
intent(in) ,
optional :: fill, lmfill, rmfill
1796 integer(IK) ,
intent(in) :: lmsize, rmsize
1801 PURE module subroutine setCenteredMarg_D1_CK3(arrayCentered, array, lmsize, rmsize, fill, lmfill, rmfill)
1802#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1803 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredMarg_D1_CK3
1806 complex(CKG) ,
intent(out) ,
contiguous :: arrayCentered(:)
1807 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1808 complex(CKG) ,
intent(in) ,
optional :: fill, lmfill, rmfill
1809 integer(IK) ,
intent(in) :: lmsize, rmsize
1814 PURE module subroutine setCenteredMarg_D1_CK2(arrayCentered, array, lmsize, rmsize, fill, lmfill, rmfill)
1815#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1816 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredMarg_D1_CK2
1819 complex(CKG) ,
intent(out) ,
contiguous :: arrayCentered(:)
1820 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1821 complex(CKG) ,
intent(in) ,
optional :: fill, lmfill, rmfill
1822 integer(IK) ,
intent(in) :: lmsize, rmsize
1827 PURE module subroutine setCenteredMarg_D1_CK1(arrayCentered, array, lmsize, rmsize, fill, lmfill, rmfill)
1828#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1829 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredMarg_D1_CK1
1832 complex(CKG) ,
intent(out) ,
contiguous :: arrayCentered(:)
1833 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1834 complex(CKG) ,
intent(in) ,
optional :: fill, lmfill, rmfill
1835 integer(IK) ,
intent(in) :: lmsize, rmsize
1842 PURE module subroutine setCenteredMarg_D1_RK5(arrayCentered, array, lmsize, rmsize, fill, lmfill, rmfill)
1843#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1844 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredMarg_D1_RK5
1847 real(RKG) ,
intent(out) ,
contiguous :: arrayCentered(:)
1848 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1849 real(RKG) ,
intent(in) ,
optional :: fill, lmfill, rmfill
1850 integer(IK) ,
intent(in) :: lmsize, rmsize
1855 PURE module subroutine setCenteredMarg_D1_RK4(arrayCentered, array, lmsize, rmsize, fill, lmfill, rmfill)
1856#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1857 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredMarg_D1_RK4
1860 real(RKG) ,
intent(out) ,
contiguous :: arrayCentered(:)
1861 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1862 real(RKG) ,
intent(in) ,
optional :: fill, lmfill, rmfill
1863 integer(IK) ,
intent(in) :: lmsize, rmsize
1868 PURE module subroutine setCenteredMarg_D1_RK3(arrayCentered, array, lmsize, rmsize, fill, lmfill, rmfill)
1869#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1870 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredMarg_D1_RK3
1873 real(RKG) ,
intent(out) ,
contiguous :: arrayCentered(:)
1874 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1875 real(RKG) ,
intent(in) ,
optional :: fill, lmfill, rmfill
1876 integer(IK) ,
intent(in) :: lmsize, rmsize
1881 PURE module subroutine setCenteredMarg_D1_RK2(arrayCentered, array, lmsize, rmsize, fill, lmfill, rmfill)
1882#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1883 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredMarg_D1_RK2
1886 real(RKG) ,
intent(out) ,
contiguous :: arrayCentered(:)
1887 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1888 real(RKG) ,
intent(in) ,
optional :: fill, lmfill, rmfill
1889 integer(IK) ,
intent(in) :: lmsize, rmsize
1894 PURE module subroutine setCenteredMarg_D1_RK1(arrayCentered, array, lmsize, rmsize, fill, lmfill, rmfill)
1895#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1896 !DEC$ ATTRIBUTES DLLEXPORT :: setCenteredMarg_D1_RK1
1899 real(RKG) ,
intent(out) ,
contiguous :: arrayCentered(:)
1900 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1901 real(RKG) ,
intent(in) ,
optional :: fill, lmfill, rmfill
1902 integer(IK) ,
intent(in) :: lmsize, rmsize
Generate and return a resized and centered copy of the input array within the newly allocated arrayCe...
Center the contents of the input array within the output arrayCentered while filling the newly added ...
This module contains procedures and generic interfaces for resizing an input array and centering the ...
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...