我昨天遇到的问题和你一样，

我的思路是：在end前增加一个read语句，读入一个字符，然后判断这个字符是否等于回车（通过判断ASCII码是否等于13来实现），如果是，则end。可是现在遇到的问题是，fortran无法读入回车，正郁闷呢，

如果是在编译界面执行程序的话，用continue就可以，会显示按任意键继续，

如果是直接双击.exe执行的话，用continue无效，必须用pause，但是用pause时候屏幕上显示的一行英文让人不爽，象出了错一样，……

正在思索其他方法……

加read(*,*)