add dbgout for printout

jons-pf · Oct 15, 2024 · b2caca8 · b2caca8
1 parent fdafea4
commit b2caca8
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/Sources/Input_Output/printout.f b/Sources/Input_Output/printout.f
@@ -65,7 +65,8 @@ SUBROUTINE printout(i0, delt0, w0, lscreen)
       CALL getrz(gc)
 #endif
 
-      dbgout_printout = open_dbg_context("printout", num_eqsolve_retries)
+      dbgout_printout = open_dbg_context("printout",                           &
+     &                                   num_eqsolve_retries)
       if (dbgout_printout) then
         ! dump gc before it gets modified by spectrum() below
         call add_real_5d("gc", 3, ntmax, ns, ntor1, mpol, gc,                  &