如何从FORTRAN中的文本文件中读取数据

Question

我想从文本文件中读取一些数据。该文件的名称是＆＃39; freq.txt＆＃39;它与我编译代码的目录相同。文本文件如下所示：

100 cm-1
200 cm-1
300 cm-1

行数可能有所不同。我只想读取进一步处理的数字。任何人都可以帮我这样做吗？

Answer 1

program dataread

integer, parameter :: last=3
real :: dat(last)

open(1,file='freq')
do i=1,last
    read(1,*) dat(i)
    write(*,*) dat(i)
end do
close(1)

end program