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 [val2logical_pmod](@ref pm_val2logical).
19 : !>
20 : !> \finmain
21 : !>
22 : !> \author
23 : !> \AmirShahmoradi, September 1, 2017, 12:00 AM, Institute for Computational Engineering and Sciences (ICES), The University of Texas at Austin
24 :
25 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26 :
27 : submodule (pm_val2logical) routines ! LCOV_EXCL_LINE
28 :
29 : implicit none
30 :
31 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
32 :
33 : contains
34 :
35 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
36 :
37 : #define getLogical_ENABLED 1
38 :
39 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
40 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
41 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
42 :
43 : #define Def_ENABLED 1
44 :
45 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
46 :
47 : #define SK_ENABLED 1
48 :
49 : #if SK5_ENABLED
50 : module procedure getLogicalDef_SK5
51 : use pm_kind, only: LKC => LK, SKC => SK5
52 : #include "pm_val2logical@routines.inc.F90"
53 : end procedure
54 : #endif
55 :
56 : #if SK4_ENABLED
57 : module procedure getLogicalDef_SK4
58 : use pm_kind, only: LKC => LK, SKC => SK4
59 : #include "pm_val2logical@routines.inc.F90"
60 : end procedure
61 : #endif
62 :
63 : #if SK3_ENABLED
64 : module procedure getLogicalDef_SK3
65 : use pm_kind, only: LKC => LK, SKC => SK3
66 : #include "pm_val2logical@routines.inc.F90"
67 : end procedure
68 : #endif
69 :
70 : #if SK2_ENABLED
71 : module procedure getLogicalDef_SK2
72 : use pm_kind, only: LKC => LK, SKC => SK2
73 : #include "pm_val2logical@routines.inc.F90"
74 : end procedure
75 : #endif
76 :
77 : #if SK1_ENABLED
78 17 : module procedure getLogicalDef_SK1
79 : use pm_kind, only: LKC => LK, SKC => SK1
80 : #include "pm_val2logical@routines.inc.F90"
81 17 : end procedure
82 : #endif
83 :
84 : #undef SK_ENABLED
85 :
86 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
87 :
88 : #undef Def_ENABLED
89 :
90 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
91 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
92 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
93 :
94 : #undef getLogical_ENABLED
95 :
96 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
97 :
98 : #define setLogical_ENABLED 1
99 :
100 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
101 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
102 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
103 :
104 : #define Def_ENABLED 1
105 :
106 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
107 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
108 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
109 :
110 : #define SK_ENABLED 1
111 :
112 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
113 :
114 : #if LK5_ENABLED && SK5_ENABLED
115 : module procedure setLogicalDef_LK5_SK5
116 : use pm_kind, only: LKC => LK5, SKC => SK5
117 : #include "pm_val2logical@routines.inc.F90"
118 : end procedure
119 : #endif
120 :
121 : #if LK5_ENABLED && SK4_ENABLED
122 : module procedure setLogicalDef_LK5_SK4
123 : use pm_kind, only: LKC => LK5, SKC => SK4
124 : #include "pm_val2logical@routines.inc.F90"
125 : end procedure
126 : #endif
127 :
128 : #if LK5_ENABLED && SK3_ENABLED
129 : module procedure setLogicalDef_LK5_SK3
130 : use pm_kind, only: LKC => LK5, SKC => SK3
131 : #include "pm_val2logical@routines.inc.F90"
132 : end procedure
133 : #endif
134 :
135 : #if LK5_ENABLED && SK2_ENABLED
136 : module procedure setLogicalDef_LK5_SK2
137 : use pm_kind, only: LKC => LK5, SKC => SK2
138 : #include "pm_val2logical@routines.inc.F90"
139 : end procedure
140 : #endif
141 :
142 : #if LK5_ENABLED && SK1_ENABLED
143 0 : module procedure setLogicalDef_LK5_SK1
144 : use pm_kind, only: LKC => LK5, SKC => SK1
145 : #include "pm_val2logical@routines.inc.F90"
146 0 : end procedure
147 : #endif
148 :
149 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
150 :
151 : #if LK4_ENABLED && SK5_ENABLED
152 : module procedure setLogicalDef_LK4_SK5
153 : use pm_kind, only: LKC => LK4, SKC => SK5
154 : #include "pm_val2logical@routines.inc.F90"
155 : end procedure
156 : #endif
157 :
158 : #if LK4_ENABLED && SK4_ENABLED
159 : module procedure setLogicalDef_LK4_SK4
160 : use pm_kind, only: LKC => LK4, SKC => SK4
161 : #include "pm_val2logical@routines.inc.F90"
162 : end procedure
163 : #endif
164 :
165 : #if LK4_ENABLED && SK3_ENABLED
166 : module procedure setLogicalDef_LK4_SK3
167 : use pm_kind, only: LKC => LK4, SKC => SK3
168 : #include "pm_val2logical@routines.inc.F90"
169 : end procedure
170 : #endif
171 :
172 : #if LK4_ENABLED && SK2_ENABLED
173 : module procedure setLogicalDef_LK4_SK2
174 : use pm_kind, only: LKC => LK4, SKC => SK2
175 : #include "pm_val2logical@routines.inc.F90"
176 : end procedure
177 : #endif
178 :
179 : #if LK4_ENABLED && SK1_ENABLED
180 0 : module procedure setLogicalDef_LK4_SK1
181 : use pm_kind, only: LKC => LK4, SKC => SK1
182 : #include "pm_val2logical@routines.inc.F90"
183 0 : end procedure
184 : #endif
185 :
186 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
187 :
188 : #if LK3_ENABLED && SK5_ENABLED
189 : module procedure setLogicalDef_LK3_SK5
190 : use pm_kind, only: LKC => LK3, SKC => SK5
191 : #include "pm_val2logical@routines.inc.F90"
192 : end procedure
193 : #endif
194 :
195 : #if LK3_ENABLED && SK4_ENABLED
196 : module procedure setLogicalDef_LK3_SK4
197 : use pm_kind, only: LKC => LK3, SKC => SK4
198 : #include "pm_val2logical@routines.inc.F90"
199 : end procedure
200 : #endif
201 :
202 : #if LK3_ENABLED && SK3_ENABLED
203 : module procedure setLogicalDef_LK3_SK3
204 : use pm_kind, only: LKC => LK3, SKC => SK3
205 : #include "pm_val2logical@routines.inc.F90"
206 : end procedure
207 : #endif
208 :
209 : #if LK3_ENABLED && SK2_ENABLED
210 : module procedure setLogicalDef_LK3_SK2
211 : use pm_kind, only: LKC => LK3, SKC => SK2
212 : #include "pm_val2logical@routines.inc.F90"
213 : end procedure
214 : #endif
215 :
216 : #if LK3_ENABLED && SK1_ENABLED
217 16 : module procedure setLogicalDef_LK3_SK1
218 : use pm_kind, only: LKC => LK3, SKC => SK1
219 : #include "pm_val2logical@routines.inc.F90"
220 16 : end procedure
221 : #endif
222 :
223 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
224 :
225 : #if LK2_ENABLED && SK5_ENABLED
226 : module procedure setLogicalDef_LK2_SK5
227 : use pm_kind, only: LKC => LK2, SKC => SK5
228 : #include "pm_val2logical@routines.inc.F90"
229 : end procedure
230 : #endif
231 :
232 : #if LK2_ENABLED && SK4_ENABLED
233 : module procedure setLogicalDef_LK2_SK4
234 : use pm_kind, only: LKC => LK2, SKC => SK4
235 : #include "pm_val2logical@routines.inc.F90"
236 : end procedure
237 : #endif
238 :
239 : #if LK2_ENABLED && SK3_ENABLED
240 : module procedure setLogicalDef_LK2_SK3
241 : use pm_kind, only: LKC => LK2, SKC => SK3
242 : #include "pm_val2logical@routines.inc.F90"
243 : end procedure
244 : #endif
245 :
246 : #if LK2_ENABLED && SK2_ENABLED
247 : module procedure setLogicalDef_LK2_SK2
248 : use pm_kind, only: LKC => LK2, SKC => SK2
249 : #include "pm_val2logical@routines.inc.F90"
250 : end procedure
251 : #endif
252 :
253 : #if LK2_ENABLED && SK1_ENABLED
254 0 : module procedure setLogicalDef_LK2_SK1
255 : use pm_kind, only: LKC => LK2, SKC => SK1
256 : #include "pm_val2logical@routines.inc.F90"
257 0 : end procedure
258 : #endif
259 :
260 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
261 :
262 : #if LK1_ENABLED && SK5_ENABLED
263 : module procedure setLogicalDef_LK1_SK5
264 : use pm_kind, only: LKC => LK1, SKC => SK5
265 : #include "pm_val2logical@routines.inc.F90"
266 : end procedure
267 : #endif
268 :
269 : #if LK1_ENABLED && SK4_ENABLED
270 : module procedure setLogicalDef_LK1_SK4
271 : use pm_kind, only: LKC => LK1, SKC => SK4
272 : #include "pm_val2logical@routines.inc.F90"
273 : end procedure
274 : #endif
275 :
276 : #if LK1_ENABLED && SK3_ENABLED
277 : module procedure setLogicalDef_LK1_SK3
278 : use pm_kind, only: LKC => LK1, SKC => SK3
279 : #include "pm_val2logical@routines.inc.F90"
280 : end procedure
281 : #endif
282 :
283 : #if LK1_ENABLED && SK2_ENABLED
284 : module procedure setLogicalDef_LK1_SK2
285 : use pm_kind, only: LKC => LK1, SKC => SK2
286 : #include "pm_val2logical@routines.inc.F90"
287 : end procedure
288 : #endif
289 :
290 : #if LK1_ENABLED && SK1_ENABLED
291 0 : module procedure setLogicalDef_LK1_SK1
292 : use pm_kind, only: LKC => LK1, SKC => SK1
293 : #include "pm_val2logical@routines.inc.F90"
294 0 : end procedure
295 : #endif
296 :
297 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
298 :
299 : #undef SK_ENABLED
300 :
301 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
302 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
303 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
304 :
305 : #undef Def_ENABLED
306 :
307 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
308 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
309 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
310 :
311 : #define Err_ENABLED 1
312 :
313 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
314 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
315 :
316 : #define SK_ENABLED 1
317 :
318 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
319 :
320 : #if LK5_ENABLED && SK5_ENABLED
321 : module procedure setLogicalErr_LK5_SK5
322 : use pm_kind, only: LKC => LK5, SKC => SK5
323 : #include "pm_val2logical@routines.inc.F90"
324 : end procedure
325 : #endif
326 :
327 : #if LK5_ENABLED && SK4_ENABLED
328 : module procedure setLogicalErr_LK5_SK4
329 : use pm_kind, only: LKC => LK5, SKC => SK4
330 : #include "pm_val2logical@routines.inc.F90"
331 : end procedure
332 : #endif
333 :
334 : #if LK5_ENABLED && SK3_ENABLED
335 : module procedure setLogicalErr_LK5_SK3
336 : use pm_kind, only: LKC => LK5, SKC => SK3
337 : #include "pm_val2logical@routines.inc.F90"
338 : end procedure
339 : #endif
340 :
341 : #if LK5_ENABLED && SK2_ENABLED
342 : module procedure setLogicalErr_LK5_SK2
343 : use pm_kind, only: LKC => LK5, SKC => SK2
344 : #include "pm_val2logical@routines.inc.F90"
345 : end procedure
346 : #endif
347 :
348 : #if LK5_ENABLED && SK1_ENABLED
349 0 : module procedure setLogicalErr_LK5_SK1
350 : use pm_kind, only: LKC => LK5, SKC => SK1
351 : #include "pm_val2logical@routines.inc.F90"
352 0 : end procedure
353 : #endif
354 :
355 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
356 :
357 : #if LK4_ENABLED && SK5_ENABLED
358 : module procedure setLogicalErr_LK4_SK5
359 : use pm_kind, only: LKC => LK4, SKC => SK5
360 : #include "pm_val2logical@routines.inc.F90"
361 : end procedure
362 : #endif
363 :
364 : #if LK4_ENABLED && SK4_ENABLED
365 : module procedure setLogicalErr_LK4_SK4
366 : use pm_kind, only: LKC => LK4, SKC => SK4
367 : #include "pm_val2logical@routines.inc.F90"
368 : end procedure
369 : #endif
370 :
371 : #if LK4_ENABLED && SK3_ENABLED
372 : module procedure setLogicalErr_LK4_SK3
373 : use pm_kind, only: LKC => LK4, SKC => SK3
374 : #include "pm_val2logical@routines.inc.F90"
375 : end procedure
376 : #endif
377 :
378 : #if LK4_ENABLED && SK2_ENABLED
379 : module procedure setLogicalErr_LK4_SK2
380 : use pm_kind, only: LKC => LK4, SKC => SK2
381 : #include "pm_val2logical@routines.inc.F90"
382 : end procedure
383 : #endif
384 :
385 : #if LK4_ENABLED && SK1_ENABLED
386 0 : module procedure setLogicalErr_LK4_SK1
387 : use pm_kind, only: LKC => LK4, SKC => SK1
388 : #include "pm_val2logical@routines.inc.F90"
389 0 : end procedure
390 : #endif
391 :
392 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
393 :
394 : #if LK3_ENABLED && SK5_ENABLED
395 : module procedure setLogicalErr_LK3_SK5
396 : use pm_kind, only: LKC => LK3, SKC => SK5
397 : #include "pm_val2logical@routines.inc.F90"
398 : end procedure
399 : #endif
400 :
401 : #if LK3_ENABLED && SK4_ENABLED
402 : module procedure setLogicalErr_LK3_SK4
403 : use pm_kind, only: LKC => LK3, SKC => SK4
404 : #include "pm_val2logical@routines.inc.F90"
405 : end procedure
406 : #endif
407 :
408 : #if LK3_ENABLED && SK3_ENABLED
409 : module procedure setLogicalErr_LK3_SK3
410 : use pm_kind, only: LKC => LK3, SKC => SK3
411 : #include "pm_val2logical@routines.inc.F90"
412 : end procedure
413 : #endif
414 :
415 : #if LK3_ENABLED && SK2_ENABLED
416 : module procedure setLogicalErr_LK3_SK2
417 : use pm_kind, only: LKC => LK3, SKC => SK2
418 : #include "pm_val2logical@routines.inc.F90"
419 : end procedure
420 : #endif
421 :
422 : #if LK3_ENABLED && SK1_ENABLED
423 5 : module procedure setLogicalErr_LK3_SK1
424 : use pm_kind, only: LKC => LK3, SKC => SK1
425 : #include "pm_val2logical@routines.inc.F90"
426 5 : end procedure
427 : #endif
428 :
429 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
430 :
431 : #if LK2_ENABLED && SK5_ENABLED
432 : module procedure setLogicalErr_LK2_SK5
433 : use pm_kind, only: LKC => LK2, SKC => SK5
434 : #include "pm_val2logical@routines.inc.F90"
435 : end procedure
436 : #endif
437 :
438 : #if LK2_ENABLED && SK4_ENABLED
439 : module procedure setLogicalErr_LK2_SK4
440 : use pm_kind, only: LKC => LK2, SKC => SK4
441 : #include "pm_val2logical@routines.inc.F90"
442 : end procedure
443 : #endif
444 :
445 : #if LK2_ENABLED && SK3_ENABLED
446 : module procedure setLogicalErr_LK2_SK3
447 : use pm_kind, only: LKC => LK2, SKC => SK3
448 : #include "pm_val2logical@routines.inc.F90"
449 : end procedure
450 : #endif
451 :
452 : #if LK2_ENABLED && SK2_ENABLED
453 : module procedure setLogicalErr_LK2_SK2
454 : use pm_kind, only: LKC => LK2, SKC => SK2
455 : #include "pm_val2logical@routines.inc.F90"
456 : end procedure
457 : #endif
458 :
459 : #if LK2_ENABLED && SK1_ENABLED
460 0 : module procedure setLogicalErr_LK2_SK1
461 : use pm_kind, only: LKC => LK2, SKC => SK1
462 : #include "pm_val2logical@routines.inc.F90"
463 0 : end procedure
464 : #endif
465 :
466 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
467 :
468 : #if LK1_ENABLED && SK5_ENABLED
469 : module procedure setLogicalErr_LK1_SK5
470 : use pm_kind, only: LKC => LK1, SKC => SK5
471 : #include "pm_val2logical@routines.inc.F90"
472 : end procedure
473 : #endif
474 :
475 : #if LK1_ENABLED && SK4_ENABLED
476 : module procedure setLogicalErr_LK1_SK4
477 : use pm_kind, only: LKC => LK1, SKC => SK4
478 : #include "pm_val2logical@routines.inc.F90"
479 : end procedure
480 : #endif
481 :
482 : #if LK1_ENABLED && SK3_ENABLED
483 : module procedure setLogicalErr_LK1_SK3
484 : use pm_kind, only: LKC => LK1, SKC => SK3
485 : #include "pm_val2logical@routines.inc.F90"
486 : end procedure
487 : #endif
488 :
489 : #if LK1_ENABLED && SK2_ENABLED
490 : module procedure setLogicalErr_LK1_SK2
491 : use pm_kind, only: LKC => LK1, SKC => SK2
492 : #include "pm_val2logical@routines.inc.F90"
493 : end procedure
494 : #endif
495 :
496 : #if LK1_ENABLED && SK1_ENABLED
497 0 : module procedure setLogicalErr_LK1_SK1
498 : use pm_kind, only: LKC => LK1, SKC => SK1
499 : #include "pm_val2logical@routines.inc.F90"
500 0 : end procedure
501 : #endif
502 :
503 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
504 :
505 : #undef SK_ENABLED
506 :
507 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
508 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
509 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
510 :
511 : #undef Err_ENABLED
512 :
513 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
514 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
515 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
516 :
517 : #undef setLogical_ENABLED
518 :
519 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
520 :
521 : end submodule routines
|
