diff --git a/src/io/io.f90 b/src/io/io.f90 index 933bcbdfb..7b7468976 100644 --- a/src/io/io.f90 +++ b/src/io/io.f90 @@ -35,9 +35,9 @@ module subroutine io_conservation_report(self, param, lterminal) if (param%energy_out /= "") then if (lfirst .and. (param%out_stat /= "OLD")) then open(unit = EGYIU, file = param%energy_out, form = "formatted", status = "replace", action = "write", err = 667, iomsg = errmsg) + write(EGYIU,EGYHEADER, err = 667, iomsg = errmsg) else open(unit = EGYIU, file = param%energy_out, form = "formatted", status = "old", action = "write", position = "append", err = 667, iomsg = errmsg) - write(EGYIU,EGYHEADER, err = 667, iomsg = errmsg) end if end if call pl%h2b(cb)