应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » fortran里一个子程序不运行是怎么回事
141/2返回列表12下一页
查看: 2777  |  回复: 13
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

sun805869434

金虫 (小有名气)

[求助] fortran里一个子程序不运行是怎么回事

整个fortran程序编译完，运行后就显示内存不能读取，切换到Debug，按F5后，可以发现浓度值C(J,K)计算结果不对，但是无论更改程序中该子程序的任何计算式，得到的结果都是一样的，好像跟我设置的计算式没有关系，这是没有读取相应的子程序吗？还是读取其他部分了？


SUBROUTINE COM
!--------------------------------------------------------
PARAMETER(NJ=120,NT=120)
COMMON U(NJ,NT),C(NJ,NT)
COMMON DER(NT),Y(NJ),DYL(NJ)
COMMON K,LITIM,DT
COMMON DLN,DS,RHOF,RHOS,DD,GR,M1,YDN,DXL,YL,DY,C0       
!--------------------------------------------------------
ENTRY VECTORY

U(J,0)=0
DO K=1,LITIM
DO J=1,M1
IF(J.NE.M1)THEN
U(J,K)=(GR*DT+U(J,K-1))/(DD*DT+1)
ELSE
U(J,K)=0
ENDIF
ENDDO
ENDDO

RETURN

!------------------------------------------------------------
ENTRY CONCENTRATE       

C(J,0)=C0
DO K=1,LITIM
DO J=1,M1
IF(J.EQ.1)THEN
C(J,K)=(U(J,K)*C(J,K-1))/U(J,K+1)
ELSEIF (J.GT.1.AND.J.LT.M1)THEN
C(J,K)=((U(J,K)*C(J,K-1))/U(J,K+1))+C(J-1,K-1)-C(J-1,K)
ELSE
C(J,K)=0
ENDIF
ENDDO
ENDDO

RETURN
这是子程序中的两个部分，第一个子程序运行后U(J,K)的结果是正确的，但是进行第二个子程序时，要用到上一个的结果U(J,K)，运行结果C(J,K)是错误的，并且不管我怎么改C(J,K)的计算式，得出的结果不变，还是原来错误的结果，不知道原因出在哪。

[ Last edited by sun805869434 on 2013-6-6 at 10:14 ]
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
优秀是一种习惯
1楼 2013-06-06 09:27:22
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
回帖支持 ( 显示支持度最高的前 50 名 )

pippi6

铁杆木虫 (著名写手)

工程和科学数值计算咨询
引用回帖:
7楼: Originally posted by sun805869434 at 2013-06-06 21:01:21
我的程序比较多，复制比较不方面，我把附件发上来，您能帮我看看吗？这是一个主程序，和一个子程序。谢谢。...

太多不行，你需要自己先简化。不能指望别人读1000条程序之类。我可以回答你的问题，帮助你提高技巧，但不是帮你干活
赞一下(2人) 回复此楼
8楼2013-06-06 21:27:39
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

pippi6

铁杆木虫 (著名写手)

工程和科学数值计算咨询

【答案】应助回帖

引用回帖:
9楼: Originally posted by 学虫dj at 2013-06-07 08:45:29
定义全局变量过多就容易很乱，因为全局变量只要一个地方改了   ，同样的其他地方都变化，麻烦！尽量少用

不是这样说的。全局变量要在module里定义，然后use。另一种办法就是使用include。这样就不会出现不一致的的情况了。
赞一下(1人) 回复此楼
10楼2013-06-07 09:28:31
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通回帖

pippi6

铁杆木虫 (著名写手)

工程和科学数值计算咨询

【答案】应助回帖

感谢参与，应助指数 +1
你的问题有关运行结果，所以需要你调用部分的程序。这样说说是无法判断的。
赞一下 回复此楼
2楼2013-06-06 13:38:25
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

学虫dj

金虫 (正式写手)

【答案】应助回帖

感谢参与，应助指数 +1
我感觉是你定义的全局变量的原因，为啥要定义那么多全局变量嫩
赞一下 回复此楼
穷则独善其事，达则兼济天下
3楼2013-06-06 15:46:02
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

sun805869434

金虫 (小有名气)
引用回帖:
3楼: Originally posted by 学虫dj at 2013-06-06 15:46:02
我感觉是你定义的全局变量的原因，为啥要定义那么多全局变量嫩

我有很多个子程序，这只是其中的两个，其他的子程序中能用到的我都定义了。要是全局变量的原因的话，为什么第一个能运行并得到正确的结果，而第二个就不能了呢？跟第二个程序中需要调用第一个运行结果有关吗？
赞一下 回复此楼
优秀是一种习惯
4楼2013-06-06 18:37:32
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

sun805869434

金虫 (小有名气)
引用回帖:
2楼: Originally posted by pippi6 at 2013-06-06 13:38:25
你的问题有关运行结果，所以需要你调用部分的程序。这样说说是无法判断的。

请问我需要提供什么才能判断出哪出毛病了？谢谢
赞一下 回复此楼
优秀是一种习惯
5楼2013-06-06 18:50:26
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

pippi6

铁杆木虫 (著名写手)

工程和科学数值计算咨询

【答案】应助回帖

★ ★ ★ ★ ★
sun805869434: 金币+5, ★有帮助 2013-06-14 09:03:30
引用回帖:
5楼: Originally posted by sun805869434 at 2013-06-06 18:50:26
请问我需要提供什么才能判断出哪出毛病了？谢谢...

你只给了 SUBROUTINE。你从哪里调用这个SUBROUTINE的呢？不运行是看不出来怎么错的啊。光有这个SUBROUTINE是运行不了的啊。
赞一下 回复此楼
6楼2013-06-06 20:32:17
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

sun805869434

金虫 (小有名气)
引用回帖:
6楼: Originally posted by pippi6 at 2013-06-06 20:32:17
你只给了 SUBROUTINE。你从哪里调用这个SUBROUTINE的呢？不运行是看不出来怎么错的啊。光有这个SUBROUTINE是运行不了的啊。...

我的程序比较多，复制比较不方面，我把附件发上来，您能帮我看看吗？这是一个主程序，和一个子程序。谢谢。
赞一下 回复此楼

» 本帖附件资源列表

  • 欢迎监督和反馈：小木虫仅提供交流平台，不对该内容负责。
    本内容由用户自主发布，如果其内容涉及到知识产权问题，其责任在于用户本人，如对版权有异议，请联系邮箱：xiaomuchong@tal.com
  • 附件 1 : USER.f90
    • 2013-06-06 21:00:44, 1.91 K
  • 附件 2 : MAIN.f90
    • 2013-06-06 21:00:50, 1.27 K
优秀是一种习惯
7楼2013-06-06 21:01:21
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

学虫dj

金虫 (正式写手)

【答案】应助回帖

定义全局变量过多就容易很乱，因为全局变量只要一个地方改了   ，同样的其他地方都变化，麻烦！尽量少用
赞一下 回复此楼
穷则独善其事，达则兼济天下
9楼2013-06-07 08:45:29
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 sun805869434 的主题更新
141/2返回列表12下一页
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 纯娱乐，不喜欢勿喷 +6 Tide man 2026-08-04 9/450 2026-08-04 14:22 by biomichael
[找工作] 售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急 +3 Ocx3OKOzGU4q 2026-08-04 5/250 2026-08-04 13:31 by jzdxtiUmJ6PL
[公派出国] 售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急 +3 Ocx3OKOzGU4q 2026-08-04 6/300 2026-08-04 13:28 by jzdxtiUmJ6PL
[考博] 售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急 +3 Ocx3OKOzGU4q 2026-08-03 8/400 2026-08-04 13:15 by jzdxtiUmJ6PL
[教师之家] 售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急 +5 jRl3mE6ddZGq 2026-08-03 11/550 2026-08-04 12:58 by jzdxtiUmJ6PL
[基金申请] 娱乐 +4 Tide man 2026-08-03 4/200 2026-08-04 11:51 by wgch518
[博后之家] 售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急 +3 Ocx3OKOzGU4q 2026-08-03 4/200 2026-08-04 11:26 by MWRYsWbJw4DE
[基金申请] 面上提前没消息，有中的吗 +14 archvillain 2026-08-02 17/850 2026-08-04 09:46 by archvillain
[博后之家] 售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急 +3 jRl3mE6ddZGq 2026-08-03 5/250 2026-08-04 09:27 by v1TJC4qJauAB
[博后之家] 售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急 +4 cu9Nq1xK233Z 2026-08-03 9/450 2026-08-04 09:17 by v1TJC4qJauAB
[基金申请] 系统今天又提示维护了，估计离放榜不远了 +12 winnerche 2026-07-29 16/800 2026-08-04 08:18 by Equinoxhua
[硕博家园] 售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急 +4 cu9Nq1xK233Z 2026-08-03 13/650 2026-08-04 07:30 by k7OM8YghWbkC
[考博] 售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急 +3 cu9Nq1xK233Z 2026-08-03 6/300 2026-08-04 06:10 by k7OM8YghWbkC
[硕博家园] 售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急 +3 jRl3mE6ddZGq 2026-08-03 6/300 2026-08-04 04:47 by k7OM8YghWbkC
[考研] 售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急 +3 cu9Nq1xK233Z 2026-08-03 8/400 2026-08-04 03:21 by k7OM8YghWbkC
[基金申请] 什么时候能放榜呀？ +3 Jacob678 2026-08-03 3/150 2026-08-03 16:14 by gltch
[基金申请] 面上再次挂了，太难了，躺也躺不了，倦也卷不过，小学校之殇！ +19 低垂的野花 2026-07-31 25/1250 2026-08-03 09:25 by gy116024
[基金申请] 微信指数没变化，科研之友没阅读 +15 wangze12014 2026-07-28 19/950 2026-08-02 20:05 by 蔡棒棒菂
[考博] 2027年申博 50+3 射雕英雄胜 2026-07-30 3/150 2026-08-02 09:36 by lfy8008
[基金申请] 你们的时间戳变了吗 +3 archvillain 2026-07-30 4/200 2026-07-30 18:53 by levinzhwen
信息提示
关闭
请填处理意见
关闭