求fortran程序代码，使执行完fortran 程序后自动关机。

我们可以在“开始→运行”,ShutDown –S

或者选择时间

1、定时关机

命令：at 21:00 ShutDown –S –T30

该命令运行后，到了21:00点，电脑会出现“系统关机”对话框，并默认30秒延时自动关机。

2、定时提醒

命令：at 12:00 Net Send 101036122与朋友约会的时间到了，快点准备出发吧!

其中Net Send是Windows内部程序，可以发送消息到网络上的其他用户、计算机。101036122是本机电脑的IP地址。这个功能在Windows中也称作“信使服务”。

就用这个就OK了。

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

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

错误出现在这个子程序中：

subroutine input (name,n1,n2)

integer name(n1,n2),n1,n2,i,j

write(,"('input the size')")n1,n2

read ,((name(i,j),j=1,n2),i=1,n1)

end subroutine

在 write(,"('input the size')")n1,n2 这句中，你使用了有格式的输出，却没有定义n1和n2的格式，导致计算机不知道用什么方式来输出

改为

subroutine input (name,n1,n2)

integer name(n1,n2),n1,n2,i,j

write(,"('input the size',I4,I4)")n1,n2

read ,((name(i,j),j=1,n2),i=1,n1)

end subroutine

或者

subroutine input (name,n1,n2)

integer name(n1,n2),n1,n2,i,j

write(,)"input the size",n1,n2

read ,((name(i,j),j=1,n2),i=1,n1)

end subroutine

Program Main

logical :: bExist = FALSE

Do

Inquire( File = "atxt" , exist = bExist)

if ( bExist ) Exit

End Do

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

End Program Main

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

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

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

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

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

以上就是关于求fortran程序代码，使执行完fortran 程序后自动关机。全部的内容，包括:求fortran程序代码，使执行完fortran 程序后自动关机。、Fortran — 程序没运行完就自动停止了、FORTRAN 语言程序运行问题,请解答等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！