ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
pm_mathNumSys.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
30
31!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
32
34
35 use pm_kind, only: SK, IK, LK
36
37 implicit none
38
39 character(*, SK), parameter :: MODULE_NAME = "@pm_mathNumSys"
40
41!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
42
96 interface getDecimal
97
98 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
99
100#if SK5_ENABLED && IK5_ENABLED
101 PURE elemental module function getDecimal_SK5_IK5(numeral, base) result(decimal)
102#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
103 !DEC$ ATTRIBUTES DLLEXPORT :: getDecimal_SK5_IK5
104#endif
105 use pm_kind, only: SKG => SK5, IKG => IK5
106 character(*,SKG) , intent(in) :: numeral
107 integer(IKG) , intent(in) :: base
108 integer(IKG) :: decimal
109 end function
110#endif
111
112#if SK5_ENABLED && IK4_ENABLED
113 PURE elemental module function getDecimal_SK5_IK4(numeral, base) result(decimal)
114#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
115 !DEC$ ATTRIBUTES DLLEXPORT :: getDecimal_SK5_IK4
116#endif
117 use pm_kind, only: SKG => SK5, IKG => IK4
118 character(*,SKG) , intent(in) :: numeral
119 integer(IKG) , intent(in) :: base
120 integer(IKG) :: decimal
121 end function
122#endif
123
124#if SK5_ENABLED && IK3_ENABLED
125 PURE elemental module function getDecimal_SK5_IK3(numeral, base) result(decimal)
126#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
127 !DEC$ ATTRIBUTES DLLEXPORT :: getDecimal_SK5_IK3
128#endif
129 use pm_kind, only: SKG => SK5, IKG => IK3
130 character(*,SKG) , intent(in) :: numeral
131 integer(IKG) , intent(in) :: base
132 integer(IKG) :: decimal
133 end function
134#endif
135
136#if SK5_ENABLED && IK2_ENABLED
137 PURE elemental module function getDecimal_SK5_IK2(numeral, base) result(decimal)
138#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
139 !DEC$ ATTRIBUTES DLLEXPORT :: getDecimal_SK5_IK2
140#endif
141 use pm_kind, only: SKG => SK5, IKG => IK2
142 character(*,SKG) , intent(in) :: numeral
143 integer(IKG) , intent(in) :: base
144 integer(IKG) :: decimal
145 end function
146#endif
147
148#if SK5_ENABLED && IK1_ENABLED
149 PURE elemental module function getDecimal_SK5_IK1(numeral, base) result(decimal)
150#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
151 !DEC$ ATTRIBUTES DLLEXPORT :: getDecimal_SK5_IK1
152#endif
153 use pm_kind, only: SKG => SK5, IKG => IK1
154 character(*,SKG) , intent(in) :: numeral
155 integer(IKG) , intent(in) :: base
156 integer(IKG) :: decimal
157 end function
158#endif
159
160 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
161
162#if SK4_ENABLED && IK5_ENABLED
163 PURE elemental module function getDecimal_SK4_IK5(numeral, base) result(decimal)
164#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
165 !DEC$ ATTRIBUTES DLLEXPORT :: getDecimal_SK4_IK5
166#endif
167 use pm_kind, only: SKG => SK4, IKG => IK5
168 character(*,SKG) , intent(in) :: numeral
169 integer(IKG) , intent(in) :: base
170 integer(IKG) :: decimal
171 end function
172#endif
173
174#if SK4_ENABLED && IK4_ENABLED
175 PURE elemental module function getDecimal_SK4_IK4(numeral, base) result(decimal)
176#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
177 !DEC$ ATTRIBUTES DLLEXPORT :: getDecimal_SK4_IK4
178#endif
179 use pm_kind, only: SKG => SK4, IKG => IK4
180 character(*,SKG) , intent(in) :: numeral
181 integer(IKG) , intent(in) :: base
182 integer(IKG) :: decimal
183 end function
184#endif
185
186#if SK4_ENABLED && IK3_ENABLED
187 PURE elemental module function getDecimal_SK4_IK3(numeral, base) result(decimal)
188#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
189 !DEC$ ATTRIBUTES DLLEXPORT :: getDecimal_SK4_IK3
190#endif
191 use pm_kind, only: SKG => SK4, IKG => IK3
192 character(*,SKG) , intent(in) :: numeral
193 integer(IKG) , intent(in) :: base
194 integer(IKG) :: decimal
195 end function
196#endif
197
198#if SK4_ENABLED && IK2_ENABLED
199 PURE elemental module function getDecimal_SK4_IK2(numeral, base) result(decimal)
200#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
201 !DEC$ ATTRIBUTES DLLEXPORT :: getDecimal_SK4_IK2
202#endif
203 use pm_kind, only: SKG => SK4, IKG => IK2
204 character(*,SKG) , intent(in) :: numeral
205 integer(IKG) , intent(in) :: base
206 integer(IKG) :: decimal
207 end function
208#endif
209
210#if SK4_ENABLED && IK1_ENABLED
211 PURE elemental module function getDecimal_SK4_IK1(numeral, base) result(decimal)
212#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
213 !DEC$ ATTRIBUTES DLLEXPORT :: getDecimal_SK4_IK1
214#endif
215 use pm_kind, only: SKG => SK4, IKG => IK1
216 character(*,SKG) , intent(in) :: numeral
217 integer(IKG) , intent(in) :: base
218 integer(IKG) :: decimal
219 end function
220#endif
221
222 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
223
224#if SK3_ENABLED && IK5_ENABLED
225 PURE elemental module function getDecimal_SK3_IK5(numeral, base) result(decimal)
226#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
227 !DEC$ ATTRIBUTES DLLEXPORT :: getDecimal_SK3_IK5
228#endif
229 use pm_kind, only: SKG => SK3, IKG => IK5
230 character(*,SKG) , intent(in) :: numeral
231 integer(IKG) , intent(in) :: base
232 integer(IKG) :: decimal
233 end function
234#endif
235
236#if SK3_ENABLED && IK4_ENABLED
237 PURE elemental module function getDecimal_SK3_IK4(numeral, base) result(decimal)
238#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
239 !DEC$ ATTRIBUTES DLLEXPORT :: getDecimal_SK3_IK4
240#endif
241 use pm_kind, only: SKG => SK3, IKG => IK4
242 character(*,SKG) , intent(in) :: numeral
243 integer(IKG) , intent(in) :: base
244 integer(IKG) :: decimal
245 end function
246#endif
247
248#if SK3_ENABLED && IK3_ENABLED
249 PURE elemental module function getDecimal_SK3_IK3(numeral, base) result(decimal)
250#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
251 !DEC$ ATTRIBUTES DLLEXPORT :: getDecimal_SK3_IK3
252#endif
253 use pm_kind, only: SKG => SK3, IKG => IK3
254 character(*,SKG) , intent(in) :: numeral
255 integer(IKG) , intent(in) :: base
256 integer(IKG) :: decimal
257 end function
258#endif
259
260#if SK3_ENABLED && IK2_ENABLED
261 PURE elemental module function getDecimal_SK3_IK2(numeral, base) result(decimal)
262#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
263 !DEC$ ATTRIBUTES DLLEXPORT :: getDecimal_SK3_IK2
264#endif
265 use pm_kind, only: SKG => SK3, IKG => IK2
266 character(*,SKG) , intent(in) :: numeral
267 integer(IKG) , intent(in) :: base
268 integer(IKG) :: decimal
269 end function
270#endif
271
272#if SK3_ENABLED && IK1_ENABLED
273 PURE elemental module function getDecimal_SK3_IK1(numeral, base) result(decimal)
274#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
275 !DEC$ ATTRIBUTES DLLEXPORT :: getDecimal_SK3_IK1
276#endif
277 use pm_kind, only: SKG => SK3, IKG => IK1
278 character(*,SKG) , intent(in) :: numeral
279 integer(IKG) , intent(in) :: base
280 integer(IKG) :: decimal
281 end function
282#endif
283
284 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
285
286#if SK2_ENABLED && IK5_ENABLED
287 PURE elemental module function getDecimal_SK2_IK5(numeral, base) result(decimal)
288#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
289 !DEC$ ATTRIBUTES DLLEXPORT :: getDecimal_SK2_IK5
290#endif
291 use pm_kind, only: SKG => SK2, IKG => IK5
292 character(*,SKG) , intent(in) :: numeral
293 integer(IKG) , intent(in) :: base
294 integer(IKG) :: decimal
295 end function
296#endif
297
298#if SK2_ENABLED && IK4_ENABLED
299 PURE elemental module function getDecimal_SK2_IK4(numeral, base) result(decimal)
300#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
301 !DEC$ ATTRIBUTES DLLEXPORT :: getDecimal_SK2_IK4
302#endif
303 use pm_kind, only: SKG => SK2, IKG => IK4
304 character(*,SKG) , intent(in) :: numeral
305 integer(IKG) , intent(in) :: base
306 integer(IKG) :: decimal
307 end function
308#endif
309
310#if SK2_ENABLED && IK3_ENABLED
311 PURE elemental module function getDecimal_SK2_IK3(numeral, base) result(decimal)
312#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
313 !DEC$ ATTRIBUTES DLLEXPORT :: getDecimal_SK2_IK3
314#endif
315 use pm_kind, only: SKG => SK2, IKG => IK3
316 character(*,SKG) , intent(in) :: numeral
317 integer(IKG) , intent(in) :: base
318 integer(IKG) :: decimal
319 end function
320#endif
321
322#if SK2_ENABLED && IK2_ENABLED
323 PURE elemental module function getDecimal_SK2_IK2(numeral, base) result(decimal)
324#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
325 !DEC$ ATTRIBUTES DLLEXPORT :: getDecimal_SK2_IK2
326#endif
327 use pm_kind, only: SKG => SK2, IKG => IK2
328 character(*,SKG) , intent(in) :: numeral
329 integer(IKG) , intent(in) :: base
330 integer(IKG) :: decimal
331 end function
332#endif
333
334#if SK2_ENABLED && IK1_ENABLED
335 PURE elemental module function getDecimal_SK2_IK1(numeral, base) result(decimal)
336#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
337 !DEC$ ATTRIBUTES DLLEXPORT :: getDecimal_SK2_IK1
338#endif
339 use pm_kind, only: SKG => SK2, IKG => IK1
340 character(*,SKG) , intent(in) :: numeral
341 integer(IKG) , intent(in) :: base
342 integer(IKG) :: decimal
343 end function
344#endif
345
346 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
347
348#if SK1_ENABLED && IK5_ENABLED
349 PURE elemental module function getDecimal_SK1_IK5(numeral, base) result(decimal)
350#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
351 !DEC$ ATTRIBUTES DLLEXPORT :: getDecimal_SK1_IK5
352#endif
353 use pm_kind, only: SKG => SK1, IKG => IK5
354 character(*,SKG) , intent(in) :: numeral
355 integer(IKG) , intent(in) :: base
356 integer(IKG) :: decimal
357 end function
358#endif
359
360#if SK1_ENABLED && IK4_ENABLED
361 PURE elemental module function getDecimal_SK1_IK4(numeral, base) result(decimal)
362#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
363 !DEC$ ATTRIBUTES DLLEXPORT :: getDecimal_SK1_IK4
364#endif
365 use pm_kind, only: SKG => SK1, IKG => IK4
366 character(*,SKG) , intent(in) :: numeral
367 integer(IKG) , intent(in) :: base
368 integer(IKG) :: decimal
369 end function
370#endif
371
372#if SK1_ENABLED && IK3_ENABLED
373 PURE elemental module function getDecimal_SK1_IK3(numeral, base) result(decimal)
374#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
375 !DEC$ ATTRIBUTES DLLEXPORT :: getDecimal_SK1_IK3
376#endif
377 use pm_kind, only: SKG => SK1, IKG => IK3
378 character(*,SKG) , intent(in) :: numeral
379 integer(IKG) , intent(in) :: base
380 integer(IKG) :: decimal
381 end function
382#endif
383
384#if SK1_ENABLED && IK2_ENABLED
385 PURE elemental module function getDecimal_SK1_IK2(numeral, base) result(decimal)
386#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
387 !DEC$ ATTRIBUTES DLLEXPORT :: getDecimal_SK1_IK2
388#endif
389 use pm_kind, only: SKG => SK1, IKG => IK2
390 character(*,SKG) , intent(in) :: numeral
391 integer(IKG) , intent(in) :: base
392 integer(IKG) :: decimal
393 end function
394#endif
395
396#if SK1_ENABLED && IK1_ENABLED
397 PURE elemental module function getDecimal_SK1_IK1(numeral, base) result(decimal)
398#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
399 !DEC$ ATTRIBUTES DLLEXPORT :: getDecimal_SK1_IK1
400#endif
401 use pm_kind, only: SKG => SK1, IKG => IK1
402 character(*,SKG) , intent(in) :: numeral
403 integer(IKG) , intent(in) :: base
404 integer(IKG) :: decimal
405 end function
406#endif
407
408 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
409
410 end interface
411
412!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
413
501 interface getNumeral
502
503 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
504
505#if IK5_ENABLED
506 PURE module function getNumeral_IK5(decimal, base) result(numeral)
507#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
508 !DEC$ ATTRIBUTES DLLEXPORT :: getNumeral_IK5
509#endif
510 use pm_kind, only: SKG => SK, IKG => IK5
511 integer(IKG) , intent(in) :: decimal
512 integer(IKG) , intent(in) :: base
513 character(:,SKG) , allocatable :: numeral
514 end function
515#endif
516
517#if IK4_ENABLED
518 PURE module function getNumeral_IK4(decimal, base) result(numeral)
519#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
520 !DEC$ ATTRIBUTES DLLEXPORT :: getNumeral_IK4
521#endif
522 use pm_kind, only: SKG => SK, IKG => IK4
523 integer(IKG) , intent(in) :: decimal
524 integer(IKG) , intent(in) :: base
525 character(:,SKG) , allocatable :: numeral
526 end function
527#endif
528
529#if IK3_ENABLED
530 PURE module function getNumeral_IK3(decimal, base) result(numeral)
531#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
532 !DEC$ ATTRIBUTES DLLEXPORT :: getNumeral_IK3
533#endif
534 use pm_kind, only: SKG => SK, IKG => IK3
535 integer(IKG) , intent(in) :: decimal
536 integer(IKG) , intent(in) :: base
537 character(:,SKG) , allocatable :: numeral
538 end function
539#endif
540
541#if IK2_ENABLED
542 PURE module function getNumeral_IK2(decimal, base) result(numeral)
543#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
544 !DEC$ ATTRIBUTES DLLEXPORT :: getNumeral_IK2
545#endif
546 use pm_kind, only: SKG => SK, IKG => IK2
547 integer(IKG) , intent(in) :: decimal
548 integer(IKG) , intent(in) :: base
549 character(:,SKG) , allocatable :: numeral
550 end function
551#endif
552
553#if IK1_ENABLED
554 PURE module function getNumeral_IK1(decimal, base) result(numeral)
555#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
556 !DEC$ ATTRIBUTES DLLEXPORT :: getNumeral_IK1
557#endif
558 use pm_kind, only: SKG => SK, IKG => IK1
559 integer(IKG) , intent(in) :: decimal
560 integer(IKG) , intent(in) :: base
561 character(:,SKG) , allocatable :: numeral
562 end function
563#endif
564
565 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
566
567 end interface
568
569!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
570
621
622 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
623
624#if IK5_ENABLED
625 pure elemental module function getCountDigit_IK5(val) result(count)
626#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
627 !DEC$ ATTRIBUTES DLLEXPORT :: getCountDigit_IK5
628#endif
629 use pm_kind, only: IKG => IK5
630 integer(IKG), intent(in) :: val
631 integer(IK) :: count
632 end function
633#endif
634
635#if IK4_ENABLED
636 pure elemental module function getCountDigit_IK4(val) result(count)
637#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
638 !DEC$ ATTRIBUTES DLLEXPORT :: getCountDigit_IK4
639#endif
640 use pm_kind, only: IKG => IK4
641 integer(IKG), intent(in) :: val
642 integer(IK) :: count
643 end function
644#endif
645
646#if IK3_ENABLED
647 pure elemental module function getCountDigit_IK3(val) result(count)
648#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
649 !DEC$ ATTRIBUTES DLLEXPORT :: getCountDigit_IK3
650#endif
651 use pm_kind, only: IKG => IK3
652 integer(IKG), intent(in) :: val
653 integer(IK) :: count
654 end function
655#endif
656
657#if IK2_ENABLED
658 pure elemental module function getCountDigit_IK2(val) result(count)
659#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
660 !DEC$ ATTRIBUTES DLLEXPORT :: getCountDigit_IK2
661#endif
662 use pm_kind, only: IKG => IK2
663 integer(IKG), intent(in) :: val
664 integer(IK) :: count
665 end function
666#endif
667
668#if IK1_ENABLED
669 pure elemental module function getCountDigit_IK1(val) result(count)
670#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
671 !DEC$ ATTRIBUTES DLLEXPORT :: getCountDigit_IK1
672#endif
673 use pm_kind, only: IKG => IK1
674 integer(IKG), intent(in) :: val
675 integer(IK) :: count
676 end function
677#endif
678
679 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
680
681 end interface
682
683!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
684
685end module pm_mathNumSys ! LCOV_EXCL_LINE
Generate and return the number of digits in the input integer.
Generate the decimal value corresponding to the input numeral string in the requested base.
Generate the numeral in the specified base corresponding to the input decimal number.
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 IK3
Definition: pm_kind.F90:368
integer, parameter SK1
Definition: pm_kind.F90:346
integer, parameter IK1
Definition: pm_kind.F90:382
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:541
integer, parameter SK4
Definition: pm_kind.F90:331
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 generic interfaces for converting numbers to different bases in d...
character(*, SK), parameter MODULE_NAME