From a4dd24759e2d365007a72717c5e9671d7e4ccaba Mon Sep 17 00:00:00 2001
From: Juerg Hutter <hutter@chem.uzh.ch>
Date: Wed, 7 Aug 2024 10:49:55 +0200
Subject: [PATCH] Remove explicit I/O Unit (#3612)

---
 src/kpoint_methods.F | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/kpoint_methods.F b/src/kpoint_methods.F
index 25477bc500..90b4c867e1 100644
--- a/src/kpoint_methods.F
+++ b/src/kpoint_methods.F
@@ -1595,17 +1595,18 @@ CONTAINS
    SUBROUTINE matprint(mat)
       TYPE(dbcsr_type), POINTER                          :: mat
 
-      INTEGER                                            :: i, icol, irow
+      INTEGER                                            :: i, icol, iounit, irow
       REAL(KIND=dp), DIMENSION(:, :), POINTER            :: mblock
       TYPE(dbcsr_iterator_type)                          :: iter
 
+      iounit = cp_logger_get_default_io_unit()
       CALL dbcsr_iterator_start(iter, mat)
       DO WHILE (dbcsr_iterator_blocks_left(iter))
          CALL dbcsr_iterator_next_block(iter, irow, icol, mblock)
          !
          WRITE (6, '(A,2I4)') 'BLOCK  ', irow, icol
          DO i = 1, SIZE(mblock, 1)
-            WRITE (6, '(8F12.6)') mblock(i, :)
+            IF (iounit > 0) WRITE (iounit, '(8F12.6)') mblock(i, :)
          END DO
          !
       END DO