From 3ad6173c654dfd5cc5b04944c5771a7c9140797b Mon Sep 17 00:00:00 2001
From: Antony Lewis <antony@cosmologist.info>
Date: Fri, 14 Jun 2024 11:55:28 +0100
Subject: [PATCH] change ppf switch

---
 fortran/DarkEnergyPPF.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/fortran/DarkEnergyPPF.f90 b/fortran/DarkEnergyPPF.f90
index 53b0511e..bed9bfe6 100644
--- a/fortran/DarkEnergyPPF.f90
+++ b/fortran/DarkEnergyPPF.f90
@@ -129,7 +129,7 @@ subroutine TDarkEnergyPPF_PerturbedStressEnergy(this, dgrhoe, dgqe, &
     S_Gamma = grhov_t * (1 + w) * (vT + sigma) * k / adotoa / 2._dl / k2
     ckH = this%c_Gamma_ppf * k / adotoa
 
-    if (ckH * ckH .gt. 3.d1) then ! ckH^2 > 30 ?????????
+    if (ckH * ckH .gt. 1e3) then !3.d1) then ! ckH^2 > 30 ?????????
         Gamma = 0
         Gammadot = 0.d0
     else