2016-09-30 13 views
-2

私は実数のファイルを持っています。ファイルの各行には10個の実数があり、次に10個の実数があります。私は、行に沿ってファイルを読み込み、数値を100個の1次元配列に格納したいと思います。だから私は行に沿って読んで、最初の行の数字が配列要素a(1)〜a(10)に格納され、次にa(11)がa 20)は2行目の数字などでなければなりません。これはどのようにしてFORTRANで行うことができますか?ファイルを読み込む(FORTRAN)

+1

何を試しましたか?いくつかのコードを投稿してください。確かに、FORTRANを覚えているこのサイトにはいくつかの化石があります。 – nicomp

+0

@nicomp Fossils? [tag:fortran]には2,5,000人の信者がいます。確かに.VladimirF。 –

+0

。 – nicomp

答えて

1

はい化石。私は50年前にFortranを始めましたが、C、C++、Java、VBA、SQL(言語としてカウントされる場合)と無数のアセンブラ、スクリプト言語、シェルのフェーズを経ていますが、

ファイルから数値を読み取る方法はいくつかあります。フォーマットされていない読み取りに数字がなくなると、次の行に移動します。

integer i,j 
    real*8 realArray(100) 
c  read data 10 items per row 
    open(unit=1,file='input.txt') 
    do 10 i=1,10 
    read(1,100) (realArray((i-1)*10+j),j=1,10) 
10 continue 
c read(1,100) realArray 
c read(1,*) realArray 
    write(6,*) ((realArray((i-1)*10+j),j=1,10),i=1,10) 
    write(6,100) realArray 
    write(6,*) realArray 
100 format(10F10.0) 
    close('input.txt') 
    stop 
    end 

ラインの一つは、わずか9つの数字が、三番目のだろうが含まれている(例えば)のであれば最初の2つの方法がエラーを報告しません。