楚香饭 发表于 2022-11-22 16:40
call system("echo file.txt>a.inp & name.exe
楚香饭 发表于 2022-11-22 16:40
call system("echo file.txt>a.inp & name.exe
character(len=16) :: c
Do i = 1 , 3
write(c,*) i
call system("echo file"//trim(adjustl(c))//".txt>a.inp & name.exe <a.inp & del a.inp")
End Do
楚香饭 发表于 2022-11-24 09:03
[mw_shl_code=fortran,true]character(len=16) :: c
Do i = 1 , 3
write(c,*) i
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |