0

fort.1、fort.2、fort.3 など、fort.5000 までのファイル名を持つ何百ものファイルがあります。私が欲しいのは、各ファイルを開いてそのファイルを操作して閉じることです。次に、次のファイルに進みます。Fortran 90でこれをやりたいです。

ブラウジングしましたが、欲しいものを手に入れることができませんでした。開くためのスレッドを1つ見ましたが、あまり役に立ちません。

`と書いてみた

program openFile
IMPLICIT none
INTEGER(I-N), REAL*8(A-H,O-Z)
real,dimension(2000) :: angle           
CHARACTER(len=10) FN
integer::I, k
integer,parameter :: N=102  
DO I=101,N
!WRITE(FN,10) I
!WRITE(6,*) FN
OPEN(1,FILE=FN)
do k=1,200
read(1,'(F8.3)') angle(k)
print*,
end do      
CLOSE(1)
enddo 
10 FORMAT(5Hfort.I3)
STOP
END

`しかし、うまくいかないようです。それは私が助けを得ることは可能ですか？前もって感謝します。

4

1 に答える 1

6

アプローチは、ファイル名を文字列で作成することです。名前のスタイルについて：

write (filename, '("fort.", I0)' )  FileNum

次に、ファイル名を使用して各ファイルを開きます。

関連する質問: https://stackoverflow.com/questions/13048441/writing-files-in-fortran-with-increasing-numbers

于 2012-11-06T11:43:45.160 に答える