comp-chem/cp2k
1
0
Fork 0
mirror of https://github.com/cp2k/cp2k.git synced 2026-07-28 22:25:32 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

Remove explicit I/O Unit (#3612)

Browse source
This commit is contained in:
Juerg Hutter 2024-08-07 10:49:55 +02:00 • committed by GitHub
parent faa0fcc66c
commit a4dd24759e
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/kpoint_methods.F
View file

@ -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