fortran求助~~~~(>_<)~~~~

十一点断网君

do i_k=1,10
   n_4(i_k)=0
end do
do i_l=1,day-4
   data_96(i_l,1)=tmax_96_ave_minus(i_l)
   data_96(i_l,2)=tmin_96_ave_minus(i_l)
   data_96(i_l,3)=tmax_96_st1_minus(i_l)
   data_96(i_l,4)=tmin_96_st1_minus(i_l)
   data_96(i_l,5)=tmax_96_st2_minus(i_l)
   data_96(i_l,6)=tmin_96_st2_minus(i_l)
   data_96(i_l,7)=tmax_96_st3_minus(i_l)
   data_96(i_l,8)=tmin_96_st3_minus(i_l)
   data_96(i_l,9)=tmax_96_st4_minus(i_l)
   data_96(i_l,10)=tmin_96_st4_minus(i_l)
end do
do i_m=1,10
   do i_n=1,day-4
      if((abs(data_96(i_n,i_m)))<=2.0) then
          n_4(i_m)=n_4(i_m)+1
          end if
   end do
   ac_4(i_m)=n_4(i_m)/(day-4)
end do
--------------------------------------
write(46,'(A8,TR6,F5.1,A1,TR2,F5.1,A1,TR2,F5.1,A1,TR2,F5.1,A1,TR2,F5.1,A1,TR6,F4.1,A1,TR2,F5.1,A1,TR2,F5.1,A1,TR2,F5.1,A1,TR2,F5.1,A1)')
'accuracy',ac_4(1)*100.0,'%',ac_4(3)*100.0,'%',ac_4(5)*100.0,'%',ac_4(7)*100.0,'%',ac_4(9)*100.0,'%',ac_4(2)*100.0,'%',ac_4(4)*100.0,'%',ac_4(6)
*100.0,'%',ac_4(8)*100.0,'%',ac_4(10)*100.0,'%'


上面是我的部分程序 下面是输出格式 ，但是我得到输出结果都是0.0%请问问题出在哪里呢？

lqouc

可能原因很多，就凭这一段看不出什么，楼主自己查看一下每一步的输出结果确定了错误位置再说吧。

ningking1986

这样子很难看出来吧。楼主还是自己一步一步测试吧！

十一点断网君

ningking1986 发表于 2014-7-2 20:01
这样子很难看出来吧。楼主还是自己一步一步测试吧！

那就我放出来的这段程序有没有什么错误呢？

十一点断网君

lqouc 发表于 2014-7-2 18:14
可能原因很多，就凭这一段看不出什么，楼主自己查看一下每一步的输出结果确定了错误位置再说吧。

那就我放出来的这段程序有没有什么错误呢？

言深深

可能是你的数据太小了，不足0.001，这样在控制输出的时候只输出一位小数就出错了.还有你的n_4(i_m)是什么类型的？如果是整形，那么 ac_4(i_m)就是0！

十一点断网君

言深深 发表于 2014-7-2 20:49
可能是你的数据太小了，不足0.001，这样在控制输出的时候只输出一位小数就出错了.还有你的n_4(i_m)是什么类 ...

真的~就是参数设置的问题~太感谢啦~问题解决了耶……嘻嘻~谢谢~~~~

言深深

十一点断网君 发表于 2014-7-2 21:23
真的~就是参数设置的问题~太感谢啦~问题解决了耶……嘻嘻~谢谢~~~~

解决了就好！不客气···