PROGRAM WRITETEXT IMPLICIT NONE INTEGER,PARAMETER :: NE=!fortran90 语法定义变量 DOUBLE PRECISION A(,),B(,) INTEGER I,J,M C 非二进制读写文本文档 DO I=,NE DO J=,NE A(I,J)=I+J CONTINUE OPEN(,FILE='State.txt',STATUS='UNKNOWN') WRITE(,) ((A(I,J),J=,),I=,)!写入txt CLOSE() O