add dbgout for scalfor

jons-pf · Oct 15, 2024 · b9948ce · b9948ce
1 parent aaae753
commit b9948ce
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/Sources/General/scalfor.f b/Sources/General/scalfor.f
@@ -137,9 +137,12 @@ SUBROUTINE scalfor_par(gcx, axm, bxm, axd, bxd, cx, iflag)
       end if
 
       if (dbg_open) then
-        call add_real_3d("ax", ns, ntor1, mpol, ax, order = (/ 2, 3, 1 /))
-        call add_real_3d("bx", ns, ntor1, mpol, bx, order = (/ 2, 3, 1 /))
-        call add_real_3d("dx", ns, ntor1, mpol, dx, order = (/ 2, 3, 1 /))
+        call add_real_3d("ax", ns, ntor1, mpol, ax,                            &
+     &                   order = (/ 2, 3, 1 /))
+        call add_real_3d("bx", ns, ntor1, mpol, bx,                            &
+     &                   order = (/ 2, 3, 1 /))
+        call add_real_3d("dx", ns, ntor1, mpol, dx,                            &
+     &                   order = (/ 2, 3, 1 /))
 
         call close_dbg_out()
       end if ! open_dbg_context