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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » fortran里一个子程序不运行是怎么回事
141/2返回列表12下一页
查看: 1985  |  回复: 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是运行不了的啊。...

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

» 本帖附件资源列表

  • 欢迎监督和反馈：小木虫仅提供交流平台，不对该内容负责。
    本内容由用户自主发布，如果其内容涉及到知识产权问题，其责任在于用户本人，如对版权有异议，请联系邮箱：libolin3@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下一页
普通表情 龙 兔 虎 猫 论文翻译-EnPapers美助理教授团队-SCI英文润色
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[找工作] 杭电、天津科技、青农和宁波工程学院如何选？ +12 味道很好啊 2024-06-13 23/1150 2024-06-17 22:16 by 半简体
[硕博家园] 关于硕博连读的一些疑问？ +4 Lwenter 2024-06-14 5/250 2024-06-17 20:42 by Lwenter
[论文投稿] 论文已接收，但发现修改稿传的是旧版该怎么办？ +3 zsq54321 2024-06-15 6/300 2024-06-17 19:45 by wjykycg
[有机交流] 车间生产，真空度很高，温度很高，但减压蒸馏速度很慢。 10+12 召唤鬼泣lL 2024-06-13 38/1900 2024-06-17 16:46 by 科研虫子小助手
[论文投稿] 审稿人含糊拒稿，还需要回复吗？如何回复？ 20+3 BruceChum 2024-06-15 19/950 2024-06-17 12:03 by 投必得科研顾问
[基金申请] 博后基金，博管会会提前知道消息吗？ +4 yuyiang 2024-06-13 4/200 2024-06-16 11:40 by yangyuzhong4
[论文投稿] 二审返修送审10天了，原来一审的3个审稿人只有2个接受了审稿，会邀请新审稿人么？ 50+3 huanpo116 2024-06-15 5/250 2024-06-16 10:27 by bobvan
[基金申请] 为什么我的博后基金还在流动站审核中？不会是学院给我卡了吧？ +14 王凯12 2024-06-13 26/1300 2024-06-15 15:22 by 好人与坏人
[论文投稿] 投稿时忘记修改一作 +7 gll123456 2024-06-13 11/550 2024-06-15 11:49 by gll123456
[论文投稿] 投了一篇4区的SCI，审稿人一个拒稿，一个小修，编辑给了大修。 +9 安稳22123 2024-06-13 10/500 2024-06-14 23:45 by jurkat.1640
[基金申请] 面上基金有一个（两个）C是不是就没戏了.... 5+3 zzzm116 2024-06-13 17/850 2024-06-14 22:26 by lzt8076
[考研] 物理化学一对一辅导 +3 林大diao 2024-06-12 5/250 2024-06-14 20:57 by 林大diao
[基金申请] 博士后基金需要结题吗？ +8 zhouchuck 2024-06-13 8/400 2024-06-14 17:27 by liuyupu132
[有机交流] ππ堆积会发生在有机溶剂中吗 5+3 zibuyu0420 2024-06-13 4/200 2024-06-14 14:17 by 小肉干
[论文投稿] 投稿后发现其他作者的邮箱填错了该怎么办呀 10+4 在飞的猪 2024-06-13 6/300 2024-06-14 04:45 by 小虫子咔咔
[硕博家园] 科研求助 +5 杲www 2024-06-12 6/300 2024-06-13 16:16 by 姓李名明
[有机交流] 原料反应完了，怎么知道是产物还是中间体 +6 小胡在努力 2024-06-11 8/400 2024-06-13 13:33 by 091602
[硕博家园] 考博应该从哪里开始准备 +6 亮姐2019 2024-06-11 8/400 2024-06-13 12:53 by 帕秋莉GO
[论文投稿] 摩擦磨损论文投稿 +3 jmysan 2024-06-12 3/150 2024-06-13 08:36 by 莱茵润色
[基金申请] 博后特助这周出结果吗？往年都是啥时候啊？ +13 jsqy 2024-06-12 17/850 2024-06-12 19:55 by Lynn212
信息提示
关闭
请填处理意见
关闭