ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
pm_val2int.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
44
45 use pm_kind, only: SK, IK
46
47 implicit none
48
49 character(*, SK), parameter :: MODULE_NAME = "@pm_val2int"
50
51!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
52
109 interface getInt
110
111 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
112
113#if LK5_ENABLED
114 pure elemental module function getIntDef_LK5(val) result(conversion)
115#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
116 !DEC$ ATTRIBUTES DLLEXPORT :: getIntDef_LK5
117#endif
118 use pm_kind, only: IKG => IK, LKG => LK5
119 logical(LKG) , intent(in) :: val
120 integer(IKG) :: conversion
121 end function
122#endif
123
124#if LK4_ENABLED
125 pure elemental module function getIntDef_LK4(val) result(conversion)
126#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
127 !DEC$ ATTRIBUTES DLLEXPORT :: getIntDef_LK4
128#endif
129 use pm_kind, only: IKG => IK, LKG => LK4
130 logical(LKG) , intent(in) :: val
131 integer(IKG) :: conversion
132 end function
133#endif
134
135#if LK3_ENABLED
136 pure elemental module function getIntDef_LK3(val) result(conversion)
137#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
138 !DEC$ ATTRIBUTES DLLEXPORT :: getIntDef_LK3
139#endif
140 use pm_kind, only: IKG => IK, LKG => LK3
141 logical(LKG) , intent(in) :: val
142 integer(IKG) :: conversion
143 end function
144#endif
145
146#if LK2_ENABLED
147 pure elemental module function getIntDef_LK2(val) result(conversion)
148#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
149 !DEC$ ATTRIBUTES DLLEXPORT :: getIntDef_LK2
150#endif
151 use pm_kind, only: IKG => IK, LKG => LK2
152 logical(LKG) , intent(in) :: val
153 integer(IKG) :: conversion
154 end function
155#endif
156
157#if LK1_ENABLED
158 pure elemental module function getIntDef_LK1(val) result(conversion)
159#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
160 !DEC$ ATTRIBUTES DLLEXPORT :: getIntDef_LK1
161#endif
162 use pm_kind, only: IKG => IK, LKG => LK1
163 logical(LKG) , intent(in) :: val
164 integer(IKG) :: conversion
165 end function
166#endif
167
168 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
169
170#if SK5_ENABLED
171 pure elemental module function getIntDef_SK5(val) result(conversion)
172#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
173 !DEC$ ATTRIBUTES DLLEXPORT :: getIntDef_SK5
174#endif
175 use pm_kind, only: IKG => IK, SKG => SK5
176 character(*,SKG) , intent(in) :: val
177 integer(IKG) :: conversion
178 end function
179#endif
180
181#if SK4_ENABLED
182 pure elemental module function getIntDef_SK4(val) result(conversion)
183#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
184 !DEC$ ATTRIBUTES DLLEXPORT :: getIntDef_SK4
185#endif
186 use pm_kind, only: IKG => IK, SKG => SK4
187 character(*,SKG) , intent(in) :: val
188 integer(IKG) :: conversion
189 end function
190#endif
191
192#if SK3_ENABLED
193 pure elemental module function getIntDef_SK3(val) result(conversion)
194#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
195 !DEC$ ATTRIBUTES DLLEXPORT :: getIntDef_SK3
196#endif
197 use pm_kind, only: IKG => IK, SKG => SK3
198 character(*,SKG) , intent(in) :: val
199 integer(IKG) :: conversion
200 end function
201#endif
202
203#if SK2_ENABLED
204 pure elemental module function getIntDef_SK2(val) result(conversion)
205#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
206 !DEC$ ATTRIBUTES DLLEXPORT :: getIntDef_SK2
207#endif
208 use pm_kind, only: IKG => IK, SKG => SK2
209 character(*,SKG) , intent(in) :: val
210 integer(IKG) :: conversion
211 end function
212#endif
213
214#if SK1_ENABLED
215 pure elemental module function getIntDef_SK1(val) result(conversion)
216#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
217 !DEC$ ATTRIBUTES DLLEXPORT :: getIntDef_SK1
218#endif
219 use pm_kind, only: IKG => IK, SKG => SK1
220 character(*,SKG) , intent(in) :: val
221 integer(IKG) :: conversion
222 end function
223#endif
224
225 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
226
227 end interface
228
229!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
230
297 interface setInt
298
299 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
300 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
301 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
302
303 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
304
305#if IK5_ENABLED && LK5_ENABLED
306 pure elemental module subroutine setIntDef_IK5_LK5(conversion, val)
307#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
308 !DEC$ ATTRIBUTES DLLEXPORT :: setIntDef_IK5_LK5
309#endif
310 use pm_kind, only: IKG => IK5, LKG => LK5
311 integer(IKG) , intent(out) :: conversion
312 logical(LKG) , intent(in) :: val
313 end subroutine
314#endif
315
316#if IK5_ENABLED && LK4_ENABLED
317 pure elemental module subroutine setIntDef_IK5_LK4(conversion, val)
318#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
319 !DEC$ ATTRIBUTES DLLEXPORT :: setIntDef_IK5_LK4
320#endif
321 use pm_kind, only: IKG => IK5, LKG => LK4
322 integer(IKG) , intent(out) :: conversion
323 logical(LKG) , intent(in) :: val
324 end subroutine
325#endif
326
327#if IK5_ENABLED && LK3_ENABLED
328 pure elemental module subroutine setIntDef_IK5_LK3(conversion, val)
329#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
330 !DEC$ ATTRIBUTES DLLEXPORT :: setIntDef_IK5_LK3
331#endif
332 use pm_kind, only: IKG => IK5, LKG => LK3
333 integer(IKG) , intent(out) :: conversion
334 logical(LKG) , intent(in) :: val
335 end subroutine
336#endif
337
338#if IK5_ENABLED && LK2_ENABLED
339 pure elemental module subroutine setIntDef_IK5_LK2(conversion, val)
340#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
341 !DEC$ ATTRIBUTES DLLEXPORT :: setIntDef_IK5_LK2
342#endif
343 use pm_kind, only: IKG => IK5, LKG => LK2
344 integer(IKG) , intent(out) :: conversion
345 logical(LKG) , intent(in) :: val
346 end subroutine
347#endif
348
349#if IK5_ENABLED && LK1_ENABLED
350 pure elemental module subroutine setIntDef_IK5_LK1(conversion, val)
351#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
352 !DEC$ ATTRIBUTES DLLEXPORT :: setIntDef_IK5_LK1
353#endif
354 use pm_kind, only: IKG => IK5, LKG => LK1
355 integer(IKG) , intent(out) :: conversion
356 logical(LKG) , intent(in) :: val
357 end subroutine
358#endif
359
360 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
361
362#if IK5_ENABLED && SK5_ENABLED
363 pure elemental module subroutine setIntDef_IK5_SK5(conversion, val)
364#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
365 !DEC$ ATTRIBUTES DLLEXPORT :: setIntDef_IK5_SK5
366#endif
367 use pm_kind, only: IKG => IK5, SKG => SK5
368 integer(IKG) , intent(out) :: conversion
369 character(*,SKG) , intent(in) :: val
370 end subroutine
371#endif
372
373#if IK5_ENABLED && SK4_ENABLED
374 pure elemental module subroutine setIntDef_IK5_SK4(conversion, val)
375#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
376 !DEC$ ATTRIBUTES DLLEXPORT :: setIntDef_IK5_SK4
377#endif
378 use pm_kind, only: IKG => IK5, SKG => SK4
379 integer(IKG) , intent(out) :: conversion
380 character(*,SKG) , intent(in) :: val
381 end subroutine
382#endif
383
384#if IK5_ENABLED && SK3_ENABLED
385 pure elemental module subroutine setIntDef_IK5_SK3(conversion, val)
386#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
387 !DEC$ ATTRIBUTES DLLEXPORT :: setIntDef_IK5_SK3
388#endif
389 use pm_kind, only: IKG => IK5, SKG => SK3
390 integer(IKG) , intent(out) :: conversion
391 character(*,SKG) , intent(in) :: val
392 end subroutine
393#endif
394
395#if IK5_ENABLED && SK2_ENABLED
396 pure elemental module subroutine setIntDef_IK5_SK2(conversion, val)
397#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
398 !DEC$ ATTRIBUTES DLLEXPORT :: setIntDef_IK5_SK2
399#endif
400 use pm_kind, only: IKG => IK5, SKG => SK2
401 integer(IKG) , intent(out) :: conversion
402 character(*,SKG) , intent(in) :: val
403 end subroutine
404#endif
405
406#if IK5_ENABLED && SK1_ENABLED
407 pure elemental module subroutine setIntDef_IK5_SK1(conversion, val)
408#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
409 !DEC$ ATTRIBUTES DLLEXPORT :: setIntDef_IK5_SK1
410#endif
411 use pm_kind, only: IKG => IK5, SKG => SK1
412 integer(IKG) , intent(out) :: conversion
413 character(*,SKG) , intent(in) :: val
414 end subroutine
415#endif
416
417 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
418
419 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
420 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
421 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
422
423 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
424
425#if IK4_ENABLED && LK5_ENABLED
426 pure elemental module subroutine setIntDef_IK4_LK5(conversion, val)
427#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
428 !DEC$ ATTRIBUTES DLLEXPORT :: setIntDef_IK4_LK5
429#endif
430 use pm_kind, only: IKG => IK4, LKG => LK5
431 integer(IKG) , intent(out) :: conversion
432 logical(LKG) , intent(in) :: val
433 end subroutine
434#endif
435
436#if IK4_ENABLED && LK4_ENABLED
437 pure elemental module subroutine setIntDef_IK4_LK4(conversion, val)
438#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
439 !DEC$ ATTRIBUTES DLLEXPORT :: setIntDef_IK4_LK4
440#endif
441 use pm_kind, only: IKG => IK4, LKG => LK4
442 integer(IKG) , intent(out) :: conversion
443 logical(LKG) , intent(in) :: val
444 end subroutine
445#endif
446
447#if IK4_ENABLED && LK3_ENABLED
448 pure elemental module subroutine setIntDef_IK4_LK3(conversion, val)
449#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
450 !DEC$ ATTRIBUTES DLLEXPORT :: setIntDef_IK4_LK3
451#endif
452 use pm_kind, only: IKG => IK4, LKG => LK3
453 integer(IKG) , intent(out) :: conversion
454 logical(LKG) , intent(in) :: val
455 end subroutine
456#endif
457
458#if IK4_ENABLED && LK2_ENABLED
459 pure elemental module subroutine setIntDef_IK4_LK2(conversion, val)
460#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
461 !DEC$ ATTRIBUTES DLLEXPORT :: setIntDef_IK4_LK2
462#endif
463 use pm_kind, only: IKG => IK4, LKG => LK2
464 integer(IKG) , intent(out) :: conversion
465 logical(LKG) , intent(in) :: val
466 end subroutine
467#endif
468
469#if IK4_ENABLED && LK1_ENABLED
470 pure elemental module subroutine setIntDef_IK4_LK1(conversion, val)
471#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
472 !DEC$ ATTRIBUTES DLLEXPORT :: setIntDef_IK4_LK1
473#endif
474 use pm_kind, only: IKG => IK4, LKG => LK1
475 integer(IKG) , intent(out) :: conversion
476 logical(LKG) , intent(in) :: val
477 end subroutine
478#endif
479
480 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
481
482#if IK4_ENABLED && SK5_ENABLED
483 pure elemental module subroutine setIntDef_IK4_SK5(conversion, val)
484#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
485 !DEC$ ATTRIBUTES DLLEXPORT :: setIntDef_IK4_SK5
486#endif
487 use pm_kind, only: IKG => IK4, SKG => SK5
488 integer(IKG) , intent(out) :: conversion
489 character(*,SKG) , intent(in) :: val
490 end subroutine
491#endif
492
493#if IK4_ENABLED && SK4_ENABLED
494 pure elemental module subroutine setIntDef_IK4_SK4(conversion, val)
495#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
496 !DEC$ ATTRIBUTES DLLEXPORT :: setIntDef_IK4_SK4
497#endif
498 use pm_kind, only: IKG => IK4, SKG => SK4
499 integer(IKG) , intent(out) :: conversion
500 character(*,SKG) , intent(in) :: val
501 end subroutine
502#endif
503
504#if IK4_ENABLED && SK3_ENABLED
505 pure elemental module subroutine setIntDef_IK4_SK3(conversion, val)
506#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
507 !DEC$ ATTRIBUTES DLLEXPORT :: setIntDef_IK4_SK3
508#endif
509 use pm_kind, only: IKG => IK4, SKG => SK3
510 integer(IKG) , intent(out) :: conversion
511 character(*,SKG) , intent(in) :: val
512 end subroutine
513#endif
514
515#if IK4_ENABLED && SK2_ENABLED
516 pure elemental module subroutine setIntDef_IK4_SK2(conversion, val)
517#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
518 !DEC$ ATTRIBUTES DLLEXPORT :: setIntDef_IK4_SK2
519#endif
520 use pm_kind, only: IKG => IK4, SKG => SK2
521 integer(IKG) , intent(out) :: conversion
522 character(*,SKG) , intent(in) :: val
523 end subroutine
524#endif
525
526#if IK4_ENABLED && SK1_ENABLED
527 pure elemental module subroutine setIntDef_IK4_SK1(conversion, val)
528#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
529 !DEC$ ATTRIBUTES DLLEXPORT :: setIntDef_IK4_SK1
530#endif
531 use pm_kind, only: IKG => IK4, SKG => SK1
532 integer(IKG) , intent(out) :: conversion
533 character(*,SKG) , intent(in) :: val
534 end subroutine
535#endif
536
537 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
538
539 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
540 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
541 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
542
543 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
544
545#if IK3_ENABLED && LK5_ENABLED
546 pure elemental module subroutine setIntDef_IK3_LK5(conversion, val)
547#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
548 !DEC$ ATTRIBUTES DLLEXPORT :: setIntDef_IK3_LK5
549#endif
550 use pm_kind, only: IKG => IK3, LKG => LK5
551 integer(IKG) , intent(out) :: conversion
552 logical(LKG) , intent(in) :: val
553 end subroutine
554#endif
555
556#if IK3_ENABLED && LK4_ENABLED
557 pure elemental module subroutine setIntDef_IK3_LK4(conversion, val)
558#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
559 !DEC$ ATTRIBUTES DLLEXPORT :: setIntDef_IK3_LK4
560#endif
561 use pm_kind, only: IKG => IK3, LKG => LK4
562 integer(IKG) , intent(out) :: conversion
563 logical(LKG) , intent(in) :: val
564 end subroutine
565#endif
566
567#if IK3_ENABLED && LK3_ENABLED
568 pure elemental module subroutine setIntDef_IK3_LK3(conversion, val)
569#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
570 !DEC$ ATTRIBUTES DLLEXPORT :: setIntDef_IK3_LK3
571#endif
572 use pm_kind, only: IKG => IK3, LKG => LK3
573 integer(IKG) , intent(out) :: conversion
574 logical(LKG) , intent(in) :: val
575 end subroutine
576#endif
577
578#if IK3_ENABLED && LK2_ENABLED
579 pure elemental module subroutine setIntDef_IK3_LK2(conversion, val)
580#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
581 !DEC$ ATTRIBUTES DLLEXPORT :: setIntDef_IK3_LK2
582#endif
583 use pm_kind, only: IKG => IK3, LKG => LK2
584 integer(IKG) , intent(out) :: conversion
585 logical(LKG) , intent(in) :: val
586 end subroutine
587#endif
588
589#if IK3_ENABLED && LK1_ENABLED
590 pure elemental module subroutine setIntDef_IK3_LK1(conversion, val)
591#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
592 !DEC$ ATTRIBUTES DLLEXPORT :: setIntDef_IK3_LK1
593#endif
594 use pm_kind, only: IKG => IK3, LKG => LK1
595 integer(IKG) , intent(out) :: conversion
596 logical(LKG) , intent(in) :: val
597 end subroutine
598#endif
599
600 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
601
602#if IK3_ENABLED && SK5_ENABLED
603 pure elemental module subroutine setIntDef_IK3_SK5(conversion, val)
604#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
605 !DEC$ ATTRIBUTES DLLEXPORT :: setIntDef_IK3_SK5
606#endif
607 use pm_kind, only: IKG => IK3, SKG => SK5
608 integer(IKG) , intent(out) :: conversion
609 character(*,SKG) , intent(in) :: val
610 end subroutine
611#endif
612
613#if IK3_ENABLED && SK4_ENABLED
614 pure elemental module subroutine setIntDef_IK3_SK4(conversion, val)
615#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
616 !DEC$ ATTRIBUTES DLLEXPORT :: setIntDef_IK3_SK4
617#endif
618 use pm_kind, only: IKG => IK3, SKG => SK4
619 integer(IKG) , intent(out) :: conversion
620 character(*,SKG) , intent(in) :: val
621 end subroutine
622#endif
623
624#if IK3_ENABLED && SK3_ENABLED
625 pure elemental module subroutine setIntDef_IK3_SK3(conversion, val)
626#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
627 !DEC$ ATTRIBUTES DLLEXPORT :: setIntDef_IK3_SK3
628#endif
629 use pm_kind, only: IKG => IK3, SKG => SK3
630 integer(IKG) , intent(out) :: conversion
631 character(*,SKG) , intent(in) :: val
632 end subroutine
633#endif
634
635#if IK3_ENABLED && SK2_ENABLED
636 pure elemental module subroutine setIntDef_IK3_SK2(conversion, val)
637#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
638 !DEC$ ATTRIBUTES DLLEXPORT :: setIntDef_IK3_SK2
639#endif
640 use pm_kind, only: IKG => IK3, SKG => SK2
641 integer(IKG) , intent(out) :: conversion
642 character(*,SKG) , intent(in) :: val
643 end subroutine
644#endif
645
646#if IK3_ENABLED && SK1_ENABLED
647 pure elemental module subroutine setIntDef_IK3_SK1(conversion, val)
648#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
649 !DEC$ ATTRIBUTES DLLEXPORT :: setIntDef_IK3_SK1
650#endif
651 use pm_kind, only: IKG => IK3, SKG => SK1
652 integer(IKG) , intent(out) :: conversion
653 character(*,SKG) , intent(in) :: val
654 end subroutine
655#endif
656
657 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
658
659 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
660 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
661 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
662
663 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
664
665#if IK2_ENABLED && LK5_ENABLED
666 pure elemental module subroutine setIntDef_IK2_LK5(conversion, val)
667#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
668 !DEC$ ATTRIBUTES DLLEXPORT :: setIntDef_IK2_LK5
669#endif
670 use pm_kind, only: IKG => IK2, LKG => LK5
671 integer(IKG) , intent(out) :: conversion
672 logical(LKG) , intent(in) :: val
673 end subroutine
674#endif
675
676#if IK2_ENABLED && LK4_ENABLED
677 pure elemental module subroutine setIntDef_IK2_LK4(conversion, val)
678#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
679 !DEC$ ATTRIBUTES DLLEXPORT :: setIntDef_IK2_LK4
680#endif
681 use pm_kind, only: IKG => IK2, LKG => LK4
682 integer(IKG) , intent(out) :: conversion
683 logical(LKG) , intent(in) :: val
684 end subroutine
685#endif
686
687#if IK2_ENABLED && LK3_ENABLED
688 pure elemental module subroutine setIntDef_IK2_LK3(conversion, val)
689#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
690 !DEC$ ATTRIBUTES DLLEXPORT :: setIntDef_IK2_LK3
691#endif
692 use pm_kind, only: IKG => IK2, LKG => LK3
693 integer(IKG) , intent(out) :: conversion
694 logical(LKG) , intent(in) :: val
695 end subroutine
696#endif
697
698#if IK2_ENABLED && LK2_ENABLED
699 pure elemental module subroutine setIntDef_IK2_LK2(conversion, val)
700#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
701 !DEC$ ATTRIBUTES DLLEXPORT :: setIntDef_IK2_LK2
702#endif
703 use pm_kind, only: IKG => IK2, LKG => LK2
704 integer(IKG) , intent(out) :: conversion
705 logical(LKG) , intent(in) :: val
706 end subroutine
707#endif
708
709#if IK2_ENABLED && LK1_ENABLED
710 pure elemental module subroutine setIntDef_IK2_LK1(conversion, val)
711#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
712 !DEC$ ATTRIBUTES DLLEXPORT :: setIntDef_IK2_LK1
713#endif
714 use pm_kind, only: IKG => IK2, LKG => LK1
715 integer(IKG) , intent(out) :: conversion
716 logical(LKG) , intent(in) :: val
717 end subroutine
718#endif
719
720 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
721
722#if IK2_ENABLED && SK5_ENABLED
723 pure elemental module subroutine setIntDef_IK2_SK5(conversion, val)
724#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
725 !DEC$ ATTRIBUTES DLLEXPORT :: setIntDef_IK2_SK5
726#endif
727 use pm_kind, only: IKG => IK2, SKG => SK5
728 integer(IKG) , intent(out) :: conversion
729 character(*,SKG) , intent(in) :: val
730 end subroutine
731#endif
732
733#if IK2_ENABLED && SK4_ENABLED
734 pure elemental module subroutine setIntDef_IK2_SK4(conversion, val)
735#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
736 !DEC$ ATTRIBUTES DLLEXPORT :: setIntDef_IK2_SK4
737#endif
738 use pm_kind, only: IKG => IK2, SKG => SK4
739 integer(IKG) , intent(out) :: conversion
740 character(*,SKG) , intent(in) :: val
741 end subroutine
742#endif
743
744#if IK2_ENABLED && SK3_ENABLED
745 pure elemental module subroutine setIntDef_IK2_SK3(conversion, val)
746#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
747 !DEC$ ATTRIBUTES DLLEXPORT :: setIntDef_IK2_SK3
748#endif
749 use pm_kind, only: IKG => IK2, SKG => SK3
750 integer(IKG) , intent(out) :: conversion
751 character(*,SKG) , intent(in) :: val
752 end subroutine
753#endif
754
755#if IK2_ENABLED && SK2_ENABLED
756 pure elemental module subroutine setIntDef_IK2_SK2(conversion, val)
757#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
758 !DEC$ ATTRIBUTES DLLEXPORT :: setIntDef_IK2_SK2
759#endif
760 use pm_kind, only: IKG => IK2, SKG => SK2
761 integer(IKG) , intent(out) :: conversion
762 character(*,SKG) , intent(in) :: val
763 end subroutine
764#endif
765
766#if IK2_ENABLED && SK1_ENABLED
767 pure elemental module subroutine setIntDef_IK2_SK1(conversion, val)
768#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
769 !DEC$ ATTRIBUTES DLLEXPORT :: setIntDef_IK2_SK1
770#endif
771 use pm_kind, only: IKG => IK2, SKG => SK1
772 integer(IKG) , intent(out) :: conversion
773 character(*,SKG) , intent(in) :: val
774 end subroutine
775#endif
776
777 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
778
779 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
780 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
781 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
782
783 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
784
785#if IK1_ENABLED && LK5_ENABLED
786 pure elemental module subroutine setIntDef_IK1_LK5(conversion, val)
787#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
788 !DEC$ ATTRIBUTES DLLEXPORT :: setIntDef_IK1_LK5
789#endif
790 use pm_kind, only: IKG => IK1, LKG => LK5
791 integer(IKG) , intent(out) :: conversion
792 logical(LKG) , intent(in) :: val
793 end subroutine
794#endif
795
796#if IK1_ENABLED && LK4_ENABLED
797 pure elemental module subroutine setIntDef_IK1_LK4(conversion, val)
798#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
799 !DEC$ ATTRIBUTES DLLEXPORT :: setIntDef_IK1_LK4
800#endif
801 use pm_kind, only: IKG => IK1, LKG => LK4
802 integer(IKG) , intent(out) :: conversion
803 logical(LKG) , intent(in) :: val
804 end subroutine
805#endif
806
807#if IK1_ENABLED && LK3_ENABLED
808 pure elemental module subroutine setIntDef_IK1_LK3(conversion, val)
809#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
810 !DEC$ ATTRIBUTES DLLEXPORT :: setIntDef_IK1_LK3
811#endif
812 use pm_kind, only: IKG => IK1, LKG => LK3
813 integer(IKG) , intent(out) :: conversion
814 logical(LKG) , intent(in) :: val
815 end subroutine
816#endif
817
818#if IK1_ENABLED && LK2_ENABLED
819 pure elemental module subroutine setIntDef_IK1_LK2(conversion, val)
820#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
821 !DEC$ ATTRIBUTES DLLEXPORT :: setIntDef_IK1_LK2
822#endif
823 use pm_kind, only: IKG => IK1, LKG => LK2
824 integer(IKG) , intent(out) :: conversion
825 logical(LKG) , intent(in) :: val
826 end subroutine
827#endif
828
829#if IK1_ENABLED && LK1_ENABLED
830 pure elemental module subroutine setIntDef_IK1_LK1(conversion, val)
831#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
832 !DEC$ ATTRIBUTES DLLEXPORT :: setIntDef_IK1_LK1
833#endif
834 use pm_kind, only: IKG => IK1, LKG => LK1
835 integer(IKG) , intent(out) :: conversion
836 logical(LKG) , intent(in) :: val
837 end subroutine
838#endif
839
840 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
841
842#if IK1_ENABLED && SK5_ENABLED
843 pure elemental module subroutine setIntDef_IK1_SK5(conversion, val)
844#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
845 !DEC$ ATTRIBUTES DLLEXPORT :: setIntDef_IK1_SK5
846#endif
847 use pm_kind, only: IKG => IK1, SKG => SK5
848 integer(IKG) , intent(out) :: conversion
849 character(*,SKG) , intent(in) :: val
850 end subroutine
851#endif
852
853#if IK1_ENABLED && SK4_ENABLED
854 pure elemental module subroutine setIntDef_IK1_SK4(conversion, val)
855#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
856 !DEC$ ATTRIBUTES DLLEXPORT :: setIntDef_IK1_SK4
857#endif
858 use pm_kind, only: IKG => IK1, SKG => SK4
859 integer(IKG) , intent(out) :: conversion
860 character(*,SKG) , intent(in) :: val
861 end subroutine
862#endif
863
864#if IK1_ENABLED && SK3_ENABLED
865 pure elemental module subroutine setIntDef_IK1_SK3(conversion, val)
866#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
867 !DEC$ ATTRIBUTES DLLEXPORT :: setIntDef_IK1_SK3
868#endif
869 use pm_kind, only: IKG => IK1, SKG => SK3
870 integer(IKG) , intent(out) :: conversion
871 character(*,SKG) , intent(in) :: val
872 end subroutine
873#endif
874
875#if IK1_ENABLED && SK2_ENABLED
876 pure elemental module subroutine setIntDef_IK1_SK2(conversion, val)
877#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
878 !DEC$ ATTRIBUTES DLLEXPORT :: setIntDef_IK1_SK2
879#endif
880 use pm_kind, only: IKG => IK1, SKG => SK2
881 integer(IKG) , intent(out) :: conversion
882 character(*,SKG) , intent(in) :: val
883 end subroutine
884#endif
885
886#if IK1_ENABLED && SK1_ENABLED
887 pure elemental module subroutine setIntDef_IK1_SK1(conversion, val)
888#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
889 !DEC$ ATTRIBUTES DLLEXPORT :: setIntDef_IK1_SK1
890#endif
891 use pm_kind, only: IKG => IK1, SKG => SK1
892 integer(IKG) , intent(out) :: conversion
893 character(*,SKG) , intent(in) :: val
894 end subroutine
895#endif
896
897 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
898
899 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
900 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
901 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
902 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
903 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
904 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
905
906 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
907
908#if IK5_ENABLED && SK5_ENABLED
909 pure elemental module subroutine setIntErr_IK5_SK5(conversion, val, iostat)
910#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
911 !DEC$ ATTRIBUTES DLLEXPORT :: setIntErr_IK5_SK5
912#endif
913 use pm_kind, only: IKG => IK5, SKG => SK5
914 integer(IKG) , intent(out) :: conversion
915 character(*,SKG) , intent(in) :: val
916 integer(IK) , intent(out) :: iostat
917 end subroutine
918#endif
919
920#if IK5_ENABLED && SK4_ENABLED
921 pure elemental module subroutine setIntErr_IK5_SK4(conversion, val, iostat)
922#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
923 !DEC$ ATTRIBUTES DLLEXPORT :: setIntErr_IK5_SK4
924#endif
925 use pm_kind, only: IKG => IK5, SKG => SK4
926 integer(IKG) , intent(out) :: conversion
927 character(*,SKG) , intent(in) :: val
928 integer(IK) , intent(out) :: iostat
929 end subroutine
930#endif
931
932#if IK5_ENABLED && SK3_ENABLED
933 pure elemental module subroutine setIntErr_IK5_SK3(conversion, val, iostat)
934#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
935 !DEC$ ATTRIBUTES DLLEXPORT :: setIntErr_IK5_SK3
936#endif
937 use pm_kind, only: IKG => IK5, SKG => SK3
938 integer(IKG) , intent(out) :: conversion
939 character(*,SKG) , intent(in) :: val
940 integer(IK) , intent(out) :: iostat
941 end subroutine
942#endif
943
944#if IK5_ENABLED && SK2_ENABLED
945 pure elemental module subroutine setIntErr_IK5_SK2(conversion, val, iostat)
946#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
947 !DEC$ ATTRIBUTES DLLEXPORT :: setIntErr_IK5_SK2
948#endif
949 use pm_kind, only: IKG => IK5, SKG => SK2
950 integer(IKG) , intent(out) :: conversion
951 character(*,SKG) , intent(in) :: val
952 integer(IK) , intent(out) :: iostat
953 end subroutine
954#endif
955
956#if IK5_ENABLED && SK1_ENABLED
957 pure elemental module subroutine setIntErr_IK5_SK1(conversion, val, iostat)
958#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
959 !DEC$ ATTRIBUTES DLLEXPORT :: setIntErr_IK5_SK1
960#endif
961 use pm_kind, only: IKG => IK5, SKG => SK1
962 integer(IKG) , intent(out) :: conversion
963 character(*,SKG) , intent(in) :: val
964 integer(IK) , intent(out) :: iostat
965 end subroutine
966#endif
967
968 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
969
970 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
971 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
972 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
973
974 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
975
976#if IK4_ENABLED && SK5_ENABLED
977 pure elemental module subroutine setIntErr_IK4_SK5(conversion, val, iostat)
978#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
979 !DEC$ ATTRIBUTES DLLEXPORT :: setIntErr_IK4_SK5
980#endif
981 use pm_kind, only: IKG => IK4, SKG => SK5
982 integer(IKG) , intent(out) :: conversion
983 character(*,SKG) , intent(in) :: val
984 integer(IK) , intent(out) :: iostat
985 end subroutine
986#endif
987
988#if IK4_ENABLED && SK4_ENABLED
989 pure elemental module subroutine setIntErr_IK4_SK4(conversion, val, iostat)
990#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
991 !DEC$ ATTRIBUTES DLLEXPORT :: setIntErr_IK4_SK4
992#endif
993 use pm_kind, only: IKG => IK4, SKG => SK4
994 integer(IKG) , intent(out) :: conversion
995 character(*,SKG) , intent(in) :: val
996 integer(IK) , intent(out) :: iostat
997 end subroutine
998#endif
999
1000#if IK4_ENABLED && SK3_ENABLED
1001 pure elemental module subroutine setIntErr_IK4_SK3(conversion, val, iostat)
1002#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1003 !DEC$ ATTRIBUTES DLLEXPORT :: setIntErr_IK4_SK3
1004#endif
1005 use pm_kind, only: IKG => IK4, SKG => SK3
1006 integer(IKG) , intent(out) :: conversion
1007 character(*,SKG) , intent(in) :: val
1008 integer(IK) , intent(out) :: iostat
1009 end subroutine
1010#endif
1011
1012#if IK4_ENABLED && SK2_ENABLED
1013 pure elemental module subroutine setIntErr_IK4_SK2(conversion, val, iostat)
1014#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1015 !DEC$ ATTRIBUTES DLLEXPORT :: setIntErr_IK4_SK2
1016#endif
1017 use pm_kind, only: IKG => IK4, SKG => SK2
1018 integer(IKG) , intent(out) :: conversion
1019 character(*,SKG) , intent(in) :: val
1020 integer(IK) , intent(out) :: iostat
1021 end subroutine
1022#endif
1023
1024#if IK4_ENABLED && SK1_ENABLED
1025 pure elemental module subroutine setIntErr_IK4_SK1(conversion, val, iostat)
1026#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1027 !DEC$ ATTRIBUTES DLLEXPORT :: setIntErr_IK4_SK1
1028#endif
1029 use pm_kind, only: IKG => IK4, SKG => SK1
1030 integer(IKG) , intent(out) :: conversion
1031 character(*,SKG) , intent(in) :: val
1032 integer(IK) , intent(out) :: iostat
1033 end subroutine
1034#endif
1035
1036 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1037
1038 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1039 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1040 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1041
1042 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1043
1044#if IK3_ENABLED && SK5_ENABLED
1045 pure elemental module subroutine setIntErr_IK3_SK5(conversion, val, iostat)
1046#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1047 !DEC$ ATTRIBUTES DLLEXPORT :: setIntErr_IK3_SK5
1048#endif
1049 use pm_kind, only: IKG => IK3, SKG => SK5
1050 integer(IKG) , intent(out) :: conversion
1051 character(*,SKG) , intent(in) :: val
1052 integer(IK) , intent(out) :: iostat
1053 end subroutine
1054#endif
1055
1056#if IK3_ENABLED && SK4_ENABLED
1057 pure elemental module subroutine setIntErr_IK3_SK4(conversion, val, iostat)
1058#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1059 !DEC$ ATTRIBUTES DLLEXPORT :: setIntErr_IK3_SK4
1060#endif
1061 use pm_kind, only: IKG => IK3, SKG => SK4
1062 integer(IKG) , intent(out) :: conversion
1063 character(*,SKG) , intent(in) :: val
1064 integer(IK) , intent(out) :: iostat
1065 end subroutine
1066#endif
1067
1068#if IK3_ENABLED && SK3_ENABLED
1069 pure elemental module subroutine setIntErr_IK3_SK3(conversion, val, iostat)
1070#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1071 !DEC$ ATTRIBUTES DLLEXPORT :: setIntErr_IK3_SK3
1072#endif
1073 use pm_kind, only: IKG => IK3, SKG => SK3
1074 integer(IKG) , intent(out) :: conversion
1075 character(*,SKG) , intent(in) :: val
1076 integer(IK) , intent(out) :: iostat
1077 end subroutine
1078#endif
1079
1080#if IK3_ENABLED && SK2_ENABLED
1081 pure elemental module subroutine setIntErr_IK3_SK2(conversion, val, iostat)
1082#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1083 !DEC$ ATTRIBUTES DLLEXPORT :: setIntErr_IK3_SK2
1084#endif
1085 use pm_kind, only: IKG => IK3, SKG => SK2
1086 integer(IKG) , intent(out) :: conversion
1087 character(*,SKG) , intent(in) :: val
1088 integer(IK) , intent(out) :: iostat
1089 end subroutine
1090#endif
1091
1092#if IK3_ENABLED && SK1_ENABLED
1093 pure elemental module subroutine setIntErr_IK3_SK1(conversion, val, iostat)
1094#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1095 !DEC$ ATTRIBUTES DLLEXPORT :: setIntErr_IK3_SK1
1096#endif
1097 use pm_kind, only: IKG => IK3, SKG => SK1
1098 integer(IKG) , intent(out) :: conversion
1099 character(*,SKG) , intent(in) :: val
1100 integer(IK) , intent(out) :: iostat
1101 end subroutine
1102#endif
1103
1104 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1105
1106 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1107 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1108 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1109
1110 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1111
1112#if IK2_ENABLED && SK5_ENABLED
1113 pure elemental module subroutine setIntErr_IK2_SK5(conversion, val, iostat)
1114#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1115 !DEC$ ATTRIBUTES DLLEXPORT :: setIntErr_IK2_SK5
1116#endif
1117 use pm_kind, only: IKG => IK2, SKG => SK5
1118 integer(IKG) , intent(out) :: conversion
1119 character(*,SKG) , intent(in) :: val
1120 integer(IK) , intent(out) :: iostat
1121 end subroutine
1122#endif
1123
1124#if IK2_ENABLED && SK4_ENABLED
1125 pure elemental module subroutine setIntErr_IK2_SK4(conversion, val, iostat)
1126#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1127 !DEC$ ATTRIBUTES DLLEXPORT :: setIntErr_IK2_SK4
1128#endif
1129 use pm_kind, only: IKG => IK2, SKG => SK4
1130 integer(IKG) , intent(out) :: conversion
1131 character(*,SKG) , intent(in) :: val
1132 integer(IK) , intent(out) :: iostat
1133 end subroutine
1134#endif
1135
1136#if IK2_ENABLED && SK3_ENABLED
1137 pure elemental module subroutine setIntErr_IK2_SK3(conversion, val, iostat)
1138#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1139 !DEC$ ATTRIBUTES DLLEXPORT :: setIntErr_IK2_SK3
1140#endif
1141 use pm_kind, only: IKG => IK2, SKG => SK3
1142 integer(IKG) , intent(out) :: conversion
1143 character(*,SKG) , intent(in) :: val
1144 integer(IK) , intent(out) :: iostat
1145 end subroutine
1146#endif
1147
1148#if IK2_ENABLED && SK2_ENABLED
1149 pure elemental module subroutine setIntErr_IK2_SK2(conversion, val, iostat)
1150#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1151 !DEC$ ATTRIBUTES DLLEXPORT :: setIntErr_IK2_SK2
1152#endif
1153 use pm_kind, only: IKG => IK2, SKG => SK2
1154 integer(IKG) , intent(out) :: conversion
1155 character(*,SKG) , intent(in) :: val
1156 integer(IK) , intent(out) :: iostat
1157 end subroutine
1158#endif
1159
1160#if IK2_ENABLED && SK1_ENABLED
1161 pure elemental module subroutine setIntErr_IK2_SK1(conversion, val, iostat)
1162#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1163 !DEC$ ATTRIBUTES DLLEXPORT :: setIntErr_IK2_SK1
1164#endif
1165 use pm_kind, only: IKG => IK2, SKG => SK1
1166 integer(IKG) , intent(out) :: conversion
1167 character(*,SKG) , intent(in) :: val
1168 integer(IK) , intent(out) :: iostat
1169 end subroutine
1170#endif
1171
1172 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1173
1174 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1175 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1176 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1177
1178 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1179
1180#if IK1_ENABLED && SK5_ENABLED
1181 pure elemental module subroutine setIntErr_IK1_SK5(conversion, val, iostat)
1182#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1183 !DEC$ ATTRIBUTES DLLEXPORT :: setIntErr_IK1_SK5
1184#endif
1185 use pm_kind, only: IKG => IK1, SKG => SK5
1186 integer(IKG) , intent(out) :: conversion
1187 character(*,SKG) , intent(in) :: val
1188 integer(IK) , intent(out) :: iostat
1189 end subroutine
1190#endif
1191
1192#if IK1_ENABLED && SK4_ENABLED
1193 pure elemental module subroutine setIntErr_IK1_SK4(conversion, val, iostat)
1194#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1195 !DEC$ ATTRIBUTES DLLEXPORT :: setIntErr_IK1_SK4
1196#endif
1197 use pm_kind, only: IKG => IK1, SKG => SK4
1198 integer(IKG) , intent(out) :: conversion
1199 character(*,SKG) , intent(in) :: val
1200 integer(IK) , intent(out) :: iostat
1201 end subroutine
1202#endif
1203
1204#if IK1_ENABLED && SK3_ENABLED
1205 pure elemental module subroutine setIntErr_IK1_SK3(conversion, val, iostat)
1206#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1207 !DEC$ ATTRIBUTES DLLEXPORT :: setIntErr_IK1_SK3
1208#endif
1209 use pm_kind, only: IKG => IK1, SKG => SK3
1210 integer(IKG) , intent(out) :: conversion
1211 character(*,SKG) , intent(in) :: val
1212 integer(IK) , intent(out) :: iostat
1213 end subroutine
1214#endif
1215
1216#if IK1_ENABLED && SK2_ENABLED
1217 pure elemental module subroutine setIntErr_IK1_SK2(conversion, val, iostat)
1218#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1219 !DEC$ ATTRIBUTES DLLEXPORT :: setIntErr_IK1_SK2
1220#endif
1221 use pm_kind, only: IKG => IK1, SKG => SK2
1222 integer(IKG) , intent(out) :: conversion
1223 character(*,SKG) , intent(in) :: val
1224 integer(IK) , intent(out) :: iostat
1225 end subroutine
1226#endif
1227
1228#if IK1_ENABLED && SK1_ENABLED
1229 pure elemental module subroutine setIntErr_IK1_SK1(conversion, val, iostat)
1230#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1231 !DEC$ ATTRIBUTES DLLEXPORT :: setIntErr_IK1_SK1
1232#endif
1233 use pm_kind, only: IKG => IK1, SKG => SK1
1234 integer(IKG) , intent(out) :: conversion
1235 character(*,SKG) , intent(in) :: val
1236 integer(IK) , intent(out) :: iostat
1237 end subroutine
1238#endif
1239
1240 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1241
1242 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1243 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1244 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1245
1246 end interface
1247
1248!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1249
1250end module pm_val2int ! LCOV_EXCL_LINE
Generate and return the conversion of the input value to a integer value of default kind IK.
Definition: pm_val2int.F90:109
Return the conversion of the input value to a integer value of arbitrary kind.
Definition: pm_val2int.F90:297
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:268
integer, parameter SK5
Definition: pm_kind.F90:326
integer, parameter LK1
Definition: pm_kind.F90:412
integer, parameter IK3
Definition: pm_kind.F90:368
integer, parameter SK1
Definition: pm_kind.F90:346
integer, parameter IK1
Definition: pm_kind.F90:382
integer, parameter LK5
Definition: pm_kind.F90:392
integer, parameter LK2
Definition: pm_kind.F90:407
integer, parameter LK4
Definition: pm_kind.F90:397
integer, parameter SK4
Definition: pm_kind.F90:331
integer, parameter LK3
Definition: pm_kind.F90:402
integer, parameter IK2
Definition: pm_kind.F90:375
integer, parameter SK2
Definition: pm_kind.F90:341
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
integer, parameter IK4
Definition: pm_kind.F90:361
integer, parameter IK5
Definition: pm_kind.F90:354
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
integer, parameter SK3
Definition: pm_kind.F90:336
This module contains procedures and types for facilitating the conversion of values of different type...
Definition: pm_val2int.F90:43
character(*, SK), parameter MODULE_NAME
Definition: pm_val2int.F90:49