关于矩阵转置的尝试

vvt

输出二维数组比较“流行”的写法是：

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

Do i = 1 , size(array,2)
  write( * , '(*(i4,1x))' ) array(:,i)
End Do

vvt

2x 代表输出2个空格。
2(2x,f0.8) 代表括号里的格式重复2次。

多看书~