142 PURE elemental module function get1mexpSeq_CK5(x)
result(onemexp)
143#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
144 !DEC$ ATTRIBUTES DLLEXPORT :: get1mexpSeq_CK5
147 complex(CKG) ,
intent(in) :: x
148 complex(CKG) :: onemexp
153 PURE elemental module function get1mexpSeq_CK4(x)
result(onemexp)
154#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
155 !DEC$ ATTRIBUTES DLLEXPORT :: get1mexpSeq_CK4
158 complex(CKG) ,
intent(in) :: x
159 complex(CKG) :: onemexp
164 PURE elemental module function get1mexpSeq_CK3(x)
result(onemexp)
165#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
166 !DEC$ ATTRIBUTES DLLEXPORT :: get1mexpSeq_CK3
169 complex(CKG) ,
intent(in) :: x
170 complex(CKG) :: onemexp
175 PURE elemental module function get1mexpSeq_CK2(x)
result(onemexp)
176#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
177 !DEC$ ATTRIBUTES DLLEXPORT :: get1mexpSeq_CK2
180 complex(CKG) ,
intent(in) :: x
181 complex(CKG) :: onemexp
186 PURE elemental module function get1mexpSeq_CK1(x)
result(onemexp)
187#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
188 !DEC$ ATTRIBUTES DLLEXPORT :: get1mexpSeq_CK1
191 complex(CKG) ,
intent(in) :: x
192 complex(CKG) :: onemexp
199 PURE elemental module function get1mexpSeq_RK5(x)
result(onemexp)
200#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
201 !DEC$ ATTRIBUTES DLLEXPORT :: get1mexpSeq_RK5
204 real(RKG) ,
intent(in) :: x
210 PURE elemental module function get1mexpSeq_RK4(x)
result(onemexp)
211#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
212 !DEC$ ATTRIBUTES DLLEXPORT :: get1mexpSeq_RK4
215 real(RKG) ,
intent(in) :: x
221 PURE elemental module function get1mexpSeq_RK3(x)
result(onemexp)
222#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
223 !DEC$ ATTRIBUTES DLLEXPORT :: get1mexpSeq_RK3
226 real(RKG) ,
intent(in) :: x
232 PURE elemental module function get1mexpSeq_RK2(x)
result(onemexp)
233#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
234 !DEC$ ATTRIBUTES DLLEXPORT :: get1mexpSeq_RK2
237 real(RKG) ,
intent(in) :: x
243 PURE elemental module function get1mexpSeq_RK1(x)
result(onemexp)
244#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
245 !DEC$ ATTRIBUTES DLLEXPORT :: get1mexpSeq_RK1
248 real(RKG) ,
intent(in) :: x
262 PURE elemental module function get1mexpSel_CK5(x, control)
result(onemexp)
263#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
264 !DEC$ ATTRIBUTES DLLEXPORT :: get1mexpSel_CK5
267 complex(CKG) ,
intent(in) :: x
268 complex(CKG) :: onemexp
269 type(selection_type),
intent(in) :: control
274 PURE elemental module function get1mexpSel_CK4(x, control)
result(onemexp)
275#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
276 !DEC$ ATTRIBUTES DLLEXPORT :: get1mexpSel_CK4
279 complex(CKG) ,
intent(in) :: x
280 complex(CKG) :: onemexp
281 type(selection_type),
intent(in) :: control
286 PURE elemental module function get1mexpSel_CK3(x, control)
result(onemexp)
287#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
288 !DEC$ ATTRIBUTES DLLEXPORT :: get1mexpSel_CK3
291 complex(CKG) ,
intent(in) :: x
292 complex(CKG) :: onemexp
293 type(selection_type),
intent(in) :: control
298 PURE elemental module function get1mexpSel_CK2(x, control)
result(onemexp)
299#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
300 !DEC$ ATTRIBUTES DLLEXPORT :: get1mexpSel_CK2
303 complex(CKG) ,
intent(in) :: x
304 complex(CKG) :: onemexp
305 type(selection_type),
intent(in) :: control
310 PURE elemental module function get1mexpSel_CK1(x, control)
result(onemexp)
311#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
312 !DEC$ ATTRIBUTES DLLEXPORT :: get1mexpSel_CK1
315 complex(CKG) ,
intent(in) :: x
316 complex(CKG) :: onemexp
317 type(selection_type),
intent(in) :: control
324 PURE elemental module function get1mexpSel_RK5(x, control)
result(onemexp)
325#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
326 !DEC$ ATTRIBUTES DLLEXPORT :: get1mexpSel_RK5
329 real(RKG) ,
intent(in) :: x
331 type(selection_type),
intent(in) :: control
336 PURE elemental module function get1mexpSel_RK4(x, control)
result(onemexp)
337#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
338 !DEC$ ATTRIBUTES DLLEXPORT :: get1mexpSel_RK4
341 real(RKG) ,
intent(in) :: x
343 type(selection_type),
intent(in) :: control
348 PURE elemental module function get1mexpSel_RK3(x, control)
result(onemexp)
349#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
350 !DEC$ ATTRIBUTES DLLEXPORT :: get1mexpSel_RK3
353 real(RKG) ,
intent(in) :: x
355 type(selection_type),
intent(in) :: control
360 PURE elemental module function get1mexpSel_RK2(x, control)
result(onemexp)
361#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
362 !DEC$ ATTRIBUTES DLLEXPORT :: get1mexpSel_RK2
365 real(RKG) ,
intent(in) :: x
367 type(selection_type),
intent(in) :: control
372 PURE elemental module function get1mexpSel_RK1(x, control)
result(onemexp)
373#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
374 !DEC$ ATTRIBUTES DLLEXPORT :: get1mexpSel_RK1
377 real(RKG) ,
intent(in) :: x
379 type(selection_type),
intent(in) :: control
Generate and return the expression 1 - exp(x) robustly (without numerical underflow).
This module contains abstract and concrete derived types that are required for compile-time resolutio...
character(*, SK), parameter MODULE_NAME
type(selection_type), parameter selection
This is a scalar parameter object of type selection_type that is exclusively used to request selectio...
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 computing 1 - exp(x) more precisely for ti...
This is a concrete derived type whose instances are exclusively used to request selection control flo...