From 7adf92c51dad654ff821dedbc0c0279d14cd0091 Mon Sep 17 00:00:00 2001 From: Juerg Hutter Date: Thu, 8 Aug 2024 10:09:39 +0200 Subject: [PATCH] Pretty (#3616) --- src/kpoint_methods.F | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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, :)