0

こんにちは、私は単純な問題を解決して配列全体を100 * 80 FORMで表示しようとしていますが、試している限り失敗しました。5 * 5アレイでは実行できますが、100*80以上のアレイでは実行できません。これが私のコードです：

  PROGRAM Arr

REAL:: I,J,ITER,K
DIMENSION :: A(200,200)

A(1,1)=500
A(1,80)=300
A(100,1)=50
A(100,80)=40

READ(*,*) ITER

  DO K=1,ITER
  DO I=2,99
    DO J=2,89

 A(I,J)=(A(I+1,J)+A(I-1,J)+A(I,J+1)+A(I,J-1))/4

    END DO
  END DO
  END DO

 DO J=1,80
OPEN (UNIT=9, FILE='ARR.TXT', STATUS='REPLACE')

WRITE(9,*) (A(I,J),I=1,100)

 END DO

 END PROGRAM

コメントがあれば参考になります。詳しく教えてください。ありがとう。

4

1 に答える 1

0

単純なリスト指示形式は使用せず、直接指定してください。試す

WRITE(9,'(200F12.5,x)') (A(I,J),I=1,100)

数値をいじって違いを確認したり、 Fortran Formatsのリファレンスを参照したりできます。

最大レコード (行) の長さは、克服できない問題になる可能性があることに注意してください。

于 2012-09-14T13:12:29.257 に答える