- 积分
- 38420
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2011-6-20
- 最后登录
- 1970-1-1
成长值: 0
|
发表于 2012-10-16 18:24:29
|
显示全部楼层
经过检查和比对,认为楼主的问题存在以下几个方面:
1,文件名当然没有和你的文件匹配,67行更改为“open(20,file='1971-2010.txt')”;
2,文件参数没有调对,如5楼所言,54行调整为“parameter(n=40,m=74,mnl=m,np=10)”;
3,现在方能正确的运行程序,并获得如楼主所言的egvt.txt和regvt.txt中数据为“0”的情况,经过调试和验证后发现,问题出在116行的判断语句上,不知为何,此处判断执行,之后在119和122行将gvt数组赋值到h1/2数组里面,之后又通过139.142行传递到数组egvt和regvt数组中,而事实上gvt数组在61行赋值之后没有参与任何运算,因此只能是“0”;
4,通过对111行,子程序运算出来的egvt数组和regvt数组print来看,是有值的,据此主要问题可能一下几个方面:
1)数组gvt【赋值见61行】是否参与运算,已经辞数组存在意义何在?
2)判断语句116行,是否出现判断失误?
由于我没有做过相关的reof分析,因此不能解决这两个问题,希望楼主思考后解决。 |
|