From 9efaf045e2aa591be8dc44c6b4889e1795ef0f5a Mon Sep 17 00:00:00 2001
From: Michele Guerini Rocco <m.guerinirocco2@campus.unimib.it>
Date: Mon, 10 Feb 2025 10:30:41 +0100
Subject: [PATCH] =?UTF-8?q?src/gray=5Ftables.f90:=20flux-averages=20do=20n?=
 =?UTF-8?q?ot=20go=20past=20=CF=81=3D1?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/gray_tables.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/gray_tables.f90 b/src/gray_tables.f90
index 60ff18a..60cefbd 100644
--- a/src/gray_tables.f90
+++ b/src/gray_tables.f90
@@ -178,7 +178,7 @@ contains
     ! Δρ_p for the uniform ρ_p grid
     drho_p = 1.0_wp_ / (n_grid - 1)
 
-    do i = 0, n_grid
+    do i = 0, n_grid-1
       rho_p = i * drho_p
       rho_t = equil%pol2tor(rho_p)
       call equil%flux_average(rho_p,       &