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
106 character(
*,SKG) ,
intent(in) :: numeral
107 integer(IKG) ,
intent(in) :: base
108 integer(IKG) :: decimal
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
118 character(
*,SKG) ,
intent(in) :: numeral
119 integer(IKG) ,
intent(in) :: base
120 integer(IKG) :: decimal
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
130 character(
*,SKG) ,
intent(in) :: numeral
131 integer(IKG) ,
intent(in) :: base
132 integer(IKG) :: decimal
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
142 character(
*,SKG) ,
intent(in) :: numeral
143 integer(IKG) ,
intent(in) :: base
144 integer(IKG) :: decimal
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
154 character(
*,SKG) ,
intent(in) :: numeral
155 integer(IKG) ,
intent(in) :: base
156 integer(IKG) :: decimal
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
168 character(
*,SKG) ,
intent(in) :: numeral
169 integer(IKG) ,
intent(in) :: base
170 integer(IKG) :: decimal
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
180 character(
*,SKG) ,
intent(in) :: numeral
181 integer(IKG) ,
intent(in) :: base
182 integer(IKG) :: decimal
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
192 character(
*,SKG) ,
intent(in) :: numeral
193 integer(IKG) ,
intent(in) :: base
194 integer(IKG) :: decimal
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
204 character(
*,SKG) ,
intent(in) :: numeral
205 integer(IKG) ,
intent(in) :: base
206 integer(IKG) :: decimal
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
216 character(
*,SKG) ,
intent(in) :: numeral
217 integer(IKG) ,
intent(in) :: base
218 integer(IKG) :: decimal
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
230 character(
*,SKG) ,
intent(in) :: numeral
231 integer(IKG) ,
intent(in) :: base
232 integer(IKG) :: decimal
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
242 character(
*,SKG) ,
intent(in) :: numeral
243 integer(IKG) ,
intent(in) :: base
244 integer(IKG) :: decimal
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
254 character(
*,SKG) ,
intent(in) :: numeral
255 integer(IKG) ,
intent(in) :: base
256 integer(IKG) :: decimal
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
266 character(
*,SKG) ,
intent(in) :: numeral
267 integer(IKG) ,
intent(in) :: base
268 integer(IKG) :: decimal
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
278 character(
*,SKG) ,
intent(in) :: numeral
279 integer(IKG) ,
intent(in) :: base
280 integer(IKG) :: decimal
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
292 character(
*,SKG) ,
intent(in) :: numeral
293 integer(IKG) ,
intent(in) :: base
294 integer(IKG) :: decimal
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
304 character(
*,SKG) ,
intent(in) :: numeral
305 integer(IKG) ,
intent(in) :: base
306 integer(IKG) :: decimal
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
316 character(
*,SKG) ,
intent(in) :: numeral
317 integer(IKG) ,
intent(in) :: base
318 integer(IKG) :: decimal
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
328 character(
*,SKG) ,
intent(in) :: numeral
329 integer(IKG) ,
intent(in) :: base
330 integer(IKG) :: decimal
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
340 character(
*,SKG) ,
intent(in) :: numeral
341 integer(IKG) ,
intent(in) :: base
342 integer(IKG) :: decimal
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
354 character(
*,SKG) ,
intent(in) :: numeral
355 integer(IKG) ,
intent(in) :: base
356 integer(IKG) :: decimal
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
366 character(
*,SKG) ,
intent(in) :: numeral
367 integer(IKG) ,
intent(in) :: base
368 integer(IKG) :: decimal
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
378 character(
*,SKG) ,
intent(in) :: numeral
379 integer(IKG) ,
intent(in) :: base
380 integer(IKG) :: decimal
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
390 character(
*,SKG) ,
intent(in) :: numeral
391 integer(IKG) ,
intent(in) :: base
392 integer(IKG) :: decimal
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
402 character(
*,SKG) ,
intent(in) :: numeral
403 integer(IKG) ,
intent(in) :: base
404 integer(IKG) :: decimal
506 PURE module function getNumeral_IK5(decimal, base)
result(numeral)
507#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
508 !DEC$ ATTRIBUTES DLLEXPORT :: getNumeral_IK5
511 integer(IKG) ,
intent(in) :: decimal
512 integer(IKG) ,
intent(in) :: base
513 character(:,SKG) ,
allocatable :: numeral
518 PURE module function getNumeral_IK4(decimal, base)
result(numeral)
519#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
520 !DEC$ ATTRIBUTES DLLEXPORT :: getNumeral_IK4
523 integer(IKG) ,
intent(in) :: decimal
524 integer(IKG) ,
intent(in) :: base
525 character(:,SKG) ,
allocatable :: numeral
530 PURE module function getNumeral_IK3(decimal, base)
result(numeral)
531#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
532 !DEC$ ATTRIBUTES DLLEXPORT :: getNumeral_IK3
535 integer(IKG) ,
intent(in) :: decimal
536 integer(IKG) ,
intent(in) :: base
537 character(:,SKG) ,
allocatable :: numeral
542 PURE module function getNumeral_IK2(decimal, base)
result(numeral)
543#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
544 !DEC$ ATTRIBUTES DLLEXPORT :: getNumeral_IK2
547 integer(IKG) ,
intent(in) :: decimal
548 integer(IKG) ,
intent(in) :: base
549 character(:,SKG) ,
allocatable :: numeral
554 PURE module function getNumeral_IK1(decimal, base)
result(numeral)
555#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
556 !DEC$ ATTRIBUTES DLLEXPORT :: getNumeral_IK1
559 integer(IKG) ,
intent(in) :: decimal
560 integer(IKG) ,
intent(in) :: base
561 character(:,SKG) ,
allocatable :: numeral
625 pure elemental module function getCountDigit_IK5(val)
result(count)
626#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
627 !DEC$ ATTRIBUTES DLLEXPORT :: getCountDigit_IK5
630 integer(IKG),
intent(in) :: val
636 pure elemental module function getCountDigit_IK4(val)
result(count)
637#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
638 !DEC$ ATTRIBUTES DLLEXPORT :: getCountDigit_IK4
641 integer(IKG),
intent(in) :: val
647 pure elemental module function getCountDigit_IK3(val)
result(count)
648#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
649 !DEC$ ATTRIBUTES DLLEXPORT :: getCountDigit_IK3
652 integer(IKG),
intent(in) :: val
658 pure elemental module function getCountDigit_IK2(val)
result(count)
659#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
660 !DEC$ ATTRIBUTES DLLEXPORT :: getCountDigit_IK2
663 integer(IKG),
intent(in) :: val
669 pure elemental module function getCountDigit_IK1(val)
result(count)
670#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
671 !DEC$ ATTRIBUTES DLLEXPORT :: getCountDigit_IK1
674 integer(IKG),
intent(in) :: val
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...
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
This module contains procedures and generic interfaces for converting numbers to different bases in d...
character(*, SK), parameter MODULE_NAME