Fortran：モジュールで値を割り当てる方法

Question

私は別の人から得たコードに苦労しています。彼はモジュールを使用して、メインルーチンが必要とする配列を供給します。私は、必要なのはその

INTEGER :: i 
REAL :: myArray(3001) 

DATA (myArray(i),i=1,100)/& 
500., 501., 502., 503., [...] 599./ 

DATA (myArray(i),i=101,200)/& 
600., 601., [...], 699./ 

[...] 

DATA (myArray(i),i=2901,3001)/& 
[...] 3498., 3499., 3500./ 

今、私には、これは非常に複雑なようだ

を書き込むことによって、500から3500彼がやった

に番号を持つ配列です！また、myArrayにIntegersを含める必要がありますが、もちろんこれらの点をすべて削除したくありません。

だから最初は、私はこの試みた：

Do i=1,3001 
    myArray(i) = i+499 
End Do 

しかし、私は

を取得し、 "エラー＃6274：このステートメントは、モジュールの仕様部分 に表示されていなければなりません"

どうすればいいですか？

Answer 1

エラーは非常に説明的です。モジュールで計算を実行することはできません。モジュールは、変数宣言とサブルーチンインターフェイスをホストするように設計されています。

• ジャストタイプとモジュールでの配列の次元を宣言し、あなたが示唆されているループで（モジュールを使用して）あなたのメインプログラムでそれを初期化する：2つのオプションがあります。

• また、@francescalusによって指摘されているように、モジュールの宣言中に配列コンストラクタを直接使用できます。このようなもの：[(i, i=500, 3500)]

Answer 2

暗黙のdoループが必要です。これは細かい

MODULE module1 

    INTEGER :: i 
    REAL :: myArray(3001) = (/ (i, i=500, 3500) /) 

END MODULE 

フォーマットは

(/ (exp1, var=start, end) /) 

または

(/ (exp1, var=start, end, step) /) 

または

(/ (exp1, expr2, .., var=start, end, step) /) 

_{で参照してください。コンパイルし、実行しますhttps://web.stanford.edu/class/me200c/tutorial_90/07_arrays.html}