关于输出换行的问题

xiao.

原本输出的目的是每句按一行输出，结果每一句太长了分成了三行，有什么好方法解决嘛，谢谢大噶了

       line='ren E:\xiao\hebing\co2_h2o\新建文件夹(2)\T_(1000-2200)_P_1.0_CO2_(0.05-0.10-0.15)_H2O_(0.05-0.10-0.15)_K分布数据库分工况'//trim(adjustl(line_count))//'a.data T_'//trim(adjustl(line_tg))//'_p_'//trim(adjustl(line_p))//'_CO2Mol_'//trim(adjustl(line_molco2))//'_N2mol_'//trim(adjustl(line_moln2))//'.data'
     count=count+1
   end do
end do
  open(13,file='gaimingzi.txt')
  do i=1,10000
    write (13,*) trim(adjustl(line(i)))
end do
  close(13)
      end

fcode

write (13,'(a9999)') trim(adjustl(line(i)))

xiao.

fcode 发表于 2021-1-27 11:29
write (13,'(a9999)') trim(adjustl(line(i)))

最后虽然能是一行了，但是前面很多空格不太方便怎么弄呢？

fcode

write (13,'(a)') trim(adjustl(line(i)))

xiao.

fcode 发表于 2021-1-28 14:21
write (13,'(a)') trim(adjustl(line(i)))

谢谢啦完美解决！