Skip to content

Commit d7b684a

Browse files
committed
fix label code
1 parent 76b6344 commit d7b684a

File tree

1 file changed

+2
-4
lines changed

1 file changed

+2
-4
lines changed

FORTRAN/prk_mod.F90

Lines changed: 2 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -361,11 +361,9 @@ subroutine print_matrix(mat, label)
361361
dims(1) = size(mat,1)
362362
dims(2) = size(mat,2)
363363
do i=1,dims(1)
364-
write(6,'(i5,a1)', advance='no') label,':'
364+
if (present(label)) write(6,'(i5,a1)', advance='no') label,':'
365365
do j=1,dims(2)
366-
if (present(label)) then
367-
write(6,'(f10.1)', advance='no') mat(i,j)
368-
end if
366+
write(6,'(f10.1)', advance='no') mat(i,j)
369367
end do
370368
write(6,'(a1)',advance='yes') ''
371369
end do

0 commit comments

Comments
 (0)