如何水平打印到Fortran中的所需列

Question

这是我的打印一些数字的代码

program hello

implicit none

integer:: i,j
real, dimension(0:4,0:4):: u

do j=1,4

do i=1,4

u(i,j)=j*i

print*,u(i,j)

enddo
enddo
end program hello

打印为

  1.00000000    
  2.00000000    
  3.00000000    
  4.00000000    
  2.00000000    
  4.00000000    
  6.00000000    
  8.00000000    
  3.00000000    
  6.00000000    
  9.00000000    
  12.0000000    
  4.00000000    
  8.00000000    
  12.0000000    
  16.0000000

我想连续打印最多4列，然后移到下一行并重复相同的操作。 我的输出应该像这样

1     2     3     4
2     4     6     8
3     6     9     12
4     8     12    16

我该如何实现？