我想把一组带空格整齐排列的数据读入，输出一组不带空格的紧凑排列的数据，并且由原来的8个数一行变成10个数一行输出。这是我写的代码：
        character(len=9),dimension(300)::ss
        character,dimension(300)::tt
        open(1,file='open.txt')
        open(2,file='output.txt')
        read(1,fmt='(8a)')ss    
               tt=adjustl(ss)
        close(1)
      do i=1,300
        write(2,*) (tt(j),j=i,i+9)
      end do
    
        end
    
文本文件在附件里