small bug in plot_convol_opt

jlm785 · Sep 19, 2023 · b55f9f8 · b55f9f8
1 parent 9060bc6
commit b55f9f8
Showing 1 changed file with 1 addition and 0 deletions.
diff --git 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))