使用Do-Loop读取一列数据(数字和字符串)，并将数字作为输出过滤到另一个文件中

Question

我有一个输出文件，单列，其中每第7行是一个字符串，其他的是数字(类似下面的内容)

998.69733    
377.29340    
142.22397    
53.198547    
19.743515    
7.5493960    
timestep:  1
998.69733    
377.29340    
142.22047    
53.188023    
19.755905    
7.5060229    
timestep:  2
998.69733    
377.29337

我需要将这个数据读到另一个文件中，省略文本，只保留数字，并尝试一个循环来为我的字符串分配一个虚拟对象，但我得到了一个错误，因为它无法识别(AI)。

DO 10 I = 1, 1000
 IF (MOD(I,7) == 0) THEN 
  READ (8, FMT= '(AI)') dummy
 END IF
  READ (8,*) val
  WRITE (9,*) val
10 CONTINUE

(8 -输入文件和9-输出文件分配)

我是Fortran的新手，我花了很多时间在网上寻找解决方案，或者至少是类似的问题，但没有找到任何东西。如果能帮上忙我会很感激的。

非常提前感谢您。

Answer 1

如果只想跳过第七行，可以执行"read (8，'(A)‘) dummy“，其中dummy被声明为字符串(即"character (len=80) :：dummy")。这并不重要，因为一些字符是字母，而另一些字符是数字。

附注:现代的是写循环是" do“，"end do”...不需要行号和continue语句。