利用FORTRAN 读取文件行数的小代码

wuzhx777

虫儿飞 发表于 2013-8-26 11:22

                               
登录/注册后可看大图

这个真不一定。。。

好东西，得好好学习学习！

cuitlpt

好东西 学习学习，顶一下

抹茶里

请教各位，本人按照LZ的办法单独执行读取行数的代码是可以的，单独进行文件读取也是可以的。为什么两个程序放一起后，行数读取就可以，文件读取就不行了呢？以下是代码部分截图以及错误截图：

抹茶里

不好意思，传了两次o(╯□╰)o。。求指教 {:eb302:}

小蜡图图

正好在找怎么读不同文件的行数~赞一个~！

莫莫丶格格子°

使用了一下 出现了问题 最后找到原因了 这个程序只能用来纯数字的数据 我的数据第一行是数据解释（文字）所以 没有办法使用  谢谢楼主分享

topmad

莫莫丶格格子° 发表于 2015-4-10 11:41
使用了一下 出现了问题 最后找到原因了 这个程序只能用来纯数字的数据 我的数据第一行是数据解释（文字）所 ...

也可以的呀

757084134

谢谢分享哈

aas314

初学者 来拜师了

大竹子

感谢楼主的启发，在使用过程中发现在read里加上iostat参数，有助于应对批量数据中个别数据文件为空的情况：
                         program main
                         implicit none
                                integer :: total,error
                                real :: line
                                total=0
                                open(100,file="05010100.sf")
                                do while(.true.)
                                        read(100,*,iostat=error,end=500) line       
                                        if(error==0) then
                                                total=total+1
                                        end if
                                end do
           500                continue
                                close(100)