From 5ee0f72a6fe83b719a672dc6adc2493209c54c1b Mon Sep 17 00:00:00 2001
From: David A Minton <daminton@purdue.edu>
Date: Mon, 30 Aug 2021 15:15:25 -0400
Subject: [PATCH] Write out a full output frame just prior to failing the run
 on the mass loss exception.

---
 src/io/io.f90 | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/io/io.f90 b/src/io/io.f90
index e01efe4ec..bbbf25cd1 100644
--- a/src/io/io.f90
+++ b/src/io/io.f90
@@ -72,6 +72,8 @@ module subroutine io_conservation_report(self, param, lterminal)
                write(*,*) 'Mass loss! Halting!'
                call pl%xv2el(cb)
                call param%nciu%open(param)
+               call self%write_hdr(param%nciu, param)
+               call cb%write_frame(param%nciu, param)
                call pl%write_frame(param%nciu, param)
                call param%nciu%close(param)
                call util_exit(FAILURE)