Line data Source code
1 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
2 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
3 : !!!! !!!!
4 : !!!! ParaMonte: Parallel Monte Carlo and Machine Learning Library. !!!!
5 : !!!! !!!!
6 : !!!! Copyright (C) 2012-present, The Computational Data Science Lab !!!!
7 : !!!! !!!!
8 : !!!! This file is part of the ParaMonte library. !!!!
9 : !!!! !!!!
10 : !!!! LICENSE !!!!
11 : !!!! !!!!
12 : !!!! https://github.com/cdslaborg/paramonte/blob/main/LICENSE.md !!!!
13 : !!!! !!!!
14 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
15 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
16 :
17 : !> \brief
18 : !> This file contains procedure implementations of [test_pm_arrayInsert](@ref test_pm_arrayInsert).
19 : !>
20 : !> \fintest
21 : !>
22 : !> \author
23 : !> \AmirShahmoradi, September 1, 2017, 11:35 PM, Institute for Computational Engineering and Sciences (ICES), The University of Texas at Austin
24 :
25 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26 :
27 : submodule (test_pm_arrayInsert) routines ! LCOV_EXCL_LINE
28 :
29 : implicit none
30 :
31 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
32 :
33 : contains
34 :
35 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
36 :
37 : #define setInserted_ENABLED 1
38 :
39 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
40 :
41 : #define setInserted_D0_SK_ENABLED 1
42 :
43 : #if SK5_ENABLED
44 : module procedure test_setInserted_D0_SK5_1
45 : use pm_kind, only: SKC => SK5
46 : #include "test_pm_arrayInsert@routines.inc.F90"
47 : end procedure
48 : #endif
49 :
50 : #if SK4_ENABLED
51 : module procedure test_setInserted_D0_SK4_1
52 : use pm_kind, only: SKC => SK4
53 : #include "test_pm_arrayInsert@routines.inc.F90"
54 : end procedure
55 : #endif
56 :
57 : #if SK3_ENABLED
58 : module procedure test_setInserted_D0_SK3_1
59 : use pm_kind, only: SKC => SK3
60 : #include "test_pm_arrayInsert@routines.inc.F90"
61 : end procedure
62 : #endif
63 :
64 : #if SK2_ENABLED
65 : module procedure test_setInserted_D0_SK2_1
66 : use pm_kind, only: SKC => SK2
67 : #include "test_pm_arrayInsert@routines.inc.F90"
68 : end procedure
69 : #endif
70 :
71 : #if SK1_ENABLED
72 1 : module procedure test_setInserted_D0_SK1_1
73 : use pm_kind, only: SKC => SK1
74 : #include "test_pm_arrayInsert@routines.inc.F90"
75 : end procedure
76 : #endif
77 :
78 : #undef setInserted_D0_SK_ENABLED
79 :
80 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
81 :
82 : #define setInserted_D1_SK_ENABLED 1
83 :
84 : #if SK5_ENABLED
85 : module procedure test_setInserted_D1_SK5_1
86 : use pm_kind, only: SKC => SK5
87 : #include "test_pm_arrayInsert@routines.inc.F90"
88 : end procedure
89 : #endif
90 :
91 : #if SK4_ENABLED
92 : module procedure test_setInserted_D1_SK4_1
93 : use pm_kind, only: SKC => SK4
94 : #include "test_pm_arrayInsert@routines.inc.F90"
95 : end procedure
96 : #endif
97 :
98 : #if SK3_ENABLED
99 : module procedure test_setInserted_D1_SK3_1
100 : use pm_kind, only: SKC => SK3
101 : #include "test_pm_arrayInsert@routines.inc.F90"
102 : end procedure
103 : #endif
104 :
105 : #if SK2_ENABLED
106 : module procedure test_setInserted_D1_SK2_1
107 : use pm_kind, only: SKC => SK2
108 : #include "test_pm_arrayInsert@routines.inc.F90"
109 : end procedure
110 : #endif
111 :
112 : #if SK1_ENABLED
113 1 : module procedure test_setInserted_D1_SK1_1
114 : use pm_kind, only: SKC => SK1
115 : #include "test_pm_arrayInsert@routines.inc.F90"
116 : end procedure
117 : #endif
118 :
119 : #undef setInserted_D1_SK_ENABLED
120 :
121 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
122 :
123 : #define setInserted_D1_IK_ENABLED 1
124 :
125 : #if IK5_ENABLED
126 1 : module procedure test_setInserted_D1_IK5_1
127 : use pm_kind, only: IKC => IK5
128 : #include "test_pm_arrayInsert@routines.inc.F90"
129 : end procedure
130 : #endif
131 :
132 : #if IK4_ENABLED
133 1 : module procedure test_setInserted_D1_IK4_1
134 : use pm_kind, only: IKC => IK4
135 : #include "test_pm_arrayInsert@routines.inc.F90"
136 : end procedure
137 : #endif
138 :
139 : #if IK3_ENABLED
140 1 : module procedure test_setInserted_D1_IK3_1
141 : use pm_kind, only: IKC => IK3
142 : #include "test_pm_arrayInsert@routines.inc.F90"
143 : end procedure
144 : #endif
145 :
146 : #if IK2_ENABLED
147 1 : module procedure test_setInserted_D1_IK2_1
148 : use pm_kind, only: IKC => IK2
149 : #include "test_pm_arrayInsert@routines.inc.F90"
150 : end procedure
151 : #endif
152 :
153 : #if IK1_ENABLED
154 1 : module procedure test_setInserted_D1_IK1_1
155 : use pm_kind, only: IKC => IK1
156 : #include "test_pm_arrayInsert@routines.inc.F90"
157 : end procedure
158 : #endif
159 :
160 : #undef setInserted_D1_IK_ENABLED
161 :
162 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
163 :
164 : #define setInserted_D1_LK_ENABLED 1
165 :
166 : #if LK5_ENABLED
167 1 : module procedure test_setInserted_D1_LK5_1
168 : use pm_kind, only: LKC => LK5
169 : #include "test_pm_arrayInsert@routines.inc.F90"
170 : end procedure
171 : #endif
172 :
173 : #if LK4_ENABLED
174 1 : module procedure test_setInserted_D1_LK4_1
175 : use pm_kind, only: LKC => LK4
176 : #include "test_pm_arrayInsert@routines.inc.F90"
177 : end procedure
178 : #endif
179 :
180 : #if LK3_ENABLED
181 1 : module procedure test_setInserted_D1_LK3_1
182 : use pm_kind, only: LKC => LK3
183 : #include "test_pm_arrayInsert@routines.inc.F90"
184 : end procedure
185 : #endif
186 :
187 : #if LK2_ENABLED
188 1 : module procedure test_setInserted_D1_LK2_1
189 : use pm_kind, only: LKC => LK2
190 : #include "test_pm_arrayInsert@routines.inc.F90"
191 : end procedure
192 : #endif
193 :
194 : #if LK1_ENABLED
195 1 : module procedure test_setInserted_D1_LK1_1
196 : use pm_kind, only: LKC => LK1
197 : #include "test_pm_arrayInsert@routines.inc.F90"
198 : end procedure
199 : #endif
200 :
201 : #undef setInserted_D1_LK_ENABLED
202 :
203 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
204 :
205 : #define setInserted_D1_CK_ENABLED 1
206 :
207 : #if CK5_ENABLED
208 : module procedure test_setInserted_D1_CK5_1
209 : use pm_kind, only: CKC => CK5
210 : #include "test_pm_arrayInsert@routines.inc.F90"
211 : end procedure
212 : #endif
213 :
214 : #if CK4_ENABLED
215 1 : module procedure test_setInserted_D1_CK4_1
216 : use pm_kind, only: CKC => CK4
217 : #include "test_pm_arrayInsert@routines.inc.F90"
218 : end procedure
219 : #endif
220 :
221 : #if CK3_ENABLED
222 1 : module procedure test_setInserted_D1_CK3_1
223 : use pm_kind, only: CKC => CK3
224 : #include "test_pm_arrayInsert@routines.inc.F90"
225 : end procedure
226 : #endif
227 :
228 : #if CK2_ENABLED
229 1 : module procedure test_setInserted_D1_CK2_1
230 : use pm_kind, only: CKC => CK2
231 : #include "test_pm_arrayInsert@routines.inc.F90"
232 : end procedure
233 : #endif
234 :
235 : #if CK1_ENABLED
236 1 : module procedure test_setInserted_D1_CK1_1
237 : use pm_kind, only: CKC => CK1
238 : #include "test_pm_arrayInsert@routines.inc.F90"
239 : end procedure
240 : #endif
241 :
242 : #undef setInserted_D1_CK_ENABLED
243 :
244 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
245 :
246 : #define setInserted_D1_RK_ENABLED 1
247 :
248 : #if RK5_ENABLED
249 : module procedure test_setInserted_D1_RK5_1
250 : use pm_kind, only: RKC => RK5
251 : #include "test_pm_arrayInsert@routines.inc.F90"
252 : end procedure
253 : #endif
254 :
255 : #if RK4_ENABLED
256 1 : module procedure test_setInserted_D1_RK4_1
257 : use pm_kind, only: RKC => RK4
258 : #include "test_pm_arrayInsert@routines.inc.F90"
259 : end procedure
260 : #endif
261 :
262 : #if RK3_ENABLED
263 1 : module procedure test_setInserted_D1_RK3_1
264 : use pm_kind, only: RKC => RK3
265 : #include "test_pm_arrayInsert@routines.inc.F90"
266 : end procedure
267 : #endif
268 :
269 : #if RK2_ENABLED
270 1 : module procedure test_setInserted_D1_RK2_1
271 : use pm_kind, only: RKC => RK2
272 : #include "test_pm_arrayInsert@routines.inc.F90"
273 : end procedure
274 : #endif
275 :
276 : #if RK1_ENABLED
277 1 : module procedure test_setInserted_D1_RK1_1
278 : use pm_kind, only: RKC => RK1
279 : #include "test_pm_arrayInsert@routines.inc.F90"
280 : end procedure
281 : #endif
282 :
283 : #undef setInserted_D1_RK_ENABLED
284 :
285 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
286 :
287 : #undef setInserted_ENABLED
288 :
289 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
290 :
291 : end submodule routines
|
