找回密码
 开放注册

QQ登录

只需一步,快速开始

微信登录

微信扫码,快速开始

搜索
查看: 1421|回复: 1

如何让程序在运行中正常终止

[复制链接]

241

主题

57

回帖

1822

牛毛

二级牛人

积分
1822
QQ
发表于 2010-12-2 16:30:35 | 显示全部楼层 |阅读模式 来自 山东省济南市
在程序编写中,在合适的地方(如在每一时间推进处)加上一判断语句,用来判断是否存在STOPFILE. 如果存在,则转入正常终止部分;否则,继续执行. 还可以根据STOPFILE中的内容来干预程序的执行. 例子如下:     // Only root process checks single-byte record in "stopfile": 'g' or 's'    if (myid == 0) {      MPI_File_open(MPI_COMM_SELF, "stopfile",                    MPI_MODE_CREATE | MPI_MODE_RDWR, MPI_INFO_NULL, &fh);      MPI_File_set_view(fh, 0, MPI_CHAR, MPI_CHAR, "native", MPI_INFO_NULL);      MPI_File_read(fh, &a, 1, MPI_CHAR, &status);      MPI_File_close(&fh);      //      if (a == 's') {        a = 'g';        continFlag = 0;        MPI_File_open(MPI_COMM_SELF, "stopfile",                      MPI_MODE_CREATE | MPI_MODE_RDWR,                      MPI_INFO_NULL, &fh);        MPI_File_set_view(fh, 0, MPI_CHAR, MPI_CHAR,                          "native", MPI_INFO_NULL);        MPI_File_write(fh, &a, 1, MPI_CHAR, &status);        MPI_File_close(&fh);      }    }

241

主题

57

回帖

1822

牛毛

二级牛人

积分
1822
QQ
 楼主| 发表于 2010-12-2 16:30:59 | 显示全部楼层 来自 山东省济南市
看看发表一下意见
您需要登录后才可以回帖 登录 | 开放注册

本版积分规则

帮助|Archiver|小黑屋|通信管理局专项备案号:[2008]238号|NB5社区 ( 皖ICP备08004151号;皖公网安备34010402700514号 )

GMT+8, 2025-4-27 14:58 , Processed in 0.149064 second(s), 36 queries .

Powered by Discuz! X3.5

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