From 03b2bb2c5dc6e9c6a4c23a80693ee499972af4ff Mon Sep 17 00:00:00 2001 From: Wim Haeck Date: Tue, 12 Dec 2023 14:48:27 -0700 Subject: [PATCH] Correcting the value of the Euler-Mascheroni constant --- src/phys.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/phys.f90 b/src/phys.f90 index d546934f..6588be7d 100644 --- a/src/phys.f90 +++ b/src/phys.f90 @@ -18,7 +18,7 @@ module physics ! the fine structure constant. ! - other values are given in terms of the above. real(kr),parameter,public::pi=3.141592653589793238e0_kr ! - real(kr),parameter,public::euler=0.55721566490153286e0_kr ! + real(kr),parameter,public::euler=0.57721566490153286e0_kr ! real(kr),parameter,public::bk=8.617333262e-5_kr !eV/degK real(kr),parameter,public::ev=1.602176634e-12_kr !erg/eV real(kr),parameter,public::clight=2.99792458e10_kr !cm/s