arrays - 需要视觉 fortran 6.6a 的帮助我想在文本文件中查看 100*80 数组

Question

嗨，我正在尝试解决一个简单的问题，并以 100*80 形式查看整个数组，但只要我尝试过，我就失败了。我可以为 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

---

任何评论都会有所帮助。请详细告诉我。谢谢。

Answer 1

不要使用简单的列表定向格式，而是直接指定它。尝试

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

您可以使用这些数字并查看差异或查看一些参考Fortran Formats。

请注意，最大记录（行）长度可能是您无法克服的问题。