- 积分
 - 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分析,因此不能解决这两个问题,希望楼主思考后解决。 |   
 
 
 
 |