diff --git a/src/kpoint_methods.F b/src/kpoint_methods.F
index 2ef9ef8f58..1bb8040f77 100644
--- a/src/kpoint_methods.F
+++ b/src/kpoint_methods.F
@@ -1604,7 +1604,7 @@ SUBROUTINE matprint(mat)
       DO WHILE (dbcsr_iterator_blocks_left(iter))
          CALL dbcsr_iterator_next_block(iter, irow, icol, mblock)
          !
-         IF(iounit > 0) THEN
+         IF (iounit > 0) THEN
             WRITE (iounit, '(A,2I4)') 'BLOCK  ', irow, icol
             DO i = 1, SIZE(mblock, 1)
                WRITE (iounit, '(8F12.6)') mblock(i, :)