From 094952a031da6ca5895a911854a6fdeb57bf010b Mon Sep 17 00:00:00 2001 From: dfnca <255593363+dfnca@users.noreply.github.com> Date: Tue, 1 Sep 2026 18:42:49 -0700 Subject: [PATCH] Remove trace_names reassignment that results in reallocation, potentially decreasing the array size such that subsequent outputs go out-of-bounds. --- source/main.f90 | 2 -- 1 file changed, 2 deletions(-) diff --git a/source/main.f90 b/source/main.f90 index 600e4ae..3e14347 100644 --- a/source/main.f90 +++ b/source/main.f90 @@ -3047,7 +3047,6 @@ subroutine rocket_output(ioout, prob, solver, solutions) trace_names(num_trace) = solver%eq_solver%products%species_names(ii) end if end do - trace_names = trace_names(:num_trace) ! Print the mole or mass fractions write(ioout, *) "" @@ -3471,7 +3470,6 @@ subroutine rocket_output(ioout, prob, solver, solutions) trace_names(num_trace) = solver%eq_solver%products%species_names(ii) end if end do - trace_names = trace_names(:num_trace) ! Print the mole or mass fractions write(ioout, *) ""