1.jpg (40.7 KB, 下载次数: 51)
3.jpg (5.11 KB, 下载次数: 52)
write(*,"(3((5(i3,1x),/)))") (hypernew(i,:),i=1,3)
Do i = 1 , 3
write(*,*) hypernew(i,:)
End Do
Transpose 发表于 2024-4-5 21:11
另外备注:intel的编译器每行只能输出80个字符
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |