147 PURE module function getRemappedFor_D0_SK5(array, index)
result(arrayNew)
148#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
149 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedFor_D0_SK5
152 character(
*,SKG) ,
intent(in) :: array
153 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
154 character(
len(array,IK),SKG) :: arrayNew
159 PURE module function getRemappedFor_D0_SK4(array, index)
result(arrayNew)
160#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
161 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedFor_D0_SK4
164 character(
*,SKG) ,
intent(in) :: array
165 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
166 character(
len(array,IK),SKG) :: arrayNew
171 PURE module function getRemappedFor_D0_SK3(array, index)
result(arrayNew)
172#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
173 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedFor_D0_SK3
176 character(
*,SKG) ,
intent(in) :: array
177 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
178 character(
len(array,IK),SKG) :: arrayNew
183 PURE module function getRemappedFor_D0_SK2(array, index)
result(arrayNew)
184#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
185 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedFor_D0_SK2
188 character(
*,SKG) ,
intent(in) :: array
189 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
190 character(
len(array,IK),SKG) :: arrayNew
195 PURE module function getRemappedFor_D0_SK1(array, index)
result(arrayNew)
196#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
197 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedFor_D0_SK1
200 character(
*,SKG) ,
intent(in) :: array
201 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
202 character(
len(array,IK),SKG) :: arrayNew
209 PURE module function getRemappedFor_D1_SK5(array, index)
result(arrayNew)
210#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
211 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedFor_D1_SK5
214 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
215 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
216 character(
len(array,IK),SKG) :: arrayNew(
size(array,
kind = IK))
221 PURE module function getRemappedFor_D1_SK4(array, index)
result(arrayNew)
222#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
223 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedFor_D1_SK4
226 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
227 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
228 character(
len(array,IK),SKG) :: arrayNew(
size(array,
kind = IK))
233 PURE module function getRemappedFor_D1_SK3(array, index)
result(arrayNew)
234#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
235 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedFor_D1_SK3
238 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
239 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
240 character(
len(array,IK),SKG) :: arrayNew(
size(array,
kind = IK))
245 PURE module function getRemappedFor_D1_SK2(array, index)
result(arrayNew)
246#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
247 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedFor_D1_SK2
250 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
251 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
252 character(
len(array,IK),SKG) :: arrayNew(
size(array,
kind = IK))
257 PURE module function getRemappedFor_D1_SK1(array, index)
result(arrayNew)
258#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
259 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedFor_D1_SK1
262 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
263 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
264 character(
len(array,IK),SKG) :: arrayNew(
size(array,
kind = IK))
271 PURE module function getRemappedFor_D1_IK5(array, index)
result(arrayNew)
272#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
273 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedFor_D1_IK5
276 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
277 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
278 integer(IKG) :: arrayNew(
size(array,
kind = IK))
283 PURE module function getRemappedFor_D1_IK4(array, index)
result(arrayNew)
284#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
285 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedFor_D1_IK4
288 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
289 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
290 integer(IKG) :: arrayNew(
size(array,
kind = IK))
295 PURE module function getRemappedFor_D1_IK3(array, index)
result(arrayNew)
296#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
297 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedFor_D1_IK3
300 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
301 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
302 integer(IKG) :: arrayNew(
size(array,
kind = IK))
307 PURE module function getRemappedFor_D1_IK2(array, index)
result(arrayNew)
308#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
309 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedFor_D1_IK2
312 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
313 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
314 integer(IKG) :: arrayNew(
size(array,
kind = IK))
319 PURE module function getRemappedFor_D1_IK1(array, index)
result(arrayNew)
320#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
321 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedFor_D1_IK1
324 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
325 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
326 integer(IKG) :: arrayNew(
size(array,
kind = IK))
333 PURE module function getRemappedFor_D1_LK5(array, index)
result(arrayNew)
334#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
335 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedFor_D1_LK5
338 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
339 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
340 logical(LKG) :: arrayNew(
size(array,
kind = IK))
345 PURE module function getRemappedFor_D1_LK4(array, index)
result(arrayNew)
346#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
347 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedFor_D1_LK4
350 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
351 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
352 logical(LKG) :: arrayNew(
size(array,
kind = IK))
357 PURE module function getRemappedFor_D1_LK3(array, index)
result(arrayNew)
358#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
359 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedFor_D1_LK3
362 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
363 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
364 logical(LKG) :: arrayNew(
size(array,
kind = IK))
369 PURE module function getRemappedFor_D1_LK2(array, index)
result(arrayNew)
370#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
371 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedFor_D1_LK2
374 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
375 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
376 logical(LKG) :: arrayNew(
size(array,
kind = IK))
381 PURE module function getRemappedFor_D1_LK1(array, index)
result(arrayNew)
382#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
383 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedFor_D1_LK1
386 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
387 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
388 logical(LKG) :: arrayNew(
size(array,
kind = IK))
395 PURE module function getRemappedFor_D1_CK5(array, index)
result(arrayNew)
396#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
397 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedFor_D1_CK5
400 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
401 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
402 complex(CKG) :: arrayNew(
size(array,
kind = IK))
407 PURE module function getRemappedFor_D1_CK4(array, index)
result(arrayNew)
408#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
409 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedFor_D1_CK4
412 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
413 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
414 complex(CKG) :: arrayNew(
size(array,
kind = IK))
419 PURE module function getRemappedFor_D1_CK3(array, index)
result(arrayNew)
420#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
421 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedFor_D1_CK3
424 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
425 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
426 complex(CKG) :: arrayNew(
size(array,
kind = IK))
431 PURE module function getRemappedFor_D1_CK2(array, index)
result(arrayNew)
432#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
433 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedFor_D1_CK2
436 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
437 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
438 complex(CKG) :: arrayNew(
size(array,
kind = IK))
443 PURE module function getRemappedFor_D1_CK1(array, index)
result(arrayNew)
444#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
445 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedFor_D1_CK1
448 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
449 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
450 complex(CKG) :: arrayNew(
size(array,
kind = IK))
457 PURE module function getRemappedFor_D1_RK5(array, index)
result(arrayNew)
458#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
459 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedFor_D1_RK5
462 real(RKG) ,
intent(in) ,
contiguous :: array(:)
463 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
464 real(RKG) :: arrayNew(
size(array,
kind = IK))
469 PURE module function getRemappedFor_D1_RK4(array, index)
result(arrayNew)
470#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
471 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedFor_D1_RK4
474 real(RKG) ,
intent(in) ,
contiguous :: array(:)
475 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
476 real(RKG) :: arrayNew(
size(array,
kind = IK))
481 PURE module function getRemappedFor_D1_RK3(array, index)
result(arrayNew)
482#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
483 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedFor_D1_RK3
486 real(RKG) ,
intent(in) ,
contiguous :: array(:)
487 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
488 real(RKG) :: arrayNew(
size(array,
kind = IK))
493 PURE module function getRemappedFor_D1_RK2(array, index)
result(arrayNew)
494#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
495 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedFor_D1_RK2
498 real(RKG) ,
intent(in) ,
contiguous :: array(:)
499 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
500 real(RKG) :: arrayNew(
size(array,
kind = IK))
505 PURE module function getRemappedFor_D1_RK1(array, index)
result(arrayNew)
506#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
507 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedFor_D1_RK1
510 real(RKG) ,
intent(in) ,
contiguous :: array(:)
511 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
512 real(RKG) :: arrayNew(
size(array,
kind = IK))
521 PURE module function getRemappedRev_D0_SK5(array, index, action)
result(arrayNew)
522#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
523 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedRev_D0_SK5
526 character(
*,SKG) ,
intent(in) :: array
527 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
528 type(reverse_type) ,
intent(in) :: action
529 character(
len(array,IK),SKG) :: arrayNew
534 PURE module function getRemappedRev_D0_SK4(array, index, action)
result(arrayNew)
535#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
536 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedRev_D0_SK4
539 character(
*,SKG) ,
intent(in) :: array
540 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
541 type(reverse_type) ,
intent(in) :: action
542 character(
len(array,IK),SKG) :: arrayNew
547 PURE module function getRemappedRev_D0_SK3(array, index, action)
result(arrayNew)
548#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
549 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedRev_D0_SK3
552 character(
*,SKG) ,
intent(in) :: array
553 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
554 type(reverse_type) ,
intent(in) :: action
555 character(
len(array,IK),SKG) :: arrayNew
560 PURE module function getRemappedRev_D0_SK2(array, index, action)
result(arrayNew)
561#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
562 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedRev_D0_SK2
565 character(
*,SKG) ,
intent(in) :: array
566 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
567 type(reverse_type) ,
intent(in) :: action
568 character(
len(array,IK),SKG) :: arrayNew
573 PURE module function getRemappedRev_D0_SK1(array, index, action)
result(arrayNew)
574#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
575 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedRev_D0_SK1
578 character(
*,SKG) ,
intent(in) :: array
579 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
580 type(reverse_type) ,
intent(in) :: action
581 character(
len(array,IK),SKG) :: arrayNew
588 PURE module function getRemappedRev_D1_SK5(array, index, action)
result(arrayNew)
589#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
590 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedRev_D1_SK5
593 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
594 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
595 type(reverse_type) ,
intent(in) :: action
596 character(
len(array,IK),SKG) :: arrayNew(
size(array,
kind = IK))
601 PURE module function getRemappedRev_D1_SK4(array, index, action)
result(arrayNew)
602#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
603 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedRev_D1_SK4
606 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
607 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
608 type(reverse_type) ,
intent(in) :: action
609 character(
len(array,IK),SKG) :: arrayNew(
size(array,
kind = IK))
614 PURE module function getRemappedRev_D1_SK3(array, index, action)
result(arrayNew)
615#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
616 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedRev_D1_SK3
619 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
620 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
621 type(reverse_type) ,
intent(in) :: action
622 character(
len(array,IK),SKG) :: arrayNew(
size(array,
kind = IK))
627 PURE module function getRemappedRev_D1_SK2(array, index, action)
result(arrayNew)
628#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
629 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedRev_D1_SK2
632 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
633 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
634 type(reverse_type) ,
intent(in) :: action
635 character(
len(array,IK),SKG) :: arrayNew(
size(array,
kind = IK))
640 PURE module function getRemappedRev_D1_SK1(array, index, action)
result(arrayNew)
641#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
642 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedRev_D1_SK1
645 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
646 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
647 type(reverse_type) ,
intent(in) :: action
648 character(
len(array,IK),SKG) :: arrayNew(
size(array,
kind = IK))
655 PURE module function getRemappedRev_D1_IK5(array, index, action)
result(arrayNew)
656#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
657 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedRev_D1_IK5
660 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
661 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
662 type(reverse_type) ,
intent(in) :: action
663 integer(IKG) :: arrayNew(
size(array,
kind = IK))
668 PURE module function getRemappedRev_D1_IK4(array, index, action)
result(arrayNew)
669#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
670 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedRev_D1_IK4
673 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
674 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
675 type(reverse_type) ,
intent(in) :: action
676 integer(IKG) :: arrayNew(
size(array,
kind = IK))
681 PURE module function getRemappedRev_D1_IK3(array, index, action)
result(arrayNew)
682#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
683 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedRev_D1_IK3
686 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
687 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
688 type(reverse_type) ,
intent(in) :: action
689 integer(IKG) :: arrayNew(
size(array,
kind = IK))
694 PURE module function getRemappedRev_D1_IK2(array, index, action)
result(arrayNew)
695#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
696 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedRev_D1_IK2
699 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
700 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
701 type(reverse_type) ,
intent(in) :: action
702 integer(IKG) :: arrayNew(
size(array,
kind = IK))
707 PURE module function getRemappedRev_D1_IK1(array, index, action)
result(arrayNew)
708#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
709 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedRev_D1_IK1
712 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
713 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
714 type(reverse_type) ,
intent(in) :: action
715 integer(IKG) :: arrayNew(
size(array,
kind = IK))
722 PURE module function getRemappedRev_D1_LK5(array, index, action)
result(arrayNew)
723#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
724 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedRev_D1_LK5
727 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
728 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
729 type(reverse_type) ,
intent(in) :: action
730 logical(LKG) :: arrayNew(
size(array,
kind = IK))
735 PURE module function getRemappedRev_D1_LK4(array, index, action)
result(arrayNew)
736#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
737 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedRev_D1_LK4
740 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
741 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
742 type(reverse_type) ,
intent(in) :: action
743 logical(LKG) :: arrayNew(
size(array,
kind = IK))
748 PURE module function getRemappedRev_D1_LK3(array, index, action)
result(arrayNew)
749#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
750 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedRev_D1_LK3
753 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
754 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
755 type(reverse_type) ,
intent(in) :: action
756 logical(LKG) :: arrayNew(
size(array,
kind = IK))
761 PURE module function getRemappedRev_D1_LK2(array, index, action)
result(arrayNew)
762#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
763 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedRev_D1_LK2
766 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
767 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
768 type(reverse_type) ,
intent(in) :: action
769 logical(LKG) :: arrayNew(
size(array,
kind = IK))
774 PURE module function getRemappedRev_D1_LK1(array, index, action)
result(arrayNew)
775#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
776 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedRev_D1_LK1
779 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
780 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
781 type(reverse_type) ,
intent(in) :: action
782 logical(LKG) :: arrayNew(
size(array,
kind = IK))
789 PURE module function getRemappedRev_D1_CK5(array, index, action)
result(arrayNew)
790#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
791 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedRev_D1_CK5
794 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
795 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
796 type(reverse_type) ,
intent(in) :: action
797 complex(CKG) :: arrayNew(
size(array,
kind = IK))
802 PURE module function getRemappedRev_D1_CK4(array, index, action)
result(arrayNew)
803#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
804 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedRev_D1_CK4
807 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
808 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
809 type(reverse_type) ,
intent(in) :: action
810 complex(CKG) :: arrayNew(
size(array,
kind = IK))
815 PURE module function getRemappedRev_D1_CK3(array, index, action)
result(arrayNew)
816#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
817 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedRev_D1_CK3
820 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
821 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
822 type(reverse_type) ,
intent(in) :: action
823 complex(CKG) :: arrayNew(
size(array,
kind = IK))
828 PURE module function getRemappedRev_D1_CK2(array, index, action)
result(arrayNew)
829#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
830 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedRev_D1_CK2
833 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
834 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
835 type(reverse_type) ,
intent(in) :: action
836 complex(CKG) :: arrayNew(
size(array,
kind = IK))
841 PURE module function getRemappedRev_D1_CK1(array, index, action)
result(arrayNew)
842#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
843 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedRev_D1_CK1
846 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
847 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
848 type(reverse_type) ,
intent(in) :: action
849 complex(CKG) :: arrayNew(
size(array,
kind = IK))
856 PURE module function getRemappedRev_D1_RK5(array, index, action)
result(arrayNew)
857#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
858 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedRev_D1_RK5
861 real(RKG) ,
intent(in) ,
contiguous :: array(:)
862 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
863 type(reverse_type) ,
intent(in) :: action
864 real(RKG) :: arrayNew(
size(array,
kind = IK))
869 PURE module function getRemappedRev_D1_RK4(array, index, action)
result(arrayNew)
870#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
871 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedRev_D1_RK4
874 real(RKG) ,
intent(in) ,
contiguous :: array(:)
875 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
876 type(reverse_type) ,
intent(in) :: action
877 real(RKG) :: arrayNew(
size(array,
kind = IK))
882 PURE module function getRemappedRev_D1_RK3(array, index, action)
result(arrayNew)
883#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
884 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedRev_D1_RK3
887 real(RKG) ,
intent(in) ,
contiguous :: array(:)
888 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
889 type(reverse_type) ,
intent(in) :: action
890 real(RKG) :: arrayNew(
size(array,
kind = IK))
895 PURE module function getRemappedRev_D1_RK2(array, index, action)
result(arrayNew)
896#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
897 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedRev_D1_RK2
900 real(RKG) ,
intent(in) ,
contiguous :: array(:)
901 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
902 type(reverse_type) ,
intent(in) :: action
903 real(RKG) :: arrayNew(
size(array,
kind = IK))
908 PURE module function getRemappedRev_D1_RK1(array, index, action)
result(arrayNew)
909#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
910 !DEC$ ATTRIBUTES DLLEXPORT :: getRemappedRev_D1_RK1
913 real(RKG) ,
intent(in) ,
contiguous :: array(:)
914 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
915 type(reverse_type) ,
intent(in) :: action
916 real(RKG) :: arrayNew(
size(array,
kind = IK))
1084 PURE module subroutine setRemappedForOld_D0_SK5(array, index)
1085#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1086 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForOld_D0_SK5
1089 character(:,SKG) ,
intent(inout) ,
allocatable :: array
1090 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1095 PURE module subroutine setRemappedForOld_D0_SK4(array, index)
1096#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1097 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForOld_D0_SK4
1100 character(:,SKG) ,
intent(inout) ,
allocatable :: array
1101 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1106 PURE module subroutine setRemappedForOld_D0_SK3(array, index)
1107#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1108 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForOld_D0_SK3
1111 character(:,SKG) ,
intent(inout) ,
allocatable :: array
1112 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1117 PURE module subroutine setRemappedForOld_D0_SK2(array, index)
1118#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1119 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForOld_D0_SK2
1122 character(:,SKG) ,
intent(inout) ,
allocatable :: array
1123 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1128 PURE module subroutine setRemappedForOld_D0_SK1(array, index)
1129#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1130 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForOld_D0_SK1
1133 character(:,SKG) ,
intent(inout) ,
allocatable :: array
1134 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1141 PURE module subroutine setRemappedForOld_D1_SK5(array, index)
1142#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1143 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForOld_D1_SK5
1146 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
1147 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1152 PURE module subroutine setRemappedForOld_D1_SK4(array, index)
1153#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1154 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForOld_D1_SK4
1157 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
1158 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1163 PURE module subroutine setRemappedForOld_D1_SK3(array, index)
1164#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1165 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForOld_D1_SK3
1168 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
1169 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1174 PURE module subroutine setRemappedForOld_D1_SK2(array, index)
1175#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1176 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForOld_D1_SK2
1179 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
1180 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1185 PURE module subroutine setRemappedForOld_D1_SK1(array, index)
1186#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1187 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForOld_D1_SK1
1190 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
1191 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1198 PURE module subroutine setRemappedForOld_D1_IK5(array, index)
1199#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1200 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForOld_D1_IK5
1203 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
1204 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1209 PURE module subroutine setRemappedForOld_D1_IK4(array, index)
1210#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1211 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForOld_D1_IK4
1214 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
1215 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1220 PURE module subroutine setRemappedForOld_D1_IK3(array, index)
1221#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1222 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForOld_D1_IK3
1225 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
1226 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1231 PURE module subroutine setRemappedForOld_D1_IK2(array, index)
1232#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1233 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForOld_D1_IK2
1236 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
1237 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1242 PURE module subroutine setRemappedForOld_D1_IK1(array, index)
1243#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1244 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForOld_D1_IK1
1247 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
1248 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1255 PURE module subroutine setRemappedForOld_D1_LK5(array, index)
1256#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1257 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForOld_D1_LK5
1260 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
1261 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1266 PURE module subroutine setRemappedForOld_D1_LK4(array, index)
1267#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1268 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForOld_D1_LK4
1271 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
1272 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1277 PURE module subroutine setRemappedForOld_D1_LK3(array, index)
1278#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1279 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForOld_D1_LK3
1282 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
1283 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1288 PURE module subroutine setRemappedForOld_D1_LK2(array, index)
1289#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1290 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForOld_D1_LK2
1293 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
1294 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1299 PURE module subroutine setRemappedForOld_D1_LK1(array, index)
1300#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1301 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForOld_D1_LK1
1304 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
1305 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1312 PURE module subroutine setRemappedForOld_D1_CK5(array, index)
1313#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1314 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForOld_D1_CK5
1317 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
1318 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1323 PURE module subroutine setRemappedForOld_D1_CK4(array, index)
1324#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1325 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForOld_D1_CK4
1328 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
1329 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1334 PURE module subroutine setRemappedForOld_D1_CK3(array, index)
1335#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1336 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForOld_D1_CK3
1339 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
1340 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1345 PURE module subroutine setRemappedForOld_D1_CK2(array, index)
1346#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1347 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForOld_D1_CK2
1350 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
1351 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1356 PURE module subroutine setRemappedForOld_D1_CK1(array, index)
1357#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1358 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForOld_D1_CK1
1361 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
1362 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1369 PURE module subroutine setRemappedForOld_D1_RK5(array, index)
1370#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1371 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForOld_D1_RK5
1374 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
1375 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1380 PURE module subroutine setRemappedForOld_D1_RK4(array, index)
1381#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1382 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForOld_D1_RK4
1385 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
1386 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1391 PURE module subroutine setRemappedForOld_D1_RK3(array, index)
1392#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1393 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForOld_D1_RK3
1396 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
1397 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1402 PURE module subroutine setRemappedForOld_D1_RK2(array, index)
1403#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1404 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForOld_D1_RK2
1407 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
1408 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1413 PURE module subroutine setRemappedForOld_D1_RK1(array, index)
1414#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1415 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForOld_D1_RK1
1418 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
1419 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1428 PURE module subroutine setRemappedRevOld_D0_SK5(array, index, action)
1429#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1430 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevOld_D0_SK5
1433 character(:,SKG) ,
intent(inout) ,
allocatable :: array
1434 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1435 type(reverse_type) ,
intent(in) :: action
1440 PURE module subroutine setRemappedRevOld_D0_SK4(array, index, action)
1441#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1442 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevOld_D0_SK4
1445 character(:,SKG) ,
intent(inout) ,
allocatable :: array
1446 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1447 type(reverse_type) ,
intent(in) :: action
1452 PURE module subroutine setRemappedRevOld_D0_SK3(array, index, action)
1453#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1454 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevOld_D0_SK3
1457 character(:,SKG) ,
intent(inout) ,
allocatable :: array
1458 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1459 type(reverse_type) ,
intent(in) :: action
1464 PURE module subroutine setRemappedRevOld_D0_SK2(array, index, action)
1465#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1466 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevOld_D0_SK2
1469 character(:,SKG) ,
intent(inout) ,
allocatable :: array
1470 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1471 type(reverse_type) ,
intent(in) :: action
1476 PURE module subroutine setRemappedRevOld_D0_SK1(array, index, action)
1477#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1478 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevOld_D0_SK1
1481 character(:,SKG) ,
intent(inout) ,
allocatable :: array
1482 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1483 type(reverse_type) ,
intent(in) :: action
1490 PURE module subroutine setRemappedRevOld_D1_SK5(array, index, action)
1491#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1492 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevOld_D1_SK5
1495 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
1496 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1497 type(reverse_type) ,
intent(in) :: action
1502 PURE module subroutine setRemappedRevOld_D1_SK4(array, index, action)
1503#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1504 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevOld_D1_SK4
1507 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
1508 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1509 type(reverse_type) ,
intent(in) :: action
1514 PURE module subroutine setRemappedRevOld_D1_SK3(array, index, action)
1515#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1516 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevOld_D1_SK3
1519 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
1520 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1521 type(reverse_type) ,
intent(in) :: action
1526 PURE module subroutine setRemappedRevOld_D1_SK2(array, index, action)
1527#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1528 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevOld_D1_SK2
1531 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
1532 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1533 type(reverse_type) ,
intent(in) :: action
1538 PURE module subroutine setRemappedRevOld_D1_SK1(array, index, action)
1539#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1540 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevOld_D1_SK1
1543 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
1544 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1545 type(reverse_type) ,
intent(in) :: action
1552 PURE module subroutine setRemappedRevOld_D1_IK5(array, index, action)
1553#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1554 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevOld_D1_IK5
1557 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
1558 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1559 type(reverse_type) ,
intent(in) :: action
1564 PURE module subroutine setRemappedRevOld_D1_IK4(array, index, action)
1565#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1566 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevOld_D1_IK4
1569 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
1570 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1571 type(reverse_type) ,
intent(in) :: action
1576 PURE module subroutine setRemappedRevOld_D1_IK3(array, index, action)
1577#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1578 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevOld_D1_IK3
1581 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
1582 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1583 type(reverse_type) ,
intent(in) :: action
1588 PURE module subroutine setRemappedRevOld_D1_IK2(array, index, action)
1589#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1590 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevOld_D1_IK2
1593 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
1594 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1595 type(reverse_type) ,
intent(in) :: action
1600 PURE module subroutine setRemappedRevOld_D1_IK1(array, index, action)
1601#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1602 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevOld_D1_IK1
1605 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
1606 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1607 type(reverse_type) ,
intent(in) :: action
1614 PURE module subroutine setRemappedRevOld_D1_LK5(array, index, action)
1615#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1616 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevOld_D1_LK5
1619 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
1620 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1621 type(reverse_type) ,
intent(in) :: action
1626 PURE module subroutine setRemappedRevOld_D1_LK4(array, index, action)
1627#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1628 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevOld_D1_LK4
1631 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
1632 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1633 type(reverse_type) ,
intent(in) :: action
1638 PURE module subroutine setRemappedRevOld_D1_LK3(array, index, action)
1639#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1640 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevOld_D1_LK3
1643 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
1644 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1645 type(reverse_type) ,
intent(in) :: action
1650 PURE module subroutine setRemappedRevOld_D1_LK2(array, index, action)
1651#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1652 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevOld_D1_LK2
1655 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
1656 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1657 type(reverse_type) ,
intent(in) :: action
1662 PURE module subroutine setRemappedRevOld_D1_LK1(array, index, action)
1663#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1664 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevOld_D1_LK1
1667 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
1668 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1669 type(reverse_type) ,
intent(in) :: action
1676 PURE module subroutine setRemappedRevOld_D1_CK5(array, index, action)
1677#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1678 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevOld_D1_CK5
1681 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
1682 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1683 type(reverse_type) ,
intent(in) :: action
1688 PURE module subroutine setRemappedRevOld_D1_CK4(array, index, action)
1689#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1690 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevOld_D1_CK4
1693 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
1694 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1695 type(reverse_type) ,
intent(in) :: action
1700 PURE module subroutine setRemappedRevOld_D1_CK3(array, index, action)
1701#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1702 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevOld_D1_CK3
1705 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
1706 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1707 type(reverse_type) ,
intent(in) :: action
1712 PURE module subroutine setRemappedRevOld_D1_CK2(array, index, action)
1713#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1714 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevOld_D1_CK2
1717 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
1718 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1719 type(reverse_type) ,
intent(in) :: action
1724 PURE module subroutine setRemappedRevOld_D1_CK1(array, index, action)
1725#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1726 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevOld_D1_CK1
1729 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
1730 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1731 type(reverse_type) ,
intent(in) :: action
1738 PURE module subroutine setRemappedRevOld_D1_RK5(array, index, action)
1739#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1740 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevOld_D1_RK5
1743 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
1744 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1745 type(reverse_type) ,
intent(in) :: action
1750 PURE module subroutine setRemappedRevOld_D1_RK4(array, index, action)
1751#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1752 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevOld_D1_RK4
1755 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
1756 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1757 type(reverse_type) ,
intent(in) :: action
1762 PURE module subroutine setRemappedRevOld_D1_RK3(array, index, action)
1763#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1764 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevOld_D1_RK3
1767 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
1768 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1769 type(reverse_type) ,
intent(in) :: action
1774 PURE module subroutine setRemappedRevOld_D1_RK2(array, index, action)
1775#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1776 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevOld_D1_RK2
1779 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
1780 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1781 type(reverse_type) ,
intent(in) :: action
1786 PURE module subroutine setRemappedRevOld_D1_RK1(array, index, action)
1787#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1788 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevOld_D1_RK1
1791 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
1792 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1793 type(reverse_type) ,
intent(in) :: action
1808 PURE module subroutine setRemappedForNew_D0_SK5(array, index, arrayNew)
1809#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1810 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForNew_D0_SK5
1813 character(
*,SKG) ,
intent(in) :: array
1814 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1815 character(
*,SKG) ,
intent(out) :: arrayNew
1820 PURE module subroutine setRemappedForNew_D0_SK4(array, index, arrayNew)
1821#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1822 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForNew_D0_SK4
1825 character(
*,SKG) ,
intent(in) :: array
1826 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1827 character(
*,SKG) ,
intent(out) :: arrayNew
1832 PURE module subroutine setRemappedForNew_D0_SK3(array, index, arrayNew)
1833#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1834 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForNew_D0_SK3
1837 character(
*,SKG) ,
intent(in) :: array
1838 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1839 character(
*,SKG) ,
intent(out) :: arrayNew
1844 PURE module subroutine setRemappedForNew_D0_SK2(array, index, arrayNew)
1845#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1846 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForNew_D0_SK2
1849 character(
*,SKG) ,
intent(in) :: array
1850 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1851 character(
*,SKG) ,
intent(out) :: arrayNew
1856 PURE module subroutine setRemappedForNew_D0_SK1(array, index, arrayNew)
1857#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1858 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForNew_D0_SK1
1861 character(
*,SKG) ,
intent(in) :: array
1862 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1863 character(
*,SKG) ,
intent(out) :: arrayNew
1870 PURE module subroutine setRemappedForNew_D1_SK5(array, index, arrayNew)
1871#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1872 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForNew_D1_SK5
1875 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1876 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1877 character(
*,SKG) ,
intent(out) ,
contiguous :: arrayNew(:)
1882 PURE module subroutine setRemappedForNew_D1_SK4(array, index, arrayNew)
1883#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1884 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForNew_D1_SK4
1887 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1888 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1889 character(
*,SKG) ,
intent(out) ,
contiguous :: arrayNew(:)
1894 PURE module subroutine setRemappedForNew_D1_SK3(array, index, arrayNew)
1895#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1896 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForNew_D1_SK3
1899 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1900 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1901 character(
*,SKG) ,
intent(out) ,
contiguous :: arrayNew(:)
1906 PURE module subroutine setRemappedForNew_D1_SK2(array, index, arrayNew)
1907#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1908 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForNew_D1_SK2
1911 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1912 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1913 character(
*,SKG) ,
intent(out) ,
contiguous :: arrayNew(:)
1918 PURE module subroutine setRemappedForNew_D1_SK1(array, index, arrayNew)
1919#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1920 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForNew_D1_SK1
1923 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1924 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1925 character(
*,SKG) ,
intent(out) ,
contiguous :: arrayNew(:)
1932 PURE module subroutine setRemappedForNew_D1_IK5(array, index, arrayNew)
1933#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1934 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForNew_D1_IK5
1937 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1938 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1939 integer(IKG) ,
intent(out) ,
contiguous :: arrayNew(:)
1944 PURE module subroutine setRemappedForNew_D1_IK4(array, index, arrayNew)
1945#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1946 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForNew_D1_IK4
1949 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1950 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1951 integer(IKG) ,
intent(out) ,
contiguous :: arrayNew(:)
1956 PURE module subroutine setRemappedForNew_D1_IK3(array, index, arrayNew)
1957#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1958 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForNew_D1_IK3
1961 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1962 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1963 integer(IKG) ,
intent(out) ,
contiguous :: arrayNew(:)
1968 PURE module subroutine setRemappedForNew_D1_IK2(array, index, arrayNew)
1969#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1970 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForNew_D1_IK2
1973 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1974 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1975 integer(IKG) ,
intent(out) ,
contiguous :: arrayNew(:)
1980 PURE module subroutine setRemappedForNew_D1_IK1(array, index, arrayNew)
1981#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1982 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForNew_D1_IK1
1985 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1986 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
1987 integer(IKG) ,
intent(out) ,
contiguous :: arrayNew(:)
1994 PURE module subroutine setRemappedForNew_D1_LK5(array, index, arrayNew)
1995#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1996 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForNew_D1_LK5
1999 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
2000 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
2001 logical(LKG) ,
intent(out) ,
contiguous :: arrayNew(:)
2006 PURE module subroutine setRemappedForNew_D1_LK4(array, index, arrayNew)
2007#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2008 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForNew_D1_LK4
2011 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
2012 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
2013 logical(LKG) ,
intent(out) ,
contiguous :: arrayNew(:)
2018 PURE module subroutine setRemappedForNew_D1_LK3(array, index, arrayNew)
2019#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2020 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForNew_D1_LK3
2023 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
2024 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
2025 logical(LKG) ,
intent(out) ,
contiguous :: arrayNew(:)
2030 PURE module subroutine setRemappedForNew_D1_LK2(array, index, arrayNew)
2031#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2032 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForNew_D1_LK2
2035 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
2036 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
2037 logical(LKG) ,
intent(out) ,
contiguous :: arrayNew(:)
2042 PURE module subroutine setRemappedForNew_D1_LK1(array, index, arrayNew)
2043#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2044 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForNew_D1_LK1
2047 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
2048 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
2049 logical(LKG) ,
intent(out) ,
contiguous :: arrayNew(:)
2056 PURE module subroutine setRemappedForNew_D1_CK5(array, index, arrayNew)
2057#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2058 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForNew_D1_CK5
2061 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2062 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
2063 complex(CKG) ,
intent(out) ,
contiguous :: arrayNew(:)
2068 PURE module subroutine setRemappedForNew_D1_CK4(array, index, arrayNew)
2069#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2070 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForNew_D1_CK4
2073 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2074 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
2075 complex(CKG) ,
intent(out) ,
contiguous :: arrayNew(:)
2080 PURE module subroutine setRemappedForNew_D1_CK3(array, index, arrayNew)
2081#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2082 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForNew_D1_CK3
2085 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2086 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
2087 complex(CKG) ,
intent(out) ,
contiguous :: arrayNew(:)
2092 PURE module subroutine setRemappedForNew_D1_CK2(array, index, arrayNew)
2093#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2094 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForNew_D1_CK2
2097 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2098 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
2099 complex(CKG) ,
intent(out) ,
contiguous :: arrayNew(:)
2104 PURE module subroutine setRemappedForNew_D1_CK1(array, index, arrayNew)
2105#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2106 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForNew_D1_CK1
2109 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2110 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
2111 complex(CKG) ,
intent(out) ,
contiguous :: arrayNew(:)
2118 PURE module subroutine setRemappedForNew_D1_RK5(array, index, arrayNew)
2119#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2120 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForNew_D1_RK5
2123 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2124 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
2125 real(RKG) ,
intent(out) ,
contiguous :: arrayNew(:)
2130 PURE module subroutine setRemappedForNew_D1_RK4(array, index, arrayNew)
2131#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2132 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForNew_D1_RK4
2135 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2136 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
2137 real(RKG) ,
intent(out) ,
contiguous :: arrayNew(:)
2142 PURE module subroutine setRemappedForNew_D1_RK3(array, index, arrayNew)
2143#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2144 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForNew_D1_RK3
2147 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2148 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
2149 real(RKG) ,
intent(out) ,
contiguous :: arrayNew(:)
2154 PURE module subroutine setRemappedForNew_D1_RK2(array, index, arrayNew)
2155#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2156 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForNew_D1_RK2
2159 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2160 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
2161 real(RKG) ,
intent(out) ,
contiguous :: arrayNew(:)
2166 PURE module subroutine setRemappedForNew_D1_RK1(array, index, arrayNew)
2167#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2168 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedForNew_D1_RK1
2171 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2172 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
2173 real(RKG) ,
intent(out) ,
contiguous :: arrayNew(:)
2182 PURE module subroutine setRemappedRevNew_D0_SK5(array, index, action, arrayNew)
2183#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2184 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevNew_D0_SK5
2187 character(
*,SKG) ,
intent(in) :: array
2188 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
2189 type(reverse_type) ,
intent(in) :: action
2190 character(
*,SKG) ,
intent(out) :: arrayNew
2195 PURE module subroutine setRemappedRevNew_D0_SK4(array, index, action, arrayNew)
2196#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2197 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevNew_D0_SK4
2200 character(
*,SKG) ,
intent(in) :: array
2201 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
2202 type(reverse_type) ,
intent(in) :: action
2203 character(
*,SKG) ,
intent(out) :: arrayNew
2208 PURE module subroutine setRemappedRevNew_D0_SK3(array, index, action, arrayNew)
2209#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2210 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevNew_D0_SK3
2213 character(
*,SKG) ,
intent(in) :: array
2214 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
2215 type(reverse_type) ,
intent(in) :: action
2216 character(
*,SKG) ,
intent(out) :: arrayNew
2221 PURE module subroutine setRemappedRevNew_D0_SK2(array, index, action, arrayNew)
2222#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2223 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevNew_D0_SK2
2226 character(
*,SKG) ,
intent(in) :: array
2227 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
2228 type(reverse_type) ,
intent(in) :: action
2229 character(
*,SKG) ,
intent(out) :: arrayNew
2234 PURE module subroutine setRemappedRevNew_D0_SK1(array, index, action, arrayNew)
2235#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2236 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevNew_D0_SK1
2239 character(
*,SKG) ,
intent(in) :: array
2240 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
2241 type(reverse_type) ,
intent(in) :: action
2242 character(
*,SKG) ,
intent(out) :: arrayNew
2249 PURE module subroutine setRemappedRevNew_D1_SK5(array, index, action, arrayNew)
2250#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2251 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevNew_D1_SK5
2254 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
2255 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
2256 type(reverse_type) ,
intent(in) :: action
2257 character(
*,SKG) ,
intent(out) ,
contiguous :: arrayNew(:)
2262 PURE module subroutine setRemappedRevNew_D1_SK4(array, index, action, arrayNew)
2263#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2264 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevNew_D1_SK4
2267 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
2268 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
2269 type(reverse_type) ,
intent(in) :: action
2270 character(
*,SKG) ,
intent(out) ,
contiguous :: arrayNew(:)
2275 PURE module subroutine setRemappedRevNew_D1_SK3(array, index, action, arrayNew)
2276#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2277 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevNew_D1_SK3
2280 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
2281 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
2282 type(reverse_type) ,
intent(in) :: action
2283 character(
*,SKG) ,
intent(out) ,
contiguous :: arrayNew(:)
2288 PURE module subroutine setRemappedRevNew_D1_SK2(array, index, action, arrayNew)
2289#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2290 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevNew_D1_SK2
2293 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
2294 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
2295 type(reverse_type) ,
intent(in) :: action
2296 character(
*,SKG) ,
intent(out) ,
contiguous :: arrayNew(:)
2301 PURE module subroutine setRemappedRevNew_D1_SK1(array, index, action, arrayNew)
2302#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2303 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevNew_D1_SK1
2306 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
2307 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
2308 type(reverse_type) ,
intent(in) :: action
2309 character(
*,SKG) ,
intent(out) ,
contiguous :: arrayNew(:)
2316 PURE module subroutine setRemappedRevNew_D1_IK5(array, index, action, arrayNew)
2317#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2318 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevNew_D1_IK5
2321 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
2322 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
2323 type(reverse_type) ,
intent(in) :: action
2324 integer(IKG) ,
intent(out) ,
contiguous :: arrayNew(:)
2329 PURE module subroutine setRemappedRevNew_D1_IK4(array, index, action, arrayNew)
2330#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2331 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevNew_D1_IK4
2334 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
2335 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
2336 type(reverse_type) ,
intent(in) :: action
2337 integer(IKG) ,
intent(out) ,
contiguous :: arrayNew(:)
2342 PURE module subroutine setRemappedRevNew_D1_IK3(array, index, action, arrayNew)
2343#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2344 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevNew_D1_IK3
2347 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
2348 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
2349 type(reverse_type) ,
intent(in) :: action
2350 integer(IKG) ,
intent(out) ,
contiguous :: arrayNew(:)
2355 PURE module subroutine setRemappedRevNew_D1_IK2(array, index, action, arrayNew)
2356#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2357 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevNew_D1_IK2
2360 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
2361 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
2362 type(reverse_type) ,
intent(in) :: action
2363 integer(IKG) ,
intent(out) ,
contiguous :: arrayNew(:)
2368 PURE module subroutine setRemappedRevNew_D1_IK1(array, index, action, arrayNew)
2369#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2370 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevNew_D1_IK1
2373 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
2374 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
2375 type(reverse_type) ,
intent(in) :: action
2376 integer(IKG) ,
intent(out) ,
contiguous :: arrayNew(:)
2383 PURE module subroutine setRemappedRevNew_D1_LK5(array, index, action, arrayNew)
2384#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2385 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevNew_D1_LK5
2388 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
2389 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
2390 type(reverse_type) ,
intent(in) :: action
2391 logical(LKG) ,
intent(out) ,
contiguous :: arrayNew(:)
2396 PURE module subroutine setRemappedRevNew_D1_LK4(array, index, action, arrayNew)
2397#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2398 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevNew_D1_LK4
2401 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
2402 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
2403 type(reverse_type) ,
intent(in) :: action
2404 logical(LKG) ,
intent(out) ,
contiguous :: arrayNew(:)
2409 PURE module subroutine setRemappedRevNew_D1_LK3(array, index, action, arrayNew)
2410#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2411 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevNew_D1_LK3
2414 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
2415 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
2416 type(reverse_type) ,
intent(in) :: action
2417 logical(LKG) ,
intent(out) ,
contiguous :: arrayNew(:)
2422 PURE module subroutine setRemappedRevNew_D1_LK2(array, index, action, arrayNew)
2423#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2424 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevNew_D1_LK2
2427 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
2428 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
2429 type(reverse_type) ,
intent(in) :: action
2430 logical(LKG) ,
intent(out) ,
contiguous :: arrayNew(:)
2435 PURE module subroutine setRemappedRevNew_D1_LK1(array, index, action, arrayNew)
2436#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2437 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevNew_D1_LK1
2440 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
2441 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
2442 type(reverse_type) ,
intent(in) :: action
2443 logical(LKG) ,
intent(out) ,
contiguous :: arrayNew(:)
2450 PURE module subroutine setRemappedRevNew_D1_CK5(array, index, action, arrayNew)
2451#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2452 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevNew_D1_CK5
2455 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2456 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
2457 type(reverse_type) ,
intent(in) :: action
2458 complex(CKG) ,
intent(out) ,
contiguous :: arrayNew(:)
2463 PURE module subroutine setRemappedRevNew_D1_CK4(array, index, action, arrayNew)
2464#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2465 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevNew_D1_CK4
2468 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2469 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
2470 type(reverse_type) ,
intent(in) :: action
2471 complex(CKG) ,
intent(out) ,
contiguous :: arrayNew(:)
2476 PURE module subroutine setRemappedRevNew_D1_CK3(array, index, action, arrayNew)
2477#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2478 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevNew_D1_CK3
2481 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2482 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
2483 type(reverse_type) ,
intent(in) :: action
2484 complex(CKG) ,
intent(out) ,
contiguous :: arrayNew(:)
2489 PURE module subroutine setRemappedRevNew_D1_CK2(array, index, action, arrayNew)
2490#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2491 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevNew_D1_CK2
2494 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2495 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
2496 type(reverse_type) ,
intent(in) :: action
2497 complex(CKG) ,
intent(out) ,
contiguous :: arrayNew(:)
2502 PURE module subroutine setRemappedRevNew_D1_CK1(array, index, action, arrayNew)
2503#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2504 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevNew_D1_CK1
2507 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2508 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
2509 type(reverse_type) ,
intent(in) :: action
2510 complex(CKG) ,
intent(out) ,
contiguous :: arrayNew(:)
2517 PURE module subroutine setRemappedRevNew_D1_RK5(array, index, action, arrayNew)
2518#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2519 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevNew_D1_RK5
2522 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2523 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
2524 type(reverse_type) ,
intent(in) :: action
2525 real(RKG) ,
intent(out) ,
contiguous :: arrayNew(:)
2530 PURE module subroutine setRemappedRevNew_D1_RK4(array, index, action, arrayNew)
2531#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2532 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevNew_D1_RK4
2535 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2536 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
2537 type(reverse_type) ,
intent(in) :: action
2538 real(RKG) ,
intent(out) ,
contiguous :: arrayNew(:)
2543 PURE module subroutine setRemappedRevNew_D1_RK3(array, index, action, arrayNew)
2544#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2545 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevNew_D1_RK3
2548 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2549 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
2550 type(reverse_type) ,
intent(in) :: action
2551 real(RKG) ,
intent(out) ,
contiguous :: arrayNew(:)
2556 PURE module subroutine setRemappedRevNew_D1_RK2(array, index, action, arrayNew)
2557#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2558 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevNew_D1_RK2
2561 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2562 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
2563 type(reverse_type) ,
intent(in) :: action
2564 real(RKG) ,
intent(out) ,
contiguous :: arrayNew(:)
2569 PURE module subroutine setRemappedRevNew_D1_RK1(array, index, action, arrayNew)
2570#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2571 !DEC$ ATTRIBUTES DLLEXPORT :: setRemappedRevNew_D1_RK1
2574 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2575 integer(IK) ,
intent(in) ,
contiguous ::
index(:)
2576 type(reverse_type) ,
intent(in) :: action
2577 real(RKG) ,
intent(out) ,
contiguous :: arrayNew(:)
Generate a copy of the input array whose elements are reordered according to the input index array su...
Reorder the elements of the input array according to the input index array, such that   array = ar...
This module contains procedures and generic interfaces for remapping arrays of various types.
This module contains abstract and concrete derived types that are required for compile-time resolutio...
character(*, SK), parameter MODULE_NAME
type(reverse_type), parameter reverse
This is a scalar parameter object of type reverse_type that is exclusively used to request reversal o...
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
This is a concrete derived type whose instances are exclusively used to request reversal of a given a...