24 integer(IK) ,
allocatable :: instance(:)
25 integer(IK) ,
allocatable :: splitIndex(:,:)
27 character(:, SK),
allocatable :: string_SK , stringSep_SK
28 character(
9, SK),
allocatable :: array_SK(:) , sepArray_SK(:)
29 integer(IK) ,
allocatable :: array_IK(:) , sepArray_IK(:)
30 complex(CK) ,
allocatable :: array_CK(:) , sepArray_CK(:)
31 real(RK) ,
allocatable :: array_RK(:) , sepArray_RK(:)
32 logical(LK) ,
allocatable :: array_LK(:) , sepArray_LK(:)
35 type(css_pdt),
allocatable :: parts_SSK(:)
36 type(cvs_pdt),
allocatable :: parts_VSK(:)
37 type(cvi_pdt),
allocatable :: parts_VIK(:)
38 type(cvc_pdt),
allocatable :: parts_VCK(:)
39 type(cvr_pdt),
allocatable :: parts_VRK(:)
40 type(cvl_pdt),
allocatable :: parts_VLK(:)
43 type(display_type) :: disp
47 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
48 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
49 call disp%show(
"! Split all instances of Sep in array.")
50 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
51 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
54 string_SK
= "ParaMonte is a Machine Learning Library "
55 array_SK
= [
"ParaMonte",
"XXXXXXXXX",
"is ",
"XXXXXXXXX",
"a ",
"XXXXXXXXX",
"Monte ",
"XXXXXXXXX",
"Carlo ",
"XXXXXXXXX",
"Library. ",
"XXXXXXXXX"]
56 array_IK
= [
integer(IK) ::
1,
0,
2,
1,
0,
4,
5,
1,
0,
7,
8,
9,
10]
57 array_LK
= [
logical(
LK) ::
.false.,
.true.,
.true.,
.false.,
.true.,
.true.,
.true.,
.false.,
.true.]
58 array_CK
= [
complex(CK) :: (
1.,
-1.), (
0.,
-0.), (
2.,
-2.), (
1.,
-1.), (
0.,
-0.), (
4.,
-4.), (
5.,
-5.), (
6.,
-6.), (
0.,
-0.), (
4.,
-4.)]
59 array_RK
= [
real(
RK) ::
1,
0,
2,
1,
0,
4,
5,
1,
0,
7,
8,
9,
10]
62 sepArray_SK
= [
"XXXXXXXXX"]
63 sepArray_IK
= [
integer(IK) ::
1,
0]
64 sepArray_LK
= [
logical(
LK) ::
.false.,
.true.]
65 sepArray_CK
= [
complex(CK) :: (
1.,
-1.), (
0.,
-0.)]
66 sepArray_RK
= [
real(
RK) ::
1,
0]
69 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%")
70 call disp%show(
"! Split character scalar.")
71 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%")
77 call disp%show( string_SK, deliml
= SK_
"""" )
79 call disp%show( stringSep_SK, deliml
= SK_
"""" )
80 call disp%show(
"call setSplit(parts_SSK, string_SK, stringSep_SK)")
81 call setSplit(parts_SSK, string_SK, stringSep_SK)
83 call disp%show( parts_SSK, deliml
= SK_
"""" )
89 call disp%show( string_SK, deliml
= SK_
"""" )
91 call disp%show( stringSep_SK, deliml
= SK_
"""" )
92 call disp%show(
"call setSplit(splitIndex, string_SK, stringSep_SK)")
93 call setSplit(splitIndex, string_SK, stringSep_SK)
101 call disp%show( string_SK, deliml
= SK_
"""" )
103 call disp%show( stringSep_SK, deliml
= SK_
"""" )
104 call disp%show(
"call setSplit(parts_SSK, string_SK, stringSep_SK, keep = .true._LK) ! Keep the `sep` cases in the output.")
105 call setSplit(parts_SSK, string_SK, stringSep_SK, keep
= .true._LK)
107 call disp%show( parts_SSK, deliml
= SK_
"""" )
113 call disp%show( string_SK, deliml
= SK_
"""" )
115 call disp%show( stringSep_SK, deliml
= SK_
"""" )
116 call disp%show(
"call setSplit(splitIndex, string_SK, stringSep_SK, keep = .true._LK) ! Keep the `sep` cases in the output.")
117 call setSplit(splitIndex, string_SK, stringSep_SK, keep
= .true._LK)
124 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%")
125 call disp%show(
"! Split character array.")
126 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%")
132 call disp%show( array_SK, deliml
= SK_
"""" )
134 call disp%show( sepArray_SK, deliml
= SK_
"""" )
135 call disp%show(
"call setSplit(parts_VSK, array_SK, sepArray_SK)")
136 call setSplit(parts_VSK, array_SK, sepArray_SK)
138 call disp%show( parts_VSK, deliml
= SK_
"""" )
144 call disp%show( array_SK, deliml
= SK_
"""" )
146 call disp%show( sepArray_SK, deliml
= SK_
"""" )
147 call disp%show(
"call setSplit(splitIndex, array_SK, sepArray_SK)")
148 call setSplit(splitIndex, array_SK, sepArray_SK)
156 call disp%show( array_SK, deliml
= SK_
"""" )
158 call disp%show( sepArray_SK, deliml
= SK_
"""" )
159 call disp%show(
"call setSplit(parts_VSK, array_SK, sepArray_SK, keep = .true._LK) ! Keep the `sep` cases in the output.")
160 call setSplit(parts_VSK, array_SK, sepArray_SK, keep
= .true._LK)
162 call disp%show( parts_VSK, deliml
= SK_
"""" )
168 call disp%show( array_SK, deliml
= SK_
"""" )
170 call disp%show( sepArray_SK, deliml
= SK_
"""" )
171 call disp%show(
"call setSplit(splitIndex, array_SK, sepArray_SK, keep = .true._LK) ! Keep the `sep` cases in the output.")
172 call setSplit(splitIndex, array_SK, sepArray_SK, keep
= .true._LK)
179 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%")
180 call disp%show(
"! Split logical array.")
181 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%")
190 call disp%show(
"call setSplit(parts_VLK, array_LK, sepArray_LK)")
191 call setSplit(parts_VLK, array_LK, sepArray_LK)
202 call disp%show(
"call setSplit(splitIndex, array_LK, sepArray_LK)")
203 call setSplit(splitIndex, array_LK, sepArray_LK)
214 call disp%show(
"call setSplit(parts_VLK, array_LK, sepArray_LK, keep = .true._LK) ! Keep the `sep` cases in the output.")
215 call setSplit(parts_VLK, array_LK, sepArray_LK, keep
= .true._LK)
226 call disp%show(
"call setSplit(splitIndex, array_LK, sepArray_LK, keep = .true._LK) ! Keep the `sep` cases in the output.")
227 call setSplit(splitIndex, array_LK, sepArray_LK, keep
= .true._LK)
234 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%")
235 call disp%show(
"! Split integer array.")
236 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%")
245 call disp%show(
"call setSplit(parts_VIK, array_IK, sepArray_IK)")
246 call setSplit(parts_VIK, array_IK, sepArray_IK)
257 call disp%show(
"call setSplit(splitIndex, array_IK, sepArray_IK)")
258 call setSplit(splitIndex, array_IK, sepArray_IK)
269 call disp%show(
"call setSplit(parts_VIK, array_IK, sepArray_IK, keep = .true._LK) ! Keep the `sep` cases in the output.")
270 call setSplit(parts_VIK, array_IK, sepArray_IK, keep
= .true._LK)
281 call disp%show(
"call setSplit(splitIndex, array_IK, sepArray_IK, keep = .true._LK) ! Keep the `sep` cases in the output.")
282 call setSplit(splitIndex, array_IK, sepArray_IK, keep
= .true._LK)
289 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%")
290 call disp%show(
"! Split complex array.")
291 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%")
300 call disp%show(
"call setSplit(parts_VCK, array_CK, sepArray_CK)")
301 call setSplit(parts_VCK, array_CK, sepArray_CK)
312 call disp%show(
"call setSplit(splitIndex, array_CK, sepArray_CK)")
313 call setSplit(splitIndex, array_CK, sepArray_CK)
324 call disp%show(
"call setSplit(parts_VCK, array_CK, sepArray_CK, keep = .true._LK) ! Keep the `sep` cases in the output.")
325 call setSplit(parts_VCK, array_CK, sepArray_CK, keep
= .true._LK)
336 call disp%show(
"call setSplit(splitIndex, array_CK, sepArray_CK, keep = .true._LK) ! Keep the `sep` cases in the output.")
337 call setSplit(splitIndex, array_CK, sepArray_CK, keep
= .true._LK)
343 call disp%show(
"!%%%%%%%%%%%%%%%%%%")
344 call disp%show(
"! Split real array.")
345 call disp%show(
"!%%%%%%%%%%%%%%%%%%")
354 call disp%show(
"call setSplit(parts_VRK, array_RK, sepArray_RK)")
355 call setSplit(parts_VRK, array_RK, sepArray_RK)
366 call disp%show(
"call setSplit(splitIndex, array_RK, sepArray_RK)")
367 call setSplit(splitIndex, array_RK, sepArray_RK)
378 call disp%show(
"call setSplit(parts_VRK, array_RK, sepArray_RK, keep = .true._LK) ! Keep the `sep` cases in the output.")
379 call setSplit(parts_VRK, array_RK, sepArray_RK, keep
= .true._LK)
390 call disp%show(
"call setSplit(splitIndex, array_RK, sepArray_RK, keep = .true._LK) ! Keep the `sep` cases in the output.")
391 call setSplit(splitIndex, array_RK, sepArray_RK, keep
= .true._LK)
398 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
399 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
400 call disp%show(
"! Split only particular instances of Sep in array.")
401 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
402 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
405 string_SK
= "AAAAAAAAA"
406 array_SK
= [
"AAAAAAAAA",
"AAAAAAAAA",
"AAAAAAAAA",
"AAAAAAAAA",
"AAAAAAAAA",
"AAAAAAAAA",
"AAAAAAAAA",
"AAAAAAAAA",
"AAAAAAAAA"]
407 array_IK
= [
integer(IK) ::
0,
1,
0,
2,
3,
0,
4,
5,
0,
0]
408 array_RK
= [
real(
RK) ::
0.,
1.,
0.,
2.,
3.,
0.,
4.,
5.,
0.,
0.]
409 array_CK
= [
complex(CK) :: (
0.,
-0.), (
1.,
-1.), (
0.,
-0.), (
2.,
-2.), (
3.,
-3.), (
0.,
-0.), (
4.,
-4.), (
5.,
-5.), (
0.,
-0.), (
0.,
-0.)]
410 array_LK
= [
.false._LK,
.true._LK,
.false._LK,
.true._LK,
.true._LK,
.false._LK,
.true._LK,
.true._LK,
.false._LK,
.false._LK]
413 sepArray_SK
= [
"AAAAAAAAA"]
415 sepArray_RK
= [
0._RK]
416 sepArray_CK
= [(
0._CK,
-0._CK)]
417 sepArray_LK
= [
.false._LK]
419 instance
= [
-3,
2,
-4]
422 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%")
423 call disp%show(
"! Split character scalar.")
424 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%")
430 call disp%show( string_SK, deliml
= SK_
"""" )
432 call disp%show( stringSep_SK, deliml
= SK_
"""" )
435 call disp%show(
"call setSplit(parts_SSK, string_SK, stringSep_SK, instance = instance)")
436 call setSplit(parts_SSK, string_SK, stringSep_SK, instance
= instance)
438 call disp%show( parts_SSK, deliml
= SK_
"""" )
444 call disp%show( string_SK, deliml
= SK_
"""" )
446 call disp%show( stringSep_SK, deliml
= SK_
"""" )
449 call disp%show(
"call setSplit(splitIndex, string_SK, stringSep_SK, instance = instance)")
450 call setSplit(splitIndex, string_SK, stringSep_SK, instance
= instance)
458 call disp%show( string_SK, deliml
= SK_
"""" )
460 call disp%show( stringSep_SK, deliml
= SK_
"""" )
463 call disp%show(
"call setSplit(parts_SSK, string_SK, stringSep_SK, instance = instance, keep = .true._LK) ! Keep the `sep` cases in the output.")
464 call setSplit(parts_SSK, string_SK, stringSep_SK, instance
= instance, keep
= .true._LK)
466 call disp%show( parts_SSK, deliml
= SK_
"""" )
472 call disp%show( string_SK, deliml
= SK_
"""" )
474 call disp%show( stringSep_SK, deliml
= SK_
"""" )
477 call disp%show(
"call setSplit(splitIndex, string_SK, stringSep_SK, instance = instance, keep = .true._LK) ! Keep the `sep` cases in the output.")
478 call setSplit(splitIndex, string_SK, stringSep_SK, instance
= instance, keep
= .true._LK)
485 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
486 call disp%show(
"! Split character array with vector `sep`.")
487 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
493 call disp%show( array_SK, deliml
= SK_
"""" )
495 call disp%show( sepArray_SK, deliml
= SK_
"""" )
498 call disp%show(
"call setSplit(parts_VSK, array_SK, sepArray_SK, instance = instance)")
499 call setSplit(parts_VSK, array_SK, sepArray_SK, instance
= instance)
501 call disp%show( parts_VSK, deliml
= SK_
"""" )
507 call disp%show( array_SK, deliml
= SK_
"""" )
509 call disp%show( sepArray_SK, deliml
= SK_
"""" )
512 call disp%show(
"call setSplit(splitIndex, array_SK, sepArray_SK, instance = instance)")
513 call setSplit(splitIndex, array_SK, sepArray_SK, instance
= instance)
521 call disp%show( array_SK, deliml
= SK_
"""" )
523 call disp%show( sepArray_SK, deliml
= SK_
"""" )
526 call disp%show(
"call setSplit(parts_VSK, array_SK, sepArray_SK, instance = instance, keep = .true._LK) ! Keep the `sep` cases in the output.")
527 call setSplit(parts_VSK, array_SK, sepArray_SK, instance
= instance, keep
= .true._LK)
529 call disp%show( parts_VSK, deliml
= SK_
"""" )
535 call disp%show( array_SK, deliml
= SK_
"""" )
537 call disp%show( sepArray_SK, deliml
= SK_
"""" )
540 call disp%show(
"call setSplit(splitIndex, array_SK, sepArray_SK, instance = instance, keep = .true._LK) ! Keep the `sep` cases in the output.")
541 call setSplit(splitIndex, array_SK, sepArray_SK, instance
= instance, keep
= .true._LK)
548 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
549 call disp%show(
"! Split character array with scalar `sep`.")
550 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
556 call disp%show( array_SK, deliml
= SK_
"""" )
558 call disp%show( sepArray_SK(
1), deliml
= SK_
"""" )
561 call disp%show(
"call setSplit(parts_VSK, array_SK, sepArray_SK(1), instance = instance)")
562 call setSplit(parts_VSK, array_SK, sepArray_SK(
1), instance
= instance)
564 call disp%show( parts_VSK, deliml
= SK_
"""" )
570 call disp%show( array_SK, deliml
= SK_
"""" )
572 call disp%show( sepArray_SK(
1), deliml
= SK_
"""" )
575 call disp%show(
"call setSplit(splitIndex, array_SK, sepArray_SK(1), instance = instance)")
576 call setSplit(splitIndex, array_SK, sepArray_SK(
1), instance
= instance)
584 call disp%show( array_SK, deliml
= SK_
"""" )
586 call disp%show( sepArray_SK(
1), deliml
= SK_
"""" )
589 call disp%show(
"call setSplit(parts_VSK, array_SK, sepArray_SK(1), instance = instance, keep = .true._LK) ! Keep the `sep` cases in the output.")
590 call setSplit(parts_VSK, array_SK, sepArray_SK(
1), instance
= instance, keep
= .true._LK)
592 call disp%show( parts_VSK, deliml
= SK_
"""" )
598 call disp%show( array_SK, deliml
= SK_
"""" )
600 call disp%show( sepArray_SK(
1), deliml
= SK_
"""" )
603 call disp%show(
"call setSplit(splitIndex, array_SK, sepArray_SK(1), instance = instance, keep = .true._LK) ! Keep the `sep` cases in the output.")
604 call setSplit(splitIndex, array_SK, sepArray_SK(
1), instance
= instance, keep
= .true._LK)
611 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
612 call disp%show(
"! Split logical array with vector `sep`.")
613 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
624 call disp%show(
"call setSplit(parts_VLK, array_LK, sepArray_LK, instance = instance)")
625 call setSplit(parts_VLK, array_LK, sepArray_LK, instance
= instance)
638 call disp%show(
"call setSplit(splitIndex, array_LK, sepArray_LK, instance = instance)")
639 call setSplit(splitIndex, array_LK, sepArray_LK, instance
= instance)
652 call disp%show(
"call setSplit(parts_VLK, array_LK, sepArray_LK, instance = instance, keep = .true._LK) ! Keep the `sep` cases in the output.")
653 call setSplit(parts_VLK, array_LK, sepArray_LK, instance
= instance, keep
= .true._LK)
666 call disp%show(
"call setSplit(splitIndex, array_LK, sepArray_LK, instance = instance, keep = .true._LK) ! Keep the `sep` cases in the output.")
667 call setSplit(splitIndex, array_LK, sepArray_LK, instance
= instance, keep
= .true._LK)
674 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
675 call disp%show(
"! Split logical array with scalar `sep`.")
676 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
687 call disp%show(
"call setSplit(parts_VLK, array_LK, sepArray_LK(1), instance = instance)")
688 call setSplit(parts_VLK, array_LK, sepArray_LK(
1), instance
= instance)
701 call disp%show(
"call setSplit(splitIndex, array_LK, sepArray_LK(1), instance = instance)")
702 call setSplit(splitIndex, array_LK, sepArray_LK(
1), instance
= instance)
715 call disp%show(
"call setSplit(parts_VLK, array_LK, sepArray_LK(1), instance = instance, keep = .true._LK) ! Keep the `sep` cases in the output.")
716 call setSplit(parts_VLK, array_LK, sepArray_LK(
1), instance
= instance, keep
= .true._LK)
729 call disp%show(
"call setSplit(splitIndex, array_LK, sepArray_LK(1), instance = instance, keep = .true._LK) ! Keep the `sep` cases in the output.")
730 call setSplit(splitIndex, array_LK, sepArray_LK(
1), instance
= instance, keep
= .true._LK)
737 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
738 call disp%show(
"! Split integer array with vector `sep`.")
739 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
750 call disp%show(
"call setSplit(parts_VIK, array_IK, sepArray_IK, instance = instance)")
751 call setSplit(parts_VIK, array_IK, sepArray_IK, instance
= instance)
764 call disp%show(
"call setSplit(splitIndex, array_IK, sepArray_IK, instance = instance)")
765 call setSplit(splitIndex, array_IK, sepArray_IK, instance
= instance)
778 call disp%show(
"call setSplit(parts_VIK, array_IK, sepArray_IK, instance = instance, keep = .true._LK) ! Keep the `sep` cases in the output.")
779 call setSplit(parts_VIK, array_IK, sepArray_IK, instance
= instance, keep
= .true._LK)
792 call disp%show(
"call setSplit(splitIndex, array_IK, sepArray_IK, instance = instance, keep = .true._LK) ! Keep the `sep` cases in the output.")
793 call setSplit(splitIndex, array_IK, sepArray_IK, instance
= instance, keep
= .true._LK)
800 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
801 call disp%show(
"! Split integer array with scalar `sep`.")
802 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
813 call disp%show(
"call setSplit(parts_VIK, array_IK, sepArray_IK(1), instance = instance)")
814 call setSplit(parts_VIK, array_IK, sepArray_IK(
1), instance
= instance)
827 call disp%show(
"call setSplit(splitIndex, array_IK, sepArray_IK(1), instance = instance)")
828 call setSplit(splitIndex, array_IK, sepArray_IK(
1), instance
= instance)
841 call disp%show(
"call setSplit(parts_VIK, array_IK, sepArray_IK(1), instance = instance, keep = .true._LK) ! Keep the `sep` cases in the output.")
842 call setSplit(parts_VIK, array_IK, sepArray_IK(
1), instance
= instance, keep
= .true._LK)
855 call disp%show(
"call setSplit(splitIndex, array_IK, sepArray_IK(1), instance = instance, keep = .true._LK) ! Keep the `sep` cases in the output.")
856 call setSplit(splitIndex, array_IK, sepArray_IK(
1), instance
= instance, keep
= .true._LK)
863 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
864 call disp%show(
"! Split complex array with vector `sep`.")
865 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
876 call disp%show(
"call setSplit(parts_VCK, array_CK, sepArray_CK, instance = instance)")
877 call setSplit(parts_VCK, array_CK, sepArray_CK, instance
= instance)
890 call disp%show(
"call setSplit(splitIndex, array_CK, sepArray_CK, instance = instance)")
891 call setSplit(splitIndex, array_CK, sepArray_CK, instance
= instance)
904 call disp%show(
"call setSplit(parts_VCK, array_CK, sepArray_CK, instance = instance, keep = .true._LK) ! Keep the `sep` cases in the output.")
905 call setSplit(parts_VCK, array_CK, sepArray_CK, instance
= instance, keep
= .true._LK)
918 call disp%show(
"call setSplit(splitIndex, array_CK, sepArray_CK, instance = instance, keep = .true._LK) ! Keep the `sep` cases in the output.")
919 call setSplit(splitIndex, array_CK, sepArray_CK, instance
= instance, keep
= .true._LK)
926 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
927 call disp%show(
"! Split complex array with scalar `sep`.")
928 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
939 call disp%show(
"call setSplit(parts_VCK, array_CK, sepArray_CK(1), instance = instance)")
940 call setSplit(parts_VCK, array_CK, sepArray_CK(
1), instance
= instance)
953 call disp%show(
"call setSplit(splitIndex, array_CK, sepArray_CK(1), instance = instance)")
954 call setSplit(splitIndex, array_CK, sepArray_CK(
1), instance
= instance)
967 call disp%show(
"call setSplit(parts_VCK, array_CK, sepArray_CK(1), instance = instance, keep = .true._LK) ! Keep the `sep` cases in the output.")
968 call setSplit(parts_VCK, array_CK, sepArray_CK(
1), instance
= instance, keep
= .true._LK)
981 call disp%show(
"call setSplit(splitIndex, array_CK, sepArray_CK(1), instance = instance, keep = .true._LK) ! Keep the `sep` cases in the output.")
982 call setSplit(splitIndex, array_CK, sepArray_CK(
1), instance
= instance, keep
= .true._LK)
989 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
990 call disp%show(
"! Split real array with vector `sep`.")
991 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
1002 call disp%show(
"call setSplit(parts_VRK, array_RK, sepArray_RK, instance = instance)")
1003 call setSplit(parts_VRK, array_RK, sepArray_RK, instance
= instance)
1016 call disp%show(
"call setSplit(splitIndex, array_RK, sepArray_RK, instance = instance)")
1017 call setSplit(splitIndex, array_RK, sepArray_RK, instance
= instance)
1030 call disp%show(
"call setSplit(parts_VRK, array_RK, sepArray_RK, instance = instance, keep = .true._LK) ! Keep the `sep` cases in the output.")
1031 call setSplit(parts_VRK, array_RK, sepArray_RK, instance
= instance, keep
= .true._LK)
1044 call disp%show(
"call setSplit(splitIndex, array_RK, sepArray_RK, instance = instance, keep = .true._LK) ! Keep the `sep` cases in the output.")
1045 call setSplit(splitIndex, array_RK, sepArray_RK, instance
= instance, keep
= .true._LK)
1052 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
1053 call disp%show(
"! Split real array with scalar `sep`.")
1054 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
1065 call disp%show(
"call setSplit(parts_VRK, array_RK, sepArray_RK(1), instance = instance)")
1066 call setSplit(parts_VRK, array_RK, sepArray_RK(
1), instance
= instance)
1079 call disp%show(
"call setSplit(splitIndex, array_RK, sepArray_RK(1), instance = instance)")
1080 call setSplit(splitIndex, array_RK, sepArray_RK(
1), instance
= instance)
1093 call disp%show(
"call setSplit(parts_VRK, array_RK, sepArray_RK(1), instance = instance, keep = .true._LK) ! Keep the `sep` cases in the output.")
1094 call setSplit(parts_VRK, array_RK, sepArray_RK(
1), instance
= instance, keep
= .true._LK)
1107 call disp%show(
"call setSplit(splitIndex, array_RK, sepArray_RK(1), instance = instance, keep = .true._LK) ! Keep the `sep` cases in the output.")
1108 call setSplit(splitIndex, array_RK, sepArray_RK(
1), instance
= instance, keep
= .true._LK)
1115 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
1116 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
1117 call disp%show(
"! Split at specific instances with a user-defined equivalence test.")
1118 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
1119 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
1124 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
1125 call disp%show(
"! Split at case-insensitive instances of vector `sep` within the character array.")
1126 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
1129 string_SK
= "ABBAbbA"
1135 call disp%show( string_SK, deliml
= SK_
"""")
1137 call disp%show( stringSep_SK, deliml
= SK_
"""")
1138 call disp%show(
"call setSplit(parts_SSK, string_SK, stringSep_SK, iseq = iseq_SK)")
1139 call setSplit(parts_SSK, string_SK, stringSep_SK, iseq
= iseq_SK)
1141 call disp%show( parts_SSK, deliml
= SK_
"""")
1147 call disp%show( string_SK, deliml
= SK_
"""")
1149 call disp%show( stringSep_SK, deliml
= SK_
"""")
1150 call disp%show(
"call setSplit(splitIndex, string_SK, stringSep_SK, iseq = iseq_SK)")
1151 call setSplit(splitIndex, string_SK, stringSep_SK, iseq
= iseq_SK)
1159 call disp%show( string_SK, deliml
= SK_
"""")
1161 call disp%show( stringSep_SK, deliml
= SK_
"""")
1162 call disp%show(
"call setSplit(parts_SSK, string_SK, stringSep_SK, iseq = iseq_SK, keep = .true._LK) ! Keep the `sep` cases in the output.")
1163 call setSplit(parts_SSK, string_SK, stringSep_SK, iseq
= iseq_SK, keep
= .true._LK)
1165 call disp%show( parts_SSK, deliml
= SK_
"""")
1171 call disp%show( string_SK, deliml
= SK_
"""")
1173 call disp%show( stringSep_SK, deliml
= SK_
"""")
1174 call disp%show(
"call setSplit(splitIndex, string_SK, stringSep_SK, iseq = iseq_SK, keep = .true._LK) ! Keep the `sep` cases in the output.")
1175 call setSplit(splitIndex, string_SK, stringSep_SK, iseq
= iseq_SK, keep
= .true._LK)
1182 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
1183 call disp%show(
"! Split at specific instances of vector `sep` within the real array.")
1184 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
1187 array_RK
= [
0._RK,
1.01_RK,
1.04_RK,
0.98_RK,
1.0_RK,
1.02_RK]
1188 sepArray_RK
= [
-1._RK,
1._RK]
1199 call disp%show(
"call setSplit(parts_VRK, array_RK, sepArray_RK, iseq = iseq_vec_RK, instance = instance)")
1200 call setSplit(parts_VRK, array_RK, sepArray_RK, iseq
= iseq_vec_RK, instance
= instance)
1213 call disp%show(
"call setSplit(splitIndex, array_RK, sepArray_RK, iseq = iseq_vec_RK, instance = instance)")
1214 call setSplit(splitIndex, array_RK, sepArray_RK, iseq
= iseq_vec_RK, instance
= instance)
1227 call disp%show(
"call setSplit(parts_VRK, array_RK, sepArray_RK, iseq = iseq_vec_RK, instance = instance, keep = .true._LK) ! Keep the `sep` cases in the output.")
1228 call setSplit(parts_VRK, array_RK, sepArray_RK, iseq
= iseq_vec_RK, instance
= instance, keep
= .true._LK)
1241 call disp%show(
"call setSplit(splitIndex, array_RK, sepArray_RK, iseq = iseq_vec_RK, instance = instance, keep = .true._LK) ! Keep the `sep` cases in the output.")
1242 call setSplit(splitIndex, array_RK, sepArray_RK, iseq
= iseq_vec_RK, instance
= instance, keep
= .true._LK)
1249 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
1250 call disp%show(
"! Split at specific instances of scalar `sep` within the real array.")
1251 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
1262 call disp%show(
"call setSplit(parts_VRK, array_RK, sepArray_RK(1), iseq = iseq_RK, instance = instance)")
1263 call setSplit(parts_VRK, array_RK, sepArray_RK(
1), iseq
= iseq_RK, instance
= instance)
1276 call disp%show(
"call setSplit(splitIndex, array_RK, sepArray_RK(1), iseq = iseq_RK, instance = instance)")
1277 call setSplit(splitIndex, array_RK, sepArray_RK(
1), iseq
= iseq_RK, instance
= instance)
1290 call disp%show(
"call setSplit(parts_VRK, array_RK, sepArray_RK(1), iseq = iseq_RK, instance = instance, keep = .true._LK) ! Keep the `sep` cases in the output.")
1291 call setSplit(parts_VRK, array_RK, sepArray_RK(
1), iseq
= iseq_RK, instance
= instance, keep
= .true._LK)
1304 call disp%show(
"call setSplit(splitIndex, array_RK, sepArray_RK(1), iseq = iseq_RK, instance = instance, keep = .true._LK) ! Keep the `sep` cases in the output.")
1305 call setSplit(splitIndex, array_RK, sepArray_RK(
1), iseq
= iseq_RK, instance
= instance, keep
= .true._LK)
1312 pure function iseq_SK(ArraySegment, Sep)
result(equivalent)
1314 character(
*, SK),
intent(in) :: Sep, ArraySegment
1315 logical(LK) :: equivalent
1319 function iseq_RK(arraySegment, sep)
result(equivalent)
1320 real(RK) ,
intent(in) :: sep, arraySegment
1321 logical(LK) :: equivalent
1322 equivalent
= abs(abs(sep)
- abs(arraySegment))
< 0.05_RK
1325 function iseq_vec_RK(ArraySegment, Sep, lenSep)
result(equivalent)
1326 integer(IK) ,
intent(in) :: lenSep
1327 real(RK) ,
intent(in) :: Sep(lenSep), ArraySegment(lenSep)
1328 logical(LK) :: equivalent
1329 equivalent
= all(abs(abs(Sep)
- abs(ArraySegment))
< 0.05_RK)
This is a generic method of the derived type display_type with pass attribute.
This is a generic method of the derived type display_type with pass attribute.
Generate and return the input string where the uppercase English alphabets are all converted to lower...
This module contains the derived types for generating allocatable containers of scalar,...
This module contains classes and procedures for input/output (IO) or generic display operations on st...
type(display_type) disp
This is a scalar module variable an object of type display_type for general display.
integer, parameter RK
The default real kind in the ParaMonte library: real64 in Fortran, c_double in C-Fortran Interoperati...
integer, parameter CK
The default complex kind in the ParaMonte library: real64 in Fortran, c_double_complex in C-Fortran I...
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 uncommon and hardly representable ASCII characters as well as procedures for...
This is the css_pdt parameterized type for generating instances of container of scalar of string obje...
This is the parameterized derived type for generating a container of an allocatable vector component ...
This is the parameterized derived type for generating a container of a vector component of type integ...
This is the parameterized derived type for generating a container of an allocatable vector component ...
This is the parameterized derived type for generating a container of an allocatable vector component ...
This is the parameterized derived type for generating a container of a vector component of type chara...
Generate and return an object of type display_type.
15"ParaMonte is a Machine Learning Library "
18call setSplit(splitIndex, string_SK, stringSep_SK)
20+1,
+11,
+14,
+16,
+24,
+33,
+41
21+9,
+12,
+14,
+22,
+31,
+39,
+40
25"ParaMonte is a Machine Learning Library "
28call setSplit(splitIndex, string_SK, stringSep_SK, keep
= .true._LK)
30+1,
+10,
+11,
+13,
+14,
+15,
+16,
+23,
+24,
+32,
+33,
+40,
+41
31+9,
+10,
+12,
+13,
+14,
+15,
+22,
+23,
+31,
+32,
+39,
+40,
+40
40"ParaMonte",
"XXXXXXXXX",
"is ",
"XXXXXXXXX",
"a ",
"XXXXXXXXX",
"Monte ",
"XXXXXXXXX",
"Carlo ",
"XXXXXXXXX",
"Library. ",
"XXXXXXXXX"
43call setSplit(splitIndex, array_SK, sepArray_SK)
45+1,
+3,
+5,
+7,
+9,
+11,
+13
46+1,
+3,
+5,
+7,
+9,
+11,
+12
50"ParaMonte",
"XXXXXXXXX",
"is ",
"XXXXXXXXX",
"a ",
"XXXXXXXXX",
"Monte ",
"XXXXXXXXX",
"Carlo ",
"XXXXXXXXX",
"Library. ",
"XXXXXXXXX"
53call setSplit(splitIndex, array_SK, sepArray_SK, keep
= .true._LK)
55+1,
+2,
+3,
+4,
+5,
+6,
+7,
+8,
+9,
+10,
+11,
+12,
+13
56+1,
+2,
+3,
+4,
+5,
+6,
+7,
+8,
+9,
+10,
+11,
+12,
+12
65F, T, T, F, T, T, T, F, T
68call setSplit(splitIndex, array_LK, sepArray_LK)
75F, T, T, F, T, T, T, F, T
78call setSplit(splitIndex, array_LK, sepArray_LK, keep
= .true._LK)
80+1,
+1,
+3,
+4,
+6,
+8,
+10
81+0,
+2,
+3,
+5,
+7,
+9,
+9
90+1,
+0,
+2,
+1,
+0,
+4,
+5,
+1,
+0,
+7,
+8,
+9,
+10
93call setSplit(splitIndex, array_IK, sepArray_IK)
100+1,
+0,
+2,
+1,
+0,
+4,
+5,
+1,
+0,
+7,
+8,
+9,
+10
103call setSplit(splitIndex, array_IK, sepArray_IK, keep
= .true._LK)
105+1,
+1,
+3,
+4,
+6,
+8,
+10
106+0,
+2,
+3,
+5,
+7,
+9,
+13
115(
+1.0000000000000000,
-1.0000000000000000), (
+0.0000000000000000,
-0.0000000000000000), (
+2.0000000000000000,
-2.0000000000000000), (
+1.0000000000000000,
-1.0000000000000000), (
+0.0000000000000000,
-0.0000000000000000), (
+4.0000000000000000,
-4.0000000000000000), (
+5.0000000000000000,
-5.0000000000000000), (
+6.0000000000000000,
-6.0000000000000000), (
+0.0000000000000000,
-0.0000000000000000), (
+4.0000000000000000,
-4.0000000000000000)
117(
+1.0000000000000000,
-1.0000000000000000), (
+0.0000000000000000,
-0.0000000000000000)
118call setSplit(splitIndex, array_CK, sepArray_CK)
125(
+1.0000000000000000,
-1.0000000000000000), (
+0.0000000000000000,
-0.0000000000000000), (
+2.0000000000000000,
-2.0000000000000000), (
+1.0000000000000000,
-1.0000000000000000), (
+0.0000000000000000,
-0.0000000000000000), (
+4.0000000000000000,
-4.0000000000000000), (
+5.0000000000000000,
-5.0000000000000000), (
+6.0000000000000000,
-6.0000000000000000), (
+0.0000000000000000,
-0.0000000000000000), (
+4.0000000000000000,
-4.0000000000000000)
127(
+1.0000000000000000,
-1.0000000000000000), (
+0.0000000000000000,
-0.0000000000000000)
128call setSplit(splitIndex, array_CK, sepArray_CK, keep
= .true._LK)
140+1.0000000000000000,
+0.0000000000000000,
+2.0000000000000000,
+1.0000000000000000,
+0.0000000000000000,
+4.0000000000000000,
+5.0000000000000000,
+1.0000000000000000,
+0.0000000000000000,
+7.0000000000000000,
+8.0000000000000000,
+9.0000000000000000,
+10.000000000000000
142+1.0000000000000000,
+0.0000000000000000
143call setSplit(splitIndex, array_RK, sepArray_RK)
150+1.0000000000000000,
+0.0000000000000000,
+2.0000000000000000,
+1.0000000000000000,
+0.0000000000000000,
+4.0000000000000000,
+5.0000000000000000,
+1.0000000000000000,
+0.0000000000000000,
+7.0000000000000000,
+8.0000000000000000,
+9.0000000000000000,
+10.000000000000000
152+1.0000000000000000,
+0.0000000000000000
153call setSplit(splitIndex, array_RK, sepArray_RK, keep
= .true._LK)
155+1,
+1,
+3,
+4,
+6,
+8,
+10
156+0,
+2,
+3,
+5,
+7,
+9,
+13
177call setSplit(splitIndex, string_SK, stringSep_SK, instance
= instance)
189call setSplit(splitIndex, string_SK, stringSep_SK, instance
= instance, keep
= .true._LK)
191+1,
+2,
+3,
+6,
+7,
+7,
+8
192+1,
+2,
+5,
+6,
+6,
+7,
+9
201"AAAAAAAAA",
"AAAAAAAAA",
"AAAAAAAAA",
"AAAAAAAAA",
"AAAAAAAAA",
"AAAAAAAAA",
"AAAAAAAAA",
"AAAAAAAAA",
"AAAAAAAAA"
206call setSplit(splitIndex, array_SK, sepArray_SK, instance
= instance)
213"AAAAAAAAA",
"AAAAAAAAA",
"AAAAAAAAA",
"AAAAAAAAA",
"AAAAAAAAA",
"AAAAAAAAA",
"AAAAAAAAA",
"AAAAAAAAA",
"AAAAAAAAA"
218call setSplit(splitIndex, array_SK, sepArray_SK, instance
= instance, keep
= .true._LK)
220+1,
+2,
+3,
+6,
+7,
+7,
+8
221+1,
+2,
+5,
+6,
+6,
+7,
+9
230"AAAAAAAAA",
"AAAAAAAAA",
"AAAAAAAAA",
"AAAAAAAAA",
"AAAAAAAAA",
"AAAAAAAAA",
"AAAAAAAAA",
"AAAAAAAAA",
"AAAAAAAAA"
235call setSplit(splitIndex, array_SK, sepArray_SK(
1), instance
= instance)
242"AAAAAAAAA",
"AAAAAAAAA",
"AAAAAAAAA",
"AAAAAAAAA",
"AAAAAAAAA",
"AAAAAAAAA",
"AAAAAAAAA",
"AAAAAAAAA",
"AAAAAAAAA"
247call setSplit(splitIndex, array_SK, sepArray_SK(
1), instance
= instance, keep
= .true._LK)
249+1,
+2,
+3,
+6,
+7,
+7,
+8
250+1,
+2,
+5,
+6,
+6,
+7,
+9
259F, T, F, T, T, F, T, T, F, F
264call setSplit(splitIndex, array_LK, sepArray_LK, instance
= instance)
271F, T, F, T, T, F, T, T, F, F
276call setSplit(splitIndex, array_LK, sepArray_LK, instance
= instance, keep
= .true._LK)
288F, T, F, T, T, F, T, T, F, F
293call setSplit(splitIndex, array_LK, sepArray_LK(
1), instance
= instance)
300F, T, F, T, T, F, T, T, F, F
305call setSplit(splitIndex, array_LK, sepArray_LK(
1), instance
= instance, keep
= .true._LK)
317+0,
+1,
+0,
+2,
+3,
+0,
+4,
+5,
+0,
+0
322call setSplit(splitIndex, array_IK, sepArray_IK, instance
= instance)
329+0,
+1,
+0,
+2,
+3,
+0,
+4,
+5,
+0,
+0
334call setSplit(splitIndex, array_IK, sepArray_IK, instance
= instance, keep
= .true._LK)
346+0,
+1,
+0,
+2,
+3,
+0,
+4,
+5,
+0,
+0
351call setSplit(splitIndex, array_IK, sepArray_IK(
1), instance
= instance)
358+0,
+1,
+0,
+2,
+3,
+0,
+4,
+5,
+0,
+0
363call setSplit(splitIndex, array_IK, sepArray_IK(
1), instance
= instance, keep
= .true._LK)
375(
+0.0000000000000000,
-0.0000000000000000), (
+1.0000000000000000,
-1.0000000000000000), (
+0.0000000000000000,
-0.0000000000000000), (
+2.0000000000000000,
-2.0000000000000000), (
+3.0000000000000000,
-3.0000000000000000), (
+0.0000000000000000,
-0.0000000000000000), (
+4.0000000000000000,
-4.0000000000000000), (
+5.0000000000000000,
-5.0000000000000000), (
+0.0000000000000000,
-0.0000000000000000), (
+0.0000000000000000,
-0.0000000000000000)
377(
+0.0000000000000000,
-0.0000000000000000)
380call setSplit(splitIndex, array_CK, sepArray_CK, instance
= instance)
387(
+0.0000000000000000,
-0.0000000000000000), (
+1.0000000000000000,
-1.0000000000000000), (
+0.0000000000000000,
-0.0000000000000000), (
+2.0000000000000000,
-2.0000000000000000), (
+3.0000000000000000,
-3.0000000000000000), (
+0.0000000000000000,
-0.0000000000000000), (
+4.0000000000000000,
-4.0000000000000000), (
+5.0000000000000000,
-5.0000000000000000), (
+0.0000000000000000,
-0.0000000000000000), (
+0.0000000000000000,
-0.0000000000000000)
389(
+0.0000000000000000,
-0.0000000000000000)
392call setSplit(splitIndex, array_CK, sepArray_CK, instance
= instance, keep
= .true._LK)
404(
+0.0000000000000000,
-0.0000000000000000), (
+1.0000000000000000,
-1.0000000000000000), (
+0.0000000000000000,
-0.0000000000000000), (
+2.0000000000000000,
-2.0000000000000000), (
+3.0000000000000000,
-3.0000000000000000), (
+0.0000000000000000,
-0.0000000000000000), (
+4.0000000000000000,
-4.0000000000000000), (
+5.0000000000000000,
-5.0000000000000000), (
+0.0000000000000000,
-0.0000000000000000), (
+0.0000000000000000,
-0.0000000000000000)
406(
+0.0000000000000000,
-0.0000000000000000)
409call setSplit(splitIndex, array_CK, sepArray_CK(
1), instance
= instance)
416(
+0.0000000000000000,
-0.0000000000000000), (
+1.0000000000000000,
-1.0000000000000000), (
+0.0000000000000000,
-0.0000000000000000), (
+2.0000000000000000,
-2.0000000000000000), (
+3.0000000000000000,
-3.0000000000000000), (
+0.0000000000000000,
-0.0000000000000000), (
+4.0000000000000000,
-4.0000000000000000), (
+5.0000000000000000,
-5.0000000000000000), (
+0.0000000000000000,
-0.0000000000000000), (
+0.0000000000000000,
-0.0000000000000000)
418(
+0.0000000000000000,
-0.0000000000000000)
421call setSplit(splitIndex, array_CK, sepArray_CK(
1), instance
= instance, keep
= .true._LK)
433+0.0000000000000000,
+1.0000000000000000,
+0.0000000000000000,
+2.0000000000000000,
+3.0000000000000000,
+0.0000000000000000,
+4.0000000000000000,
+5.0000000000000000,
+0.0000000000000000,
+0.0000000000000000
438call setSplit(splitIndex, array_RK, sepArray_RK, instance
= instance)
445+0.0000000000000000,
+1.0000000000000000,
+0.0000000000000000,
+2.0000000000000000,
+3.0000000000000000,
+0.0000000000000000,
+4.0000000000000000,
+5.0000000000000000,
+0.0000000000000000,
+0.0000000000000000
450call setSplit(splitIndex, array_RK, sepArray_RK, instance
= instance, keep
= .true._LK)
462+0.0000000000000000,
+1.0000000000000000,
+0.0000000000000000,
+2.0000000000000000,
+3.0000000000000000,
+0.0000000000000000,
+4.0000000000000000,
+5.0000000000000000,
+0.0000000000000000,
+0.0000000000000000
467call setSplit(splitIndex, array_RK, sepArray_RK(
1), instance
= instance)
474+0.0000000000000000,
+1.0000000000000000,
+0.0000000000000000,
+2.0000000000000000,
+3.0000000000000000,
+0.0000000000000000,
+4.0000000000000000,
+5.0000000000000000,
+0.0000000000000000,
+0.0000000000000000
479call setSplit(splitIndex, array_RK, sepArray_RK(
1), instance
= instance, keep
= .true._LK)
501call setSplit(splitIndex, string_SK, stringSep_SK, iseq
= iseq_SK)
511call setSplit(splitIndex, string_SK, stringSep_SK, iseq
= iseq_SK, keep
= .true._LK)
523+0.0000000000000000,
+1.0100000000000000,
+1.0400000000000000,
+0.97999999999999998,
+1.0000000000000000,
+1.0200000000000000
525-1.0000000000000000,
+1.0000000000000000
528call setSplit(splitIndex, array_RK, sepArray_RK, iseq
= iseq_vec_RK, instance
= instance)
535+0.0000000000000000,
+1.0100000000000000,
+1.0400000000000000,
+0.97999999999999998,
+1.0000000000000000,
+1.0200000000000000
537-1.0000000000000000,
+1.0000000000000000
540call setSplit(splitIndex, array_RK, sepArray_RK, iseq
= iseq_vec_RK, instance
= instance, keep
= .true._LK)
552+0.0000000000000000,
+1.0100000000000000,
+1.0400000000000000,
+0.97999999999999998,
+1.0000000000000000,
+1.0200000000000000
557call setSplit(splitIndex, array_RK, sepArray_RK(
1), iseq
= iseq_RK, instance
= instance)
564+0.0000000000000000,
+1.0100000000000000,
+1.0400000000000000,
+0.97999999999999998,
+1.0000000000000000,
+1.0200000000000000
569call setSplit(splitIndex, array_RK, sepArray_RK(
1), iseq
= iseq_RK, instance
= instance, keep
= .true._LK)