在文件夹里建新的文件夹，在新的文件夹里写入数据

fcode

你现在这种方式有啥问题吗？

fcode

write(dirname_1,'("total")')
像这种写法很奇怪。直接写
dirname_1 = "total"
更直观，运行也更快

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

dirname_1 = "total"
dirname= "part"
filename = trim(name)//'.txt'
call system("mkdir "//dirname_1)
call system("mkdir "//trim(dirname_1)//'/'//dirname)
open(30,file=trim(dirname_1)//'/'//trim(dirname)//'/'//filename)
      do i=0,numr
          radius=i*dr
          write(30,'(5f15.6)') radius,b,c,d,e
      enddo
end

fcode

lumlngz 发表于 2023-10-29 21:42
版主我又用您方法试了怎么显示命令语法错误捏

上代码，截图

fcode

如果你用的 windows 系统的话，用 '\' 代替 '/'

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

dirname_1 = "total"
dirname= "part"
filename = trim(model)//'.txt'
call system("mkdir "//dirname_1)
call system("mkdir "//trim(dirname_1)//'\'//dirname)
open(30,file=trim(dirname_1)//'\'//trim(dirname)//'\'//filename)
do i=0,10
      radius=i*0.1
      write(30,'(5f15.6)') radius
enddo