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

玄枫

以前我老师就是说的这个方法，挺不错的

topmad

苏拉苏拉 发表于 2013-8-24 20:28

                               
登录/注册后可看大图

我用lqouc的程序运行出来了，你的程序在我的fortran里编译时出错，如果不是语言版本的问题，我就更不明白 ...

实在不知道你的问题所在

我这边是可以运行的
这是你的文件 我用UE打开 是17745行


同样的代码 在fortran powerstation 4.0下运行得到



在CVF6.5 下



结果都是可以的  二者区别仅仅是do while后面 CVF里面遇到单数会返回false值 故改成true

以上是个人测试结果  欢迎讨论

苏拉苏拉

topmad 发表于 2013-8-24 21:46

                               
登录/注册后可看大图

实在不知道你的问题所在

我这边是可以运行的

我把你在贴图上的两个程序在我的cvf里试过了，确实若你所说，显示行数和显示false值0。
我不敢相信啊，于是，我按照你最初给的程序再试了一遍，它居然出来了。。。这让我情何以堪。。。浪费大家时间了。
cvf在win7里有时候不稳定，难道是这个原因？或者是我当时同时打开了其他程序导致编译时出错？
哎。。。不知道了。总之，很谢谢你。

topmad

苏拉苏拉 发表于 2013-8-25 21:48

                               
登录/注册后可看大图

我把你在贴图上的两个程序在我的cvf里试过了，确实若你所说，显示行数和显示false值0。
我不敢相信啊， ...

CVF有时候是不稳定 但是只要是有报错 一般是能正常运行的  应该着重查找自己代码的问题  细心就好

虫儿飞

言深深 发表于 2011-7-15 10:39

                               
登录/注册后可看大图

哈哈，其实fortran里面变量不定义的话，默认的全是0。然后我比较喜欢用I-N规则，连implicit none都可以省 ...

我可以负责任地告诉你，不是这样的

lqouc

虫儿飞 发表于 2013-8-26 10:23

                               
登录/注册后可看大图

我可以负责任地告诉你，不是这样的

是这样的吧，你看，我觉得言版说得有理。你可以试试看什么情况下不是。
讨论一下共同进步。如果真像你说的就呼叫言版给你加分啦~~~

言深深

lqouc 发表于 2013-8-26 10:43

                               
登录/注册后可看大图

是这样的吧，你看，我觉得言版说得有理。你可以试试看什么情况下不是。
讨论一下共同进步。如果真像你 ...

thx，哈哈

虫儿飞

lqouc 发表于 2013-8-26 10:43

                               
登录/注册后可看大图

是这样的吧，你看，我觉得言版说得有理。你可以试试看什么情况下不是。
讨论一下共同进步。如果真像你 ...

他之前只用你这个版本的fortran，他现在已经承认错误了

言深深

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

                               
登录/注册后可看大图

他之前只用你这个版本的fortran，他现在已经承认错误了

靠，要不要这么衰啊！
【对于fortran康版里面，适用inplicit none语句是合法的，未赋值情况下默认字符为0；其他版本，如intel版本，对于字符未加定义，程序判定为非法】@lqouc，也欢迎对此类问题的探讨。

lqouc

言深深 发表于 2013-8-26 11:12

                               
登录/注册后可看大图

靠，要不要这么衰啊！
【对于fortran康版里面，适用inplicit none语句是合法的，未赋值情况下默认字符为 ...

哈哈，我觉得吧，还是cvf的市场比较大。话说上图我用的是c++呢。嘿嘿。
这个问题上都说的没错吧。
于是吃午饭去好了。