Fix inequality constraint residual output in once-through runs

ukaea · Mar 13, 2024 · 31d13a8 · 31d13a8
1 parent b972ae0
commit 31d13a8
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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