129 PURE module subroutine setCopyIndexed_D0_SK5(From, To, indexF, indexT)
130#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
131 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyIndexed_D0_SK5
134 character(
*,SKG) ,
intent(in) :: From
135 character(
*,SKG) ,
intent(inout) :: To
136 integer(IK) ,
intent(in) ,
contiguous :: indexF(:), indexT(:)
141 PURE module subroutine setCopyIndexed_D0_SK4(From, To, indexF, indexT)
142#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
143 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyIndexed_D0_SK4
146 character(
*,SKG) ,
intent(in) :: From
147 character(
*,SKG) ,
intent(inout) :: To
148 integer(IK) ,
intent(in) ,
contiguous :: indexF(:), indexT(:)
153 PURE module subroutine setCopyIndexed_D0_SK3(From, To, indexF, indexT)
154#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
155 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyIndexed_D0_SK3
158 character(
*,SKG) ,
intent(in) :: From
159 character(
*,SKG) ,
intent(inout) :: To
160 integer(IK) ,
intent(in) ,
contiguous :: indexF(:), indexT(:)
165 PURE module subroutine setCopyIndexed_D0_SK2(From, To, indexF, indexT)
166#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
167 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyIndexed_D0_SK2
170 character(
*,SKG) ,
intent(in) :: From
171 character(
*,SKG) ,
intent(inout) :: To
172 integer(IK) ,
intent(in) ,
contiguous :: indexF(:), indexT(:)
177 PURE module subroutine setCopyIndexed_D0_SK1(From, To, indexF, indexT)
178#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
179 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyIndexed_D0_SK1
182 character(
*,SKG) ,
intent(in) :: From
183 character(
*,SKG) ,
intent(inout) :: To
184 integer(IK) ,
intent(in) ,
contiguous :: indexF(:), indexT(:)
191 PURE module subroutine setCopyIndexed_D1_SK5(From, To, indexF, indexT)
192#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
193 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyIndexed_D1_SK5
196 character(
*,SKG) ,
intent(in) ,
contiguous :: From(:)
197 character(
*,SKG) ,
intent(inout) ,
contiguous :: To(:)
198 integer(IK) ,
intent(in) ,
contiguous :: indexF(:), indexT(:)
203 PURE module subroutine setCopyIndexed_D1_SK4(From, To, indexF, indexT)
204#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
205 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyIndexed_D1_SK4
208 character(
*,SKG) ,
intent(in) ,
contiguous :: From(:)
209 character(
*,SKG) ,
intent(inout) ,
contiguous :: To(:)
210 integer(IK) ,
intent(in) ,
contiguous :: indexF(:), indexT(:)
215 PURE module subroutine setCopyIndexed_D1_SK3(From, To, indexF, indexT)
216#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
217 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyIndexed_D1_SK3
220 character(
*,SKG) ,
intent(in) ,
contiguous :: From(:)
221 character(
*,SKG) ,
intent(inout) ,
contiguous :: To(:)
222 integer(IK) ,
intent(in) ,
contiguous :: indexF(:), indexT(:)
227 PURE module subroutine setCopyIndexed_D1_SK2(From, To, indexF, indexT)
228#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
229 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyIndexed_D1_SK2
232 character(
*,SKG) ,
intent(in) ,
contiguous :: From(:)
233 character(
*,SKG) ,
intent(inout) ,
contiguous :: To(:)
234 integer(IK) ,
intent(in) ,
contiguous :: indexF(:), indexT(:)
239 PURE module subroutine setCopyIndexed_D1_SK1(From, To, indexF, indexT)
240#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
241 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyIndexed_D1_SK1
244 character(
*,SKG) ,
intent(in) ,
contiguous :: From(:)
245 character(
*,SKG) ,
intent(inout) ,
contiguous :: To(:)
246 integer(IK) ,
intent(in) ,
contiguous :: indexF(:), indexT(:)
253 PURE module subroutine setCopyIndexed_D1_IK5(From, To, indexF, indexT)
254#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
255 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyIndexed_D1_IK5
258 integer(IKG) ,
intent(in) ,
contiguous :: From(:)
259 integer(IKG) ,
intent(inout) ,
contiguous :: To(:)
260 integer(IK) ,
intent(in) ,
contiguous :: indexF(:), indexT(:)
265 PURE module subroutine setCopyIndexed_D1_IK4(From, To, indexF, indexT)
266#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
267 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyIndexed_D1_IK4
270 integer(IKG) ,
intent(in) ,
contiguous :: From(:)
271 integer(IKG) ,
intent(inout) ,
contiguous :: To(:)
272 integer(IK) ,
intent(in) ,
contiguous :: indexF(:), indexT(:)
277 PURE module subroutine setCopyIndexed_D1_IK3(From, To, indexF, indexT)
278#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
279 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyIndexed_D1_IK3
282 integer(IKG) ,
intent(in) ,
contiguous :: From(:)
283 integer(IKG) ,
intent(inout) ,
contiguous :: To(:)
284 integer(IK) ,
intent(in) ,
contiguous :: indexF(:), indexT(:)
289 PURE module subroutine setCopyIndexed_D1_IK2(From, To, indexF, indexT)
290#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
291 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyIndexed_D1_IK2
294 integer(IKG) ,
intent(in) ,
contiguous :: From(:)
295 integer(IKG) ,
intent(inout) ,
contiguous :: To(:)
296 integer(IK) ,
intent(in) ,
contiguous :: indexF(:), indexT(:)
301 PURE module subroutine setCopyIndexed_D1_IK1(From, To, indexF, indexT)
302#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
303 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyIndexed_D1_IK1
306 integer(IKG) ,
intent(in) ,
contiguous :: From(:)
307 integer(IKG) ,
intent(inout) ,
contiguous :: To(:)
308 integer(IK) ,
intent(in) ,
contiguous :: indexF(:), indexT(:)
315 PURE module subroutine setCopyIndexed_D1_LK5(From, To, indexF, indexT)
316#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
317 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyIndexed_D1_LK5
320 logical(LKG) ,
intent(in) ,
contiguous :: From(:)
321 logical(LKG) ,
intent(inout) ,
contiguous :: To(:)
322 integer(IK) ,
intent(in) ,
contiguous :: indexF(:), indexT(:)
327 PURE module subroutine setCopyIndexed_D1_LK4(From, To, indexF, indexT)
328#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
329 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyIndexed_D1_LK4
332 logical(LKG) ,
intent(in) ,
contiguous :: From(:)
333 logical(LKG) ,
intent(inout) ,
contiguous :: To(:)
334 integer(IK) ,
intent(in) ,
contiguous :: indexF(:), indexT(:)
339 PURE module subroutine setCopyIndexed_D1_LK3(From, To, indexF, indexT)
340#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
341 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyIndexed_D1_LK3
344 logical(LKG) ,
intent(in) ,
contiguous :: From(:)
345 logical(LKG) ,
intent(inout) ,
contiguous :: To(:)
346 integer(IK) ,
intent(in) ,
contiguous :: indexF(:), indexT(:)
351 PURE module subroutine setCopyIndexed_D1_LK2(From, To, indexF, indexT)
352#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
353 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyIndexed_D1_LK2
356 logical(LKG) ,
intent(in) ,
contiguous :: From(:)
357 logical(LKG) ,
intent(inout) ,
contiguous :: To(:)
358 integer(IK) ,
intent(in) ,
contiguous :: indexF(:), indexT(:)
363 PURE module subroutine setCopyIndexed_D1_LK1(From, To, indexF, indexT)
364#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
365 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyIndexed_D1_LK1
368 logical(LKG) ,
intent(in) ,
contiguous :: From(:)
369 logical(LKG) ,
intent(inout) ,
contiguous :: To(:)
370 integer(IK) ,
intent(in) ,
contiguous :: indexF(:), indexT(:)
377 PURE module subroutine setCopyIndexed_D1_CK5(From, To, indexF, indexT)
378#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
379 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyIndexed_D1_CK5
382 complex(CKG) ,
intent(in) ,
contiguous :: From(:)
383 complex(CKG) ,
intent(inout) ,
contiguous :: To(:)
384 integer(IK) ,
intent(in) ,
contiguous :: indexF(:), indexT(:)
389 PURE module subroutine setCopyIndexed_D1_CK4(From, To, indexF, indexT)
390#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
391 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyIndexed_D1_CK4
394 complex(CKG) ,
intent(in) ,
contiguous :: From(:)
395 complex(CKG) ,
intent(inout) ,
contiguous :: To(:)
396 integer(IK) ,
intent(in) ,
contiguous :: indexF(:), indexT(:)
401 PURE module subroutine setCopyIndexed_D1_CK3(From, To, indexF, indexT)
402#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
403 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyIndexed_D1_CK3
406 complex(CKG) ,
intent(in) ,
contiguous :: From(:)
407 complex(CKG) ,
intent(inout) ,
contiguous :: To(:)
408 integer(IK) ,
intent(in) ,
contiguous :: indexF(:), indexT(:)
413 PURE module subroutine setCopyIndexed_D1_CK2(From, To, indexF, indexT)
414#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
415 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyIndexed_D1_CK2
418 complex(CKG) ,
intent(in) ,
contiguous :: From(:)
419 complex(CKG) ,
intent(inout) ,
contiguous :: To(:)
420 integer(IK) ,
intent(in) ,
contiguous :: indexF(:), indexT(:)
425 PURE module subroutine setCopyIndexed_D1_CK1(From, To, indexF, indexT)
426#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
427 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyIndexed_D1_CK1
430 complex(CKG) ,
intent(in) ,
contiguous :: From(:)
431 complex(CKG) ,
intent(inout) ,
contiguous :: To(:)
432 integer(IK) ,
intent(in) ,
contiguous :: indexF(:), indexT(:)
439 PURE module subroutine setCopyIndexed_D1_RK5(From, To, indexF, indexT)
440#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
441 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyIndexed_D1_RK5
444 real(RKG) ,
intent(in) ,
contiguous :: From(:)
445 real(RKG) ,
intent(inout) ,
contiguous :: To(:)
446 integer(IK) ,
intent(in) ,
contiguous :: indexF(:), indexT(:)
451 PURE module subroutine setCopyIndexed_D1_RK4(From, To, indexF, indexT)
452#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
453 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyIndexed_D1_RK4
456 real(RKG) ,
intent(in) ,
contiguous :: From(:)
457 real(RKG) ,
intent(inout) ,
contiguous :: To(:)
458 integer(IK) ,
intent(in) ,
contiguous :: indexF(:), indexT(:)
463 PURE module subroutine setCopyIndexed_D1_RK3(From, To, indexF, indexT)
464#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
465 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyIndexed_D1_RK3
468 real(RKG) ,
intent(in) ,
contiguous :: From(:)
469 real(RKG) ,
intent(inout) ,
contiguous :: To(:)
470 integer(IK) ,
intent(in) ,
contiguous :: indexF(:), indexT(:)
475 PURE module subroutine setCopyIndexed_D1_RK2(From, To, indexF, indexT)
476#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
477 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyIndexed_D1_RK2
480 real(RKG) ,
intent(in) ,
contiguous :: From(:)
481 real(RKG) ,
intent(inout) ,
contiguous :: To(:)
482 integer(IK) ,
intent(in) ,
contiguous :: indexF(:), indexT(:)
487 PURE module subroutine setCopyIndexed_D1_RK1(From, To, indexF, indexT)
488#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
489 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyIndexed_D1_RK1
492 real(RKG) ,
intent(in) ,
contiguous :: From(:)
493 real(RKG) ,
intent(inout) ,
contiguous :: To(:)
494 integer(IK) ,
intent(in) ,
contiguous :: indexF(:), indexT(:)
601 PURE module subroutine setCopyStrided_D0_SK5(From, To, incf, inct)
602#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
603 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyStrided_D0_SK5
606 character(
*,SKG) ,
intent(in) :: From
607 character(
*,SKG) ,
intent(inout) :: To
608 integer(IK) ,
intent(in) :: incf, inct
613 PURE module subroutine setCopyStrided_D0_SK4(From, To, incf, inct)
614#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
615 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyStrided_D0_SK4
618 character(
*,SKG) ,
intent(in) :: From
619 character(
*,SKG) ,
intent(inout) :: To
620 integer(IK) ,
intent(in) :: incf, inct
625 PURE module subroutine setCopyStrided_D0_SK3(From, To, incf, inct)
626#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
627 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyStrided_D0_SK3
630 character(
*,SKG) ,
intent(in) :: From
631 character(
*,SKG) ,
intent(inout) :: To
632 integer(IK) ,
intent(in) :: incf, inct
637 PURE module subroutine setCopyStrided_D0_SK2(From, To, incf, inct)
638#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
639 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyStrided_D0_SK2
642 character(
*,SKG) ,
intent(in) :: From
643 character(
*,SKG) ,
intent(inout) :: To
644 integer(IK) ,
intent(in) :: incf, inct
649 PURE module subroutine setCopyStrided_D0_SK1(From, To, incf, inct)
650#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
651 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyStrided_D0_SK1
654 character(
*,SKG) ,
intent(in) :: From
655 character(
*,SKG) ,
intent(inout) :: To
656 integer(IK) ,
intent(in) :: incf, inct
663 PURE module subroutine setCopyStrided_D1_SK5(From, To, incf, inct)
664#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
665 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyStrided_D1_SK5
668 character(
*,SKG) ,
intent(in) ,
contiguous :: From(:)
669 character(
*,SKG) ,
intent(inout) ,
contiguous :: To(:)
670 integer(IK) ,
intent(in) :: incf, inct
675 PURE module subroutine setCopyStrided_D1_SK4(From, To, incf, inct)
676#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
677 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyStrided_D1_SK4
680 character(
*,SKG) ,
intent(in) ,
contiguous :: From(:)
681 character(
*,SKG) ,
intent(inout) ,
contiguous :: To(:)
682 integer(IK) ,
intent(in) :: incf, inct
687 PURE module subroutine setCopyStrided_D1_SK3(From, To, incf, inct)
688#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
689 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyStrided_D1_SK3
692 character(
*,SKG) ,
intent(in) ,
contiguous :: From(:)
693 character(
*,SKG) ,
intent(inout) ,
contiguous :: To(:)
694 integer(IK) ,
intent(in) :: incf, inct
699 PURE module subroutine setCopyStrided_D1_SK2(From, To, incf, inct)
700#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
701 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyStrided_D1_SK2
704 character(
*,SKG) ,
intent(in) ,
contiguous :: From(:)
705 character(
*,SKG) ,
intent(inout) ,
contiguous :: To(:)
706 integer(IK) ,
intent(in) :: incf, inct
711 PURE module subroutine setCopyStrided_D1_SK1(From, To, incf, inct)
712#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
713 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyStrided_D1_SK1
716 character(
*,SKG) ,
intent(in) ,
contiguous :: From(:)
717 character(
*,SKG) ,
intent(inout) ,
contiguous :: To(:)
718 integer(IK) ,
intent(in) :: incf, inct
725 PURE module subroutine setCopyStrided_D1_IK5(From, To, incf, inct)
726#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
727 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyStrided_D1_IK5
730 integer(IKG) ,
intent(in) ,
contiguous :: From(:)
731 integer(IKG) ,
intent(inout) ,
contiguous :: To(:)
732 integer(IK) ,
intent(in) :: incf, inct
737 PURE module subroutine setCopyStrided_D1_IK4(From, To, incf, inct)
738#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
739 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyStrided_D1_IK4
742 integer(IKG) ,
intent(in) ,
contiguous :: From(:)
743 integer(IKG) ,
intent(inout) ,
contiguous :: To(:)
744 integer(IK) ,
intent(in) :: incf, inct
749 PURE module subroutine setCopyStrided_D1_IK3(From, To, incf, inct)
750#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
751 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyStrided_D1_IK3
754 integer(IKG) ,
intent(in) ,
contiguous :: From(:)
755 integer(IKG) ,
intent(inout) ,
contiguous :: To(:)
756 integer(IK) ,
intent(in) :: incf, inct
761 PURE module subroutine setCopyStrided_D1_IK2(From, To, incf, inct)
762#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
763 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyStrided_D1_IK2
766 integer(IKG) ,
intent(in) ,
contiguous :: From(:)
767 integer(IKG) ,
intent(inout) ,
contiguous :: To(:)
768 integer(IK) ,
intent(in) :: incf, inct
773 PURE module subroutine setCopyStrided_D1_IK1(From, To, incf, inct)
774#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
775 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyStrided_D1_IK1
778 integer(IKG) ,
intent(in) ,
contiguous :: From(:)
779 integer(IKG) ,
intent(inout) ,
contiguous :: To(:)
780 integer(IK) ,
intent(in) :: incf, inct
787 PURE module subroutine setCopyStrided_D1_LK5(From, To, incf, inct)
788#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
789 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyStrided_D1_LK5
792 logical(LKG) ,
intent(in) ,
contiguous :: From(:)
793 logical(LKG) ,
intent(inout) ,
contiguous :: To(:)
794 integer(IK) ,
intent(in) :: incf, inct
799 PURE module subroutine setCopyStrided_D1_LK4(From, To, incf, inct)
800#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
801 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyStrided_D1_LK4
804 logical(LKG) ,
intent(in) ,
contiguous :: From(:)
805 logical(LKG) ,
intent(inout) ,
contiguous :: To(:)
806 integer(IK) ,
intent(in) :: incf, inct
811 PURE module subroutine setCopyStrided_D1_LK3(From, To, incf, inct)
812#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
813 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyStrided_D1_LK3
816 logical(LKG) ,
intent(in) ,
contiguous :: From(:)
817 logical(LKG) ,
intent(inout) ,
contiguous :: To(:)
818 integer(IK) ,
intent(in) :: incf, inct
823 PURE module subroutine setCopyStrided_D1_LK2(From, To, incf, inct)
824#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
825 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyStrided_D1_LK2
828 logical(LKG) ,
intent(in) ,
contiguous :: From(:)
829 logical(LKG) ,
intent(inout) ,
contiguous :: To(:)
830 integer(IK) ,
intent(in) :: incf, inct
835 PURE module subroutine setCopyStrided_D1_LK1(From, To, incf, inct)
836#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
837 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyStrided_D1_LK1
840 logical(LKG) ,
intent(in) ,
contiguous :: From(:)
841 logical(LKG) ,
intent(inout) ,
contiguous :: To(:)
842 integer(IK) ,
intent(in) :: incf, inct
849 PURE module subroutine setCopyStrided_D1_CK5(From, To, incf, inct)
850#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
851 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyStrided_D1_CK5
854 complex(CKG) ,
intent(in) ,
contiguous :: From(:)
855 complex(CKG) ,
intent(inout) ,
contiguous :: To(:)
856 integer(IK) ,
intent(in) :: incf, inct
861 PURE module subroutine setCopyStrided_D1_CK4(From, To, incf, inct)
862#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
863 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyStrided_D1_CK4
866 complex(CKG) ,
intent(in) ,
contiguous :: From(:)
867 complex(CKG) ,
intent(inout) ,
contiguous :: To(:)
868 integer(IK) ,
intent(in) :: incf, inct
873 PURE module subroutine setCopyStrided_D1_CK3(From, To, incf, inct)
874#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
875 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyStrided_D1_CK3
878 complex(CKG) ,
intent(in) ,
contiguous :: From(:)
879 complex(CKG) ,
intent(inout) ,
contiguous :: To(:)
880 integer(IK) ,
intent(in) :: incf, inct
885 PURE module subroutine setCopyStrided_D1_CK2(From, To, incf, inct)
886#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
887 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyStrided_D1_CK2
890 complex(CKG) ,
intent(in) ,
contiguous :: From(:)
891 complex(CKG) ,
intent(inout) ,
contiguous :: To(:)
892 integer(IK) ,
intent(in) :: incf, inct
897 PURE module subroutine setCopyStrided_D1_CK1(From, To, incf, inct)
898#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
899 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyStrided_D1_CK1
902 complex(CKG) ,
intent(in) ,
contiguous :: From(:)
903 complex(CKG) ,
intent(inout) ,
contiguous :: To(:)
904 integer(IK) ,
intent(in) :: incf, inct
911 PURE module subroutine setCopyStrided_D1_RK5(From, To, incf, inct)
912#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
913 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyStrided_D1_RK5
916 real(RKG) ,
intent(in) ,
contiguous :: From(:)
917 real(RKG) ,
intent(inout) ,
contiguous :: To(:)
918 integer(IK) ,
intent(in) :: incf, inct
923 PURE module subroutine setCopyStrided_D1_RK4(From, To, incf, inct)
924#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
925 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyStrided_D1_RK4
928 real(RKG) ,
intent(in) ,
contiguous :: From(:)
929 real(RKG) ,
intent(inout) ,
contiguous :: To(:)
930 integer(IK) ,
intent(in) :: incf, inct
935 PURE module subroutine setCopyStrided_D1_RK3(From, To, incf, inct)
936#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
937 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyStrided_D1_RK3
940 real(RKG) ,
intent(in) ,
contiguous :: From(:)
941 real(RKG) ,
intent(inout) ,
contiguous :: To(:)
942 integer(IK) ,
intent(in) :: incf, inct
947 PURE module subroutine setCopyStrided_D1_RK2(From, To, incf, inct)
948#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
949 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyStrided_D1_RK2
952 real(RKG) ,
intent(in) ,
contiguous :: From(:)
953 real(RKG) ,
intent(inout) ,
contiguous :: To(:)
954 integer(IK) ,
intent(in) :: incf, inct
959 PURE module subroutine setCopyStrided_D1_RK1(From, To, incf, inct)
960#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
961 !DEC$ ATTRIBUTES DLLEXPORT :: setCopyStrided_D1_RK1
964 real(RKG) ,
intent(in) ,
contiguous :: From(:)
965 real(RKG) ,
intent(inout) ,
contiguous :: To(:)
966 integer(IK) ,
intent(in) :: incf, inct
980end module pm_arrayCopy
Copy an input scalar string or vector of arbitrary intrinsic type, kind, and size to another scalar s...
Copy the strided elements of an input scalar string or vector of arbitrary intrinsic type,...
This module contains procedures and generic interfaces for copying strided or indexed elements of one...
character(*, SK), parameter MODULE_NAME
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
integer, parameter RK
The default real kind in the ParaMonte library: real64 in Fortran, c_double in C-Fortran Interoperati...
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...