8
4
0
入门
dimension n(3,3) integer i,j read (*,1)((n(i,j),j=1,3),i=1,3) write (*,1)n 1 FORMAT (2X,'n=',3I6.2/2(4X,3I6.2/)) end
使用道具 举报
62
14
专家
查看全部评分
954
大师
integer :: n(3,3) read (*,*) n write (*,'(3(3i6.2/))') n end
integer :: n(3,3) Open( 111 , File = '文件名' ) read (111,*) n write (*,'(3(3i6.2/))') n end
vvt 发表于 2014-6-11 19:21 不要用 dimension,不要用格式符read [mw_shl_code=fortran,true]integer :: n(3,3)
安靖 发表于 2014-6-11 18:54 txt里数据格式怎么样的?
dimension a(3,3) open (1,file='E\1.txt') do 10 i=1,3 read(1,*)(a(i,j),j=1,3) 10 continue write(*,*)((a(i,j),j=1,3),i=1,3) 100 FORMAT (2x,7f6.2/6(2x,7f6.2/)) end
农村外出务工人员
736
chuxf 发表于 2014-6-11 23:19 第一,不要用 dimension 第二,请弄清楚数据的类型,是整型,还是浮点型。 整型用 integer 定义,用 I 格式 ...
臭石头雪球
2033
12
5
论坛跑堂
本版积分规则 发表回复 回帖后跳转到最后一页
颁发给完成“有规有矩”任务的网友
颁发给论坛注册3年以上的网友
颁发给注册后积极发言的新人
颁发给发帖量超过一定数量的坛友
颁发给论坛热心帮助他人的网友
颁发给为Fcode网站捐赠的网友
颁发给在娱乐版上传了真实照片的女性网友
颁发给经认证的具有特殊贡献和地位的名人
颁发给对本站有突出贡献的朋友
颁发给本站版主和管理
颁发给在娱乐版上传了真实照片的男性网友
捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )
GMT+8, 2024-12-23 21:26
Powered by Tencent X3.4
© 2013-2024 Tencent