各位前辈大家好，先有一小问题，但一直解决不了，望诸位能帮助一下
具体为：想把一个文件里的数据替换一下，但只想替换单数行，文件总共4216行，下面是我编的一小程序，但不成功，望指导指导



program main
  implicit none
  
  character(5221) :: input 
  integer i,j
  integer,parameter::ind=4216
  
  open(10,file='1f.txt',status="old") 
  open(20,file='1s.txt')
    
  do j=1,ind,2       ~~~~~~~~~~~~~~~~~~这有问题
    read(10,"(A5221)") input 
     do i=1,5221 .
       if ( input(i:i) == 'h' ) then
       input(i:i)='1'
      
       end if
     end do
  
      write(20,"(A5221)")input 
  end do
  
  stop
end program