將最后5個接受的結果寫在FORTRAN的文本文件中

Question

我將在Fortran中編寫代碼，該代碼將最后5個可接受的結果保存在文本文件中。 我怎樣才能做到這一點？ 應該注意的是，我需要最后2000個結果，例如，如果我有200個結果，則需要保留最后5個結果並刪除第一個結果。 這是一個示例代碼

program test
implicit none
REAL :: r
integer :: i
     open(1000,file='results.txt',status='unknown')


     do i=1,100000  
     CALL RANDOM_NUMBER(r) 
     print*, r


     if(r .lt. 5E-01 .and. r .gt. 4E-01)then

        write(1000,*) r
      endif
end do
    close(1000)

end program test

Answer 1

不完整/偽代碼

start process loop

process...

if (accepted) then
  a(1) = a(2)
  a(2) = a(3)
  a(3) = a(4)
  a(4) = a(5)
  a(5) = new
end if

end process loop

write (*, *) a