ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
pm_option.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
31
32!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
33
35
36 use pm_kind, only: SK, IK
37
38 implicit none
39
40 character(*, SK), parameter :: MODULE_NAME = "@pm_option"
41
42!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
43
135 interface getOption
136
137 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
138 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
139 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
140
141 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
142
143#if SK5_ENABLED
144 PURE elemental module function getOption_D0_SK5(default, optional) result(value)
145#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
146 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D0_SK5
147#endif
148 use pm_kind, only: SKG => SK5
149 character(*,SKG) , intent(in) :: default
150 character(*,SKG) , intent(in), optional :: optional
151 character(len(default, IK),SKG) :: value
152 end function
153#endif
154
155#if SK4_ENABLED
156 PURE elemental module function getOption_D0_SK4(default, optional) result(value)
157#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
158 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D0_SK4
159#endif
160 use pm_kind, only: SKG => SK4
161 character(*,SKG) , intent(in) :: default
162 character(*,SKG) , intent(in), optional :: optional
163 character(len(default, IK),SKG) :: value
164 end function
165#endif
166
167#if SK3_ENABLED
168 PURE elemental module function getOption_D0_SK3(default, optional) result(value)
169#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
170 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D0_SK3
171#endif
172 use pm_kind, only: SKG => SK3
173 character(*,SKG) , intent(in) :: default
174 character(*,SKG) , intent(in), optional :: optional
175 character(len(default, IK),SKG) :: value
176 end function
177#endif
178
179#if SK2_ENABLED
180 PURE elemental module function getOption_D0_SK2(default, optional) result(value)
181#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
182 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D0_SK2
183#endif
184 use pm_kind, only: SKG => SK2
185 character(*,SKG) , intent(in) :: default
186 character(*,SKG) , intent(in), optional :: optional
187 character(len(default, IK),SKG) :: value
188 end function
189#endif
190
191#if SK1_ENABLED
192 PURE elemental module function getOption_D0_SK1(default, optional) result(value)
193#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
194 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D0_SK1
195#endif
196 use pm_kind, only: SKG => SK1
197 character(*,SKG) , intent(in) :: default
198 character(*,SKG) , intent(in), optional :: optional
199 character(len(default, IK),SKG) :: value
200 end function
201#endif
202
203 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
204
205#if IK5_ENABLED
206 pure elemental module function getOption_D0_IK5(default, optional) result(value)
207#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
208 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D0_IK5
209#endif
210 use pm_kind, only: IKG => IK5
211 integer(IKG) , intent(in) :: default
212 integer(IKG) , intent(in), optional :: optional
213 integer(IKG) :: value
214 end function
215#endif
216
217#if IK4_ENABLED
218 pure elemental module function getOption_D0_IK4(default, optional) result(value)
219#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
220 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D0_IK4
221#endif
222 use pm_kind, only: IKG => IK4
223 integer(IKG) , intent(in) :: default
224 integer(IKG) , intent(in), optional :: optional
225 integer(IKG) :: value
226 end function
227#endif
228
229#if IK3_ENABLED
230 pure elemental module function getOption_D0_IK3(default, optional) result(value)
231#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
232 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D0_IK3
233#endif
234 use pm_kind, only: IKG => IK3
235 integer(IKG) , intent(in) :: default
236 integer(IKG) , intent(in), optional :: optional
237 integer(IKG) :: value
238 end function
239#endif
240
241#if IK2_ENABLED
242 pure elemental module function getOption_D0_IK2(default, optional) result(value)
243#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
244 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D0_IK2
245#endif
246 use pm_kind, only: IKG => IK2
247 integer(IKG) , intent(in) :: default
248 integer(IKG) , intent(in), optional :: optional
249 integer(IKG) :: value
250 end function
251#endif
252
253#if IK1_ENABLED
254 pure elemental module function getOption_D0_IK1(default, optional) result(value)
255#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
256 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D0_IK1
257#endif
258 use pm_kind, only: IKG => IK1
259 integer(IKG) , intent(in) :: default
260 integer(IKG) , intent(in), optional :: optional
261 integer(IKG) :: value
262 end function
263#endif
264
265 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
266
267#if LK5_ENABLED
268 pure elemental module function getOption_D0_LK5(default, optional) result(value)
269#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
270 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D0_LK5
271#endif
272 use pm_kind, only: LKG => LK5
273 logical(LKG) , intent(in) :: default
274 logical(LKG) , intent(in), optional :: optional
275 logical(LKG) :: value
276 end function
277#endif
278
279#if LK4_ENABLED
280 pure elemental module function getOption_D0_LK4(default, optional) result(value)
281#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
282 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D0_LK4
283#endif
284 use pm_kind, only: LKG => LK4
285 logical(LKG) , intent(in) :: default
286 logical(LKG) , intent(in), optional :: optional
287 logical(LKG) :: value
288 end function
289#endif
290
291#if LK3_ENABLED
292 pure elemental module function getOption_D0_LK3(default, optional) result(value)
293#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
294 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D0_LK3
295#endif
296 use pm_kind, only: LKG => LK3
297 logical(LKG) , intent(in) :: default
298 logical(LKG) , intent(in), optional :: optional
299 logical(LKG) :: value
300 end function
301#endif
302
303#if LK2_ENABLED
304 pure elemental module function getOption_D0_LK2(default, optional) result(value)
305#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
306 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D0_LK2
307#endif
308 use pm_kind, only: LKG => LK2
309 logical(LKG) , intent(in) :: default
310 logical(LKG) , intent(in), optional :: optional
311 logical(LKG) :: value
312 end function
313#endif
314
315#if LK1_ENABLED
316 pure elemental module function getOption_D0_LK1(default, optional) result(value)
317#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
318 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D0_LK1
319#endif
320 use pm_kind, only: LKG => LK1
321 logical(LKG) , intent(in) :: default
322 logical(LKG) , intent(in), optional :: optional
323 logical(LKG) :: value
324 end function
325#endif
326
327 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
328
329#if CK5_ENABLED
330 pure elemental module function getOption_D0_CK5(default, optional) result(value)
331#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
332 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D0_CK5
333#endif
334 use pm_kind, only: CKG => CK5
335 complex(CKG) , intent(in) :: default
336 complex(CKG) , intent(in), optional :: optional
337 complex(CKG) :: value
338 end function
339#endif
340
341#if CK4_ENABLED
342 pure elemental module function getOption_D0_CK4(default, optional) result(value)
343#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
344 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D0_CK4
345#endif
346 use pm_kind, only: CKG => CK4
347 complex(CKG) , intent(in) :: default
348 complex(CKG) , intent(in), optional :: optional
349 complex(CKG) :: value
350 end function
351#endif
352
353#if CK3_ENABLED
354 pure elemental module function getOption_D0_CK3(default, optional) result(value)
355#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
356 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D0_CK3
357#endif
358 use pm_kind, only: CKG => CK3
359 complex(CKG) , intent(in) :: default
360 complex(CKG) , intent(in), optional :: optional
361 complex(CKG) :: value
362 end function
363#endif
364
365#if CK2_ENABLED
366 pure elemental module function getOption_D0_CK2(default, optional) result(value)
367#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
368 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D0_CK2
369#endif
370 use pm_kind, only: CKG => CK2
371 complex(CKG) , intent(in) :: default
372 complex(CKG) , intent(in), optional :: optional
373 complex(CKG) :: value
374 end function
375#endif
376
377#if CK1_ENABLED
378 pure elemental module function getOption_D0_CK1(default, optional) result(value)
379#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
380 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D0_CK1
381#endif
382 use pm_kind, only: CKG => CK1
383 complex(CKG) , intent(in) :: default
384 complex(CKG) , intent(in), optional :: optional
385 complex(CKG) :: value
386 end function
387#endif
388
389 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
390
391#if RK5_ENABLED
392 pure elemental module function getOption_D0_RK5(default, optional) result(value)
393#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
394 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D0_RK5
395#endif
396 use pm_kind, only: RKG => RK5
397 real(RKG) , intent(in) :: default
398 real(RKG) , intent(in), optional :: optional
399 real(RKG) :: value
400 end function
401#endif
402
403#if RK4_ENABLED
404 pure elemental module function getOption_D0_RK4(default, optional) result(value)
405#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
406 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D0_RK4
407#endif
408 use pm_kind, only: RKG => RK4
409 real(RKG) , intent(in) :: default
410 real(RKG) , intent(in), optional :: optional
411 real(RKG) :: value
412 end function
413#endif
414
415#if RK3_ENABLED
416 pure elemental module function getOption_D0_RK3(default, optional) result(value)
417#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
418 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D0_RK3
419#endif
420 use pm_kind, only: RKG => RK3
421 real(RKG) , intent(in) :: default
422 real(RKG) , intent(in), optional :: optional
423 real(RKG) :: value
424 end function
425#endif
426
427#if RK2_ENABLED
428 pure elemental module function getOption_D0_RK2(default, optional) result(value)
429#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
430 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D0_RK2
431#endif
432 use pm_kind, only: RKG => RK2
433 real(RKG) , intent(in) :: default
434 real(RKG) , intent(in), optional :: optional
435 real(RKG) :: value
436 end function
437#endif
438
439#if RK1_ENABLED
440 pure elemental module function getOption_D0_RK1(default, optional) result(value)
441#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
442 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D0_RK1
443#endif
444 use pm_kind, only: RKG => RK1
445 real(RKG) , intent(in) :: default
446 real(RKG) , intent(in), optional :: optional
447 real(RKG) :: value
448 end function
449#endif
450
451 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
452
453 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
454 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
455 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
456
457 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
458
459#if SK5_ENABLED
460 PURE module function getOption_D1_SK5(default, optional) result(value)
461#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
462 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D1_SK5
463#endif
464 use pm_kind, only: SKG => SK5
465 character(*,SKG) , intent(in) :: default(:)
466 character(*,SKG) , intent(in), optional :: optional(:)
467 character(len(default),SKG) :: value(size(default, 1, IK))
468 end function
469#endif
470
471#if SK4_ENABLED
472 PURE module function getOption_D1_SK4(default, optional) result(value)
473#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
474 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D1_SK4
475#endif
476 use pm_kind, only: SKG => SK4
477 character(*,SKG) , intent(in) :: default(:)
478 character(*,SKG) , intent(in), optional :: optional(:)
479 character(len(default),SKG) :: value(size(default, 1, IK))
480 end function
481#endif
482
483#if SK3_ENABLED
484 PURE module function getOption_D1_SK3(default, optional) result(value)
485#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
486 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D1_SK3
487#endif
488 use pm_kind, only: SKG => SK3
489 character(*,SKG) , intent(in) :: default(:)
490 character(*,SKG) , intent(in), optional :: optional(:)
491 character(len(default),SKG) :: value(size(default, 1, IK))
492 end function
493#endif
494
495#if SK2_ENABLED
496 PURE module function getOption_D1_SK2(default, optional) result(value)
497#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
498 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D1_SK2
499#endif
500 use pm_kind, only: SKG => SK2
501 character(*,SKG) , intent(in) :: default(:)
502 character(*,SKG) , intent(in), optional :: optional(:)
503 character(len(default),SKG) :: value(size(default, 1, IK))
504 end function
505#endif
506
507#if SK1_ENABLED
508 PURE module function getOption_D1_SK1(default, optional) result(value)
509#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
510 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D1_SK1
511#endif
512 use pm_kind, only: SKG => SK1
513 character(*,SKG) , intent(in) :: default(:)
514 character(*,SKG) , intent(in), optional :: optional(:)
515 character(len(default),SKG) :: value(size(default, 1, IK))
516 end function
517#endif
518
519 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
520
521#if IK5_ENABLED
522 pure module function getOption_D1_IK5(default, optional) result(value)
523#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
524 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D1_IK5
525#endif
526 use pm_kind, only: IKG => IK5
527 integer(IKG) , intent(in) :: default(:)
528 integer(IKG) , intent(in), optional :: optional(:)
529 integer(IKG) :: value(size(default, 1, IK))
530 end function
531#endif
532
533#if IK4_ENABLED
534 pure module function getOption_D1_IK4(default, optional) result(value)
535#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
536 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D1_IK4
537#endif
538 use pm_kind, only: IKG => IK4
539 integer(IKG) , intent(in) :: default(:)
540 integer(IKG) , intent(in), optional :: optional(:)
541 integer(IKG) :: value(size(default, 1, IK))
542 end function
543#endif
544
545#if IK3_ENABLED
546 pure module function getOption_D1_IK3(default, optional) result(value)
547#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
548 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D1_IK3
549#endif
550 use pm_kind, only: IKG => IK3
551 integer(IKG) , intent(in) :: default(:)
552 integer(IKG) , intent(in), optional :: optional(:)
553 integer(IKG) :: value(size(default, 1, IK))
554 end function
555#endif
556
557#if IK2_ENABLED
558 pure module function getOption_D1_IK2(default, optional) result(value)
559#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
560 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D1_IK2
561#endif
562 use pm_kind, only: IKG => IK2
563 integer(IKG) , intent(in) :: default(:)
564 integer(IKG) , intent(in), optional :: optional(:)
565 integer(IKG) :: value(size(default, 1, IK))
566 end function
567#endif
568
569#if IK1_ENABLED
570 pure module function getOption_D1_IK1(default, optional) result(value)
571#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
572 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D1_IK1
573#endif
574 use pm_kind, only: IKG => IK1
575 integer(IKG) , intent(in) :: default(:)
576 integer(IKG) , intent(in), optional :: optional(:)
577 integer(IKG) :: value(size(default, 1, IK))
578 end function
579#endif
580
581 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
582
583#if LK5_ENABLED
584 pure module function getOption_D1_LK5(default, optional) result(value)
585#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
586 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D1_LK5
587#endif
588 use pm_kind, only: LKG => LK5
589 logical(LKG) , intent(in) :: default(:)
590 logical(LKG) , intent(in), optional :: optional(:)
591 logical(LKG) :: value(size(default, 1, IK))
592 end function
593#endif
594
595#if LK4_ENABLED
596 pure module function getOption_D1_LK4(default, optional) result(value)
597#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
598 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D1_LK4
599#endif
600 use pm_kind, only: LKG => LK4
601 logical(LKG) , intent(in) :: default(:)
602 logical(LKG) , intent(in), optional :: optional(:)
603 logical(LKG) :: value(size(default, 1, IK))
604 end function
605#endif
606
607#if LK3_ENABLED
608 pure module function getOption_D1_LK3(default, optional) result(value)
609#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
610 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D1_LK3
611#endif
612 use pm_kind, only: LKG => LK3
613 logical(LKG) , intent(in) :: default(:)
614 logical(LKG) , intent(in), optional :: optional(:)
615 logical(LKG) :: value(size(default, 1, IK))
616 end function
617#endif
618
619#if LK2_ENABLED
620 pure module function getOption_D1_LK2(default, optional) result(value)
621#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
622 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D1_LK2
623#endif
624 use pm_kind, only: LKG => LK2
625 logical(LKG) , intent(in) :: default(:)
626 logical(LKG) , intent(in), optional :: optional(:)
627 logical(LKG) :: value(size(default, 1, IK))
628 end function
629#endif
630
631#if LK1_ENABLED
632 pure module function getOption_D1_LK1(default, optional) result(value)
633#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
634 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D1_LK1
635#endif
636 use pm_kind, only: LKG => LK1
637 logical(LKG) , intent(in) :: default(:)
638 logical(LKG) , intent(in), optional :: optional(:)
639 logical(LKG) :: value(size(default, 1, IK))
640 end function
641#endif
642
643 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
644
645#if CK5_ENABLED
646 pure module function getOption_D1_CK5(default, optional) result(value)
647#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
648 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D1_CK5
649#endif
650 use pm_kind, only: CKG => CK5
651 complex(CKG) , intent(in) :: default(:)
652 complex(CKG) , intent(in), optional :: optional(:)
653 complex(CKG) :: value(size(default, 1, IK))
654 end function
655#endif
656
657#if CK4_ENABLED
658 pure module function getOption_D1_CK4(default, optional) result(value)
659#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
660 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D1_CK4
661#endif
662 use pm_kind, only: CKG => CK4
663 complex(CKG) , intent(in) :: default(:)
664 complex(CKG) , intent(in), optional :: optional(:)
665 complex(CKG) :: value(size(default, 1, IK))
666 end function
667#endif
668
669#if CK3_ENABLED
670 pure module function getOption_D1_CK3(default, optional) result(value)
671#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
672 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D1_CK3
673#endif
674 use pm_kind, only: CKG => CK3
675 complex(CKG) , intent(in) :: default(:)
676 complex(CKG) , intent(in), optional :: optional(:)
677 complex(CKG) :: value(size(default, 1, IK))
678 end function
679#endif
680
681#if CK2_ENABLED
682 pure module function getOption_D1_CK2(default, optional) result(value)
683#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
684 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D1_CK2
685#endif
686 use pm_kind, only: CKG => CK2
687 complex(CKG) , intent(in) :: default(:)
688 complex(CKG) , intent(in), optional :: optional(:)
689 complex(CKG) :: value(size(default, 1, IK))
690 end function
691#endif
692
693#if CK1_ENABLED
694 pure module function getOption_D1_CK1(default, optional) result(value)
695#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
696 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D1_CK1
697#endif
698 use pm_kind, only: CKG => CK1
699 complex(CKG) , intent(in) :: default(:)
700 complex(CKG) , intent(in), optional :: optional(:)
701 complex(CKG) :: value(size(default, 1, IK))
702 end function
703#endif
704
705 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
706
707#if RK5_ENABLED
708 pure module function getOption_D1_RK5(default, optional) result(value)
709#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
710 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D1_RK5
711#endif
712 use pm_kind, only: RKG => RK5
713 real(RKG) , intent(in) :: default(:)
714 real(RKG) , intent(in), optional :: optional(:)
715 real(RKG) :: value(size(default, 1, IK))
716 end function
717#endif
718
719#if RK4_ENABLED
720 pure module function getOption_D1_RK4(default, optional) result(value)
721#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
722 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D1_RK4
723#endif
724 use pm_kind, only: RKG => RK4
725 real(RKG) , intent(in) :: default(:)
726 real(RKG) , intent(in), optional :: optional(:)
727 real(RKG) :: value(size(default, 1, IK))
728 end function
729#endif
730
731#if RK3_ENABLED
732 pure module function getOption_D1_RK3(default, optional) result(value)
733#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
734 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D1_RK3
735#endif
736 use pm_kind, only: RKG => RK3
737 real(RKG) , intent(in) :: default(:)
738 real(RKG) , intent(in), optional :: optional(:)
739 real(RKG) :: value(size(default, 1, IK))
740 end function
741#endif
742
743#if RK2_ENABLED
744 pure module function getOption_D1_RK2(default, optional) result(value)
745#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
746 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D1_RK2
747#endif
748 use pm_kind, only: RKG => RK2
749 real(RKG) , intent(in) :: default(:)
750 real(RKG) , intent(in), optional :: optional(:)
751 real(RKG) :: value(size(default, 1, IK))
752 end function
753#endif
754
755#if RK1_ENABLED
756 pure module function getOption_D1_RK1(default, optional) result(value)
757#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
758 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D1_RK1
759#endif
760 use pm_kind, only: RKG => RK1
761 real(RKG) , intent(in) :: default(:)
762 real(RKG) , intent(in), optional :: optional(:)
763 real(RKG) :: value(size(default, 1, IK))
764 end function
765#endif
766
767 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
768
769 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
770 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
771 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
772
773 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
774
775#if SK5_ENABLED
776 PURE module function getOption_D2_SK5(default, optional) result(value)
777#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
778 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D2_SK5
779#endif
780 use pm_kind, only: SKG => SK5
781 character(*,SKG) , intent(in) :: default(:,:)
782 character(*,SKG) , intent(in), optional :: optional(:,:)
783 character(len(default),SKG) :: value(size(default, 1, IK), size(default,2,IK))
784 end function
785#endif
786
787#if SK4_ENABLED
788 PURE module function getOption_D2_SK4(default, optional) result(value)
789#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
790 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D2_SK4
791#endif
792 use pm_kind, only: SKG => SK4
793 character(*,SKG) , intent(in) :: default(:,:)
794 character(*,SKG) , intent(in), optional :: optional(:,:)
795 character(len(default),SKG) :: value(size(default, 1, IK), size(default,2,IK))
796 end function
797#endif
798
799#if SK3_ENABLED
800 PURE module function getOption_D2_SK3(default, optional) result(value)
801#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
802 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D2_SK3
803#endif
804 use pm_kind, only: SKG => SK3
805 character(*,SKG) , intent(in) :: default(:,:)
806 character(*,SKG) , intent(in), optional :: optional(:,:)
807 character(len(default),SKG) :: value(size(default, 1, IK), size(default,2,IK))
808 end function
809#endif
810
811#if SK2_ENABLED
812 PURE module function getOption_D2_SK2(default, optional) result(value)
813#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
814 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D2_SK2
815#endif
816 use pm_kind, only: SKG => SK2
817 character(*,SKG) , intent(in) :: default(:,:)
818 character(*,SKG) , intent(in), optional :: optional(:,:)
819 character(len(default),SKG) :: value(size(default, 1, IK), size(default,2,IK))
820 end function
821#endif
822
823#if SK1_ENABLED
824 PURE module function getOption_D2_SK1(default, optional) result(value)
825#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
826 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D2_SK1
827#endif
828 use pm_kind, only: SKG => SK1
829 character(*,SKG) , intent(in) :: default(:,:)
830 character(*,SKG) , intent(in), optional :: optional(:,:)
831 character(len(default),SKG) :: value(size(default, 1, IK), size(default,2,IK))
832 end function
833#endif
834
835 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
836
837#if IK5_ENABLED
838 pure module function getOption_D2_IK5(default, optional) result(value)
839#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
840 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D2_IK5
841#endif
842 use pm_kind, only: IKG => IK5
843 integer(IKG) , intent(in) :: default(:,:)
844 integer(IKG) , intent(in), optional :: optional(:,:)
845 integer(IKG) :: value(size(default, 1, IK), size(default,2,IK))
846 end function
847#endif
848
849#if IK4_ENABLED
850 pure module function getOption_D2_IK4(default, optional) result(value)
851#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
852 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D2_IK4
853#endif
854 use pm_kind, only: IKG => IK4
855 integer(IKG) , intent(in) :: default(:,:)
856 integer(IKG) , intent(in), optional :: optional(:,:)
857 integer(IKG) :: value(size(default, 1, IK), size(default,2,IK))
858 end function
859#endif
860
861#if IK3_ENABLED
862 pure module function getOption_D2_IK3(default, optional) result(value)
863#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
864 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D2_IK3
865#endif
866 use pm_kind, only: IKG => IK3
867 integer(IKG) , intent(in) :: default(:,:)
868 integer(IKG) , intent(in), optional :: optional(:,:)
869 integer(IKG) :: value(size(default, 1, IK), size(default,2,IK))
870 end function
871#endif
872
873#if IK2_ENABLED
874 pure module function getOption_D2_IK2(default, optional) result(value)
875#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
876 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D2_IK2
877#endif
878 use pm_kind, only: IKG => IK2
879 integer(IKG) , intent(in) :: default(:,:)
880 integer(IKG) , intent(in), optional :: optional(:,:)
881 integer(IKG) :: value(size(default, 1, IK), size(default,2,IK))
882 end function
883#endif
884
885#if IK1_ENABLED
886 pure module function getOption_D2_IK1(default, optional) result(value)
887#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
888 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D2_IK1
889#endif
890 use pm_kind, only: IKG => IK1
891 integer(IKG) , intent(in) :: default(:,:)
892 integer(IKG) , intent(in), optional :: optional(:,:)
893 integer(IKG) :: value(size(default, 1, IK), size(default,2,IK))
894 end function
895#endif
896
897 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
898
899#if LK5_ENABLED
900 pure module function getOption_D2_LK5(default, optional) result(value)
901#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
902 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D2_LK5
903#endif
904 use pm_kind, only: LKG => LK5
905 logical(LKG) , intent(in) :: default(:,:)
906 logical(LKG) , intent(in), optional :: optional(:,:)
907 logical(LKG) :: value(size(default, 1, IK), size(default,2,IK))
908 end function
909#endif
910
911#if LK4_ENABLED
912 pure module function getOption_D2_LK4(default, optional) result(value)
913#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
914 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D2_LK4
915#endif
916 use pm_kind, only: LKG => LK4
917 logical(LKG) , intent(in) :: default(:,:)
918 logical(LKG) , intent(in), optional :: optional(:,:)
919 logical(LKG) :: value(size(default, 1, IK), size(default,2,IK))
920 end function
921#endif
922
923#if LK3_ENABLED
924 pure module function getOption_D2_LK3(default, optional) result(value)
925#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
926 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D2_LK3
927#endif
928 use pm_kind, only: LKG => LK3
929 logical(LKG) , intent(in) :: default(:,:)
930 logical(LKG) , intent(in), optional :: optional(:,:)
931 logical(LKG) :: value(size(default, 1, IK), size(default,2,IK))
932 end function
933#endif
934
935#if LK2_ENABLED
936 pure module function getOption_D2_LK2(default, optional) result(value)
937#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
938 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D2_LK2
939#endif
940 use pm_kind, only: LKG => LK2
941 logical(LKG) , intent(in) :: default(:,:)
942 logical(LKG) , intent(in), optional :: optional(:,:)
943 logical(LKG) :: value(size(default, 1, IK), size(default,2,IK))
944 end function
945#endif
946
947#if LK1_ENABLED
948 pure module function getOption_D2_LK1(default, optional) result(value)
949#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
950 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D2_LK1
951#endif
952 use pm_kind, only: LKG => LK1
953 logical(LKG) , intent(in) :: default(:,:)
954 logical(LKG) , intent(in), optional :: optional(:,:)
955 logical(LKG) :: value(size(default, 1, IK), size(default,2,IK))
956 end function
957#endif
958
959 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
960
961#if CK5_ENABLED
962 pure module function getOption_D2_CK5(default, optional) result(value)
963#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
964 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D2_CK5
965#endif
966 use pm_kind, only: CKG => CK5
967 complex(CKG) , intent(in) :: default(:,:)
968 complex(CKG) , intent(in), optional :: optional(:,:)
969 complex(CKG) :: value(size(default, 1, IK), size(default,2,IK))
970 end function
971#endif
972
973#if CK4_ENABLED
974 pure module function getOption_D2_CK4(default, optional) result(value)
975#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
976 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D2_CK4
977#endif
978 use pm_kind, only: CKG => CK4
979 complex(CKG) , intent(in) :: default(:,:)
980 complex(CKG) , intent(in), optional :: optional(:,:)
981 complex(CKG) :: value(size(default, 1, IK), size(default,2,IK))
982 end function
983#endif
984
985#if CK3_ENABLED
986 pure module function getOption_D2_CK3(default, optional) result(value)
987#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
988 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D2_CK3
989#endif
990 use pm_kind, only: CKG => CK3
991 complex(CKG) , intent(in) :: default(:,:)
992 complex(CKG) , intent(in), optional :: optional(:,:)
993 complex(CKG) :: value(size(default, 1, IK), size(default,2,IK))
994 end function
995#endif
996
997#if CK2_ENABLED
998 pure module function getOption_D2_CK2(default, optional) result(value)
999#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1000 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D2_CK2
1001#endif
1002 use pm_kind, only: CKG => CK2
1003 complex(CKG) , intent(in) :: default(:,:)
1004 complex(CKG) , intent(in), optional :: optional(:,:)
1005 complex(CKG) :: value(size(default, 1, IK), size(default,2,IK))
1006 end function
1007#endif
1008
1009#if CK1_ENABLED
1010 pure module function getOption_D2_CK1(default, optional) result(value)
1011#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1012 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D2_CK1
1013#endif
1014 use pm_kind, only: CKG => CK1
1015 complex(CKG) , intent(in) :: default(:,:)
1016 complex(CKG) , intent(in), optional :: optional(:,:)
1017 complex(CKG) :: value(size(default, 1, IK), size(default,2,IK))
1018 end function
1019#endif
1020
1021 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1022
1023#if RK5_ENABLED
1024 pure module function getOption_D2_RK5(default, optional) result(value)
1025#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1026 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D2_RK5
1027#endif
1028 use pm_kind, only: RKG => RK5
1029 real(RKG) , intent(in) :: default(:,:)
1030 real(RKG) , intent(in), optional :: optional(:,:)
1031 real(RKG) :: value(size(default, 1, IK), size(default,2,IK))
1032 end function
1033#endif
1034
1035#if RK4_ENABLED
1036 pure module function getOption_D2_RK4(default, optional) result(value)
1037#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1038 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D2_RK4
1039#endif
1040 use pm_kind, only: RKG => RK4
1041 real(RKG) , intent(in) :: default(:,:)
1042 real(RKG) , intent(in), optional :: optional(:,:)
1043 real(RKG) :: value(size(default, 1, IK), size(default,2,IK))
1044 end function
1045#endif
1046
1047#if RK3_ENABLED
1048 pure module function getOption_D2_RK3(default, optional) result(value)
1049#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1050 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D2_RK3
1051#endif
1052 use pm_kind, only: RKG => RK3
1053 real(RKG) , intent(in) :: default(:,:)
1054 real(RKG) , intent(in), optional :: optional(:,:)
1055 real(RKG) :: value(size(default, 1, IK), size(default,2,IK))
1056 end function
1057#endif
1058
1059#if RK2_ENABLED
1060 pure module function getOption_D2_RK2(default, optional) result(value)
1061#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1062 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D2_RK2
1063#endif
1064 use pm_kind, only: RKG => RK2
1065 real(RKG) , intent(in) :: default(:,:)
1066 real(RKG) , intent(in), optional :: optional(:,:)
1067 real(RKG) :: value(size(default, 1, IK), size(default,2,IK))
1068 end function
1069#endif
1070
1071#if RK1_ENABLED
1072 pure module function getOption_D2_RK1(default, optional) result(value)
1073#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1074 !DEC$ ATTRIBUTES DLLEXPORT :: getOption_D2_RK1
1075#endif
1076 use pm_kind, only: RKG => RK1
1077 real(RKG) , intent(in) :: default(:,:)
1078 real(RKG) , intent(in), optional :: optional(:,:)
1079 real(RKG) :: value(size(default, 1, IK), size(default,2,IK))
1080 end function
1081#endif
1082
1083 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1084
1085 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1086 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1087 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1088
1089 end interface
1090
1091!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1092
1093end module pm_option
Generate and return the value of the optional input argument if it is present, otherwise,...
Definition: pm_option.F90:135
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 RK5
Definition: pm_kind.F90:478
integer, parameter RK4
Definition: pm_kind.F90:489
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 RK2
Definition: pm_kind.F90:511
integer, parameter CK1
Definition: pm_kind.F90:464
integer, parameter RK3
Definition: pm_kind.F90:500
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 CK4
Definition: pm_kind.F90:431
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 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 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 RK1
Definition: pm_kind.F90:522
integer, parameter SK3
Definition: pm_kind.F90:336
This module contains procedures, generic interfaces, and types for generating default values for opti...
Definition: pm_option.F90:34
character(*, SK), parameter MODULE_NAME
Definition: pm_option.F90:40