Question

请教FORTRAN中的错误forrtl:severe<161>:Program Exception - array bounds exceeded

COMMON DATA(80000)

DO 300 K=KS,KTOP
300 DATA(K) = 0.0
DO 400 N=1,III
400 IORG(N)=IORG(N)+KS-1

程序太长了没全部打上来，问题貌似出在这几句上，请大神解救

Answer 1

这个问题是数组下标越界。
看看报错的时候指向哪个数组。如果是以上位置的话，检查KS和KTOP的值。KS是否小于1，KTOP是否大于80000。
检查III的值是否大于数组IORG的边界值。
从你贴出来的数据上来看就能分析到这了。

另外就是：真心不建议使用COMMON语句。