136 real(
RKD) :: pbol
= -huge(
0._RKD)
137 real(
RKD) :: epeak
= -huge(
0._RKD)
138 real(
RKD) :: sbol
= -huge(
0._RKD)
139 real(
RKD) :: t90
= -huge(
0._RKD)
140 real(
RKD) :: pph1024
= -huge(
0._RKD)
196 pure elemental module function getCorrectionLogEffPPF_RK5(logT90)
result(correction)
197#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
198 !DEC$ ATTRIBUTES DLLEXPORT :: getCorrectionLogEffPPF_RK5
201 real(RKG) ,
intent(in) :: logT90
202 real(RKG) :: correction
207 pure elemental module function getCorrectionLogEffPPF_RK4(logT90)
result(correction)
208#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
209 !DEC$ ATTRIBUTES DLLEXPORT :: getCorrectionLogEffPPF_RK4
212 real(RKG) ,
intent(in) :: logT90
213 real(RKG) :: correction
218 pure elemental module function getCorrectionLogEffPPF_RK3(logT90)
result(correction)
219#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
220 !DEC$ ATTRIBUTES DLLEXPORT :: getCorrectionLogEffPPF_RK3
223 real(RKG) ,
intent(in) :: logT90
224 real(RKG) :: correction
229 pure elemental module function getCorrectionLogEffPPF_RK2(logT90)
result(correction)
230#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
231 !DEC$ ATTRIBUTES DLLEXPORT :: getCorrectionLogEffPPF_RK2
234 real(RKG) ,
intent(in) :: logT90
235 real(RKG) :: correction
240 pure elemental module function getCorrectionLogEffPPF_RK1(logT90)
result(correction)
241#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
242 !DEC$ ATTRIBUTES DLLEXPORT :: getCorrectionLogEffPPF_RK1
245 real(RKG) ,
intent(in) :: logT90
246 real(RKG) :: correction
311 pure elemental module function getLogEffPPF_RK5(logPPF64, logT90)
result(logEffPPF)
312#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
313 !DEC$ ATTRIBUTES DLLEXPORT :: getLogEffPPF_RK5
316 real(RKG) ,
intent(in) :: logPPF64, logT90
317 real(RKG) :: logEffPPF
322 pure elemental module function getLogEffPPF_RK4(logPPF64, logT90)
result(logEffPPF)
323#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
324 !DEC$ ATTRIBUTES DLLEXPORT :: getLogEffPPF_RK4
327 real(RKG) ,
intent(in) :: logPPF64, logT90
328 real(RKG) :: logEffPPF
333 pure elemental module function getLogEffPPF_RK3(logPPF64, logT90)
result(logEffPPF)
334#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
335 !DEC$ ATTRIBUTES DLLEXPORT :: getLogEffPPF_RK3
338 real(RKG) ,
intent(in) :: logPPF64, logT90
339 real(RKG) :: logEffPPF
344 pure elemental module function getLogEffPPF_RK2(logPPF64, logT90)
result(logEffPPF)
345#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
346 !DEC$ ATTRIBUTES DLLEXPORT :: getLogEffPPF_RK2
349 real(RKG) ,
intent(in) :: logPPF64, logT90
350 real(RKG) :: logEffPPF
355 pure elemental module function getLogEffPPF_RK1(logPPF64, logT90)
result(logEffPPF)
356#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
357 !DEC$ ATTRIBUTES DLLEXPORT :: getLogEffPPF_RK1
360 real(RKG) ,
intent(in) :: logPPF64, logT90
361 real(RKG) :: logEffPPF
432 pure elemental module function getLogPbol_RK5(logEpk, logPF53)
result(logPbol)
433#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
434 !DEC$ ATTRIBUTES DLLEXPORT :: getLogPbol_RK5
437 real(RKG) ,
intent(in) :: logEpk, logPF53
443 pure elemental module function getLogPbol_RK4(logEpk, logPF53)
result(logPbol)
444#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
445 !DEC$ ATTRIBUTES DLLEXPORT :: getLogPbol_RK4
448 real(RKG) ,
intent(in) :: logEpk, logPF53
454 pure elemental module function getLogPbol_RK3(logEpk, logPF53)
result(logPbol)
455#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
456 !DEC$ ATTRIBUTES DLLEXPORT :: getLogPbol_RK3
459 real(RKG) ,
intent(in) :: logEpk, logPF53
465 pure elemental module function getLogPbol_RK2(logEpk, logPF53)
result(logPbol)
466#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
467 !DEC$ ATTRIBUTES DLLEXPORT :: getLogPbol_RK2
470 real(RKG) ,
intent(in) :: logEpk, logPF53
476 pure elemental module function getLogPbol_RK1(logEpk, logPF53)
result(logPbol)
477#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
478 !DEC$ ATTRIBUTES DLLEXPORT :: getLogPbol_RK1
481 real(RKG) ,
intent(in) :: logEpk, logPF53
553 pure elemental module function getLogPF53_RK5(logEpk, logPbol)
result(logPF53)
554#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
555 !DEC$ ATTRIBUTES DLLEXPORT :: getLogPF53_RK5
558 real(RKG) ,
intent(in) :: logEpk, logPbol
564 pure elemental module function getLogPF53_RK4(logEpk, logPbol)
result(logPF53)
565#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
566 !DEC$ ATTRIBUTES DLLEXPORT :: getLogPF53_RK4
569 real(RKG) ,
intent(in) :: logEpk, logPbol
575 pure elemental module function getLogPF53_RK3(logEpk, logPbol)
result(logPF53)
576#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
577 !DEC$ ATTRIBUTES DLLEXPORT :: getLogPF53_RK3
580 real(RKG) ,
intent(in) :: logEpk, logPbol
586 pure elemental module function getLogPF53_RK2(logEpk, logPbol)
result(logPF53)
587#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
588 !DEC$ ATTRIBUTES DLLEXPORT :: getLogPF53_RK2
591 real(RKG) ,
intent(in) :: logEpk, logPbol
597 pure elemental module function getLogPF53_RK1(logEpk, logPbol)
result(logPF53)
598#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
599 !DEC$ ATTRIBUTES DLLEXPORT :: getLogPF53_RK1
602 real(RKG) ,
intent(in) :: logEpk, logPbol
665 pure elemental module function getLog10PF53_RK5(log10Epk, log10Pbol)
result(log10PF53)
666#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
667 !DEC$ ATTRIBUTES DLLEXPORT :: getLog10PF53_RK5
670 real(RKG) ,
intent(in) :: log10Epk, log10Pbol
671 real(RKG) :: log10PF53
676 pure elemental module function getLog10PF53_RK4(log10Epk, log10Pbol)
result(log10PF53)
677#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
678 !DEC$ ATTRIBUTES DLLEXPORT :: getLog10PF53_RK4
681 real(RKG) ,
intent(in) :: log10Epk, log10Pbol
682 real(RKG) :: log10PF53
687 pure elemental module function getLog10PF53_RK3(log10Epk, log10Pbol)
result(log10PF53)
688#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
689 !DEC$ ATTRIBUTES DLLEXPORT :: getLog10PF53_RK3
692 real(RKG) ,
intent(in) :: log10Epk, log10Pbol
693 real(RKG) :: log10PF53
698 pure elemental module function getLog10PF53_RK2(log10Epk, log10Pbol)
result(log10PF53)
699#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
700 !DEC$ ATTRIBUTES DLLEXPORT :: getLog10PF53_RK2
703 real(RKG) ,
intent(in) :: log10Epk, log10Pbol
704 real(RKG) :: log10PF53
709 pure elemental module function getLog10PF53_RK1(log10Epk, log10Pbol)
result(log10PF53)
710#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
711 !DEC$ ATTRIBUTES DLLEXPORT :: getLog10PF53_RK1
714 real(RKG) ,
intent(in) :: log10Epk, log10Pbol
715 real(RKG) :: log10PF53
Generate and return the correction required for converting an input natural-log peak photon flux in 6...
[LEGACY code] This generic interface is identical to the generic interface getLogPF53 with the only ...
Generate and return the conversion of an input natural logarithm of peak photon flux in 64ms timescal...
Generate and return the conversion of an input natural logarithm of a bolometric ( ) energy flux/flue...
Generate and return the conversion of an input natural logarithm of photon flux/fluence over a given ...
This module contains procedures and generic interfaces for modeling data and detectors of the BATSE G...
real(RKB), parameter MAX_LOG10PH53_4_LOGPBOLZERO
real(RKB), parameter DIF_LOGPH53_4_LOGPBOLZERO
real(RKB), parameter THRESH_ERFC_AMP
The scale of the change in BATSE efficiency for different GRB durations.
real(RKB), parameter THRESH_ERFC_STD
Scale of the duration in the Error function used to model the connection between the peak fluxes in 6...
real(RKB), parameter THRESH_LOGPBOL64_CORRECTION
Correction that must be added to logPbol64ms to convert it to effective peak flux.
real(RKB), parameter THRESH_ERFC_AVG
Mean duration in the Error function used to model the connection between the peak fluxes in 64 and 10...
real(RKB), parameter LOG_TEN
real(RKB), parameter MAX_LOGPH53_4_LOGPBOLZERO
real(RKB), parameter MIN_LOG10PH53_4_LOGPBOLZERO
real(RKB), parameter MIN_LOGPH53_4_LOGPBOLZERO
real(RKB), parameter LOG10PF53_MINUS_LOG10PBOL
real(RKB), parameter THRESH_ERFC_STD_INV
Inverse scale of the duration in the Error function used to model the connection between the peak flu...
real(RKB), parameter THRESH_ERFC_HEIGHT
real(RKB), parameter LOGPF53_MINUS_LOGPBOL
real(RKB), parameter THRESH_ERFC_BASE
The scale of the change in BATSE efficiency for different SGRB durations.
character(*, SK), parameter MODULE_NAME
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
integer, parameter RKB
The scalar integer constant of intrinsic default kind, representing the Best-precision real kind supp...
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
integer, parameter RKD
The double precision real kind in Fortran mode. On most platforms, this is an 64-bit real kind.
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
This is the derived type for generating objects that contain attributes of BATSE catalog GRBs.