Fortran 中仅在第二行和第三行写入数字

Question

我正在努力尝试仅在第二列的第二行和第三行上获取数字 1 和 2。

我有一个文件 tisk2

  O
  H
  H
  O
  H
  H

并且我需要获取文件 tisk 这个：

O
H1
H2
O
H1
H2

我的意思是我不想在 O 之后没有数字和文本。我尝试编写此代码：

program cislo
implicit none
integer :: i, sum, j, k
character :: t*10, m*10

open(10,file="tisk2",status='old')
open(12,file="tisk",status='old')

do k=0,5
read(10,*) m
enddo

do j=1,3
 do i = 0,0
 t=" "
 print*, t
exit
enddo
sum=0
do i=1,2
write(12,fmt='(a2,i2)') m, i
enddo
enddo

end program cislo

我只能打印 i，但我什么也没得到，第二行 1 和第三行2.然后单独打印m。但是当我想将两者都放入一个文件时，它会跳过 O 并仅写入文件 H1、H2，然后再次写入文件。有谁知道如何获得我需要的东西？谢谢你的帮助。