Fortran Coder

查看: 9190|回复: 2
打印 上一主题 下一主题

[文件读写] 从文件中读取,为数组赋值的问题~~

[复制链接]

712

帖子

4

主题

0

精华

大师

农村外出务工人员

F 币
607 元
贡献
311 点

新人勋章爱心勋章水王勋章元老勋章热心勋章

楼主
发表于 2014-2-28 15:45:35 | 显示全部楼层
[Fortran] 纯文本查看 复制代码
character( Len = 5 ) :: c
DO
  READ(3,*,IOSTAT=status) c , a(i,:)
  IF(status/=0) EXIT
  WRITE(*,*) a(i,:)
  i=i+1
END DO
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-5-16 03:40

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表