From 31d13a8b2f7b3f110fa7c4880a01be6f198a6a9e Mon Sep 17 00:00:00 2001
From: Jonathan Maddock <78556175+jonmaddock@users.noreply.github.com>
Date: Tue, 12 Mar 2024 17:07:29 +0000
Subject: [PATCH] Fix inequality constraint residual output in once-through
 runs

---
 source/fortran/final_module.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/source/fortran/final_module.f90 b/source/fortran/final_module.f90
index f17ba8c1d..b67fc728e 100644
--- a/source/fortran/final_module.f90
+++ b/source/fortran/final_module.f90
@@ -67,7 +67,7 @@ subroutine no_optimisation()
       do inn = neqns+1,neqns+nineqns
         write(nout,140) inn,lablcc(icc(inn)),sym(inn),con2(inn), &
         lab(inn), err(inn), lab(inn)
-        call ovarre(mfile,lablcc(icc(inn)),'(ineq_con'//int_to_string3(icc(inn))//')',rcm(inn))
+        call ovarre(mfile,lablcc(icc(inn)),'(ineq_con'//int_to_string3(icc(inn))//')',con1(inn))
       end do
     end if
   end subroutine no_optimisation