14 integer(IK) ,
allocatable :: instance(:) , loc(:)
16 character(:, SK),
allocatable :: string_SK , stringPattern_SK
17 character(
9, SK),
allocatable :: array_SK(:) , patvec_SK(:)
18 integer(IK) ,
allocatable :: array_IK(:) , patvec_IK(:)
19 complex(CK) ,
allocatable :: array_CK(:) , patvec_CK(:)
20 real(RK) ,
allocatable :: array_RK(:) , patvec_RK(:)
21 logical(LK) ,
allocatable :: array_LK(:) , patvec_LK(:)
24 type(display_type) :: disp
28 string_SK
= "ParaMonte is a Machine Learning Library "
29 array_SK
= [
"ParaMonte",
"XXXXXXXXX",
"is ",
"XXXXXXXXX",
"a ",
"XXXXXXXXX",
"Monte ",
"XXXXXXXXX",
"Carlo ",
"XXXXXXXXX",
"Library. ",
"XXXXXXXXX"]
30 array_IK
= [
1_IK,
0_IK,
2_IK,
0_IK,
3_IK,
0_IK,
4_IK]
31 array_RK
= [
1._RK,
0._RK,
2._RK,
0._RK,
3._RK,
0._RK,
4._RK]
32 array_CK
= [(
1._CK,
-1._CK), (
0._CK,
-0._CK), (
2._CK,
-2._CK), (
0._CK,
-0._CK), (
3._CK,
-3._CK), (
0._CK,
-0._CK), (
4._CK,
-4._CK)]
33 array_LK
= [
.false._LK,
.true._LK,
.false._LK,
.true._LK,
.false._LK,
.true._LK,
.false._LK]
36 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
37 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
38 call disp%show(
"! Find all instances of pattern in array.")
39 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
40 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
43 stringPattern_SK
= " "
44 patvec_SK
= [
"XXXXXXXXX"]
47 patvec_CK
= [(
0._CK,
-0._CK)]
48 patvec_LK
= [
.true._LK]
51 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%")
52 call disp%show(
"! Find character scalar.")
53 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%")
57 call disp%show( string_SK, deliml
= SK_
"""" )
59 call disp%show( stringPattern_SK, deliml
= SK_
"""" )
60 call disp%show(
"call setResized(loc, 0_IK)")
62 call disp%show(
"call setLoc(loc, nloc, string_SK, stringPattern_SK, blindness = 1_IK)")
63 call setLoc(loc, nloc, string_SK, stringPattern_SK, blindness
= 1_IK)
68 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%")
69 call disp%show(
"! Find character array.")
70 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%")
74 call disp%show( array_SK, deliml
= SK_
"""" )
76 call disp%show( patvec_SK, deliml
= SK_
"""" )
77 call disp%show(
"call setLoc(loc, nloc, array_SK, patvec_SK, blindness = 1_IK)")
78 call setLoc(loc, nloc, array_SK, patvec_SK, blindness
= 1_IK)
83 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%")
84 call disp%show(
"! Find logical array.")
85 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%")
92 call disp%show(
"call setLoc(loc, nloc, array_LK, patvec_LK, blindness = 1_IK)")
93 call setLoc(loc, nloc, array_LK, patvec_LK, blindness
= 1_IK)
98 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%")
99 call disp%show(
"! Find integer array.")
100 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%")
107 call disp%show(
"call setLoc(loc, nloc, array_IK, patvec_IK, blindness = 1_IK)")
108 call setLoc(loc, nloc, array_IK, patvec_IK, blindness
= 1_IK)
113 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%")
114 call disp%show(
"! Find complex array.")
115 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%")
122 call disp%show(
"call setLoc(loc, nloc, array_CK, patvec_CK, blindness = 1_IK)")
123 call setLoc(loc, nloc, array_CK, patvec_CK, blindness
= 1_IK)
128 call disp%show(
"!%%%%%%%%%%%%%%%%%")
129 call disp%show(
"! Find real array.")
130 call disp%show(
"!%%%%%%%%%%%%%%%%%")
137 call disp%show(
"call setLoc(loc, nloc, array_RK, patvec_RK, blindness = 1_IK)")
138 call setLoc(loc, nloc, array_RK, patvec_RK, blindness
= 1_IK)
144 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
145 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
146 call disp%show(
"! Find only particular instances of pattern in array.")
147 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
148 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
151 string_SK
= "A_A_A_A_A_A_A_A_A"
152 array_SK
= [
"A",
"_",
"A",
"_",
"A",
"_",
"A",
"_",
"A",
"_",
"A",
"_",
"A",
"_",
"A",
"_",
"A"]
153 array_IK
= [
0_IK,
1_IK,
0_IK,
2_IK,
3_IK,
0_IK,
4_IK,
5_IK,
0_IK,
0_IK]
154 array_RK
= [
0._RK,
1._RK,
0._RK,
2._RK,
3._RK,
0._RK,
4._RK,
5._RK,
0._RK,
0._RK]
155 array_CK
= [(
0._CK,
-0._CK), (
1._CK,
-1._CK), (
0._CK,
-0._CK), (
2._CK,
-2._CK), (
3._CK,
-3._CK), (
0._CK,
-0._CK), (
4._CK,
-4._CK), (
5._CK,
-5._CK), (
0._CK,
-0._CK), (
0._CK,
-0._CK)]
156 array_LK
= [
.false._LK,
.true._LK,
.false._LK,
.true._LK,
.true._LK,
.false._LK,
.true._LK,
.true._LK,
.false._LK,
.false._LK]
158 stringPattern_SK
= "_"
162 patvec_CK
= [(
0._CK,
-0._CK)]
163 patvec_LK
= [
.false._LK]
165 instance
= [
-3_IK,
2_IK,
-4_IK,
20_IK]
168 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%")
169 call disp%show(
"! Find character scalar.")
170 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%")
174 call disp%show( string_SK, deliml
= SK_
"""" )
176 call disp%show( stringPattern_SK, deliml
= SK_
"""" )
177 call disp%show(
"instance ! Identical instances yield identical indices. Out-of-bound instance indices are ignored.")
179 call disp%show(
"call setLoc(loc, nloc, string_SK, stringPattern_SK, instance = instance, sorted = .false._LK, positive = .false._LK, blindness = 1_IK)")
180 call setLoc(loc, nloc, string_SK, stringPattern_SK, instance
= instance, sorted
= .false._LK, positive
= .false._LK, blindness
= 1_IK)
185 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
186 call disp%show(
"! Find vector `pattern` from character array.")
187 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
191 call disp%show( array_SK, deliml
= SK_
"""" )
193 call disp%show( patvec_SK, deliml
= SK_
"""" )
194 call disp%show(
"instance ! Identical instances yield identical indices. Out-of-bound instance indices are ignored.")
196 call disp%show(
"call setLoc(loc, nloc, array_SK, patvec_SK, instance = instance, sorted = .false._LK, positive = .false._LK, blindness = 1_IK)")
197 call setLoc(loc, nloc, array_SK, patvec_SK, instance
= instance, sorted
= .false._LK, positive
= .false._LK, blindness
= 1_IK)
202 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
203 call disp%show(
"! Find character array with scalar `pattern`.")
204 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
208 call disp%show( array_SK, deliml
= SK_
"""" )
210 call disp%show( patvec_SK(
1), deliml
= SK_
"""" )
211 call disp%show(
"instance ! Identical instances yield identical indices. Out-of-bound instance indices are ignored.")
213 call disp%show(
"call setLoc(loc, nloc, array_SK, patvec_SK(1), instance = instance, sorted = .false._LK, positive = .false._LK, blindness = 1_IK)")
214 call setLoc(loc, nloc, array_SK, patvec_SK(
1), instance
= instance, sorted
= .false._LK, positive
= .false._LK, blindness
= 1_IK)
219 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
220 call disp%show(
"! Find logical array with vector `pattern`.")
221 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
228 call disp%show(
"instance ! Identical instances yield identical indices. Out-of-bound instance indices are ignored.")
230 call disp%show(
"call setLoc(loc, nloc, array_LK, patvec_LK, instance = instance, sorted = .false._LK, positive = .false._LK, blindness = 1_IK)")
231 call setLoc(loc, nloc, array_LK, patvec_LK, instance
= instance, sorted
= .false._LK, positive
= .false._LK, blindness
= 1_IK)
236 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
237 call disp%show(
"! Find logical array with scalar `pattern`.")
238 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
245 call disp%show(
"instance ! Identical instances yield identical indices. Out-of-bound instance indices are ignored.")
247 call disp%show(
"call setLoc(loc, nloc, array_LK, patvec_LK(1), instance = instance, sorted = .false._LK, positive = .false._LK, blindness = 1_IK)")
248 call setLoc(loc, nloc, array_LK, patvec_LK(
1), instance
= instance, sorted
= .false._LK, positive
= .false._LK, blindness
= 1_IK)
253 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
254 call disp%show(
"! Find integer array with vector `pattern`.")
255 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
262 call disp%show(
"instance ! Identical instances yield identical indices. Out-of-bound instance indices are ignored.")
264 call disp%show(
"call setLoc(loc, nloc, array_IK, patvec_IK, instance = instance, sorted = .false._LK, positive = .false._LK, blindness = 1_IK)")
265 call setLoc(loc, nloc, array_IK, patvec_IK, instance
= instance, sorted
= .false._LK, positive
= .false._LK, blindness
= 1_IK)
270 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
271 call disp%show(
"! Find integer array with scalar `pattern`.")
272 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
279 call disp%show(
"instance ! Identical instances yield identical indices. Out-of-bound instance indices are ignored.")
281 call disp%show(
"call setLoc(loc, nloc, array_IK, patvec_IK(1), instance = instance, sorted = .false._LK, positive = .false._LK, blindness = 1_IK)")
282 call setLoc(loc, nloc, array_IK, patvec_IK(
1), instance
= instance, sorted
= .false._LK, positive
= .false._LK, blindness
= 1_IK)
287 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
288 call disp%show(
"! Find complex array with vector `pattern`.")
289 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
296 call disp%show(
"instance ! Identical instances yield identical indices. Out-of-bound instance indices are ignored.")
298 call disp%show(
"call setLoc(loc, nloc, array_CK, patvec_CK, instance = instance, sorted = .false._LK, positive = .false._LK, blindness = 1_IK)")
299 call setLoc(loc, nloc, array_CK, patvec_CK, instance
= instance, sorted
= .false._LK, positive
= .false._LK, blindness
= 1_IK)
304 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
305 call disp%show(
"! Find complex array with scalar `pattern`.")
306 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
313 call disp%show(
"instance ! Identical instances yield identical indices. Out-of-bound instance indices are ignored.")
315 call disp%show(
"call setLoc(loc, nloc, array_CK, patvec_CK(1), instance = instance, sorted = .false._LK, positive = .false._LK, blindness = 1_IK)")
316 call setLoc(loc, nloc, array_CK, patvec_CK(
1), instance
= instance, sorted
= .false._LK, positive
= .false._LK, blindness
= 1_IK)
321 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
322 call disp%show(
"! Find real array with vector `pattern`.")
323 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
330 call disp%show(
"instance ! Identical instances yield identical indices. Out-of-bound instance indices are ignored.")
332 call disp%show(
"call setLoc(loc, nloc, array_RK, patvec_RK, instance = instance, sorted = .false._LK, positive = .false._LK, blindness = 1_IK)")
333 call setLoc(loc, nloc, array_RK, patvec_RK, instance
= instance, sorted
= .false._LK, positive
= .false._LK, blindness
= 1_IK)
338 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
339 call disp%show(
"! Find real array with scalar `pattern`.")
340 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
347 call disp%show(
"instance ! Identical instances yield identical indices. Out-of-bound instance indices are ignored.")
349 call disp%show(
"call setLoc(loc, nloc, array_RK, patvec_RK(1), instance = instance, sorted = .false._LK, positive = .false._LK, blindness = 1_IK)")
350 call setLoc(loc, nloc, array_RK, patvec_RK(
1), instance
= instance, sorted
= .false._LK, positive
= .false._LK, blindness
= 1_IK)
356 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
357 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
358 call disp%show(
"! Adjust the blindness to find exclusively non-overlapping instances of `pattern`.")
359 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
360 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
364 string_SK
= "AAAAAAAA"
365 stringPattern_SK
= "AAA"
368 call disp%show( string_SK, deliml
= SK_
"""" )
370 call disp%show( stringPattern_SK, deliml
= SK_
"""" )
371 call disp%show(
"call setLoc(loc, nloc, string_SK, stringPattern_SK, blindness = 1_IK) ! The default blindness episode after each detection is `blindness = 1_IK`")
372 call setLoc(loc, nloc, string_SK, stringPattern_SK, blindness
= 1_IK)
377 call disp%show( string_SK, deliml
= SK_
"""" )
379 call disp%show( stringPattern_SK, deliml
= SK_
"""" )
380 call disp%show(
"call setLoc(loc, nloc, string_SK, stringPattern_SK, blindness = size(stringPattern_SK, kind = IK)) ! Find only non-overlapping patterns.")
381 call setLoc(loc, nloc, string_SK, stringPattern_SK, blindness
= len(stringPattern_SK,
kind = IK))
386 call disp%show( string_SK, deliml
= SK_
"""" )
388 call disp%show( stringPattern_SK, deliml
= SK_
"""" )
389 call disp%show(
"call setLoc(loc, nloc, string_SK, stringPattern_SK, blindness = 2_IK) ! Find instances with jumps of size 2.")
390 call setLoc(loc, nloc, string_SK, stringPattern_SK, blindness
= 2_IK)
396 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
397 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
398 call disp%show(
"! Find specific instances with a user-defined equivalence test.")
399 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
400 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
405 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
406 call disp%show(
"! Find case-insensitive instances of vector `pattern` within the character array.")
407 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
410 string_SK
= "ABBAbbA"
411 stringPattern_SK
= "bb"
414 call disp%show( string_SK, deliml
= SK_
"""" )
416 call disp%show( stringPattern_SK, deliml
= SK_
"""" )
417 call disp%show(
"call setLoc(loc, nloc, string_SK, stringPattern_SK, iseq = iseq_SK, blindness = 1_IK)")
418 call setLoc(loc, nloc, string_SK, stringPattern_SK, iseq
= iseq_SK, blindness
= 1_IK)
423 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
424 call disp%show(
"! Find specific instances of vector `pattern` within the real array.")
425 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
428 array_RK
= [
0._RK,
1.01_RK,
1.04_RK,
0.98_RK,
1.0_RK,
1.02_RK]
429 patvec_RK
= [
-1._RK,
1._RK]
436 call disp%show(
"instance ! Identical instances yield identical indices. Out-of-bound instance indices are ignored.")
438 call disp%show(
"call setLoc(loc, nloc, array_RK, patvec_RK, iseq = iseq_vec_RK, instance = instance, sorted = .false._LK, positive = .false._LK, blindness = 1_IK)")
439 call setLoc(loc, nloc, array_RK, patvec_RK, iseq
= iseq_vec_RK, instance
= instance, sorted
= .false._LK, positive
= .false._LK, blindness
= 1_IK)
444 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
445 call disp%show(
"! Find specific instances of scalar `pattern` within the real array.")
446 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
453 call disp%show(
"instance ! Identical instances yield identical indices. Out-of-bound instance indices are ignored.")
455 call disp%show(
"call setLoc(loc, nloc, array_RK, patvec_RK(1), iseq = iseq_RK, instance = instance, sorted = .false._LK, positive = .false._LK, blindness = 1_IK)")
456 call setLoc(loc, nloc, array_RK, patvec_RK(
1), iseq
= iseq_RK, instance
= instance, sorted
= .false._LK, positive
= .false._LK, blindness
= 1_IK)
462 pure function iseq_SK(ArraySegment, pattern)
result(equivalent)
464 character(
*, SK),
intent(in) :: pattern, ArraySegment
465 logical(LK) :: equivalent
469 function iseq_RK(arraysegment, pattern)
result(equivalent)
470 real(RK) ,
intent(in) :: pattern, arraySegment
471 logical(LK) :: equivalent
472 equivalent
= abs(abs(pattern)
- abs(arraySegment))
< 0.05_RK
475 function iseq_vec_RK(ArraySegment, pattern, lenPattern)
result(equivalent)
476 integer(IK) ,
intent(in) :: lenPattern
477 real(RK) ,
intent(in) :: pattern(lenPattern), ArraySegment(lenPattern)
478 logical(LK) :: equivalent
479 equivalent
= all(abs(abs(pattern)
- abs(ArraySegment))
< 0.05_RK)
Allocate or resize (shrink or expand) an input allocatable scalar string or array of rank 1....
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 procedures and generic interfaces for resizing allocatable arrays of various typ...
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.
This module contains the uncommon and hardly representable ASCII characters as well as procedures for...
Generate and return an object of type display_type.
14"ParaMonte is a Machine Learning Library "
18call setLoc(loc, nloc, string_SK, stringPattern_SK, blindness
= 1_IK)
20+10,
+13,
+15,
+23,
+32,
+40
27"ParaMonte",
"XXXXXXXXX",
"is ",
"XXXXXXXXX",
"a ",
"XXXXXXXXX",
"Monte ",
"XXXXXXXXX",
"Carlo ",
"XXXXXXXXX",
"Library. ",
"XXXXXXXXX"
30call setLoc(loc, nloc, array_SK, patvec_SK, blindness
= 1_IK)
32+2,
+4,
+6,
+8,
+10,
+12
42call setLoc(loc, nloc, array_LK, patvec_LK, blindness
= 1_IK)
51+1,
+0,
+2,
+0,
+3,
+0,
+4
54call setLoc(loc, nloc, array_IK, patvec_IK, blindness
= 1_IK)
63(
+1.0000000000000000,
-1.0000000000000000), (
+0.0000000000000000,
-0.0000000000000000), (
+2.0000000000000000,
-2.0000000000000000), (
+0.0000000000000000,
-0.0000000000000000), (
+3.0000000000000000,
-3.0000000000000000), (
+0.0000000000000000,
-0.0000000000000000), (
+4.0000000000000000,
-4.0000000000000000)
65(
+0.0000000000000000,
-0.0000000000000000)
66call setLoc(loc, nloc, array_CK, patvec_CK, blindness
= 1_IK)
75+1.0000000000000000,
+0.0000000000000000,
+2.0000000000000000,
+0.0000000000000000,
+3.0000000000000000,
+0.0000000000000000,
+4.0000000000000000
78call setLoc(loc, nloc, array_RK, patvec_RK, blindness
= 1_IK)
99call setLoc(loc, nloc, string_SK, stringPattern_SK, instance
= instance, sorted
= .false._LK, positive
= .false._LK, blindness
= 1_IK)
108"A ",
"_ ",
"A ",
"_ ",
"A ",
"_ ",
"A ",
"_ ",
"A ",
"_ ",
"A ",
"_ ",
"A ",
"_ ",
"A ",
"_ ",
"A "
113call setLoc(loc, nloc, array_SK, patvec_SK, instance
= instance, sorted
= .false._LK, positive
= .false._LK, blindness
= 1_IK)
122"A ",
"_ ",
"A ",
"_ ",
"A ",
"_ ",
"A ",
"_ ",
"A ",
"_ ",
"A ",
"_ ",
"A ",
"_ ",
"A ",
"_ ",
"A "
127call setLoc(loc, nloc, array_SK, patvec_SK(
1), instance
= instance, sorted
= .false._LK, positive
= .false._LK, blindness
= 1_IK)
136F, T, F, T, T, F, T, T, F, F
141call setLoc(loc, nloc, array_LK, patvec_LK, instance
= instance, sorted
= .false._LK, positive
= .false._LK, blindness
= 1_IK)
150F, T, F, T, T, F, T, T, F, F
155call setLoc(loc, nloc, array_LK, patvec_LK(
1), instance
= instance, sorted
= .false._LK, positive
= .false._LK, blindness
= 1_IK)
164+0,
+1,
+0,
+2,
+3,
+0,
+4,
+5,
+0,
+0
169call setLoc(loc, nloc, array_IK, patvec_IK, instance
= instance, sorted
= .false._LK, positive
= .false._LK, blindness
= 1_IK)
178+0,
+1,
+0,
+2,
+3,
+0,
+4,
+5,
+0,
+0
183call setLoc(loc, nloc, array_IK, patvec_IK(
1), instance
= instance, sorted
= .false._LK, positive
= .false._LK, blindness
= 1_IK)
192(
+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)
194(
+0.0000000000000000,
-0.0000000000000000)
197call setLoc(loc, nloc, array_CK, patvec_CK, instance
= instance, sorted
= .false._LK, positive
= .false._LK, blindness
= 1_IK)
206(
+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)
208(
+0.0000000000000000,
-0.0000000000000000)
211call setLoc(loc, nloc, array_CK, patvec_CK(
1), instance
= instance, sorted
= .false._LK, positive
= .false._LK, blindness
= 1_IK)
220+0.0000000000000000,
+1.0000000000000000,
+0.0000000000000000,
+2.0000000000000000,
+3.0000000000000000,
+0.0000000000000000,
+4.0000000000000000,
+5.0000000000000000,
+0.0000000000000000,
+0.0000000000000000
225call setLoc(loc, nloc, array_RK, patvec_RK, instance
= instance, sorted
= .false._LK, positive
= .false._LK, blindness
= 1_IK)
234+0.0000000000000000,
+1.0000000000000000,
+0.0000000000000000,
+2.0000000000000000,
+3.0000000000000000,
+0.0000000000000000,
+4.0000000000000000,
+5.0000000000000000,
+0.0000000000000000,
+0.0000000000000000
239call setLoc(loc, nloc, array_RK, patvec_RK(
1), instance
= instance, sorted
= .false._LK, positive
= .false._LK, blindness
= 1_IK)
253call setLoc(loc, nloc, string_SK, stringPattern_SK, blindness
= 1_IK)
255+1,
+2,
+3,
+4,
+5,
+6
260call setLoc(loc, nloc, string_SK, stringPattern_SK, blindness
= size(stringPattern_SK,
kind = IK))
267call setLoc(loc, nloc, string_SK, stringPattern_SK, blindness
= 2_IK)
286call setLoc(loc, nloc, string_SK, stringPattern_SK, iseq
= iseq_SK, blindness
= 1_IK)
295+0.0000000000000000,
+1.0100000000000000,
+1.0400000000000000,
+0.97999999999999998,
+1.0000000000000000,
+1.0200000000000000
297-1.0000000000000000,
+1.0000000000000000
300call setLoc(loc, nloc, array_RK, patvec_RK, iseq
= iseq_vec_RK, instance
= instance, sorted
= .false._LK, positive
= .false._LK, blindness
= 1_IK)
309+0.0000000000000000,
+1.0100000000000000,
+1.0400000000000000,
+0.97999999999999998,
+1.0000000000000000,
+1.0200000000000000
314call setLoc(loc, nloc, array_RK, patvec_RK(
1), iseq
= iseq_RK, instance
= instance, sorted
= .false._LK, positive
= .false._LK, blindness
= 1_IK)