24小时热门版块排行榜    

查看: 979  |  回复: 1

sjl_nb

银虫 (小有名气)

[求助] PRO II里Calculator的Fortran编程逻辑

我是PRO II的初学者。再看合成氨例子的时候,有一段Calculator的Fortran代码,不是很懂:

“   IF (R(100).GT.0) GOTO 100
    R(1)=P(1) $H2
    R(2)=P(2) $N2
    R(3)=P(3) $Ar
    R(4)=P(4) $CH4
    R(5)=P(5) $NH3
    R(100)=1
    GOTO 200
100 CONTINUE
    CALL SRVSTR(SCMR,R(1),S14R,1,5)
200 CONTINUE
RETURN”

就是定义了某个物流的五种组分含量为P(1)-P(5),然后想把这五个值传到另外一个物流里。

我一直不懂数组里的R(100)出现在代码里的意义。R(100)的初值是什么?(R(100)>0不是很明显的吗?之后一直是R(100)=1吗?,R(1)=P(1)等六行的意义是什么?难道SRVSTR(SCMR,R(1),S14R,1,5)不能解决赋值问题吗?)

什么时候执行100,什么时候执行200呢?

PRO II自带的合成氨Case 也有Fortran编程。也很迷糊:
“             V(1) = P(1) - P(2) - P(3)
             IF (V(1) .LE. 0.001)  V(1) = 0.001
             CALL SRXSTR(SMR, V(1), 31X)
        RETURN”

主要是语言格式上,而不是代码要实现的意义。

谢谢大家的帮忙。
回复此楼

» 猜你喜欢

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

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

sjl_nb

银虫 (小有名气)

有人知道吗?
2楼2014-08-12 08:40:27
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 sjl_nb 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 352求调剂 +3 大米饭! 2026-03-22 3/150 2026-03-22 23:28 by king123!
[考研] 一志愿武理材料工程348求调剂 +5  ̄^ ̄゜汗 2026-03-19 7/350 2026-03-22 19:44 by 公瑾逍遥
[考研] 一志愿上海交大生物与医药专硕324分,求调剂 +3 jiajunX 2026-03-22 3/150 2026-03-22 19:32 by brblmd
[考研] 求调剂 +6 十三加油 2026-03-21 6/300 2026-03-22 17:00 by i_cooler
[考研] 一志愿中南化学(0703)总分337求调剂 +9 niko- 2026-03-19 10/500 2026-03-22 16:08 by ColorlessPI
[考研] 考研调剂 +4 来好运来来来 2026-03-21 4/200 2026-03-22 12:15 by 星空星月
[考研] 285求调剂 +6 ytter 2026-03-22 6/300 2026-03-22 12:09 by 星空星月
[考研] 0856材料专硕353求调剂 +4 NIFFFfff 2026-03-20 4/200 2026-03-22 09:49 by 2026paper
[考研] 求调剂 +4 要好好无聊 2026-03-21 4/200 2026-03-21 18:57 by 学员8dgXkO
[考研] 297求调剂 +3 喜欢还是不甘心 2026-03-20 3/150 2026-03-21 18:33 by 学员8dgXkO
[考研] 【考研调剂】化学专业 281分,一志愿四川大学,诚心求调剂 +11 吃吃吃才有意义 2026-03-19 11/550 2026-03-21 18:23 by 学员8dgXkO
[基金申请] 学校已经提交到NSFC,还能修改吗? 40+4 babangida 2026-03-19 9/450 2026-03-21 16:12 by babangida
[考研] 279求调剂 +5 红衣隐官 2026-03-21 5/250 2026-03-21 14:59 by lature00
[考研] 一志愿华南师大 070300(化学)304分求调剂 +3 0703武芊慧雪304 2026-03-18 3/150 2026-03-21 00:48 by JourneyLucky
[考研] 一志愿南昌大学,327分,材料与化工085600 +9 Ncdx123456 2026-03-19 9/450 2026-03-20 23:41 by lovewei0727
[考研] 304求调剂 +7 司空. 2026-03-18 7/350 2026-03-20 23:08 by JourneyLucky
[考研] 工科材料085601 279求调剂 +7 困于星晨 2026-03-17 9/450 2026-03-20 17:38 by 无懈可击111
[考研] 286求调剂 +6 lemonzzn 2026-03-16 10/500 2026-03-19 14:31 by lemonzzn
[考研] 0703化学调剂 +3 妮妮ninicgb 2026-03-17 3/150 2026-03-18 10:29 by macy2011
[考研] 一志愿苏州大学材料工程(085601)专硕有科研经历三项国奖两个实用型专利一项省级立项 +6 大火山小火山 2026-03-16 8/400 2026-03-17 15:05 by 无懈可击111
信息提示
请填处理意见