24小时热门版块排行榜    

Znn3bq.jpeg
查看: 988  |  回复: 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 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 343求调剂 +9 王国帅 2026-04-10 9/450 2026-04-11 20:31 by dongdian1
[考研] 085400 328分 求调剂 +10 喂你一个大橙子 2026-04-09 14/700 2026-04-11 19:53 by lqspecial
[考研] 298求调剂 +5 残荷新柳 2026-04-07 5/250 2026-04-11 11:02 by 紫曦紫棋
[考研] 085500求调剂材料 +10 易11122 2026-04-09 10/500 2026-04-11 10:39 by maddjdld
[考研] 282,求调剂 +12 jggshjkkm 2026-04-09 14/700 2026-04-11 09:39 by 猪会飞
[考研] 263能源动力专硕求调剂 +4 加大号饭盒袋 2026-04-10 4/200 2026-04-10 20:52 by gong120082
[考研] 求调剂 +5 不会飞的鱼@ 2026-04-10 5/250 2026-04-10 19:07 by chemisry
[考研] 一志愿沪9,326生物学求相关专业调剂 +4 刘墨墨 2026-04-09 4/200 2026-04-10 12:07 by pengliang8036
[考研] 环境专硕调剂 +16 会说话的肘子 2026-04-06 16/800 2026-04-10 10:30 by asy1wn
[考研] 本科西工大 0856 324求调剂 +10 wysyjs25 2026-04-09 11/550 2026-04-10 08:37 by 5268321
[考研] 083200 初试305分 求调剂 暂不考虑跨专业 +15 Claireyyyy 2026-04-09 15/750 2026-04-09 16:11 by zhuimr
[考研] 322求调剂,08工科 +3 今天是个小号 2026-04-08 3/150 2026-04-09 15:53 by wp06
[考研] 1U盾记得记得就 +9 sanjin020722 2026-04-08 10/500 2026-04-09 14:11 by 诗与自由
[考研] 二次调剂求老师收留 +3 笑笑袁 2026-04-08 3/150 2026-04-08 23:50 by 醉在风里
[考研] 机械工程264学硕求调剂 +3 qiushangxian 2026-04-06 3/150 2026-04-08 01:53 by Linzejun
[考研] 344求调剂 +11 魏子per 2026-04-07 11/550 2026-04-07 23:01 by JourneyLucky
[考研] 机械调剂 +3 zzzbcb 2026-04-07 3/150 2026-04-07 22:19 by hemengdong
[考研] 307求调剂 +3 Youth@@ 2026-04-07 3/150 2026-04-07 22:00 by hemengdong
[考研] 338求调剂 +5 小猪红色 678 2026-04-06 6/300 2026-04-07 21:18 by 乔哒哒哒
[考研] 一志愿南科大生物学297分,求调剂推荐 +8 Y-yyusx 2026-04-06 9/450 2026-04-07 19:38 by biomichael
信息提示
请填处理意见