Fortran运行时错误：列表输入的第1项中的实数错误

Question

我遇到此示例问题的运行时错误：Bad real number in item 1 of list input。请建议正确的方法。

    implicit double precision (a-h,o-x)
    parameter (ni=150)  
    dimension x(ni)
    open(40,file='fortin')
    do 80 i=1,5
    read(40,*)x(i)
    write(*,*)i,x(i)
80  continue
    stop
    end

fortin文件中的数据排列在

列中

   1.0     
   5.0     
   3.0
   5.0
   7.0

Answer 1

您的代码只需要数字，而且文件中显示您有字符。你可以做以下两件事之一来解决这个问题：

1. 删除fortin文件
顶部的字词
2. 在循环
之前添加一个read(*,*)（后面不需要任何内容​​）

Answer 2

就我而言，问题在于数据文件，而不是代码。

我的问题是文件是Unicode格式。当我在vi中查看时，它显示得很好。但是当我在一个不支持unicode的观众中观看时，比如使用午夜指挥官，它看起来就像一团糟。后来发给我文件的人告诉我他用UTF-16保存文件。