不明所以的未执行退出

464493140

代码及数据见附件。
之前运行的好好的，但是附件中的这组数就中间退出了。调试又走进了一个看不懂的代码。。。
哪位大侠帮看看，谢谢了！

楚香饭

代码没有问题。我在我的编译器（gfortran）上运行正常。

输出后的前12个数据为
        6274        6275        6276        6277        6278        6279
        6280        6281        6282        6283        6284        6285

如果在你的编译器上不行，可以尝试：
1.修改堆栈大小。（recursive的函数很占堆栈，数据量还比较大，还是1生2，2生4，4生8这种）
ivf 中修改堆栈的方法可以参考：http://fcode.cn/guide-36-2.html 常见错误之Q2009问题。
其他编译器类似。（如果你修改有困难，请告知我，你使用的何种编译器）
2.如果你使用的是 PowerStation、CVF、请更换一个更好的编译器。

464493140

谢了！修改堆栈大小就好了。