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
33module pm_mathNumSys
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
620 interface getCountDigit
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
pm_mathNumSys::getCountDigit
Generate and return the number of digits in the input integer.
Definition: pm_mathNumSys.F90:620
pm_mathNumSys::getDecimal
Generate the decimal value corresponding to the input numeral string in the requested base.
Definition: pm_mathNumSys.F90:96
pm_mathNumSys::getNumeral
Generate the numeral in the specified base corresponding to the input decimal number.
Definition: pm_mathNumSys.F90:501
pm_kind
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:268
pm_kind::SK5
integer, parameter SK5
Definition: pm_kind.F90:326
pm_kind::IK3
integer, parameter IK3
Definition: pm_kind.F90:368
pm_kind::SK1
integer, parameter SK1
Definition: pm_kind.F90:346
pm_kind::IK1
integer, parameter IK1
Definition: pm_kind.F90:382
pm_kind::LK
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:541
pm_kind::SK4
integer, parameter SK4
Definition: pm_kind.F90:331
pm_kind::IK2
integer, parameter IK2
Definition: pm_kind.F90:375
pm_kind::SK2
integer, parameter SK2
Definition: pm_kind.F90:341
pm_kind::IK
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:540
pm_kind::IK4
integer, parameter IK4
Definition: pm_kind.F90:361
pm_kind::IK5
integer, parameter IK5
Definition: pm_kind.F90:354
pm_kind::SK
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
Definition: pm_kind.F90:539
pm_kind::SK3
integer, parameter SK3
Definition: pm_kind.F90:336
pm_mathNumSys
This module contains procedures and generic interfaces for converting numbers to different bases in d...
Definition: pm_mathNumSys.F90:33
pm_mathNumSys::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_mathNumSys.F90:39