Fortran Coder

查看: 173|回复: 1

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

[复制链接]

3

帖子

2

主题

0

精华

新人

F 币
31 元
贡献
14 点
发表于 2019-2-24 13:38:31 | 显示全部楼层 |阅读模式
本帖最后由 白夜IX 于 2019-2-24 13:45 编辑

①现有一个他人编写的exe程序,程序功能为:用户准备好一组参数文件,将这组参数文件和exe程序放在一个目录下,执行cmd文件,程序自动读取并经过若干次迭代计算,得出结果并输出结果文件,结果文件会生成在同一目录下。
②我想实现的目标:我的电脑是4核心8线程的,我手上有8组参数文件,我想让8组参数文件在8个线程内同时计算(并行),输出结果文件,并记录并行计算过程的总时间。
③关于cmd文件的内容是这样的结构:program(他人编写的exe程序名字)  abc.iter(参数文件中的起始文件) m > m.log (程序运行过程会输出到这个m.log文件中)
④我所做出的尝试:将两组参数文件、exe程序和cmd程序放在两个文件夹内(D:\test_al\inv1和D:\test_al\inv2),编写fortran程序,使用openmp建立两个子线程,两个线程内分别调用各自的批处理程序,并计算时间。
出现的问题:"program"(他人编写的exe程序名字)不是内部或外部命令,也不是可运行的程序或批处理文件
做出的改进:我将参数文件全放到我编写的fortran代码的“console2”文件夹内,并去掉D:\test_al\inv1这个路径,程序正常运行。 (也就是说,我的程序调用的指定路径D:\test_al\inv1的run.cmd,这个cmd识别不了D:\test_al\inv1下的program.exe,只能识别console2文件夹内的program.exe)
但是问题是:这8组参数文件及结果文件难免有重复的名字(尤其是结果文件,迭代计算过程会生成0.iter,1.iter等等),都放在console2里面不仅乱也互相影响,该怎么办呢,能不能满足我最初的尝试,即8组参数文件和程序在各自的文件夹内互不影响的运行?
[Fortran] 纯文本查看 复制代码
program main
    use omp_lib
    integer maxthreads
    real omp_begin,omp_end,section_begin1,section_end1,section_begin2,section_end2
    maxthreads=omp_get_max_threads()
    print*,"你正在使用的计算机CPU个数=",maxthreads
    call omp_set_num_threads(2)
    !$omp parallel
    omp_begin=omp_get_wtime()
        !$omp sections
            !$omp section
                section_begin1=omp_get_wtime()
                call system('D:\test_al\inv1\run.cmd')
                section_end1=omp_get_wtime()
            !$omp section
                section_begin2=omp_get_wtime()
                call system('D:\test_al\inv2\run.cmd')
                section_end2=omp_get_wtime()
        !$omp end sections
    omp_end=omp_get_wtime()
    !$omp end parallel
    print*,"总时间=",omp_end-omp_begin
    print*,"线程1时间=",section_end1-section_begin1
    print*,"线程2时间=",section_end2-section_begin2
    pause
end program main




回复

使用道具 举报

651

帖子

0

主题

0

精华

大师

F 币
501 元
贡献
275 点

规矩勋章元老勋章新人勋章水王勋章

QQ
发表于 2019-2-24 22:34:24 | 显示全部楼层
本帖最后由 vvt 于 2019-2-24 22:37 编辑

楼主的问题描述得非常好、详细、清晰,这一点赞美一下。
所涉及的问题是:
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

您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

QQ|捐赠本站|Archiver|关于我们 About Us|群聊|Fcode

GMT+8, 2019-5-22 19:27

Powered by Discuz! X3.2

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表