92 real(
RKB) ,
parameter ::
LYR2CM = 946073047258080000._RKB
93 real(
RKB) ,
parameter ::
PIPC2M = 9.6939420213600000e16_RKB
275 impure elemental module function getSizeUnivNormedZ_D0_RK5(zplus1, reltol, neval, err)
result(sizeUnivNormed)
276#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
277 !DEC$ ATTRIBUTES DLLEXPORT :: getSizeUnivNormedZ_D0_RK5
280 real(RKG) ,
intent(in) :: zplus1
281 real(RKG) ,
intent(in) :: reltol
282 integer(IK) ,
intent(out) ,
optional :: neval
283 integer(IK) ,
intent(out) ,
optional :: err
284 real(RKG) :: sizeUnivNormed
289 impure elemental module function getSizeUnivNormedZ_D0_RK4(zplus1, reltol, neval, err)
result(sizeUnivNormed)
290#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
291 !DEC$ ATTRIBUTES DLLEXPORT :: getSizeUnivNormedZ_D0_RK4
294 real(RKG) ,
intent(in) :: zplus1
295 real(RKG) ,
intent(in) :: reltol
296 integer(IK) ,
intent(out) ,
optional :: neval
297 integer(IK) ,
intent(out) ,
optional :: err
298 real(RKG) :: sizeUnivNormed
303 impure elemental module function getSizeUnivNormedZ_D0_RK3(zplus1, reltol, neval, err)
result(sizeUnivNormed)
304#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
305 !DEC$ ATTRIBUTES DLLEXPORT :: getSizeUnivNormedZ_D0_RK3
308 real(RKG) ,
intent(in) :: zplus1
309 real(RKG) ,
intent(in) :: reltol
310 integer(IK) ,
intent(out) ,
optional :: neval
311 integer(IK) ,
intent(out) ,
optional :: err
312 real(RKG) :: sizeUnivNormed
317 impure elemental module function getSizeUnivNormedZ_D0_RK2(zplus1, reltol, neval, err)
result(sizeUnivNormed)
318#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
319 !DEC$ ATTRIBUTES DLLEXPORT :: getSizeUnivNormedZ_D0_RK2
322 real(RKG) ,
intent(in) :: zplus1
323 real(RKG) ,
intent(in) :: reltol
324 integer(IK) ,
intent(out) ,
optional :: neval
325 integer(IK) ,
intent(out) ,
optional :: err
326 real(RKG) :: sizeUnivNormed
331 impure elemental module function getSizeUnivNormedZ_D0_RK1(zplus1, reltol, neval, err)
result(sizeUnivNormed)
332#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
333 !DEC$ ATTRIBUTES DLLEXPORT :: getSizeUnivNormedZ_D0_RK1
336 real(RKG) ,
intent(in) :: zplus1
337 real(RKG) ,
intent(in) :: reltol
338 integer(IK) ,
intent(out) ,
optional :: neval
339 integer(IK) ,
intent(out) ,
optional :: err
340 real(RKG) :: sizeUnivNormed
347 impure elemental module function getSizeUnivNormedZML_D0_RK5(zplus1, omegaM, omegaL, reltol, neval, err)
result(sizeUnivNormed)
348#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
349 !DEC$ ATTRIBUTES DLLEXPORT :: getSizeUnivNormedZML_D0_RK5
352 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL
353 real(RKG) ,
intent(in) :: reltol
354 integer(IK) ,
intent(out) ,
optional :: neval
355 integer(IK) ,
intent(out) ,
optional :: err
356 real(RKG) :: sizeUnivNormed
361 impure elemental module function getSizeUnivNormedZML_D0_RK4(zplus1, omegaM, omegaL, reltol, neval, err)
result(sizeUnivNormed)
362#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
363 !DEC$ ATTRIBUTES DLLEXPORT :: getSizeUnivNormedZML_D0_RK4
366 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL
367 real(RKG) ,
intent(in) :: reltol
368 integer(IK) ,
intent(out) ,
optional :: neval
369 integer(IK) ,
intent(out) ,
optional :: err
370 real(RKG) :: sizeUnivNormed
375 impure elemental module function getSizeUnivNormedZML_D0_RK3(zplus1, omegaM, omegaL, reltol, neval, err)
result(sizeUnivNormed)
376#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
377 !DEC$ ATTRIBUTES DLLEXPORT :: getSizeUnivNormedZML_D0_RK3
380 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL
381 real(RKG) ,
intent(in) :: reltol
382 integer(IK) ,
intent(out) ,
optional :: neval
383 integer(IK) ,
intent(out) ,
optional :: err
384 real(RKG) :: sizeUnivNormed
389 impure elemental module function getSizeUnivNormedZML_D0_RK2(zplus1, omegaM, omegaL, reltol, neval, err)
result(sizeUnivNormed)
390#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
391 !DEC$ ATTRIBUTES DLLEXPORT :: getSizeUnivNormedZML_D0_RK2
394 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL
395 real(RKG) ,
intent(in) :: reltol
396 integer(IK) ,
intent(out) ,
optional :: neval
397 integer(IK) ,
intent(out) ,
optional :: err
398 real(RKG) :: sizeUnivNormed
403 impure elemental module function getSizeUnivNormedZML_D0_RK1(zplus1, omegaM, omegaL, reltol, neval, err)
result(sizeUnivNormed)
404#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
405 !DEC$ ATTRIBUTES DLLEXPORT :: getSizeUnivNormedZML_D0_RK1
408 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL
409 real(RKG) ,
intent(in) :: reltol
410 integer(IK) ,
intent(out) ,
optional :: neval
411 integer(IK) ,
intent(out) ,
optional :: err
412 real(RKG) :: sizeUnivNormed
419 impure elemental module function getSizeUnivNormedZMLR_D0_RK5(zplus1, omegaM, omegaL, omegaR, reltol, neval, err)
result(sizeUnivNormed)
420#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
421 !DEC$ ATTRIBUTES DLLEXPORT :: getSizeUnivNormedZMLR_D0_RK5
424 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR
425 real(RKG) ,
intent(in) :: reltol
426 integer(IK) ,
intent(out) ,
optional :: neval
427 integer(IK) ,
intent(out) ,
optional :: err
428 real(RKG) :: sizeUnivNormed
433 impure elemental module function getSizeUnivNormedZMLR_D0_RK4(zplus1, omegaM, omegaL, omegaR, reltol, neval, err)
result(sizeUnivNormed)
434#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
435 !DEC$ ATTRIBUTES DLLEXPORT :: getSizeUnivNormedZMLR_D0_RK4
438 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR
439 real(RKG) ,
intent(in) :: reltol
440 integer(IK) ,
intent(out) ,
optional :: neval
441 integer(IK) ,
intent(out) ,
optional :: err
442 real(RKG) :: sizeUnivNormed
447 impure elemental module function getSizeUnivNormedZMLR_D0_RK3(zplus1, omegaM, omegaL, omegaR, reltol, neval, err)
result(sizeUnivNormed)
448#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
449 !DEC$ ATTRIBUTES DLLEXPORT :: getSizeUnivNormedZMLR_D0_RK3
452 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR
453 real(RKG) ,
intent(in) :: reltol
454 integer(IK) ,
intent(out) ,
optional :: neval
455 integer(IK) ,
intent(out) ,
optional :: err
456 real(RKG) :: sizeUnivNormed
461 impure elemental module function getSizeUnivNormedZMLR_D0_RK2(zplus1, omegaM, omegaL, omegaR, reltol, neval, err)
result(sizeUnivNormed)
462#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
463 !DEC$ ATTRIBUTES DLLEXPORT :: getSizeUnivNormedZMLR_D0_RK2
466 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR
467 real(RKG) ,
intent(in) :: reltol
468 integer(IK) ,
intent(out) ,
optional :: neval
469 integer(IK) ,
intent(out) ,
optional :: err
470 real(RKG) :: sizeUnivNormed
475 impure elemental module function getSizeUnivNormedZMLR_D0_RK1(zplus1, omegaM, omegaL, omegaR, reltol, neval, err)
result(sizeUnivNormed)
476#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
477 !DEC$ ATTRIBUTES DLLEXPORT :: getSizeUnivNormedZMLR_D0_RK1
480 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR
481 real(RKG) ,
intent(in) :: reltol
482 integer(IK) ,
intent(out) ,
optional :: neval
483 integer(IK) ,
intent(out) ,
optional :: err
484 real(RKG) :: sizeUnivNormed
491 impure elemental module function getSizeUnivNormedZMLRK_D0_RK5(zplus1, omegaM, omegaL, omegaR, omegaK, reltol, neval, err)
result(sizeUnivNormed)
492#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
493 !DEC$ ATTRIBUTES DLLEXPORT :: getSizeUnivNormedZMLRK_D0_RK5
496 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR, omegaK
497 real(RKG) ,
intent(in) :: reltol
498 integer(IK) ,
intent(out) ,
optional :: neval
499 integer(IK) ,
intent(out) ,
optional :: err
500 real(RKG) :: sizeUnivNormed
505 impure elemental module function getSizeUnivNormedZMLRK_D0_RK4(zplus1, omegaM, omegaL, omegaR, omegaK, reltol, neval, err)
result(sizeUnivNormed)
506#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
507 !DEC$ ATTRIBUTES DLLEXPORT :: getSizeUnivNormedZMLRK_D0_RK4
510 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR, omegaK
511 real(RKG) ,
intent(in) :: reltol
512 integer(IK) ,
intent(out) ,
optional :: neval
513 integer(IK) ,
intent(out) ,
optional :: err
514 real(RKG) :: sizeUnivNormed
519 impure elemental module function getSizeUnivNormedZMLRK_D0_RK3(zplus1, omegaM, omegaL, omegaR, omegaK, reltol, neval, err)
result(sizeUnivNormed)
520#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
521 !DEC$ ATTRIBUTES DLLEXPORT :: getSizeUnivNormedZMLRK_D0_RK3
524 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR, omegaK
525 real(RKG) ,
intent(in) :: reltol
526 integer(IK) ,
intent(out) ,
optional :: neval
527 integer(IK) ,
intent(out) ,
optional :: err
528 real(RKG) :: sizeUnivNormed
533 impure elemental module function getSizeUnivNormedZMLRK_D0_RK2(zplus1, omegaM, omegaL, omegaR, omegaK, reltol, neval, err)
result(sizeUnivNormed)
534#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
535 !DEC$ ATTRIBUTES DLLEXPORT :: getSizeUnivNormedZMLRK_D0_RK2
538 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR, omegaK
539 real(RKG) ,
intent(in) :: reltol
540 integer(IK) ,
intent(out) ,
optional :: neval
541 integer(IK) ,
intent(out) ,
optional :: err
542 real(RKG) :: sizeUnivNormed
547 impure elemental module function getSizeUnivNormedZMLRK_D0_RK1(zplus1, omegaM, omegaL, omegaR, omegaK, reltol, neval, err)
result(sizeUnivNormed)
548#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
549 !DEC$ ATTRIBUTES DLLEXPORT :: getSizeUnivNormedZMLRK_D0_RK1
552 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR, omegaK
553 real(RKG) ,
intent(in) :: reltol
554 integer(IK) ,
intent(out) ,
optional :: neval
555 integer(IK) ,
intent(out) ,
optional :: err
556 real(RKG) :: sizeUnivNormed
703 impure elemental module function getDisLookbackNormedZ_D0_RK5(zplus1, reltol, neval, err)
result(disLookbackNormed)
704#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
705 !DEC$ ATTRIBUTES DLLEXPORT :: getDisLookbackNormedZ_D0_RK5
708 real(RKG) ,
intent(in) :: zplus1
709 real(RKG) ,
intent(in) :: reltol
710 integer(IK) ,
intent(out) ,
optional :: neval
711 integer(IK) ,
intent(out) ,
optional :: err
712 real(RKG) :: disLookbackNormed
717 impure elemental module function getDisLookbackNormedZ_D0_RK4(zplus1, reltol, neval, err)
result(disLookbackNormed)
718#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
719 !DEC$ ATTRIBUTES DLLEXPORT :: getDisLookbackNormedZ_D0_RK4
722 real(RKG) ,
intent(in) :: zplus1
723 real(RKG) ,
intent(in) :: reltol
724 integer(IK) ,
intent(out) ,
optional :: neval
725 integer(IK) ,
intent(out) ,
optional :: err
726 real(RKG) :: disLookbackNormed
731 impure elemental module function getDisLookbackNormedZ_D0_RK3(zplus1, reltol, neval, err)
result(disLookbackNormed)
732#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
733 !DEC$ ATTRIBUTES DLLEXPORT :: getDisLookbackNormedZ_D0_RK3
736 real(RKG) ,
intent(in) :: zplus1
737 real(RKG) ,
intent(in) :: reltol
738 integer(IK) ,
intent(out) ,
optional :: neval
739 integer(IK) ,
intent(out) ,
optional :: err
740 real(RKG) :: disLookbackNormed
745 impure elemental module function getDisLookbackNormedZ_D0_RK2(zplus1, reltol, neval, err)
result(disLookbackNormed)
746#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
747 !DEC$ ATTRIBUTES DLLEXPORT :: getDisLookbackNormedZ_D0_RK2
750 real(RKG) ,
intent(in) :: zplus1
751 real(RKG) ,
intent(in) :: reltol
752 integer(IK) ,
intent(out) ,
optional :: neval
753 integer(IK) ,
intent(out) ,
optional :: err
754 real(RKG) :: disLookbackNormed
759 impure elemental module function getDisLookbackNormedZ_D0_RK1(zplus1, reltol, neval, err)
result(disLookbackNormed)
760#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
761 !DEC$ ATTRIBUTES DLLEXPORT :: getDisLookbackNormedZ_D0_RK1
764 real(RKG) ,
intent(in) :: zplus1
765 real(RKG) ,
intent(in) :: reltol
766 integer(IK) ,
intent(out) ,
optional :: neval
767 integer(IK) ,
intent(out) ,
optional :: err
768 real(RKG) :: disLookbackNormed
775 impure elemental module function getDisLookbackNormedZML_D0_RK5(zplus1, omegaM, omegaL, reltol, neval, err)
result(disLookbackNormed)
776#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
777 !DEC$ ATTRIBUTES DLLEXPORT :: getDisLookbackNormedZML_D0_RK5
780 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL
781 real(RKG) ,
intent(in) :: reltol
782 integer(IK) ,
intent(out) ,
optional :: neval
783 integer(IK) ,
intent(out) ,
optional :: err
784 real(RKG) :: disLookbackNormed
789 impure elemental module function getDisLookbackNormedZML_D0_RK4(zplus1, omegaM, omegaL, reltol, neval, err)
result(disLookbackNormed)
790#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
791 !DEC$ ATTRIBUTES DLLEXPORT :: getDisLookbackNormedZML_D0_RK4
794 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL
795 real(RKG) ,
intent(in) :: reltol
796 integer(IK) ,
intent(out) ,
optional :: neval
797 integer(IK) ,
intent(out) ,
optional :: err
798 real(RKG) :: disLookbackNormed
803 impure elemental module function getDisLookbackNormedZML_D0_RK3(zplus1, omegaM, omegaL, reltol, neval, err)
result(disLookbackNormed)
804#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
805 !DEC$ ATTRIBUTES DLLEXPORT :: getDisLookbackNormedZML_D0_RK3
808 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL
809 real(RKG) ,
intent(in) :: reltol
810 integer(IK) ,
intent(out) ,
optional :: neval
811 integer(IK) ,
intent(out) ,
optional :: err
812 real(RKG) :: disLookbackNormed
817 impure elemental module function getDisLookbackNormedZML_D0_RK2(zplus1, omegaM, omegaL, reltol, neval, err)
result(disLookbackNormed)
818#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
819 !DEC$ ATTRIBUTES DLLEXPORT :: getDisLookbackNormedZML_D0_RK2
822 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL
823 real(RKG) ,
intent(in) :: reltol
824 integer(IK) ,
intent(out) ,
optional :: neval
825 integer(IK) ,
intent(out) ,
optional :: err
826 real(RKG) :: disLookbackNormed
831 impure elemental module function getDisLookbackNormedZML_D0_RK1(zplus1, omegaM, omegaL, reltol, neval, err)
result(disLookbackNormed)
832#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
833 !DEC$ ATTRIBUTES DLLEXPORT :: getDisLookbackNormedZML_D0_RK1
836 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL
837 real(RKG) ,
intent(in) :: reltol
838 integer(IK) ,
intent(out) ,
optional :: neval
839 integer(IK) ,
intent(out) ,
optional :: err
840 real(RKG) :: disLookbackNormed
847 impure elemental module function getDisLookbackNormedZMLR_D0_RK5(zplus1, omegaM, omegaL, omegaR, reltol, neval, err)
result(disLookbackNormed)
848#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
849 !DEC$ ATTRIBUTES DLLEXPORT :: getDisLookbackNormedZMLR_D0_RK5
852 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR
853 real(RKG) ,
intent(in) :: reltol
854 integer(IK) ,
intent(out) ,
optional :: neval
855 integer(IK) ,
intent(out) ,
optional :: err
856 real(RKG) :: disLookbackNormed
861 impure elemental module function getDisLookbackNormedZMLR_D0_RK4(zplus1, omegaM, omegaL, omegaR, reltol, neval, err)
result(disLookbackNormed)
862#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
863 !DEC$ ATTRIBUTES DLLEXPORT :: getDisLookbackNormedZMLR_D0_RK4
866 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR
867 real(RKG) ,
intent(in) :: reltol
868 integer(IK) ,
intent(out) ,
optional :: neval
869 integer(IK) ,
intent(out) ,
optional :: err
870 real(RKG) :: disLookbackNormed
875 impure elemental module function getDisLookbackNormedZMLR_D0_RK3(zplus1, omegaM, omegaL, omegaR, reltol, neval, err)
result(disLookbackNormed)
876#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
877 !DEC$ ATTRIBUTES DLLEXPORT :: getDisLookbackNormedZMLR_D0_RK3
880 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR
881 real(RKG) ,
intent(in) :: reltol
882 integer(IK) ,
intent(out) ,
optional :: neval
883 integer(IK) ,
intent(out) ,
optional :: err
884 real(RKG) :: disLookbackNormed
889 impure elemental module function getDisLookbackNormedZMLR_D0_RK2(zplus1, omegaM, omegaL, omegaR, reltol, neval, err)
result(disLookbackNormed)
890#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
891 !DEC$ ATTRIBUTES DLLEXPORT :: getDisLookbackNormedZMLR_D0_RK2
894 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR
895 real(RKG) ,
intent(in) :: reltol
896 integer(IK) ,
intent(out) ,
optional :: neval
897 integer(IK) ,
intent(out) ,
optional :: err
898 real(RKG) :: disLookbackNormed
903 impure elemental module function getDisLookbackNormedZMLR_D0_RK1(zplus1, omegaM, omegaL, omegaR, reltol, neval, err)
result(disLookbackNormed)
904#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
905 !DEC$ ATTRIBUTES DLLEXPORT :: getDisLookbackNormedZMLR_D0_RK1
908 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR
909 real(RKG) ,
intent(in) :: reltol
910 integer(IK) ,
intent(out) ,
optional :: neval
911 integer(IK) ,
intent(out) ,
optional :: err
912 real(RKG) :: disLookbackNormed
919 impure elemental module function getDisLookbackNormedZMLRK_D0_RK5(zplus1, omegaM, omegaL, omegaR, omegaK, reltol, neval, err)
result(disLookbackNormed)
920#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
921 !DEC$ ATTRIBUTES DLLEXPORT :: getDisLookbackNormedZMLRK_D0_RK5
924 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR, omegaK
925 real(RKG) ,
intent(in) :: reltol
926 integer(IK) ,
intent(out) ,
optional :: neval
927 integer(IK) ,
intent(out) ,
optional :: err
928 real(RKG) :: disLookbackNormed
933 impure elemental module function getDisLookbackNormedZMLRK_D0_RK4(zplus1, omegaM, omegaL, omegaR, omegaK, reltol, neval, err)
result(disLookbackNormed)
934#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
935 !DEC$ ATTRIBUTES DLLEXPORT :: getDisLookbackNormedZMLRK_D0_RK4
938 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR, omegaK
939 real(RKG) ,
intent(in) :: reltol
940 integer(IK) ,
intent(out) ,
optional :: neval
941 integer(IK) ,
intent(out) ,
optional :: err
942 real(RKG) :: disLookbackNormed
947 impure elemental module function getDisLookbackNormedZMLRK_D0_RK3(zplus1, omegaM, omegaL, omegaR, omegaK, reltol, neval, err)
result(disLookbackNormed)
948#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
949 !DEC$ ATTRIBUTES DLLEXPORT :: getDisLookbackNormedZMLRK_D0_RK3
952 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR, omegaK
953 real(RKG) ,
intent(in) :: reltol
954 integer(IK) ,
intent(out) ,
optional :: neval
955 integer(IK) ,
intent(out) ,
optional :: err
956 real(RKG) :: disLookbackNormed
961 impure elemental module function getDisLookbackNormedZMLRK_D0_RK2(zplus1, omegaM, omegaL, omegaR, omegaK, reltol, neval, err)
result(disLookbackNormed)
962#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
963 !DEC$ ATTRIBUTES DLLEXPORT :: getDisLookbackNormedZMLRK_D0_RK2
966 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR, omegaK
967 real(RKG) ,
intent(in) :: reltol
968 integer(IK) ,
intent(out) ,
optional :: neval
969 integer(IK) ,
intent(out) ,
optional :: err
970 real(RKG) :: disLookbackNormed
975 impure elemental module function getDisLookbackNormedZMLRK_D0_RK1(zplus1, omegaM, omegaL, omegaR, omegaK, reltol, neval, err)
result(disLookbackNormed)
976#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
977 !DEC$ ATTRIBUTES DLLEXPORT :: getDisLookbackNormedZMLRK_D0_RK1
980 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR, omegaK
981 real(RKG) ,
intent(in) :: reltol
982 integer(IK) ,
intent(out) ,
optional :: neval
983 integer(IK) ,
intent(out) ,
optional :: err
984 real(RKG) :: disLookbackNormed
1111 impure elemental module function getDisComNormedZ_D0_RK5(zplus1, reltol, neval, err)
result(disComNormed)
1112#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1113 !DEC$ ATTRIBUTES DLLEXPORT :: getDisComNormedZ_D0_RK5
1116 real(RKG) ,
intent(in) :: zplus1
1117 real(RKG) ,
intent(in) :: reltol
1118 integer(IK) ,
intent(out) ,
optional :: neval
1119 integer(IK) ,
intent(out) ,
optional :: err
1120 real(RKG) :: disComNormed
1125 impure elemental module function getDisComNormedZ_D0_RK4(zplus1, reltol, neval, err)
result(disComNormed)
1126#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1127 !DEC$ ATTRIBUTES DLLEXPORT :: getDisComNormedZ_D0_RK4
1130 real(RKG) ,
intent(in) :: zplus1
1131 real(RKG) ,
intent(in) :: reltol
1132 integer(IK) ,
intent(out) ,
optional :: neval
1133 integer(IK) ,
intent(out) ,
optional :: err
1134 real(RKG) :: disComNormed
1139 impure elemental module function getDisComNormedZ_D0_RK3(zplus1, reltol, neval, err)
result(disComNormed)
1140#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1141 !DEC$ ATTRIBUTES DLLEXPORT :: getDisComNormedZ_D0_RK3
1144 real(RKG) ,
intent(in) :: zplus1
1145 real(RKG) ,
intent(in) :: reltol
1146 integer(IK) ,
intent(out) ,
optional :: neval
1147 integer(IK) ,
intent(out) ,
optional :: err
1148 real(RKG) :: disComNormed
1153 impure elemental module function getDisComNormedZ_D0_RK2(zplus1, reltol, neval, err)
result(disComNormed)
1154#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1155 !DEC$ ATTRIBUTES DLLEXPORT :: getDisComNormedZ_D0_RK2
1158 real(RKG) ,
intent(in) :: zplus1
1159 real(RKG) ,
intent(in) :: reltol
1160 integer(IK) ,
intent(out) ,
optional :: neval
1161 integer(IK) ,
intent(out) ,
optional :: err
1162 real(RKG) :: disComNormed
1167 impure elemental module function getDisComNormedZ_D0_RK1(zplus1, reltol, neval, err)
result(disComNormed)
1168#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1169 !DEC$ ATTRIBUTES DLLEXPORT :: getDisComNormedZ_D0_RK1
1172 real(RKG) ,
intent(in) :: zplus1
1173 real(RKG) ,
intent(in) :: reltol
1174 integer(IK) ,
intent(out) ,
optional :: neval
1175 integer(IK) ,
intent(out) ,
optional :: err
1176 real(RKG) :: disComNormed
1183 impure elemental module function getDisComNormedZML_D0_RK5(zplus1, omegaM, omegaL, reltol, neval, err)
result(disComNormed)
1184#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1185 !DEC$ ATTRIBUTES DLLEXPORT :: getDisComNormedZML_D0_RK5
1188 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL
1189 real(RKG) ,
intent(in) :: reltol
1190 integer(IK) ,
intent(out) ,
optional :: neval
1191 integer(IK) ,
intent(out) ,
optional :: err
1192 real(RKG) :: disComNormed
1197 impure elemental module function getDisComNormedZML_D0_RK4(zplus1, omegaM, omegaL, reltol, neval, err)
result(disComNormed)
1198#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1199 !DEC$ ATTRIBUTES DLLEXPORT :: getDisComNormedZML_D0_RK4
1202 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL
1203 real(RKG) ,
intent(in) :: reltol
1204 integer(IK) ,
intent(out) ,
optional :: neval
1205 integer(IK) ,
intent(out) ,
optional :: err
1206 real(RKG) :: disComNormed
1211 impure elemental module function getDisComNormedZML_D0_RK3(zplus1, omegaM, omegaL, reltol, neval, err)
result(disComNormed)
1212#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1213 !DEC$ ATTRIBUTES DLLEXPORT :: getDisComNormedZML_D0_RK3
1216 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL
1217 real(RKG) ,
intent(in) :: reltol
1218 integer(IK) ,
intent(out) ,
optional :: neval
1219 integer(IK) ,
intent(out) ,
optional :: err
1220 real(RKG) :: disComNormed
1225 impure elemental module function getDisComNormedZML_D0_RK2(zplus1, omegaM, omegaL, reltol, neval, err)
result(disComNormed)
1226#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1227 !DEC$ ATTRIBUTES DLLEXPORT :: getDisComNormedZML_D0_RK2
1230 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL
1231 real(RKG) ,
intent(in) :: reltol
1232 integer(IK) ,
intent(out) ,
optional :: neval
1233 integer(IK) ,
intent(out) ,
optional :: err
1234 real(RKG) :: disComNormed
1239 impure elemental module function getDisComNormedZML_D0_RK1(zplus1, omegaM, omegaL, reltol, neval, err)
result(disComNormed)
1240#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1241 !DEC$ ATTRIBUTES DLLEXPORT :: getDisComNormedZML_D0_RK1
1244 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL
1245 real(RKG) ,
intent(in) :: reltol
1246 integer(IK) ,
intent(out) ,
optional :: neval
1247 integer(IK) ,
intent(out) ,
optional :: err
1248 real(RKG) :: disComNormed
1255 impure elemental module function getDisComNormedZMLR_D0_RK5(zplus1, omegaM, omegaL, omegaR, reltol, neval, err)
result(disComNormed)
1256#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1257 !DEC$ ATTRIBUTES DLLEXPORT :: getDisComNormedZMLR_D0_RK5
1260 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR
1261 real(RKG) ,
intent(in) :: reltol
1262 integer(IK) ,
intent(out) ,
optional :: neval
1263 integer(IK) ,
intent(out) ,
optional :: err
1264 real(RKG) :: disComNormed
1269 impure elemental module function getDisComNormedZMLR_D0_RK4(zplus1, omegaM, omegaL, omegaR, reltol, neval, err)
result(disComNormed)
1270#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1271 !DEC$ ATTRIBUTES DLLEXPORT :: getDisComNormedZMLR_D0_RK4
1274 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR
1275 real(RKG) ,
intent(in) :: reltol
1276 integer(IK) ,
intent(out) ,
optional :: neval
1277 integer(IK) ,
intent(out) ,
optional :: err
1278 real(RKG) :: disComNormed
1283 impure elemental module function getDisComNormedZMLR_D0_RK3(zplus1, omegaM, omegaL, omegaR, reltol, neval, err)
result(disComNormed)
1284#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1285 !DEC$ ATTRIBUTES DLLEXPORT :: getDisComNormedZMLR_D0_RK3
1288 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR
1289 real(RKG) ,
intent(in) :: reltol
1290 integer(IK) ,
intent(out) ,
optional :: neval
1291 integer(IK) ,
intent(out) ,
optional :: err
1292 real(RKG) :: disComNormed
1297 impure elemental module function getDisComNormedZMLR_D0_RK2(zplus1, omegaM, omegaL, omegaR, reltol, neval, err)
result(disComNormed)
1298#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1299 !DEC$ ATTRIBUTES DLLEXPORT :: getDisComNormedZMLR_D0_RK2
1302 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR
1303 real(RKG) ,
intent(in) :: reltol
1304 integer(IK) ,
intent(out) ,
optional :: neval
1305 integer(IK) ,
intent(out) ,
optional :: err
1306 real(RKG) :: disComNormed
1311 impure elemental module function getDisComNormedZMLR_D0_RK1(zplus1, omegaM, omegaL, omegaR, reltol, neval, err)
result(disComNormed)
1312#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1313 !DEC$ ATTRIBUTES DLLEXPORT :: getDisComNormedZMLR_D0_RK1
1316 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR
1317 real(RKG) ,
intent(in) :: reltol
1318 integer(IK) ,
intent(out) ,
optional :: neval
1319 integer(IK) ,
intent(out) ,
optional :: err
1320 real(RKG) :: disComNormed
1327 impure elemental module function getDisComNormedZMLRK_D0_RK5(zplus1, omegaM, omegaL, omegaR, omegaK, reltol, neval, err)
result(disComNormed)
1328#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1329 !DEC$ ATTRIBUTES DLLEXPORT :: getDisComNormedZMLRK_D0_RK5
1332 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR, omegaK
1333 real(RKG) ,
intent(in) :: reltol
1334 integer(IK) ,
intent(out) ,
optional :: neval
1335 integer(IK) ,
intent(out) ,
optional :: err
1336 real(RKG) :: disComNormed
1341 impure elemental module function getDisComNormedZMLRK_D0_RK4(zplus1, omegaM, omegaL, omegaR, omegaK, reltol, neval, err)
result(disComNormed)
1342#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1343 !DEC$ ATTRIBUTES DLLEXPORT :: getDisComNormedZMLRK_D0_RK4
1346 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR, omegaK
1347 real(RKG) ,
intent(in) :: reltol
1348 integer(IK) ,
intent(out) ,
optional :: neval
1349 integer(IK) ,
intent(out) ,
optional :: err
1350 real(RKG) :: disComNormed
1355 impure elemental module function getDisComNormedZMLRK_D0_RK3(zplus1, omegaM, omegaL, omegaR, omegaK, reltol, neval, err)
result(disComNormed)
1356#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1357 !DEC$ ATTRIBUTES DLLEXPORT :: getDisComNormedZMLRK_D0_RK3
1360 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR, omegaK
1361 real(RKG) ,
intent(in) :: reltol
1362 integer(IK) ,
intent(out) ,
optional :: neval
1363 integer(IK) ,
intent(out) ,
optional :: err
1364 real(RKG) :: disComNormed
1369 impure elemental module function getDisComNormedZMLRK_D0_RK2(zplus1, omegaM, omegaL, omegaR, omegaK, reltol, neval, err)
result(disComNormed)
1370#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1371 !DEC$ ATTRIBUTES DLLEXPORT :: getDisComNormedZMLRK_D0_RK2
1374 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR, omegaK
1375 real(RKG) ,
intent(in) :: reltol
1376 integer(IK) ,
intent(out) ,
optional :: neval
1377 integer(IK) ,
intent(out) ,
optional :: err
1378 real(RKG) :: disComNormed
1383 impure elemental module function getDisComNormedZMLRK_D0_RK1(zplus1, omegaM, omegaL, omegaR, omegaK, reltol, neval, err)
result(disComNormed)
1384#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1385 !DEC$ ATTRIBUTES DLLEXPORT :: getDisComNormedZMLRK_D0_RK1
1388 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR, omegaK
1389 real(RKG) ,
intent(in) :: reltol
1390 integer(IK) ,
intent(out) ,
optional :: neval
1391 integer(IK) ,
intent(out) ,
optional :: err
1392 real(RKG) :: disComNormed
1528 impure elemental module function getDisComTransNormedZ_D0_RK5(zplus1, reltol, neval, err)
result(disComTransNormed)
1529#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1530 !DEC$ ATTRIBUTES DLLEXPORT :: getDisComTransNormedZ_D0_RK5
1533 real(RKG) ,
intent(in) :: zplus1
1534 real(RKG) ,
intent(in) :: reltol
1535 integer(IK) ,
intent(out) ,
optional :: neval
1536 integer(IK) ,
intent(out) ,
optional :: err
1537 real(RKG) :: disComTransNormed
1542 impure elemental module function getDisComTransNormedZ_D0_RK4(zplus1, reltol, neval, err)
result(disComTransNormed)
1543#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1544 !DEC$ ATTRIBUTES DLLEXPORT :: getDisComTransNormedZ_D0_RK4
1547 real(RKG) ,
intent(in) :: zplus1
1548 real(RKG) ,
intent(in) :: reltol
1549 integer(IK) ,
intent(out) ,
optional :: neval
1550 integer(IK) ,
intent(out) ,
optional :: err
1551 real(RKG) :: disComTransNormed
1556 impure elemental module function getDisComTransNormedZ_D0_RK3(zplus1, reltol, neval, err)
result(disComTransNormed)
1557#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1558 !DEC$ ATTRIBUTES DLLEXPORT :: getDisComTransNormedZ_D0_RK3
1561 real(RKG) ,
intent(in) :: zplus1
1562 real(RKG) ,
intent(in) :: reltol
1563 integer(IK) ,
intent(out) ,
optional :: neval
1564 integer(IK) ,
intent(out) ,
optional :: err
1565 real(RKG) :: disComTransNormed
1570 impure elemental module function getDisComTransNormedZ_D0_RK2(zplus1, reltol, neval, err)
result(disComTransNormed)
1571#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1572 !DEC$ ATTRIBUTES DLLEXPORT :: getDisComTransNormedZ_D0_RK2
1575 real(RKG) ,
intent(in) :: zplus1
1576 real(RKG) ,
intent(in) :: reltol
1577 integer(IK) ,
intent(out) ,
optional :: neval
1578 integer(IK) ,
intent(out) ,
optional :: err
1579 real(RKG) :: disComTransNormed
1584 impure elemental module function getDisComTransNormedZ_D0_RK1(zplus1, reltol, neval, err)
result(disComTransNormed)
1585#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1586 !DEC$ ATTRIBUTES DLLEXPORT :: getDisComTransNormedZ_D0_RK1
1589 real(RKG) ,
intent(in) :: zplus1
1590 real(RKG) ,
intent(in) :: reltol
1591 integer(IK) ,
intent(out) ,
optional :: neval
1592 integer(IK) ,
intent(out) ,
optional :: err
1593 real(RKG) :: disComTransNormed
1600 impure elemental module function getDisComTransNormedZML_D0_RK5(zplus1, omegaM, omegaL, reltol, neval, err)
result(disComTransNormed)
1601#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1602 !DEC$ ATTRIBUTES DLLEXPORT :: getDisComTransNormedZML_D0_RK5
1605 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL
1606 real(RKG) ,
intent(in) :: reltol
1607 integer(IK) ,
intent(out) ,
optional :: neval
1608 integer(IK) ,
intent(out) ,
optional :: err
1609 real(RKG) :: disComTransNormed
1614 impure elemental module function getDisComTransNormedZML_D0_RK4(zplus1, omegaM, omegaL, reltol, neval, err)
result(disComTransNormed)
1615#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1616 !DEC$ ATTRIBUTES DLLEXPORT :: getDisComTransNormedZML_D0_RK4
1619 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL
1620 real(RKG) ,
intent(in) :: reltol
1621 integer(IK) ,
intent(out) ,
optional :: neval
1622 integer(IK) ,
intent(out) ,
optional :: err
1623 real(RKG) :: disComTransNormed
1628 impure elemental module function getDisComTransNormedZML_D0_RK3(zplus1, omegaM, omegaL, reltol, neval, err)
result(disComTransNormed)
1629#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1630 !DEC$ ATTRIBUTES DLLEXPORT :: getDisComTransNormedZML_D0_RK3
1633 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL
1634 real(RKG) ,
intent(in) :: reltol
1635 integer(IK) ,
intent(out) ,
optional :: neval
1636 integer(IK) ,
intent(out) ,
optional :: err
1637 real(RKG) :: disComTransNormed
1642 impure elemental module function getDisComTransNormedZML_D0_RK2(zplus1, omegaM, omegaL, reltol, neval, err)
result(disComTransNormed)
1643#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1644 !DEC$ ATTRIBUTES DLLEXPORT :: getDisComTransNormedZML_D0_RK2
1647 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL
1648 real(RKG) ,
intent(in) :: reltol
1649 integer(IK) ,
intent(out) ,
optional :: neval
1650 integer(IK) ,
intent(out) ,
optional :: err
1651 real(RKG) :: disComTransNormed
1656 impure elemental module function getDisComTransNormedZML_D0_RK1(zplus1, omegaM, omegaL, reltol, neval, err)
result(disComTransNormed)
1657#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1658 !DEC$ ATTRIBUTES DLLEXPORT :: getDisComTransNormedZML_D0_RK1
1661 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL
1662 real(RKG) ,
intent(in) :: reltol
1663 integer(IK) ,
intent(out) ,
optional :: neval
1664 integer(IK) ,
intent(out) ,
optional :: err
1665 real(RKG) :: disComTransNormed
1672 impure elemental module function getDisComTransNormedZMLR_D0_RK5(zplus1, omegaM, omegaL, omegaR, reltol, neval, err)
result(disComTransNormed)
1673#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1674 !DEC$ ATTRIBUTES DLLEXPORT :: getDisComTransNormedZMLR_D0_RK5
1677 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR
1678 real(RKG) ,
intent(in) :: reltol
1679 integer(IK) ,
intent(out) ,
optional :: neval
1680 integer(IK) ,
intent(out) ,
optional :: err
1681 real(RKG) :: disComTransNormed
1686 impure elemental module function getDisComTransNormedZMLR_D0_RK4(zplus1, omegaM, omegaL, omegaR, reltol, neval, err)
result(disComTransNormed)
1687#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1688 !DEC$ ATTRIBUTES DLLEXPORT :: getDisComTransNormedZMLR_D0_RK4
1691 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR
1692 real(RKG) ,
intent(in) :: reltol
1693 integer(IK) ,
intent(out) ,
optional :: neval
1694 integer(IK) ,
intent(out) ,
optional :: err
1695 real(RKG) :: disComTransNormed
1700 impure elemental module function getDisComTransNormedZMLR_D0_RK3(zplus1, omegaM, omegaL, omegaR, reltol, neval, err)
result(disComTransNormed)
1701#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1702 !DEC$ ATTRIBUTES DLLEXPORT :: getDisComTransNormedZMLR_D0_RK3
1705 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR
1706 real(RKG) ,
intent(in) :: reltol
1707 integer(IK) ,
intent(out) ,
optional :: neval
1708 integer(IK) ,
intent(out) ,
optional :: err
1709 real(RKG) :: disComTransNormed
1714 impure elemental module function getDisComTransNormedZMLR_D0_RK2(zplus1, omegaM, omegaL, omegaR, reltol, neval, err)
result(disComTransNormed)
1715#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1716 !DEC$ ATTRIBUTES DLLEXPORT :: getDisComTransNormedZMLR_D0_RK2
1719 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR
1720 real(RKG) ,
intent(in) :: reltol
1721 integer(IK) ,
intent(out) ,
optional :: neval
1722 integer(IK) ,
intent(out) ,
optional :: err
1723 real(RKG) :: disComTransNormed
1728 impure elemental module function getDisComTransNormedZMLR_D0_RK1(zplus1, omegaM, omegaL, omegaR, reltol, neval, err)
result(disComTransNormed)
1729#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1730 !DEC$ ATTRIBUTES DLLEXPORT :: getDisComTransNormedZMLR_D0_RK1
1733 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR
1734 real(RKG) ,
intent(in) :: reltol
1735 integer(IK) ,
intent(out) ,
optional :: neval
1736 integer(IK) ,
intent(out) ,
optional :: err
1737 real(RKG) :: disComTransNormed
1744 impure elemental module function getDisComTransNormedZMLRK_D0_RK5(zplus1, omegaM, omegaL, omegaR, omegaK, sqrtAbsOmegaK, reltol, neval, err)
result(disComTransNormed)
1745#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1746 !DEC$ ATTRIBUTES DLLEXPORT :: getDisComTransNormedZMLRK_D0_RK5
1749 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR, omegaK, sqrtAbsOmegaK
1750 real(RKG) ,
intent(in) :: reltol
1751 integer(IK) ,
intent(out) ,
optional :: neval
1752 integer(IK) ,
intent(out) ,
optional :: err
1753 real(RKG) :: disComTransNormed
1758 impure elemental module function getDisComTransNormedZMLRK_D0_RK4(zplus1, omegaM, omegaL, omegaR, omegaK, sqrtAbsOmegaK, reltol, neval, err)
result(disComTransNormed)
1759#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1760 !DEC$ ATTRIBUTES DLLEXPORT :: getDisComTransNormedZMLRK_D0_RK4
1763 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR, omegaK, sqrtAbsOmegaK
1764 real(RKG) ,
intent(in) :: reltol
1765 integer(IK) ,
intent(out) ,
optional :: neval
1766 integer(IK) ,
intent(out) ,
optional :: err
1767 real(RKG) :: disComTransNormed
1772 impure elemental module function getDisComTransNormedZMLRK_D0_RK3(zplus1, omegaM, omegaL, omegaR, omegaK, sqrtAbsOmegaK, reltol, neval, err)
result(disComTransNormed)
1773#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1774 !DEC$ ATTRIBUTES DLLEXPORT :: getDisComTransNormedZMLRK_D0_RK3
1777 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR, omegaK, sqrtAbsOmegaK
1778 real(RKG) ,
intent(in) :: reltol
1779 integer(IK) ,
intent(out) ,
optional :: neval
1780 integer(IK) ,
intent(out) ,
optional :: err
1781 real(RKG) :: disComTransNormed
1786 impure elemental module function getDisComTransNormedZMLRK_D0_RK2(zplus1, omegaM, omegaL, omegaR, omegaK, sqrtAbsOmegaK, reltol, neval, err)
result(disComTransNormed)
1787#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1788 !DEC$ ATTRIBUTES DLLEXPORT :: getDisComTransNormedZMLRK_D0_RK2
1791 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR, omegaK, sqrtAbsOmegaK
1792 real(RKG) ,
intent(in) :: reltol
1793 integer(IK) ,
intent(out) ,
optional :: neval
1794 integer(IK) ,
intent(out) ,
optional :: err
1795 real(RKG) :: disComTransNormed
1800 impure elemental module function getDisComTransNormedZMLRK_D0_RK1(zplus1, omegaM, omegaL, omegaR, omegaK, sqrtAbsOmegaK, reltol, neval, err)
result(disComTransNormed)
1801#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1802 !DEC$ ATTRIBUTES DLLEXPORT :: getDisComTransNormedZMLRK_D0_RK1
1805 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR, omegaK, sqrtAbsOmegaK
1806 real(RKG) ,
intent(in) :: reltol
1807 integer(IK) ,
intent(out) ,
optional :: neval
1808 integer(IK) ,
intent(out) ,
optional :: err
1809 real(RKG) :: disComTransNormed
1937 impure elemental module function getDisAngNormedZ_D0_RK5(zplus1, reltol, neval, err)
result(disAngNormed)
1938#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1939 !DEC$ ATTRIBUTES DLLEXPORT :: getDisAngNormedZ_D0_RK5
1942 real(RKG) ,
intent(in) :: zplus1
1943 real(RKG) ,
intent(in) :: reltol
1944 integer(IK) ,
intent(out) ,
optional :: neval
1945 integer(IK) ,
intent(out) ,
optional :: err
1946 real(RKG) :: disAngNormed
1951 impure elemental module function getDisAngNormedZ_D0_RK4(zplus1, reltol, neval, err)
result(disAngNormed)
1952#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1953 !DEC$ ATTRIBUTES DLLEXPORT :: getDisAngNormedZ_D0_RK4
1956 real(RKG) ,
intent(in) :: zplus1
1957 real(RKG) ,
intent(in) :: reltol
1958 integer(IK) ,
intent(out) ,
optional :: neval
1959 integer(IK) ,
intent(out) ,
optional :: err
1960 real(RKG) :: disAngNormed
1965 impure elemental module function getDisAngNormedZ_D0_RK3(zplus1, reltol, neval, err)
result(disAngNormed)
1966#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1967 !DEC$ ATTRIBUTES DLLEXPORT :: getDisAngNormedZ_D0_RK3
1970 real(RKG) ,
intent(in) :: zplus1
1971 real(RKG) ,
intent(in) :: reltol
1972 integer(IK) ,
intent(out) ,
optional :: neval
1973 integer(IK) ,
intent(out) ,
optional :: err
1974 real(RKG) :: disAngNormed
1979 impure elemental module function getDisAngNormedZ_D0_RK2(zplus1, reltol, neval, err)
result(disAngNormed)
1980#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1981 !DEC$ ATTRIBUTES DLLEXPORT :: getDisAngNormedZ_D0_RK2
1984 real(RKG) ,
intent(in) :: zplus1
1985 real(RKG) ,
intent(in) :: reltol
1986 integer(IK) ,
intent(out) ,
optional :: neval
1987 integer(IK) ,
intent(out) ,
optional :: err
1988 real(RKG) :: disAngNormed
1993 impure elemental module function getDisAngNormedZ_D0_RK1(zplus1, reltol, neval, err)
result(disAngNormed)
1994#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1995 !DEC$ ATTRIBUTES DLLEXPORT :: getDisAngNormedZ_D0_RK1
1998 real(RKG) ,
intent(in) :: zplus1
1999 real(RKG) ,
intent(in) :: reltol
2000 integer(IK) ,
intent(out) ,
optional :: neval
2001 integer(IK) ,
intent(out) ,
optional :: err
2002 real(RKG) :: disAngNormed
2009 impure elemental module function getDisAngNormedZML_D0_RK5(zplus1, omegaM, omegaL, reltol, neval, err)
result(disAngNormed)
2010#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2011 !DEC$ ATTRIBUTES DLLEXPORT :: getDisAngNormedZML_D0_RK5
2014 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL
2015 real(RKG) ,
intent(in) :: reltol
2016 integer(IK) ,
intent(out) ,
optional :: neval
2017 integer(IK) ,
intent(out) ,
optional :: err
2018 real(RKG) :: disAngNormed
2023 impure elemental module function getDisAngNormedZML_D0_RK4(zplus1, omegaM, omegaL, reltol, neval, err)
result(disAngNormed)
2024#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2025 !DEC$ ATTRIBUTES DLLEXPORT :: getDisAngNormedZML_D0_RK4
2028 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL
2029 real(RKG) ,
intent(in) :: reltol
2030 integer(IK) ,
intent(out) ,
optional :: neval
2031 integer(IK) ,
intent(out) ,
optional :: err
2032 real(RKG) :: disAngNormed
2037 impure elemental module function getDisAngNormedZML_D0_RK3(zplus1, omegaM, omegaL, reltol, neval, err)
result(disAngNormed)
2038#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2039 !DEC$ ATTRIBUTES DLLEXPORT :: getDisAngNormedZML_D0_RK3
2042 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL
2043 real(RKG) ,
intent(in) :: reltol
2044 integer(IK) ,
intent(out) ,
optional :: neval
2045 integer(IK) ,
intent(out) ,
optional :: err
2046 real(RKG) :: disAngNormed
2051 impure elemental module function getDisAngNormedZML_D0_RK2(zplus1, omegaM, omegaL, reltol, neval, err)
result(disAngNormed)
2052#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2053 !DEC$ ATTRIBUTES DLLEXPORT :: getDisAngNormedZML_D0_RK2
2056 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL
2057 real(RKG) ,
intent(in) :: reltol
2058 integer(IK) ,
intent(out) ,
optional :: neval
2059 integer(IK) ,
intent(out) ,
optional :: err
2060 real(RKG) :: disAngNormed
2065 impure elemental module function getDisAngNormedZML_D0_RK1(zplus1, omegaM, omegaL, reltol, neval, err)
result(disAngNormed)
2066#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2067 !DEC$ ATTRIBUTES DLLEXPORT :: getDisAngNormedZML_D0_RK1
2070 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL
2071 real(RKG) ,
intent(in) :: reltol
2072 integer(IK) ,
intent(out) ,
optional :: neval
2073 integer(IK) ,
intent(out) ,
optional :: err
2074 real(RKG) :: disAngNormed
2081 impure elemental module function getDisAngNormedZMLR_D0_RK5(zplus1, omegaM, omegaL, omegaR, reltol, neval, err)
result(disAngNormed)
2082#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2083 !DEC$ ATTRIBUTES DLLEXPORT :: getDisAngNormedZMLR_D0_RK5
2086 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR
2087 real(RKG) ,
intent(in) :: reltol
2088 integer(IK) ,
intent(out) ,
optional :: neval
2089 integer(IK) ,
intent(out) ,
optional :: err
2090 real(RKG) :: disAngNormed
2095 impure elemental module function getDisAngNormedZMLR_D0_RK4(zplus1, omegaM, omegaL, omegaR, reltol, neval, err)
result(disAngNormed)
2096#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2097 !DEC$ ATTRIBUTES DLLEXPORT :: getDisAngNormedZMLR_D0_RK4
2100 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR
2101 real(RKG) ,
intent(in) :: reltol
2102 integer(IK) ,
intent(out) ,
optional :: neval
2103 integer(IK) ,
intent(out) ,
optional :: err
2104 real(RKG) :: disAngNormed
2109 impure elemental module function getDisAngNormedZMLR_D0_RK3(zplus1, omegaM, omegaL, omegaR, reltol, neval, err)
result(disAngNormed)
2110#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2111 !DEC$ ATTRIBUTES DLLEXPORT :: getDisAngNormedZMLR_D0_RK3
2114 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR
2115 real(RKG) ,
intent(in) :: reltol
2116 integer(IK) ,
intent(out) ,
optional :: neval
2117 integer(IK) ,
intent(out) ,
optional :: err
2118 real(RKG) :: disAngNormed
2123 impure elemental module function getDisAngNormedZMLR_D0_RK2(zplus1, omegaM, omegaL, omegaR, reltol, neval, err)
result(disAngNormed)
2124#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2125 !DEC$ ATTRIBUTES DLLEXPORT :: getDisAngNormedZMLR_D0_RK2
2128 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR
2129 real(RKG) ,
intent(in) :: reltol
2130 integer(IK) ,
intent(out) ,
optional :: neval
2131 integer(IK) ,
intent(out) ,
optional :: err
2132 real(RKG) :: disAngNormed
2137 impure elemental module function getDisAngNormedZMLR_D0_RK1(zplus1, omegaM, omegaL, omegaR, reltol, neval, err)
result(disAngNormed)
2138#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2139 !DEC$ ATTRIBUTES DLLEXPORT :: getDisAngNormedZMLR_D0_RK1
2142 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR
2143 real(RKG) ,
intent(in) :: reltol
2144 integer(IK) ,
intent(out) ,
optional :: neval
2145 integer(IK) ,
intent(out) ,
optional :: err
2146 real(RKG) :: disAngNormed
2153 impure elemental module function getDisAngNormedZMLRK_D0_RK5(zplus1, omegaM, omegaL, omegaR, omegaK, sqrtAbsOmegaK, reltol, neval, err)
result(disAngNormed)
2154#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2155 !DEC$ ATTRIBUTES DLLEXPORT :: getDisAngNormedZMLRK_D0_RK5
2158 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR, omegaK, sqrtAbsOmegaK
2159 real(RKG) ,
intent(in) :: reltol
2160 integer(IK) ,
intent(out) ,
optional :: neval
2161 integer(IK) ,
intent(out) ,
optional :: err
2162 real(RKG) :: disAngNormed
2167 impure elemental module function getDisAngNormedZMLRK_D0_RK4(zplus1, omegaM, omegaL, omegaR, omegaK, sqrtAbsOmegaK, reltol, neval, err)
result(disAngNormed)
2168#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2169 !DEC$ ATTRIBUTES DLLEXPORT :: getDisAngNormedZMLRK_D0_RK4
2172 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR, omegaK, sqrtAbsOmegaK
2173 real(RKG) ,
intent(in) :: reltol
2174 integer(IK) ,
intent(out) ,
optional :: neval
2175 integer(IK) ,
intent(out) ,
optional :: err
2176 real(RKG) :: disAngNormed
2181 impure elemental module function getDisAngNormedZMLRK_D0_RK3(zplus1, omegaM, omegaL, omegaR, omegaK, sqrtAbsOmegaK, reltol, neval, err)
result(disAngNormed)
2182#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2183 !DEC$ ATTRIBUTES DLLEXPORT :: getDisAngNormedZMLRK_D0_RK3
2186 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR, omegaK, sqrtAbsOmegaK
2187 real(RKG) ,
intent(in) :: reltol
2188 integer(IK) ,
intent(out) ,
optional :: neval
2189 integer(IK) ,
intent(out) ,
optional :: err
2190 real(RKG) :: disAngNormed
2195 impure elemental module function getDisAngNormedZMLRK_D0_RK2(zplus1, omegaM, omegaL, omegaR, omegaK, sqrtAbsOmegaK, reltol, neval, err)
result(disAngNormed)
2196#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2197 !DEC$ ATTRIBUTES DLLEXPORT :: getDisAngNormedZMLRK_D0_RK2
2200 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR, omegaK, sqrtAbsOmegaK
2201 real(RKG) ,
intent(in) :: reltol
2202 integer(IK) ,
intent(out) ,
optional :: neval
2203 integer(IK) ,
intent(out) ,
optional :: err
2204 real(RKG) :: disAngNormed
2209 impure elemental module function getDisAngNormedZMLRK_D0_RK1(zplus1, omegaM, omegaL, omegaR, omegaK, sqrtAbsOmegaK, reltol, neval, err)
result(disAngNormed)
2210#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2211 !DEC$ ATTRIBUTES DLLEXPORT :: getDisAngNormedZMLRK_D0_RK1
2214 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR, omegaK, sqrtAbsOmegaK
2215 real(RKG) ,
intent(in) :: reltol
2216 integer(IK) ,
intent(out) ,
optional :: neval
2217 integer(IK) ,
intent(out) ,
optional :: err
2218 real(RKG) :: disAngNormed
2349 impure elemental module function getDisLumNormedZ_D0_RK5(zplus1, reltol, neval, err)
result(disLumNormed)
2350#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2351 !DEC$ ATTRIBUTES DLLEXPORT :: getDisLumNormedZ_D0_RK5
2354 real(RKG) ,
intent(in) :: zplus1
2355 real(RKG) ,
intent(in) :: reltol
2356 integer(IK) ,
intent(out) ,
optional :: neval
2357 integer(IK) ,
intent(out) ,
optional :: err
2358 real(RKG) :: disLumNormed
2363 impure elemental module function getDisLumNormedZ_D0_RK4(zplus1, reltol, neval, err)
result(disLumNormed)
2364#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2365 !DEC$ ATTRIBUTES DLLEXPORT :: getDisLumNormedZ_D0_RK4
2368 real(RKG) ,
intent(in) :: zplus1
2369 real(RKG) ,
intent(in) :: reltol
2370 integer(IK) ,
intent(out) ,
optional :: neval
2371 integer(IK) ,
intent(out) ,
optional :: err
2372 real(RKG) :: disLumNormed
2377 impure elemental module function getDisLumNormedZ_D0_RK3(zplus1, reltol, neval, err)
result(disLumNormed)
2378#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2379 !DEC$ ATTRIBUTES DLLEXPORT :: getDisLumNormedZ_D0_RK3
2382 real(RKG) ,
intent(in) :: zplus1
2383 real(RKG) ,
intent(in) :: reltol
2384 integer(IK) ,
intent(out) ,
optional :: neval
2385 integer(IK) ,
intent(out) ,
optional :: err
2386 real(RKG) :: disLumNormed
2391 impure elemental module function getDisLumNormedZ_D0_RK2(zplus1, reltol, neval, err)
result(disLumNormed)
2392#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2393 !DEC$ ATTRIBUTES DLLEXPORT :: getDisLumNormedZ_D0_RK2
2396 real(RKG) ,
intent(in) :: zplus1
2397 real(RKG) ,
intent(in) :: reltol
2398 integer(IK) ,
intent(out) ,
optional :: neval
2399 integer(IK) ,
intent(out) ,
optional :: err
2400 real(RKG) :: disLumNormed
2405 impure elemental module function getDisLumNormedZ_D0_RK1(zplus1, reltol, neval, err)
result(disLumNormed)
2406#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2407 !DEC$ ATTRIBUTES DLLEXPORT :: getDisLumNormedZ_D0_RK1
2410 real(RKG) ,
intent(in) :: zplus1
2411 real(RKG) ,
intent(in) :: reltol
2412 integer(IK) ,
intent(out) ,
optional :: neval
2413 integer(IK) ,
intent(out) ,
optional :: err
2414 real(RKG) :: disLumNormed
2421 impure elemental module function getDisLumNormedZML_D0_RK5(zplus1, omegaM, omegaL, reltol, neval, err)
result(disLumNormed)
2422#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2423 !DEC$ ATTRIBUTES DLLEXPORT :: getDisLumNormedZML_D0_RK5
2426 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL
2427 real(RKG) ,
intent(in) :: reltol
2428 integer(IK) ,
intent(out) ,
optional :: neval
2429 integer(IK) ,
intent(out) ,
optional :: err
2430 real(RKG) :: disLumNormed
2435 impure elemental module function getDisLumNormedZML_D0_RK4(zplus1, omegaM, omegaL, reltol, neval, err)
result(disLumNormed)
2436#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2437 !DEC$ ATTRIBUTES DLLEXPORT :: getDisLumNormedZML_D0_RK4
2440 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL
2441 real(RKG) ,
intent(in) :: reltol
2442 integer(IK) ,
intent(out) ,
optional :: neval
2443 integer(IK) ,
intent(out) ,
optional :: err
2444 real(RKG) :: disLumNormed
2449 impure elemental module function getDisLumNormedZML_D0_RK3(zplus1, omegaM, omegaL, reltol, neval, err)
result(disLumNormed)
2450#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2451 !DEC$ ATTRIBUTES DLLEXPORT :: getDisLumNormedZML_D0_RK3
2454 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL
2455 real(RKG) ,
intent(in) :: reltol
2456 integer(IK) ,
intent(out) ,
optional :: neval
2457 integer(IK) ,
intent(out) ,
optional :: err
2458 real(RKG) :: disLumNormed
2463 impure elemental module function getDisLumNormedZML_D0_RK2(zplus1, omegaM, omegaL, reltol, neval, err)
result(disLumNormed)
2464#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2465 !DEC$ ATTRIBUTES DLLEXPORT :: getDisLumNormedZML_D0_RK2
2468 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL
2469 real(RKG) ,
intent(in) :: reltol
2470 integer(IK) ,
intent(out) ,
optional :: neval
2471 integer(IK) ,
intent(out) ,
optional :: err
2472 real(RKG) :: disLumNormed
2477 impure elemental module function getDisLumNormedZML_D0_RK1(zplus1, omegaM, omegaL, reltol, neval, err)
result(disLumNormed)
2478#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2479 !DEC$ ATTRIBUTES DLLEXPORT :: getDisLumNormedZML_D0_RK1
2482 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL
2483 real(RKG) ,
intent(in) :: reltol
2484 integer(IK) ,
intent(out) ,
optional :: neval
2485 integer(IK) ,
intent(out) ,
optional :: err
2486 real(RKG) :: disLumNormed
2493 impure elemental module function getDisLumNormedZMLR_D0_RK5(zplus1, omegaM, omegaL, omegaR, reltol, neval, err)
result(disLumNormed)
2494#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2495 !DEC$ ATTRIBUTES DLLEXPORT :: getDisLumNormedZMLR_D0_RK5
2498 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR
2499 real(RKG) ,
intent(in) :: reltol
2500 integer(IK) ,
intent(out) ,
optional :: neval
2501 integer(IK) ,
intent(out) ,
optional :: err
2502 real(RKG) :: disLumNormed
2507 impure elemental module function getDisLumNormedZMLR_D0_RK4(zplus1, omegaM, omegaL, omegaR, reltol, neval, err)
result(disLumNormed)
2508#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2509 !DEC$ ATTRIBUTES DLLEXPORT :: getDisLumNormedZMLR_D0_RK4
2512 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR
2513 real(RKG) ,
intent(in) :: reltol
2514 integer(IK) ,
intent(out) ,
optional :: neval
2515 integer(IK) ,
intent(out) ,
optional :: err
2516 real(RKG) :: disLumNormed
2521 impure elemental module function getDisLumNormedZMLR_D0_RK3(zplus1, omegaM, omegaL, omegaR, reltol, neval, err)
result(disLumNormed)
2522#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2523 !DEC$ ATTRIBUTES DLLEXPORT :: getDisLumNormedZMLR_D0_RK3
2526 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR
2527 real(RKG) ,
intent(in) :: reltol
2528 integer(IK) ,
intent(out) ,
optional :: neval
2529 integer(IK) ,
intent(out) ,
optional :: err
2530 real(RKG) :: disLumNormed
2535 impure elemental module function getDisLumNormedZMLR_D0_RK2(zplus1, omegaM, omegaL, omegaR, reltol, neval, err)
result(disLumNormed)
2536#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2537 !DEC$ ATTRIBUTES DLLEXPORT :: getDisLumNormedZMLR_D0_RK2
2540 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR
2541 real(RKG) ,
intent(in) :: reltol
2542 integer(IK) ,
intent(out) ,
optional :: neval
2543 integer(IK) ,
intent(out) ,
optional :: err
2544 real(RKG) :: disLumNormed
2549 impure elemental module function getDisLumNormedZMLR_D0_RK1(zplus1, omegaM, omegaL, omegaR, reltol, neval, err)
result(disLumNormed)
2550#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2551 !DEC$ ATTRIBUTES DLLEXPORT :: getDisLumNormedZMLR_D0_RK1
2554 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR
2555 real(RKG) ,
intent(in) :: reltol
2556 integer(IK) ,
intent(out) ,
optional :: neval
2557 integer(IK) ,
intent(out) ,
optional :: err
2558 real(RKG) :: disLumNormed
2565 impure elemental module function getDisLumNormedZMLRK_D0_RK5(zplus1, omegaM, omegaL, omegaR, omegaK, sqrtAbsOmegaK, reltol, neval, err)
result(disLumNormed)
2566#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2567 !DEC$ ATTRIBUTES DLLEXPORT :: getDisLumNormedZMLRK_D0_RK5
2570 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR, omegaK, sqrtAbsOmegaK
2571 real(RKG) ,
intent(in) :: reltol
2572 integer(IK) ,
intent(out) ,
optional :: neval
2573 integer(IK) ,
intent(out) ,
optional :: err
2574 real(RKG) :: disLumNormed
2579 impure elemental module function getDisLumNormedZMLRK_D0_RK4(zplus1, omegaM, omegaL, omegaR, omegaK, sqrtAbsOmegaK, reltol, neval, err)
result(disLumNormed)
2580#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2581 !DEC$ ATTRIBUTES DLLEXPORT :: getDisLumNormedZMLRK_D0_RK4
2584 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR, omegaK, sqrtAbsOmegaK
2585 real(RKG) ,
intent(in) :: reltol
2586 integer(IK) ,
intent(out) ,
optional :: neval
2587 integer(IK) ,
intent(out) ,
optional :: err
2588 real(RKG) :: disLumNormed
2593 impure elemental module function getDisLumNormedZMLRK_D0_RK3(zplus1, omegaM, omegaL, omegaR, omegaK, sqrtAbsOmegaK, reltol, neval, err)
result(disLumNormed)
2594#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2595 !DEC$ ATTRIBUTES DLLEXPORT :: getDisLumNormedZMLRK_D0_RK3
2598 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR, omegaK, sqrtAbsOmegaK
2599 real(RKG) ,
intent(in) :: reltol
2600 integer(IK) ,
intent(out) ,
optional :: neval
2601 integer(IK) ,
intent(out) ,
optional :: err
2602 real(RKG) :: disLumNormed
2607 impure elemental module function getDisLumNormedZMLRK_D0_RK2(zplus1, omegaM, omegaL, omegaR, omegaK, sqrtAbsOmegaK, reltol, neval, err)
result(disLumNormed)
2608#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2609 !DEC$ ATTRIBUTES DLLEXPORT :: getDisLumNormedZMLRK_D0_RK2
2612 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR, omegaK, sqrtAbsOmegaK
2613 real(RKG) ,
intent(in) :: reltol
2614 integer(IK) ,
intent(out) ,
optional :: neval
2615 integer(IK) ,
intent(out) ,
optional :: err
2616 real(RKG) :: disLumNormed
2621 impure elemental module function getDisLumNormedZMLRK_D0_RK1(zplus1, omegaM, omegaL, omegaR, omegaK, sqrtAbsOmegaK, reltol, neval, err)
result(disLumNormed)
2622#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2623 !DEC$ ATTRIBUTES DLLEXPORT :: getDisLumNormedZMLRK_D0_RK1
2626 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR, omegaK, sqrtAbsOmegaK
2627 real(RKG) ,
intent(in) :: reltol
2628 integer(IK) ,
intent(out) ,
optional :: neval
2629 integer(IK) ,
intent(out) ,
optional :: err
2630 real(RKG) :: disLumNormed
2744 PURE elemental module function getDisComTransNormedWU10Z_D0_RK5(zplus1)
result(disComTransNormedWU10)
2745#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2746 !DEC$ ATTRIBUTES DLLEXPORT :: getDisComTransNormedWU10Z_D0_RK5
2749 real(RKG) ,
intent(in) :: zplus1
2750 real(RKG) :: disComTransNormedWU10
2755 PURE elemental module function getDisComTransNormedWU10Z_D0_RK4(zplus1)
result(disComTransNormedWU10)
2756#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2757 !DEC$ ATTRIBUTES DLLEXPORT :: getDisComTransNormedWU10Z_D0_RK4
2760 real(RKG) ,
intent(in) :: zplus1
2761 real(RKG) :: disComTransNormedWU10
2766 PURE elemental module function getDisComTransNormedWU10Z_D0_RK3(zplus1)
result(disComTransNormedWU10)
2767#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2768 !DEC$ ATTRIBUTES DLLEXPORT :: getDisComTransNormedWU10Z_D0_RK3
2771 real(RKG) ,
intent(in) :: zplus1
2772 real(RKG) :: disComTransNormedWU10
2777 PURE elemental module function getDisComTransNormedWU10Z_D0_RK2(zplus1)
result(disComTransNormedWU10)
2778#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2779 !DEC$ ATTRIBUTES DLLEXPORT :: getDisComTransNormedWU10Z_D0_RK2
2782 real(RKG) ,
intent(in) :: zplus1
2783 real(RKG) :: disComTransNormedWU10
2788 PURE elemental module function getDisComTransNormedWU10Z_D0_RK1(zplus1)
result(disComTransNormedWU10)
2789#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2790 !DEC$ ATTRIBUTES DLLEXPORT :: getDisComTransNormedWU10Z_D0_RK1
2793 real(RKG) ,
intent(in) :: zplus1
2794 real(RKG) :: disComTransNormedWU10
2801 PURE elemental module function getDisComTransNormedWU10ZML_D0_RK5(zplus1, omegaM, omegaL)
result(disComTransNormedWU10)
2802#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2803 !DEC$ ATTRIBUTES DLLEXPORT :: getDisComTransNormedWU10ZML_D0_RK5
2806 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL
2807 real(RKG) :: disComTransNormedWU10
2812 PURE elemental module function getDisComTransNormedWU10ZML_D0_RK4(zplus1, omegaM, omegaL)
result(disComTransNormedWU10)
2813#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2814 !DEC$ ATTRIBUTES DLLEXPORT :: getDisComTransNormedWU10ZML_D0_RK4
2817 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL
2818 real(RKG) :: disComTransNormedWU10
2823 PURE elemental module function getDisComTransNormedWU10ZML_D0_RK3(zplus1, omegaM, omegaL)
result(disComTransNormedWU10)
2824#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2825 !DEC$ ATTRIBUTES DLLEXPORT :: getDisComTransNormedWU10ZML_D0_RK3
2828 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL
2829 real(RKG) :: disComTransNormedWU10
2834 PURE elemental module function getDisComTransNormedWU10ZML_D0_RK2(zplus1, omegaM, omegaL)
result(disComTransNormedWU10)
2835#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2836 !DEC$ ATTRIBUTES DLLEXPORT :: getDisComTransNormedWU10ZML_D0_RK2
2839 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL
2840 real(RKG) :: disComTransNormedWU10
2845 PURE elemental module function getDisComTransNormedWU10ZML_D0_RK1(zplus1, omegaM, omegaL)
result(disComTransNormedWU10)
2846#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2847 !DEC$ ATTRIBUTES DLLEXPORT :: getDisComTransNormedWU10ZML_D0_RK1
2850 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL
2851 real(RKG) :: disComTransNormedWU10
2968 PURE elemental module function getHubbleParamNormedSqZ_D0_RK5(zplus1)
result(hubbleParamNormedSq)
2969#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2970 !DEC$ ATTRIBUTES DLLEXPORT :: getHubbleParamNormedSqZ_D0_RK5
2973 real(RKG) ,
intent(in) :: zplus1
2974 real(RKG) :: hubbleParamNormedSq
2979 PURE elemental module function getHubbleParamNormedSqZ_D0_RK4(zplus1)
result(hubbleParamNormedSq)
2980#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2981 !DEC$ ATTRIBUTES DLLEXPORT :: getHubbleParamNormedSqZ_D0_RK4
2984 real(RKG) ,
intent(in) :: zplus1
2985 real(RKG) :: hubbleParamNormedSq
2990 PURE elemental module function getHubbleParamNormedSqZ_D0_RK3(zplus1)
result(hubbleParamNormedSq)
2991#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2992 !DEC$ ATTRIBUTES DLLEXPORT :: getHubbleParamNormedSqZ_D0_RK3
2995 real(RKG) ,
intent(in) :: zplus1
2996 real(RKG) :: hubbleParamNormedSq
3001 PURE elemental module function getHubbleParamNormedSqZ_D0_RK2(zplus1)
result(hubbleParamNormedSq)
3002#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3003 !DEC$ ATTRIBUTES DLLEXPORT :: getHubbleParamNormedSqZ_D0_RK2
3006 real(RKG) ,
intent(in) :: zplus1
3007 real(RKG) :: hubbleParamNormedSq
3012 PURE elemental module function getHubbleParamNormedSqZ_D0_RK1(zplus1)
result(hubbleParamNormedSq)
3013#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3014 !DEC$ ATTRIBUTES DLLEXPORT :: getHubbleParamNormedSqZ_D0_RK1
3017 real(RKG) ,
intent(in) :: zplus1
3018 real(RKG) :: hubbleParamNormedSq
3025 PURE elemental module function getHubbleParamNormedSqZML_D0_RK5(zplus1, omegaM, omegaL)
result(hubbleParamNormedSq)
3026#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3027 !DEC$ ATTRIBUTES DLLEXPORT :: getHubbleParamNormedSqZML_D0_RK5
3030 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL
3031 real(RKG) :: hubbleParamNormedSq
3036 PURE elemental module function getHubbleParamNormedSqZML_D0_RK4(zplus1, omegaM, omegaL)
result(hubbleParamNormedSq)
3037#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3038 !DEC$ ATTRIBUTES DLLEXPORT :: getHubbleParamNormedSqZML_D0_RK4
3041 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL
3042 real(RKG) :: hubbleParamNormedSq
3047 PURE elemental module function getHubbleParamNormedSqZML_D0_RK3(zplus1, omegaM, omegaL)
result(hubbleParamNormedSq)
3048#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3049 !DEC$ ATTRIBUTES DLLEXPORT :: getHubbleParamNormedSqZML_D0_RK3
3052 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL
3053 real(RKG) :: hubbleParamNormedSq
3058 PURE elemental module function getHubbleParamNormedSqZML_D0_RK2(zplus1, omegaM, omegaL)
result(hubbleParamNormedSq)
3059#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3060 !DEC$ ATTRIBUTES DLLEXPORT :: getHubbleParamNormedSqZML_D0_RK2
3063 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL
3064 real(RKG) :: hubbleParamNormedSq
3069 PURE elemental module function getHubbleParamNormedSqZML_D0_RK1(zplus1, omegaM, omegaL)
result(hubbleParamNormedSq)
3070#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3071 !DEC$ ATTRIBUTES DLLEXPORT :: getHubbleParamNormedSqZML_D0_RK1
3074 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL
3075 real(RKG) :: hubbleParamNormedSq
3082 PURE elemental module function getHubbleParamNormedSqZMLR_D0_RK5(zplus1, omegaM, omegaL, omegaR)
result(hubbleParamNormedSq)
3083#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3084 !DEC$ ATTRIBUTES DLLEXPORT :: getHubbleParamNormedSqZMLR_D0_RK5
3087 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR
3088 real(RKG) :: hubbleParamNormedSq
3093 PURE elemental module function getHubbleParamNormedSqZMLR_D0_RK4(zplus1, omegaM, omegaL, omegaR)
result(hubbleParamNormedSq)
3094#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3095 !DEC$ ATTRIBUTES DLLEXPORT :: getHubbleParamNormedSqZMLR_D0_RK4
3098 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR
3099 real(RKG) :: hubbleParamNormedSq
3104 PURE elemental module function getHubbleParamNormedSqZMLR_D0_RK3(zplus1, omegaM, omegaL, omegaR)
result(hubbleParamNormedSq)
3105#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3106 !DEC$ ATTRIBUTES DLLEXPORT :: getHubbleParamNormedSqZMLR_D0_RK3
3109 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR
3110 real(RKG) :: hubbleParamNormedSq
3115 PURE elemental module function getHubbleParamNormedSqZMLR_D0_RK2(zplus1, omegaM, omegaL, omegaR)
result(hubbleParamNormedSq)
3116#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3117 !DEC$ ATTRIBUTES DLLEXPORT :: getHubbleParamNormedSqZMLR_D0_RK2
3120 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR
3121 real(RKG) :: hubbleParamNormedSq
3126 PURE elemental module function getHubbleParamNormedSqZMLR_D0_RK1(zplus1, omegaM, omegaL, omegaR)
result(hubbleParamNormedSq)
3127#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3128 !DEC$ ATTRIBUTES DLLEXPORT :: getHubbleParamNormedSqZMLR_D0_RK1
3131 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR
3132 real(RKG) :: hubbleParamNormedSq
3139 PURE elemental module function getHubbleParamNormedSqZMLRK_D0_RK5(zplus1, omegaM, omegaL, omegaR, omegaK)
result(hubbleParamNormedSq)
3140#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3141 !DEC$ ATTRIBUTES DLLEXPORT :: getHubbleParamNormedSqZMLRK_D0_RK5
3144 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR, omegaK
3145 real(RKG) :: hubbleParamNormedSq
3150 PURE elemental module function getHubbleParamNormedSqZMLRK_D0_RK4(zplus1, omegaM, omegaL, omegaR, omegaK)
result(hubbleParamNormedSq)
3151#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3152 !DEC$ ATTRIBUTES DLLEXPORT :: getHubbleParamNormedSqZMLRK_D0_RK4
3155 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR, omegaK
3156 real(RKG) :: hubbleParamNormedSq
3161 PURE elemental module function getHubbleParamNormedSqZMLRK_D0_RK3(zplus1, omegaM, omegaL, omegaR, omegaK)
result(hubbleParamNormedSq)
3162#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3163 !DEC$ ATTRIBUTES DLLEXPORT :: getHubbleParamNormedSqZMLRK_D0_RK3
3166 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR, omegaK
3167 real(RKG) :: hubbleParamNormedSq
3172 PURE elemental module function getHubbleParamNormedSqZMLRK_D0_RK2(zplus1, omegaM, omegaL, omegaR, omegaK)
result(hubbleParamNormedSq)
3173#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3174 !DEC$ ATTRIBUTES DLLEXPORT :: getHubbleParamNormedSqZMLRK_D0_RK2
3177 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR, omegaK
3178 real(RKG) :: hubbleParamNormedSq
3183 PURE elemental module function getHubbleParamNormedSqZMLRK_D0_RK1(zplus1, omegaM, omegaL, omegaR, omegaK)
result(hubbleParamNormedSq)
3184#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3185 !DEC$ ATTRIBUTES DLLEXPORT :: getHubbleParamNormedSqZMLRK_D0_RK1
3188 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR, omegaK
3189 real(RKG) :: hubbleParamNormedSq
3328 impure elemental module function getVolComDiffNormedZ_D0_RK5(zplus1, reltol, neval, err)
result(volComDiffNormed)
3329#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3330 !DEC$ ATTRIBUTES DLLEXPORT :: getVolComDiffNormedZ_D0_RK5
3333 real(RKG) ,
intent(in) :: zplus1
3334 real(RKG) ,
intent(in) :: reltol
3335 integer(IK) ,
intent(out) ,
optional :: neval
3336 integer(IK) ,
intent(out) ,
optional :: err
3337 real(RKG) :: volComDiffNormed
3342 impure elemental module function getVolComDiffNormedZ_D0_RK4(zplus1, reltol, neval, err)
result(volComDiffNormed)
3343#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3344 !DEC$ ATTRIBUTES DLLEXPORT :: getVolComDiffNormedZ_D0_RK4
3347 real(RKG) ,
intent(in) :: zplus1
3348 real(RKG) ,
intent(in) :: reltol
3349 integer(IK) ,
intent(out) ,
optional :: neval
3350 integer(IK) ,
intent(out) ,
optional :: err
3351 real(RKG) :: volComDiffNormed
3356 impure elemental module function getVolComDiffNormedZ_D0_RK3(zplus1, reltol, neval, err)
result(volComDiffNormed)
3357#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3358 !DEC$ ATTRIBUTES DLLEXPORT :: getVolComDiffNormedZ_D0_RK3
3361 real(RKG) ,
intent(in) :: zplus1
3362 real(RKG) ,
intent(in) :: reltol
3363 integer(IK) ,
intent(out) ,
optional :: neval
3364 integer(IK) ,
intent(out) ,
optional :: err
3365 real(RKG) :: volComDiffNormed
3370 impure elemental module function getVolComDiffNormedZ_D0_RK2(zplus1, reltol, neval, err)
result(volComDiffNormed)
3371#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3372 !DEC$ ATTRIBUTES DLLEXPORT :: getVolComDiffNormedZ_D0_RK2
3375 real(RKG) ,
intent(in) :: zplus1
3376 real(RKG) ,
intent(in) :: reltol
3377 integer(IK) ,
intent(out) ,
optional :: neval
3378 integer(IK) ,
intent(out) ,
optional :: err
3379 real(RKG) :: volComDiffNormed
3384 impure elemental module function getVolComDiffNormedZ_D0_RK1(zplus1, reltol, neval, err)
result(volComDiffNormed)
3385#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3386 !DEC$ ATTRIBUTES DLLEXPORT :: getVolComDiffNormedZ_D0_RK1
3389 real(RKG) ,
intent(in) :: zplus1
3390 real(RKG) ,
intent(in) :: reltol
3391 integer(IK) ,
intent(out) ,
optional :: neval
3392 integer(IK) ,
intent(out) ,
optional :: err
3393 real(RKG) :: volComDiffNormed
3400 impure elemental module function getVolComDiffNormedZML_D0_RK5(zplus1, omegaM, omegaL, reltol, neval, err)
result(volComDiffNormed)
3401#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3402 !DEC$ ATTRIBUTES DLLEXPORT :: getVolComDiffNormedZML_D0_RK5
3405 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL
3406 real(RKG) ,
intent(in) :: reltol
3407 integer(IK) ,
intent(out) ,
optional :: neval
3408 integer(IK) ,
intent(out) ,
optional :: err
3409 real(RKG) :: volComDiffNormed
3414 impure elemental module function getVolComDiffNormedZML_D0_RK4(zplus1, omegaM, omegaL, reltol, neval, err)
result(volComDiffNormed)
3415#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3416 !DEC$ ATTRIBUTES DLLEXPORT :: getVolComDiffNormedZML_D0_RK4
3419 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL
3420 real(RKG) ,
intent(in) :: reltol
3421 integer(IK) ,
intent(out) ,
optional :: neval
3422 integer(IK) ,
intent(out) ,
optional :: err
3423 real(RKG) :: volComDiffNormed
3428 impure elemental module function getVolComDiffNormedZML_D0_RK3(zplus1, omegaM, omegaL, reltol, neval, err)
result(volComDiffNormed)
3429#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3430 !DEC$ ATTRIBUTES DLLEXPORT :: getVolComDiffNormedZML_D0_RK3
3433 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL
3434 real(RKG) ,
intent(in) :: reltol
3435 integer(IK) ,
intent(out) ,
optional :: neval
3436 integer(IK) ,
intent(out) ,
optional :: err
3437 real(RKG) :: volComDiffNormed
3442 impure elemental module function getVolComDiffNormedZML_D0_RK2(zplus1, omegaM, omegaL, reltol, neval, err)
result(volComDiffNormed)
3443#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3444 !DEC$ ATTRIBUTES DLLEXPORT :: getVolComDiffNormedZML_D0_RK2
3447 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL
3448 real(RKG) ,
intent(in) :: reltol
3449 integer(IK) ,
intent(out) ,
optional :: neval
3450 integer(IK) ,
intent(out) ,
optional :: err
3451 real(RKG) :: volComDiffNormed
3456 impure elemental module function getVolComDiffNormedZML_D0_RK1(zplus1, omegaM, omegaL, reltol, neval, err)
result(volComDiffNormed)
3457#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3458 !DEC$ ATTRIBUTES DLLEXPORT :: getVolComDiffNormedZML_D0_RK1
3461 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL
3462 real(RKG) ,
intent(in) :: reltol
3463 integer(IK) ,
intent(out) ,
optional :: neval
3464 integer(IK) ,
intent(out) ,
optional :: err
3465 real(RKG) :: volComDiffNormed
3472 impure elemental module function getVolComDiffNormedZMLR_D0_RK5(zplus1, omegaM, omegaL, omegaR, reltol, neval, err)
result(volComDiffNormed)
3473#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3474 !DEC$ ATTRIBUTES DLLEXPORT :: getVolComDiffNormedZMLR_D0_RK5
3477 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR
3478 real(RKG) ,
intent(in) :: reltol
3479 integer(IK) ,
intent(out) ,
optional :: neval
3480 integer(IK) ,
intent(out) ,
optional :: err
3481 real(RKG) :: volComDiffNormed
3486 impure elemental module function getVolComDiffNormedZMLR_D0_RK4(zplus1, omegaM, omegaL, omegaR, reltol, neval, err)
result(volComDiffNormed)
3487#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3488 !DEC$ ATTRIBUTES DLLEXPORT :: getVolComDiffNormedZMLR_D0_RK4
3491 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR
3492 real(RKG) ,
intent(in) :: reltol
3493 integer(IK) ,
intent(out) ,
optional :: neval
3494 integer(IK) ,
intent(out) ,
optional :: err
3495 real(RKG) :: volComDiffNormed
3500 impure elemental module function getVolComDiffNormedZMLR_D0_RK3(zplus1, omegaM, omegaL, omegaR, reltol, neval, err)
result(volComDiffNormed)
3501#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3502 !DEC$ ATTRIBUTES DLLEXPORT :: getVolComDiffNormedZMLR_D0_RK3
3505 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR
3506 real(RKG) ,
intent(in) :: reltol
3507 integer(IK) ,
intent(out) ,
optional :: neval
3508 integer(IK) ,
intent(out) ,
optional :: err
3509 real(RKG) :: volComDiffNormed
3514 impure elemental module function getVolComDiffNormedZMLR_D0_RK2(zplus1, omegaM, omegaL, omegaR, reltol, neval, err)
result(volComDiffNormed)
3515#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3516 !DEC$ ATTRIBUTES DLLEXPORT :: getVolComDiffNormedZMLR_D0_RK2
3519 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR
3520 real(RKG) ,
intent(in) :: reltol
3521 integer(IK) ,
intent(out) ,
optional :: neval
3522 integer(IK) ,
intent(out) ,
optional :: err
3523 real(RKG) :: volComDiffNormed
3528 impure elemental module function getVolComDiffNormedZMLR_D0_RK1(zplus1, omegaM, omegaL, omegaR, reltol, neval, err)
result(volComDiffNormed)
3529#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3530 !DEC$ ATTRIBUTES DLLEXPORT :: getVolComDiffNormedZMLR_D0_RK1
3533 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR
3534 real(RKG) ,
intent(in) :: reltol
3535 integer(IK) ,
intent(out) ,
optional :: neval
3536 integer(IK) ,
intent(out) ,
optional :: err
3537 real(RKG) :: volComDiffNormed
3544 impure elemental module function getVolComDiffNormedZMLRK_D0_RK5(zplus1, omegaM, omegaL, omegaR, omegaK, sqrtAbsOmegaK, reltol, neval, err)
result(volComDiffNormed)
3545#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3546 !DEC$ ATTRIBUTES DLLEXPORT :: getVolComDiffNormedZMLRK_D0_RK5
3549 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR, omegaK, sqrtAbsOmegaK
3550 real(RKG) ,
intent(in) :: reltol
3551 integer(IK) ,
intent(out) ,
optional :: neval
3552 integer(IK) ,
intent(out) ,
optional :: err
3553 real(RKG) :: volComDiffNormed
3558 impure elemental module function getVolComDiffNormedZMLRK_D0_RK4(zplus1, omegaM, omegaL, omegaR, omegaK, sqrtAbsOmegaK, reltol, neval, err)
result(volComDiffNormed)
3559#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3560 !DEC$ ATTRIBUTES DLLEXPORT :: getVolComDiffNormedZMLRK_D0_RK4
3563 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR, omegaK, sqrtAbsOmegaK
3564 real(RKG) ,
intent(in) :: reltol
3565 integer(IK) ,
intent(out) ,
optional :: neval
3566 integer(IK) ,
intent(out) ,
optional :: err
3567 real(RKG) :: volComDiffNormed
3572 impure elemental module function getVolComDiffNormedZMLRK_D0_RK3(zplus1, omegaM, omegaL, omegaR, omegaK, sqrtAbsOmegaK, reltol, neval, err)
result(volComDiffNormed)
3573#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3574 !DEC$ ATTRIBUTES DLLEXPORT :: getVolComDiffNormedZMLRK_D0_RK3
3577 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR, omegaK, sqrtAbsOmegaK
3578 real(RKG) ,
intent(in) :: reltol
3579 integer(IK) ,
intent(out) ,
optional :: neval
3580 integer(IK) ,
intent(out) ,
optional :: err
3581 real(RKG) :: volComDiffNormed
3586 impure elemental module function getVolComDiffNormedZMLRK_D0_RK2(zplus1, omegaM, omegaL, omegaR, omegaK, sqrtAbsOmegaK, reltol, neval, err)
result(volComDiffNormed)
3587#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3588 !DEC$ ATTRIBUTES DLLEXPORT :: getVolComDiffNormedZMLRK_D0_RK2
3591 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR, omegaK, sqrtAbsOmegaK
3592 real(RKG) ,
intent(in) :: reltol
3593 integer(IK) ,
intent(out) ,
optional :: neval
3594 integer(IK) ,
intent(out) ,
optional :: err
3595 real(RKG) :: volComDiffNormed
3600 impure elemental module function getVolComDiffNormedZMLRK_D0_RK1(zplus1, omegaM, omegaL, omegaR, omegaK, sqrtAbsOmegaK, reltol, neval, err)
result(volComDiffNormed)
3601#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3602 !DEC$ ATTRIBUTES DLLEXPORT :: getVolComDiffNormedZMLRK_D0_RK1
3605 real(RKG) ,
intent(in) :: zplus1, omegaM, omegaL, omegaR, omegaK, sqrtAbsOmegaK
3606 real(RKG) ,
intent(in) :: reltol
3607 integer(IK) ,
intent(out) ,
optional :: neval
3608 integer(IK) ,
intent(out) ,
optional :: err
3609 real(RKG) :: volComDiffNormed
3728 pure elemental module subroutine setVolComDiffNormed_D0_RK5(volComDiffNormed, disComTransNormedSq, hubbleParamNormed)
3729#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3730 !DEC$ ATTRIBUTES DLLEXPORT :: setVolComDiffNormed_D0_RK5
3733 real(RKG) ,
intent(out) :: volComDiffNormed
3734 real(RKG) ,
intent(in) :: disComTransNormedSq, hubbleParamNormed
3739 pure elemental module subroutine setVolComDiffNormed_D0_RK4(volComDiffNormed, disComTransNormedSq, hubbleParamNormed)
3740#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3741 !DEC$ ATTRIBUTES DLLEXPORT :: setVolComDiffNormed_D0_RK4
3744 real(RKG) ,
intent(out) :: volComDiffNormed
3745 real(RKG) ,
intent(in) :: disComTransNormedSq, hubbleParamNormed
3750 pure elemental module subroutine setVolComDiffNormed_D0_RK3(volComDiffNormed, disComTransNormedSq, hubbleParamNormed)
3751#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3752 !DEC$ ATTRIBUTES DLLEXPORT :: setVolComDiffNormed_D0_RK3
3755 real(RKG) ,
intent(out) :: volComDiffNormed
3756 real(RKG) ,
intent(in) :: disComTransNormedSq, hubbleParamNormed
3761 pure elemental module subroutine setVolComDiffNormed_D0_RK2(volComDiffNormed, disComTransNormedSq, hubbleParamNormed)
3762#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3763 !DEC$ ATTRIBUTES DLLEXPORT :: setVolComDiffNormed_D0_RK2
3766 real(RKG) ,
intent(out) :: volComDiffNormed
3767 real(RKG) ,
intent(in) :: disComTransNormedSq, hubbleParamNormed
3772 pure elemental module subroutine setVolComDiffNormed_D0_RK1(volComDiffNormed, disComTransNormedSq, hubbleParamNormed)
3773#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3774 !DEC$ ATTRIBUTES DLLEXPORT :: setVolComDiffNormed_D0_RK1
3777 real(RKG) ,
intent(out) :: volComDiffNormed
3778 real(RKG) ,
intent(in) :: disComTransNormedSq, hubbleParamNormed
3902 pure elemental module function getVolComNormedD_D0_RK5(disComTransNormed)
result(volComNormed)
3903#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3904 !DEC$ ATTRIBUTES DLLEXPORT :: getVolComNormedD_D0_RK5
3907 real(RKG) ,
intent(in) :: disComTransNormed
3908 real(RKG) :: volComNormed
3913 pure elemental module function getVolComNormedD_D0_RK4(disComTransNormed)
result(volComNormed)
3914#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3915 !DEC$ ATTRIBUTES DLLEXPORT :: getVolComNormedD_D0_RK4
3918 real(RKG) ,
intent(in) :: disComTransNormed
3919 real(RKG) :: volComNormed
3924 pure elemental module function getVolComNormedD_D0_RK3(disComTransNormed)
result(volComNormed)
3925#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3926 !DEC$ ATTRIBUTES DLLEXPORT :: getVolComNormedD_D0_RK3
3929 real(RKG) ,
intent(in) :: disComTransNormed
3930 real(RKG) :: volComNormed
3935 pure elemental module function getVolComNormedD_D0_RK2(disComTransNormed)
result(volComNormed)
3936#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3937 !DEC$ ATTRIBUTES DLLEXPORT :: getVolComNormedD_D0_RK2
3940 real(RKG) ,
intent(in) :: disComTransNormed
3941 real(RKG) :: volComNormed
3946 pure elemental module function getVolComNormedD_D0_RK1(disComTransNormed)
result(volComNormed)
3947#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3948 !DEC$ ATTRIBUTES DLLEXPORT :: getVolComNormedD_D0_RK1
3951 real(RKG) ,
intent(in) :: disComTransNormed
3952 real(RKG) :: volComNormed
3959 pure elemental module function getVolComNormedDOS_D0_RK5(disComTransNormed, omegaK, sqrtAbsOmegaK)
result(volComNormed)
3960#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3961 !DEC$ ATTRIBUTES DLLEXPORT :: getVolComNormedDOS_D0_RK5
3964 real(RKG) ,
intent(in) :: disComTransNormed, omegaK, sqrtAbsOmegaK
3965 real(RKG) :: volComNormed
3970 pure elemental module function getVolComNormedDOS_D0_RK4(disComTransNormed, omegaK, sqrtAbsOmegaK)
result(volComNormed)
3971#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3972 !DEC$ ATTRIBUTES DLLEXPORT :: getVolComNormedDOS_D0_RK4
3975 real(RKG) ,
intent(in) :: disComTransNormed, omegaK, sqrtAbsOmegaK
3976 real(RKG) :: volComNormed
3981 pure elemental module function getVolComNormedDOS_D0_RK3(disComTransNormed, omegaK, sqrtAbsOmegaK)
result(volComNormed)
3982#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3983 !DEC$ ATTRIBUTES DLLEXPORT :: getVolComNormedDOS_D0_RK3
3986 real(RKG) ,
intent(in) :: disComTransNormed, omegaK, sqrtAbsOmegaK
3987 real(RKG) :: volComNormed
3992 pure elemental module function getVolComNormedDOS_D0_RK2(disComTransNormed, omegaK, sqrtAbsOmegaK)
result(volComNormed)
3993#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3994 !DEC$ ATTRIBUTES DLLEXPORT :: getVolComNormedDOS_D0_RK2
3997 real(RKG) ,
intent(in) :: disComTransNormed, omegaK, sqrtAbsOmegaK
3998 real(RKG) :: volComNormed
4003 pure elemental module function getVolComNormedDOS_D0_RK1(disComTransNormed, omegaK, sqrtAbsOmegaK)
result(volComNormed)
4004#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4005 !DEC$ ATTRIBUTES DLLEXPORT :: getVolComNormedDOS_D0_RK1
4008 real(RKG) ,
intent(in) :: disComTransNormed, omegaK, sqrtAbsOmegaK
4009 real(RKG) :: volComNormed
4045 pure elemental function ldiswickram(zplus1)
4046#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4047 !DEC$ ATTRIBUTES DLLEXPORT :: ldiswickram
4050 real(RK),
intent(in) :: zplus1
4051 real(RK) :: ldiswickram,alpha,alpha0,x,x0,psi,psi0
4052 real(RK),
parameter :: OMEGA_M_RK
= real(OMEGA_M, RK)
4053 real(RK),
parameter :: OMEGA_L_RK
= real(OMEGA_L, RK)
4054 alpha
= 1._RK + 2 * OMEGA_L_RK
/ (OMEGA_M_RK
*zplus1
**3)
4055 alpha0
= 1._RK + 2 * OMEGA_L_RK
/ OMEGA_M_RK
4056 x0
= log(alpha0
+sqrt(alpha0
*alpha0
- 1._RK))
4057 x
= log(alpha
+ sqrt(alpha
* alpha
- 1._RK))
4058 psi
=x
**0.333333333333333_RK*(
1.5874010519682_RK-6.2992105236833e-3_RK*x
*x
+7.5375168659459e-5_RK*x
**4)
4059 psi0
=x0
**0.333333333333333_RK*(
1.5874010519682_RK-6.2992105236833e-3_RK*x0
*x0
+7.5375168659459e-5_RK*x0
**4)
4060 ldiswickram
= real(
HUBBLE_DISTANCE_MPC, RK)
* zplus1
* (psi0
- psi)
/ (OMEGA_L_RK
**0.1666666666666667_RK * OMEGA_M_RK
**0.333333333333333_RK)
4061 end function ldiswickram
4084 impure function getLookBackTime(zplus1, maxRelativeError, nRefinement)
result(lookBackTime)
4085#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4086 !DEC$ ATTRIBUTES DLLEXPORT :: getLookBackTime
4088 use,
intrinsic ::
iso_fortran_env,
only:
output_unit
4091 real(RK) ,
intent(in) :: zplus1
4092 real(RK) ,
intent(in),
optional :: maxRelativeError
4093 integer(IK) ,
intent(in),
optional :: nRefinement
4094 real(RK) ,
parameter :: ZPLUS1_MIN
= 1._RK
4095 real(RK) :: lookBackTime
4096 real(RK) :: maxRelativeErrorDefault
4097 integer(IK) :: nRefinementDefault
4099 maxRelativeErrorDefault
= 1.e-6_RK;
if (
present(maxRelativeError)) maxRelativeErrorDefault
= maxRelativeError
4100 nRefinementDefault
= 7_IK;
if (
present(nRefinement)) nRefinementDefault
= nRefinement
4102 lookBackTime
= getQuadRomb( getFunc
= getLookBackTimeDensity
&
4105 , tol
= maxRelativeErrorDefault
&
4106 , nref
= nRefinementDefault
&
4134 pure function getLookBackTimeDensity(zplus1)
result(lookBackTimeDnesity)
4136 real(RK),
intent(in) :: zplus1
4137 real(RK) :: lookBackTimeDnesity
4138 real(RK),
parameter :: OMEGA_M_RK
= real(OMEGA_M, RK)
4139 real(RK),
parameter :: OMEGA_L_RK
= real(OMEGA_L, RK)
4140 lookBackTimeDnesity
= 1._RK / ( zplus1
* sqrt(OMEGA_M_RK
* zplus1
**3 + OMEGA_L_RK) )
4165 pure elemental function getUniverseAgeDerivative(zplus1)
result(universeAgeDerivative)
4166#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4167 !DEC$ ATTRIBUTES DLLEXPORT :: getUniverseAgeDerivative
4171 real(RK),
intent(in) :: zplus1
4172 real(RK) :: universeAgeDerivative
4173 real(RK),
parameter :: OMEGA_M_RK
= real(OMEGA_M, RK)
4174 real(RK),
parameter :: OMEGA_L_RK
= real(OMEGA_L, RK)
4175 real(RK),
parameter :: INV_HUBBLE_CONST_RK
= real(INV_HUBBLE_CONST, RK)
4176 universeAgeDerivative
= INV_HUBBLE_CONST_RK
/ ( zplus1
* sqrt(OMEGA_M_RK
* zplus1
**3 + OMEGA_L_RK) )
4177 end function getUniverseAgeDerivative
4185end module pm_cosmology
Generate and return the cosmological Angular Diameter Distance normalized to Hubble Distance,...
Generate and return the cosmological line-of-sight Comoving Distance normalized to Hubble Distance,...
Generate and return the approximate to the cosmological Transverse Comoving Distance normalized to Hu...
Generate and return the cosmological Transverse Comoving Distance normalized to Hubble Distance,...
Generate and return the cosmological Lookback Distance (or equivalently, the Lookback Time) at the de...
Generate and return the cosmological Luminosity Distance normalized to Hubble Distance,...
Generate and return the square of the dimensionless Hubble Parameter for the default or the specifie...
Generate and return the cosmological size (or equivalently, the age) of the Universe at the desired r...
Generate and return the cosmological Comoving Volume Element per unit solid angle of the sky (i....
Generate and return the full-sky ( Steradian) cosmological Comoving Volume normalized to Hubble Volu...
Generate and return the cosmological Comoving Volume Differential (Element) per unit solid angle of t...
Generate and return the integral of the input function getFunc() in the closed range [lb,...
This module contains procedures and generic interfaces and constants for cosmological calculations.
real(RKB), parameter OMEGA_L
The scalar real constant of kind with highest available precision RKB representing the current best e...
real(RKB), parameter OMEGA_M
The scalar real constant of kind with highest available precision RKB representing the current best e...
character(*, SK), parameter MODULE_NAME
real(RKB), parameter LOG_HUBBLE_VOLUME_CM3
The scalar real constant of kind with highest available precision RKB representing the natural logari...
real(RKB), parameter MPC2LY
The scalar real constant of kind with highest available precision RKB representing the exact conversi...
real(RKB), parameter INV_HUBBLE_CONST
The scalar real constant of kind with highest available precision RKB representing the inverse of the...
real(RKB), parameter HUBBLE_CONST
The scalar real constant of kind with highest available precision RKB representing the Hubble constan...
real(RKB), parameter LIGHT_SPEED
The scalar real constant of kind with highest available precision RKB representing the exact speed of...
real(RKB), parameter HUBBLE_DISTANCE_GLY
The scalar real constant of kind with highest available precision RKB representing the Hubble Distanc...
real(RKB), parameter HUBBLE_VOLUME_GLY3
The scalar real constant of kind with highest available precision RKB representing the Hubble Volume ...
real(RKB), parameter LOG_HUBBLE_DISTANCE_CM
The scalar real constant of kind with highest available precision RKB representing the natural logari...
real(RKB), parameter LOG_HUBBLE_DISTANCE_MPC
The scalar real constant of kind with highest available precision RKB representing the natural logari...
real(RKB), parameter HUBBLE_TIME_SEC
The scalar real constant of kind with highest available precision RKB representing the exact Hubble t...
real(RKB), parameter HUBBLE_DISTANCE_MPC
The scalar real constant of kind with highest available precision RKB representing the Hubble Distanc...
real(RKB), parameter LOG_HUBBLE_VOLUME_MPC3
The scalar real constant of kind with highest available precision RKB representing the natural logari...
real(RKB), parameter LOG_MPC2CM
The scalar real constant of kind with highest available precision RKB representing the natural logari...
real(RKB), parameter YR2SEC
The scalar real constant of kind with highest available precision RKB representing the exact number o...
real(RKB), parameter MPC2KM
The scalar real constant of kind with highest available precision RKB representing the exact conversi...
real(RKB), parameter OMEGA_K
The scalar real constant of kind with highest available precision RKB representing the current best e...
real(RKB), parameter OMEGA_R
The scalar real constant of kind with highest available precision RKB representing the current best e...
real(RKB), parameter PIPC2M
The scalar real constant of kind with highest available precision RKB representing the exact conversi...
real(RKB), parameter MPC2GLY
The scalar real constant of kind with highest available precision RKB representing the exact conversi...
real(RKB), parameter LOG_LIGHT_SPEED
The scalar real constant of kind with highest available precision RKB representing the natural logari...
real(RKB), parameter LOG_HUBBLE_CONST
The scalar real constant of kind with highest available precision RKB representing the natural logari...
real(RKB), parameter HUBBLE_VOLUME_MPC3
The scalar real constant of kind with highest available precision RKB representing the Hubble Volume ...
real(RKB), parameter LYR2CM
The scalar real constant of kind with highest available precision RKB representing the exact conversi...
real(RKB), parameter HUBBLE_TIME_GYR
The scalar real constant of kind with highest available precision RKB representing the approximate Hu...
real(RKB), parameter MPC2CM
The scalar real constant of kind with highest available precision RKB representing the exact conversi...
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
integer, parameter RK
The default real kind in the ParaMonte library: real64 in Fortran, c_double in C-Fortran Interoperati...
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 module contains classes and procedures to perform numerical integrations.