Fortran 运行时错误 : Bad real number in item 1 of list input

Question

对于此示例问题，我遇到运行时错误:列表输入的第 1 项中的实数错误。请建议正确的方法。

    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(*,*)(后面不需要任何内容​​)