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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » fortran里一个子程序不运行是怎么回事
141/2返回列表12下一页
查看: 2840  |  回复: 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下一页
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 明天应该可查了！？ +5 chengyan1220 2026-08-23 5/250 2026-08-24 23:28 by 我4大白菜
[基金申请] 没有任何消息-是不是就凉了 +7 图啦图啦 2026-08-24 8/400 2026-08-24 22:00 by maomao_da
[论文投稿] 售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急 +3 0XLacIJUOj8D 2026-08-24 3/150 2026-08-24 21:59 by BZKMTicpDhFj
[基金申请] 人气不行了 +10 fansofjerry 2026-08-21 10/500 2026-08-24 21:03 by zhanghaozhu
[基金申请] 能否退出参与的面上项目解除限项 +21 koalala 2026-08-24 24/1200 2026-08-24 19:25 by 家与远方
[基金申请] 建议基金发布提前给出明确的时间点 +13 kulium 2026-08-21 16/800 2026-08-24 16:27 by superceng
[基金申请] 今日不放榜？网传国自然预计 8 月 27 日可查结果 +17 医学老男孩 2026-08-20 21/1050 2026-08-24 14:21 by refreshing11
[基金申请] 估计是周四 +4 archvillain 2026-08-18 4/200 2026-08-24 13:53 by zzuzxg
[基金申请] 让我中一个面上吧！ +13 大萍1987 2026-08-20 16/800 2026-08-24 10:23 by 太傻了
[基金申请] 放榜前的不淡定 20+4 snowwithsea 2026-08-19 17/850 2026-08-24 10:20 by echo8914667
[基金申请] 什么时候开奖？ +10 CrisMessi 2026-08-18 11/550 2026-08-24 06:50 by 开心的小狮子
[基金申请] 2026年的国家社科基金项目通讯评审的新规则与新动向、新挑战 +4 process2012 2026-08-23 5/250 2026-08-23 19:58 by jurkat.1640
[教师之家] 跳槽后在研项目怎么办？ +5 简单化xn 2026-08-22 10/500 2026-08-23 12:38 by 简单化xn
[基金申请] 今天放榜吗？ +15 布布和一二 2026-08-19 16/800 2026-08-23 09:55 by 张春生
[基金申请] 只有每年这种时候来逛逛小木虫 +24 yaoyewhu2008 2026-08-20 26/1300 2026-08-22 17:43 by kammury
[基金申请] 时间戳今天，20号变了 +5 archvillain 2026-08-20 5/250 2026-08-22 06:12 by hui_daxiao
[基金申请] 看来今天不会放榜了？ +8 chengyan1220 2026-08-21 11/550 2026-08-21 17:52 by dcqxinyang
[基金申请] 应该是下周三26日公布了吧？ +4 哈哈蛤？ 2026-08-21 4/200 2026-08-21 10:58 by Vivilian
[基金申请] 基金啊基金 +4 longfie172 2026-08-20 4/200 2026-08-21 08:58 by mark mao
[基金申请] 重要消息，中午系统在维护 +11 yuleib84 2026-08-18 12/600 2026-08-20 11:09 by xskun
信息提示
关闭
请填处理意见
关闭