求找出错误，结果运行正确，但是每当输入大于10 的时，...

fcode

删除第 59 行 integer n
第19行，x(i+1,j+1)=2.d0*x(1,1)
   改为
   x(i,j)=2.d0*x(1,1)

如果还有问题，请告知你使用什么编译器