242 PURE elemental module function getBandEpeak_RK5(alpha, beta, ebreak)
result(epeak)
243#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
244 !DEC$ ATTRIBUTES DLLEXPORT :: getBandEpeak_RK5
247 real(RKG) ,
intent(in) :: alpha, beta, ebreak
253 PURE elemental module function getBandEpeak_RK4(alpha, beta, ebreak)
result(epeak)
254#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
255 !DEC$ ATTRIBUTES DLLEXPORT :: getBandEpeak_RK4
258 real(RKG) ,
intent(in) :: alpha, beta, ebreak
264 PURE elemental module function getBandEpeak_RK3(alpha, beta, ebreak)
result(epeak)
265#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
266 !DEC$ ATTRIBUTES DLLEXPORT :: getBandEpeak_RK3
269 real(RKG) ,
intent(in) :: alpha, beta, ebreak
275 PURE elemental module function getBandEpeak_RK2(alpha, beta, ebreak)
result(epeak)
276#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
277 !DEC$ ATTRIBUTES DLLEXPORT :: getBandEpeak_RK2
280 real(RKG) ,
intent(in) :: alpha, beta, ebreak
286 PURE elemental module function getBandEpeak_RK1(alpha, beta, ebreak)
result(epeak)
287#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
288 !DEC$ ATTRIBUTES DLLEXPORT :: getBandEpeak_RK1
291 real(RKG) ,
intent(in) :: alpha, beta, ebreak
369 PURE elemental module function getBandEbreak_RK5(alpha, beta, epeak)
result(ebreak)
370#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
371 !DEC$ ATTRIBUTES DLLEXPORT :: getBandEbreak_RK5
374 real(RKG) ,
intent(in) :: alpha, beta, epeak
380 PURE elemental module function getBandEbreak_RK4(alpha, beta, epeak)
result(ebreak)
381#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
382 !DEC$ ATTRIBUTES DLLEXPORT :: getBandEbreak_RK4
385 real(RKG) ,
intent(in) :: alpha, beta, epeak
391 PURE elemental module function getBandEbreak_RK3(alpha, beta, epeak)
result(ebreak)
392#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
393 !DEC$ ATTRIBUTES DLLEXPORT :: getBandEbreak_RK3
396 real(RKG) ,
intent(in) :: alpha, beta, epeak
402 PURE elemental module function getBandEbreak_RK2(alpha, beta, epeak)
result(ebreak)
403#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
404 !DEC$ ATTRIBUTES DLLEXPORT :: getBandEbreak_RK2
407 real(RKG) ,
intent(in) :: alpha, beta, epeak
413 PURE elemental module function getBandEbreak_RK1(alpha, beta, epeak)
result(ebreak)
414#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
415 !DEC$ ATTRIBUTES DLLEXPORT :: getBandEbreak_RK1
418 real(RKG) ,
intent(in) :: alpha, beta, epeak
497 PURE elemental module function getBandZeta_RK5(alpha, beta, ebreak)
result(zeta)
498#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
499 !DEC$ ATTRIBUTES DLLEXPORT :: getBandZeta_RK5
502 real(RKG) ,
intent(in) :: alpha, beta, ebreak
508 PURE elemental module function getBandZeta_RK4(alpha, beta, ebreak)
result(zeta)
509#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
510 !DEC$ ATTRIBUTES DLLEXPORT :: getBandZeta_RK4
513 real(RKG) ,
intent(in) :: alpha, beta, ebreak
519 PURE elemental module function getBandZeta_RK3(alpha, beta, ebreak)
result(zeta)
520#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
521 !DEC$ ATTRIBUTES DLLEXPORT :: getBandZeta_RK3
524 real(RKG) ,
intent(in) :: alpha, beta, ebreak
530 PURE elemental module function getBandZeta_RK2(alpha, beta, ebreak)
result(zeta)
531#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
532 !DEC$ ATTRIBUTES DLLEXPORT :: getBandZeta_RK2
535 real(RKG) ,
intent(in) :: alpha, beta, ebreak
541 PURE elemental module function getBandZeta_RK1(alpha, beta, ebreak)
result(zeta)
542#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
543 !DEC$ ATTRIBUTES DLLEXPORT :: getBandZeta_RK1
546 real(RKG) ,
intent(in) :: alpha, beta, ebreak
661 PURE elemental module function getBandUDF_RK5(energy, alpha, beta, ebreak, zeta, invEfold)
result(udf)
662#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
663 !DEC$ ATTRIBUTES DLLEXPORT :: getBandUDF_RK5
666 real(RKG) ,
intent(in) :: energy, alpha, beta, ebreak
667 real(RKG) ,
intent(in) ,
optional :: zeta, invEfold
673 PURE elemental module function getBandUDF_RK4(energy, alpha, beta, ebreak, zeta, invEfold)
result(udf)
674#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
675 !DEC$ ATTRIBUTES DLLEXPORT :: getBandUDF_RK4
678 real(RKG) ,
intent(in) :: energy, alpha, beta, ebreak
679 real(RKG) ,
intent(in) ,
optional :: zeta, invEfold
685 PURE elemental module function getBandUDF_RK3(energy, alpha, beta, ebreak, zeta, invEfold)
result(udf)
686#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
687 !DEC$ ATTRIBUTES DLLEXPORT :: getBandUDF_RK3
690 real(RKG) ,
intent(in) :: energy, alpha, beta, ebreak
691 real(RKG) ,
intent(in) ,
optional :: zeta, invEfold
697 PURE elemental module function getBandUDF_RK2(energy, alpha, beta, ebreak, zeta, invEfold)
result(udf)
698#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
699 !DEC$ ATTRIBUTES DLLEXPORT :: getBandUDF_RK2
702 real(RKG) ,
intent(in) :: energy, alpha, beta, ebreak
703 real(RKG) ,
intent(in) ,
optional :: zeta, invEfold
709 PURE elemental module function getBandUDF_RK1(energy, alpha, beta, ebreak, zeta, invEfold)
result(udf)
710#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
711 !DEC$ ATTRIBUTES DLLEXPORT :: getBandUDF_RK1
714 real(RKG) ,
intent(in) :: energy, alpha, beta, ebreak
715 real(RKG) ,
intent(in) ,
optional :: zeta, invEfold
820 impure elemental module subroutine setBandUCDF_RK5(ucdf, lb, ub, alpha, beta, ebreak, info)
821#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
822 !DEC$ ATTRIBUTES DLLEXPORT :: setBandUCDF_RK5
825 real(RKG) ,
intent(in) :: lb, ub, alpha, beta, ebreak
826 real(RKG) ,
intent(out) :: ucdf
827 integer(IK) ,
intent(out) :: info
832 impure elemental module subroutine setBandUCDF_RK4(ucdf, lb, ub, alpha, beta, ebreak, info)
833#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
834 !DEC$ ATTRIBUTES DLLEXPORT :: setBandUCDF_RK4
837 real(RKG) ,
intent(in) :: lb, ub, alpha, beta, ebreak
838 real(RKG) ,
intent(out) :: ucdf
839 integer(IK) ,
intent(out) :: info
844 impure elemental module subroutine setBandUCDF_RK3(ucdf, lb, ub, alpha, beta, ebreak, info)
845#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
846 !DEC$ ATTRIBUTES DLLEXPORT :: setBandUCDF_RK3
849 real(RKG) ,
intent(in) :: lb, ub, alpha, beta, ebreak
850 real(RKG) ,
intent(out) :: ucdf
851 integer(IK) ,
intent(out) :: info
856 impure elemental module subroutine setBandUCDF_RK2(ucdf, lb, ub, alpha, beta, ebreak, info)
857#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
858 !DEC$ ATTRIBUTES DLLEXPORT :: setBandUCDF_RK2
861 real(RKG) ,
intent(in) :: lb, ub, alpha, beta, ebreak
862 real(RKG) ,
intent(out) :: ucdf
863 integer(IK) ,
intent(out) :: info
868 impure elemental module subroutine setBandUCDF_RK1(ucdf, lb, ub, alpha, beta, ebreak, info)
869#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
870 !DEC$ ATTRIBUTES DLLEXPORT :: setBandUCDF_RK1
873 real(RKG) ,
intent(in) :: lb, ub, alpha, beta, ebreak
874 real(RKG) ,
intent(out) :: ucdf
875 integer(IK) ,
intent(out) :: info
1013 impure elemental module subroutine setBandMeanDef_RK5(mean, lb, ub, alpha, beta, ebreak, info)
1014#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1015 !DEC$ ATTRIBUTES DLLEXPORT :: setBandMeanDef_RK5
1018 real(RKG) ,
intent(in) :: lb, ub, alpha, beta, ebreak
1019 real(RKG) ,
intent(out) :: mean
1020 integer(IK) ,
intent(out) :: info
1025 impure elemental module subroutine setBandMeanDef_RK4(mean, lb, ub, alpha, beta, ebreak, info)
1026#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1027 !DEC$ ATTRIBUTES DLLEXPORT :: setBandMeanDef_RK4
1030 real(RKG) ,
intent(in) :: lb, ub, alpha, beta, ebreak
1031 real(RKG) ,
intent(out) :: mean
1032 integer(IK) ,
intent(out) :: info
1037 impure elemental module subroutine setBandMeanDef_RK3(mean, lb, ub, alpha, beta, ebreak, info)
1038#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1039 !DEC$ ATTRIBUTES DLLEXPORT :: setBandMeanDef_RK3
1042 real(RKG) ,
intent(in) :: lb, ub, alpha, beta, ebreak
1043 real(RKG) ,
intent(out) :: mean
1044 integer(IK) ,
intent(out) :: info
1049 impure elemental module subroutine setBandMeanDef_RK2(mean, lb, ub, alpha, beta, ebreak, info)
1050#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1051 !DEC$ ATTRIBUTES DLLEXPORT :: setBandMeanDef_RK2
1054 real(RKG) ,
intent(in) :: lb, ub, alpha, beta, ebreak
1055 real(RKG) ,
intent(out) :: mean
1056 integer(IK) ,
intent(out) :: info
1061 impure elemental module subroutine setBandMeanDef_RK1(mean, lb, ub, alpha, beta, ebreak, info)
1062#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1063 !DEC$ ATTRIBUTES DLLEXPORT :: setBandMeanDef_RK1
1066 real(RKG) ,
intent(in) :: lb, ub, alpha, beta, ebreak
1067 real(RKG) ,
intent(out) :: mean
1068 integer(IK) ,
intent(out) :: info
1075 impure elemental module subroutine setBandMeanNew_RK5(mean, lb, ub, alpha, beta, ebreak, lbnew, ubnew, info)
1076#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1077 !DEC$ ATTRIBUTES DLLEXPORT :: setBandMeanNew_RK5
1080 real(RKG) ,
intent(in) :: lb, ub, alpha, beta, ebreak, lbnew, ubnew
1081 real(RKG) ,
intent(out) :: mean
1082 integer(IK) ,
intent(out) :: info
1087 impure elemental module subroutine setBandMeanNew_RK4(mean, lb, ub, alpha, beta, ebreak, lbnew, ubnew, info)
1088#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1089 !DEC$ ATTRIBUTES DLLEXPORT :: setBandMeanNew_RK4
1092 real(RKG) ,
intent(in) :: lb, ub, alpha, beta, ebreak, lbnew, ubnew
1093 real(RKG) ,
intent(out) :: mean
1094 integer(IK) ,
intent(out) :: info
1099 impure elemental module subroutine setBandMeanNew_RK3(mean, lb, ub, alpha, beta, ebreak, lbnew, ubnew, info)
1100#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1101 !DEC$ ATTRIBUTES DLLEXPORT :: setBandMeanNew_RK3
1104 real(RKG) ,
intent(in) :: lb, ub, alpha, beta, ebreak, lbnew, ubnew
1105 real(RKG) ,
intent(out) :: mean
1106 integer(IK) ,
intent(out) :: info
1111 impure elemental module subroutine setBandMeanNew_RK2(mean, lb, ub, alpha, beta, ebreak, lbnew, ubnew, info)
1112#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1113 !DEC$ ATTRIBUTES DLLEXPORT :: setBandMeanNew_RK2
1116 real(RKG) ,
intent(in) :: lb, ub, alpha, beta, ebreak, lbnew, ubnew
1117 real(RKG) ,
intent(out) :: mean
1118 integer(IK) ,
intent(out) :: info
1123 impure elemental module subroutine setBandMeanNew_RK1(mean, lb, ub, alpha, beta, ebreak, lbnew, ubnew, info)
1124#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1125 !DEC$ ATTRIBUTES DLLEXPORT :: setBandMeanNew_RK1
1128 real(RKG) ,
intent(in) :: lb, ub, alpha, beta, ebreak, lbnew, ubnew
1129 real(RKG) ,
intent(out) :: mean
1130 integer(IK) ,
intent(out) :: info
1281 impure elemental module subroutine setBandPhotonFromEnergyOldB_RK5(photon, energy, lb, ub, alpha, beta, ebreak, info)
1282#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1283 !DEC$ ATTRIBUTES DLLEXPORT :: setBandPhotonFromEnergyOldB_RK5
1286 real(RKG) ,
intent(in) :: energy, lb, ub, alpha, beta, ebreak
1287 real(RKG) ,
intent(out) :: photon
1288 integer(IK) ,
intent(out) :: info
1293 impure elemental module subroutine setBandPhotonFromEnergyOldB_RK4(photon, energy, lb, ub, alpha, beta, ebreak, info)
1294#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1295 !DEC$ ATTRIBUTES DLLEXPORT :: setBandPhotonFromEnergyOldB_RK4
1298 real(RKG) ,
intent(in) :: energy, lb, ub, alpha, beta, ebreak
1299 real(RKG) ,
intent(out) :: photon
1300 integer(IK) ,
intent(out) :: info
1305 impure elemental module subroutine setBandPhotonFromEnergyOldB_RK3(photon, energy, lb, ub, alpha, beta, ebreak, info)
1306#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1307 !DEC$ ATTRIBUTES DLLEXPORT :: setBandPhotonFromEnergyOldB_RK3
1310 real(RKG) ,
intent(in) :: energy, lb, ub, alpha, beta, ebreak
1311 real(RKG) ,
intent(out) :: photon
1312 integer(IK) ,
intent(out) :: info
1317 impure elemental module subroutine setBandPhotonFromEnergyOldB_RK2(photon, energy, lb, ub, alpha, beta, ebreak, info)
1318#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1319 !DEC$ ATTRIBUTES DLLEXPORT :: setBandPhotonFromEnergyOldB_RK2
1322 real(RKG) ,
intent(in) :: energy, lb, ub, alpha, beta, ebreak
1323 real(RKG) ,
intent(out) :: photon
1324 integer(IK) ,
intent(out) :: info
1329 impure elemental module subroutine setBandPhotonFromEnergyOldB_RK1(photon, energy, lb, ub, alpha, beta, ebreak, info)
1330#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1331 !DEC$ ATTRIBUTES DLLEXPORT :: setBandPhotonFromEnergyOldB_RK1
1334 real(RKG) ,
intent(in) :: energy, lb, ub, alpha, beta, ebreak
1335 real(RKG) ,
intent(out) :: photon
1336 integer(IK) ,
intent(out) :: info
1343 impure elemental module subroutine setBandPhotonFromPhotonNewB_RK5(photon, lbnew, ubnew, lb, ub, alpha, beta, ebreak, info)
1344#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1345 !DEC$ ATTRIBUTES DLLEXPORT :: setBandPhotonFromPhotonNewB_RK5
1348 real(RKG) ,
intent(in) :: lbnew, ubnew, lb, ub, alpha, beta, ebreak
1349 real(RKG) ,
intent(inout) :: photon
1350 integer(IK) ,
intent(out) :: info
1355 impure elemental module subroutine setBandPhotonFromPhotonNewB_RK4(photon, lbnew, ubnew, lb, ub, alpha, beta, ebreak, info)
1356#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1357 !DEC$ ATTRIBUTES DLLEXPORT :: setBandPhotonFromPhotonNewB_RK4
1360 real(RKG) ,
intent(in) :: lbnew, ubnew, lb, ub, alpha, beta, ebreak
1361 real(RKG) ,
intent(inout) :: photon
1362 integer(IK) ,
intent(out) :: info
1367 impure elemental module subroutine setBandPhotonFromPhotonNewB_RK3(photon, lbnew, ubnew, lb, ub, alpha, beta, ebreak, info)
1368#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1369 !DEC$ ATTRIBUTES DLLEXPORT :: setBandPhotonFromPhotonNewB_RK3
1372 real(RKG) ,
intent(in) :: lbnew, ubnew, lb, ub, alpha, beta, ebreak
1373 real(RKG) ,
intent(inout) :: photon
1374 integer(IK) ,
intent(out) :: info
1379 impure elemental module subroutine setBandPhotonFromPhotonNewB_RK2(photon, lbnew, ubnew, lb, ub, alpha, beta, ebreak, info)
1380#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1381 !DEC$ ATTRIBUTES DLLEXPORT :: setBandPhotonFromPhotonNewB_RK2
1384 real(RKG) ,
intent(in) :: lbnew, ubnew, lb, ub, alpha, beta, ebreak
1385 real(RKG) ,
intent(inout) :: photon
1386 integer(IK) ,
intent(out) :: info
1391 impure elemental module subroutine setBandPhotonFromPhotonNewB_RK1(photon, lbnew, ubnew, lb, ub, alpha, beta, ebreak, info)
1392#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1393 !DEC$ ATTRIBUTES DLLEXPORT :: setBandPhotonFromPhotonNewB_RK1
1396 real(RKG) ,
intent(in) :: lbnew, ubnew, lb, ub, alpha, beta, ebreak
1397 real(RKG) ,
intent(inout) :: photon
1398 integer(IK) ,
intent(out) :: info
1405 impure elemental module subroutine setBandPhotonFromEnergyNewB_RK5(photon, lbnew, ubnew, energy, lb, ub, alpha, beta, ebreak, info)
1406#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1407 !DEC$ ATTRIBUTES DLLEXPORT :: setBandPhotonFromEnergyNewB_RK5
1410 real(RKG) ,
intent(in) :: lbnew, ubnew, energy, lb, ub, alpha, beta, ebreak
1411 real(RKG) ,
intent(out) :: photon
1412 integer(IK) ,
intent(out) :: info
1417 impure elemental module subroutine setBandPhotonFromEnergyNewB_RK4(photon, lbnew, ubnew, energy, lb, ub, alpha, beta, ebreak, info)
1418#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1419 !DEC$ ATTRIBUTES DLLEXPORT :: setBandPhotonFromEnergyNewB_RK4
1422 real(RKG) ,
intent(in) :: lbnew, ubnew, energy, lb, ub, alpha, beta, ebreak
1423 real(RKG) ,
intent(out) :: photon
1424 integer(IK) ,
intent(out) :: info
1429 impure elemental module subroutine setBandPhotonFromEnergyNewB_RK3(photon, lbnew, ubnew, energy, lb, ub, alpha, beta, ebreak, info)
1430#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1431 !DEC$ ATTRIBUTES DLLEXPORT :: setBandPhotonFromEnergyNewB_RK3
1434 real(RKG) ,
intent(in) :: lbnew, ubnew, energy, lb, ub, alpha, beta, ebreak
1435 real(RKG) ,
intent(out) :: photon
1436 integer(IK) ,
intent(out) :: info
1441 impure elemental module subroutine setBandPhotonFromEnergyNewB_RK2(photon, lbnew, ubnew, energy, lb, ub, alpha, beta, ebreak, info)
1442#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1443 !DEC$ ATTRIBUTES DLLEXPORT :: setBandPhotonFromEnergyNewB_RK2
1446 real(RKG) ,
intent(in) :: lbnew, ubnew, energy, lb, ub, alpha, beta, ebreak
1447 real(RKG) ,
intent(out) :: photon
1448 integer(IK) ,
intent(out) :: info
1453 impure elemental module subroutine setBandPhotonFromEnergyNewB_RK1(photon, lbnew, ubnew, energy, lb, ub, alpha, beta, ebreak, info)
1454#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1455 !DEC$ ATTRIBUTES DLLEXPORT :: setBandPhotonFromEnergyNewB_RK1
1458 real(RKG) ,
intent(in) :: lbnew, ubnew, energy, lb, ub, alpha, beta, ebreak
1459 real(RKG) ,
intent(out) :: photon
1460 integer(IK) ,
intent(out) :: info
1610 impure elemental module subroutine setBandEnergyFromPhotonOldB_RK5(energy, photon, lb, ub, alpha, beta, ebreak, info)
1611#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1612 !DEC$ ATTRIBUTES DLLEXPORT :: setBandEnergyFromPhotonOldB_RK5
1615 real(RKG) ,
intent(in) :: photon, lb, ub, alpha, beta, ebreak
1616 real(RKG) ,
intent(out) :: energy
1617 integer(IK) ,
intent(out) :: info
1622 impure elemental module subroutine setBandEnergyFromPhotonOldB_RK4(energy, photon, lb, ub, alpha, beta, ebreak, info)
1623#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1624 !DEC$ ATTRIBUTES DLLEXPORT :: setBandEnergyFromPhotonOldB_RK4
1627 real(RKG) ,
intent(in) :: photon, lb, ub, alpha, beta, ebreak
1628 real(RKG) ,
intent(out) :: energy
1629 integer(IK) ,
intent(out) :: info
1634 impure elemental module subroutine setBandEnergyFromPhotonOldB_RK3(energy, photon, lb, ub, alpha, beta, ebreak, info)
1635#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1636 !DEC$ ATTRIBUTES DLLEXPORT :: setBandEnergyFromPhotonOldB_RK3
1639 real(RKG) ,
intent(in) :: photon, lb, ub, alpha, beta, ebreak
1640 real(RKG) ,
intent(out) :: energy
1641 integer(IK) ,
intent(out) :: info
1646 impure elemental module subroutine setBandEnergyFromPhotonOldB_RK2(energy, photon, lb, ub, alpha, beta, ebreak, info)
1647#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1648 !DEC$ ATTRIBUTES DLLEXPORT :: setBandEnergyFromPhotonOldB_RK2
1651 real(RKG) ,
intent(in) :: photon, lb, ub, alpha, beta, ebreak
1652 real(RKG) ,
intent(out) :: energy
1653 integer(IK) ,
intent(out) :: info
1658 impure elemental module subroutine setBandEnergyFromPhotonOldB_RK1(energy, photon, lb, ub, alpha, beta, ebreak, info)
1659#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1660 !DEC$ ATTRIBUTES DLLEXPORT :: setBandEnergyFromPhotonOldB_RK1
1663 real(RKG) ,
intent(in) :: photon, lb, ub, alpha, beta, ebreak
1664 real(RKG) ,
intent(out) :: energy
1665 integer(IK) ,
intent(out) :: info
1672 impure elemental module subroutine setBandEnergyFromPhotonNewB_RK5(energy, lbnew, ubnew, photon, lb, ub, alpha, beta, ebreak, info)
1673#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1674 !DEC$ ATTRIBUTES DLLEXPORT :: setBandEnergyFromPhotonNewB_RK5
1677 real(RKG) ,
intent(in) :: lbnew, ubnew, photon, lb, ub, alpha, beta, ebreak
1678 real(RKG) ,
intent(out) :: energy
1679 integer(IK) ,
intent(out) :: info
1684 impure elemental module subroutine setBandEnergyFromPhotonNewB_RK4(energy, lbnew, ubnew, photon, lb, ub, alpha, beta, ebreak, info)
1685#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1686 !DEC$ ATTRIBUTES DLLEXPORT :: setBandEnergyFromPhotonNewB_RK4
1689 real(RKG) ,
intent(in) :: lbnew, ubnew, photon, lb, ub, alpha, beta, ebreak
1690 real(RKG) ,
intent(out) :: energy
1691 integer(IK) ,
intent(out) :: info
1696 impure elemental module subroutine setBandEnergyFromPhotonNewB_RK3(energy, lbnew, ubnew, photon, lb, ub, alpha, beta, ebreak, info)
1697#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1698 !DEC$ ATTRIBUTES DLLEXPORT :: setBandEnergyFromPhotonNewB_RK3
1701 real(RKG) ,
intent(in) :: lbnew, ubnew, photon, lb, ub, alpha, beta, ebreak
1702 real(RKG) ,
intent(out) :: energy
1703 integer(IK) ,
intent(out) :: info
1708 impure elemental module subroutine setBandEnergyFromPhotonNewB_RK2(energy, lbnew, ubnew, photon, lb, ub, alpha, beta, ebreak, info)
1709#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1710 !DEC$ ATTRIBUTES DLLEXPORT :: setBandEnergyFromPhotonNewB_RK2
1713 real(RKG) ,
intent(in) :: lbnew, ubnew, photon, lb, ub, alpha, beta, ebreak
1714 real(RKG) ,
intent(out) :: energy
1715 integer(IK) ,
intent(out) :: info
1720 impure elemental module subroutine setBandEnergyFromPhotonNewB_RK1(energy, lbnew, ubnew, photon, lb, ub, alpha, beta, ebreak, info)
1721#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1722 !DEC$ ATTRIBUTES DLLEXPORT :: setBandEnergyFromPhotonNewB_RK1
1725 real(RKG) ,
intent(in) :: lbnew, ubnew, photon, lb, ub, alpha, beta, ebreak
1726 real(RKG) ,
intent(out) :: energy
1727 integer(IK) ,
intent(out) :: info
1734 impure elemental module subroutine setBandEnergyFromEnergyNewB_RK5(energy, lbnew, ubnew, lb, ub, alpha, beta, ebreak, info)
1735#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1736 !DEC$ ATTRIBUTES DLLEXPORT :: setBandEnergyFromEnergyNewB_RK5
1739 real(RKG) ,
intent(in) :: lbnew, ubnew, lb, ub, alpha, beta, ebreak
1740 real(RKG) ,
intent(inout) :: energy
1741 integer(IK) ,
intent(out) :: info
1746 impure elemental module subroutine setBandEnergyFromEnergyNewB_RK4(energy, lbnew, ubnew, lb, ub, alpha, beta, ebreak, info)
1747#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1748 !DEC$ ATTRIBUTES DLLEXPORT :: setBandEnergyFromEnergyNewB_RK4
1751 real(RKG) ,
intent(in) :: lbnew, ubnew, lb, ub, alpha, beta, ebreak
1752 real(RKG) ,
intent(inout) :: energy
1753 integer(IK) ,
intent(out) :: info
1758 impure elemental module subroutine setBandEnergyFromEnergyNewB_RK3(energy, lbnew, ubnew, lb, ub, alpha, beta, ebreak, info)
1759#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1760 !DEC$ ATTRIBUTES DLLEXPORT :: setBandEnergyFromEnergyNewB_RK3
1763 real(RKG) ,
intent(in) :: lbnew, ubnew, lb, ub, alpha, beta, ebreak
1764 real(RKG) ,
intent(inout) :: energy
1765 integer(IK) ,
intent(out) :: info
1770 impure elemental module subroutine setBandEnergyFromEnergyNewB_RK2(energy, lbnew, ubnew, lb, ub, alpha, beta, ebreak, info)
1771#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1772 !DEC$ ATTRIBUTES DLLEXPORT :: setBandEnergyFromEnergyNewB_RK2
1775 real(RKG) ,
intent(in) :: lbnew, ubnew, lb, ub, alpha, beta, ebreak
1776 real(RKG) ,
intent(inout) :: energy
1777 integer(IK) ,
intent(out) :: info
1782 impure elemental module subroutine setBandEnergyFromEnergyNewB_RK1(energy, lbnew, ubnew, lb, ub, alpha, beta, ebreak, info)
1783#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1784 !DEC$ ATTRIBUTES DLLEXPORT :: setBandEnergyFromEnergyNewB_RK1
1787 real(RKG) ,
intent(in) :: lbnew, ubnew, lb, ub, alpha, beta, ebreak
1788 real(RKG) ,
intent(inout) :: energy
1789 integer(IK) ,
intent(out) :: info
Generate and return the spectral break energy parameter of the Band spectral model/distribution from ...
Generate and return the spectral peak energy parameter of the Band spectral model/distribution from t...
Generate and return the unnormalized density function (UDF) of the Band spectral model/distribution.
Generate and return the coefficient of continuity of the Band spectral model/distribution from the Ba...
Generate and return the energy integral (the energy fluence in units of the input break energy) of th...
Generate and return the mean of the Band distribution for an input set of parameters.
Generate and return the photon integral (the photon fluence in units of photon counts) of the Band mo...
Generate and return the unnormalized cumulative distribution function (UCDF) of the Band spectral mod...
This module contains procedures and generic interfaces for computing the Band photon distribution wid...
character(*, SK), parameter MODULE_NAME
real(RKB), parameter MEAN_ALPHA
The scalar constant of type real of kind RKB, containing the average reported value for the low-energ...
real(RKB), parameter MEAN_BETA
The scalar constant of type real of kind RKB, containing the average reported value for the high-ener...
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 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 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 signifying distributions that are of type Band as defined in the descrip...