184 PURE module function getCumPropExpDef_RK5(array, maxArray, direction, action)
result(cumPropExp)
185#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
186 !DEC$ ATTRIBUTES DLLEXPORT :: getCumPropExpDef_RK5
189 real(RKG) ,
intent(in),
contiguous :: array(:)
190 real(RKG) ,
intent(in) :: maxArray
191 class(direction_type) ,
intent(in),
optional :: direction
192 class(action_type) ,
intent(in),
optional :: action
193 real(RKG) :: cumPropExp(
size(array,
1, IK))
198 PURE module function getCumPropExpDef_RK4(array, maxArray, direction, action)
result(cumPropExp)
199#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
200 !DEC$ ATTRIBUTES DLLEXPORT :: getCumPropExpDef_RK4
203 real(RKG) ,
intent(in),
contiguous :: array(:)
204 real(RKG) ,
intent(in) :: maxArray
205 class(direction_type) ,
intent(in),
optional :: direction
206 class(action_type) ,
intent(in),
optional :: action
207 real(RKG) :: cumPropExp(
size(array,
1, IK))
212 PURE module function getCumPropExpDef_RK3(array, maxArray, direction, action)
result(cumPropExp)
213#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
214 !DEC$ ATTRIBUTES DLLEXPORT :: getCumPropExpDef_RK3
217 real(RKG) ,
intent(in),
contiguous :: array(:)
218 real(RKG) ,
intent(in) :: maxArray
219 class(direction_type) ,
intent(in),
optional :: direction
220 class(action_type) ,
intent(in),
optional :: action
221 real(RKG) :: cumPropExp(
size(array,
1, IK))
226 PURE module function getCumPropExpDef_RK2(array, maxArray, direction, action)
result(cumPropExp)
227#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
228 !DEC$ ATTRIBUTES DLLEXPORT :: getCumPropExpDef_RK2
231 real(RKG) ,
intent(in),
contiguous :: array(:)
232 real(RKG) ,
intent(in) :: maxArray
233 class(direction_type) ,
intent(in),
optional :: direction
234 class(action_type) ,
intent(in),
optional :: action
235 real(RKG) :: cumPropExp(
size(array,
1, IK))
240 PURE module function getCumPropExpDef_RK1(array, maxArray, direction, action)
result(cumPropExp)
241#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
242 !DEC$ ATTRIBUTES DLLEXPORT :: getCumPropExpDef_RK1
245 real(RKG) ,
intent(in),
contiguous :: array(:)
246 real(RKG) ,
intent(in) :: maxArray
247 class(direction_type) ,
intent(in),
optional :: direction
248 class(action_type) ,
intent(in),
optional :: action
249 real(RKG) :: cumPropExp(
size(array,
1, IK))
256 PURE module function getCumPropExpSel_RK5(array, maxArray, control, direction, action)
result(cumPropExp)
257#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
258 !DEC$ ATTRIBUTES DLLEXPORT :: getCumPropExpSel_RK5
261 real(RKG) ,
intent(in),
contiguous :: array(:)
262 real(RKG) ,
intent(in) :: maxArray
263 type(selection_type) ,
intent(in) :: control
264 class(direction_type) ,
intent(in),
optional :: direction
265 class(action_type) ,
intent(in),
optional :: action
266 real(RKG) :: cumPropExp(
size(array,
1, IK))
271 PURE module function getCumPropExpSel_RK4(array, maxArray, control, direction, action)
result(cumPropExp)
272#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
273 !DEC$ ATTRIBUTES DLLEXPORT :: getCumPropExpSel_RK4
276 real(RKG) ,
intent(in),
contiguous :: array(:)
277 real(RKG) ,
intent(in) :: maxArray
278 type(selection_type) ,
intent(in) :: control
279 class(direction_type) ,
intent(in),
optional :: direction
280 class(action_type) ,
intent(in),
optional :: action
281 real(RKG) :: cumPropExp(
size(array,
1, IK))
286 PURE module function getCumPropExpSel_RK3(array, maxArray, control, direction, action)
result(cumPropExp)
287#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
288 !DEC$ ATTRIBUTES DLLEXPORT :: getCumPropExpSel_RK3
291 real(RKG) ,
intent(in),
contiguous :: array(:)
292 real(RKG) ,
intent(in) :: maxArray
293 type(selection_type) ,
intent(in) :: control
294 class(direction_type) ,
intent(in),
optional :: direction
295 class(action_type) ,
intent(in),
optional :: action
296 real(RKG) :: cumPropExp(
size(array,
1, IK))
301 PURE module function getCumPropExpSel_RK2(array, maxArray, control, direction, action)
result(cumPropExp)
302#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
303 !DEC$ ATTRIBUTES DLLEXPORT :: getCumPropExpSel_RK2
306 real(RKG) ,
intent(in),
contiguous :: array(:)
307 real(RKG) ,
intent(in) :: maxArray
308 type(selection_type) ,
intent(in) :: control
309 class(direction_type) ,
intent(in),
optional :: direction
310 class(action_type) ,
intent(in),
optional :: action
311 real(RKG) :: cumPropExp(
size(array,
1, IK))
316 PURE module function getCumPropExpSel_RK1(array, maxArray, control, direction, action)
result(cumPropExp)
317#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
318 !DEC$ ATTRIBUTES DLLEXPORT :: getCumPropExpSel_RK1
321 real(RKG) ,
intent(in),
contiguous :: array(:)
322 real(RKG) ,
intent(in) :: maxArray
323 type(selection_type) ,
intent(in) :: control
324 class(direction_type) ,
intent(in),
optional :: direction
325 class(action_type) ,
intent(in),
optional :: action
326 real(RKG) :: cumPropExp(
size(array,
1, IK))
333 PURE module function getCumPropExpSeq_RK5(array, maxArray, control, direction, action)
result(cumPropExp)
334#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
335 !DEC$ ATTRIBUTES DLLEXPORT :: getCumPropExpSeq_RK5
338 real(RKG) ,
intent(in),
contiguous :: array(:)
339 real(RKG) ,
intent(in) :: maxArray
340 type(sequence_type) ,
intent(in) :: control
341 class(direction_type) ,
intent(in),
optional :: direction
342 class(action_type) ,
intent(in),
optional :: action
343 real(RKG) :: cumPropExp(
size(array,
1, IK))
348 PURE module function getCumPropExpSeq_RK4(array, maxArray, control, direction, action)
result(cumPropExp)
349#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
350 !DEC$ ATTRIBUTES DLLEXPORT :: getCumPropExpSeq_RK4
353 real(RKG) ,
intent(in),
contiguous :: array(:)
354 real(RKG) ,
intent(in) :: maxArray
355 type(sequence_type) ,
intent(in) :: control
356 class(direction_type) ,
intent(in),
optional :: direction
357 class(action_type) ,
intent(in),
optional :: action
358 real(RKG) :: cumPropExp(
size(array,
1, IK))
363 PURE module function getCumPropExpSeq_RK3(array, maxArray, control, direction, action)
result(cumPropExp)
364#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
365 !DEC$ ATTRIBUTES DLLEXPORT :: getCumPropExpSeq_RK3
368 real(RKG) ,
intent(in),
contiguous :: array(:)
369 real(RKG) ,
intent(in) :: maxArray
370 type(sequence_type) ,
intent(in) :: control
371 class(direction_type) ,
intent(in),
optional :: direction
372 class(action_type) ,
intent(in),
optional :: action
373 real(RKG) :: cumPropExp(
size(array,
1, IK))
378 PURE module function getCumPropExpSeq_RK2(array, maxArray, control, direction, action)
result(cumPropExp)
379#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
380 !DEC$ ATTRIBUTES DLLEXPORT :: getCumPropExpSeq_RK2
383 real(RKG) ,
intent(in),
contiguous :: array(:)
384 real(RKG) ,
intent(in) :: maxArray
385 type(sequence_type) ,
intent(in) :: control
386 class(direction_type) ,
intent(in),
optional :: direction
387 class(action_type) ,
intent(in),
optional :: action
388 real(RKG) :: cumPropExp(
size(array,
1, IK))
393 PURE module function getCumPropExpSeq_RK1(array, maxArray, control, direction, action)
result(cumPropExp)
394#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
395 !DEC$ ATTRIBUTES DLLEXPORT :: getCumPropExpSeq_RK1
398 real(RKG) ,
intent(in),
contiguous :: array(:)
399 real(RKG) ,
intent(in) :: maxArray
400 type(sequence_type) ,
intent(in) :: control
401 class(direction_type) ,
intent(in),
optional :: direction
402 class(action_type) ,
intent(in),
optional :: action
403 real(RKG) :: cumPropExp(
size(array,
1, IK))
574 PURE module subroutine setCumPropExpSeqOldDefDef_RK5(array, maxArray, control)
575#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
576 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSeqOldDefDef_RK5
579 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
580 real(RKG) ,
intent(in) :: maxArray
581 type(sequence_type) ,
intent(in) :: control
586 PURE module subroutine setCumPropExpSeqOldDefDef_RK4(array, maxArray, control)
587#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
588 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSeqOldDefDef_RK4
591 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
592 real(RKG) ,
intent(in) :: maxArray
593 type(sequence_type) ,
intent(in) :: control
598 PURE module subroutine setCumPropExpSeqOldDefDef_RK3(array, maxArray, control)
599#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
600 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSeqOldDefDef_RK3
603 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
604 real(RKG) ,
intent(in) :: maxArray
605 type(sequence_type) ,
intent(in) :: control
610 PURE module subroutine setCumPropExpSeqOldDefDef_RK2(array, maxArray, control)
611#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
612 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSeqOldDefDef_RK2
615 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
616 real(RKG) ,
intent(in) :: maxArray
617 type(sequence_type) ,
intent(in) :: control
622 PURE module subroutine setCumPropExpSeqOldDefDef_RK1(array, maxArray, control)
623#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
624 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSeqOldDefDef_RK1
627 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
628 real(RKG) ,
intent(in) :: maxArray
629 type(sequence_type) ,
intent(in) :: control
636 PURE module subroutine setCumPropExpSeqNewDefDef_RK5(cumPropExp, array, maxArray, control)
637#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
638 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSeqNewDefDef_RK5
641 real(RKG) ,
intent(out) ,
contiguous :: cumPropExp(:)
642 real(RKG) ,
intent(in) ,
contiguous :: array(:)
643 real(RKG) ,
intent(in) :: maxArray
644 type(sequence_type) ,
intent(in) :: control
649 PURE module subroutine setCumPropExpSeqNewDefDef_RK4(cumPropExp, array, maxArray, control)
650#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
651 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSeqNewDefDef_RK4
654 real(RKG) ,
intent(out) ,
contiguous :: cumPropExp(:)
655 real(RKG) ,
intent(in) ,
contiguous :: array(:)
656 real(RKG) ,
intent(in) :: maxArray
657 type(sequence_type) ,
intent(in) :: control
662 PURE module subroutine setCumPropExpSeqNewDefDef_RK3(cumPropExp, array, maxArray, control)
663#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
664 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSeqNewDefDef_RK3
667 real(RKG) ,
intent(out) ,
contiguous :: cumPropExp(:)
668 real(RKG) ,
intent(in) ,
contiguous :: array(:)
669 real(RKG) ,
intent(in) :: maxArray
670 type(sequence_type) ,
intent(in) :: control
675 PURE module subroutine setCumPropExpSeqNewDefDef_RK2(cumPropExp, array, maxArray, control)
676#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
677 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSeqNewDefDef_RK2
680 real(RKG) ,
intent(out) ,
contiguous :: cumPropExp(:)
681 real(RKG) ,
intent(in) ,
contiguous :: array(:)
682 real(RKG) ,
intent(in) :: maxArray
683 type(sequence_type) ,
intent(in) :: control
688 PURE module subroutine setCumPropExpSeqNewDefDef_RK1(cumPropExp, array, maxArray, control)
689#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
690 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSeqNewDefDef_RK1
693 real(RKG) ,
intent(out) ,
contiguous :: cumPropExp(:)
694 real(RKG) ,
intent(in) ,
contiguous :: array(:)
695 real(RKG) ,
intent(in) :: maxArray
696 type(sequence_type) ,
intent(in) :: control
711 PURE module subroutine setCumPropExpSeqOldForNon_RK5(array, maxArray, control, direction, action)
712#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
713 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSeqOldForNon_RK5
716 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
717 real(RKG) ,
intent(in) :: maxArray
718 type(forward_type) ,
intent(in) :: direction
719 type(nothing_type) ,
intent(in) :: action
720 type(sequence_type) ,
intent(in) :: control
725 PURE module subroutine setCumPropExpSeqOldForNon_RK4(array, maxArray, control, direction, action)
726#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
727 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSeqOldForNon_RK4
730 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
731 real(RKG) ,
intent(in) :: maxArray
732 type(forward_type) ,
intent(in) :: direction
733 type(nothing_type) ,
intent(in) :: action
734 type(sequence_type) ,
intent(in) :: control
739 PURE module subroutine setCumPropExpSeqOldForNon_RK3(array, maxArray, control, direction, action)
740#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
741 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSeqOldForNon_RK3
744 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
745 real(RKG) ,
intent(in) :: maxArray
746 type(forward_type) ,
intent(in) :: direction
747 type(nothing_type) ,
intent(in) :: action
748 type(sequence_type) ,
intent(in) :: control
753 PURE module subroutine setCumPropExpSeqOldForNon_RK2(array, maxArray, control, direction, action)
754#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
755 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSeqOldForNon_RK2
758 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
759 real(RKG) ,
intent(in) :: maxArray
760 type(forward_type) ,
intent(in) :: direction
761 type(nothing_type) ,
intent(in) :: action
762 type(sequence_type) ,
intent(in) :: control
767 PURE module subroutine setCumPropExpSeqOldForNon_RK1(array, maxArray, control, direction, action)
768#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
769 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSeqOldForNon_RK1
772 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
773 real(RKG) ,
intent(in) :: maxArray
774 type(forward_type) ,
intent(in) :: direction
775 type(nothing_type) ,
intent(in) :: action
776 type(sequence_type) ,
intent(in) :: control
783 PURE module subroutine setCumPropExpSeqOldForRev_RK5(array, maxArray, control, direction, action)
784#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
785 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSeqOldForRev_RK5
788 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
789 real(RKG) ,
intent(in) :: maxArray
790 type(forward_type) ,
intent(in) :: direction
791 type(reverse_type) ,
intent(in) :: action
792 type(sequence_type) ,
intent(in) :: control
797 PURE module subroutine setCumPropExpSeqOldForRev_RK4(array, maxArray, control, direction, action)
798#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
799 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSeqOldForRev_RK4
802 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
803 real(RKG) ,
intent(in) :: maxArray
804 type(forward_type) ,
intent(in) :: direction
805 type(reverse_type) ,
intent(in) :: action
806 type(sequence_type) ,
intent(in) :: control
811 PURE module subroutine setCumPropExpSeqOldForRev_RK3(array, maxArray, control, direction, action)
812#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
813 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSeqOldForRev_RK3
816 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
817 real(RKG) ,
intent(in) :: maxArray
818 type(forward_type) ,
intent(in) :: direction
819 type(reverse_type) ,
intent(in) :: action
820 type(sequence_type) ,
intent(in) :: control
825 PURE module subroutine setCumPropExpSeqOldForRev_RK2(array, maxArray, control, direction, action)
826#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
827 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSeqOldForRev_RK2
830 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
831 real(RKG) ,
intent(in) :: maxArray
832 type(forward_type) ,
intent(in) :: direction
833 type(reverse_type) ,
intent(in) :: action
834 type(sequence_type) ,
intent(in) :: control
839 PURE module subroutine setCumPropExpSeqOldForRev_RK1(array, maxArray, control, direction, action)
840#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
841 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSeqOldForRev_RK1
844 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
845 real(RKG) ,
intent(in) :: maxArray
846 type(forward_type) ,
intent(in) :: direction
847 type(reverse_type) ,
intent(in) :: action
848 type(sequence_type) ,
intent(in) :: control
863 PURE module subroutine setCumPropExpSeqOldBacNon_RK5(array, maxArray, control, direction, action)
864#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
865 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSeqOldBacNon_RK5
868 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
869 real(RKG) ,
intent(in) :: maxArray
870 type(backward_type) ,
intent(in) :: direction
871 type(nothing_type) ,
intent(in) :: action
872 type(sequence_type) ,
intent(in) :: control
877 PURE module subroutine setCumPropExpSeqOldBacNon_RK4(array, maxArray, control, direction, action)
878#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
879 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSeqOldBacNon_RK4
882 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
883 real(RKG) ,
intent(in) :: maxArray
884 type(backward_type) ,
intent(in) :: direction
885 type(nothing_type) ,
intent(in) :: action
886 type(sequence_type) ,
intent(in) :: control
891 PURE module subroutine setCumPropExpSeqOldBacNon_RK3(array, maxArray, control, direction, action)
892#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
893 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSeqOldBacNon_RK3
896 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
897 real(RKG) ,
intent(in) :: maxArray
898 type(backward_type) ,
intent(in) :: direction
899 type(nothing_type) ,
intent(in) :: action
900 type(sequence_type) ,
intent(in) :: control
905 PURE module subroutine setCumPropExpSeqOldBacNon_RK2(array, maxArray, control, direction, action)
906#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
907 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSeqOldBacNon_RK2
910 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
911 real(RKG) ,
intent(in) :: maxArray
912 type(backward_type) ,
intent(in) :: direction
913 type(nothing_type) ,
intent(in) :: action
914 type(sequence_type) ,
intent(in) :: control
919 PURE module subroutine setCumPropExpSeqOldBacNon_RK1(array, maxArray, control, direction, action)
920#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
921 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSeqOldBacNon_RK1
924 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
925 real(RKG) ,
intent(in) :: maxArray
926 type(backward_type) ,
intent(in) :: direction
927 type(nothing_type) ,
intent(in) :: action
928 type(sequence_type) ,
intent(in) :: control
935 PURE module subroutine setCumPropExpSeqOldBacRev_RK5(array, maxArray, control, direction, action)
936#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
937 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSeqOldBacRev_RK5
940 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
941 real(RKG) ,
intent(in) :: maxArray
942 type(backward_type) ,
intent(in) :: direction
943 type(reverse_type) ,
intent(in) :: action
944 type(sequence_type) ,
intent(in) :: control
949 PURE module subroutine setCumPropExpSeqOldBacRev_RK4(array, maxArray, control, direction, action)
950#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
951 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSeqOldBacRev_RK4
954 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
955 real(RKG) ,
intent(in) :: maxArray
956 type(backward_type) ,
intent(in) :: direction
957 type(reverse_type) ,
intent(in) :: action
958 type(sequence_type) ,
intent(in) :: control
963 PURE module subroutine setCumPropExpSeqOldBacRev_RK3(array, maxArray, control, direction, action)
964#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
965 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSeqOldBacRev_RK3
968 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
969 real(RKG) ,
intent(in) :: maxArray
970 type(backward_type) ,
intent(in) :: direction
971 type(reverse_type) ,
intent(in) :: action
972 type(sequence_type) ,
intent(in) :: control
977 PURE module subroutine setCumPropExpSeqOldBacRev_RK2(array, maxArray, control, direction, action)
978#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
979 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSeqOldBacRev_RK2
982 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
983 real(RKG) ,
intent(in) :: maxArray
984 type(backward_type) ,
intent(in) :: direction
985 type(reverse_type) ,
intent(in) :: action
986 type(sequence_type) ,
intent(in) :: control
991 PURE module subroutine setCumPropExpSeqOldBacRev_RK1(array, maxArray, control, direction, action)
992#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
993 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSeqOldBacRev_RK1
996 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
997 real(RKG) ,
intent(in) :: maxArray
998 type(backward_type) ,
intent(in) :: direction
999 type(reverse_type) ,
intent(in) :: action
1000 type(sequence_type) ,
intent(in) :: control
1015 PURE module subroutine setCumPropExpSeqNewForNon_RK5(cumPropExp, array, maxArray, control, direction, action)
1016#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1017 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSeqNewForNon_RK5
1020 real(RKG) ,
intent(out) ,
contiguous :: cumPropExp(:)
1021 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1022 real(RKG) ,
intent(in) :: maxArray
1023 type(forward_type) ,
intent(in) :: direction
1024 type(nothing_type) ,
intent(in) :: action
1025 type(sequence_type) ,
intent(in) :: control
1030 PURE module subroutine setCumPropExpSeqNewForNon_RK4(cumPropExp, array, maxArray, control, direction, action)
1031#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1032 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSeqNewForNon_RK4
1035 real(RKG) ,
intent(out) ,
contiguous :: cumPropExp(:)
1036 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1037 real(RKG) ,
intent(in) :: maxArray
1038 type(forward_type) ,
intent(in) :: direction
1039 type(nothing_type) ,
intent(in) :: action
1040 type(sequence_type) ,
intent(in) :: control
1045 PURE module subroutine setCumPropExpSeqNewForNon_RK3(cumPropExp, array, maxArray, control, direction, action)
1046#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1047 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSeqNewForNon_RK3
1050 real(RKG) ,
intent(out) ,
contiguous :: cumPropExp(:)
1051 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1052 real(RKG) ,
intent(in) :: maxArray
1053 type(forward_type) ,
intent(in) :: direction
1054 type(nothing_type) ,
intent(in) :: action
1055 type(sequence_type) ,
intent(in) :: control
1060 PURE module subroutine setCumPropExpSeqNewForNon_RK2(cumPropExp, array, maxArray, control, direction, action)
1061#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1062 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSeqNewForNon_RK2
1065 real(RKG) ,
intent(out) ,
contiguous :: cumPropExp(:)
1066 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1067 real(RKG) ,
intent(in) :: maxArray
1068 type(forward_type) ,
intent(in) :: direction
1069 type(nothing_type) ,
intent(in) :: action
1070 type(sequence_type) ,
intent(in) :: control
1075 PURE module subroutine setCumPropExpSeqNewForNon_RK1(cumPropExp, array, maxArray, control, direction, action)
1076#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1077 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSeqNewForNon_RK1
1080 real(RKG) ,
intent(out) ,
contiguous :: cumPropExp(:)
1081 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1082 real(RKG) ,
intent(in) :: maxArray
1083 type(forward_type) ,
intent(in) :: direction
1084 type(nothing_type) ,
intent(in) :: action
1085 type(sequence_type) ,
intent(in) :: control
1092 PURE module subroutine setCumPropExpSeqNewForRev_RK5(cumPropExp, array, maxArray, control, direction, action)
1093#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1094 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSeqNewForRev_RK5
1097 real(RKG) ,
intent(out) ,
contiguous :: cumPropExp(:)
1098 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1099 real(RKG) ,
intent(in) :: maxArray
1100 type(forward_type) ,
intent(in) :: direction
1101 type(reverse_type) ,
intent(in) :: action
1102 type(sequence_type) ,
intent(in) :: control
1107 PURE module subroutine setCumPropExpSeqNewForRev_RK4(cumPropExp, array, maxArray, control, direction, action)
1108#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1109 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSeqNewForRev_RK4
1112 real(RKG) ,
intent(out) ,
contiguous :: cumPropExp(:)
1113 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1114 real(RKG) ,
intent(in) :: maxArray
1115 type(forward_type) ,
intent(in) :: direction
1116 type(reverse_type) ,
intent(in) :: action
1117 type(sequence_type) ,
intent(in) :: control
1122 PURE module subroutine setCumPropExpSeqNewForRev_RK3(cumPropExp, array, maxArray, control, direction, action)
1123#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1124 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSeqNewForRev_RK3
1127 real(RKG) ,
intent(out) ,
contiguous :: cumPropExp(:)
1128 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1129 real(RKG) ,
intent(in) :: maxArray
1130 type(forward_type) ,
intent(in) :: direction
1131 type(reverse_type) ,
intent(in) :: action
1132 type(sequence_type) ,
intent(in) :: control
1137 PURE module subroutine setCumPropExpSeqNewForRev_RK2(cumPropExp, array, maxArray, control, direction, action)
1138#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1139 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSeqNewForRev_RK2
1142 real(RKG) ,
intent(out) ,
contiguous :: cumPropExp(:)
1143 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1144 real(RKG) ,
intent(in) :: maxArray
1145 type(forward_type) ,
intent(in) :: direction
1146 type(reverse_type) ,
intent(in) :: action
1147 type(sequence_type) ,
intent(in) :: control
1152 PURE module subroutine setCumPropExpSeqNewForRev_RK1(cumPropExp, array, maxArray, control, direction, action)
1153#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1154 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSeqNewForRev_RK1
1157 real(RKG) ,
intent(out) ,
contiguous :: cumPropExp(:)
1158 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1159 real(RKG) ,
intent(in) :: maxArray
1160 type(forward_type) ,
intent(in) :: direction
1161 type(reverse_type) ,
intent(in) :: action
1162 type(sequence_type) ,
intent(in) :: control
1177 PURE module subroutine setCumPropExpSeqNewBacNon_RK5(cumPropExp, array, maxArray, control, direction, action)
1178#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1179 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSeqNewBacNon_RK5
1182 real(RKG) ,
intent(out) ,
contiguous :: cumPropExp(:)
1183 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1184 real(RKG) ,
intent(in) :: maxArray
1185 type(backward_type) ,
intent(in) :: direction
1186 type(nothing_type) ,
intent(in) :: action
1187 type(sequence_type) ,
intent(in) :: control
1192 PURE module subroutine setCumPropExpSeqNewBacNon_RK4(cumPropExp, array, maxArray, control, direction, action)
1193#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1194 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSeqNewBacNon_RK4
1197 real(RKG) ,
intent(out) ,
contiguous :: cumPropExp(:)
1198 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1199 real(RKG) ,
intent(in) :: maxArray
1200 type(backward_type) ,
intent(in) :: direction
1201 type(nothing_type) ,
intent(in) :: action
1202 type(sequence_type) ,
intent(in) :: control
1207 PURE module subroutine setCumPropExpSeqNewBacNon_RK3(cumPropExp, array, maxArray, control, direction, action)
1208#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1209 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSeqNewBacNon_RK3
1212 real(RKG) ,
intent(out) ,
contiguous :: cumPropExp(:)
1213 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1214 real(RKG) ,
intent(in) :: maxArray
1215 type(backward_type) ,
intent(in) :: direction
1216 type(nothing_type) ,
intent(in) :: action
1217 type(sequence_type) ,
intent(in) :: control
1222 PURE module subroutine setCumPropExpSeqNewBacNon_RK2(cumPropExp, array, maxArray, control, direction, action)
1223#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1224 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSeqNewBacNon_RK2
1227 real(RKG) ,
intent(out) ,
contiguous :: cumPropExp(:)
1228 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1229 real(RKG) ,
intent(in) :: maxArray
1230 type(backward_type) ,
intent(in) :: direction
1231 type(nothing_type) ,
intent(in) :: action
1232 type(sequence_type) ,
intent(in) :: control
1237 PURE module subroutine setCumPropExpSeqNewBacNon_RK1(cumPropExp, array, maxArray, control, direction, action)
1238#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1239 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSeqNewBacNon_RK1
1242 real(RKG) ,
intent(out) ,
contiguous :: cumPropExp(:)
1243 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1244 real(RKG) ,
intent(in) :: maxArray
1245 type(backward_type) ,
intent(in) :: direction
1246 type(nothing_type) ,
intent(in) :: action
1247 type(sequence_type) ,
intent(in) :: control
1254 PURE module subroutine setCumPropExpSeqNewBacRev_RK5(cumPropExp, array, maxArray, control, direction, action)
1255#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1256 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSeqNewBacRev_RK5
1259 real(RKG) ,
intent(out) ,
contiguous :: cumPropExp(:)
1260 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1261 real(RKG) ,
intent(in) :: maxArray
1262 type(backward_type) ,
intent(in) :: direction
1263 type(reverse_type) ,
intent(in) :: action
1264 type(sequence_type) ,
intent(in) :: control
1269 PURE module subroutine setCumPropExpSeqNewBacRev_RK4(cumPropExp, array, maxArray, control, direction, action)
1270#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1271 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSeqNewBacRev_RK4
1274 real(RKG) ,
intent(out) ,
contiguous :: cumPropExp(:)
1275 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1276 real(RKG) ,
intent(in) :: maxArray
1277 type(backward_type) ,
intent(in) :: direction
1278 type(reverse_type) ,
intent(in) :: action
1279 type(sequence_type) ,
intent(in) :: control
1284 PURE module subroutine setCumPropExpSeqNewBacRev_RK3(cumPropExp, array, maxArray, control, direction, action)
1285#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1286 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSeqNewBacRev_RK3
1289 real(RKG) ,
intent(out) ,
contiguous :: cumPropExp(:)
1290 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1291 real(RKG) ,
intent(in) :: maxArray
1292 type(backward_type) ,
intent(in) :: direction
1293 type(reverse_type) ,
intent(in) :: action
1294 type(sequence_type) ,
intent(in) :: control
1299 PURE module subroutine setCumPropExpSeqNewBacRev_RK2(cumPropExp, array, maxArray, control, direction, action)
1300#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1301 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSeqNewBacRev_RK2
1304 real(RKG) ,
intent(out) ,
contiguous :: cumPropExp(:)
1305 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1306 real(RKG) ,
intent(in) :: maxArray
1307 type(backward_type) ,
intent(in) :: direction
1308 type(reverse_type) ,
intent(in) :: action
1309 type(sequence_type) ,
intent(in) :: control
1314 PURE module subroutine setCumPropExpSeqNewBacRev_RK1(cumPropExp, array, maxArray, control, direction, action)
1315#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1316 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSeqNewBacRev_RK1
1319 real(RKG) ,
intent(out) ,
contiguous :: cumPropExp(:)
1320 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1321 real(RKG) ,
intent(in) :: maxArray
1322 type(backward_type) ,
intent(in) :: direction
1323 type(reverse_type) ,
intent(in) :: action
1324 type(sequence_type) ,
intent(in) :: control
1341 PURE module subroutine setCumPropExpSelOldDefDef_RK5(array, maxArray, control)
1342#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1343 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSelOldDefDef_RK5
1346 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
1347 real(RKG) ,
intent(in) :: maxArray
1348 type(selection_type),
intent(in) :: control
1353 PURE module subroutine setCumPropExpSelOldDefDef_RK4(array, maxArray, control)
1354#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1355 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSelOldDefDef_RK4
1358 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
1359 real(RKG) ,
intent(in) :: maxArray
1360 type(selection_type),
intent(in) :: control
1365 PURE module subroutine setCumPropExpSelOldDefDef_RK3(array, maxArray, control)
1366#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1367 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSelOldDefDef_RK3
1370 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
1371 real(RKG) ,
intent(in) :: maxArray
1372 type(selection_type),
intent(in) :: control
1377 PURE module subroutine setCumPropExpSelOldDefDef_RK2(array, maxArray, control)
1378#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1379 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSelOldDefDef_RK2
1382 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
1383 real(RKG) ,
intent(in) :: maxArray
1384 type(selection_type),
intent(in) :: control
1389 PURE module subroutine setCumPropExpSelOldDefDef_RK1(array, maxArray, control)
1390#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1391 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSelOldDefDef_RK1
1394 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
1395 real(RKG) ,
intent(in) :: maxArray
1396 type(selection_type),
intent(in) :: control
1403 PURE module subroutine setCumPropExpSelNewDefDef_RK5(cumPropExp, array, maxArray, control)
1404#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1405 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSelNewDefDef_RK5
1408 real(RKG) ,
intent(out) ,
contiguous :: cumPropExp(:)
1409 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1410 real(RKG) ,
intent(in) :: maxArray
1411 type(selection_type),
intent(in) :: control
1416 PURE module subroutine setCumPropExpSelNewDefDef_RK4(cumPropExp, array, maxArray, control)
1417#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1418 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSelNewDefDef_RK4
1421 real(RKG) ,
intent(out) ,
contiguous :: cumPropExp(:)
1422 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1423 real(RKG) ,
intent(in) :: maxArray
1424 type(selection_type),
intent(in) :: control
1429 PURE module subroutine setCumPropExpSelNewDefDef_RK3(cumPropExp, array, maxArray, control)
1430#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1431 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSelNewDefDef_RK3
1434 real(RKG) ,
intent(out) ,
contiguous :: cumPropExp(:)
1435 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1436 real(RKG) ,
intent(in) :: maxArray
1437 type(selection_type),
intent(in) :: control
1442 PURE module subroutine setCumPropExpSelNewDefDef_RK2(cumPropExp, array, maxArray, control)
1443#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1444 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSelNewDefDef_RK2
1447 real(RKG) ,
intent(out) ,
contiguous :: cumPropExp(:)
1448 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1449 real(RKG) ,
intent(in) :: maxArray
1450 type(selection_type),
intent(in) :: control
1455 PURE module subroutine setCumPropExpSelNewDefDef_RK1(cumPropExp, array, maxArray, control)
1456#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1457 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSelNewDefDef_RK1
1460 real(RKG) ,
intent(out) ,
contiguous :: cumPropExp(:)
1461 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1462 real(RKG) ,
intent(in) :: maxArray
1463 type(selection_type),
intent(in) :: control
1478 PURE module subroutine setCumPropExpSelOldForNon_RK5(array, maxArray, control, direction, action)
1479#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1480 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSelOldForNon_RK5
1483 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
1484 real(RKG) ,
intent(in) :: maxArray
1485 type(forward_type) ,
intent(in) :: direction
1486 type(nothing_type) ,
intent(in) :: action
1487 type(selection_type),
intent(in) :: control
1492 PURE module subroutine setCumPropExpSelOldForNon_RK4(array, maxArray, control, direction, action)
1493#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1494 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSelOldForNon_RK4
1497 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
1498 real(RKG) ,
intent(in) :: maxArray
1499 type(forward_type) ,
intent(in) :: direction
1500 type(nothing_type) ,
intent(in) :: action
1501 type(selection_type),
intent(in) :: control
1506 PURE module subroutine setCumPropExpSelOldForNon_RK3(array, maxArray, control, direction, action)
1507#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1508 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSelOldForNon_RK3
1511 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
1512 real(RKG) ,
intent(in) :: maxArray
1513 type(forward_type) ,
intent(in) :: direction
1514 type(nothing_type) ,
intent(in) :: action
1515 type(selection_type),
intent(in) :: control
1520 PURE module subroutine setCumPropExpSelOldForNon_RK2(array, maxArray, control, direction, action)
1521#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1522 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSelOldForNon_RK2
1525 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
1526 real(RKG) ,
intent(in) :: maxArray
1527 type(forward_type) ,
intent(in) :: direction
1528 type(nothing_type) ,
intent(in) :: action
1529 type(selection_type),
intent(in) :: control
1534 PURE module subroutine setCumPropExpSelOldForNon_RK1(array, maxArray, control, direction, action)
1535#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1536 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSelOldForNon_RK1
1539 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
1540 real(RKG) ,
intent(in) :: maxArray
1541 type(forward_type) ,
intent(in) :: direction
1542 type(nothing_type) ,
intent(in) :: action
1543 type(selection_type),
intent(in) :: control
1550 PURE module subroutine setCumPropExpSelOldForRev_RK5(array, maxArray, control, direction, action)
1551#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1552 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSelOldForRev_RK5
1555 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
1556 real(RKG) ,
intent(in) :: maxArray
1557 type(forward_type) ,
intent(in) :: direction
1558 type(reverse_type) ,
intent(in) :: action
1559 type(selection_type),
intent(in) :: control
1564 PURE module subroutine setCumPropExpSelOldForRev_RK4(array, maxArray, control, direction, action)
1565#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1566 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSelOldForRev_RK4
1569 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
1570 real(RKG) ,
intent(in) :: maxArray
1571 type(forward_type) ,
intent(in) :: direction
1572 type(reverse_type) ,
intent(in) :: action
1573 type(selection_type),
intent(in) :: control
1578 PURE module subroutine setCumPropExpSelOldForRev_RK3(array, maxArray, control, direction, action)
1579#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1580 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSelOldForRev_RK3
1583 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
1584 real(RKG) ,
intent(in) :: maxArray
1585 type(forward_type) ,
intent(in) :: direction
1586 type(reverse_type) ,
intent(in) :: action
1587 type(selection_type),
intent(in) :: control
1592 PURE module subroutine setCumPropExpSelOldForRev_RK2(array, maxArray, control, direction, action)
1593#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1594 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSelOldForRev_RK2
1597 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
1598 real(RKG) ,
intent(in) :: maxArray
1599 type(forward_type) ,
intent(in) :: direction
1600 type(reverse_type) ,
intent(in) :: action
1601 type(selection_type),
intent(in) :: control
1606 PURE module subroutine setCumPropExpSelOldForRev_RK1(array, maxArray, control, direction, action)
1607#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1608 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSelOldForRev_RK1
1611 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
1612 real(RKG) ,
intent(in) :: maxArray
1613 type(forward_type) ,
intent(in) :: direction
1614 type(reverse_type) ,
intent(in) :: action
1615 type(selection_type),
intent(in) :: control
1630 PURE module subroutine setCumPropExpSelOldBacNon_RK5(array, maxArray, control, direction, action)
1631#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1632 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSelOldBacNon_RK5
1635 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
1636 real(RKG) ,
intent(in) :: maxArray
1637 type(backward_type) ,
intent(in) :: direction
1638 type(nothing_type) ,
intent(in) :: action
1639 type(selection_type),
intent(in) :: control
1644 PURE module subroutine setCumPropExpSelOldBacNon_RK4(array, maxArray, control, direction, action)
1645#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1646 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSelOldBacNon_RK4
1649 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
1650 real(RKG) ,
intent(in) :: maxArray
1651 type(backward_type) ,
intent(in) :: direction
1652 type(nothing_type) ,
intent(in) :: action
1653 type(selection_type),
intent(in) :: control
1658 PURE module subroutine setCumPropExpSelOldBacNon_RK3(array, maxArray, control, direction, action)
1659#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1660 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSelOldBacNon_RK3
1663 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
1664 real(RKG) ,
intent(in) :: maxArray
1665 type(backward_type) ,
intent(in) :: direction
1666 type(nothing_type) ,
intent(in) :: action
1667 type(selection_type),
intent(in) :: control
1672 PURE module subroutine setCumPropExpSelOldBacNon_RK2(array, maxArray, control, direction, action)
1673#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1674 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSelOldBacNon_RK2
1677 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
1678 real(RKG) ,
intent(in) :: maxArray
1679 type(backward_type) ,
intent(in) :: direction
1680 type(nothing_type) ,
intent(in) :: action
1681 type(selection_type),
intent(in) :: control
1686 PURE module subroutine setCumPropExpSelOldBacNon_RK1(array, maxArray, control, direction, action)
1687#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1688 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSelOldBacNon_RK1
1691 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
1692 real(RKG) ,
intent(in) :: maxArray
1693 type(backward_type) ,
intent(in) :: direction
1694 type(nothing_type) ,
intent(in) :: action
1695 type(selection_type),
intent(in) :: control
1702 PURE module subroutine setCumPropExpSelOldBacRev_RK5(array, maxArray, control, direction, action)
1703#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1704 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSelOldBacRev_RK5
1707 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
1708 real(RKG) ,
intent(in) :: maxArray
1709 type(backward_type) ,
intent(in) :: direction
1710 type(reverse_type) ,
intent(in) :: action
1711 type(selection_type),
intent(in) :: control
1716 PURE module subroutine setCumPropExpSelOldBacRev_RK4(array, maxArray, control, direction, action)
1717#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1718 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSelOldBacRev_RK4
1721 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
1722 real(RKG) ,
intent(in) :: maxArray
1723 type(backward_type) ,
intent(in) :: direction
1724 type(reverse_type) ,
intent(in) :: action
1725 type(selection_type),
intent(in) :: control
1730 PURE module subroutine setCumPropExpSelOldBacRev_RK3(array, maxArray, control, direction, action)
1731#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1732 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSelOldBacRev_RK3
1735 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
1736 real(RKG) ,
intent(in) :: maxArray
1737 type(backward_type) ,
intent(in) :: direction
1738 type(reverse_type) ,
intent(in) :: action
1739 type(selection_type),
intent(in) :: control
1744 PURE module subroutine setCumPropExpSelOldBacRev_RK2(array, maxArray, control, direction, action)
1745#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1746 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSelOldBacRev_RK2
1749 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
1750 real(RKG) ,
intent(in) :: maxArray
1751 type(backward_type) ,
intent(in) :: direction
1752 type(reverse_type) ,
intent(in) :: action
1753 type(selection_type),
intent(in) :: control
1758 PURE module subroutine setCumPropExpSelOldBacRev_RK1(array, maxArray, control, direction, action)
1759#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1760 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSelOldBacRev_RK1
1763 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
1764 real(RKG) ,
intent(in) :: maxArray
1765 type(backward_type) ,
intent(in) :: direction
1766 type(reverse_type) ,
intent(in) :: action
1767 type(selection_type),
intent(in) :: control
1782 PURE module subroutine setCumPropExpSelNewForNon_RK5(cumPropExp, array, maxArray, control, direction, action)
1783#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1784 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSelNewForNon_RK5
1787 real(RKG) ,
intent(out) ,
contiguous :: cumPropExp(:)
1788 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1789 real(RKG) ,
intent(in) :: maxArray
1790 type(forward_type) ,
intent(in) :: direction
1791 type(nothing_type) ,
intent(in) :: action
1792 type(selection_type),
intent(in) :: control
1797 PURE module subroutine setCumPropExpSelNewForNon_RK4(cumPropExp, array, maxArray, control, direction, action)
1798#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1799 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSelNewForNon_RK4
1802 real(RKG) ,
intent(out) ,
contiguous :: cumPropExp(:)
1803 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1804 real(RKG) ,
intent(in) :: maxArray
1805 type(forward_type) ,
intent(in) :: direction
1806 type(nothing_type) ,
intent(in) :: action
1807 type(selection_type),
intent(in) :: control
1812 PURE module subroutine setCumPropExpSelNewForNon_RK3(cumPropExp, array, maxArray, control, direction, action)
1813#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1814 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSelNewForNon_RK3
1817 real(RKG) ,
intent(out) ,
contiguous :: cumPropExp(:)
1818 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1819 real(RKG) ,
intent(in) :: maxArray
1820 type(forward_type) ,
intent(in) :: direction
1821 type(nothing_type) ,
intent(in) :: action
1822 type(selection_type),
intent(in) :: control
1827 PURE module subroutine setCumPropExpSelNewForNon_RK2(cumPropExp, array, maxArray, control, direction, action)
1828#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1829 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSelNewForNon_RK2
1832 real(RKG) ,
intent(out) ,
contiguous :: cumPropExp(:)
1833 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1834 real(RKG) ,
intent(in) :: maxArray
1835 type(forward_type) ,
intent(in) :: direction
1836 type(nothing_type) ,
intent(in) :: action
1837 type(selection_type),
intent(in) :: control
1842 PURE module subroutine setCumPropExpSelNewForNon_RK1(cumPropExp, array, maxArray, control, direction, action)
1843#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1844 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSelNewForNon_RK1
1847 real(RKG) ,
intent(out) ,
contiguous :: cumPropExp(:)
1848 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1849 real(RKG) ,
intent(in) :: maxArray
1850 type(forward_type) ,
intent(in) :: direction
1851 type(nothing_type) ,
intent(in) :: action
1852 type(selection_type),
intent(in) :: control
1859 PURE module subroutine setCumPropExpSelNewForRev_RK5(cumPropExp, array, maxArray, control, direction, action)
1860#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1861 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSelNewForRev_RK5
1864 real(RKG) ,
intent(out) ,
contiguous :: cumPropExp(:)
1865 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1866 real(RKG) ,
intent(in) :: maxArray
1867 type(forward_type) ,
intent(in) :: direction
1868 type(reverse_type) ,
intent(in) :: action
1869 type(selection_type),
intent(in) :: control
1874 PURE module subroutine setCumPropExpSelNewForRev_RK4(cumPropExp, array, maxArray, control, direction, action)
1875#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1876 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSelNewForRev_RK4
1879 real(RKG) ,
intent(out) ,
contiguous :: cumPropExp(:)
1880 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1881 real(RKG) ,
intent(in) :: maxArray
1882 type(forward_type) ,
intent(in) :: direction
1883 type(reverse_type) ,
intent(in) :: action
1884 type(selection_type),
intent(in) :: control
1889 PURE module subroutine setCumPropExpSelNewForRev_RK3(cumPropExp, array, maxArray, control, direction, action)
1890#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1891 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSelNewForRev_RK3
1894 real(RKG) ,
intent(out) ,
contiguous :: cumPropExp(:)
1895 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1896 real(RKG) ,
intent(in) :: maxArray
1897 type(forward_type) ,
intent(in) :: direction
1898 type(reverse_type) ,
intent(in) :: action
1899 type(selection_type),
intent(in) :: control
1904 PURE module subroutine setCumPropExpSelNewForRev_RK2(cumPropExp, array, maxArray, control, direction, action)
1905#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1906 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSelNewForRev_RK2
1909 real(RKG) ,
intent(out) ,
contiguous :: cumPropExp(:)
1910 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1911 real(RKG) ,
intent(in) :: maxArray
1912 type(forward_type) ,
intent(in) :: direction
1913 type(reverse_type) ,
intent(in) :: action
1914 type(selection_type),
intent(in) :: control
1919 PURE module subroutine setCumPropExpSelNewForRev_RK1(cumPropExp, array, maxArray, control, direction, action)
1920#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1921 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSelNewForRev_RK1
1924 real(RKG) ,
intent(out) ,
contiguous :: cumPropExp(:)
1925 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1926 real(RKG) ,
intent(in) :: maxArray
1927 type(forward_type) ,
intent(in) :: direction
1928 type(reverse_type) ,
intent(in) :: action
1929 type(selection_type),
intent(in) :: control
1944 PURE module subroutine setCumPropExpSelNewBacNon_RK5(cumPropExp, array, maxArray, control, direction, action)
1945#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1946 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSelNewBacNon_RK5
1949 real(RKG) ,
intent(out) ,
contiguous :: cumPropExp(:)
1950 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1951 real(RKG) ,
intent(in) :: maxArray
1952 type(backward_type) ,
intent(in) :: direction
1953 type(nothing_type) ,
intent(in) :: action
1954 type(selection_type),
intent(in) :: control
1959 PURE module subroutine setCumPropExpSelNewBacNon_RK4(cumPropExp, array, maxArray, control, direction, action)
1960#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1961 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSelNewBacNon_RK4
1964 real(RKG) ,
intent(out) ,
contiguous :: cumPropExp(:)
1965 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1966 real(RKG) ,
intent(in) :: maxArray
1967 type(backward_type) ,
intent(in) :: direction
1968 type(nothing_type) ,
intent(in) :: action
1969 type(selection_type),
intent(in) :: control
1974 PURE module subroutine setCumPropExpSelNewBacNon_RK3(cumPropExp, array, maxArray, control, direction, action)
1975#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1976 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSelNewBacNon_RK3
1979 real(RKG) ,
intent(out) ,
contiguous :: cumPropExp(:)
1980 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1981 real(RKG) ,
intent(in) :: maxArray
1982 type(backward_type) ,
intent(in) :: direction
1983 type(nothing_type) ,
intent(in) :: action
1984 type(selection_type),
intent(in) :: control
1989 PURE module subroutine setCumPropExpSelNewBacNon_RK2(cumPropExp, array, maxArray, control, direction, action)
1990#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1991 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSelNewBacNon_RK2
1994 real(RKG) ,
intent(out) ,
contiguous :: cumPropExp(:)
1995 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1996 real(RKG) ,
intent(in) :: maxArray
1997 type(backward_type) ,
intent(in) :: direction
1998 type(nothing_type) ,
intent(in) :: action
1999 type(selection_type),
intent(in) :: control
2004 PURE module subroutine setCumPropExpSelNewBacNon_RK1(cumPropExp, array, maxArray, control, direction, action)
2005#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2006 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSelNewBacNon_RK1
2009 real(RKG) ,
intent(out) ,
contiguous :: cumPropExp(:)
2010 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2011 real(RKG) ,
intent(in) :: maxArray
2012 type(backward_type) ,
intent(in) :: direction
2013 type(nothing_type) ,
intent(in) :: action
2014 type(selection_type),
intent(in) :: control
2021 PURE module subroutine setCumPropExpSelNewBacRev_RK5(cumPropExp, array, maxArray, control, direction, action)
2022#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2023 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSelNewBacRev_RK5
2026 real(RKG) ,
intent(out) ,
contiguous :: cumPropExp(:)
2027 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2028 real(RKG) ,
intent(in) :: maxArray
2029 type(backward_type) ,
intent(in) :: direction
2030 type(reverse_type) ,
intent(in) :: action
2031 type(selection_type),
intent(in) :: control
2036 PURE module subroutine setCumPropExpSelNewBacRev_RK4(cumPropExp, array, maxArray, control, direction, action)
2037#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2038 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSelNewBacRev_RK4
2041 real(RKG) ,
intent(out) ,
contiguous :: cumPropExp(:)
2042 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2043 real(RKG) ,
intent(in) :: maxArray
2044 type(backward_type) ,
intent(in) :: direction
2045 type(reverse_type) ,
intent(in) :: action
2046 type(selection_type),
intent(in) :: control
2051 PURE module subroutine setCumPropExpSelNewBacRev_RK3(cumPropExp, array, maxArray, control, direction, action)
2052#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2053 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSelNewBacRev_RK3
2056 real(RKG) ,
intent(out) ,
contiguous :: cumPropExp(:)
2057 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2058 real(RKG) ,
intent(in) :: maxArray
2059 type(backward_type) ,
intent(in) :: direction
2060 type(reverse_type) ,
intent(in) :: action
2061 type(selection_type),
intent(in) :: control
2066 PURE module subroutine setCumPropExpSelNewBacRev_RK2(cumPropExp, array, maxArray, control, direction, action)
2067#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2068 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSelNewBacRev_RK2
2071 real(RKG) ,
intent(out) ,
contiguous :: cumPropExp(:)
2072 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2073 real(RKG) ,
intent(in) :: maxArray
2074 type(backward_type) ,
intent(in) :: direction
2075 type(reverse_type) ,
intent(in) :: action
2076 type(selection_type),
intent(in) :: control
2081 PURE module subroutine setCumPropExpSelNewBacRev_RK1(cumPropExp, array, maxArray, control, direction, action)
2082#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2083 !DEC$ ATTRIBUTES DLLEXPORT :: setCumPropExpSelNewBacRev_RK1
2086 real(RKG) ,
intent(out) ,
contiguous :: cumPropExp(:)
2087 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2088 real(RKG) ,
intent(in) :: maxArray
2089 type(backward_type) ,
intent(in) :: direction
2090 type(reverse_type) ,
intent(in) :: action
2091 type(selection_type),
intent(in) :: control
2129#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2133 real(RKG) ,
parameter :: LOGTINY_RK
= log(
tiny(
0._RKG))
2134 integer(
IK) ,
intent(in) :: lenArray
2135 real(RKG) ,
intent(in) :: array(lenArray)
2136 real(RKG) ,
intent(in) :: maxArray
2137 real(RKG) :: cumPropExp(lenArray)
2138 real(RKG) :: cumPropExpInv
2140 cumPropExp(
1)
= array(
1)
- maxArray
2141 if (cumPropExp(
1)
< LOGTINY_RK)
then
2142 cumPropExp(
1)
= 0._RKG
2144 cumPropExp(
1)
= exp(cumPropExp(
1))
2147 cumPropExp(i)
= array(i)
- maxArray
2148 if (cumPropExp(i)
< LOGTINY_RK)
then
2149 cumPropExp(i)
= cumPropExp(i
-1)
2151 cumPropExp(i)
= cumPropExp(i
-1)
+ exp(cumPropExp(i))
2154 cumPropExpInv
= 1._RKG / cumPropExp(lenArray)
2155 cumPropExp
= cumPropExp
* cumPropExpInv
Generate and return the cumulative sum of the proportions of the exponential of the input array,...
Return the cumulative sum of the proportions of the exponential of the input array,...
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 contains abstract and concrete derived types that are required for compile-time resolutio...
type(sequence_type), parameter sequence
This is a scalar parameter object of type sequence_type that is exclusively used to request sequence ...
type(selection_type), parameter selection
This is a scalar parameter object of type selection_type that is exclusively used to request selectio...
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...
This module contains the procedures and interfaces for computing the cumulative sum of the exponentia...
pure real(RKG) function, dimension(lenArray) getCumPropExp_RK(array, maxArray, lenArray)
[LEGACY code] Generate and return the normalized cumulative sum (i.e., Cumulative Density Function (...
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...
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 selection control flo...
This is a concrete derived type whose instances are exclusively used to request sequence control flow...