加载中…Fortran程序如何一行一行读取文件
(2016-05-13 20:15:24)| 分类： Fortran |
如何一行一行从输入文件读取数据的Fortran程序：
open(1,file=inputfile,status='old')
i=1
do
while(.true.)
read(1,*,iostat=error) string(i)
if(error/=0)
exit
i=i+1
end do
close(1)
if(error/=0)
exit ！没有数据就跳出循环，其中 error 定义为整型变量
program main
implicit none
integer :: error,i
character(len=15) :: inputfile
character(len=15) ::
string(1000)
inputfile = "inputfile.dat"
stop
end program
读取文件的核心部分已经用红色标注。
喜欢
0
赠金笔