Code: Select all
real(mcp), parameter :: neutrino_mass_fac= 94.07_mcp !conversion factor for thermal with Neff=3 TCMB-2.7255
!93.014 for 3.046
real(mcp), parameter :: standard_neutrino_neff = 3.046_mcp
Since standard_neutrino_neff = 3.046, shouldn't neutrino_mass_fac be set to 93.014 instead of 94.07?