ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
pm_val2logical.F90
Go to the documentation of this file.
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
40
41!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
42
43module pm_val2logical
44
45 use pm_kind, only: SK, IK
46
47 implicit none
48
49 character(*, SK), parameter :: MODULE_NAME = "@pm_val2logical"
50
51!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
52
107 interface getLogical
108
109 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
110
111#if SK5_ENABLED
112 pure elemental module function getLogicalDef_SK5(val) result(conversion)
113#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
114 !DEC$ ATTRIBUTES DLLEXPORT :: getLogicalDef_SK5
115#endif
116 use pm_kind, only: LKG => LK, SKG => SK5
117 character(*,SKG) , intent(in) :: val
118 logical(LKG) :: conversion
119 end function
120#endif
121
122#if SK4_ENABLED
123 pure elemental module function getLogicalDef_SK4(val) result(conversion)
124#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
125 !DEC$ ATTRIBUTES DLLEXPORT :: getLogicalDef_SK4
126#endif
127 use pm_kind, only: LKG => LK, SKG => SK4
128 character(*,SKG) , intent(in) :: val
129 logical(LKG) :: conversion
130 end function
131#endif
132
133#if SK3_ENABLED
134 pure elemental module function getLogicalDef_SK3(val) result(conversion)
135#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
136 !DEC$ ATTRIBUTES DLLEXPORT :: getLogicalDef_SK3
137#endif
138 use pm_kind, only: LKG => LK, SKG => SK3
139 character(*,SKG) , intent(in) :: val
140 logical(LKG) :: conversion
141 end function
142#endif
143
144#if SK2_ENABLED
145 pure elemental module function getLogicalDef_SK2(val) result(conversion)
146#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
147 !DEC$ ATTRIBUTES DLLEXPORT :: getLogicalDef_SK2
148#endif
149 use pm_kind, only: LKG => LK, SKG => SK2
150 character(*,SKG) , intent(in) :: val
151 logical(LKG) :: conversion
152 end function
153#endif
154
155#if SK1_ENABLED
156 pure elemental module function getLogicalDef_SK1(val) result(conversion)
157#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
158 !DEC$ ATTRIBUTES DLLEXPORT :: getLogicalDef_SK1
159#endif
160 use pm_kind, only: LKG => LK, SKG => SK1
161 character(*,SKG) , intent(in) :: val
162 logical(LKG) :: conversion
163 end function
164#endif
165
166 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
167
168 end interface
169
170!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
171
237 interface setLogical
238
239 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
240 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
241 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
242
243 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
244
245#if LK5_ENABLED && SK5_ENABLED
246 pure elemental module subroutine setLogicalDef_LK5_SK5(conversion, val)
247#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
248 !DEC$ ATTRIBUTES DLLEXPORT :: setLogicalDef_LK5_SK5
249#endif
250 use pm_kind, only: LKG => LK5, SKG => SK5
251 logical(LKG) , intent(out) :: conversion
252 character(*,SKG) , intent(in) :: val
253 end subroutine
254#endif
255
256#if LK5_ENABLED && SK4_ENABLED
257 pure elemental module subroutine setLogicalDef_LK5_SK4(conversion, val)
258#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
259 !DEC$ ATTRIBUTES DLLEXPORT :: setLogicalDef_LK5_SK4
260#endif
261 use pm_kind, only: LKG => LK5, SKG => SK4
262 logical(LKG) , intent(out) :: conversion
263 character(*,SKG) , intent(in) :: val
264 end subroutine
265#endif
266
267#if LK5_ENABLED && SK3_ENABLED
268 pure elemental module subroutine setLogicalDef_LK5_SK3(conversion, val)
269#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
270 !DEC$ ATTRIBUTES DLLEXPORT :: setLogicalDef_LK5_SK3
271#endif
272 use pm_kind, only: LKG => LK5, SKG => SK3
273 logical(LKG) , intent(out) :: conversion
274 character(*,SKG) , intent(in) :: val
275 end subroutine
276#endif
277
278#if LK5_ENABLED && SK2_ENABLED
279 pure elemental module subroutine setLogicalDef_LK5_SK2(conversion, val)
280#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
281 !DEC$ ATTRIBUTES DLLEXPORT :: setLogicalDef_LK5_SK2
282#endif
283 use pm_kind, only: LKG => LK5, SKG => SK2
284 logical(LKG) , intent(out) :: conversion
285 character(*,SKG) , intent(in) :: val
286 end subroutine
287#endif
288
289#if LK5_ENABLED && SK1_ENABLED
290 pure elemental module subroutine setLogicalDef_LK5_SK1(conversion, val)
291#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
292 !DEC$ ATTRIBUTES DLLEXPORT :: setLogicalDef_LK5_SK1
293#endif
294 use pm_kind, only: LKG => LK5, SKG => SK1
295 logical(LKG) , intent(out) :: conversion
296 character(*,SKG) , intent(in) :: val
297 end subroutine
298#endif
299
300 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
301
302 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
303 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
304 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
305
306 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
307
308#if LK4_ENABLED && SK5_ENABLED
309 pure elemental module subroutine setLogicalDef_LK4_SK5(conversion, val)
310#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
311 !DEC$ ATTRIBUTES DLLEXPORT :: setLogicalDef_LK4_SK5
312#endif
313 use pm_kind, only: LKG => LK4, SKG => SK5
314 logical(LKG) , intent(out) :: conversion
315 character(*,SKG) , intent(in) :: val
316 end subroutine
317#endif
318
319#if LK4_ENABLED && SK4_ENABLED
320 pure elemental module subroutine setLogicalDef_LK4_SK4(conversion, val)
321#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
322 !DEC$ ATTRIBUTES DLLEXPORT :: setLogicalDef_LK4_SK4
323#endif
324 use pm_kind, only: LKG => LK4, SKG => SK4
325 logical(LKG) , intent(out) :: conversion
326 character(*,SKG) , intent(in) :: val
327 end subroutine
328#endif
329
330#if LK4_ENABLED && SK3_ENABLED
331 pure elemental module subroutine setLogicalDef_LK4_SK3(conversion, val)
332#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
333 !DEC$ ATTRIBUTES DLLEXPORT :: setLogicalDef_LK4_SK3
334#endif
335 use pm_kind, only: LKG => LK4, SKG => SK3
336 logical(LKG) , intent(out) :: conversion
337 character(*,SKG) , intent(in) :: val
338 end subroutine
339#endif
340
341#if LK4_ENABLED && SK2_ENABLED
342 pure elemental module subroutine setLogicalDef_LK4_SK2(conversion, val)
343#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
344 !DEC$ ATTRIBUTES DLLEXPORT :: setLogicalDef_LK4_SK2
345#endif
346 use pm_kind, only: LKG => LK4, SKG => SK2
347 logical(LKG) , intent(out) :: conversion
348 character(*,SKG) , intent(in) :: val
349 end subroutine
350#endif
351
352#if LK4_ENABLED && SK1_ENABLED
353 pure elemental module subroutine setLogicalDef_LK4_SK1(conversion, val)
354#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
355 !DEC$ ATTRIBUTES DLLEXPORT :: setLogicalDef_LK4_SK1
356#endif
357 use pm_kind, only: LKG => LK4, SKG => SK1
358 logical(LKG) , intent(out) :: conversion
359 character(*,SKG) , intent(in) :: val
360 end subroutine
361#endif
362
363 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
364
365 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
366 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
367 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
368
369 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
370
371#if LK3_ENABLED && SK5_ENABLED
372 pure elemental module subroutine setLogicalDef_LK3_SK5(conversion, val)
373#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
374 !DEC$ ATTRIBUTES DLLEXPORT :: setLogicalDef_LK3_SK5
375#endif
376 use pm_kind, only: LKG => LK3, SKG => SK5
377 logical(LKG) , intent(out) :: conversion
378 character(*,SKG) , intent(in) :: val
379 end subroutine
380#endif
381
382#if LK3_ENABLED && SK4_ENABLED
383 pure elemental module subroutine setLogicalDef_LK3_SK4(conversion, val)
384#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
385 !DEC$ ATTRIBUTES DLLEXPORT :: setLogicalDef_LK3_SK4
386#endif
387 use pm_kind, only: LKG => LK3, SKG => SK4
388 logical(LKG) , intent(out) :: conversion
389 character(*,SKG) , intent(in) :: val
390 end subroutine
391#endif
392
393#if LK3_ENABLED && SK3_ENABLED
394 pure elemental module subroutine setLogicalDef_LK3_SK3(conversion, val)
395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
396 !DEC$ ATTRIBUTES DLLEXPORT :: setLogicalDef_LK3_SK3
397#endif
398 use pm_kind, only: LKG => LK3, SKG => SK3
399 logical(LKG) , intent(out) :: conversion
400 character(*,SKG) , intent(in) :: val
401 end subroutine
402#endif
403
404#if LK3_ENABLED && SK2_ENABLED
405 pure elemental module subroutine setLogicalDef_LK3_SK2(conversion, val)
406#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
407 !DEC$ ATTRIBUTES DLLEXPORT :: setLogicalDef_LK3_SK2
408#endif
409 use pm_kind, only: LKG => LK3, SKG => SK2
410 logical(LKG) , intent(out) :: conversion
411 character(*,SKG) , intent(in) :: val
412 end subroutine
413#endif
414
415#if LK3_ENABLED && SK1_ENABLED
416 pure elemental module subroutine setLogicalDef_LK3_SK1(conversion, val)
417#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
418 !DEC$ ATTRIBUTES DLLEXPORT :: setLogicalDef_LK3_SK1
419#endif
420 use pm_kind, only: LKG => LK3, SKG => SK1
421 logical(LKG) , intent(out) :: conversion
422 character(*,SKG) , intent(in) :: val
423 end subroutine
424#endif
425
426 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
427
428 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
429 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
430 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
431
432 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
433
434#if LK2_ENABLED && SK5_ENABLED
435 pure elemental module subroutine setLogicalDef_LK2_SK5(conversion, val)
436#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
437 !DEC$ ATTRIBUTES DLLEXPORT :: setLogicalDef_LK2_SK5
438#endif
439 use pm_kind, only: LKG => LK2, SKG => SK5
440 logical(LKG) , intent(out) :: conversion
441 character(*,SKG) , intent(in) :: val
442 end subroutine
443#endif
444
445#if LK2_ENABLED && SK4_ENABLED
446 pure elemental module subroutine setLogicalDef_LK2_SK4(conversion, val)
447#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
448 !DEC$ ATTRIBUTES DLLEXPORT :: setLogicalDef_LK2_SK4
449#endif
450 use pm_kind, only: LKG => LK2, SKG => SK4
451 logical(LKG) , intent(out) :: conversion
452 character(*,SKG) , intent(in) :: val
453 end subroutine
454#endif
455
456#if LK2_ENABLED && SK3_ENABLED
457 pure elemental module subroutine setLogicalDef_LK2_SK3(conversion, val)
458#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
459 !DEC$ ATTRIBUTES DLLEXPORT :: setLogicalDef_LK2_SK3
460#endif
461 use pm_kind, only: LKG => LK2, SKG => SK3
462 logical(LKG) , intent(out) :: conversion
463 character(*,SKG) , intent(in) :: val
464 end subroutine
465#endif
466
467#if LK2_ENABLED && SK2_ENABLED
468 pure elemental module subroutine setLogicalDef_LK2_SK2(conversion, val)
469#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
470 !DEC$ ATTRIBUTES DLLEXPORT :: setLogicalDef_LK2_SK2
471#endif
472 use pm_kind, only: LKG => LK2, SKG => SK2
473 logical(LKG) , intent(out) :: conversion
474 character(*,SKG) , intent(in) :: val
475 end subroutine
476#endif
477
478#if LK2_ENABLED && SK1_ENABLED
479 pure elemental module subroutine setLogicalDef_LK2_SK1(conversion, val)
480#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
481 !DEC$ ATTRIBUTES DLLEXPORT :: setLogicalDef_LK2_SK1
482#endif
483 use pm_kind, only: LKG => LK2, SKG => SK1
484 logical(LKG) , intent(out) :: conversion
485 character(*,SKG) , intent(in) :: val
486 end subroutine
487#endif
488
489 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
490
491 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
492 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
493 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
494
495 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
496
497#if LK1_ENABLED && SK5_ENABLED
498 pure elemental module subroutine setLogicalDef_LK1_SK5(conversion, val)
499#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
500 !DEC$ ATTRIBUTES DLLEXPORT :: setLogicalDef_LK1_SK5
501#endif
502 use pm_kind, only: LKG => LK1, SKG => SK5
503 logical(LKG) , intent(out) :: conversion
504 character(*,SKG) , intent(in) :: val
505 end subroutine
506#endif
507
508#if LK1_ENABLED && SK4_ENABLED
509 pure elemental module subroutine setLogicalDef_LK1_SK4(conversion, val)
510#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
511 !DEC$ ATTRIBUTES DLLEXPORT :: setLogicalDef_LK1_SK4
512#endif
513 use pm_kind, only: LKG => LK1, SKG => SK4
514 logical(LKG) , intent(out) :: conversion
515 character(*,SKG) , intent(in) :: val
516 end subroutine
517#endif
518
519#if LK1_ENABLED && SK3_ENABLED
520 pure elemental module subroutine setLogicalDef_LK1_SK3(conversion, val)
521#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
522 !DEC$ ATTRIBUTES DLLEXPORT :: setLogicalDef_LK1_SK3
523#endif
524 use pm_kind, only: LKG => LK1, SKG => SK3
525 logical(LKG) , intent(out) :: conversion
526 character(*,SKG) , intent(in) :: val
527 end subroutine
528#endif
529
530#if LK1_ENABLED && SK2_ENABLED
531 pure elemental module subroutine setLogicalDef_LK1_SK2(conversion, val)
532#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
533 !DEC$ ATTRIBUTES DLLEXPORT :: setLogicalDef_LK1_SK2
534#endif
535 use pm_kind, only: LKG => LK1, SKG => SK2
536 logical(LKG) , intent(out) :: conversion
537 character(*,SKG) , intent(in) :: val
538 end subroutine
539#endif
540
541#if LK1_ENABLED && SK1_ENABLED
542 pure elemental module subroutine setLogicalDef_LK1_SK1(conversion, val)
543#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
544 !DEC$ ATTRIBUTES DLLEXPORT :: setLogicalDef_LK1_SK1
545#endif
546 use pm_kind, only: LKG => LK1, SKG => SK1
547 logical(LKG) , intent(out) :: conversion
548 character(*,SKG) , intent(in) :: val
549 end subroutine
550#endif
551
552 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
553
554 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
555 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
556 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
557 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
558 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
559 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
560
561 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
562
563#if LK5_ENABLED && SK5_ENABLED
564 pure elemental module subroutine setLogicalErr_LK5_SK5(conversion, val, iostat)
565#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
566 !DEC$ ATTRIBUTES DLLEXPORT :: setLogicalErr_LK5_SK5
567#endif
568 use pm_kind, only: LKG => LK5, SKG => SK5
569 logical(LKG) , intent(out) :: conversion
570 character(*,SKG) , intent(in) :: val
571 integer(IK) , intent(out) :: iostat
572 end subroutine
573#endif
574
575#if LK5_ENABLED && SK4_ENABLED
576 pure elemental module subroutine setLogicalErr_LK5_SK4(conversion, val, iostat)
577#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
578 !DEC$ ATTRIBUTES DLLEXPORT :: setLogicalErr_LK5_SK4
579#endif
580 use pm_kind, only: LKG => LK5, SKG => SK4
581 logical(LKG) , intent(out) :: conversion
582 character(*,SKG) , intent(in) :: val
583 integer(IK) , intent(out) :: iostat
584 end subroutine
585#endif
586
587#if LK5_ENABLED && SK3_ENABLED
588 pure elemental module subroutine setLogicalErr_LK5_SK3(conversion, val, iostat)
589#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
590 !DEC$ ATTRIBUTES DLLEXPORT :: setLogicalErr_LK5_SK3
591#endif
592 use pm_kind, only: LKG => LK5, SKG => SK3
593 logical(LKG) , intent(out) :: conversion
594 character(*,SKG) , intent(in) :: val
595 integer(IK) , intent(out) :: iostat
596 end subroutine
597#endif
598
599#if LK5_ENABLED && SK2_ENABLED
600 pure elemental module subroutine setLogicalErr_LK5_SK2(conversion, val, iostat)
601#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
602 !DEC$ ATTRIBUTES DLLEXPORT :: setLogicalErr_LK5_SK2
603#endif
604 use pm_kind, only: LKG => LK5, SKG => SK2
605 logical(LKG) , intent(out) :: conversion
606 character(*,SKG) , intent(in) :: val
607 integer(IK) , intent(out) :: iostat
608 end subroutine
609#endif
610
611#if LK5_ENABLED && SK1_ENABLED
612 pure elemental module subroutine setLogicalErr_LK5_SK1(conversion, val, iostat)
613#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
614 !DEC$ ATTRIBUTES DLLEXPORT :: setLogicalErr_LK5_SK1
615#endif
616 use pm_kind, only: LKG => LK5, SKG => SK1
617 logical(LKG) , intent(out) :: conversion
618 character(*,SKG) , intent(in) :: val
619 integer(IK) , intent(out) :: iostat
620 end subroutine
621#endif
622
623 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
624
625 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
626 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
627 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
628
629 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
630
631#if LK4_ENABLED && SK5_ENABLED
632 pure elemental module subroutine setLogicalErr_LK4_SK5(conversion, val, iostat)
633#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
634 !DEC$ ATTRIBUTES DLLEXPORT :: setLogicalErr_LK4_SK5
635#endif
636 use pm_kind, only: LKG => LK4, SKG => SK5
637 logical(LKG) , intent(out) :: conversion
638 character(*,SKG) , intent(in) :: val
639 integer(IK) , intent(out) :: iostat
640 end subroutine
641#endif
642
643#if LK4_ENABLED && SK4_ENABLED
644 pure elemental module subroutine setLogicalErr_LK4_SK4(conversion, val, iostat)
645#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
646 !DEC$ ATTRIBUTES DLLEXPORT :: setLogicalErr_LK4_SK4
647#endif
648 use pm_kind, only: LKG => LK4, SKG => SK4
649 logical(LKG) , intent(out) :: conversion
650 character(*,SKG) , intent(in) :: val
651 integer(IK) , intent(out) :: iostat
652 end subroutine
653#endif
654
655#if LK4_ENABLED && SK3_ENABLED
656 pure elemental module subroutine setLogicalErr_LK4_SK3(conversion, val, iostat)
657#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
658 !DEC$ ATTRIBUTES DLLEXPORT :: setLogicalErr_LK4_SK3
659#endif
660 use pm_kind, only: LKG => LK4, SKG => SK3
661 logical(LKG) , intent(out) :: conversion
662 character(*,SKG) , intent(in) :: val
663 integer(IK) , intent(out) :: iostat
664 end subroutine
665#endif
666
667#if LK4_ENABLED && SK2_ENABLED
668 pure elemental module subroutine setLogicalErr_LK4_SK2(conversion, val, iostat)
669#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
670 !DEC$ ATTRIBUTES DLLEXPORT :: setLogicalErr_LK4_SK2
671#endif
672 use pm_kind, only: LKG => LK4, SKG => SK2
673 logical(LKG) , intent(out) :: conversion
674 character(*,SKG) , intent(in) :: val
675 integer(IK) , intent(out) :: iostat
676 end subroutine
677#endif
678
679#if LK4_ENABLED && SK1_ENABLED
680 pure elemental module subroutine setLogicalErr_LK4_SK1(conversion, val, iostat)
681#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
682 !DEC$ ATTRIBUTES DLLEXPORT :: setLogicalErr_LK4_SK1
683#endif
684 use pm_kind, only: LKG => LK4, SKG => SK1
685 logical(LKG) , intent(out) :: conversion
686 character(*,SKG) , intent(in) :: val
687 integer(IK) , intent(out) :: iostat
688 end subroutine
689#endif
690
691 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
692
693 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
694 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
695 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
696
697 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
698
699#if LK3_ENABLED && SK5_ENABLED
700 pure elemental module subroutine setLogicalErr_LK3_SK5(conversion, val, iostat)
701#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
702 !DEC$ ATTRIBUTES DLLEXPORT :: setLogicalErr_LK3_SK5
703#endif
704 use pm_kind, only: LKG => LK3, SKG => SK5
705 logical(LKG) , intent(out) :: conversion
706 character(*,SKG) , intent(in) :: val
707 integer(IK) , intent(out) :: iostat
708 end subroutine
709#endif
710
711#if LK3_ENABLED && SK4_ENABLED
712 pure elemental module subroutine setLogicalErr_LK3_SK4(conversion, val, iostat)
713#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
714 !DEC$ ATTRIBUTES DLLEXPORT :: setLogicalErr_LK3_SK4
715#endif
716 use pm_kind, only: LKG => LK3, SKG => SK4
717 logical(LKG) , intent(out) :: conversion
718 character(*,SKG) , intent(in) :: val
719 integer(IK) , intent(out) :: iostat
720 end subroutine
721#endif
722
723#if LK3_ENABLED && SK3_ENABLED
724 pure elemental module subroutine setLogicalErr_LK3_SK3(conversion, val, iostat)
725#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
726 !DEC$ ATTRIBUTES DLLEXPORT :: setLogicalErr_LK3_SK3
727#endif
728 use pm_kind, only: LKG => LK3, SKG => SK3
729 logical(LKG) , intent(out) :: conversion
730 character(*,SKG) , intent(in) :: val
731 integer(IK) , intent(out) :: iostat
732 end subroutine
733#endif
734
735#if LK3_ENABLED && SK2_ENABLED
736 pure elemental module subroutine setLogicalErr_LK3_SK2(conversion, val, iostat)
737#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
738 !DEC$ ATTRIBUTES DLLEXPORT :: setLogicalErr_LK3_SK2
739#endif
740 use pm_kind, only: LKG => LK3, SKG => SK2
741 logical(LKG) , intent(out) :: conversion
742 character(*,SKG) , intent(in) :: val
743 integer(IK) , intent(out) :: iostat
744 end subroutine
745#endif
746
747#if LK3_ENABLED && SK1_ENABLED
748 pure elemental module subroutine setLogicalErr_LK3_SK1(conversion, val, iostat)
749#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
750 !DEC$ ATTRIBUTES DLLEXPORT :: setLogicalErr_LK3_SK1
751#endif
752 use pm_kind, only: LKG => LK3, SKG => SK1
753 logical(LKG) , intent(out) :: conversion
754 character(*,SKG) , intent(in) :: val
755 integer(IK) , intent(out) :: iostat
756 end subroutine
757#endif
758
759 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
760
761 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
762 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
763 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
764
765 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
766
767#if LK2_ENABLED && SK5_ENABLED
768 pure elemental module subroutine setLogicalErr_LK2_SK5(conversion, val, iostat)
769#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
770 !DEC$ ATTRIBUTES DLLEXPORT :: setLogicalErr_LK2_SK5
771#endif
772 use pm_kind, only: LKG => LK2, SKG => SK5
773 logical(LKG) , intent(out) :: conversion
774 character(*,SKG) , intent(in) :: val
775 integer(IK) , intent(out) :: iostat
776 end subroutine
777#endif
778
779#if LK2_ENABLED && SK4_ENABLED
780 pure elemental module subroutine setLogicalErr_LK2_SK4(conversion, val, iostat)
781#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
782 !DEC$ ATTRIBUTES DLLEXPORT :: setLogicalErr_LK2_SK4
783#endif
784 use pm_kind, only: LKG => LK2, SKG => SK4
785 logical(LKG) , intent(out) :: conversion
786 character(*,SKG) , intent(in) :: val
787 integer(IK) , intent(out) :: iostat
788 end subroutine
789#endif
790
791#if LK2_ENABLED && SK3_ENABLED
792 pure elemental module subroutine setLogicalErr_LK2_SK3(conversion, val, iostat)
793#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
794 !DEC$ ATTRIBUTES DLLEXPORT :: setLogicalErr_LK2_SK3
795#endif
796 use pm_kind, only: LKG => LK2, SKG => SK3
797 logical(LKG) , intent(out) :: conversion
798 character(*,SKG) , intent(in) :: val
799 integer(IK) , intent(out) :: iostat
800 end subroutine
801#endif
802
803#if LK2_ENABLED && SK2_ENABLED
804 pure elemental module subroutine setLogicalErr_LK2_SK2(conversion, val, iostat)
805#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
806 !DEC$ ATTRIBUTES DLLEXPORT :: setLogicalErr_LK2_SK2
807#endif
808 use pm_kind, only: LKG => LK2, SKG => SK2
809 logical(LKG) , intent(out) :: conversion
810 character(*,SKG) , intent(in) :: val
811 integer(IK) , intent(out) :: iostat
812 end subroutine
813#endif
814
815#if LK2_ENABLED && SK1_ENABLED
816 pure elemental module subroutine setLogicalErr_LK2_SK1(conversion, val, iostat)
817#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
818 !DEC$ ATTRIBUTES DLLEXPORT :: setLogicalErr_LK2_SK1
819#endif
820 use pm_kind, only: LKG => LK2, SKG => SK1
821 logical(LKG) , intent(out) :: conversion
822 character(*,SKG) , intent(in) :: val
823 integer(IK) , intent(out) :: iostat
824 end subroutine
825#endif
826
827 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
828
829 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
830 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
831 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
832
833 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
834
835#if LK1_ENABLED && SK5_ENABLED
836 pure elemental module subroutine setLogicalErr_LK1_SK5(conversion, val, iostat)
837#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
838 !DEC$ ATTRIBUTES DLLEXPORT :: setLogicalErr_LK1_SK5
839#endif
840 use pm_kind, only: LKG => LK1, SKG => SK5
841 logical(LKG) , intent(out) :: conversion
842 character(*,SKG) , intent(in) :: val
843 integer(IK) , intent(out) :: iostat
844 end subroutine
845#endif
846
847#if LK1_ENABLED && SK4_ENABLED
848 pure elemental module subroutine setLogicalErr_LK1_SK4(conversion, val, iostat)
849#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
850 !DEC$ ATTRIBUTES DLLEXPORT :: setLogicalErr_LK1_SK4
851#endif
852 use pm_kind, only: LKG => LK1, SKG => SK4
853 logical(LKG) , intent(out) :: conversion
854 character(*,SKG) , intent(in) :: val
855 integer(IK) , intent(out) :: iostat
856 end subroutine
857#endif
858
859#if LK1_ENABLED && SK3_ENABLED
860 pure elemental module subroutine setLogicalErr_LK1_SK3(conversion, val, iostat)
861#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
862 !DEC$ ATTRIBUTES DLLEXPORT :: setLogicalErr_LK1_SK3
863#endif
864 use pm_kind, only: LKG => LK1, SKG => SK3
865 logical(LKG) , intent(out) :: conversion
866 character(*,SKG) , intent(in) :: val
867 integer(IK) , intent(out) :: iostat
868 end subroutine
869#endif
870
871#if LK1_ENABLED && SK2_ENABLED
872 pure elemental module subroutine setLogicalErr_LK1_SK2(conversion, val, iostat)
873#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
874 !DEC$ ATTRIBUTES DLLEXPORT :: setLogicalErr_LK1_SK2
875#endif
876 use pm_kind, only: LKG => LK1, SKG => SK2
877 logical(LKG) , intent(out) :: conversion
878 character(*,SKG) , intent(in) :: val
879 integer(IK) , intent(out) :: iostat
880 end subroutine
881#endif
882
883#if LK1_ENABLED && SK1_ENABLED
884 pure elemental module subroutine setLogicalErr_LK1_SK1(conversion, val, iostat)
885#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
886 !DEC$ ATTRIBUTES DLLEXPORT :: setLogicalErr_LK1_SK1
887#endif
888 use pm_kind, only: LKG => LK1, SKG => SK1
889 logical(LKG) , intent(out) :: conversion
890 character(*,SKG) , intent(in) :: val
891 integer(IK) , intent(out) :: iostat
892 end subroutine
893#endif
894
895 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
896
897 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
898 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
899 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
900
901 end interface
902
903!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
904
905end module pm_val2logical ! LCOV_EXCL_LINE
pm_val2logical::getLogical
Generate and return the conversion of the input value to a logical value of default kind LK.
Definition: pm_val2logical.F90:107
pm_val2logical::setLogical
Return the conversion of the input value to a logical value of arbitrary kind.
Definition: pm_val2logical.F90:237
pm_kind
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:268
pm_kind::SK5
integer, parameter SK5
Definition: pm_kind.F90:326
pm_kind::LK1
integer, parameter LK1
Definition: pm_kind.F90:412
pm_kind::SK1
integer, parameter SK1
Definition: pm_kind.F90:346
pm_kind::LK5
integer, parameter LK5
Definition: pm_kind.F90:392
pm_kind::LK
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:541
pm_kind::LK2
integer, parameter LK2
Definition: pm_kind.F90:407
pm_kind::LK4
integer, parameter LK4
Definition: pm_kind.F90:397
pm_kind::SK4
integer, parameter SK4
Definition: pm_kind.F90:331
pm_kind::LK3
integer, parameter LK3
Definition: pm_kind.F90:402
pm_kind::SK2
integer, parameter SK2
Definition: pm_kind.F90:341
pm_kind::IK
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:540
pm_kind::SK
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
Definition: pm_kind.F90:539
pm_kind::SK3
integer, parameter SK3
Definition: pm_kind.F90:336
pm_val2logical
This module contains procedures and types for facilitating the conversion of values of different type...
Definition: pm_val2logical.F90:43
pm_val2logical::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_val2logical.F90:49