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