在Fortran程序中我想让程序暂停

Program Main

logical :: bExist = .FALSE.

Do

Inquire( File = "a.txt" , exist = bExist)

if ( bExist ) Exit

End Do

!// 此处是你的后续代码，比如 open 打开该文件等

End Program Main

意思就是，不停的循环。直到文件存在为止。

我想这个可能不一定能满足你的需求。

我猜你是想等另一个程序把结果输出吧？

但是，另一个程序创建这个文件之后，可能写入文件内容还需要一点时间。

如果你的程序一旦发现文件创建了，就开始读的话，可能会打开文件冲突。（也就是两个程序都打开同一个文件，会出错的）

不是太清楚你的循环语句是怎样的，有些是有限制条件，在这个条件里面才执行循环内容，而一旦不符合条件，程序就会跳出循环，还有一种就是你循环的内容里面存在逻辑错误，这个错误使得你的循环在一定次数时（eg:67次），无法继续进行下一步，如此就会默认为程序已执行完，自动跳出！

所以，如果想让你的问题被真的解决，就先自己认真、仔细检查下你的程序吧。

FORTRAN程序由一个主程序或一个主程序与若干个子程序组成。主程序与子程序都是一个独立的程序单位，称为一个程序模块。[1]

1、程序分段：一个程序由一个或若干个程序单位组成。主程序和每一个子程序分别是一个独立的程序单位。子程序是实现模块化的有效方法。

2、每一个程序单位都是以“END”语句结束。主程序段中的END语句作用是使程序“停止运行”；子程序段中的END语句是“使流程返回调用程序”。

3、一个程序有且仅有一个主程序段，可以有0个或若干个子程序段。

4、一个程序单位包括若干行。FORTRAN行分为两类：即语句行和非语句行。

其中语句行由一个FORTRAN语句组成。FORTRAN语句又可分为执行语句和非执行语句。非语句行，即为注释行。

5、FORTRAN程序的基本成份是语句。一行只能有一个语句。若一个语句太长，一行内写不下，可分写在几行上，但要用“续行标志”。

6、FORTRAN程序中语句允许有标号，以便被其他句引用。

7一个程序单位中各类语句的位置是有一定规则的。一般是非执行语句放在所有可执行语句之前。[2]

---