1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
|
\hypertarget{interfacem__cli2_1_1remove}{}\doxysection{m\+\_\+cli2\+::remove Interface Reference}
\label{interfacem__cli2_1_1remove}\index{m\_cli2::remove@{m\_cli2::remove}}
\doxysubsection*{Private Member Functions}
\begin{DoxyCompactItemize}
\item
subroutine \mbox{\hyperlink{interfacem__cli2_1_1remove_aae13960af6c9ed2af46fdfec8e66a8a2}{remove\+\_\+c}} (list, place)
\item
subroutine \mbox{\hyperlink{interfacem__cli2_1_1remove_a4a30f737b41e6cfca58ef2842d633b27}{remove\+\_\+i}} (list, place)
\item
subroutine \mbox{\hyperlink{interfacem__cli2_1_1remove_a72934a0b165dc3d178ff7cbe6117a5b3}{remove\+\_\+l}} (list, place)
\end{DoxyCompactItemize}
\doxysubsection{Member Function/\+Subroutine Documentation}
\mbox{\Hypertarget{interfacem__cli2_1_1remove_aae13960af6c9ed2af46fdfec8e66a8a2}\label{interfacem__cli2_1_1remove_aae13960af6c9ed2af46fdfec8e66a8a2}}
\index{m\_cli2::remove@{m\_cli2::remove}!remove\_c@{remove\_c}}
\index{remove\_c@{remove\_c}!m\_cli2::remove@{m\_cli2::remove}}
\doxysubsubsection{\texorpdfstring{remove\_c()}{remove\_c()}}
{\footnotesize\ttfamily subroutine m\+\_\+cli2\+::remove\+::remove\+\_\+c (\begin{DoxyParamCaption}\item[{character(len=\+:), dimension(\+:), allocatable}]{list, }\item[{integer, intent(in)}]{place }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}
\hypertarget{namespacem__cli2_autotoc_md210}{}\doxysubsubsection{N\+A\+ME}\label{namespacem__cli2_autotoc_md210}
remove(3f) -\/ \mbox{[}M\+\_\+\+C\+L\+I2\mbox{]} remove entry from an allocatable array at specified position (L\+I\+C\+E\+N\+SE\+:PD)\hypertarget{namespacem__cli2_autotoc_md211}{}\doxysubsubsection{S\+Y\+N\+O\+P\+S\+IS}\label{namespacem__cli2_autotoc_md211}
subroutine remove(list,place)
character(len=\+:)$\vert$doubleprecision$\vert$real$\vert$integer,intent(inout) \+:: list(\+:) integer, intent(out) \+:: P\+L\+A\+CE\hypertarget{namespacem__cli2_autotoc_md212}{}\doxysubsubsection{D\+E\+S\+C\+R\+I\+P\+T\+I\+ON}\label{namespacem__cli2_autotoc_md212}
\begin{DoxyVerb}Remove a value from an allocatable array at the specified index.
The array is assumed to be sorted in descending order. It may be of
type CHARACTER, DOUBLEPRECISION, REAL, or INTEGER.
\end{DoxyVerb}
\hypertarget{namespacem__cli2_autotoc_md213}{}\doxysubsubsection{O\+P\+T\+I\+O\+NS}\label{namespacem__cli2_autotoc_md213}
\begin{DoxyVerb}list is the list array.
PLACE is the subscript for the entry that should be removed
\end{DoxyVerb}
\hypertarget{namespacem__cli2_autotoc_md214}{}\doxysubsubsection{E\+X\+A\+M\+P\+L\+ES}\label{namespacem__cli2_autotoc_md214}
Sample program \begin{DoxyVerb}program demo_remove
use M_sort, only : sort_shell
use M_CLI2, only : locate, remove
implicit none
character(len=:),allocatable :: arr(:)
integer :: i
integer :: end
arr=[character(len=20) :: '', 'ZZZ', 'Z', 'aaa', 'b', 'b', 'ab', 'bb', 'xxx' ]
! make sure sorted in descending order
call sort_shell(arr,order='d')
end=size(arr)
write(*,'("SIZE=",i0,1x,*(a,","))')end,(trim(arr(i)),i=1,end)
call remove(arr,1)
end=size(arr)
write(*,'("SIZE=",i0,1x,*(a,","))')end,(trim(arr(i)),i=1,end)
call remove(arr,4)
end=size(arr)
write(*,'("SIZE=",i0,1x,*(a,","))')end,(trim(arr(i)),i=1,end)
end program demo_remove
\end{DoxyVerb}
Results\+:
Expected output
S\+I\+ZE=9 xxx,bb,b,b,ab,aaa,Z\+ZZ,Z,, S\+I\+ZE=8 bb,b,b,ab,aaa,Z\+ZZ,Z,, S\+I\+ZE=7 bb,b,b,aaa,Z\+ZZ,Z,,\hypertarget{namespacem__cli2_autotoc_md215}{}\doxysubsubsection{A\+U\+T\+H\+OR}\label{namespacem__cli2_autotoc_md215}
1989,2017 John S. Urban \hypertarget{namespacem__cli2_autotoc_md216}{}\doxysubsubsection{L\+I\+C\+E\+N\+SE}\label{namespacem__cli2_autotoc_md216}
Public Domain \mbox{\Hypertarget{interfacem__cli2_1_1remove_a4a30f737b41e6cfca58ef2842d633b27}\label{interfacem__cli2_1_1remove_a4a30f737b41e6cfca58ef2842d633b27}}
\index{m\_cli2::remove@{m\_cli2::remove}!remove\_i@{remove\_i}}
\index{remove\_i@{remove\_i}!m\_cli2::remove@{m\_cli2::remove}}
\doxysubsubsection{\texorpdfstring{remove\_i()}{remove\_i()}}
{\footnotesize\ttfamily subroutine m\+\_\+cli2\+::remove\+::remove\+\_\+i (\begin{DoxyParamCaption}\item[{integer, dimension(\+:), allocatable}]{list, }\item[{integer, intent(in)}]{place }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}
\mbox{\Hypertarget{interfacem__cli2_1_1remove_a72934a0b165dc3d178ff7cbe6117a5b3}\label{interfacem__cli2_1_1remove_a72934a0b165dc3d178ff7cbe6117a5b3}}
\index{m\_cli2::remove@{m\_cli2::remove}!remove\_l@{remove\_l}}
\index{remove\_l@{remove\_l}!m\_cli2::remove@{m\_cli2::remove}}
\doxysubsubsection{\texorpdfstring{remove\_l()}{remove\_l()}}
{\footnotesize\ttfamily subroutine m\+\_\+cli2\+::remove\+::remove\+\_\+l (\begin{DoxyParamCaption}\item[{logical, dimension(\+:), allocatable}]{list, }\item[{integer, intent(in)}]{place }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}
The documentation for this interface was generated from the following file\+:\begin{DoxyCompactItemize}
\item
/home/urbanjs/venus/\+V600/github/\+A\+R\+G\+S/\+M\+\_\+\+C\+L\+I2/src/\mbox{\hyperlink{M__CLI2_8f90}{M\+\_\+\+C\+L\+I2.\+f90}}\end{DoxyCompactItemize}
|
