求教在现有程序里，加了如下代码，错误在哪里呢

15235312522

我在现有程序里，加了如下代码，通过冒泡法，把主程序里的数据从小到大排列，求得最大和最小值的距离并输出到“RDF”文件夹里，“nDpEnd-nWallAtom”、“r(n,i)”是主程序里的

[Fortran] 纯文本查看 复制代码

subroutine suan_chang_du()
        implicit none
        integer :: N
        integer N,I,J,TEMP
        real chang_du,A(N)
        open(0306, file = './data/RDF/pu_zhan.plt',status = 'unknown')  
        N = nDpEnd-nWallAtom
        A(N) = r(n,i)
        do I=N-1,1,-1
            do J=1,I
                if(A(J)>A(J+1))then
                    TEMP=A(J)
                    A(J)=A(J+1)
                    A(J+1)=TEMP
                end if
            end do
        end do
        chang_du = abs(A(N)-A(1))
        write(0306,'(''Variables= "chang_du"'')') chang_du
        return
    end subroutine

fcode

你给出的代码片段里有很多错误，比如 N 定义了2次。
你给出的错误信息，是在其他地方，并不在你给出的代码部分。比如 NSP 没有定义成数组，但当成了数组使用。

15235312522

fcode 发表于 2021-3-8 10:57
你给出的代码片段里有很多错误，比如 N 定义了2次。
你给出的错误信息，是在其他地方，并不在你给出的代码 ...

错误信息放错图了，NSP是什么东西

fcode

你的代码中定义的某个数组或函数。（但实际上没有定义，就是用到了）

15235312522

fcode 发表于 2021-3-8 11:27
你的代码中定义的某个数组或函数。（但实际上没有定义，就是用到了）

收到，谢谢