24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 465  |  回复: 2

babylu

新虫 (初入文坛)

[求助] 多个子程序汇编中在一个子程序中引入另一个子程序计算出的数值 已有1人参与

一个作物模型模拟系统,有多个子程序,为**.for文件,是fortran语言,我想在一个子程序中用到另一个子程序计算出的数值,可是总不成功,请大家帮忙看看是哪里出了问题,谢谢!
文件为assim.for:
SUBROUTINE ASSIM(AMAX,EFF,LAI,KDIF,SINB,PARDIR,PARDIF,FGROS,DTEMP)
*原为 SUBROUTINE ASSIM(AMAX,EFF,LAI,KDIF,SINB,PARDIR,PARDIF,FGROS)DTEMP为白天均温,在totass.for中有算出,在totass中有call  assim.for,是不是会有冲突呢?
*增加了以下内容,是为调整光合速率的公式
      REAL  TF
TF=1.0
        IF((DTEMP.GT.29.0).and.(DTEMP.LE.40.0)) THEN
           TF=-0.928+0.144*DTEMP-0.00267*DTEMP*DTEMP
        FGROS  = FGROS*LAI*TF
      END IF
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

babylu

新虫 (初入文坛)

自己顶吧。。为什么没人来。。。
2楼2014-09-22 16:11:33
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

羽然控飘

新虫 (初入文坛)

【答案】应助回帖

这种东西你把传递的声明成save属性,然后调用,涉及到变化的话我的做法是将外界和里面的循环变量设置成同一个common属性就好,就可以保证传递相同的数值
3楼2014-09-26 18:23:05
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 babylu 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 325求调剂 +5 李嘉图·S·路 2026-03-23 5/250 2026-03-27 00:42 by wxiongid
[考研] 调剂 +4 柚柚yoyo 2026-03-26 4/200 2026-03-26 20:43 by fmesaito
[考研] 求调剂 +6 白QF 2026-03-21 6/300 2026-03-26 20:37 by fmesaito
[考研] 求调剂 +8 Auroracx 2026-03-22 8/400 2026-03-26 19:55 by 不吃魚的貓
[考研] 材料与化工考研调剂 +10 孅華 2026-03-22 10/500 2026-03-26 15:40 by zzll406
[考研] 一志愿陕师大生物学071000,298分,求调剂 +4 SYA! 2026-03-23 4/200 2026-03-26 15:27 by caiaijun80
[考研] 材料求调剂 +4 .m.. 2026-03-25 4/200 2026-03-25 21:30 by peike
[考研] 机械学硕总分317求调剂!!!! +4 Acaciad 2026-03-25 4/200 2026-03-25 19:59 by hanserlol
[考研] 359求调剂 +3 王了个楠 2026-03-25 3/150 2026-03-25 12:50 by Dyhoer
[考研] 282求调剂 +3 wcq131415 2026-03-24 3/150 2026-03-25 12:16 by userper
[考研] 085600材料与化工调剂 +9 A-哆啦Z梦 2026-03-23 15/750 2026-03-25 11:18 by Ainin_
[考研] 材料考研调剂生 +3 黄粱一梦千年 2026-03-24 3/150 2026-03-24 17:00 by barlinike
[考研] 305分求调剂(食品工程) +5 Sxy112 2026-03-21 7/350 2026-03-24 12:27 by 544594351
[考研] 一志愿北京化工大学 070300 学硕 336分 求调剂 +7 vv迷 2026-03-22 7/350 2026-03-23 23:44 by Txy@872106
[考研] 269求调剂 +4 我想读研11 2026-03-23 4/200 2026-03-23 21:25 by pswait
[考研] 工科0856求调剂 +5 沐析汀汀 2026-03-21 5/250 2026-03-23 17:56 by 海瑟薇-
[考研] 求调剂 +5 Zhangbod 2026-03-21 7/350 2026-03-22 13:13 by Zhangbod
[考研] 285求调剂 +6 ytter 2026-03-22 6/300 2026-03-22 12:09 by 星空星月
[考研] 一志愿华中科技大学071000,求调剂 +4 沿岸有贝壳6 2026-03-21 4/200 2026-03-22 07:21 by ilovexiaobin
[考研] 一志愿南大,0703化学,分数336,求调剂 +3 收到VS 2026-03-21 3/150 2026-03-21 18:42 by 学员8dgXkO
信息提示
请填处理意见