根据循环生成数据文件名的小问题，求助大家~~~谢谢...

有赖幽趣

[Fortran] 纯文本查看 复制代码

integer :: i
    character*80 :: filename
    
    do i=1,10
        write(filename,FMT='(I6.6,A4)') i,".txt"
        filename=trim(filename)
        open(1,file=filename,status="unknown")
        write(1,*)i
        close(1)
    end do