io - Fortran 90 - I/O 将变量作为文件路径传递

Question

这似乎应该是一个简单的解决方案，但搜索了几个小时后我找不到解决方案。

我想将文件路径保存为字符变量，然后在 I/O 语句中使用该变量。下面是我从“filepath”定义的文件中读取的代码。

character:: filepath
filepath='c:\users\chris\...\data.txt'
open(unit=1,file=filepath,status='old',action='read',form='formatted',iostat=ierror)
    if(ierror.NE.0)then
        print*,'file cannot be opened or does not exist'
        read*,
    endif
    ......

程序编译(使用 NetBeans IDE 的 gfortran 编译器)，但是当我运行时，我将错误打印到屏幕上。

注1:当我将文件路径直接放入如下图的open函数中时，似乎可以正常工作

open(unit=1,file='c:\\Users\\Chris\\...\\data.txt',status='old',action='read',form='formatted',iostat=ierror)

注意 2:我已经在文件路径变量中尝试了所有向前/向后、单/双斜杠的变体，所以我认为这不是问题所在。当我将“文件路径”作为调试机制打印到屏幕上时(在上面的打开函数之前)，得到的只是“C”。所以由于某种原因，我似乎丢失了文件路径的其余部分。 (在我进一步研究之前，我会留下关于哪种斜线方法合适的问题)

感谢任何建议。

谢谢，克里斯

Answer 1

您已将 filepath 声明为长度为 1 的字符变量。将声明更改为类似 character(80)::filepath (使用足够长的长度包含整个路径)。