ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
pm_cosmology.F90
Go to the documentation of this file.
1!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
2!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
3!!!! !!!!
4!!!! ParaMonte: Parallel Monte Carlo and Machine Learning Library. !!!!
5!!!! !!!!
6!!!! Copyright (C) 2012-present, The Computational Data Science Lab !!!!
7!!!! !!!!
8!!!! This file is part of the ParaMonte library. !!!!
9!!!! !!!!
10!!!! LICENSE !!!!
11!!!! !!!!
12!!!! https://github.com/cdslaborg/paramonte/blob/main/LICENSE.md !!!!
13!!!! !!!!
14!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
15!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
16
75
76!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
77
79
80 use pm_kind, only: RKB, IK, SK
81
82 implicit none
83
84 character(*, SK), parameter :: MODULE_NAME = "@pm_cosmology"
85
86 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%
87 ! The cosmological constants.
88 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%
89
90 real(RKB) , parameter :: YR2SEC = 31557600._RKB
91 real(RKB) , parameter :: LIGHT_SPEED = 2.99792458e5_RKB
92 real(RKB) , parameter :: LYR2CM = 946073047258080000._RKB
93 real(RKB) , parameter :: PIPC2M = 9.6939420213600000e16_RKB
94 real(RKB) , parameter :: MPC2CM = PIPC2M * 1.e8_RKB / acos(-1._RKB)
95 real(RKB) , parameter :: MPC2KM = MPC2CM / 1.e5_RKB
96 real(RKB) , parameter :: MPC2LY = MPC2CM / LYR2CM
97 real(RKB) , parameter :: MPC2GLY = MPC2LY / 1.e9_RKB
98 real(RKB) , parameter :: LOG_MPC2CM = log(MPC2CM)
99 real(RKB) , parameter :: OMEGA_M = 0.31_RKB
100 real(RKB) , parameter :: OMEGA_L = 0.69_RKB
101 real(RKB) , parameter :: OMEGA_R = 0.0_RKB
102 real(RKB) , parameter :: OMEGA_K = 0.0_RKB
103
104 real(RKB) , parameter :: HUBBLE_CONST = 67.7_RKB
105 real(RKB) , parameter :: LOG_LIGHT_SPEED = log(LIGHT_SPEED)
106 real(RKB) , parameter :: LOG_HUBBLE_CONST = log(HUBBLE_CONST)
107 real(RKB) , parameter :: INV_HUBBLE_CONST = 1._RKB / HUBBLE_CONST
108
115
122
123 real(RKB) , parameter :: HUBBLE_TIME_SEC = MPC2KM / HUBBLE_CONST
131
132!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
133
271
272 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
273
274#if RK5_ENABLED
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
278#endif
279 use pm_kind, only: RKG => 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
285 end function
286#endif
287
288#if RK4_ENABLED
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
292#endif
293 use pm_kind, only: RKG => 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
299 end function
300#endif
301
302#if RK3_ENABLED
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
306#endif
307 use pm_kind, only: RKG => 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
313 end function
314#endif
315
316#if RK2_ENABLED
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
320#endif
321 use pm_kind, only: RKG => 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
327 end function
328#endif
329
330#if RK1_ENABLED
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
334#endif
335 use pm_kind, only: RKG => 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
341 end function
342#endif
343
344 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
345
346#if RK5_ENABLED
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
350#endif
351 use pm_kind, only: RKG => 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
357 end function
358#endif
359
360#if RK4_ENABLED
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
364#endif
365 use pm_kind, only: RKG => 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
371 end function
372#endif
373
374#if RK3_ENABLED
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
378#endif
379 use pm_kind, only: RKG => 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
385 end function
386#endif
387
388#if RK2_ENABLED
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
392#endif
393 use pm_kind, only: RKG => 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
399 end function
400#endif
401
402#if RK1_ENABLED
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
406#endif
407 use pm_kind, only: RKG => 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
413 end function
414#endif
415
416 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
417
418#if RK5_ENABLED
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
422#endif
423 use pm_kind, only: RKG => 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
429 end function
430#endif
431
432#if RK4_ENABLED
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
436#endif
437 use pm_kind, only: RKG => 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
443 end function
444#endif
445
446#if RK3_ENABLED
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
450#endif
451 use pm_kind, only: RKG => 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
457 end function
458#endif
459
460#if RK2_ENABLED
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
464#endif
465 use pm_kind, only: RKG => 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
471 end function
472#endif
473
474#if RK1_ENABLED
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
478#endif
479 use pm_kind, only: RKG => 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
485 end function
486#endif
487
488 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
489
490#if RK5_ENABLED
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
494#endif
495 use pm_kind, only: RKG => 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
501 end function
502#endif
503
504#if RK4_ENABLED
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
508#endif
509 use pm_kind, only: RKG => 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
515 end function
516#endif
517
518#if RK3_ENABLED
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
522#endif
523 use pm_kind, only: RKG => 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
529 end function
530#endif
531
532#if RK2_ENABLED
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
536#endif
537 use pm_kind, only: RKG => 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
543 end function
544#endif
545
546#if RK1_ENABLED
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
550#endif
551 use pm_kind, only: RKG => 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
557 end function
558#endif
559
560 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
561
562 end interface
563
564!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
565
699
700 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
701
702#if RK5_ENABLED
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
706#endif
707 use pm_kind, only: RKG => 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
713 end function
714#endif
715
716#if RK4_ENABLED
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
720#endif
721 use pm_kind, only: RKG => 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
727 end function
728#endif
729
730#if RK3_ENABLED
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
734#endif
735 use pm_kind, only: RKG => 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
741 end function
742#endif
743
744#if RK2_ENABLED
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
748#endif
749 use pm_kind, only: RKG => 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
755 end function
756#endif
757
758#if RK1_ENABLED
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
762#endif
763 use pm_kind, only: RKG => 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
769 end function
770#endif
771
772 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
773
774#if RK5_ENABLED
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
778#endif
779 use pm_kind, only: RKG => 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
785 end function
786#endif
787
788#if RK4_ENABLED
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
792#endif
793 use pm_kind, only: RKG => 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
799 end function
800#endif
801
802#if RK3_ENABLED
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
806#endif
807 use pm_kind, only: RKG => 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
813 end function
814#endif
815
816#if RK2_ENABLED
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
820#endif
821 use pm_kind, only: RKG => 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
827 end function
828#endif
829
830#if RK1_ENABLED
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
834#endif
835 use pm_kind, only: RKG => 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
841 end function
842#endif
843
844 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
845
846#if RK5_ENABLED
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
850#endif
851 use pm_kind, only: RKG => 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
857 end function
858#endif
859
860#if RK4_ENABLED
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
864#endif
865 use pm_kind, only: RKG => 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
871 end function
872#endif
873
874#if RK3_ENABLED
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
878#endif
879 use pm_kind, only: RKG => 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
885 end function
886#endif
887
888#if RK2_ENABLED
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
892#endif
893 use pm_kind, only: RKG => 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
899 end function
900#endif
901
902#if RK1_ENABLED
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
906#endif
907 use pm_kind, only: RKG => 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
913 end function
914#endif
915
916 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
917
918#if RK5_ENABLED
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
922#endif
923 use pm_kind, only: RKG => 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
929 end function
930#endif
931
932#if RK4_ENABLED
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
936#endif
937 use pm_kind, only: RKG => 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
943 end function
944#endif
945
946#if RK3_ENABLED
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
950#endif
951 use pm_kind, only: RKG => 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
957 end function
958#endif
959
960#if RK2_ENABLED
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
964#endif
965 use pm_kind, only: RKG => 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
971 end function
972#endif
973
974#if RK1_ENABLED
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
978#endif
979 use pm_kind, only: RKG => 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
985 end function
986#endif
987
988 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
989
990 end interface
991
992!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
993
1107
1108 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1109
1110#if RK5_ENABLED
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
1114#endif
1115 use pm_kind, only: RKG => 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
1121 end function
1122#endif
1123
1124#if RK4_ENABLED
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
1128#endif
1129 use pm_kind, only: RKG => 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
1135 end function
1136#endif
1137
1138#if RK3_ENABLED
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
1142#endif
1143 use pm_kind, only: RKG => 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
1149 end function
1150#endif
1151
1152#if RK2_ENABLED
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
1156#endif
1157 use pm_kind, only: RKG => 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
1163 end function
1164#endif
1165
1166#if RK1_ENABLED
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
1170#endif
1171 use pm_kind, only: RKG => 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
1177 end function
1178#endif
1179
1180 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1181
1182#if RK5_ENABLED
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
1186#endif
1187 use pm_kind, only: RKG => 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
1193 end function
1194#endif
1195
1196#if RK4_ENABLED
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
1200#endif
1201 use pm_kind, only: RKG => 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
1207 end function
1208#endif
1209
1210#if RK3_ENABLED
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
1214#endif
1215 use pm_kind, only: RKG => 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
1221 end function
1222#endif
1223
1224#if RK2_ENABLED
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
1228#endif
1229 use pm_kind, only: RKG => 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
1235 end function
1236#endif
1237
1238#if RK1_ENABLED
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
1242#endif
1243 use pm_kind, only: RKG => 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
1249 end function
1250#endif
1251
1252 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1253
1254#if RK5_ENABLED
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
1258#endif
1259 use pm_kind, only: RKG => 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
1265 end function
1266#endif
1267
1268#if RK4_ENABLED
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
1272#endif
1273 use pm_kind, only: RKG => 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
1279 end function
1280#endif
1281
1282#if RK3_ENABLED
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
1286#endif
1287 use pm_kind, only: RKG => 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
1293 end function
1294#endif
1295
1296#if RK2_ENABLED
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
1300#endif
1301 use pm_kind, only: RKG => 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
1307 end function
1308#endif
1309
1310#if RK1_ENABLED
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
1314#endif
1315 use pm_kind, only: RKG => 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
1321 end function
1322#endif
1323
1324 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1325
1326#if RK5_ENABLED
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
1330#endif
1331 use pm_kind, only: RKG => 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
1337 end function
1338#endif
1339
1340#if RK4_ENABLED
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
1344#endif
1345 use pm_kind, only: RKG => 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
1351 end function
1352#endif
1353
1354#if RK3_ENABLED
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
1358#endif
1359 use pm_kind, only: RKG => 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
1365 end function
1366#endif
1367
1368#if RK2_ENABLED
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
1372#endif
1373 use pm_kind, only: RKG => 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
1379 end function
1380#endif
1381
1382#if RK1_ENABLED
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
1386#endif
1387 use pm_kind, only: RKG => 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
1393 end function
1394#endif
1395
1396 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1397
1398 end interface
1399
1400!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1401
1524
1525 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1526
1527#if RK5_ENABLED
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
1531#endif
1532 use pm_kind, only: RKG => 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
1538 end function
1539#endif
1540
1541#if RK4_ENABLED
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
1545#endif
1546 use pm_kind, only: RKG => 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
1552 end function
1553#endif
1554
1555#if RK3_ENABLED
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
1559#endif
1560 use pm_kind, only: RKG => 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
1566 end function
1567#endif
1568
1569#if RK2_ENABLED
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
1573#endif
1574 use pm_kind, only: RKG => 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
1580 end function
1581#endif
1582
1583#if RK1_ENABLED
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
1587#endif
1588 use pm_kind, only: RKG => 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
1594 end function
1595#endif
1596
1597 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1598
1599#if RK5_ENABLED
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
1603#endif
1604 use pm_kind, only: RKG => 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
1610 end function
1611#endif
1612
1613#if RK4_ENABLED
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
1617#endif
1618 use pm_kind, only: RKG => 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
1624 end function
1625#endif
1626
1627#if RK3_ENABLED
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
1631#endif
1632 use pm_kind, only: RKG => 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
1638 end function
1639#endif
1640
1641#if RK2_ENABLED
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
1645#endif
1646 use pm_kind, only: RKG => 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
1652 end function
1653#endif
1654
1655#if RK1_ENABLED
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
1659#endif
1660 use pm_kind, only: RKG => 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
1666 end function
1667#endif
1668
1669 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1670
1671#if RK5_ENABLED
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
1675#endif
1676 use pm_kind, only: RKG => 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
1682 end function
1683#endif
1684
1685#if RK4_ENABLED
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
1689#endif
1690 use pm_kind, only: RKG => 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
1696 end function
1697#endif
1698
1699#if RK3_ENABLED
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
1703#endif
1704 use pm_kind, only: RKG => 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
1710 end function
1711#endif
1712
1713#if RK2_ENABLED
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
1717#endif
1718 use pm_kind, only: RKG => 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
1724 end function
1725#endif
1726
1727#if RK1_ENABLED
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
1731#endif
1732 use pm_kind, only: RKG => 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
1738 end function
1739#endif
1740
1741 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1742
1743#if RK5_ENABLED
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
1747#endif
1748 use pm_kind, only: RKG => 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
1754 end function
1755#endif
1756
1757#if RK4_ENABLED
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
1761#endif
1762 use pm_kind, only: RKG => 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
1768 end function
1769#endif
1770
1771#if RK3_ENABLED
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
1775#endif
1776 use pm_kind, only: RKG => 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
1782 end function
1783#endif
1784
1785#if RK2_ENABLED
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
1789#endif
1790 use pm_kind, only: RKG => 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
1796 end function
1797#endif
1798
1799#if RK1_ENABLED
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
1803#endif
1804 use pm_kind, only: RKG => 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
1810 end function
1811#endif
1812
1813 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1814
1815 end interface
1816
1817!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1818
1933
1934 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1935
1936#if RK5_ENABLED
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
1940#endif
1941 use pm_kind, only: RKG => 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
1947 end function
1948#endif
1949
1950#if RK4_ENABLED
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
1954#endif
1955 use pm_kind, only: RKG => 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
1961 end function
1962#endif
1963
1964#if RK3_ENABLED
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
1968#endif
1969 use pm_kind, only: RKG => 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
1975 end function
1976#endif
1977
1978#if RK2_ENABLED
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
1982#endif
1983 use pm_kind, only: RKG => 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
1989 end function
1990#endif
1991
1992#if RK1_ENABLED
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
1996#endif
1997 use pm_kind, only: RKG => 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
2003 end function
2004#endif
2005
2006 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2007
2008#if RK5_ENABLED
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
2012#endif
2013 use pm_kind, only: RKG => 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
2019 end function
2020#endif
2021
2022#if RK4_ENABLED
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
2026#endif
2027 use pm_kind, only: RKG => 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
2033 end function
2034#endif
2035
2036#if RK3_ENABLED
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
2040#endif
2041 use pm_kind, only: RKG => 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
2047 end function
2048#endif
2049
2050#if RK2_ENABLED
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
2054#endif
2055 use pm_kind, only: RKG => 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
2061 end function
2062#endif
2063
2064#if RK1_ENABLED
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
2068#endif
2069 use pm_kind, only: RKG => 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
2075 end function
2076#endif
2077
2078 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2079
2080#if RK5_ENABLED
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
2084#endif
2085 use pm_kind, only: RKG => 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
2091 end function
2092#endif
2093
2094#if RK4_ENABLED
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
2098#endif
2099 use pm_kind, only: RKG => 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
2105 end function
2106#endif
2107
2108#if RK3_ENABLED
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
2112#endif
2113 use pm_kind, only: RKG => 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
2119 end function
2120#endif
2121
2122#if RK2_ENABLED
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
2126#endif
2127 use pm_kind, only: RKG => 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
2133 end function
2134#endif
2135
2136#if RK1_ENABLED
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
2140#endif
2141 use pm_kind, only: RKG => 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
2147 end function
2148#endif
2149
2150 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2151
2152#if RK5_ENABLED
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
2156#endif
2157 use pm_kind, only: RKG => 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
2163 end function
2164#endif
2165
2166#if RK4_ENABLED
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
2170#endif
2171 use pm_kind, only: RKG => 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
2177 end function
2178#endif
2179
2180#if RK3_ENABLED
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
2184#endif
2185 use pm_kind, only: RKG => 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
2191 end function
2192#endif
2193
2194#if RK2_ENABLED
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
2198#endif
2199 use pm_kind, only: RKG => 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
2205 end function
2206#endif
2207
2208#if RK1_ENABLED
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
2212#endif
2213 use pm_kind, only: RKG => 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
2219 end function
2220#endif
2221
2222 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2223
2224 end interface
2225
2226!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2227
2345
2346 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2347
2348#if RK5_ENABLED
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
2352#endif
2353 use pm_kind, only: RKG => 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
2359 end function
2360#endif
2361
2362#if RK4_ENABLED
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
2366#endif
2367 use pm_kind, only: RKG => 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
2373 end function
2374#endif
2375
2376#if RK3_ENABLED
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
2380#endif
2381 use pm_kind, only: RKG => 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
2387 end function
2388#endif
2389
2390#if RK2_ENABLED
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
2394#endif
2395 use pm_kind, only: RKG => 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
2401 end function
2402#endif
2403
2404#if RK1_ENABLED
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
2408#endif
2409 use pm_kind, only: RKG => 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
2415 end function
2416#endif
2417
2418 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2419
2420#if RK5_ENABLED
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
2424#endif
2425 use pm_kind, only: RKG => 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
2431 end function
2432#endif
2433
2434#if RK4_ENABLED
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
2438#endif
2439 use pm_kind, only: RKG => 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
2445 end function
2446#endif
2447
2448#if RK3_ENABLED
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
2452#endif
2453 use pm_kind, only: RKG => 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
2459 end function
2460#endif
2461
2462#if RK2_ENABLED
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
2466#endif
2467 use pm_kind, only: RKG => 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
2473 end function
2474#endif
2475
2476#if RK1_ENABLED
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
2480#endif
2481 use pm_kind, only: RKG => 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
2487 end function
2488#endif
2489
2490 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2491
2492#if RK5_ENABLED
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
2496#endif
2497 use pm_kind, only: RKG => 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
2503 end function
2504#endif
2505
2506#if RK4_ENABLED
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
2510#endif
2511 use pm_kind, only: RKG => 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
2517 end function
2518#endif
2519
2520#if RK3_ENABLED
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
2524#endif
2525 use pm_kind, only: RKG => 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
2531 end function
2532#endif
2533
2534#if RK2_ENABLED
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
2538#endif
2539 use pm_kind, only: RKG => 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
2545 end function
2546#endif
2547
2548#if RK1_ENABLED
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
2552#endif
2553 use pm_kind, only: RKG => 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
2559 end function
2560#endif
2561
2562 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2563
2564#if RK5_ENABLED
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
2568#endif
2569 use pm_kind, only: RKG => 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
2575 end function
2576#endif
2577
2578#if RK4_ENABLED
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
2582#endif
2583 use pm_kind, only: RKG => 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
2589 end function
2590#endif
2591
2592#if RK3_ENABLED
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
2596#endif
2597 use pm_kind, only: RKG => 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
2603 end function
2604#endif
2605
2606#if RK2_ENABLED
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
2610#endif
2611 use pm_kind, only: RKG => 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
2617 end function
2618#endif
2619
2620#if RK1_ENABLED
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
2624#endif
2625 use pm_kind, only: RKG => 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
2631 end function
2632#endif
2633
2634 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2635
2636 end interface
2637
2638!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2639
2736
2737 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2738 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2739 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2740
2741 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2742
2743#if RK5_ENABLED
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
2747#endif
2748 use pm_kind, only: RKG => RK5
2749 real(RKG) , intent(in) :: zplus1
2750 real(RKG) :: disComTransNormedWU10
2751 end function
2752#endif
2753
2754#if RK4_ENABLED
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
2758#endif
2759 use pm_kind, only: RKG => RK4
2760 real(RKG) , intent(in) :: zplus1
2761 real(RKG) :: disComTransNormedWU10
2762 end function
2763#endif
2764
2765#if RK3_ENABLED
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
2769#endif
2770 use pm_kind, only: RKG => RK3
2771 real(RKG) , intent(in) :: zplus1
2772 real(RKG) :: disComTransNormedWU10
2773 end function
2774#endif
2775
2776#if RK2_ENABLED
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
2780#endif
2781 use pm_kind, only: LK, RKG => RK2
2782 real(RKG) , intent(in) :: zplus1
2783 real(RKG) :: disComTransNormedWU10
2784 end function
2785#endif
2786
2787#if RK1_ENABLED
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
2791#endif
2792 use pm_kind, only: LK, RKG => RK1
2793 real(RKG) , intent(in) :: zplus1
2794 real(RKG) :: disComTransNormedWU10
2795 end function
2796#endif
2797
2798 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2799
2800#if RK5_ENABLED
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
2804#endif
2805 use pm_kind, only: RKG => RK5
2806 real(RKG) , intent(in) :: zplus1, omegaM, omegaL
2807 real(RKG) :: disComTransNormedWU10
2808 end function
2809#endif
2810
2811#if RK4_ENABLED
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
2815#endif
2816 use pm_kind, only: RKG => RK4
2817 real(RKG) , intent(in) :: zplus1, omegaM, omegaL
2818 real(RKG) :: disComTransNormedWU10
2819 end function
2820#endif
2821
2822#if RK3_ENABLED
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
2826#endif
2827 use pm_kind, only: RKG => RK3
2828 real(RKG) , intent(in) :: zplus1, omegaM, omegaL
2829 real(RKG) :: disComTransNormedWU10
2830 end function
2831#endif
2832
2833#if RK2_ENABLED
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
2837#endif
2838 use pm_kind, only: LK, RKG => RK2
2839 real(RKG) , intent(in) :: zplus1, omegaM, omegaL
2840 real(RKG) :: disComTransNormedWU10
2841 end function
2842#endif
2843
2844#if RK1_ENABLED
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
2848#endif
2849 use pm_kind, only: LK, RKG => RK1
2850 real(RKG) , intent(in) :: zplus1, omegaM, omegaL
2851 real(RKG) :: disComTransNormedWU10
2852 end function
2853#endif
2854
2855 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2856
2857 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2858 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2859 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2860
2861 end interface
2862
2863!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2864
2964
2965 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2966
2967#if RK5_ENABLED
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
2971#endif
2972 use pm_kind, only: RKG => RK5
2973 real(RKG) , intent(in) :: zplus1
2974 real(RKG) :: hubbleParamNormedSq
2975 end function
2976#endif
2977
2978#if RK4_ENABLED
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
2982#endif
2983 use pm_kind, only: RKG => RK4
2984 real(RKG) , intent(in) :: zplus1
2985 real(RKG) :: hubbleParamNormedSq
2986 end function
2987#endif
2988
2989#if RK3_ENABLED
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
2993#endif
2994 use pm_kind, only: RKG => RK3
2995 real(RKG) , intent(in) :: zplus1
2996 real(RKG) :: hubbleParamNormedSq
2997 end function
2998#endif
2999
3000#if RK2_ENABLED
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
3004#endif
3005 use pm_kind, only: RKG => RK2
3006 real(RKG) , intent(in) :: zplus1
3007 real(RKG) :: hubbleParamNormedSq
3008 end function
3009#endif
3010
3011#if RK1_ENABLED
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
3015#endif
3016 use pm_kind, only: RKG => RK1
3017 real(RKG) , intent(in) :: zplus1
3018 real(RKG) :: hubbleParamNormedSq
3019 end function
3020#endif
3021
3022 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3023
3024#if RK5_ENABLED
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
3028#endif
3029 use pm_kind, only: RKG => RK5
3030 real(RKG) , intent(in) :: zplus1, omegaM, omegaL
3031 real(RKG) :: hubbleParamNormedSq
3032 end function
3033#endif
3034
3035#if RK4_ENABLED
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
3039#endif
3040 use pm_kind, only: RKG => RK4
3041 real(RKG) , intent(in) :: zplus1, omegaM, omegaL
3042 real(RKG) :: hubbleParamNormedSq
3043 end function
3044#endif
3045
3046#if RK3_ENABLED
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
3050#endif
3051 use pm_kind, only: RKG => RK3
3052 real(RKG) , intent(in) :: zplus1, omegaM, omegaL
3053 real(RKG) :: hubbleParamNormedSq
3054 end function
3055#endif
3056
3057#if RK2_ENABLED
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
3061#endif
3062 use pm_kind, only: RKG => RK2
3063 real(RKG) , intent(in) :: zplus1, omegaM, omegaL
3064 real(RKG) :: hubbleParamNormedSq
3065 end function
3066#endif
3067
3068#if RK1_ENABLED
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
3072#endif
3073 use pm_kind, only: RKG => RK1
3074 real(RKG) , intent(in) :: zplus1, omegaM, omegaL
3075 real(RKG) :: hubbleParamNormedSq
3076 end function
3077#endif
3078
3079 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3080
3081#if RK5_ENABLED
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
3085#endif
3086 use pm_kind, only: RKG => RK5
3087 real(RKG) , intent(in) :: zplus1, omegaM, omegaL, omegaR
3088 real(RKG) :: hubbleParamNormedSq
3089 end function
3090#endif
3091
3092#if RK4_ENABLED
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
3096#endif
3097 use pm_kind, only: RKG => RK4
3098 real(RKG) , intent(in) :: zplus1, omegaM, omegaL, omegaR
3099 real(RKG) :: hubbleParamNormedSq
3100 end function
3101#endif
3102
3103#if RK3_ENABLED
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
3107#endif
3108 use pm_kind, only: RKG => RK3
3109 real(RKG) , intent(in) :: zplus1, omegaM, omegaL, omegaR
3110 real(RKG) :: hubbleParamNormedSq
3111 end function
3112#endif
3113
3114#if RK2_ENABLED
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
3118#endif
3119 use pm_kind, only: RKG => RK2
3120 real(RKG) , intent(in) :: zplus1, omegaM, omegaL, omegaR
3121 real(RKG) :: hubbleParamNormedSq
3122 end function
3123#endif
3124
3125#if RK1_ENABLED
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
3129#endif
3130 use pm_kind, only: RKG => RK1
3131 real(RKG) , intent(in) :: zplus1, omegaM, omegaL, omegaR
3132 real(RKG) :: hubbleParamNormedSq
3133 end function
3134#endif
3135
3136 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3137
3138#if RK5_ENABLED
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
3142#endif
3143 use pm_kind, only: RKG => RK5
3144 real(RKG) , intent(in) :: zplus1, omegaM, omegaL, omegaR, omegaK
3145 real(RKG) :: hubbleParamNormedSq
3146 end function
3147#endif
3148
3149#if RK4_ENABLED
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
3153#endif
3154 use pm_kind, only: RKG => RK4
3155 real(RKG) , intent(in) :: zplus1, omegaM, omegaL, omegaR, omegaK
3156 real(RKG) :: hubbleParamNormedSq
3157 end function
3158#endif
3159
3160#if RK3_ENABLED
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
3164#endif
3165 use pm_kind, only: RKG => RK3
3166 real(RKG) , intent(in) :: zplus1, omegaM, omegaL, omegaR, omegaK
3167 real(RKG) :: hubbleParamNormedSq
3168 end function
3169#endif
3170
3171#if RK2_ENABLED
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
3175#endif
3176 use pm_kind, only: RKG => RK2
3177 real(RKG) , intent(in) :: zplus1, omegaM, omegaL, omegaR, omegaK
3178 real(RKG) :: hubbleParamNormedSq
3179 end function
3180#endif
3181
3182#if RK1_ENABLED
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
3186#endif
3187 use pm_kind, only: RKG => RK1
3188 real(RKG) , intent(in) :: zplus1, omegaM, omegaL, omegaR, omegaK
3189 real(RKG) :: hubbleParamNormedSq
3190 end function
3191#endif
3192
3193 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3194
3195 end interface
3196
3197!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3198
3324
3325 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3326
3327#if RK5_ENABLED
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
3331#endif
3332 use pm_kind, only: RKG => 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
3338 end function
3339#endif
3340
3341#if RK4_ENABLED
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
3345#endif
3346 use pm_kind, only: RKG => 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
3352 end function
3353#endif
3354
3355#if RK3_ENABLED
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
3359#endif
3360 use pm_kind, only: RKG => 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
3366 end function
3367#endif
3368
3369#if RK2_ENABLED
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
3373#endif
3374 use pm_kind, only: RKG => 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
3380 end function
3381#endif
3382
3383#if RK1_ENABLED
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
3387#endif
3388 use pm_kind, only: RKG => 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
3394 end function
3395#endif
3396
3397 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3398
3399#if RK5_ENABLED
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
3403#endif
3404 use pm_kind, only: RKG => 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
3410 end function
3411#endif
3412
3413#if RK4_ENABLED
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
3417#endif
3418 use pm_kind, only: RKG => 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
3424 end function
3425#endif
3426
3427#if RK3_ENABLED
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
3431#endif
3432 use pm_kind, only: RKG => 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
3438 end function
3439#endif
3440
3441#if RK2_ENABLED
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
3445#endif
3446 use pm_kind, only: RKG => 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
3452 end function
3453#endif
3454
3455#if RK1_ENABLED
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
3459#endif
3460 use pm_kind, only: RKG => 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
3466 end function
3467#endif
3468
3469 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3470
3471#if RK5_ENABLED
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
3475#endif
3476 use pm_kind, only: RKG => 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
3482 end function
3483#endif
3484
3485#if RK4_ENABLED
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
3489#endif
3490 use pm_kind, only: RKG => 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
3496 end function
3497#endif
3498
3499#if RK3_ENABLED
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
3503#endif
3504 use pm_kind, only: RKG => 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
3510 end function
3511#endif
3512
3513#if RK2_ENABLED
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
3517#endif
3518 use pm_kind, only: RKG => 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
3524 end function
3525#endif
3526
3527#if RK1_ENABLED
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
3531#endif
3532 use pm_kind, only: RKG => 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
3538 end function
3539#endif
3540
3541 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3542
3543#if RK5_ENABLED
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
3547#endif
3548 use pm_kind, only: RKG => 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
3554 end function
3555#endif
3556
3557#if RK4_ENABLED
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
3561#endif
3562 use pm_kind, only: RKG => 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
3568 end function
3569#endif
3570
3571#if RK3_ENABLED
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
3575#endif
3576 use pm_kind, only: RKG => 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
3582 end function
3583#endif
3584
3585#if RK2_ENABLED
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
3589#endif
3590 use pm_kind, only: RKG => 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
3596 end function
3597#endif
3598
3599#if RK1_ENABLED
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
3603#endif
3604 use pm_kind, only: RKG => 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
3610 end function
3611#endif
3612
3613 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3614
3615 end interface
3616
3617!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3618
3724
3725 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3726
3727#if RK5_ENABLED
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
3731#endif
3732 use pm_kind, only: RKG => RK5
3733 real(RKG) , intent(out) :: volComDiffNormed
3734 real(RKG) , intent(in) :: disComTransNormedSq, hubbleParamNormed
3735 end subroutine
3736#endif
3737
3738#if RK4_ENABLED
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
3742#endif
3743 use pm_kind, only: RKG => RK4
3744 real(RKG) , intent(out) :: volComDiffNormed
3745 real(RKG) , intent(in) :: disComTransNormedSq, hubbleParamNormed
3746 end subroutine
3747#endif
3748
3749#if RK3_ENABLED
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
3753#endif
3754 use pm_kind, only: RKG => RK3
3755 real(RKG) , intent(out) :: volComDiffNormed
3756 real(RKG) , intent(in) :: disComTransNormedSq, hubbleParamNormed
3757 end subroutine
3758#endif
3759
3760#if RK2_ENABLED
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
3764#endif
3765 use pm_kind, only: RKG => RK2
3766 real(RKG) , intent(out) :: volComDiffNormed
3767 real(RKG) , intent(in) :: disComTransNormedSq, hubbleParamNormed
3768 end subroutine
3769#endif
3770
3771#if RK1_ENABLED
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
3775#endif
3776 use pm_kind, only: RKG => RK1
3777 real(RKG) , intent(out) :: volComDiffNormed
3778 real(RKG) , intent(in) :: disComTransNormedSq, hubbleParamNormed
3779 end subroutine
3780#endif
3781
3782 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3783
3784 end interface
3785
3786!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3787
3898
3899 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3900
3901#if RK5_ENABLED
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
3905#endif
3906 use pm_kind, only: RKG => RK5
3907 real(RKG) , intent(in) :: disComTransNormed
3908 real(RKG) :: volComNormed
3909 end function
3910#endif
3911
3912#if RK4_ENABLED
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
3916#endif
3917 use pm_kind, only: RKG => RK4
3918 real(RKG) , intent(in) :: disComTransNormed
3919 real(RKG) :: volComNormed
3920 end function
3921#endif
3922
3923#if RK3_ENABLED
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
3927#endif
3928 use pm_kind, only: RKG => RK3
3929 real(RKG) , intent(in) :: disComTransNormed
3930 real(RKG) :: volComNormed
3931 end function
3932#endif
3933
3934#if RK2_ENABLED
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
3938#endif
3939 use pm_kind, only: RKG => RK2
3940 real(RKG) , intent(in) :: disComTransNormed
3941 real(RKG) :: volComNormed
3942 end function
3943#endif
3944
3945#if RK1_ENABLED
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
3949#endif
3950 use pm_kind, only: RKG => RK1
3951 real(RKG) , intent(in) :: disComTransNormed
3952 real(RKG) :: volComNormed
3953 end function
3954#endif
3955
3956 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3957
3958#if RK5_ENABLED
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
3962#endif
3963 use pm_kind, only: RKG => RK5
3964 real(RKG) , intent(in) :: disComTransNormed, omegaK, sqrtAbsOmegaK
3965 real(RKG) :: volComNormed
3966 end function
3967#endif
3968
3969#if RK4_ENABLED
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
3973#endif
3974 use pm_kind, only: RKG => RK4
3975 real(RKG) , intent(in) :: disComTransNormed, omegaK, sqrtAbsOmegaK
3976 real(RKG) :: volComNormed
3977 end function
3978#endif
3979
3980#if RK3_ENABLED
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
3984#endif
3985 use pm_kind, only: RKG => RK3
3986 real(RKG) , intent(in) :: disComTransNormed, omegaK, sqrtAbsOmegaK
3987 real(RKG) :: volComNormed
3988 end function
3989#endif
3990
3991#if RK2_ENABLED
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
3995#endif
3996 use pm_kind, only: RKG => RK2
3997 real(RKG) , intent(in) :: disComTransNormed, omegaK, sqrtAbsOmegaK
3998 real(RKG) :: volComNormed
3999 end function
4000#endif
4001
4002#if RK1_ENABLED
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
4006#endif
4007 use pm_kind, only: RKG => RK1
4008 real(RKG) , intent(in) :: disComTransNormed, omegaK, sqrtAbsOmegaK
4009 real(RKG) :: volComNormed
4010 end function
4011#endif
4012
4013 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4014
4015 end interface
4016
4017!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4018
4019contains
4020
4021#if LEGACY_ENABLED
4022! LCOV_EXCL_START
4024
4025!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4026
4045 pure elemental function ldiswickram(zplus1)
4046#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4047 !DEC$ ATTRIBUTES DLLEXPORT :: ldiswickram
4048#endif
4049 use pm_kind, only: RK
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
4062
4063!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4064
4084 impure function getLookBackTime(zplus1, maxRelativeError, nRefinement) result(lookBackTime)
4085#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4086 !DEC$ ATTRIBUTES DLLEXPORT :: getLookBackTime
4087#endif
4088 use, intrinsic :: iso_fortran_env, only: output_unit
4089 use pm_quadRomb, only: getQuadRomb
4090 use pm_kind, only: RK
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
4098
4099 maxRelativeErrorDefault = 1.e-6_RK; if (present(maxRelativeError)) maxRelativeErrorDefault = maxRelativeError
4100 nRefinementDefault = 7_IK; if (present(nRefinement)) nRefinementDefault = nRefinement
4101
4102 lookBackTime = getQuadRomb( getFunc = getLookBackTimeDensity &
4103 , lb = ZPLUS1_MIN &
4104 , ub = zplus1 &
4105 , tol = maxRelativeErrorDefault &
4106 , nref = nRefinementDefault &
4107 )
4108 lookBackTime = real(HUBBLE_TIME_GYR, RK) * lookBackTime
4109
4110 end function
4111
4112!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4113
4134 pure function getLookBackTimeDensity(zplus1) result(lookBackTimeDnesity)
4135 use pm_kind, only: RK
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) )
4141 end function
4142
4143!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4144
4165 pure elemental function getUniverseAgeDerivative(zplus1) result(universeAgeDerivative)
4166#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4167 !DEC$ ATTRIBUTES DLLEXPORT :: getUniverseAgeDerivative
4168#endif
4169 use pm_kind, only: RK
4170 implicit none
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
4178
4179!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4180
4182! LCOV_EXCL_STOP
4183#endif
4184
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...
Definition: pm_kind.F90:268
integer, parameter RK5
Definition: pm_kind.F90:478
integer, parameter RK4
Definition: pm_kind.F90:489
integer, parameter RK2
Definition: pm_kind.F90:511
integer, parameter RK
The default real kind in the ParaMonte library: real64 in Fortran, c_double in C-Fortran Interoperati...
Definition: pm_kind.F90:543
integer, parameter RK3
Definition: pm_kind.F90:500
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:541
integer, parameter RKB
The scalar integer constant of intrinsic default kind, representing the Best-precision real kind supp...
Definition: pm_kind.F90:1371
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:540
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
Definition: pm_kind.F90:539
integer, parameter RK1
Definition: pm_kind.F90:522
This module contains classes and procedures to perform numerical integrations.
Definition: pm_quadRomb.F90:31