Fortran Coder

标题: 求教在现有程序里，加了如下代码，错误在哪里呢 [打印本页]

作者: 15235312522 时间: 2021-3-8 10:48
标题: 求教在现有程序里，加了如下代码，错误在哪里呢
本帖最后由 15235312522 于 2021-3-8 10:59 编辑

我在现有程序里，加了如下代码，通过冒泡法，把主程序里的数据从小到大排列，求得最大和最小值的距离并输出到“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 时间: 2021-3-8 10:57
你给出的代码片段里有很多错误，比如 N 定义了2次。
你给出的错误信息，是在其他地方，并不在你给出的代码部分。比如 NSP 没有定义成数组，但当成了数组使用。

作者: 15235312522 时间: 2021-3-8 11:00

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

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

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

作者: 15235312522 时间: 2021-3-8 14:50

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

收到，谢谢

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)