询问一个关于fortran调用批处理文件的问题

vvt

楼主的问题描述得非常好、详细、清晰，这一点赞美一下。
所涉及的问题是：
1. 虽然你的程序用到了多线程，但独立运行的 call system() 是单独的“进程”，而非线程。
2. 多进程的并行，由操作系统负责，对于您的程序，OpenMP并行并不能起到加速的作用。（因为call system只是唤醒命令，而唤醒是非常快的。）
（你可以想象，写一篇文章很消耗时间，但“命令别人写一篇文章”，则很容易。你在并行的命令别人写文章，没多大意义。）
（program.exe并不是由并行代码构成的，所以起不到并行的作用）
3. run.cmd 这个东西完全没必要。你可以直接
call system("program abc.iter m > m.log")
4. 你可以分别切换到不同的目录下，执行 call system，这样，输入输出文件就是当前的文件夹了。
5. 实际上，你根本不需要写fortran代码，直接用windows的 bat 批处理更简单。
6. 如果你确实要用 Fortran来做，那么可能类似这样的程序

首先，把 program.exe 放在 D:\test_al 文件夹。（不需要每个文件夹放一个）

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

use IFPORT
character(len=3) :: cDir
Do i = 1 , 8
  write( cDir , '(i3)' ) i
  k = ChangeDirQQ("D:\test_al\inv"\\adjustl(cDir))
  call system("start D:\test_al\program.exe abc.iter m > m.log")
End Do