Fortran Coder

查看: 15808|回复: 4
打印 上一主题 下一主题

[求助] 求教在现有程序里,加了如下代码,错误在哪里呢

[复制链接]

25

帖子

8

主题

0

精华

熟手

F 币
143 元
贡献
81 点
跳转到指定楼层
楼主
发表于 2021-3-8 10:48:03 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
本帖最后由 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


分享到:  微信微信
收藏收藏 点赞点赞 点踩点踩

2015

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1574 元
贡献
676 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

沙发
发表于 2021-3-8 10:57:32 | 只看该作者
你给出的代码片段里有很多错误,比如 N 定义了2次。
你给出的错误信息,是在其他地方,并不在你给出的代码部分。比如 NSP 没有定义成数组,但当成了数组使用。

25

帖子

8

主题

0

精华

熟手

F 币
143 元
贡献
81 点
板凳
 楼主| 发表于 2021-3-8 11:00:58 | 只看该作者
fcode 发表于 2021-3-8 10:57
你给出的代码片段里有很多错误,比如 N 定义了2次。
你给出的错误信息,是在其他地方,并不在你给出的代码 ...

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

2015

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1574 元
贡献
676 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

地板
发表于 2021-3-8 11:27:14 | 只看该作者
你的代码中定义的某个数组或函数。(但实际上没有定义,就是用到了)

25

帖子

8

主题

0

精华

熟手

F 币
143 元
贡献
81 点
5#
 楼主| 发表于 2021-3-8 14:50:30 | 只看该作者
fcode 发表于 2021-3-8 11:27
你的代码中定义的某个数组或函数。(但实际上没有定义,就是用到了)

收到,谢谢
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-11-15 01:24

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表