数据读取问题

fcode

我亲爱的朋友，你的代码太麻烦了。

改成这样，简单又易读。

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

program www_fcode_cn
  use ISO_C_Binding
  implicit none
  integer :: i 
  real :: an
  Open(12,File="INPUT.dat")
  Do i = 1 , 10
    Read(12,*)
  End Do
  read(12,*) an
  write(*,*) an
  Close(12)
end program www_fcode_cn