Как открывать и сохранять итерации в новых файлах в Фортране?

Как открыть новый файл для каждого временного шага и сохранить сумму для этого временного шага? Скажем, у меня есть одномерный массив и я хочу сохранить вывод для каждого временного шага в новом файле с меткой этого временного шага. Файлы могут достигать нескольких сотен.

Я пытаюсь запустить код, но он не работает. И не знаете, как это сделать?

program iteration
implicit none

real, dimension(1:3) :: summ
integer              :: timestep, x
integer, parameter   :: nstep = 2

do timestep = 1, nstep

open(unit=1,file='file.txt')

    do x = 1,3        ! 1D
        summ = x + 0
       write (unit=1, fmt=100)summ    
    end do
    write (unit=1, fmt=100)summ
    close(1)    
    end do

    100 format (' ', f7.3)
end program iteration