fortran77读写文本文档

       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()
       OPEN(,FILE='State.txt',status='OLD',ACCESS='SEQUENTIAL')
    FORMAT((E16.,1X))
 C     读取text中数据到数组
       I=
     I=I+
       READ(,) (B(I,J),J=,)
       IF (I.LT.) GOTO
    FORMAT((E16.,1X))
 c     二进制方法读写文档

       ENDPROGRAM WRITETEXT

下面添加二进制形式。

       PROGRAM WRITETEXT
       IMPLICIT NONE
       INTEGER,PARAMETER :: NE=!fortran90 语法定义变量
       DOUBLE PRECISION A(,),B(,),C(,)
       INTEGER I,J,M
 CCCCC     非二进制读写文本文档
 C     初始化A
       DO  I=,NE
             DO  J=,NE
                   A(I,J)=I+J
     CONTINUE
 C     将A写入文档6
       OPEN(,FILE='State.txt',STATUS='UNKNOWN')!往文本文档中写东西时最好用这种，若存在会自动删除
       WRITE(,) ((A(I,J),J=,),I=,)!写入txt
       !CLOSE()!其实可以不关闭而由内存直接写到硬盘上。
       !OPEN(,FILE='State.txt',status='OLD',ACCESS='SEQUENTIAL')!如果不进行关闭再打开动作，文件指针在最后一行，就需要REWIND 6语句
    FORMAT((E16.,1X))
 C     读取text 6中数据到数组B,实现了数据A--->B
       I=
     I=I+
       REWIND !将6号文档的指针移到文档开头
       READ(,) (B(I,J),J=,)
       IF (I.LT.) GOTO
    FORMAT((E16.,1X))
 c     下面二进制方法读写文档，实现数据A--->C
       OPEN(,FILE='FTEMP1.DAT',STATUS='NEW',ACCESS='SEQUENTIAL',
      + FORM='UNFORMATTED')
       WRITE() ((A(I,J),J=,),I=,)!写入txt
       REWIND !将1号文档的指针移到文档开头
       READ() ((C(I,J),J=,),I=,)!写入txt
       CLOSE()
       CLOSE(,STATUS='DELETE')
       ENDPROGRAM WRITETEXT

通过下面的代码可以看出，现在的编译器可以很好的兼容Fortran77和Fortran90，在Fortran77中写Fortran90代码也没问题，比如变量名字长度可以超过6个字符长度（但要小于31个字符长度）

       PROGRAM WRITETEXT
       IMPLICIT NONE
       INTEGER,PARAMETER :: NE=!fortran90 语法定义变量
       DOUBLE PRECISION A(,),B(,),C(,)
       INTEGER I,J,M,abcdefghijklmnopqrstuvwxyz!名字的长度不能超过 31个字符。
 CCCCC     非二进制读写文本文档
 C     初始化A
       DO  abcdefghijklmnopqrstuvwxyz=,NE
             DO  J=,NE
             A(abcdefghijklmnopqrstuvwxyz,J)=abcdefghijklmnopqrstuvwxyz+J
     CONTINUE
 C     将A写入文档6
       OPEN(,FILE='State.txt',STATUS='UNKNOWN')!往文本文档中写东西时最好用这种，若存在会自动删除
       WRITE(,) ((A(I,J),J=,),I=,)!写入txt
       !CLOSE()!其实可以不关闭而由内存直接写到硬盘上。
       !OPEN(,FILE='State.txt',status='OLD',ACCESS='SEQUENTIAL')!如果不进行关闭再打开动作，文件指针在最后一行，就需要REWIND 6语句
    FORMAT((E16.,1X))
 C     读取text 6中数据到数组B,实现了数据A--->B
       I=
     I=I+
       REWIND !将6号文档的指针移到文档开头
       READ(,) (B(I,J),J=,)
       IF (I.LT.) GOTO
    FORMAT((E16.,1X))
 c     下面二进制方法读写文档，实现数据A--->C
       OPEN(,FILE='FTEMP1.DAT',STATUS='NEW',ACCESS='SEQUENTIAL',
      + FORM='UNFORMATTED')
       WRITE() ((A(I,J),J=,),I=,)!写入txt
       REWIND !将1号文档的指针移到文档开头
       READ() ((C(I,J),J=,),I=,)!写入txt
       CLOSE()
       CLOSE(,STATUS='DELETE')
       ENDPROGRAM WRITETEXT

fortran77代码

并且也不是变量名比较长时就取前6个字符（要是只取前6个字符的话两个较长的变量名前6个字符相同时会认为是同一个变量），而是全部字符都作为变量名。

       PROGRAM WRITETEXT
       IMPLICIT NONE
       INTEGER,PARAMETER :: NE=!fortran90 语法定义变量
       DOUBLE PRECISION A(,),B(,),C(,)
       INTEGER I,J,M,abcdefghijklmnopqrstuvwxyz,abcdefghijklmnopqrstuvw!名字的长度不能超过 31个字符。
 CCCCC     非二进制读写文本文档
 C     初始化A
       DO  abcdefghijklmnopqrstuvwxyz=,NE
             DO  abcdefghijklmnopqrstuvw=,NE
             A(abcdefghijklmnopqrstuvwxyz,abcdefghijklmnopqrstuvw)=
      &       abcdefghijklmnopqrstuvwxyz+abcdefghijklmnopqrstuvw
     CONTINUE
 C     将A写入文档6
       OPEN(,FILE='State.txt',STATUS='UNKNOWN')!往文本文档中写东西时最好用这种，若存在会自动删除
       WRITE(,) ((A(I,J),J=,),I=,)!写入txt
       !CLOSE()!其实可以不关闭而由内存直接写到硬盘上。
       !OPEN(,FILE='State.txt',status='OLD',ACCESS='SEQUENTIAL')!如果不进行关闭再打开动作，文件指针在最后一行，就需要REWIND 6语句
    FORMAT((E16.,1X))
 C     读取text 6中数据到数组B,实现了数据A--->B
       I=
     I=I+
       REWIND !将6号文档的指针移到文档开头
       READ(,) (B(I,J),J=,)
       IF (I.LT.) GOTO
    FORMAT((E16.,1X))
 c     下面二进制方法读写文档，实现数据A--->C
       OPEN(,FILE='FTEMP1.DAT',STATUS='NEW',ACCESS='SEQUENTIAL',
      + FORM='UNFORMATTED')
       WRITE() ((A(I,J),J=,),I=,)!写入txt
       REWIND !将1号文档的指针移到文档开头
       READ() ((C(I,J),J=,),I=,)!写入txt
       CLOSE()
       CLOSE(,STATUS='DELETE')
       ENDPROGRAM WRITETEXT

fortran77