energy interpolation added, convergence condition updated

2025-06-16 16:21:19 +03:00
parent ea741219ce
commit 54febb8bbf
3 changed files with 402 additions and 1 deletions
--- a/rate_solvers.c
+++ b/rate_solvers.c
@@ -288,7 +288,7 @@ double get_phc_solution_pkr(double r, double e, double *pk, int size)
        {
                rnew = lkl_rate_condition_pkr(r, pk, size)*r/e;
                //printf("rnew %d %f\n", i, rnew*e);
-                if ((fabs(rnew - r) < 1e-7) | (rnew*e < 0.001)) break;
+                if ((fabs(rnew/r - 1.) < 1e-7) | (rnew*e < 0.001)) break;
                //if ((fabs(rnew - r) < 1e-7) | (rnew*e < 1.)) break;
                r = rnew;
        };