求助各位大佬，数组越界问题怎么解决

FFX

运行到这里下面这段时会出现“forrtl: severe (408): fort: (2): Subscript #2 of the array LAYERF has value 7076 which is greater than the upper bound of 301”。按照一位大佬教的单步调试，总是直接闪退。请问各位大佬怎么解决？

[Fortran] syntaxhighlighter_viewsource syntaxhighlighter_copycode

open(3,file = 'inih.dat')
    do i = 1,sumnode
        read(3,*) (pre_inih(i,j),j = 1,2)
    enddo
    close(3)
    do i = 1,sumnode
        layerf(num_node(i,1),num_node(i,2),relayer(i)) = node(i,4)
        para(num_node(i,1),num_node(i,2),relayer(i)) = para_list(i)
        inih(num_node(i,1),num_node(i,2),relayer(i)) = pre_inih(i,2)
    enddo

li913

数组越界

FFX

li913 发表于 2023-5-30 19:17
数组越界

大佬，routine、line、source下面都是unknown怎么办？

li913

FFX 发表于 2023-5-31 09:05
大佬，routine、line、source下面都是unknown怎么办？

切换debug模式。