Как открыть все файлы с определенным расширением (префикс в имени) в fortran?

Question

Я хочу прочитать данные из некоторых файлов в Fortran, я могу сделать это, когда имена файлов имеют обычный порядок. но теперь он не является регулярным, хотя у всех есть один и тот же префикс: Fix001, Fix002, Fix023, Fix432, ...

Я хочу, чтобы программа получила префикс от пользователя и открыла все файлы в цикле, прочитала данных и записать их в один файл. любая идея? Спасибо.

PROGRAM Output 
Implicit none 
Integer ::n=5  !number of files 
Integer ::nn=50 !number of rows in each file 
Integer ::i,j 
Real,Dimension(:),Allocatable::t,x,y,z 
Character(len=12)::TD 

Open(11,file='outputX.txt') 
Allocate (t(1000),x(1000),y(1000),z(1000)) 

j=0 
Do i=1,n 
    Write(TD,10)i 
    Write(*,*)TD 
    Open(1,file=TD) 
     Read(1,*)(t(j),x(j),j=1,nn) 
     Write(11,20)(x(j),j=1,nn) 
j=j+1 
Enddo 

10 Format('100',i3.3,'') 
20 Format(<nn>E25.8E3) 

Deallocate(x,y,z,t) 
END PROGRAM Output 

Answer 1

Если у вас есть верхний предел, вы можете попытаться открыть файл и тест с параметром iostat, который был ли успешным. Если это не так, вы пропустите файл.

Это пример, который считывает только первую переменную целого числа из файла и добавляет его в выходной файл:

program read_files 
    implicit none 
    integer :: i, d 
    integer :: ioerr 
    character(len=len("FixXXX.txt")) :: fname 

    open(unit=30, file="Output.txt", action="write", iostat=ioerr) 
    if (ioerr /= 0) stop 1 

    do i = 0, 999 
     write(fname, '(A, I3.3, A)') "Fix", i, ".txt" 
     open(unit = 40, file=fname, status="old", action="read", iostat=ioerr) 
     if (ioerr /= 0) cycle 
     read(40, *) d 
     write(30, *) d 
     close(40) 
    end do 
end program read_files