134 PURE module function getCumSum_IK5(array, direction, action)
result(cumsum)
135#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
136 !DEC$ ATTRIBUTES DLLEXPORT :: getCumSum_IK5
139 integer(IKG) ,
intent(in),
contiguous :: array(:)
140 class(direction_type) ,
intent(in),
optional :: direction
141 class(action_type) ,
intent(in),
optional :: action
142 integer(IKG) :: cumsum(
size(array,
kind = IK))
147 PURE module function getCumSum_IK4(array, direction, action)
result(cumsum)
148#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
149 !DEC$ ATTRIBUTES DLLEXPORT :: getCumSum_IK4
152 integer(IKG) ,
intent(in),
contiguous :: array(:)
153 class(direction_type) ,
intent(in),
optional :: direction
154 class(action_type) ,
intent(in),
optional :: action
155 integer(IKG) :: cumsum(
size(array,
kind = IK))
160 PURE module function getCumSum_IK3(array, direction, action)
result(cumsum)
161#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
162 !DEC$ ATTRIBUTES DLLEXPORT :: getCumSum_IK3
165 integer(IKG) ,
intent(in),
contiguous :: array(:)
166 class(direction_type) ,
intent(in),
optional :: direction
167 class(action_type) ,
intent(in),
optional :: action
168 integer(IKG) :: cumsum(
size(array,
kind = IK))
173 PURE module function getCumSum_IK2(array, direction, action)
result(cumsum)
174#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
175 !DEC$ ATTRIBUTES DLLEXPORT :: getCumSum_IK2
178 integer(IKG) ,
intent(in),
contiguous :: array(:)
179 class(direction_type) ,
intent(in),
optional :: direction
180 class(action_type) ,
intent(in),
optional :: action
181 integer(IKG) :: cumsum(
size(array,
kind = IK))
186 PURE module function getCumSum_IK1(array, direction, action)
result(cumsum)
187#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
188 !DEC$ ATTRIBUTES DLLEXPORT :: getCumSum_IK1
191 integer(IKG) ,
intent(in),
contiguous :: array(:)
192 class(direction_type) ,
intent(in),
optional :: direction
193 class(action_type) ,
intent(in),
optional :: action
194 integer(IKG) :: cumsum(
size(array,
kind = IK))
201 PURE module function getCumSum_CK5(array, direction, action)
result(cumsum)
202#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
203 !DEC$ ATTRIBUTES DLLEXPORT :: getCumSum_CK5
206 complex(CKG) ,
intent(in),
contiguous :: array(:)
207 class(direction_type) ,
intent(in),
optional :: direction
208 class(action_type) ,
intent(in),
optional :: action
209 complex(CKG) :: cumsum(
size(array,
kind = IK))
214 PURE module function getCumSum_CK4(array, direction, action)
result(cumsum)
215#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
216 !DEC$ ATTRIBUTES DLLEXPORT :: getCumSum_CK4
219 complex(CKG) ,
intent(in),
contiguous :: array(:)
220 class(direction_type) ,
intent(in),
optional :: direction
221 class(action_type) ,
intent(in),
optional :: action
222 complex(CKG) :: cumsum(
size(array,
kind = IK))
227 PURE module function getCumSum_CK3(array, direction, action)
result(cumsum)
228#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
229 !DEC$ ATTRIBUTES DLLEXPORT :: getCumSum_CK3
232 complex(CKG) ,
intent(in),
contiguous :: array(:)
233 class(direction_type) ,
intent(in),
optional :: direction
234 class(action_type) ,
intent(in),
optional :: action
235 complex(CKG) :: cumsum(
size(array,
kind = IK))
240 PURE module function getCumSum_CK2(array, direction, action)
result(cumsum)
241#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
242 !DEC$ ATTRIBUTES DLLEXPORT :: getCumSum_CK2
245 complex(CKG) ,
intent(in),
contiguous :: array(:)
246 class(direction_type) ,
intent(in),
optional :: direction
247 class(action_type) ,
intent(in),
optional :: action
248 complex(CKG) :: cumsum(
size(array,
kind = IK))
253 PURE module function getCumSum_CK1(array, direction, action)
result(cumsum)
254#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
255 !DEC$ ATTRIBUTES DLLEXPORT :: getCumSum_CK1
258 complex(CKG) ,
intent(in),
contiguous :: array(:)
259 class(direction_type) ,
intent(in),
optional :: direction
260 class(action_type) ,
intent(in),
optional :: action
261 complex(CKG) :: cumsum(
size(array,
kind = IK))
268 PURE module function getCumSum_RK5(array, direction, action)
result(cumsum)
269#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
270 !DEC$ ATTRIBUTES DLLEXPORT :: getCumSum_RK5
273 real(RKG) ,
intent(in),
contiguous :: array(:)
274 class(direction_type) ,
intent(in),
optional :: direction
275 class(action_type) ,
intent(in),
optional :: action
276 real(RKG) :: cumsum(
size(array,
kind = IK))
281 PURE module function getCumSum_RK4(array, direction, action)
result(cumsum)
282#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
283 !DEC$ ATTRIBUTES DLLEXPORT :: getCumSum_RK4
286 real(RKG) ,
intent(in),
contiguous :: array(:)
287 class(direction_type) ,
intent(in),
optional :: direction
288 class(action_type) ,
intent(in),
optional :: action
289 real(RKG) :: cumsum(
size(array,
kind = IK))
294 PURE module function getCumSum_RK3(array, direction, action)
result(cumsum)
295#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
296 !DEC$ ATTRIBUTES DLLEXPORT :: getCumSum_RK3
299 real(RKG) ,
intent(in),
contiguous :: array(:)
300 class(direction_type) ,
intent(in),
optional :: direction
301 class(action_type) ,
intent(in),
optional :: action
302 real(RKG) :: cumsum(
size(array,
kind = IK))
307 PURE module function getCumSum_RK2(array, direction, action)
result(cumsum)
308#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
309 !DEC$ ATTRIBUTES DLLEXPORT :: getCumSum_RK2
312 real(RKG) ,
intent(in),
contiguous :: array(:)
313 class(direction_type) ,
intent(in),
optional :: direction
314 class(action_type) ,
intent(in),
optional :: action
315 real(RKG) :: cumsum(
size(array,
kind = IK))
320 PURE module function getCumSum_RK1(array, direction, action)
result(cumsum)
321#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
322 !DEC$ ATTRIBUTES DLLEXPORT :: getCumSum_RK1
325 real(RKG) ,
intent(in),
contiguous :: array(:)
326 class(direction_type) ,
intent(in),
optional :: direction
327 class(action_type) ,
intent(in),
optional :: action
328 real(RKG) :: cumsum(
size(array,
kind = IK))
434 PURE recursive module subroutine setCumSumOldDefDef_IK5(array)
435#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
436 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldDefDef_IK5
439 integer(IKG) ,
intent(inout) ,
contiguous :: array(:)
444 PURE recursive module subroutine setCumSumOldDefDef_IK4(array)
445#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
446 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldDefDef_IK4
449 integer(IKG) ,
intent(inout) ,
contiguous :: array(:)
454 PURE recursive module subroutine setCumSumOldDefDef_IK3(array)
455#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
456 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldDefDef_IK3
459 integer(IKG) ,
intent(inout) ,
contiguous :: array(:)
464 PURE recursive module subroutine setCumSumOldDefDef_IK2(array)
465#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
466 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldDefDef_IK2
469 integer(IKG) ,
intent(inout) ,
contiguous :: array(:)
474 PURE recursive module subroutine setCumSumOldDefDef_IK1(array)
475#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
476 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldDefDef_IK1
479 integer(IKG) ,
intent(inout) ,
contiguous :: array(:)
486 PURE recursive module subroutine setCumSumOldDefDef_CK5(array)
487#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
488 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldDefDef_CK5
491 complex(CKG) ,
intent(inout) ,
contiguous :: array(:)
496 PURE recursive module subroutine setCumSumOldDefDef_CK4(array)
497#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
498 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldDefDef_CK4
501 complex(CKG) ,
intent(inout) ,
contiguous :: array(:)
506 PURE recursive module subroutine setCumSumOldDefDef_CK3(array)
507#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
508 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldDefDef_CK3
511 complex(CKG) ,
intent(inout) ,
contiguous :: array(:)
516 PURE recursive module subroutine setCumSumOldDefDef_CK2(array)
517#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
518 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldDefDef_CK2
521 complex(CKG) ,
intent(inout) ,
contiguous :: array(:)
526 PURE recursive module subroutine setCumSumOldDefDef_CK1(array)
527#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
528 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldDefDef_CK1
531 complex(CKG) ,
intent(inout) ,
contiguous :: array(:)
538 PURE recursive module subroutine setCumSumOldDefDef_RK5(array)
539#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
540 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldDefDef_RK5
543 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
548 PURE recursive module subroutine setCumSumOldDefDef_RK4(array)
549#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
550 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldDefDef_RK4
553 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
558 PURE recursive module subroutine setCumSumOldDefDef_RK3(array)
559#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
560 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldDefDef_RK3
563 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
568 PURE recursive module subroutine setCumSumOldDefDef_RK2(array)
569#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
570 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldDefDef_RK2
573 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
578 PURE recursive module subroutine setCumSumOldDefDef_RK1(array)
579#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
580 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldDefDef_RK1
583 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
596 PURE recursive module subroutine setCumSumNewDefDef_IK5(cumsum, array)
597#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
598 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewDefDef_IK5
601 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
602 integer(IKG) ,
intent(out) ,
contiguous :: cumsum(:)
607 PURE recursive module subroutine setCumSumNewDefDef_IK4(cumsum, array)
608#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
609 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewDefDef_IK4
612 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
613 integer(IKG) ,
intent(out) ,
contiguous :: cumsum(:)
618 PURE recursive module subroutine setCumSumNewDefDef_IK3(cumsum, array)
619#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
620 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewDefDef_IK3
623 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
624 integer(IKG) ,
intent(out) ,
contiguous :: cumsum(:)
629 PURE recursive module subroutine setCumSumNewDefDef_IK2(cumsum, array)
630#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
631 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewDefDef_IK2
634 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
635 integer(IKG) ,
intent(out) ,
contiguous :: cumsum(:)
640 PURE recursive module subroutine setCumSumNewDefDef_IK1(cumsum, array)
641#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
642 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewDefDef_IK1
645 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
646 integer(IKG) ,
intent(out) ,
contiguous :: cumsum(:)
653 PURE recursive module subroutine setCumSumNewDefDef_CK5(cumsum, array)
654#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
655 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewDefDef_CK5
658 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
659 complex(CKG) ,
intent(out) ,
contiguous :: cumsum(:)
664 PURE recursive module subroutine setCumSumNewDefDef_CK4(cumsum, array)
665#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
666 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewDefDef_CK4
669 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
670 complex(CKG) ,
intent(out) ,
contiguous :: cumsum(:)
675 PURE recursive module subroutine setCumSumNewDefDef_CK3(cumsum, array)
676#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
677 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewDefDef_CK3
680 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
681 complex(CKG) ,
intent(out) ,
contiguous :: cumsum(:)
686 PURE recursive module subroutine setCumSumNewDefDef_CK2(cumsum, array)
687#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
688 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewDefDef_CK2
691 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
692 complex(CKG) ,
intent(out) ,
contiguous :: cumsum(:)
697 PURE recursive module subroutine setCumSumNewDefDef_CK1(cumsum, array)
698#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
699 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewDefDef_CK1
702 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
703 complex(CKG) ,
intent(out) ,
contiguous :: cumsum(:)
710 PURE recursive module subroutine setCumSumNewDefDef_RK5(cumsum, array)
711#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
712 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewDefDef_RK5
715 real(RKG) ,
intent(in) ,
contiguous :: array(:)
716 real(RKG) ,
intent(out) ,
contiguous :: cumsum(:)
721 PURE recursive module subroutine setCumSumNewDefDef_RK4(cumsum, array)
722#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
723 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewDefDef_RK4
726 real(RKG) ,
intent(in) ,
contiguous :: array(:)
727 real(RKG) ,
intent(out) ,
contiguous :: cumsum(:)
732 PURE recursive module subroutine setCumSumNewDefDef_RK3(cumsum, array)
733#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
734 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewDefDef_RK3
737 real(RKG) ,
intent(in) ,
contiguous :: array(:)
738 real(RKG) ,
intent(out) ,
contiguous :: cumsum(:)
743 PURE recursive module subroutine setCumSumNewDefDef_RK2(cumsum, array)
744#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
745 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewDefDef_RK2
748 real(RKG) ,
intent(in) ,
contiguous :: array(:)
749 real(RKG) ,
intent(out) ,
contiguous :: cumsum(:)
754 PURE recursive module subroutine setCumSumNewDefDef_RK1(cumsum, array)
755#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
756 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewDefDef_RK1
759 real(RKG) ,
intent(in) ,
contiguous :: array(:)
760 real(RKG) ,
intent(out) ,
contiguous :: cumsum(:)
783 PURE recursive module subroutine setCumSumOldForNon_IK5(array, direction, action)
784#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
785 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldForNon_IK5
788 integer(IKG) ,
intent(inout) ,
contiguous :: array(:)
789 type(forward_type) ,
intent(in) :: direction
790 type(nothing_type) ,
intent(in) :: action
795 PURE recursive module subroutine setCumSumOldForNon_IK4(array, direction, action)
796#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
797 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldForNon_IK4
800 integer(IKG) ,
intent(inout) ,
contiguous :: array(:)
801 type(forward_type) ,
intent(in) :: direction
802 type(nothing_type) ,
intent(in) :: action
807 PURE recursive module subroutine setCumSumOldForNon_IK3(array, direction, action)
808#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
809 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldForNon_IK3
812 integer(IKG) ,
intent(inout) ,
contiguous :: array(:)
813 type(forward_type) ,
intent(in) :: direction
814 type(nothing_type) ,
intent(in) :: action
819 PURE recursive module subroutine setCumSumOldForNon_IK2(array, direction, action)
820#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
821 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldForNon_IK2
824 integer(IKG) ,
intent(inout) ,
contiguous :: array(:)
825 type(forward_type) ,
intent(in) :: direction
826 type(nothing_type) ,
intent(in) :: action
831 PURE recursive module subroutine setCumSumOldForNon_IK1(array, direction, action)
832#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
833 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldForNon_IK1
836 integer(IKG) ,
intent(inout) ,
contiguous :: array(:)
837 type(forward_type) ,
intent(in) :: direction
838 type(nothing_type) ,
intent(in) :: action
845 PURE recursive module subroutine setCumSumOldForNon_CK5(array, direction, action)
846#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
847 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldForNon_CK5
850 complex(CKG) ,
intent(inout) ,
contiguous :: array(:)
851 type(forward_type) ,
intent(in) :: direction
852 type(nothing_type) ,
intent(in) :: action
857 PURE recursive module subroutine setCumSumOldForNon_CK4(array, direction, action)
858#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
859 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldForNon_CK4
862 complex(CKG) ,
intent(inout) ,
contiguous :: array(:)
863 type(forward_type) ,
intent(in) :: direction
864 type(nothing_type) ,
intent(in) :: action
869 PURE recursive module subroutine setCumSumOldForNon_CK3(array, direction, action)
870#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
871 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldForNon_CK3
874 complex(CKG) ,
intent(inout) ,
contiguous :: array(:)
875 type(forward_type) ,
intent(in) :: direction
876 type(nothing_type) ,
intent(in) :: action
881 PURE recursive module subroutine setCumSumOldForNon_CK2(array, direction, action)
882#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
883 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldForNon_CK2
886 complex(CKG) ,
intent(inout) ,
contiguous :: array(:)
887 type(forward_type) ,
intent(in) :: direction
888 type(nothing_type) ,
intent(in) :: action
893 PURE recursive module subroutine setCumSumOldForNon_CK1(array, direction, action)
894#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
895 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldForNon_CK1
898 complex(CKG) ,
intent(inout) ,
contiguous :: array(:)
899 type(forward_type) ,
intent(in) :: direction
900 type(nothing_type) ,
intent(in) :: action
907 PURE recursive module subroutine setCumSumOldForNon_RK5(array, direction, action)
908#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
909 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldForNon_RK5
912 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
913 type(forward_type) ,
intent(in) :: direction
914 type(nothing_type) ,
intent(in) :: action
919 PURE recursive module subroutine setCumSumOldForNon_RK4(array, direction, action)
920#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
921 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldForNon_RK4
924 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
925 type(forward_type) ,
intent(in) :: direction
926 type(nothing_type) ,
intent(in) :: action
931 PURE recursive module subroutine setCumSumOldForNon_RK3(array, direction, action)
932#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
933 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldForNon_RK3
936 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
937 type(forward_type) ,
intent(in) :: direction
938 type(nothing_type) ,
intent(in) :: action
943 PURE recursive module subroutine setCumSumOldForNon_RK2(array, direction, action)
944#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
945 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldForNon_RK2
948 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
949 type(forward_type) ,
intent(in) :: direction
950 type(nothing_type) ,
intent(in) :: action
955 PURE recursive module subroutine setCumSumOldForNon_RK1(array, direction, action)
956#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
957 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldForNon_RK1
960 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
961 type(forward_type) ,
intent(in) :: direction
962 type(nothing_type) ,
intent(in) :: action
975 PURE recursive module subroutine setCumSumOldForRev_IK5(array, direction, action)
976#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
977 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldForRev_IK5
980 integer(IKG) ,
intent(inout) ,
contiguous :: array(:)
981 type(forward_type) ,
intent(in) :: direction
982 type(reverse_type) ,
intent(in) :: action
987 PURE recursive module subroutine setCumSumOldForRev_IK4(array, direction, action)
988#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
989 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldForRev_IK4
992 integer(IKG) ,
intent(inout) ,
contiguous :: array(:)
993 type(forward_type) ,
intent(in) :: direction
994 type(reverse_type) ,
intent(in) :: action
999 PURE recursive module subroutine setCumSumOldForRev_IK3(array, direction, action)
1000#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1001 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldForRev_IK3
1004 integer(IKG) ,
intent(inout) ,
contiguous :: array(:)
1005 type(forward_type) ,
intent(in) :: direction
1006 type(reverse_type) ,
intent(in) :: action
1011 PURE recursive module subroutine setCumSumOldForRev_IK2(array, direction, action)
1012#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1013 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldForRev_IK2
1016 integer(IKG) ,
intent(inout) ,
contiguous :: array(:)
1017 type(forward_type) ,
intent(in) :: direction
1018 type(reverse_type) ,
intent(in) :: action
1023 PURE recursive module subroutine setCumSumOldForRev_IK1(array, direction, action)
1024#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1025 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldForRev_IK1
1028 integer(IKG) ,
intent(inout) ,
contiguous :: array(:)
1029 type(forward_type) ,
intent(in) :: direction
1030 type(reverse_type) ,
intent(in) :: action
1037 PURE recursive module subroutine setCumSumOldForRev_CK5(array, direction, action)
1038#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1039 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldForRev_CK5
1042 complex(CKG) ,
intent(inout) ,
contiguous :: array(:)
1043 type(forward_type) ,
intent(in) :: direction
1044 type(reverse_type) ,
intent(in) :: action
1049 PURE recursive module subroutine setCumSumOldForRev_CK4(array, direction, action)
1050#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1051 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldForRev_CK4
1054 complex(CKG) ,
intent(inout) ,
contiguous :: array(:)
1055 type(forward_type) ,
intent(in) :: direction
1056 type(reverse_type) ,
intent(in) :: action
1061 PURE recursive module subroutine setCumSumOldForRev_CK3(array, direction, action)
1062#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1063 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldForRev_CK3
1066 complex(CKG) ,
intent(inout) ,
contiguous :: array(:)
1067 type(forward_type) ,
intent(in) :: direction
1068 type(reverse_type) ,
intent(in) :: action
1073 PURE recursive module subroutine setCumSumOldForRev_CK2(array, direction, action)
1074#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1075 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldForRev_CK2
1078 complex(CKG) ,
intent(inout) ,
contiguous :: array(:)
1079 type(forward_type) ,
intent(in) :: direction
1080 type(reverse_type) ,
intent(in) :: action
1085 PURE recursive module subroutine setCumSumOldForRev_CK1(array, direction, action)
1086#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1087 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldForRev_CK1
1090 complex(CKG) ,
intent(inout) ,
contiguous :: array(:)
1091 type(forward_type) ,
intent(in) :: direction
1092 type(reverse_type) ,
intent(in) :: action
1099 PURE recursive module subroutine setCumSumOldForRev_RK5(array, direction, action)
1100#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1101 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldForRev_RK5
1104 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
1105 type(forward_type) ,
intent(in) :: direction
1106 type(reverse_type) ,
intent(in) :: action
1111 PURE recursive module subroutine setCumSumOldForRev_RK4(array, direction, action)
1112#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1113 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldForRev_RK4
1116 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
1117 type(forward_type) ,
intent(in) :: direction
1118 type(reverse_type) ,
intent(in) :: action
1123 PURE recursive module subroutine setCumSumOldForRev_RK3(array, direction, action)
1124#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1125 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldForRev_RK3
1128 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
1129 type(forward_type) ,
intent(in) :: direction
1130 type(reverse_type) ,
intent(in) :: action
1135 PURE recursive module subroutine setCumSumOldForRev_RK2(array, direction, action)
1136#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1137 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldForRev_RK2
1140 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
1141 type(forward_type) ,
intent(in) :: direction
1142 type(reverse_type) ,
intent(in) :: action
1147 PURE recursive module subroutine setCumSumOldForRev_RK1(array, direction, action)
1148#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1149 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldForRev_RK1
1152 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
1153 type(forward_type) ,
intent(in) :: direction
1154 type(reverse_type) ,
intent(in) :: action
1177 PURE recursive module subroutine setCumSumOldBacNon_IK5(array, direction, action)
1178#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1179 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldBacNon_IK5
1182 integer(IKG) ,
intent(inout) ,
contiguous :: array(:)
1183 type(backward_type) ,
intent(in) :: direction
1184 type(nothing_type) ,
intent(in) :: action
1189 PURE recursive module subroutine setCumSumOldBacNon_IK4(array, direction, action)
1190#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1191 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldBacNon_IK4
1194 integer(IKG) ,
intent(inout) ,
contiguous :: array(:)
1195 type(backward_type) ,
intent(in) :: direction
1196 type(nothing_type) ,
intent(in) :: action
1201 PURE recursive module subroutine setCumSumOldBacNon_IK3(array, direction, action)
1202#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1203 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldBacNon_IK3
1206 integer(IKG) ,
intent(inout) ,
contiguous :: array(:)
1207 type(backward_type) ,
intent(in) :: direction
1208 type(nothing_type) ,
intent(in) :: action
1213 PURE recursive module subroutine setCumSumOldBacNon_IK2(array, direction, action)
1214#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1215 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldBacNon_IK2
1218 integer(IKG) ,
intent(inout) ,
contiguous :: array(:)
1219 type(backward_type) ,
intent(in) :: direction
1220 type(nothing_type) ,
intent(in) :: action
1225 PURE recursive module subroutine setCumSumOldBacNon_IK1(array, direction, action)
1226#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1227 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldBacNon_IK1
1230 integer(IKG) ,
intent(inout) ,
contiguous :: array(:)
1231 type(backward_type) ,
intent(in) :: direction
1232 type(nothing_type) ,
intent(in) :: action
1239 PURE recursive module subroutine setCumSumOldBacNon_CK5(array, direction, action)
1240#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1241 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldBacNon_CK5
1244 complex(CKG) ,
intent(inout) ,
contiguous :: array(:)
1245 type(backward_type) ,
intent(in) :: direction
1246 type(nothing_type) ,
intent(in) :: action
1251 PURE recursive module subroutine setCumSumOldBacNon_CK4(array, direction, action)
1252#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1253 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldBacNon_CK4
1256 complex(CKG) ,
intent(inout) ,
contiguous :: array(:)
1257 type(backward_type) ,
intent(in) :: direction
1258 type(nothing_type) ,
intent(in) :: action
1263 PURE recursive module subroutine setCumSumOldBacNon_CK3(array, direction, action)
1264#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1265 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldBacNon_CK3
1268 complex(CKG) ,
intent(inout) ,
contiguous :: array(:)
1269 type(backward_type) ,
intent(in) :: direction
1270 type(nothing_type) ,
intent(in) :: action
1275 PURE recursive module subroutine setCumSumOldBacNon_CK2(array, direction, action)
1276#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1277 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldBacNon_CK2
1280 complex(CKG) ,
intent(inout) ,
contiguous :: array(:)
1281 type(backward_type) ,
intent(in) :: direction
1282 type(nothing_type) ,
intent(in) :: action
1287 PURE recursive module subroutine setCumSumOldBacNon_CK1(array, direction, action)
1288#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1289 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldBacNon_CK1
1292 complex(CKG) ,
intent(inout) ,
contiguous :: array(:)
1293 type(backward_type) ,
intent(in) :: direction
1294 type(nothing_type) ,
intent(in) :: action
1301 PURE recursive module subroutine setCumSumOldBacNon_RK5(array, direction, action)
1302#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1303 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldBacNon_RK5
1306 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
1307 type(backward_type) ,
intent(in) :: direction
1308 type(nothing_type) ,
intent(in) :: action
1313 PURE recursive module subroutine setCumSumOldBacNon_RK4(array, direction, action)
1314#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1315 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldBacNon_RK4
1318 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
1319 type(backward_type) ,
intent(in) :: direction
1320 type(nothing_type) ,
intent(in) :: action
1325 PURE recursive module subroutine setCumSumOldBacNon_RK3(array, direction, action)
1326#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1327 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldBacNon_RK3
1330 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
1331 type(backward_type) ,
intent(in) :: direction
1332 type(nothing_type) ,
intent(in) :: action
1337 PURE recursive module subroutine setCumSumOldBacNon_RK2(array, direction, action)
1338#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1339 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldBacNon_RK2
1342 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
1343 type(backward_type) ,
intent(in) :: direction
1344 type(nothing_type) ,
intent(in) :: action
1349 PURE recursive module subroutine setCumSumOldBacNon_RK1(array, direction, action)
1350#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1351 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldBacNon_RK1
1354 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
1355 type(backward_type) ,
intent(in) :: direction
1356 type(nothing_type) ,
intent(in) :: action
1369 PURE recursive module subroutine setCumSumOldBacRev_IK5(array, direction, action)
1370#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1371 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldBacRev_IK5
1374 integer(IKG) ,
intent(inout) ,
contiguous :: array(:)
1375 type(backward_type) ,
intent(in) :: direction
1376 type(reverse_type) ,
intent(in) :: action
1381 PURE recursive module subroutine setCumSumOldBacRev_IK4(array, direction, action)
1382#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1383 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldBacRev_IK4
1386 integer(IKG) ,
intent(inout) ,
contiguous :: array(:)
1387 type(backward_type) ,
intent(in) :: direction
1388 type(reverse_type) ,
intent(in) :: action
1393 PURE recursive module subroutine setCumSumOldBacRev_IK3(array, direction, action)
1394#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1395 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldBacRev_IK3
1398 integer(IKG) ,
intent(inout) ,
contiguous :: array(:)
1399 type(backward_type) ,
intent(in) :: direction
1400 type(reverse_type) ,
intent(in) :: action
1405 PURE recursive module subroutine setCumSumOldBacRev_IK2(array, direction, action)
1406#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1407 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldBacRev_IK2
1410 integer(IKG) ,
intent(inout) ,
contiguous :: array(:)
1411 type(backward_type) ,
intent(in) :: direction
1412 type(reverse_type) ,
intent(in) :: action
1417 PURE recursive module subroutine setCumSumOldBacRev_IK1(array, direction, action)
1418#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1419 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldBacRev_IK1
1422 integer(IKG) ,
intent(inout) ,
contiguous :: array(:)
1423 type(backward_type) ,
intent(in) :: direction
1424 type(reverse_type) ,
intent(in) :: action
1431 PURE recursive module subroutine setCumSumOldBacRev_CK5(array, direction, action)
1432#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1433 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldBacRev_CK5
1436 complex(CKG) ,
intent(inout) ,
contiguous :: array(:)
1437 type(backward_type) ,
intent(in) :: direction
1438 type(reverse_type) ,
intent(in) :: action
1443 PURE recursive module subroutine setCumSumOldBacRev_CK4(array, direction, action)
1444#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1445 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldBacRev_CK4
1448 complex(CKG) ,
intent(inout) ,
contiguous :: array(:)
1449 type(backward_type) ,
intent(in) :: direction
1450 type(reverse_type) ,
intent(in) :: action
1455 PURE recursive module subroutine setCumSumOldBacRev_CK3(array, direction, action)
1456#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1457 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldBacRev_CK3
1460 complex(CKG) ,
intent(inout) ,
contiguous :: array(:)
1461 type(backward_type) ,
intent(in) :: direction
1462 type(reverse_type) ,
intent(in) :: action
1467 PURE recursive module subroutine setCumSumOldBacRev_CK2(array, direction, action)
1468#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1469 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldBacRev_CK2
1472 complex(CKG) ,
intent(inout) ,
contiguous :: array(:)
1473 type(backward_type) ,
intent(in) :: direction
1474 type(reverse_type) ,
intent(in) :: action
1479 PURE recursive module subroutine setCumSumOldBacRev_CK1(array, direction, action)
1480#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1481 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldBacRev_CK1
1484 complex(CKG) ,
intent(inout) ,
contiguous :: array(:)
1485 type(backward_type) ,
intent(in) :: direction
1486 type(reverse_type) ,
intent(in) :: action
1493 PURE recursive module subroutine setCumSumOldBacRev_RK5(array, direction, action)
1494#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1495 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldBacRev_RK5
1498 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
1499 type(backward_type) ,
intent(in) :: direction
1500 type(reverse_type) ,
intent(in) :: action
1505 PURE recursive module subroutine setCumSumOldBacRev_RK4(array, direction, action)
1506#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1507 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldBacRev_RK4
1510 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
1511 type(backward_type) ,
intent(in) :: direction
1512 type(reverse_type) ,
intent(in) :: action
1517 PURE recursive module subroutine setCumSumOldBacRev_RK3(array, direction, action)
1518#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1519 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldBacRev_RK3
1522 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
1523 type(backward_type) ,
intent(in) :: direction
1524 type(reverse_type) ,
intent(in) :: action
1529 PURE recursive module subroutine setCumSumOldBacRev_RK2(array, direction, action)
1530#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1531 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldBacRev_RK2
1534 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
1535 type(backward_type) ,
intent(in) :: direction
1536 type(reverse_type) ,
intent(in) :: action
1541 PURE recursive module subroutine setCumSumOldBacRev_RK1(array, direction, action)
1542#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1543 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumOldBacRev_RK1
1546 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
1547 type(backward_type) ,
intent(in) :: direction
1548 type(reverse_type) ,
intent(in) :: action
1571 PURE recursive module subroutine setCumSumNewForNon_IK5(cumsum, array, direction, action)
1572#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1573 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewForNon_IK5
1576 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1577 integer(IKG) ,
intent(out) ,
contiguous :: cumsum(:)
1578 type(forward_type) ,
intent(in) :: direction
1579 type(nothing_type) ,
intent(in) :: action
1584 PURE recursive module subroutine setCumSumNewForNon_IK4(cumsum, array, direction, action)
1585#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1586 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewForNon_IK4
1589 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1590 integer(IKG) ,
intent(out) ,
contiguous :: cumsum(:)
1591 type(forward_type) ,
intent(in) :: direction
1592 type(nothing_type) ,
intent(in) :: action
1597 PURE recursive module subroutine setCumSumNewForNon_IK3(cumsum, array, direction, action)
1598#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1599 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewForNon_IK3
1602 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1603 integer(IKG) ,
intent(out) ,
contiguous :: cumsum(:)
1604 type(forward_type) ,
intent(in) :: direction
1605 type(nothing_type) ,
intent(in) :: action
1610 PURE recursive module subroutine setCumSumNewForNon_IK2(cumsum, array, direction, action)
1611#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1612 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewForNon_IK2
1615 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1616 integer(IKG) ,
intent(out) ,
contiguous :: cumsum(:)
1617 type(forward_type) ,
intent(in) :: direction
1618 type(nothing_type) ,
intent(in) :: action
1623 PURE recursive module subroutine setCumSumNewForNon_IK1(cumsum, array, direction, action)
1624#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1625 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewForNon_IK1
1628 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1629 integer(IKG) ,
intent(out) ,
contiguous :: cumsum(:)
1630 type(forward_type) ,
intent(in) :: direction
1631 type(nothing_type) ,
intent(in) :: action
1638 PURE recursive module subroutine setCumSumNewForNon_CK5(cumsum, array, direction, action)
1639#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1640 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewForNon_CK5
1643 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1644 complex(CKG) ,
intent(out) ,
contiguous :: cumsum(:)
1645 type(forward_type) ,
intent(in) :: direction
1646 type(nothing_type) ,
intent(in) :: action
1651 PURE recursive module subroutine setCumSumNewForNon_CK4(cumsum, array, direction, action)
1652#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1653 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewForNon_CK4
1656 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1657 complex(CKG) ,
intent(out) ,
contiguous :: cumsum(:)
1658 type(forward_type) ,
intent(in) :: direction
1659 type(nothing_type) ,
intent(in) :: action
1664 PURE recursive module subroutine setCumSumNewForNon_CK3(cumsum, array, direction, action)
1665#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1666 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewForNon_CK3
1669 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1670 complex(CKG) ,
intent(out) ,
contiguous :: cumsum(:)
1671 type(forward_type) ,
intent(in) :: direction
1672 type(nothing_type) ,
intent(in) :: action
1677 PURE recursive module subroutine setCumSumNewForNon_CK2(cumsum, array, direction, action)
1678#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1679 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewForNon_CK2
1682 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1683 complex(CKG) ,
intent(out) ,
contiguous :: cumsum(:)
1684 type(forward_type) ,
intent(in) :: direction
1685 type(nothing_type) ,
intent(in) :: action
1690 PURE recursive module subroutine setCumSumNewForNon_CK1(cumsum, array, direction, action)
1691#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1692 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewForNon_CK1
1695 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1696 complex(CKG) ,
intent(out) ,
contiguous :: cumsum(:)
1697 type(forward_type) ,
intent(in) :: direction
1698 type(nothing_type) ,
intent(in) :: action
1705 PURE recursive module subroutine setCumSumNewForNon_RK5(cumsum, array, direction, action)
1706#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1707 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewForNon_RK5
1710 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1711 real(RKG) ,
intent(out) ,
contiguous :: cumsum(:)
1712 type(forward_type) ,
intent(in) :: direction
1713 type(nothing_type) ,
intent(in) :: action
1718 PURE recursive module subroutine setCumSumNewForNon_RK4(cumsum, array, direction, action)
1719#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1720 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewForNon_RK4
1723 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1724 real(RKG) ,
intent(out) ,
contiguous :: cumsum(:)
1725 type(forward_type) ,
intent(in) :: direction
1726 type(nothing_type) ,
intent(in) :: action
1731 PURE recursive module subroutine setCumSumNewForNon_RK3(cumsum, array, direction, action)
1732#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1733 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewForNon_RK3
1736 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1737 real(RKG) ,
intent(out) ,
contiguous :: cumsum(:)
1738 type(forward_type) ,
intent(in) :: direction
1739 type(nothing_type) ,
intent(in) :: action
1744 PURE recursive module subroutine setCumSumNewForNon_RK2(cumsum, array, direction, action)
1745#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1746 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewForNon_RK2
1749 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1750 real(RKG) ,
intent(out) ,
contiguous :: cumsum(:)
1751 type(forward_type) ,
intent(in) :: direction
1752 type(nothing_type) ,
intent(in) :: action
1757 PURE recursive module subroutine setCumSumNewForNon_RK1(cumsum, array, direction, action)
1758#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1759 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewForNon_RK1
1762 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1763 real(RKG) ,
intent(out) ,
contiguous :: cumsum(:)
1764 type(forward_type) ,
intent(in) :: direction
1765 type(nothing_type) ,
intent(in) :: action
1778 PURE recursive module subroutine setCumSumNewForRev_IK5(cumsum, array, direction, action)
1779#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1780 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewForRev_IK5
1783 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1784 integer(IKG) ,
intent(out) ,
contiguous :: cumsum(:)
1785 type(forward_type) ,
intent(in) :: direction
1786 type(reverse_type) ,
intent(in) :: action
1791 PURE recursive module subroutine setCumSumNewForRev_IK4(cumsum, array, direction, action)
1792#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1793 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewForRev_IK4
1796 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1797 integer(IKG) ,
intent(out) ,
contiguous :: cumsum(:)
1798 type(forward_type) ,
intent(in) :: direction
1799 type(reverse_type) ,
intent(in) :: action
1804 PURE recursive module subroutine setCumSumNewForRev_IK3(cumsum, array, direction, action)
1805#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1806 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewForRev_IK3
1809 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1810 integer(IKG) ,
intent(out) ,
contiguous :: cumsum(:)
1811 type(forward_type) ,
intent(in) :: direction
1812 type(reverse_type) ,
intent(in) :: action
1817 PURE recursive module subroutine setCumSumNewForRev_IK2(cumsum, array, direction, action)
1818#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1819 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewForRev_IK2
1822 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1823 integer(IKG) ,
intent(out) ,
contiguous :: cumsum(:)
1824 type(forward_type) ,
intent(in) :: direction
1825 type(reverse_type) ,
intent(in) :: action
1830 PURE recursive module subroutine setCumSumNewForRev_IK1(cumsum, array, direction, action)
1831#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1832 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewForRev_IK1
1835 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1836 integer(IKG) ,
intent(out) ,
contiguous :: cumsum(:)
1837 type(forward_type) ,
intent(in) :: direction
1838 type(reverse_type) ,
intent(in) :: action
1845 PURE recursive module subroutine setCumSumNewForRev_CK5(cumsum, array, direction, action)
1846#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1847 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewForRev_CK5
1850 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1851 complex(CKG) ,
intent(out) ,
contiguous :: cumsum(:)
1852 type(forward_type) ,
intent(in) :: direction
1853 type(reverse_type) ,
intent(in) :: action
1858 PURE recursive module subroutine setCumSumNewForRev_CK4(cumsum, array, direction, action)
1859#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1860 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewForRev_CK4
1863 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1864 complex(CKG) ,
intent(out) ,
contiguous :: cumsum(:)
1865 type(forward_type) ,
intent(in) :: direction
1866 type(reverse_type) ,
intent(in) :: action
1871 PURE recursive module subroutine setCumSumNewForRev_CK3(cumsum, array, direction, action)
1872#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1873 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewForRev_CK3
1876 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1877 complex(CKG) ,
intent(out) ,
contiguous :: cumsum(:)
1878 type(forward_type) ,
intent(in) :: direction
1879 type(reverse_type) ,
intent(in) :: action
1884 PURE recursive module subroutine setCumSumNewForRev_CK2(cumsum, array, direction, action)
1885#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1886 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewForRev_CK2
1889 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1890 complex(CKG) ,
intent(out) ,
contiguous :: cumsum(:)
1891 type(forward_type) ,
intent(in) :: direction
1892 type(reverse_type) ,
intent(in) :: action
1897 PURE recursive module subroutine setCumSumNewForRev_CK1(cumsum, array, direction, action)
1898#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1899 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewForRev_CK1
1902 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1903 complex(CKG) ,
intent(out) ,
contiguous :: cumsum(:)
1904 type(forward_type) ,
intent(in) :: direction
1905 type(reverse_type) ,
intent(in) :: action
1912 PURE recursive module subroutine setCumSumNewForRev_RK5(cumsum, array, direction, action)
1913#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1914 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewForRev_RK5
1917 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1918 real(RKG) ,
intent(out) ,
contiguous :: cumsum(:)
1919 type(forward_type) ,
intent(in) :: direction
1920 type(reverse_type) ,
intent(in) :: action
1925 PURE recursive module subroutine setCumSumNewForRev_RK4(cumsum, array, direction, action)
1926#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1927 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewForRev_RK4
1930 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1931 real(RKG) ,
intent(out) ,
contiguous :: cumsum(:)
1932 type(forward_type) ,
intent(in) :: direction
1933 type(reverse_type) ,
intent(in) :: action
1938 PURE recursive module subroutine setCumSumNewForRev_RK3(cumsum, array, direction, action)
1939#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1940 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewForRev_RK3
1943 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1944 real(RKG) ,
intent(out) ,
contiguous :: cumsum(:)
1945 type(forward_type) ,
intent(in) :: direction
1946 type(reverse_type) ,
intent(in) :: action
1951 PURE recursive module subroutine setCumSumNewForRev_RK2(cumsum, array, direction, action)
1952#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1953 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewForRev_RK2
1956 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1957 real(RKG) ,
intent(out) ,
contiguous :: cumsum(:)
1958 type(forward_type) ,
intent(in) :: direction
1959 type(reverse_type) ,
intent(in) :: action
1964 PURE recursive module subroutine setCumSumNewForRev_RK1(cumsum, array, direction, action)
1965#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1966 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewForRev_RK1
1969 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1970 real(RKG) ,
intent(out) ,
contiguous :: cumsum(:)
1971 type(forward_type) ,
intent(in) :: direction
1972 type(reverse_type) ,
intent(in) :: action
1995 PURE recursive module subroutine setCumSumNewBacNon_IK5(cumsum, array, direction, action)
1996#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1997 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewBacNon_IK5
2000 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
2001 integer(IKG) ,
intent(out) ,
contiguous :: cumsum(:)
2002 type(backward_type) ,
intent(in) :: direction
2003 type(nothing_type) ,
intent(in) :: action
2008 PURE recursive module subroutine setCumSumNewBacNon_IK4(cumsum, array, direction, action)
2009#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2010 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewBacNon_IK4
2013 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
2014 integer(IKG) ,
intent(out) ,
contiguous :: cumsum(:)
2015 type(backward_type) ,
intent(in) :: direction
2016 type(nothing_type) ,
intent(in) :: action
2021 PURE recursive module subroutine setCumSumNewBacNon_IK3(cumsum, array, direction, action)
2022#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2023 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewBacNon_IK3
2026 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
2027 integer(IKG) ,
intent(out) ,
contiguous :: cumsum(:)
2028 type(backward_type) ,
intent(in) :: direction
2029 type(nothing_type) ,
intent(in) :: action
2034 PURE recursive module subroutine setCumSumNewBacNon_IK2(cumsum, array, direction, action)
2035#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2036 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewBacNon_IK2
2039 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
2040 integer(IKG) ,
intent(out) ,
contiguous :: cumsum(:)
2041 type(backward_type) ,
intent(in) :: direction
2042 type(nothing_type) ,
intent(in) :: action
2047 PURE recursive module subroutine setCumSumNewBacNon_IK1(cumsum, array, direction, action)
2048#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2049 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewBacNon_IK1
2052 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
2053 integer(IKG) ,
intent(out) ,
contiguous :: cumsum(:)
2054 type(backward_type) ,
intent(in) :: direction
2055 type(nothing_type) ,
intent(in) :: action
2062 PURE recursive module subroutine setCumSumNewBacNon_CK5(cumsum, array, direction, action)
2063#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2064 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewBacNon_CK5
2067 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2068 complex(CKG) ,
intent(out) ,
contiguous :: cumsum(:)
2069 type(backward_type) ,
intent(in) :: direction
2070 type(nothing_type) ,
intent(in) :: action
2075 PURE recursive module subroutine setCumSumNewBacNon_CK4(cumsum, array, direction, action)
2076#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2077 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewBacNon_CK4
2080 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2081 complex(CKG) ,
intent(out) ,
contiguous :: cumsum(:)
2082 type(backward_type) ,
intent(in) :: direction
2083 type(nothing_type) ,
intent(in) :: action
2088 PURE recursive module subroutine setCumSumNewBacNon_CK3(cumsum, array, direction, action)
2089#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2090 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewBacNon_CK3
2093 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2094 complex(CKG) ,
intent(out) ,
contiguous :: cumsum(:)
2095 type(backward_type) ,
intent(in) :: direction
2096 type(nothing_type) ,
intent(in) :: action
2101 PURE recursive module subroutine setCumSumNewBacNon_CK2(cumsum, array, direction, action)
2102#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2103 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewBacNon_CK2
2106 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2107 complex(CKG) ,
intent(out) ,
contiguous :: cumsum(:)
2108 type(backward_type) ,
intent(in) :: direction
2109 type(nothing_type) ,
intent(in) :: action
2114 PURE recursive module subroutine setCumSumNewBacNon_CK1(cumsum, array, direction, action)
2115#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2116 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewBacNon_CK1
2119 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2120 complex(CKG) ,
intent(out) ,
contiguous :: cumsum(:)
2121 type(backward_type) ,
intent(in) :: direction
2122 type(nothing_type) ,
intent(in) :: action
2129 PURE recursive module subroutine setCumSumNewBacNon_RK5(cumsum, array, direction, action)
2130#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2131 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewBacNon_RK5
2134 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2135 real(RKG) ,
intent(out) ,
contiguous :: cumsum(:)
2136 type(backward_type) ,
intent(in) :: direction
2137 type(nothing_type) ,
intent(in) :: action
2142 PURE recursive module subroutine setCumSumNewBacNon_RK4(cumsum, array, direction, action)
2143#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2144 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewBacNon_RK4
2147 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2148 real(RKG) ,
intent(out) ,
contiguous :: cumsum(:)
2149 type(backward_type) ,
intent(in) :: direction
2150 type(nothing_type) ,
intent(in) :: action
2155 PURE recursive module subroutine setCumSumNewBacNon_RK3(cumsum, array, direction, action)
2156#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2157 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewBacNon_RK3
2160 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2161 real(RKG) ,
intent(out) ,
contiguous :: cumsum(:)
2162 type(backward_type) ,
intent(in) :: direction
2163 type(nothing_type) ,
intent(in) :: action
2168 PURE recursive module subroutine setCumSumNewBacNon_RK2(cumsum, array, direction, action)
2169#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2170 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewBacNon_RK2
2173 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2174 real(RKG) ,
intent(out) ,
contiguous :: cumsum(:)
2175 type(backward_type) ,
intent(in) :: direction
2176 type(nothing_type) ,
intent(in) :: action
2181 PURE recursive module subroutine setCumSumNewBacNon_RK1(cumsum, array, direction, action)
2182#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2183 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewBacNon_RK1
2186 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2187 real(RKG) ,
intent(out) ,
contiguous :: cumsum(:)
2188 type(backward_type) ,
intent(in) :: direction
2189 type(nothing_type) ,
intent(in) :: action
2202 PURE recursive module subroutine setCumSumNewBacRev_IK5(cumsum, array, direction, action)
2203#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2204 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewBacRev_IK5
2207 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
2208 integer(IKG) ,
intent(out) ,
contiguous :: cumsum(:)
2209 type(backward_type) ,
intent(in) :: direction
2210 type(reverse_type) ,
intent(in) :: action
2215 PURE recursive module subroutine setCumSumNewBacRev_IK4(cumsum, array, direction, action)
2216#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2217 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewBacRev_IK4
2220 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
2221 integer(IKG) ,
intent(out) ,
contiguous :: cumsum(:)
2222 type(backward_type) ,
intent(in) :: direction
2223 type(reverse_type) ,
intent(in) :: action
2228 PURE recursive module subroutine setCumSumNewBacRev_IK3(cumsum, array, direction, action)
2229#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2230 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewBacRev_IK3
2233 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
2234 integer(IKG) ,
intent(out) ,
contiguous :: cumsum(:)
2235 type(backward_type) ,
intent(in) :: direction
2236 type(reverse_type) ,
intent(in) :: action
2241 PURE recursive module subroutine setCumSumNewBacRev_IK2(cumsum, array, direction, action)
2242#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2243 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewBacRev_IK2
2246 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
2247 integer(IKG) ,
intent(out) ,
contiguous :: cumsum(:)
2248 type(backward_type) ,
intent(in) :: direction
2249 type(reverse_type) ,
intent(in) :: action
2254 PURE recursive module subroutine setCumSumNewBacRev_IK1(cumsum, array, direction, action)
2255#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2256 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewBacRev_IK1
2259 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
2260 integer(IKG) ,
intent(out) ,
contiguous :: cumsum(:)
2261 type(backward_type) ,
intent(in) :: direction
2262 type(reverse_type) ,
intent(in) :: action
2269 PURE recursive module subroutine setCumSumNewBacRev_CK5(cumsum, array, direction, action)
2270#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2271 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewBacRev_CK5
2274 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2275 complex(CKG) ,
intent(out) ,
contiguous :: cumsum(:)
2276 type(backward_type) ,
intent(in) :: direction
2277 type(reverse_type) ,
intent(in) :: action
2282 PURE recursive module subroutine setCumSumNewBacRev_CK4(cumsum, array, direction, action)
2283#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2284 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewBacRev_CK4
2287 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2288 complex(CKG) ,
intent(out) ,
contiguous :: cumsum(:)
2289 type(backward_type) ,
intent(in) :: direction
2290 type(reverse_type) ,
intent(in) :: action
2295 PURE recursive module subroutine setCumSumNewBacRev_CK3(cumsum, array, direction, action)
2296#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2297 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewBacRev_CK3
2300 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2301 complex(CKG) ,
intent(out) ,
contiguous :: cumsum(:)
2302 type(backward_type) ,
intent(in) :: direction
2303 type(reverse_type) ,
intent(in) :: action
2308 PURE recursive module subroutine setCumSumNewBacRev_CK2(cumsum, array, direction, action)
2309#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2310 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewBacRev_CK2
2313 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2314 complex(CKG) ,
intent(out) ,
contiguous :: cumsum(:)
2315 type(backward_type) ,
intent(in) :: direction
2316 type(reverse_type) ,
intent(in) :: action
2321 PURE recursive module subroutine setCumSumNewBacRev_CK1(cumsum, array, direction, action)
2322#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2323 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewBacRev_CK1
2326 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2327 complex(CKG) ,
intent(out) ,
contiguous :: cumsum(:)
2328 type(backward_type) ,
intent(in) :: direction
2329 type(reverse_type) ,
intent(in) :: action
2336 PURE recursive module subroutine setCumSumNewBacRev_RK5(cumsum, array, direction, action)
2337#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2338 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewBacRev_RK5
2341 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2342 real(RKG) ,
intent(out) ,
contiguous :: cumsum(:)
2343 type(backward_type) ,
intent(in) :: direction
2344 type(reverse_type) ,
intent(in) :: action
2349 PURE recursive module subroutine setCumSumNewBacRev_RK4(cumsum, array, direction, action)
2350#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2351 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewBacRev_RK4
2354 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2355 real(RKG) ,
intent(out) ,
contiguous :: cumsum(:)
2356 type(backward_type) ,
intent(in) :: direction
2357 type(reverse_type) ,
intent(in) :: action
2362 PURE recursive module subroutine setCumSumNewBacRev_RK3(cumsum, array, direction, action)
2363#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2364 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewBacRev_RK3
2367 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2368 real(RKG) ,
intent(out) ,
contiguous :: cumsum(:)
2369 type(backward_type) ,
intent(in) :: direction
2370 type(reverse_type) ,
intent(in) :: action
2375 PURE recursive module subroutine setCumSumNewBacRev_RK2(cumsum, array, direction, action)
2376#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2377 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewBacRev_RK2
2380 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2381 real(RKG) ,
intent(out) ,
contiguous :: cumsum(:)
2382 type(backward_type) ,
intent(in) :: direction
2383 type(reverse_type) ,
intent(in) :: action
2388 PURE recursive module subroutine setCumSumNewBacRev_RK1(cumsum, array, direction, action)
2389#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2390 !DEC$ ATTRIBUTES DLLEXPORT :: setCumSumNewBacRev_RK1
2393 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2394 real(RKG) ,
intent(out) ,
contiguous :: cumsum(:)
2395 type(backward_type) ,
intent(in) :: direction
2396 type(reverse_type) ,
intent(in) :: action
Generate and return the cumulative sum of the input array, optionally in the backward direction and,...
Return the cumulative sum of the input array, optionally in the backward direction and optionally,...
This module contains abstract and concrete derived types that are required for compile-time resolutio...
type(forward_type), parameter forward
This is a scalar parameter object of type forward_type that is exclusively used to request reversal o...
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...
type(nothing_type), parameter nothing
This is a scalar parameter object of type nothing_type that is exclusively used to request no action ...
type(backward_type), parameter backward
This is a scalar parameter object of type backward_type that is exclusively used to request reversal ...
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
This module contains the procedures and interfaces for computing the cumulative sum of an array.
This is an abstract derived type for constructing concrete derived types to distinguish various proce...
This is a concrete derived type whose instances are exclusively used to request reversal of a given a...
This is an abstract derived type for constructing concrete derived types to distinguish various proce...
This is a concrete derived type whose instances are exclusively used to request reversal of a given a...
This is a concrete derived type whose instances are exclusively used to request no action on a given ...
This is a concrete derived type whose instances are exclusively used to request reversal of a given a...