From 611b2eff55a1e0ee95c7d9609f10cb6f10219b2f Mon Sep 17 00:00:00 2001
From: Giovanni La Mura <giovanni.lamura@inaf.it>
Date: Wed, 17 Jan 2024 15:00:03 +0100
Subject: [PATCH] Fix expansion order in ffrt()

---
 src/libnptm/tra_subs.cpp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/libnptm/tra_subs.cpp b/src/libnptm/tra_subs.cpp
index e9122e7d..1903f9d3 100644
--- a/src/libnptm/tra_subs.cpp
+++ b/src/libnptm/tra_subs.cpp
@@ -190,7 +190,7 @@ void ffrt(
 
   ctqce = new complex<double>[3]();
   ctqcs = new complex<double>[3]();
-  for (int l60 = 1; l60 < cil->le; l60++) {
+  for (int l60 = 1; l60 <= cil->le; l60++) {
     int lpo = l60 + 1;
     int il = l60 * lpo;
     int ltpo = l60 + lpo;
-- 
GitLab