144 PURE module function getRangeUnit_D0_SK5(start, stop)
result(range)
145#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
146 !DEC$ ATTRIBUTES DLLEXPORT :: getRangeUnit_D0_SK5
149 character(
1,SKG) ,
intent(in) :: start, stop
150 character(abs(
ichar(stop)
- ichar(start))
+ 1,SKG) :: range
155 PURE module function getRangeUnit_D0_SK4(start, stop)
result(range)
156#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
157 !DEC$ ATTRIBUTES DLLEXPORT :: getRangeUnit_D0_SK4
160 character(
1,SKG) ,
intent(in) :: start, stop
161 character(abs(
ichar(stop)
- ichar(start))
+ 1,SKG) :: range
166 PURE module function getRangeUnit_D0_SK3(start, stop)
result(range)
167#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
168 !DEC$ ATTRIBUTES DLLEXPORT :: getRangeUnit_D0_SK3
171 character(
1,SKG) ,
intent(in) :: start, stop
172 character(abs(
ichar(stop)
- ichar(start))
+ 1,SKG) :: range
177 PURE module function getRangeUnit_D0_SK2(start, stop)
result(range)
178#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
179 !DEC$ ATTRIBUTES DLLEXPORT :: getRangeUnit_D0_SK2
182 character(
1,SKG) ,
intent(in) :: start, stop
183 character(abs(
ichar(stop)
- ichar(start))
+ 1,SKG) :: range
188 PURE module function getRangeUnit_D0_SK1(start, stop)
result(range)
189#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
190 !DEC$ ATTRIBUTES DLLEXPORT :: getRangeUnit_D0_SK1
193 character(
1,SKG) ,
intent(in) :: start, stop
194 character(abs(
ichar(stop)
- ichar(start))
+ 1,SKG) :: range
201 PURE module function getRangeUnit_D1_IK5(start, stop)
result(range)
202#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
203 !DEC$ ATTRIBUTES DLLEXPORT :: getRangeUnit_D1_IK5
206 integer(IKG) ,
intent(in) :: start, stop
207 integer(IKG) ::
range(abs(stop
- start)
+ 1_IKG)
212 PURE module function getRangeUnit_D1_IK4(start, stop)
result(range)
213#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
214 !DEC$ ATTRIBUTES DLLEXPORT :: getRangeUnit_D1_IK4
217 integer(IKG) ,
intent(in) :: start, stop
218 integer(IKG) ::
range(abs(stop
- start)
+ 1_IKG)
223 PURE module function getRangeUnit_D1_IK3(start, stop)
result(range)
224#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
225 !DEC$ ATTRIBUTES DLLEXPORT :: getRangeUnit_D1_IK3
228 integer(IKG) ,
intent(in) :: start, stop
229 integer(IKG) ::
range(abs(stop
- start)
+ 1_IKG)
234 PURE module function getRangeUnit_D1_IK2(start, stop)
result(range)
235#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
236 !DEC$ ATTRIBUTES DLLEXPORT :: getRangeUnit_D1_IK2
239 integer(IKG) ,
intent(in) :: start, stop
240 integer(IKG) ::
range(abs(stop
- start)
+ 1_IKG)
245 PURE module function getRangeUnit_D1_IK1(start, stop)
result(range)
246#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
247 !DEC$ ATTRIBUTES DLLEXPORT :: getRangeUnit_D1_IK1
250 integer(IKG) ,
intent(in) :: start, stop
251 integer(IKG) ::
range(abs(stop
- start)
+ 1_IKG)
258 PURE module function getRangeUnit_D1_RK5(start, stop)
result(range)
259#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
260 !DEC$ ATTRIBUTES DLLEXPORT :: getRangeUnit_D1_RK5
263 real(RKG) ,
value :: start, stop
264 real(RKG) ,
allocatable ::
range(:)
269 PURE module function getRangeUnit_D1_RK4(start, stop)
result(range)
270#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
271 !DEC$ ATTRIBUTES DLLEXPORT :: getRangeUnit_D1_RK4
274 real(RKG) ,
value :: start, stop
275 real(RKG) ,
allocatable ::
range(:)
280 PURE module function getRangeUnit_D1_RK3(start, stop)
result(range)
281#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
282 !DEC$ ATTRIBUTES DLLEXPORT :: getRangeUnit_D1_RK3
285 real(RKG) ,
value :: start, stop
286 real(RKG) ,
allocatable ::
range(:)
291 PURE module function getRangeUnit_D1_RK2(start, stop)
result(range)
292#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
293 !DEC$ ATTRIBUTES DLLEXPORT :: getRangeUnit_D1_RK2
296 real(RKG) ,
value :: start, stop
297 real(RKG) ,
allocatable ::
range(:)
302 PURE module function getRangeUnit_D1_RK1(start, stop)
result(range)
303#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
304 !DEC$ ATTRIBUTES DLLEXPORT :: getRangeUnit_D1_RK1
307 real(RKG) ,
value :: start, stop
308 real(RKG) ,
allocatable ::
range(:)
321 PURE module function getRangeStep_D0_SK5(start, stop, step)
result(range)
322#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
323 !DEC$ ATTRIBUTES DLLEXPORT :: getRangeStep_D0_SK5
326 integer(IK) ,
intent(in) :: step
327 character(
1,SKG) ,
intent(in) :: start, stop
328 character(
max(
0,
1 + floor(
real(
ichar(stop)
- ichar(start))
/ step)),SKG) :: range
333 PURE module function getRangeStep_D0_SK4(start, stop, step)
result(range)
334#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
335 !DEC$ ATTRIBUTES DLLEXPORT :: getRangeStep_D0_SK4
338 integer(IK) ,
intent(in) :: step
339 character(
1,SKG) ,
intent(in) :: start, stop
340 character(
max(
0,
1 + floor(
real(
ichar(stop)
- ichar(start))
/ step)),SKG) :: range
345 PURE module function getRangeStep_D0_SK3(start, stop, step)
result(range)
346#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
347 !DEC$ ATTRIBUTES DLLEXPORT :: getRangeStep_D0_SK3
350 integer(IK) ,
intent(in) :: step
351 character(
1,SKG) ,
intent(in) :: start, stop
352 character(
max(
0,
1 + floor(
real(
ichar(stop)
- ichar(start))
/ step)),SKG) :: range
357 PURE module function getRangeStep_D0_SK2(start, stop, step)
result(range)
358#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
359 !DEC$ ATTRIBUTES DLLEXPORT :: getRangeStep_D0_SK2
362 integer(IK) ,
intent(in) :: step
363 character(
1,SKG) ,
intent(in) :: start, stop
364 character(
max(
0,
1 + floor(
real(
ichar(stop)
- ichar(start))
/ step)),SKG) :: range
369 PURE module function getRangeStep_D0_SK1(start, stop, step)
result(range)
370#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
371 !DEC$ ATTRIBUTES DLLEXPORT :: getRangeStep_D0_SK1
374 integer(IK) ,
intent(in) :: step
375 character(
1,SKG) ,
intent(in) :: start, stop
376 character(
max(
0,
1 + floor(
real(
ichar(stop)
- ichar(start))
/ step)),SKG) :: range
383 PURE module function getRangeStep_D1_IK5(start, stop, step)
result(range)
384#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
385 !DEC$ ATTRIBUTES DLLEXPORT :: getRangeStep_D1_IK5
388 integer(IKG) ,
intent(in) :: start, stop, step
389 integer(IKG) ::
range(
max(
0_IKG,
1_IKG + floor(
real(stop
- start)
/ real(step),
kind = IKG)))
395 PURE module function getRangeStep_D1_IK4(start, stop, step)
result(range)
396#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
397 !DEC$ ATTRIBUTES DLLEXPORT :: getRangeStep_D1_IK4
400 integer(IKG) ,
intent(in) :: start, stop, step
401 integer(IKG) ::
range(
max(
0_IKG,
1_IKG + floor(
real(stop
- start)
/ real(step),
kind = IKG)))
406 PURE module function getRangeStep_D1_IK3(start, stop, step)
result(range)
407#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
408 !DEC$ ATTRIBUTES DLLEXPORT :: getRangeStep_D1_IK3
411 integer(IKG) ,
intent(in) :: start, stop, step
412 integer(IKG) ::
range(
max(
0_IKG,
1_IKG + floor(
real(stop
- start)
/ real(step),
kind = IKG)))
417 PURE module function getRangeStep_D1_IK2(start, stop, step)
result(range)
418#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
419 !DEC$ ATTRIBUTES DLLEXPORT :: getRangeStep_D1_IK2
422 integer(IKG) ,
intent(in) :: start, stop, step
423 integer(IKG) ::
range(
max(
0_IKG,
1_IKG + floor(
real(stop
- start)
/ real(step),
kind = IKG)))
428 PURE module function getRangeStep_D1_IK1(start, stop, step)
result(range)
429#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
430 !DEC$ ATTRIBUTES DLLEXPORT :: getRangeStep_D1_IK1
433 integer(IKG) ,
intent(in) :: start, stop, step
434 integer(IKG) ::
range(
max(
0_IKG,
1_IKG + floor(
real(stop
- start)
/ real(step),
kind = IKG)))
441 PURE module function getRangeStep_D1_RK5(start, stop, step)
result(range)
442#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
443 !DEC$ ATTRIBUTES DLLEXPORT :: getRangeStep_D1_RK5
446 real(RKG) ,
intent(in) :: start, stop, step
447 real(RKG) ::
range(
max(
0_IK,
1_IK + floor((stop
- start)
/ step,
kind = IK)))
452 PURE module function getRangeStep_D1_RK4(start, stop, step)
result(range)
453#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
454 !DEC$ ATTRIBUTES DLLEXPORT :: getRangeStep_D1_RK4
457 real(RKG) ,
intent(in) :: start, stop, step
458 real(RKG) ::
range(
max(
0_IK,
1_IK + floor((stop
- start)
/ step,
kind = IK)))
463 PURE module function getRangeStep_D1_RK3(start, stop, step)
result(range)
464#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
465 !DEC$ ATTRIBUTES DLLEXPORT :: getRangeStep_D1_RK3
468 real(RKG) ,
intent(in) :: start, stop, step
469 real(RKG) ::
range(
max(
0_IK,
1_IK + floor((stop
- start)
/ step,
kind = IK)))
474 PURE module function getRangeStep_D1_RK2(start, stop, step)
result(range)
475#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
476 !DEC$ ATTRIBUTES DLLEXPORT :: getRangeStep_D1_RK2
479 real(RKG) ,
intent(in) :: start, stop, step
480 real(RKG) ::
range(
max(
0_IK,
1_IK + floor((stop
- start)
/ step,
kind = IK)))
485 PURE module function getRangeStep_D1_RK1(start, stop, step)
result(range)
486#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
487 !DEC$ ATTRIBUTES DLLEXPORT :: getRangeStep_D1_RK1
490 real(RKG) ,
intent(in) :: start, stop, step
491 real(RKG) ::
range(
max(
0_IK,
1_IK + floor((stop
- start)
/ step,
kind = IK)))
704 PURE module subroutine setRangeUnit_D0_SK5(range, start)
705#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
706 !DEC$ ATTRIBUTES DLLEXPORT :: setRangeUnit_D0_SK5
709 character(
*,SKG) ,
intent(out) :: range
710 character(
1,SKG) ,
intent(in) :: start
715 PURE module subroutine setRangeUnit_D0_SK4(range, start)
716#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
717 !DEC$ ATTRIBUTES DLLEXPORT :: setRangeUnit_D0_SK4
720 character(
*,SKG) ,
intent(out) :: range
721 character(
1,SKG) ,
intent(in) :: start
726 PURE module subroutine setRangeUnit_D0_SK3(range, start)
727#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
728 !DEC$ ATTRIBUTES DLLEXPORT :: setRangeUnit_D0_SK3
731 character(
*,SKG) ,
intent(out) :: range
732 character(
1,SKG) ,
intent(in) :: start
737 PURE module subroutine setRangeUnit_D0_SK2(range, start)
738#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
739 !DEC$ ATTRIBUTES DLLEXPORT :: setRangeUnit_D0_SK2
742 character(
*,SKG) ,
intent(out) :: range
743 character(
1,SKG) ,
intent(in) :: start
748 PURE module subroutine setRangeUnit_D0_SK1(range, start)
749#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
750 !DEC$ ATTRIBUTES DLLEXPORT :: setRangeUnit_D0_SK1
753 character(
*,SKG) ,
intent(out) :: range
754 character(
1,SKG) ,
intent(in) :: start
761 PURE module subroutine setRangeUnit_D1_IK5(range, start)
762#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
763 !DEC$ ATTRIBUTES DLLEXPORT :: setRangeUnit_D1_IK5
766 integer(IKG) ,
intent(out) ,
contiguous ::
range(:)
767 integer(IKG) ,
intent(in) :: start
772 PURE module subroutine setRangeUnit_D1_IK4(range, start)
773#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
774 !DEC$ ATTRIBUTES DLLEXPORT :: setRangeUnit_D1_IK4
777 integer(IKG) ,
intent(out) ,
contiguous ::
range(:)
778 integer(IKG) ,
intent(in) :: start
783 PURE module subroutine setRangeUnit_D1_IK3(range, start)
784#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
785 !DEC$ ATTRIBUTES DLLEXPORT :: setRangeUnit_D1_IK3
788 integer(IKG) ,
intent(out) ,
contiguous ::
range(:)
789 integer(IKG) ,
intent(in) :: start
794 PURE module subroutine setRangeUnit_D1_IK2(range, start)
795#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
796 !DEC$ ATTRIBUTES DLLEXPORT :: setRangeUnit_D1_IK2
799 integer(IKG) ,
intent(out) ,
contiguous ::
range(:)
800 integer(IKG) ,
intent(in) :: start
805 PURE module subroutine setRangeUnit_D1_IK1(range, start)
806#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
807 !DEC$ ATTRIBUTES DLLEXPORT :: setRangeUnit_D1_IK1
810 integer(IKG) ,
intent(out) ,
contiguous ::
range(:)
811 integer(IKG) ,
intent(in) :: start
818 PURE module subroutine setRangeUnit_D1_RK5(range, start)
819#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
820 !DEC$ ATTRIBUTES DLLEXPORT :: setRangeUnit_D1_RK5
823 real(RKG) ,
intent(out) ,
contiguous ::
range(:)
824 real(RKG) ,
intent(in) :: start
829 PURE module subroutine setRangeUnit_D1_RK4(range, start)
830#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
831 !DEC$ ATTRIBUTES DLLEXPORT :: setRangeUnit_D1_RK4
834 real(RKG) ,
intent(out) ,
contiguous ::
range(:)
835 real(RKG) ,
intent(in) :: start
840 PURE module subroutine setRangeUnit_D1_RK3(range, start)
841#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
842 !DEC$ ATTRIBUTES DLLEXPORT :: setRangeUnit_D1_RK3
845 real(RKG) ,
intent(out) ,
contiguous ::
range(:)
846 real(RKG) ,
intent(in) :: start
851 PURE module subroutine setRangeUnit_D1_RK2(range, start)
852#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
853 !DEC$ ATTRIBUTES DLLEXPORT :: setRangeUnit_D1_RK2
856 real(RKG) ,
intent(out) ,
contiguous ::
range(:)
857 real(RKG) ,
intent(in) :: start
862 PURE module subroutine setRangeUnit_D1_RK1(range, start)
863#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
864 !DEC$ ATTRIBUTES DLLEXPORT :: setRangeUnit_D1_RK1
867 real(RKG) ,
intent(out) ,
contiguous ::
range(:)
868 real(RKG) ,
intent(in) :: start
881 PURE module subroutine setRangeStep_D0_SK5(range, start, step)
882#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
883 !DEC$ ATTRIBUTES DLLEXPORT :: setRangeStep_D0_SK5
886 character(
*,SKG) ,
intent(out) :: range
887 character(
1,SKG) ,
intent(in) :: start
888 integer(IK) ,
intent(in) :: step
893 PURE module subroutine setRangeStep_D0_SK4(range, start, step)
894#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
895 !DEC$ ATTRIBUTES DLLEXPORT :: setRangeStep_D0_SK4
898 character(
*,SKG) ,
intent(out) :: range
899 character(
1,SKG) ,
intent(in) :: start
900 integer(IK) ,
intent(in) :: step
905 PURE module subroutine setRangeStep_D0_SK3(range, start, step)
906#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
907 !DEC$ ATTRIBUTES DLLEXPORT :: setRangeStep_D0_SK3
910 character(
*,SKG) ,
intent(out) :: range
911 character(
1,SKG) ,
intent(in) :: start
912 integer(IK) ,
intent(in) :: step
917 PURE module subroutine setRangeStep_D0_SK2(range, start, step)
918#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
919 !DEC$ ATTRIBUTES DLLEXPORT :: setRangeStep_D0_SK2
922 character(
*,SKG) ,
intent(out) :: range
923 character(
1,SKG) ,
intent(in) :: start
924 integer(IK) ,
intent(in) :: step
929 PURE module subroutine setRangeStep_D0_SK1(range, start, step)
930#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
931 !DEC$ ATTRIBUTES DLLEXPORT :: setRangeStep_D0_SK1
934 character(
*,SKG) ,
intent(out) :: range
935 character(
1,SKG) ,
intent(in) :: start
936 integer(IK) ,
intent(in) :: step
943 PURE module subroutine setRangeStep_D1_IK5(range, start, step)
944#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
945 !DEC$ ATTRIBUTES DLLEXPORT :: setRangeStep_D1_IK5
948 integer(IKG) ,
intent(out) ,
contiguous ::
range(:)
949 integer(IKG) ,
intent(in) :: start, step
954 PURE module subroutine setRangeStep_D1_IK4(range, start, step)
955#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
956 !DEC$ ATTRIBUTES DLLEXPORT :: setRangeStep_D1_IK4
959 integer(IKG) ,
intent(out) ,
contiguous ::
range(:)
960 integer(IKG) ,
intent(in) :: start, step
965 PURE module subroutine setRangeStep_D1_IK3(range, start, step)
966#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
967 !DEC$ ATTRIBUTES DLLEXPORT :: setRangeStep_D1_IK3
970 integer(IKG) ,
intent(out) ,
contiguous ::
range(:)
971 integer(IKG) ,
intent(in) :: start, step
976 PURE module subroutine setRangeStep_D1_IK2(range, start, step)
977#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
978 !DEC$ ATTRIBUTES DLLEXPORT :: setRangeStep_D1_IK2
981 integer(IKG) ,
intent(out) ,
contiguous ::
range(:)
982 integer(IKG) ,
intent(in) :: start, step
987 PURE module subroutine setRangeStep_D1_IK1(range, start, step)
988#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
989 !DEC$ ATTRIBUTES DLLEXPORT :: setRangeStep_D1_IK1
992 integer(IKG) ,
intent(out) ,
contiguous ::
range(:)
993 integer(IKG) ,
intent(in) :: start, step
1000 PURE module subroutine setRangeStep_D1_RK5(range, start, step)
1001#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1002 !DEC$ ATTRIBUTES DLLEXPORT :: setRangeStep_D1_RK5
1005 real(RKG) ,
intent(out) ,
contiguous ::
range(:)
1006 real(RKG) ,
intent(in) :: start, step
1011 PURE module subroutine setRangeStep_D1_RK4(range, start, step)
1012#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1013 !DEC$ ATTRIBUTES DLLEXPORT :: setRangeStep_D1_RK4
1016 real(RKG) ,
intent(out) ,
contiguous ::
range(:)
1017 real(RKG) ,
intent(in) :: start, step
1022 PURE module subroutine setRangeStep_D1_RK3(range, start, step)
1023#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1024 !DEC$ ATTRIBUTES DLLEXPORT :: setRangeStep_D1_RK3
1027 real(RKG) ,
intent(out) ,
contiguous ::
range(:)
1028 real(RKG) ,
intent(in) :: start, step
1033 PURE module subroutine setRangeStep_D1_RK2(range, start, step)
1034#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1035 !DEC$ ATTRIBUTES DLLEXPORT :: setRangeStep_D1_RK2
1038 real(RKG) ,
intent(out) ,
contiguous ::
range(:)
1039 real(RKG) ,
intent(in) :: start, step
1044 PURE module subroutine setRangeStep_D1_RK1(range, start, step)
1045#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1046 !DEC$ ATTRIBUTES DLLEXPORT :: setRangeStep_D1_RK1
1049 real(RKG) ,
intent(out) ,
contiguous ::
range(:)
1050 real(RKG) ,
intent(in) :: start, step
Generate minimally-spaced character, integer, real sequences or sequences at fixed intervals of size ...
Return evenly spaced integer or character sequence starting at start with jump sizes of step.
This module contains procedures and generic interfaces for generating ranges of discrete character,...
character(*, SK), parameter MODULE_NAME
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
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...