24小时热门版块排行榜    

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

chaofan1231

银虫 (小有名气)

[求助] proII计算器fortran语句求助

求教:唐宏青模拟计算手册258页氨合成回路里这个计算器设置里Fortran语句怎么理解?
小弟刚开始学习,望多多指教。
CALC UID=CAL001
DEFINE P(1) AS STRE=S14R,RATE,COMP=1
DEFINE P(2) AS STRE=S14R,RATE,COMP=2
DEFINE P(3) AS STRE=S14R,RATE,COMP=3
DEFINE P(4) AS STRE=S14R,RATE,COMP=4
DEFINE P(5) AS STRE=S14R,RATE,COMP=5
SEQU STRE=S14R
PROCEDURE
IF (R(100).GT.0) GOTO 100
R(1)=P(1) $H2
R(2)=P(2) $N2
R(3)=P(3) $A
R(4)=P(4) $C1
R(5)=P(5) $NH3
R(100)=1
GOTO 200
100 CONTINUE
CALL SRVSTR(SCMR,R(1),S14R,1,5)
200 CONTINUE
RETURN
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

智能机器人

Robot (super robot)

我们都爱小木虫

相关版块跳转 我要订阅楼主 chaofan1231 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 292求调剂 +17 木虫er12138 2026-04-01 17/850 2026-04-01 21:37 by 七度不信任
[考研] 261求调剂 +3 明仔· 2026-04-01 3/150 2026-04-01 20:52 by cq2548
[考研] 一志愿西安交大材料学硕(英一数二)347,求调剂到高分子/材料相关专业 +7 zju51 2026-03-31 9/450 2026-04-01 19:35 by CFQZAFU
[考研] 一志愿厦门大学化学学硕307求调剂 +11 y7czhao 2026-03-26 11/550 2026-04-01 16:18 by oooqiao
[考研] 302求调剂一志愿北航070300,本科郑大化学 +8 圣日耳曼条 2026-04-01 10/500 2026-04-01 14:03 by ZXlzxl0425
[考研] 08工科,295,接受跨专业调剂 +6 lmnlzy 2026-03-31 6/300 2026-04-01 11:02 by 逆水乘风
[考研] 333求调剂 +4 阿科逸 2026-03-31 4/200 2026-04-01 09:11 by jp9609
[考研] 309分085801求调剂 +7 学员Gtwj7W 2026-03-31 7/350 2026-04-01 02:36 by BruceLiu320
[考研] 315求调剂 +6 akie... 2026-03-28 7/350 2026-03-31 16:48 by asdfzly
[考研] 材料工程专硕求调剂 +10 hyl3153942 2026-03-29 10/500 2026-03-31 16:31 by hypershenger
[考研] 求调剂 +8 11ggg 2026-03-30 8/400 2026-03-31 13:56 by nanaliuyun
[考研] 354求调剂 +3 lxb598 2026-03-31 4/200 2026-03-31 13:42 by sophie2180
[考研] 083000环境科学与工程调剂,总分281 +4 橙子(胜意) 2026-03-30 4/200 2026-03-31 00:44 by Linzejun
[考研] 085701环境工程求调剂 +11 多久上课 2026-03-27 12/600 2026-03-30 21:21 by 研究僧导导
[考研] 295求调剂 +5 wei-5 2026-03-26 5/250 2026-03-30 08:34 by 探123
[考研] 一志愿北京工业大学,324分求调剂 +6 零八# 2026-03-28 6/300 2026-03-29 21:20 by nanaliuyun
[考研] 复试调剂 +3 raojunqi0129 2026-03-28 3/150 2026-03-28 15:27 by 落睿可思
[考研] 266求调剂 +11 阳阳哇塞 2026-03-27 12/600 2026-03-27 17:56 by yu221
[考研] 272求调剂 +7 脚滑的守法公民 2026-03-27 7/350 2026-03-27 17:23 by laoshidan
[考研] 复试调剂,一志愿南农083200食品科学与工程 +5 XQTJZ 2026-03-26 5/250 2026-03-27 14:49 by 狂炫麦当当
信息提示
请填处理意见