29
5
0
熟手
write(dirname_1,'("total")') write(dirname,'("part")') write(filename,'(A2,".txt")')name call system("mkdir "//dirname_1) call system("mkdir "//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
使用道具 举报
fcode 发表于 2023-9-19 18:45 你现在这种方式有啥问题吗?
fcode 发表于 2023-9-20 10:00 write(dirname_1,'("total")') 像这种写法很奇怪。直接写 dirname_1 = "total"
fcode 发表于 2023-10-30 10:07 上代码,截图
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
fcode 发表于 2024-4-5 19:47 如果你用的 windows 系统的话,用 '\' 代替 '/' [mw_shl_code=fortran,true]dirname_1 = "total" dirname= ...
本版积分规则 发表回复 回帖后跳转到最后一页
捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )
GMT+8, 2024-5-16 15:42
Powered by Tencent X3.4
© 2013-2024 Tencent