文件的读取与写出问题

fcode

其实你可以这样定义结构体

[Fortran] 纯文本查看 复制代码

type para
            character(len=3) line
            integer :: column
           real(8) :: porosity
            character(len=3) stateindex
            character(len=1) colon
            character(len=1) pressure
            character(len=1) commaa
            character(len=15) variables
            real(kind=8) :: Numcon(4)
    end type

这样有个好处，就是不再需要写
read(fileid,FMT = 5001) s(i)%line,s(i)%column,s(i)%porosity,s(i)%stateindex,s(i)%colon,s(i)%pressure,s(i)%commaa,s(i)%variables,s(i)%Numcon1,s(i)%Numcon2,s(i)%Numcon3,s(i)%Numcon4
而可以简单的写成
read(fileid,5001) s(i)

当然你还要调整 5001 format 的顺序。

非常方便