谢谢,语法问题都解决了 |
如果你还不懂得如何续行的话。请看看教科书。 |
fcode 发表于 2015-8-13 18:47 谢谢!不过还是有点问题E:\无标题 |
[Fortran] 纯文本查看 复制代码 Program www_fcode_cn Implicit None real :: xsec(3,3) = 569629.1, ysec(3,3) = 3196640. , z(3,3) = 230. integer :: i = 1 , j = 1 Write( * , 100 ) xsec(i,j), nint(ysec(i,j)) , z(i,j) 100 format("Text Style Vv Justify MR ",f8.1,",",i7.7," 7.5 0 ",f6.2) End Program www_fcode_cn |
捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )
GMT+8, 2024-11-27 03:57