[文件读写] 文件读取问题

1967 帖子	12 主题	5 精华

论坛跑堂

臭石头雪球

F 币: 1370 元
贡献: 581 点

发消息

楼主

发表于 2015-1-28 13:06:49 | 显示全部楼层

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

Program Main
  Implicit None
  Real, Dimension (3) :: A, B, C
  Integer :: L
  Open (2, File='a.dat')
  Do L = 1, 3
    Read (2, *) A(L), B(L), C(L) !// 2 和 *  写反了
  End Do
  Do L = 1, 3
    Print *, A(L), B(L), C(L) !// 少个逗号
  End Do
  Close (2)
End Program Main