9 type(display_type) :: disp
14 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
15 call disp%show(
"! Strip scalar pattern from a string scalar.")
16 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
20 character(:) ,
allocatable :: array, pattern
27 call disp%show(
"getStripped(array, pattern)")
29 call disp%show(
"getStripped(array, pattern, leftRight)")
31 call disp%show(
"getStripped(array, pattern, right)")
33 call disp%show(
"getStripped(array, pattern, left)")
42 call disp%show(
"getStripped(array, pattern)")
44 call disp%show(
"getStripped(array, pattern, leftRight)")
46 call disp%show(
"getStripped(array, pattern, right)")
48 call disp%show(
"getStripped(array, pattern, left)")
57 call disp%show(
"getStripped(array, pattern)")
59 call disp%show(
"getStripped(array, pattern, leftRight)")
61 call disp%show(
"getStripped(array, pattern, right)")
63 call disp%show(
"getStripped(array, pattern, left)")
72 call disp%show(
"getStripped(array, pattern)")
74 call disp%show(
"getStripped(array, pattern, leftRight)")
76 call disp%show(
"getStripped(array, pattern, right)")
78 call disp%show(
"getStripped(array, pattern, left)")
87 call disp%show(
"getStripped(array, pattern)")
89 call disp%show(
"getStripped(array, pattern, leftRight)")
91 call disp%show(
"getStripped(array, pattern, right)")
93 call disp%show(
"getStripped(array, pattern, left)")
102 call disp%show(
"getStripped(array, pattern)")
104 call disp%show(
"getStripped(array, pattern, iseqScalar_SK)")
106 call disp%show(
"getStripped(array, pattern, leftRight)")
108 call disp%show(
"getStripped(array, pattern, right)")
110 call disp%show(
"getStripped(array, pattern, left)")
117 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
118 call disp%show(
"! Strip scalar pattern from a string vector.")
119 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
123 character(
2),
allocatable :: array(:)
124 character(:),
allocatable :: pattern
127 call disp%show(
"array = [character(2) :: ]")
128 array
= [
character(
2) :: ]
131 call disp%show(
"getStripped(array, pattern)")
133 call disp%show(
"getStripped(array, pattern, leftRight)")
135 call disp%show(
"getStripped(array, pattern, right)")
137 call disp%show(
"getStripped(array, pattern, left)")
142 call disp%show(
"array = ['bb', 'a ', 'a ']")
143 array
= [
'bb',
'a ',
'a ']
146 call disp%show(
"getStripped(array, pattern)")
148 call disp%show(
"getStripped(array, pattern, leftRight)")
150 call disp%show(
"getStripped(array, pattern, right)")
152 call disp%show(
"getStripped(array, pattern, left)")
157 call disp%show(
"array = ['a ', 'A ', 'bb']")
158 array
= [
'a ',
'A ',
'bb']
161 call disp%show(
"getStripped(array, pattern)")
163 call disp%show(
"getStripped(array, pattern, leftRight)")
165 call disp%show(
"getStripped(array, pattern, right)")
167 call disp%show(
"getStripped(array, pattern, left)")
169 call disp%show(
"getStripped(array, pattern, iseqScalar_SK)")
171 call disp%show(
"getStripped(array, pattern, iseqScalar_SK, leftRight)")
173 call disp%show(
"getStripped(array, pattern, iseqScalar_SK, right)")
175 call disp%show(
"getStripped(array, pattern, iseqScalar_SK, left)")
182 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
183 call disp%show(
"! Strip vector pattern from a string vector.")
184 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
188 character(
2),
allocatable :: array(:)
189 character(:),
allocatable :: pattern(:)
192 call disp%show(
"array = [character(2) :: ]")
193 array
= [
character(
2) :: ]
194 call disp%show(
"pattern = [character(1) :: ]")
195 pattern
= [
character(
1) :: ]
196 call disp%show(
"getStripped(array, pattern)")
198 call disp%show(
"getStripped(array, pattern, leftRight)")
200 call disp%show(
"getStripped(array, pattern, right)")
202 call disp%show(
"getStripped(array, pattern, left)")
207 call disp%show(
"array = ['bb', 'a ', 'a ']")
208 array
= [
'bb',
'a ',
'a ']
209 call disp%show(
"pattern = [character(1) :: ]")
210 pattern
= [
character(
1) :: ]
211 call disp%show(
"getStripped(array, pattern)")
213 call disp%show(
"getStripped(array, pattern, leftRight)")
215 call disp%show(
"getStripped(array, pattern, right)")
217 call disp%show(
"getStripped(array, pattern, left)")
222 call disp%show(
"array = ['bb', 'a ', 'a ']")
223 array
= [
'bb',
'a ',
'a ']
224 call disp%show(
"pattern = ['a', 'a']")
226 call disp%show(
"getStripped(array, pattern)")
228 call disp%show(
"getStripped(array, pattern, leftRight)")
230 call disp%show(
"getStripped(array, pattern, right)")
232 call disp%show(
"getStripped(array, pattern, left)")
237 call disp%show(
"array = ['bb', 'a ', 'a ']")
238 array
= [
'bb',
'a ',
'a ']
241 call disp%show(
"getStripped(array, pattern)")
243 call disp%show(
"getStripped(array, pattern, leftRight)")
245 call disp%show(
"getStripped(array, pattern, right)")
247 call disp%show(
"getStripped(array, pattern, left)")
252 call disp%show(
"array = ['bb', 'a ', 'a ']")
253 array
= [
'bb',
'a ',
'a ']
254 call disp%show(
"pattern = [array, ' ']")
255 pattern
= [array,
' ']
256 call disp%show(
"getStripped(array, pattern)")
258 call disp%show(
"getStripped(array, pattern, leftRight)")
260 call disp%show(
"getStripped(array, pattern, right)")
262 call disp%show(
"getStripped(array, pattern, left)")
267 call disp%show(
"array = ['bb', 'a ', 'A ']")
268 array
= [
'bb',
'a ',
'A ']
269 call disp%show(
"pattern = ['A ', 'a ']")
270 pattern
= [
'A ',
'a ']
271 call disp%show(
"getStripped(array, pattern)")
273 call disp%show(
"getStripped(array, pattern, leftRight)")
275 call disp%show(
"getStripped(array, pattern, right)")
277 call disp%show(
"getStripped(array, pattern, left)")
279 call disp%show(
"getStripped(array, pattern, iseqVector_SK)")
281 call disp%show(
"getStripped(array, pattern, iseqVector_SK, leftRight)")
283 call disp%show(
"getStripped(array, pattern, iseqVector_SK, right)")
285 call disp%show(
"getStripped(array, pattern, iseqVector_SK, left)")
292 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
293 call disp%show(
"! Strip scalar pattern an integer array.")
294 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
298 integer,
allocatable :: array(:)
299 integer,
allocatable :: pattern
306 call disp%show(
"getStripped(array, pattern)")
308 call disp%show(
"getStripped(array, pattern, leftRight)")
310 call disp%show(
"getStripped(array, pattern, right)")
312 call disp%show(
"getStripped(array, pattern, left)")
317 call disp%show(
"array = [2, -1, 1]")
321 call disp%show(
"getStripped(array, pattern)")
323 call disp%show(
"getStripped(array, pattern, leftRight)")
325 call disp%show(
"getStripped(array, pattern, right)")
327 call disp%show(
"getStripped(array, pattern, left)")
329 call disp%show(
"getStripped(array, pattern, iseqScalar_IK)")
331 call disp%show(
"getStripped(array, pattern, iseqScalar_IK, leftRight)")
333 call disp%show(
"getStripped(array, pattern, iseqScalar_IK, right)")
335 call disp%show(
"getStripped(array, pattern, iseqScalar_IK, left)")
342 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
343 call disp%show(
"! Strip vector pattern an integer array.")
344 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
348 integer,
allocatable :: array(:)
349 integer,
allocatable :: pattern(:)
352 call disp%show(
"array = [integer :: ]")
353 array
= [
integer :: ]
354 call disp%show(
"pattern = [integer :: ]")
355 pattern
= [
integer :: ]
356 call disp%show(
"getStripped(array, pattern)")
358 call disp%show(
"getStripped(array, pattern, leftRight)")
360 call disp%show(
"getStripped(array, pattern, right)")
362 call disp%show(
"getStripped(array, pattern, left)")
369 call disp%show(
"pattern = [integer :: ]")
370 pattern
= [
integer :: ]
371 call disp%show(
"getStripped(array, pattern)")
373 call disp%show(
"getStripped(array, pattern, leftRight)")
375 call disp%show(
"getStripped(array, pattern, right)")
377 call disp%show(
"getStripped(array, pattern, left)")
386 call disp%show(
"getStripped(array, pattern)")
388 call disp%show(
"getStripped(array, pattern, leftRight)")
390 call disp%show(
"getStripped(array, pattern, right)")
392 call disp%show(
"getStripped(array, pattern, left)")
401 call disp%show(
"getStripped(array, pattern)")
403 call disp%show(
"getStripped(array, pattern, leftRight)")
405 call disp%show(
"getStripped(array, pattern, right)")
407 call disp%show(
"getStripped(array, pattern, left)")
416 call disp%show(
"getStripped(array, pattern)")
418 call disp%show(
"getStripped(array, pattern, leftRight)")
420 call disp%show(
"getStripped(array, pattern, right)")
422 call disp%show(
"getStripped(array, pattern, left)")
429 call disp%show(
"pattern = [array, 0]")
431 call disp%show(
"getStripped(array, pattern)")
433 call disp%show(
"getStripped(array, pattern, leftRight)")
435 call disp%show(
"getStripped(array, pattern, right)")
437 call disp%show(
"getStripped(array, pattern, left)")
442 call disp%show(
"array = [2, -1, 1]")
444 call disp%show(
"pattern = [+1, -1]")
446 call disp%show(
"getStripped(array, pattern)")
448 call disp%show(
"getStripped(array, pattern, iseqVector_IK)")
450 call disp%show(
"getStripped(array, pattern, iseqVector_IK, leftRight)")
452 call disp%show(
"getStripped(array, pattern, iseqVector_IK, right)")
454 call disp%show(
"getStripped(array, pattern, iseqVector_IK, left)")
461 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
462 call disp%show(
"! Strip scalar pattern from a logical array.")
463 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
467 logical,
allocatable :: array(:)
468 logical,
allocatable :: pattern
469 logical,
allocatable :: arrayPattern(:)
472 call disp%show(
"array = [.true., .false., .false.]")
473 array
= [
.true.,
.false.,
.false.]
476 call disp%show(
"getStripped(array, pattern)")
478 call disp%show(
"getStripped(array, pattern, leftRight)")
480 call disp%show(
"getStripped(array, pattern, right)")
482 call disp%show(
"getStripped(array, pattern, left)")
487 call disp%show(
"array = [.false., .true., .true.]")
488 array
= [
.false.,
.true.,
.true.]
491 call disp%show(
"getStripped(array, pattern)")
493 call disp%show(
"getStripped(array, pattern, leftRight)")
495 call disp%show(
"getStripped(array, pattern, right)")
497 call disp%show(
"getStripped(array, pattern, left)")
499 call disp%show(
"getStripped(array, pattern, iseqScalar_LK)")
501 call disp%show(
"getStripped(array, pattern, iseqScalar_LK, leftRight)")
503 call disp%show(
"getStripped(array, pattern, iseqScalar_LK, right)")
505 call disp%show(
"getStripped(array, pattern, iseqScalar_LK, left)")
512 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
513 call disp%show(
"! Strip vector pattern from a logical array.")
514 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
518 logical,
allocatable :: array(:)
519 logical,
allocatable :: pattern(:)
522 call disp%show(
"array = [logical :: ]")
523 array
= [logical :: ]
524 call disp%show(
"pattern = [logical :: ]")
525 pattern
= [logical :: ]
526 call disp%show(
"getStripped(array, pattern)")
528 call disp%show(
"getStripped(array, pattern, leftRight)")
530 call disp%show(
"getStripped(array, pattern, right)")
532 call disp%show(
"getStripped(array, pattern, left)")
537 call disp%show(
"array = [.true., .false., .false.]")
538 array
= [
.true.,
.false.,
.false.]
539 call disp%show(
"pattern = [logical :: ]")
540 pattern
= [logical :: ]
541 call disp%show(
"getStripped(array, pattern)")
543 call disp%show(
"getStripped(array, pattern, leftRight)")
545 call disp%show(
"getStripped(array, pattern, right)")
547 call disp%show(
"getStripped(array, pattern, left)")
552 call disp%show(
"array = [.true., .false., .false.]")
553 array
= [
.true.,
.false.,
.false.]
554 call disp%show(
"pattern = [.false., .false.]")
555 pattern
= [
.false.,
.false.]
556 call disp%show(
"getStripped(array, pattern)")
558 call disp%show(
"getStripped(array, pattern, leftRight)")
560 call disp%show(
"getStripped(array, pattern, right)")
562 call disp%show(
"getStripped(array, pattern, left)")
567 call disp%show(
"array = [.true., .false., .false.]")
568 array
= [
.true.,
.false.,
.false.]
569 call disp%show(
"pattern = [.true., .true.]")
570 pattern
= [
.true.,
.true.]
571 call disp%show(
"getStripped(array, pattern)")
573 call disp%show(
"getStripped(array, pattern, leftRight)")
575 call disp%show(
"getStripped(array, pattern, right)")
577 call disp%show(
"getStripped(array, pattern, left)")
582 call disp%show(
"array = [.true., .false., .false.]")
583 array
= [
.true.,
.false.,
.false.]
586 call disp%show(
"getStripped(array, pattern)")
588 call disp%show(
"getStripped(array, pattern, leftRight)")
590 call disp%show(
"getStripped(array, pattern, right)")
592 call disp%show(
"getStripped(array, pattern, left)")
597 call disp%show(
"array = [.true., .false., .false.]")
598 array
= [
.true.,
.false.,
.false.]
599 call disp%show(
"pattern = [array, .false.]")
600 pattern
= [array,
.false.]
601 call disp%show(
"getStripped(array, pattern)")
603 call disp%show(
"getStripped(array, pattern, leftRight)")
605 call disp%show(
"getStripped(array, pattern, right)")
607 call disp%show(
"getStripped(array, pattern, left)")
612 call disp%show(
"array = [.true., .true., .false.]")
613 array
= [
.true.,
.true.,
.false.]
614 call disp%show(
"pattern = [.false., .true.]")
615 pattern
= [
.false.,
.true.]
616 call disp%show(
"getStripped(array, pattern)")
618 call disp%show(
"getStripped(array, pattern, leftRight)")
620 call disp%show(
"getStripped(array, pattern, right)")
622 call disp%show(
"getStripped(array, pattern, left)")
624 call disp%show(
"getStripped(array, pattern, iseqVector_LK)")
626 call disp%show(
"getStripped(array, pattern, iseqVector_LK, leftRight)")
628 call disp%show(
"getStripped(array, pattern, iseqVector_LK, right)")
630 call disp%show(
"getStripped(array, pattern, iseqVector_LK, left)")
637 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
638 call disp%show(
"! Strip scalar pattern from a complex array.")
639 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
643 complex,
allocatable :: array(:)
644 complex,
allocatable :: pattern
651 call disp%show(
"getStripped(array, pattern)")
653 call disp%show(
"getStripped(array, pattern, leftRight)")
655 call disp%show(
"getStripped(array, pattern, right)")
657 call disp%show(
"getStripped(array, pattern, left)")
662 call disp%show(
"array = [2, -1, 1]")
666 call disp%show(
"getStripped(array, pattern)")
668 call disp%show(
"getStripped(array, pattern, leftRight)")
670 call disp%show(
"getStripped(array, pattern, right)")
672 call disp%show(
"getStripped(array, pattern, left)")
674 call disp%show(
"getStripped(array, pattern, iseqScalar_CK)")
676 call disp%show(
"getStripped(array, pattern, iseqScalar_CK, leftRight)")
678 call disp%show(
"getStripped(array, pattern, iseqScalar_CK, right)")
680 call disp%show(
"getStripped(array, pattern, iseqScalar_CK, left)")
687 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
688 call disp%show(
"! Strip vector pattern from a complex array.")
689 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
693 complex,
allocatable :: array(:)
694 complex,
allocatable :: pattern(:)
697 call disp%show(
"array = [complex :: ]")
698 array
= [
complex :: ]
699 call disp%show(
"pattern = [complex :: ]")
700 pattern
= [
complex :: ]
701 call disp%show(
"getStripped(array, pattern)")
703 call disp%show(
"getStripped(array, pattern, leftRight)")
705 call disp%show(
"getStripped(array, pattern, right)")
707 call disp%show(
"getStripped(array, pattern, left)")
714 call disp%show(
"pattern = [complex :: ]")
715 pattern
= [
complex :: ]
716 call disp%show(
"getStripped(array, pattern)")
718 call disp%show(
"getStripped(array, pattern, leftRight)")
720 call disp%show(
"getStripped(array, pattern, right)")
722 call disp%show(
"getStripped(array, pattern, left)")
731 call disp%show(
"getStripped(array, pattern)")
733 call disp%show(
"getStripped(array, pattern, leftRight)")
735 call disp%show(
"getStripped(array, pattern, right)")
737 call disp%show(
"getStripped(array, pattern, left)")
746 call disp%show(
"getStripped(array, pattern)")
748 call disp%show(
"getStripped(array, pattern, leftRight)")
750 call disp%show(
"getStripped(array, pattern, right)")
752 call disp%show(
"getStripped(array, pattern, left)")
761 call disp%show(
"getStripped(array, pattern)")
763 call disp%show(
"getStripped(array, pattern, leftRight)")
765 call disp%show(
"getStripped(array, pattern, right)")
767 call disp%show(
"getStripped(array, pattern, left)")
774 call disp%show(
"pattern = [array, cmplx(0)]")
775 pattern
= [array,
cmplx(
0)]
776 call disp%show(
"getStripped(array, pattern)")
778 call disp%show(
"getStripped(array, pattern, leftRight)")
780 call disp%show(
"getStripped(array, pattern, right)")
782 call disp%show(
"getStripped(array, pattern, left)")
787 call disp%show(
"array = [2, -1, 1]")
789 call disp%show(
"pattern = [+1, -1]")
791 call disp%show(
"getStripped(array, pattern)")
793 call disp%show(
"getStripped(array, pattern, leftRight)")
795 call disp%show(
"getStripped(array, pattern, right)")
797 call disp%show(
"getStripped(array, pattern, left)")
799 call disp%show(
"getStripped(array, pattern, iseqVector_CK)")
801 call disp%show(
"getStripped(array, pattern, iseqVector_CK, leftRight)")
803 call disp%show(
"getStripped(array, pattern, iseqVector_CK, right)")
805 call disp%show(
"getStripped(array, pattern, iseqVector_CK, left)")
812 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
813 call disp%show(
"! Strip scalar pattern from a real array.")
814 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
818 real,
allocatable :: array(:)
819 real,
allocatable :: pattern
822 call disp%show(
"array = [2, -1, 1]")
826 call disp%show(
"getStripped(array, pattern)")
828 call disp%show(
"getStripped(array, pattern, iseqScalar_RK)")
830 call disp%show(
"getStripped(array, pattern, leftRight)")
832 call disp%show(
"getStripped(array, pattern, right)")
834 call disp%show(
"getStripped(array, pattern, left)")
841 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
842 call disp%show(
"! Strip vector pattern from a real array.")
843 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
847 real,
allocatable :: array(:)
848 real,
allocatable :: pattern(:)
851 call disp%show(
"array = [real :: ]")
853 call disp%show(
"pattern = [real :: ]")
855 call disp%show(
"getStripped(array, pattern)")
857 call disp%show(
"getStripped(array, pattern, leftRight)")
859 call disp%show(
"getStripped(array, pattern, right)")
861 call disp%show(
"getStripped(array, pattern, left)")
868 call disp%show(
"pattern = [real :: ]")
870 call disp%show(
"getStripped(array, pattern)")
872 call disp%show(
"getStripped(array, pattern, leftRight)")
874 call disp%show(
"getStripped(array, pattern, right)")
876 call disp%show(
"getStripped(array, pattern, left)")
885 call disp%show(
"getStripped(array, pattern)")
887 call disp%show(
"getStripped(array, pattern, leftRight)")
889 call disp%show(
"getStripped(array, pattern, right)")
891 call disp%show(
"getStripped(array, pattern, left)")
900 call disp%show(
"getStripped(array, pattern)")
902 call disp%show(
"getStripped(array, pattern, leftRight)")
904 call disp%show(
"getStripped(array, pattern, right)")
906 call disp%show(
"getStripped(array, pattern, left)")
915 call disp%show(
"getStripped(array, pattern)")
917 call disp%show(
"getStripped(array, pattern, leftRight)")
919 call disp%show(
"getStripped(array, pattern, right)")
921 call disp%show(
"getStripped(array, pattern, left)")
928 call disp%show(
"pattern = [array, real(0)]")
929 pattern
= [array,
real(
0)]
930 call disp%show(
"getStripped(array, pattern)")
932 call disp%show(
"getStripped(array, pattern, leftRight)")
934 call disp%show(
"getStripped(array, pattern, right)")
936 call disp%show(
"getStripped(array, pattern, left)")
941 call disp%show(
"array = [2, -1, 1]")
943 call disp%show(
"pattern = [+1, -1]")
945 call disp%show(
"getStripped(array, pattern)")
947 call disp%show(
"getStripped(array, pattern, leftRight)")
949 call disp%show(
"getStripped(array, pattern, right)")
951 call disp%show(
"getStripped(array, pattern, left)")
953 call disp%show(
"getStripped(array, pattern, iseqVector_RK)")
955 call disp%show(
"getStripped(array, pattern, iseqVector_RK, leftRight)")
957 call disp%show(
"getStripped(array, pattern, iseqVector_RK, right)")
959 call disp%show(
"getStripped(array, pattern, iseqVector_RK, left)")
967 pure function iseqScalar_SK(segment, pattern)
result(equivalent)
969 character(
*),
intent(in) :: segment, pattern
970 logical(LK) :: equivalent
974 pure function iseqVector_SK(segment, pattern, sizePattern)
result(equivalent)
976 integer(IK) ,
intent(in) :: sizePattern
977 character(
*),
intent(in) :: segment(sizePattern), pattern(sizePattern)
978 logical(LK) :: equivalent
982 pure function iseqScalar_IK(segment, pattern)
result(equivalent)
983 integer ,
intent(in) :: segment, pattern
984 logical(LK) :: equivalent
985 equivalent
= abs(segment)
== abs(pattern)
988 pure function iseqVector_IK(segment, pattern, sizePattern)
result(equivalent)
989 integer(IK) ,
intent(in) :: sizePattern
990 integer ,
intent(in) :: segment(sizePattern), pattern(sizePattern)
991 logical(LK) :: equivalent
992 equivalent
= all(abs(segment)
== abs(pattern))
995 pure function iseqScalar_LK(segment, pattern)
result(equivalent)
996 logical ,
intent(in) :: segment, pattern
997 logical(LK) :: equivalent
998 equivalent
= segment
.eqv. .not. pattern
1001 pure function iseqVector_LK(segment, pattern, sizePattern)
result(equivalent)
1002 integer(IK) ,
intent(in) :: sizePattern
1003 logical ,
intent(in) :: segment(sizePattern), pattern(sizePattern)
1004 logical(LK) :: equivalent
1005 equivalent
= all(segment
.eqv. .not. pattern)
1008 pure function iseqScalar_CK(segment, pattern)
result(equivalent)
1009 complex ,
intent(in) :: segment, pattern
1010 logical(LK) :: equivalent
1011 equivalent
= abs(segment
%re)
== abs(pattern
%re)
1014 pure function iseqVector_CK(segment, pattern, sizePattern)
result(equivalent)
1015 integer(IK) ,
intent(in) :: sizePattern
1016 complex ,
intent(in) :: segment(sizePattern), pattern(sizePattern)
1017 logical(LK) :: equivalent
1018 equivalent
= all(abs(segment
%re)
== abs(pattern
%re))
1021 pure function iseqScalar_RK(segment, pattern)
result(equivalent)
1022 real ,
intent(in) :: segment, pattern
1023 logical(LK) :: equivalent
1024 equivalent
= abs(segment)
== abs(pattern)
1027 pure function iseqVector_RK(segment, pattern, sizePattern)
result(equivalent)
1028 integer(IK) ,
intent(in) :: sizePattern
1029 real ,
intent(in) :: segment(sizePattern), pattern(sizePattern)
1030 logical(LK) :: equivalent
1031 equivalent
= all(abs(segment)
== abs(pattern))
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 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.
86array
= [
character(
2) :: ]
98array
= [
'bb',
'a ',
'a ']
110array
= [
'a ',
'A ',
'bb']
122getStripped(array, pattern, iseqScalar_SK, leftRight)
135array
= [
character(
2) :: ]
136pattern
= [
character(
1) :: ]
147array
= [
'bb',
'a ',
'a ']
148pattern
= [
character(
1) :: ]
159array
= [
'bb',
'a ',
'a ']
171array
= [
'bb',
'a ',
'a ']
183array
= [
'bb',
'a ',
'a ']
184pattern
= [array,
' ']
195array
= [
'bb',
'a ',
'A ']
196pattern
= [
'A ',
'a ']
207getStripped(array, pattern, iseqVector_SK, leftRight)
244getStripped(array, pattern, iseqScalar_IK, leftRight)
258pattern
= [
integer :: ]
270pattern
= [
integer :: ]
335getStripped(array, pattern, iseqVector_IK, leftRight)
348array
= [
.true.,
.false.,
.false.]
360array
= [
.false.,
.true.,
.true.]
372getStripped(array, pattern, iseqScalar_LK, leftRight)
386pattern
= [logical :: ]
397array
= [
.true.,
.false.,
.false.]
398pattern
= [logical :: ]
409array
= [
.true.,
.false.,
.false.]
410pattern
= [
.false.,
.false.]
421array
= [
.true.,
.false.,
.false.]
422pattern
= [
.true.,
.true.]
433array
= [
.true.,
.false.,
.false.]
445array
= [
.true.,
.false.,
.false.]
446pattern
= [array,
.false.]
457array
= [
.true.,
.true.,
.false.]
458pattern
= [
.false.,
.true.]
469getStripped(array, pattern, iseqVector_LK, leftRight)
485(
+2.00000000,
+0.00000000)
487(
+2.00000000,
+0.00000000)
489(
+2.00000000,
+0.00000000)
491(
+2.00000000,
+0.00000000), (
+1.00000000,
+0.00000000), (
+1.00000000,
+0.00000000)
497(
+2.00000000,
+0.00000000), (
-1.00000000,
+0.00000000)
499(
+2.00000000,
+0.00000000), (
-1.00000000,
+0.00000000)
501(
+2.00000000,
+0.00000000), (
-1.00000000,
+0.00000000)
503(
+2.00000000,
+0.00000000), (
-1.00000000,
+0.00000000), (
+1.00000000,
+0.00000000)
505(
+2.00000000,
+0.00000000)
506getStripped(array, pattern, iseqScalar_CK, leftRight)
507(
+2.00000000,
+0.00000000)
509(
+2.00000000,
+0.00000000)
511(
+2.00000000,
+0.00000000), (
-1.00000000,
+0.00000000), (
+1.00000000,
+0.00000000)
520pattern
= [
complex :: ]
532pattern
= [
complex :: ]
534(
+2.00000000,
+0.00000000), (
+1.00000000,
+0.00000000), (
+1.00000000,
+0.00000000)
536(
+2.00000000,
+0.00000000), (
+1.00000000,
+0.00000000), (
+1.00000000,
+0.00000000)
538(
+2.00000000,
+0.00000000), (
+1.00000000,
+0.00000000), (
+1.00000000,
+0.00000000)
540(
+2.00000000,
+0.00000000), (
+1.00000000,
+0.00000000), (
+1.00000000,
+0.00000000)
546(
+2.00000000,
+0.00000000)
548(
+2.00000000,
+0.00000000)
550(
+2.00000000,
+0.00000000)
552(
+2.00000000,
+0.00000000), (
+1.00000000,
+0.00000000), (
+1.00000000,
+0.00000000)
558(
+2.00000000,
+0.00000000), (
+1.00000000,
+0.00000000), (
+1.00000000,
+0.00000000)
560(
+2.00000000,
+0.00000000), (
+1.00000000,
+0.00000000), (
+1.00000000,
+0.00000000)
562(
+2.00000000,
+0.00000000), (
+1.00000000,
+0.00000000), (
+1.00000000,
+0.00000000)
564(
+2.00000000,
+0.00000000), (
+1.00000000,
+0.00000000), (
+1.00000000,
+0.00000000)
580pattern
= [array,
cmplx(
0)]
582(
+2.00000000,
+0.00000000), (
+1.00000000,
+0.00000000), (
+1.00000000,
+0.00000000)
584(
+2.00000000,
+0.00000000), (
+1.00000000,
+0.00000000), (
+1.00000000,
+0.00000000)
586(
+2.00000000,
+0.00000000), (
+1.00000000,
+0.00000000), (
+1.00000000,
+0.00000000)
588(
+2.00000000,
+0.00000000), (
+1.00000000,
+0.00000000), (
+1.00000000,
+0.00000000)
594(
+2.00000000,
+0.00000000), (
-1.00000000,
+0.00000000), (
+1.00000000,
+0.00000000)
596(
+2.00000000,
+0.00000000), (
-1.00000000,
+0.00000000), (
+1.00000000,
+0.00000000)
598(
+2.00000000,
+0.00000000), (
-1.00000000,
+0.00000000), (
+1.00000000,
+0.00000000)
600(
+2.00000000,
+0.00000000), (
-1.00000000,
+0.00000000), (
+1.00000000,
+0.00000000)
602(
+2.00000000,
+0.00000000)
603getStripped(array, pattern, iseqVector_CK, leftRight)
604(
+2.00000000,
+0.00000000)
606(
+2.00000000,
+0.00000000)
608(
+2.00000000,
+0.00000000), (
-1.00000000,
+0.00000000), (
+1.00000000,
+0.00000000)
619+2.00000000,
-1.00000000
623+2.00000000,
-1.00000000
625+2.00000000,
-1.00000000
627+2.00000000,
-1.00000000,
+1.00000000
650+2.00000000,
+1.00000000,
+1.00000000
652+2.00000000,
+1.00000000,
+1.00000000
654+2.00000000,
+1.00000000,
+1.00000000
656+2.00000000,
+1.00000000,
+1.00000000
668+2.00000000,
+1.00000000,
+1.00000000
674+2.00000000,
+1.00000000,
+1.00000000
676+2.00000000,
+1.00000000,
+1.00000000
678+2.00000000,
+1.00000000,
+1.00000000
680+2.00000000,
+1.00000000,
+1.00000000
696pattern
= [array,
real(
0)]
698+2.00000000,
+1.00000000,
+1.00000000
700+2.00000000,
+1.00000000,
+1.00000000
702+2.00000000,
+1.00000000,
+1.00000000
704+2.00000000,
+1.00000000,
+1.00000000
710+2.00000000,
-1.00000000,
+1.00000000
712+2.00000000,
-1.00000000,
+1.00000000
714+2.00000000,
-1.00000000,
+1.00000000
716+2.00000000,
-1.00000000,
+1.00000000
719getStripped(array, pattern, iseqVector_RK, leftRight)
724+2.00000000,
-1.00000000,
+1.00000000