Merge pull request #169 from nekStab/158_runtime-outputs

fixed typo in print format
nekStab · Feb 21, 2025 · 7a3265c · 7a3265c
2 parents 1c4d2f4 + 0a4a301
commit 7a3265c
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/src/IterativeSolvers/IterativeSolvers.f90 b/src/IterativeSolvers/IterativeSolvers.f90
@@ -1469,7 +1469,7 @@ subroutine write_results_csp(filename, vals, res, tol)
         k = size(vals)
         if (io_rank()) then ! only master rank writes
             open (1234, file=filename, status='replace', action='write')
-                write (1234, '(A6,2(A18),A3)') 'Iter', 'Re', 'Im', 'residual', 'C'
+                write (1234, '(A6,3(A18),A3)') 'Iter', 'Re', 'Im', 'residual', 'C'
             do i = 1, k
                     write (1234, fmtc) k, vals(i)%re, vals(i)%im, res(i), res(i) < tol
             end do 
@@ -1493,7 +1493,7 @@ subroutine write_results_cdp(filename, vals, res, tol)
         k = size(vals)
         if (io_rank()) then ! only master rank writes
             open (1234, file=filename, status='replace', action='write')
-                write (1234, '(A6,2(A18),A3)') 'Iter', 'Re', 'Im', 'residual', 'C'
+                write (1234, '(A6,3(A18),A3)') 'Iter', 'Re', 'Im', 'residual', 'C'
             do i = 1, k
                     write (1234, fmtc) k, vals(i)%re, vals(i)%im, res(i), res(i) < tol
             end do 

diff --git a/src/IterativeSolvers/IterativeSolvers.fypp b/src/IterativeSolvers/IterativeSolvers.fypp
@@ -848,7 +848,7 @@ contains
         if (io_rank()) then ! only master rank writes
             open (1234, file=filename, status='replace', action='write')
             #:if type[0] == "c"
-                write (1234, '(A6,2(A18),A3)') 'Iter', 'Re', 'Im', 'residual', 'C'
+                write (1234, '(A6,3(A18),A3)') 'Iter', 'Re', 'Im', 'residual', 'C'
             #:else
                 write (1234, '(A6,2(A18),A3)') 'Iter', 'value', 'residual', 'C'
             #:endif