在 Fortran 中按名称获取文件单元，反之亦然

Question

Fortran 90 有没有办法通过名称获取文件单元和通过单元号获取文件名？我知道这会很昂贵，但是我有很多文件名，我希望在创建它们后能够在子例程中重新访问它们。

Answer 1

像这样的命令

inquire(unit=12, opened=openedq, file=name_of_file)

会将连接到单元 12 的文件名返回到字符变量name_of_file。如果没有文件连接到该单元opened就会返回false，否则true。该命令还采用各种其他可选参数。

要获取已附加文件的单元号，请使用前面的变体，如下所示

inquire(file='my_favourite_file.nuts', number=unknown_unit_number, opened=openedq)

参考编译器文档应该解释inquire支持的所有变体。