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
78module pm_cosmology
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
109 real(RKB) , parameter :: HUBBLE_DISTANCE_MPC = LIGHT_SPEED / HUBBLE_CONST
111 real(RKB) , parameter :: HUBBLE_DISTANCE_GLY = HUBBLE_DISTANCE_MPC * MPC2GLY
113 real(RKB) , parameter :: LOG_HUBBLE_DISTANCE_MPC = log(HUBBLE_DISTANCE_MPC)
114 real(RKB) , parameter :: LOG_HUBBLE_DISTANCE_CM = LOG_HUBBLE_DISTANCE_MPC + LOG_MPC2CM
115
116 real(RKB) , parameter :: HUBBLE_VOLUME_MPC3 = HUBBLE_DISTANCE_MPC**3
118 real(RKB) , parameter :: HUBBLE_VOLUME_GLY3 = HUBBLE_VOLUME_MPC3 * MPC2GLY**3
120 real(RKB) , parameter :: LOG_HUBBLE_VOLUME_MPC3 = log(HUBBLE_VOLUME_MPC3)
121 real(RKB) , parameter :: LOG_HUBBLE_VOLUME_CM3 = LOG_HUBBLE_VOLUME_MPC3 + LOG_MPC2CM * 3
122
123 real(RKB) , parameter :: HUBBLE_TIME_SEC = MPC2KM / HUBBLE_CONST
127 real(RKB) , parameter :: HUBBLE_TIME_GYR = HUBBLE_DISTANCE_GLY
131
132!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
133
270 interface getSizeUnivNormed
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
698 interface getDisLookbackNormed
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
1106 interface getDisComNormed
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
1523 interface getDisComTransNormed
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
1932 interface getDisAngNormed
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
2344 interface getDisLumNormed
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
2735 interface getDisComTransNormedWU10
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
2963 interface getHubbleParamNormedSq
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
3323 interface getVolComDiffNormed
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
3723 interface setVolComDiffNormed
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
3897 interface getVolComNormed
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
pm_cosmology::getDisAngNormed
Generate and return the cosmological Angular Diameter Distance normalized to Hubble Distance,...
Definition: pm_cosmology.F90:1932
pm_cosmology::getDisComNormed
Generate and return the cosmological line-of-sight Comoving Distance normalized to Hubble Distance,...
Definition: pm_cosmology.F90:1106
pm_cosmology::getDisComTransNormedWU10
Generate and return the approximate to the cosmological Transverse Comoving Distance normalized to Hu...
Definition: pm_cosmology.F90:2735
pm_cosmology::getDisComTransNormed
Generate and return the cosmological Transverse Comoving Distance normalized to Hubble Distance,...
Definition: pm_cosmology.F90:1523
pm_cosmology::getDisLookbackNormed
Generate and return the cosmological Lookback Distance (or equivalently, the Lookback Time) at the de...
Definition: pm_cosmology.F90:698
pm_cosmology::getDisLumNormed
Generate and return the cosmological Luminosity Distance normalized to Hubble Distance,...
Definition: pm_cosmology.F90:2344
pm_cosmology::getHubbleParamNormedSq
Generate and return the square of the dimensionless Hubble Parameter for the default or the specifie...
Definition: pm_cosmology.F90:2963
pm_cosmology::getSizeUnivNormed
Generate and return the cosmological size (or equivalently, the age) of the Universe at the desired r...
Definition: pm_cosmology.F90:270
pm_cosmology::getVolComDiffNormed
Generate and return the cosmological Comoving Volume Element per unit solid angle of the sky (i....
Definition: pm_cosmology.F90:3323
pm_cosmology::getVolComNormed
Generate and return the full-sky ( Steradian) cosmological Comoving Volume normalized to Hubble Volu...
Definition: pm_cosmology.F90:3897
pm_cosmology::setVolComDiffNormed
Generate and return the cosmological Comoving Volume Differential (Element) per unit solid angle of t...
Definition: pm_cosmology.F90:3723
pm_quadRomb::getQuadRomb
Generate and return the integral of the input function getFunc() in the closed range [lb,...
Definition: pm_quadRomb.F90:396
pm_cosmology
This module contains procedures and generic interfaces and constants for cosmological calculations.
Definition: pm_cosmology.F90:78
pm_cosmology::OMEGA_L
real(RKB), parameter OMEGA_L
The scalar real constant of kind with highest available precision RKB representing the current best e...
Definition: pm_cosmology.F90:100
pm_cosmology::OMEGA_M
real(RKB), parameter OMEGA_M
The scalar real constant of kind with highest available precision RKB representing the current best e...
Definition: pm_cosmology.F90:99
pm_cosmology::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_cosmology.F90:84
pm_cosmology::LOG_HUBBLE_VOLUME_CM3
real(RKB), parameter LOG_HUBBLE_VOLUME_CM3
The scalar real constant of kind with highest available precision RKB representing the natural logari...
Definition: pm_cosmology.F90:121
pm_cosmology::MPC2LY
real(RKB), parameter MPC2LY
The scalar real constant of kind with highest available precision RKB representing the exact conversi...
Definition: pm_cosmology.F90:96
pm_cosmology::INV_HUBBLE_CONST
real(RKB), parameter INV_HUBBLE_CONST
The scalar real constant of kind with highest available precision RKB representing the inverse of the...
Definition: pm_cosmology.F90:107
pm_cosmology::HUBBLE_CONST
real(RKB), parameter HUBBLE_CONST
The scalar real constant of kind with highest available precision RKB representing the Hubble constan...
Definition: pm_cosmology.F90:104
pm_cosmology::LIGHT_SPEED
real(RKB), parameter LIGHT_SPEED
The scalar real constant of kind with highest available precision RKB representing the exact speed of...
Definition: pm_cosmology.F90:91
pm_cosmology::HUBBLE_DISTANCE_GLY
real(RKB), parameter HUBBLE_DISTANCE_GLY
The scalar real constant of kind with highest available precision RKB representing the Hubble Distanc...
Definition: pm_cosmology.F90:111
pm_cosmology::HUBBLE_VOLUME_GLY3
real(RKB), parameter HUBBLE_VOLUME_GLY3
The scalar real constant of kind with highest available precision RKB representing the Hubble Volume ...
Definition: pm_cosmology.F90:118
pm_cosmology::LOG_HUBBLE_DISTANCE_CM
real(RKB), parameter LOG_HUBBLE_DISTANCE_CM
The scalar real constant of kind with highest available precision RKB representing the natural logari...
Definition: pm_cosmology.F90:114
pm_cosmology::LOG_HUBBLE_DISTANCE_MPC
real(RKB), parameter LOG_HUBBLE_DISTANCE_MPC
The scalar real constant of kind with highest available precision RKB representing the natural logari...
Definition: pm_cosmology.F90:113
pm_cosmology::HUBBLE_TIME_SEC
real(RKB), parameter HUBBLE_TIME_SEC
The scalar real constant of kind with highest available precision RKB representing the exact Hubble t...
Definition: pm_cosmology.F90:123
pm_cosmology::HUBBLE_DISTANCE_MPC
real(RKB), parameter HUBBLE_DISTANCE_MPC
The scalar real constant of kind with highest available precision RKB representing the Hubble Distanc...
Definition: pm_cosmology.F90:109
pm_cosmology::LOG_HUBBLE_VOLUME_MPC3
real(RKB), parameter LOG_HUBBLE_VOLUME_MPC3
The scalar real constant of kind with highest available precision RKB representing the natural logari...
Definition: pm_cosmology.F90:120
pm_cosmology::LOG_MPC2CM
real(RKB), parameter LOG_MPC2CM
The scalar real constant of kind with highest available precision RKB representing the natural logari...
Definition: pm_cosmology.F90:98
pm_cosmology::YR2SEC
real(RKB), parameter YR2SEC
The scalar real constant of kind with highest available precision RKB representing the exact number o...
Definition: pm_cosmology.F90:90
pm_cosmology::MPC2KM
real(RKB), parameter MPC2KM
The scalar real constant of kind with highest available precision RKB representing the exact conversi...
Definition: pm_cosmology.F90:95
pm_cosmology::OMEGA_K
real(RKB), parameter OMEGA_K
The scalar real constant of kind with highest available precision RKB representing the current best e...
Definition: pm_cosmology.F90:102
pm_cosmology::OMEGA_R
real(RKB), parameter OMEGA_R
The scalar real constant of kind with highest available precision RKB representing the current best e...
Definition: pm_cosmology.F90:101
pm_cosmology::PIPC2M
real(RKB), parameter PIPC2M
The scalar real constant of kind with highest available precision RKB representing the exact conversi...
Definition: pm_cosmology.F90:93
pm_cosmology::MPC2GLY
real(RKB), parameter MPC2GLY
The scalar real constant of kind with highest available precision RKB representing the exact conversi...
Definition: pm_cosmology.F90:97
pm_cosmology::LOG_LIGHT_SPEED
real(RKB), parameter LOG_LIGHT_SPEED
The scalar real constant of kind with highest available precision RKB representing the natural logari...
Definition: pm_cosmology.F90:105
pm_cosmology::LOG_HUBBLE_CONST
real(RKB), parameter LOG_HUBBLE_CONST
The scalar real constant of kind with highest available precision RKB representing the natural logari...
Definition: pm_cosmology.F90:106
pm_cosmology::HUBBLE_VOLUME_MPC3
real(RKB), parameter HUBBLE_VOLUME_MPC3
The scalar real constant of kind with highest available precision RKB representing the Hubble Volume ...
Definition: pm_cosmology.F90:116
pm_cosmology::LYR2CM
real(RKB), parameter LYR2CM
The scalar real constant of kind with highest available precision RKB representing the exact conversi...
Definition: pm_cosmology.F90:92
pm_cosmology::HUBBLE_TIME_GYR
real(RKB), parameter HUBBLE_TIME_GYR
The scalar real constant of kind with highest available precision RKB representing the approximate Hu...
Definition: pm_cosmology.F90:127
pm_cosmology::MPC2CM
real(RKB), parameter MPC2CM
The scalar real constant of kind with highest available precision RKB representing the exact conversi...
Definition: pm_cosmology.F90:94
pm_kind
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:268
pm_kind::RK5
integer, parameter RK5
Definition: pm_kind.F90:478
pm_kind::RK4
integer, parameter RK4
Definition: pm_kind.F90:489
pm_kind::RK2
integer, parameter RK2
Definition: pm_kind.F90:511
pm_kind::RK
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
pm_kind::RK3
integer, parameter RK3
Definition: pm_kind.F90:500
pm_kind::LK
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:541
pm_kind::RKB
integer, parameter RKB
The scalar integer constant of intrinsic default kind, representing the Best-precision real kind supp...
Definition: pm_kind.F90:1371
pm_kind::IK
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
pm_kind::SK
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
pm_kind::RK1
integer, parameter RK1
Definition: pm_kind.F90:522
pm_quadRomb
This module contains classes and procedures to perform numerical integrations.
Definition: pm_quadRomb.F90:31