在Fortran程序中，关闭文件或程序通常使用`CLOSE`语句和`STOP`语句。以下是具体的用法：
关闭文件
使用`CLOSE`语句关闭文件，确保在程序结束时将文件关闭。语法如下：
```fortran
CLOSE (UNIT = u [, IOSTAT = ios , ERR = err , STATUS = sta ])
```
其中，`u`是文件单元号，`ios`、`err`和`sta`是可选参数，用于检查关闭文件时的状态和错误信息。
关闭程序
如果你想立即停止程序的执行，可以使用`STOP`语句。例如：
```fortran
STOP
```
这将导致程序立即终止，不再执行后续的代码。
示例
```fortran
program file_output
implicit none
integer :: i, n
real :: data(10)
! 打开文件
open(unit=10, file='output.dat', status='replace')
! 写入数据到文件
do i = 1, n
write(10, *) data(i)
end do
! 关闭文件
close(10)
print *, "File 'output.dat' has been closed."
end program file_output
```
在这个示例中，程序首先打开一个名为`output.dat`的文件，将一些数据写入该文件，然后使用`CLOSE`语句关闭文件，并打印一条消息确认文件已关闭。
建议
在编写Fortran程序时，确保在不再需要文件或程序时及时关闭它们，以避免资源泄漏或其他潜在问题。
使用`CLOSE`语句时，可以指定可选参数来检查关闭文件时的状态和错误信息，以便更好地调试和处理可能出现的错误。
