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

将最后5个接受的结果写在FORTRAN的文本文件中

1 个答案: