f95的语法问题

selina999

write（*，"(<m>(' ',f4.1,' '))")((a(i,j),i=1,m),j=1,n)编译不通过，如何修改？

selina999

问题已解决，谢谢

楚香饭

[Fortran] 纯文本查看 复制代码

Do j = 1 , n
  write(*,"(*(1x,f4.1,1x))") a(1:m,j)
End Do