Fortran 从pdb文件中读取行

我只想读取那些包含“ATOM”作为第一个单词的行，并使用Fortran代码写入文件。 我曾试图编写一段代码，但无法读取仅包含“ATOM”一词的特定行。我希望有人能在这方面帮助我

---

你需要这样的东西：

character*4 word

character*256 line

read(filename,1000) word,line

1000 format(A4,A256)

if (word .eq. 'ATOM') then

     write(10,1000) word,line

---

这不是一个代码编写服务-请向我们展示您到目前为止所做的工作，并解释错误所在。也就是说，谷歌搜索“阅读pdb fortran”会产生很多点击率——这些点击率能解决你的问题吗？