From b55f9f880444bd9da58ab29aaf56b394037f61e0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Jos=C3=A9=20Lu=C3=ADs=20Martins?= <jlmartins@inesc-mn.pt>
Date: Tue, 19 Sep 2023 14:08:44 +0100
Subject: [PATCH] small bug in plot_convol_opt

---
 Src/ALFA/plot_convol_opt.f90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/Src/ALFA/plot_convol_opt.f90 b/Src/ALFA/plot_convol_opt.f90
index daebd2a..e2619ac 100644
--- a/Src/ALFA/plot_convol_opt.f90
+++ b/Src/ALFA/plot_convol_opt.f90
@@ -114,6 +114,7 @@ subroutine plot_convol_opt(n3, xave, ave, dave, yave, lfound, lopt,      &
 !   when compared to initial calculation of ave(j)
 
     kk = 1
+    sigma = sigma + UM
     do k = 1,kmax
       xtry = (UM-xrange/2)*xave + (k-1)*(xrange*xave/(kmax-1))