Added extra parens to deal with the situation in which no file name i…

…s given, so no energy info is saved
MintonGroup · Sep 23, 2021 · d76cfc0 · d76cfc0
1 parent 954d946
commit d76cfc0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/io/io.f90 b/src/io/io.f90
@@ -58,7 +58,7 @@ module subroutine io_conservation_report(self, param, lterminal)
             param%lfirstenergy = .false.
          end if
 
-         if ((param%out_type == REAL4_TYPE) .or. (param%out_type == REAL8_TYPE) .and. (param%energy_out /= "")) then
+         if (((param%out_type == REAL4_TYPE) .or. (param%out_type == REAL8_TYPE)) .and. (param%energy_out /= "")) then
             write(EGYIU,EGYFMT, err = 667, iomsg = errmsg) param%t, Eorbit_now, param%Ecollisions, Ltot_now, GMtot_now
             close(EGYIU, err = 667, iomsg = errmsg)
          end if