fortran - 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。