Fortran语言; 遍历具有共同属性的文件名

Question

我是Fortran的新手，我的文件名有问题，我在simuln＃.res（其中1 <＃<20）中有一堆数据，我有多个具有相同simuln＃.res的不同目录名称，但它们具有不同的输入参数。 代码如下：

  character(len=11) :: theFileA
  character(len=12) :: theFileB
  character(len=:), allocatable :: fileplace

  write(*,*) "the directory with the data sets, use quotations"
  read(*,*) fileplace

  fileLoop : do j=1,20
  if (j .lt. 10) then 
    write(theFileA, '("simuln", I1,".res")' ) j   
    open(newunit= iin,file = fileplace//theFileA,status='old')
 else 
    write(theFileB, '("simuln",I2,".res")') j
    open(newunit= iin,file = fileplace//theFileB,status='old')
 end if

does some stuff with the file 
end do fileLoop

该代码在我的Mac上使用gfortran编译器进行编译，但是当我将路径放入包含文件的目录时，它给出了错误simuln1.res does not exist （它simuln1.res does not exist ，已三重检查）。 我尝试过更改编辑描述符（并使real（j）），但是我仍然得到相同的结果。 谁能帮我？

Answer 1

你有fileplace延期长度（ (len=:) ），但你似乎试图读取之前不分配它。

也就是说， read(*,*) fileplace没有，下自动分配的F2003规则，分配fileplace到正确的长度，并分配。 这意味着，在以后fileplace完全可以被视为零长度字符变量（ ''在文件中）被打开。

要检查此假设，请尝试print *, fileplace//theFileA 。 错误消息仅引用文件名的结尾部分，可以支持这一点。

如果是这种情况，请使用“大”变量。 您说只要需要90个字符，因此：

character(len=90) :: fileplace    ! Adjust length as desired
...
read(*,*) fileplace
...
open (newunit=iin, file=TRIM(fileplace)//theFileA, status='old')
...

确保将文件名附加到修剪后的目录名上，以避免两部分之间有空格。

[作为旁注，您似乎不需要theFileA和theFileB ; 考虑到忽略尾随空格，仅使用后者。 你可能想迫使末尾的“/” fileplace ]