在创建许多输出文件时，将输出文件写入不同的目录

Question

我正在使用fortran 95.我的问题与Accessing files in sub directory of main program

非常相似

我遇到的另一个问题是：我使用以下命令在循环中创建文件：

write(fn,fmt='(a,i0,a)')"degseqA",filenumber,'.dat'
open(unit=filenumber,file=fn)

因此我无法使用'output / myfile.dat'使myfile.dat转到目录输出。有什么方法可以解决这个问题吗？

由于

Answer 1

如果目录已经存在，那就非常简单了。

write(fn,fmt='(a,i0,a)') "output/degseqA",filenumber,'.dat'

open(unit=filenumber,file=fn)

或一般

write(fn,fmt='(a,i0,a)') trim(directory_name)//"degseqA",filenumber,'.dat'

其中directory_name是一个带有目录名称的字符变量。

确保fn足够大。