高手帮我解答一个关于结构力学 习题解答的问题，要详细...
点击联系发帖人
时间：2011-08-21 08:44
无法找到该页
无法找到该页
您正在搜索的页面可能已经删除、更名或暂时不可用。
请尝试以下操作：
确保浏览器的地址栏中显示的网站地址的拼写和格式正确无误。
如果通过单击链接而到达了该网页，请与网站管理员联系，通知他们该链接的格式不正确。
单击按钮尝试另一个链接。
HTTP 错误 404 - 文件或目录未找到。Internet 信息服务 (IIS)
技术信息（为技术支持人员提供）
转到 并搜索包括&HTTP&和&404&的标题。
打开&IIS 帮助&（可在 IIS 管理器 (inetmgr) 中访问），然后搜索标题为&网站设置&、&常规管理任务&和&关于自定义错误消息&的主题。后使用快捷导航没有帐号？
查看: 2264|回复: 4
请高手们帮我看看这个Fortran子程序出了什么问题？
(372961号)
收到鲜花 朵
阅读权限30
主题好友积分
该用户从未签到&
编了个动力学子程序，结果错误好多…… 初学者，实在不懂该如何下手，请高手帮忙看看啊，拜谢！
SUBROUTINE USRKIN (SOUT,& &NSUBS,&&IDXSUB,& &ITYPE,&&NINT，
& &&&2& && && && &&&INT,& & NREAL,&&REAL,& &&&IDS,& & NPO,
& &&&3& && && && &&&NBOPST, NIWORK, IWORK,& & NWORK,&&WORK,
& &&&4& && && && &&&NC,& &&&NR,& &&&STOIC,& & RATES,&&FLUXM,
& &&&5& && && && &&&FLUXS,&&XCURR,&&NTCAT,& & RATCAT, NTSSAT,
& &&&6& && && && &&&RATSSA, KCALL,&&KFAIL,& & KFLASH, NCOMP,
& &&&7& && && && &&&IDX,& & Y,& && &X,& && &&&X1,& &&&X2,
& &&&8& && && && &&&NRALL,&&RATALL, NUSERV,& &USERV,&&NINTR,
& &&&9& && && && &&&INTR,& &NREALR, REALR,& & NIWR,& &IWR,
& &&&*& && && && &&&NWR,& & WR,& &&&NRL,& && &RATEL,&&NRV,
& &&&1& && && && &&&RATEV)
&&implicit none
&&!declare variables used in dimensioning
& && &INTEGER NSUBS, NINT,&&NPO,& &NIWORK, NWORK,
& &&&@& && &&&NC,& & NR,& & NTCAT, NTSSAT, NCOMP,
& &&&@& && &&&NRALL, NUSERV, NINTR, NREALR, NIWR,
& &&&@& && &&&NWR
#include &rcst_rcstri.cmn&
#include &rxn_rcstrr.cmn&
#include &rplg_rplugi.cmn&
#include &rplg_rplugr.cmn&
& && &EQUIVALENCE (XLEN, RPLUGR_UXLONG)
& && &EQUIVALENCE (DIAM, RPLUGR_UDIAM)
#include &rbtc_rbati.cmn&
#include &rbtc_rbatr.cmn&
! Pressure Relief
#include &rbtc_presrr.cmn&
! Two general labeled commons are provided for physical property data.
#include &rxn_rprops.cmn&
& && &EQUIVALENCE (TEMP, RPROPS_UTEMP)
& && &EQUIVALENCE (PRES, RPROPS_UPRES)
& && &EQUIVALENCE (VFRAC, RPROPS_UVFRAC)
& && &EQUIVALENCE (BETA, RPROPS_UBETA)
& && &EQUIVALENCE (VVAP, RPROPS_UVVAP)
& && &EQUIVALENCE (VLIQ, RPROPS_UVLIQ)
& && &EQUIVALENCE (VLIQS, RPROPS_UVLIQS)
#include &pputl_ppglob.cmn&&&!参考温度、压力、气体常数
#include &ppexec_user.cmn&
& && &EQUIVALENCE (RMISS, USER_RUMISS)
& && &EQUIVALENCE (IMISS, USER_IUMISS)
#include &dms_errout.cmn&
& && &EQUIVALENCE (IERROUT, ERROUT_IEROUT)
!& & declare arguments
& && &INTEGER IDXSUB(NSUBS),ITYPE(NSUBS), INT(NINT),
& &&&@& && &&&IDS(2),NBOPST(6,NPO),IWORK(NIWORK),
&&@& && &&&IDX(NCOMP),& &INTR(NINTR),&&IWR(NIWR),
&&@& && &&&NREAL, KCALL, KFAIL, KFLASH, NRL,NRV, I
& &INTEGER IPCO, IPEN, IPNO, IPDEO, IPH2, IPETOH
&&@& && &&&KV, KDIAG, KER
& &REAL*8 SOUT(1),& && &WORK(NWORK),
& &&&@& && & STOIC(NC,NSUBS,NR),&&RATES(NC),
& &&&@& && & FLUXM(1),& &&&FLUXS(1),& &&&RATCAT(NTCAT),
& &&&@& && & RATSSA(NTSSAT),& && &Y(NCOMP),
& &&&@& && & X(NCOMP),& &&&X1(NCOMP),& & X2(NCOMP)
& && &REAL*8 RATALL(NRALL),USERV(NUSERV),
& &&&@& && & REALR(NREALR),WR(NWR),& && &XCURR, TEMP,
& &&&@& && & PRES,&&VMXL,&&DVMX,&&TK
!& & declare local variables
& && &INTEGER IPROG(2), IMISS, DMS_KFORMC, DMS_IRRCHK,
&&@& && & MKBAS, MKPHAS, MTAPP, MKBASS, MTAPPS,
&&@& && & LMW, KDIAG, KPHI, KER
& && &REAL*8&&REAL(NREAL),&&XLEN,&&DIAM,&&VFRAC, BETA,
& &&&@& && & VVAP,&&VLIQ,&&VLIQS, RMISS, RTEMP, TEMP, PRES,
&&@& && & RPRES, SSALT, VSALT, FSALT, FUGA(NC), PHI(NCOMP),
&&@& && & DPHI(NCOMP), RATE, K1, K2, K3, K4, K5, K6, K7,
&&@& && & K8, RPAR, YL(NC), PHIL(NC),& &
& &&&@& && & PCO, PEN, PNO, PDEO, PH2, PETOH, RRATE1,
& &&&@& && & RRATE2, RNET
& &CHARACTER*80 IERROUT(10), IERW1(10), IERW2(9), IERW3(8)
& &&&@& && && && & , IERW4(7), IERW5(6), IERW6(5), IERW7(4)
& &&&@& && && && & , IERW8(3), IERW9(2), IERW10
& && &EQUIVALENCE (IERROUT(1), IERW1), (IERROUT(2), IERW2),
& &&&@& && && && &(IERROUT(3), IERW3), (IERROUT(4), IERW4),
& &&&@& && && && &(IERROUT(5), IERW5), (IERROUT(6), IERW6),
& &&&@& && && && &(IERROUT(7), IERW7), (IERROUT(8), IERW8),
& &&&@& && && && &(IERROUT(9), IERW9), (IERROUT(10), IERW10)
!& & Initialize rates vector.
!& & This vector is used to specify the rate of change for each component
& && &FORMAT(T15,'Total Molar Flow: ',d14.7,/,
& &&&@& && && &&&T15,'Realr(1-4):& &',d14.7,(', ',d14.7),/,
& &&&@& && && &&&T33,& && && && && &&&d14.7,(', ',d14.7),/,
& &&&@& && && &&&T15,'Rgas:& && && &',d14.7,/,
& &&&@& && && &&&T15,'Tk (K):& && & ',d14.7,/,
& &&&@& && && &&&T15,'Rnet:& && && &',d14.7,/,
& &&&@& && && &&&T15,'Vvap:& && && &',d14.7,/,
& &&&@& && && &&&T15,'Vliq:& && && &',d14.7,/,
& &&&@& && && &&&T15,'Volrc:& && &&&',d14.7,/,
& &&&@& && && &&&T15,'Overall Component Rate (mol/h): ',d14.7 )
& && &FORMAT(T17,'Component Data ',/,
& &&&@& && && &&&T20,'Ethyl Nitrite Mole Fraction:& &',F10.4,/,
& &&&@& && && &&&T20,'Ethanol Mole Fraction:& && & ',F10.4,/,
& &&&@& && && &&&T20,'Diethyl Oxalate Mole Fraction: ',F10.4,/,
& &&&@& && && &&&T20,'CO Mole Fraction:& && && &',F10.4,/,
&&@& && && &&&T20,'H2 Mole Fraction:& && && &',F10.4,/,
&&@& && && &&&T20,'NO Mole Fraction:& && && &',F10.4,/,
& &&&@& && && &&&T20,'Density (m3/kgmol):& && && & ',F10.4)
!&&begin executable code
& && &DO 100,I = 1, NC
& && &&&RATES(I) = 0 do
&&YL(I) = 0 DO
&&PHIL(I) = 0 DO
&&100 CONTINUE
& && &RTEMP = SOUT(NCOMP_NCC+2)
& && &RPRES = SOUT(NCOMP_NCC+3)
& &RFRAC = SOUT(NCOMP_NCC+5)
& && &KDIAG=4
& &CALL PPMON_FUGV(RTEMP, RPRES, Y, NCOMP, IDX,
& &@& && & NBOPST, KDIAG, KPHI,PHI, DPHI, KER)
& &DO 101 I=1,NCOMP
& &YL(IDX(I))=Y(I)
& &PHIL(IDX(I))=PHI(I)
& &101 CONTINUE
& && &DO 102 I=1,NC
& &FUGA(I)=RPRES*YL(I)*PHIL(I)
& &102 CONTINUE
! In this case, the component index will be obtained for:
!& &&&Component& && & CID& && &Formula
!& &&&Ethyl Nitrite& &EN& && & C2H5NO2&&
!& &&&Ethanol& && && &Ethanol&&C2H6O-2
!& &&&Diethyl Oxalate DEO& && &C6H10O4-D2
!& &&&CO& && && && &&&CO& && & CO
!& &&&H2& && && && &&&H2& && & H2
!& &&&NO& && && && &&&NO& && & NO
! 组分顺序
& && &IEN& & =DMS_KFORMC ('C2H5NO2')
& && &IETOH&&=DMS_KFORMC ('C2H6O-2')
& &IDEO& &=DMS_KFORMC ('C6H10O4-D2')
& && &ICO& & =DMS_KFORMC ('CO')
& && &IH2& & =DMS_KFORMC ('H2')
& &INO& & =DMS_KFORMC ('NO')
& && &DO I=1, NC
& && && &&&IF (IDX(I).EQ.IEN) THEN
& && && && && & IPAA=I
& && && &&&ELSE IF (IDX(I).EQ.IETOH) THEN
& && && && && & IPETOH=I
& && && &&&ELSE IF (IDX(I).EQ.IDEO) THEN
& && && && && & IPDEO=I
& && && &&&ELSE IF (IDX(I).EQ.ICO) THEN
& && && && && & IPCO=I
& &&&ELSE IF (IDX(I).EQ.IH2) THEN
& && && && && & IPH2=I
& &&&ELSE IF (IDX(I).EQ.INO) THEN
& && && && && & IPNO=I
& && && &&&END IF
& && & END DO
! Calculate the partial pressure of each component.
& &TK=TEMP
& && &K1 = 2.4*exp(-3.3/PPGLOB_RGAS / RTEMP)
& &&&K2 = 4.8*exp(5.4/PPGLOB_RGAS / RTEMP)
& &K3 = 4.0*exp(-1.4/PPGLOB_RGAS / RTEMP)
& & K4 = 8.2*exp(1.4/PPGLOB_RGAS / RTEMP)
& &K5 = 7.2*exp(1.4/PPGLOB_RGAS / RTEMP)
& &K6 = 1.1*exp(1.4/PPGLOB_RGAS / RTEMP)
& &K7 = 1.3*exp(1.4/PPGLOB_RGAS / RTEMP)
& &K8 = 5.1*exp(3.3/PPGLOB_RGAS / RTEMP)
! Calculate the rate of the reaction
& &RATE=FUGA(4)*FUGA(1)/FUGA(6)/(K1+K2*FUGA(4)+K3*FUGA(6)
& &@& && &+K4*FUGA(3)+K5*sqrt(FUGA(3))+K6*sqrt(FUGA(5))
& &@& && &+K7*FUGA(1)/FUGA(6)+K8*FUGA(2)/FUGA(6))**2& &
——————————————————————————————————
--------------------Configuration: Text1 - Win32 Debug--------------------
Compiling Fortran...
D:\A+fortran\Text1.f90
D:\A+fortran\Text1.f90(1) : Error: Unrecognized token '#' skipped
SUBROUTINE USRKIN (SOUT,& &NSUBS,&&IDXSUB,& &ITYPE,&&NINT，
----------------------------------------------------------^
D:\A+fortran\Text1.f90(1) : Error: Unrecognized token ',' skipped
SUBROUTINE USRKIN (SOUT,& &NSUBS,&&IDXSUB,& &ITYPE,&&NINT，
-----------------------------------------------------------^
D:\A+fortran\Text1.f90(1) : Error: Syntax error, found END-OF-STATEMENT when expecting one of: , )
SUBROUTINE USRKIN (SOUT,& &NSUBS,&&IDXSUB,& &ITYPE,&&NINT，
------------------------------------------------------------^
D:\A+fortran\Text1.f90(2) : Error: Syntax error, found ',' when expecting one of: ( : % . = =&
& &&&2& && && && &&&INT,& & NREAL,&&REAL,& &&&IDS,& & NPO,
-----------------------^
D:\A+fortran\Text1.f90(2) : Error: Syntax error, found END-OF-STATEMENT when expecting one of: ( * :: &IDENTIFIER& &CHAR_CON_KIND_PARAM& &CHAR_NAM_KIND_PARAM& &CHARACTER_CONSTANT& ...
& &&&2& && && && &&&INT,& & NREAL,&&REAL,& &&&IDS,& & NPO,
----------------------------------------------------------^
D:\A+fortran\Text1.f90(3) : Error: Syntax error, found ',' when expecting one of: ( : % . = =&
& &&&3& && && && &&&NBOPST, NIWORK, IWORK,& & NWORK,&&WORK,
--------------------------^
D:\A+fortran\Text1.f90(3) : Error: Syntax error, found END-OF-STATEMENT when expecting one of: ( * :: &IDENTIFIER& &CHAR_CON_KIND_PARAM& &CHAR_NAM_KIND_PARAM& &CHARACTER_CONSTANT& ...
& &&&3& && && && &&&NBOPST, NIWORK, IWORK,& & NWORK,&&WORK,
-----------------------------------------------------------^
D:\A+fortran\Text1.f90(4) : Error: Syntax error, found ',' when expecting one of: ( : % . = =&
& &&&4& && && && &&&NC,& &&&NR,& &&&STOIC,& & RATES,&&FLUXM,
----------------------^
D:\A+fortran\Text1.f90(4) : Error: Syntax error, found END-OF-STATEMENT when expecting one of: ( * :: &IDENTIFIER& &CHAR_CON_KIND_PARAM& &CHAR_NAM_KIND_PARAM& &CHARACTER_CONSTANT& ...
& &&&4& && && && &&&NC,& &&&NR,& &&&STOIC,& & RATES,&&FLUXM,
------------------------------------------------------------^
D:\A+fortran\Text1.f90(5) : Error: Syntax error, found ',' when expecting one of: ( : % . = =&
& &&&5& && && && &&&FLUXS,&&XCURR,&&NTCAT,& & RATCAT, NTSSAT,
-------------------------^
D:\A+fortran\Text1.f90(5) : Error: Syntax error, found END-OF-STATEMENT when expecting one of: ( * :: &IDENTIFIER& &CHAR_CON_KIND_PARAM& &CHAR_NAM_KIND_PARAM& &CHARACTER_CONSTANT& ...
& &&&5& && && && &&&FLUXS,&&XCURR,&&NTCAT,& & RATCAT, NTSSAT,
-------------------------------------------------------------^
D:\A+fortran\Text1.f90(6) : Error: Syntax error, found ',' when expecting one of: ( : % . = =&
& &&&6& && && && &&&RATSSA, KCALL,&&KFAIL,& & KFLASH, NCOMP,
--------------------------^
D:\A+fortran\Text1.f90(6) : Error: Syntax error, found END-OF-STATEMENT when expecting one of: ( * :: &IDENTIFIER& &CHAR_CON_KIND_PARAM& &CHAR_NAM_KIND_PARAM& &CHARACTER_CONSTANT& ...
& &&&6& && && && &&&RATSSA, KCALL,&&KFAIL,& & KFLASH, NCOMP,
------------------------------------------------------------^
D:\A+fortran\Text1.f90(7) : Error: Syntax error, found ',' when expecting one of: ( : % . = =&
& &&&7& && && && &&&IDX,& & Y,& && &X,& && &&&X1,& &&&X2,
-----------------------^
D:\A+fortran\Text1.f90(7) : Error: Syntax error, found END-OF-STATEMENT when expecting one of: ( * :: &IDENTIFIER& &CHAR_CON_KIND_PARAM& &CHAR_NAM_KIND_PARAM& &CHARACTER_CONSTANT& ...
& &&&7& && && && &&&IDX,& & Y,& && &X,& && &&&X1,& &&&X2,
---------------------------------------------------------^
D:\A+fortran\Text1.f90(8) : Error: Syntax error, found ',' when expecting one of: ( : % . = =&
& &&&8& && && && &&&NRALL,&&RATALL, NUSERV,& &USERV,&&NINTR,
-------------------------^
D:\A+fortran\Text1.f90(8) : Error: Syntax error, found END-OF-STATEMENT when expecting one of: ( * :: &IDENTIFIER& &CHAR_CON_KIND_PARAM& &CHAR_NAM_KIND_PARAM& &CHARACTER_CONSTANT& ...
& &&&8& && && && &&&NRALL,&&RATALL, NUSERV,& &USERV,&&NINTR,
------------------------------------------------------------^
D:\A+fortran\Text1.f90(9) : Error: Syntax error, found ',' when expecting one of: ( : % . = =&
& &&&9& && && && &&&INTR,& &NREALR, REALR,& & NIWR,& &IWR,
------------------------^
D:\A+fortran\Text1.f90(9) : Error: Syntax error, found END-OF-STATEMENT when expecting one of: ( * :: &IDENTIFIER& &CHAR_CON_KIND_PARAM& &CHAR_NAM_KIND_PARAM& &CHARACTER_CONSTANT& ...
& &&&9& && && && &&&INTR,& &NREALR, REALR,& & NIWR,& &IWR,
----------------------------------------------------------^
D:\A+fortran\Text1.f90(10) : Error: Syntax error, found '*' when expecting one of: &LABEL& &END-OF-STATEMENT& ; BLOCK BLOCKDATA PROGRAM TYPE COMPLEX BYTE CHARACTER ...
& &&&*& && && && &&&NWR,& & WR,& &&&NRL,& && &RATEL,&&NRV,
D:\A+fortran\Text1.f90(10) : Error: Syntax error, found END-OF-STATEMENT when expecting one of: ( &IDENTIFIER& &CHAR_CON_KIND_PARAM& &CHAR_NAM_KIND_PARAM& &CHARACTER_CONSTANT& &INTEGER_CONSTANT& ...
& &&&*& && && && &&&NWR,& & WR,& &&&NRL,& && &RATEL,&&NRV,
----------------------------------------------------------^
D:\A+fortran\Text1.f90(11) : Error: Syntax error, found ')' when expecting one of: ( : % . = =&
& &&&1& && && && &&&RATEV)
-------------------------^
D:\A+fortran\Text1.f90(16) : Error: Syntax error, found END-OF-STATEMENT when expecting one of: %FILL &IDENTIFIER&
& && &INTEGER NSUBS, NINT,&&NPO,& &NIWORK, NWORK,
-------------------------------------------------^
D:\A+fortran\Text1.f90(17) : Error: Unrecognized token
& &&&@& && &&&NC,& & NR,& & NTCAT, NTSSAT, NCOMP,
D:\A+fortran\Text1.f90(17) : Error: Syntax error, found END-OF-STATEMENT when expecting one of: %FILL &IDENTIFIER&
& &&&@& && &&&NC,& & NR,& & NTCAT, NTSSAT, NCOMP,
-------------------------------------------------^
D:\A+fortran\Text1.f90(18) : Error: Unrecognized token
& &&&@& && &&&NRALL, NUSERV, NINTR, NREALR, NIWR,
D:\A+fortran\Text1.f90(18) : Error: Syntax error, found END-OF-STATEMENT when expecting one of: %FILL &IDENTIFIER&
& &&&@& && &&&NRALL, NUSERV, NINTR, NREALR, NIWR,
-------------------------------------------------^
D:\A+fortran\Text1.f90(19) : Error: Unrecognized token
& &&&@& && &&&NWR
D:\A+fortran\Text1.f90(22) : Warning: Bad # preprocessor line
#include &rcst_rcstri.cmn&
D:\A+fortran\Text1.f90(23) : Warning: Bad # preprocessor line
#include &rxn_rcstrr.cmn&
D:\A+fortran\Text1.f90(26) : Warning: Bad # preprocessor line
#include &rplg_rplugi.cmn&
D:\A+fortran\Text1.f90(27) : Warning: Bad # preprocessor line
#include &rplg_rplugr.cmn&
D:\A+fortran\Text1.f90(32) : Warning: Bad # preprocessor line
#include &rbtc_rbati.cmn&
D:\A+fortran\Text1.f90(33) : Warning: Bad # preprocessor line
#include &rbtc_rbatr.cmn&
D:\A+fortran\Text1.f90(36) : Warning: Bad # preprocessor line
#include &rbtc_presrr.cmn&
D:\A+fortran\Text1.f90(39) : Warning: Bad # preprocessor line
#include &rxn_rprops.cmn&
D:\A+fortran\Text1.f90(48) : Warning: Bad # preprocessor line
#include &pputl_ppglob.cmn&&&!参考温度、压力、气体常数
D:\A+fortran\Text1.f90(50) : Warning: Bad # preprocessor line
#include &ppexec_user.cmn&
D:\A+fortran\Text1.f90(54) : Warning: Bad # preprocessor line
#include &dms_errout.cmn&
D:\A+fortran\Text1.f90(58) : Error: Syntax error, found END-OF-STATEMENT when expecting one of: %FILL &IDENTIFIER&
& && &INTEGER IDXSUB(NSUBS),ITYPE(NSUBS), INT(NINT),
----------------------------------------------------^
D:\A+fortran\Text1.f90(59) : Error: Unrecognized token
& &&&@& && &&&IDS(2),NBOPST(6,NPO),IWORK(NIWORK),
(60) : Severe: Too many errors, exiting
执行 df.exe 时出错.
Text1.obj - 30 error(s), 11 warning(s)
(372961号)
收到鲜花 朵
阅读权限30
主题好友积分
该用户从未签到&
看了几篇之前的帖子，难道在#include &rcst_rcstri.cmn&之前要加个“！”吗？
(372961号)
收到鲜花 朵
阅读权限30
主题好友积分
该用户从未签到&
有么有高手帮我解答一下？
(577543号)
收到鲜花 朵
阅读权限30
主题好友积分
该用户从未签到&
学习了，谢谢楼主发起这个议题
(372961号)
收到鲜花 朵
阅读权限30
主题好友积分
该用户从未签到&
tuoliujiqi01
& & 呃，希望你能从中吸取一点我的经验教训
站长推荐 /1
手机APP开放下载了，安卓系统手机和苹果手机可直接用手机扫描二维码下载安装。手机端有快捷签到功能。
海川化工论坛化工技术交流第一站，共同学习 共同提高!
广告投放与宣传请联系
违规贴举报删除请联系邮箱：或者 QQ: (请直接留言)
处理时间：工作日09:00-20:00
节假日09:00--18:00
丰行天下-海川化工论坛 版权所有--- Powered by帮忙做一道材料力学题目校核铆钉强度问题 希望给出确切解答 图我放在这了 还有一张图 能做的高手在百度上M我下 还是没人能做么?&这个题很简单啊&&&我们学过但是忘了&&&速度了&谢谢大虾们
熙爷cdSC02DG71
这题不难,你先根据拉杆的强度条件：拉应力等于F处以A（A＝bt）,拉应力小于许可抗拉强顿,即可得出F的临界值.再由切应力等于四分之一F（剪力）乘以Sz,除以Iz,除以b,即可得出剪应力,也就是抗剪强度!应该没问题.
为您推荐：
其他类似问题
扫描下载二维码后使用快捷导航没有帐号？
查看: 2008|回复: 6
Aspen中动力学常数单位问题
在Aspen中，我的动力学数据数据的单位基于每克催化剂的，如图所示，其他的单位也不是标准的单位，那应该怎么填速率常数k值呢？直接像图示的那样填感觉不对？劳烦高手帮忙！
积极发表议题
☆评分是一种美德，请多多评分☆
1、本主题所有言论和图片纯属会员个人意见，与本论坛立场无关;
2、帖子作者须承担一切因本文发表而直接或间接导致的民事或刑事法律责任;
3、本帖部分内容转载自其它媒体，但并不代表赞同其观点和对其真实性负责;
4、如本帖侵犯到任何版权问题，请立即联系本站或，本站将及时予与删除并致以最深的歉意;
5、管理员和版主有权不事先通知发贴者而删除本文。
&成长值: 16715群组:&
直接写上去明显不对嘛！第二章图片中的指前因子乘以催化剂密度才能转化为aspen里的指前因子！另外还要保持单位与全局单位一致！
有堆密度和颗粒密度分，应该是乘以堆密度吧？&
马蹄金 +15
加鞭快马, 积分 238, 距离下一级还需 62 积分
加鞭快马, 积分 238, 距离下一级还需 62 积分
还有些需要好好学习
汗血宝马, 积分 1937, 距离下一级还需 3063 积分
汗血宝马, 积分 1937, 距离下一级还需 3063 积分
可以把鼠标放在“k”上，点F1查看帮助，里面有很多关于单位的解释。
tdl522 发表于
直接写上去明显不对嘛！第二章图片中的指前因子乘以催化剂密度才能转化为aspen里的指前因子！另外还要保持单 ...
有堆密度和颗粒密度分，应该是乘以堆密度吧？
汗血宝马, 积分 1660, 距离下一级还需 3340 积分
汗血宝马, 积分 1660, 距离下一级还需 3340 积分
文献中指前因子的单位有问题，正确的单位应该是g-cat*mol/L*min。
因为不知道r的单位，所以不知道是否需要考虑催化剂改变催化剂表达方式。
不是這样的吧，我看他的单位是没什么问题的吧，他的意思应该是基于单位质量催化剂的&
文献中指前因子的单位有问题，正确的单位应该是g-cat*mol/L*min。
因为不知道r的单位，所以不知道是否需要 ...
不是這样的吧，我看他的单位是没什么问题的吧，他的意思应该是基于单位质量催化剂的
马后炮化工mahoupao.net·免责声明
马后炮化工提供网上进行化工学习和交流平台，谢绝讨论政治敏感话题，所有个人言论并不代表本站立场，与本站立场无关，本站不对其內容负任何责任。马后炮化工是非营利性化工交流网站，旨在进行个人化工学习和交流。论坛部分文章和资料均从网上搜集整理，由热心网友自由上传，版权归原作者所有，只做为交流学习之用，不得用于商业用途，法律后果自负。目的是发扬自由与共享的互联网精神,条件许可请支持正版。如您(单位或个人)认为本网站某部分内容有侵权嫌疑,敬请立即联系我们,我们将在第一时间予以更改或删除。谢谢合作！站长联系QQ：,客服联系QQ： Email:admin#mahoupao.net
Powered by}
无法找到该页
您正在搜索的页面可能已经删除、更名或暂时不可用。
请尝试以下操作：
确保浏览器的地址栏中显示的网站地址的拼写和格式正确无误。
如果通过单击链接而到达了该网页，请与网站管理员联系，通知他们该链接的格式不正确。
单击按钮尝试另一个链接。
HTTP 错误 404 - 文件或目录未找到。Internet 信息服务 (IIS)
技术信息（为技术支持人员提供）
转到 并搜索包括&HTTP&和&404&的标题。
打开&IIS 帮助&（可在 IIS 管理器 (inetmgr) 中访问），然后搜索标题为&网站设置&、&常规管理任务&和&关于自定义错误消息&的主题。后使用快捷导航没有帐号？
查看: 2264|回复: 4
请高手们帮我看看这个Fortran子程序出了什么问题？
(372961号)
收到鲜花 朵
阅读权限30
主题好友积分
该用户从未签到&
编了个动力学子程序，结果错误好多…… 初学者，实在不懂该如何下手，请高手帮忙看看啊，拜谢！
SUBROUTINE USRKIN (SOUT,& &NSUBS,&&IDXSUB,& &ITYPE,&&NINT，
& &&&2& && && && &&&INT,& & NREAL,&&REAL,& &&&IDS,& & NPO,
& &&&3& && && && &&&NBOPST, NIWORK, IWORK,& & NWORK,&&WORK,
& &&&4& && && && &&&NC,& &&&NR,& &&&STOIC,& & RATES,&&FLUXM,
& &&&5& && && && &&&FLUXS,&&XCURR,&&NTCAT,& & RATCAT, NTSSAT,
& &&&6& && && && &&&RATSSA, KCALL,&&KFAIL,& & KFLASH, NCOMP,
& &&&7& && && && &&&IDX,& & Y,& && &X,& && &&&X1,& &&&X2,
& &&&8& && && && &&&NRALL,&&RATALL, NUSERV,& &USERV,&&NINTR,
& &&&9& && && && &&&INTR,& &NREALR, REALR,& & NIWR,& &IWR,
& &&&*& && && && &&&NWR,& & WR,& &&&NRL,& && &RATEL,&&NRV,
& &&&1& && && && &&&RATEV)
&&implicit none
&&!declare variables used in dimensioning
& && &INTEGER NSUBS, NINT,&&NPO,& &NIWORK, NWORK,
& &&&@& && &&&NC,& & NR,& & NTCAT, NTSSAT, NCOMP,
& &&&@& && &&&NRALL, NUSERV, NINTR, NREALR, NIWR,
& &&&@& && &&&NWR
#include &rcst_rcstri.cmn&
#include &rxn_rcstrr.cmn&
#include &rplg_rplugi.cmn&
#include &rplg_rplugr.cmn&
& && &EQUIVALENCE (XLEN, RPLUGR_UXLONG)
& && &EQUIVALENCE (DIAM, RPLUGR_UDIAM)
#include &rbtc_rbati.cmn&
#include &rbtc_rbatr.cmn&
! Pressure Relief
#include &rbtc_presrr.cmn&
! Two general labeled commons are provided for physical property data.
#include &rxn_rprops.cmn&
& && &EQUIVALENCE (TEMP, RPROPS_UTEMP)
& && &EQUIVALENCE (PRES, RPROPS_UPRES)
& && &EQUIVALENCE (VFRAC, RPROPS_UVFRAC)
& && &EQUIVALENCE (BETA, RPROPS_UBETA)
& && &EQUIVALENCE (VVAP, RPROPS_UVVAP)
& && &EQUIVALENCE (VLIQ, RPROPS_UVLIQ)
& && &EQUIVALENCE (VLIQS, RPROPS_UVLIQS)
#include &pputl_ppglob.cmn&&&!参考温度、压力、气体常数
#include &ppexec_user.cmn&
& && &EQUIVALENCE (RMISS, USER_RUMISS)
& && &EQUIVALENCE (IMISS, USER_IUMISS)
#include &dms_errout.cmn&
& && &EQUIVALENCE (IERROUT, ERROUT_IEROUT)
!& & declare arguments
& && &INTEGER IDXSUB(NSUBS),ITYPE(NSUBS), INT(NINT),
& &&&@& && &&&IDS(2),NBOPST(6,NPO),IWORK(NIWORK),
&&@& && &&&IDX(NCOMP),& &INTR(NINTR),&&IWR(NIWR),
&&@& && &&&NREAL, KCALL, KFAIL, KFLASH, NRL,NRV, I
& &INTEGER IPCO, IPEN, IPNO, IPDEO, IPH2, IPETOH
&&@& && &&&KV, KDIAG, KER
& &REAL*8 SOUT(1),& && &WORK(NWORK),
& &&&@& && & STOIC(NC,NSUBS,NR),&&RATES(NC),
& &&&@& && & FLUXM(1),& &&&FLUXS(1),& &&&RATCAT(NTCAT),
& &&&@& && & RATSSA(NTSSAT),& && &Y(NCOMP),
& &&&@& && & X(NCOMP),& &&&X1(NCOMP),& & X2(NCOMP)
& && &REAL*8 RATALL(NRALL),USERV(NUSERV),
& &&&@& && & REALR(NREALR),WR(NWR),& && &XCURR, TEMP,
& &&&@& && & PRES,&&VMXL,&&DVMX,&&TK
!& & declare local variables
& && &INTEGER IPROG(2), IMISS, DMS_KFORMC, DMS_IRRCHK,
&&@& && & MKBAS, MKPHAS, MTAPP, MKBASS, MTAPPS,
&&@& && & LMW, KDIAG, KPHI, KER
& && &REAL*8&&REAL(NREAL),&&XLEN,&&DIAM,&&VFRAC, BETA,
& &&&@& && & VVAP,&&VLIQ,&&VLIQS, RMISS, RTEMP, TEMP, PRES,
&&@& && & RPRES, SSALT, VSALT, FSALT, FUGA(NC), PHI(NCOMP),
&&@& && & DPHI(NCOMP), RATE, K1, K2, K3, K4, K5, K6, K7,
&&@& && & K8, RPAR, YL(NC), PHIL(NC),& &
& &&&@& && & PCO, PEN, PNO, PDEO, PH2, PETOH, RRATE1,
& &&&@& && & RRATE2, RNET
& &CHARACTER*80 IERROUT(10), IERW1(10), IERW2(9), IERW3(8)
& &&&@& && && && & , IERW4(7), IERW5(6), IERW6(5), IERW7(4)
& &&&@& && && && & , IERW8(3), IERW9(2), IERW10
& && &EQUIVALENCE (IERROUT(1), IERW1), (IERROUT(2), IERW2),
& &&&@& && && && &(IERROUT(3), IERW3), (IERROUT(4), IERW4),
& &&&@& && && && &(IERROUT(5), IERW5), (IERROUT(6), IERW6),
& &&&@& && && && &(IERROUT(7), IERW7), (IERROUT(8), IERW8),
& &&&@& && && && &(IERROUT(9), IERW9), (IERROUT(10), IERW10)
!& & Initialize rates vector.
!& & This vector is used to specify the rate of change for each component
& && &FORMAT(T15,'Total Molar Flow: ',d14.7,/,
& &&&@& && && &&&T15,'Realr(1-4):& &',d14.7,(', ',d14.7),/,
& &&&@& && && &&&T33,& && && && && &&&d14.7,(', ',d14.7),/,
& &&&@& && && &&&T15,'Rgas:& && && &',d14.7,/,
& &&&@& && && &&&T15,'Tk (K):& && & ',d14.7,/,
& &&&@& && && &&&T15,'Rnet:& && && &',d14.7,/,
& &&&@& && && &&&T15,'Vvap:& && && &',d14.7,/,
& &&&@& && && &&&T15,'Vliq:& && && &',d14.7,/,
& &&&@& && && &&&T15,'Volrc:& && &&&',d14.7,/,
& &&&@& && && &&&T15,'Overall Component Rate (mol/h): ',d14.7 )
& && &FORMAT(T17,'Component Data ',/,
& &&&@& && && &&&T20,'Ethyl Nitrite Mole Fraction:& &',F10.4,/,
& &&&@& && && &&&T20,'Ethanol Mole Fraction:& && & ',F10.4,/,
& &&&@& && && &&&T20,'Diethyl Oxalate Mole Fraction: ',F10.4,/,
& &&&@& && && &&&T20,'CO Mole Fraction:& && && &',F10.4,/,
&&@& && && &&&T20,'H2 Mole Fraction:& && && &',F10.4,/,
&&@& && && &&&T20,'NO Mole Fraction:& && && &',F10.4,/,
& &&&@& && && &&&T20,'Density (m3/kgmol):& && && & ',F10.4)
!&&begin executable code
& && &DO 100,I = 1, NC
& && &&&RATES(I) = 0 do
&&YL(I) = 0 DO
&&PHIL(I) = 0 DO
&&100 CONTINUE
& && &RTEMP = SOUT(NCOMP_NCC+2)
& && &RPRES = SOUT(NCOMP_NCC+3)
& &RFRAC = SOUT(NCOMP_NCC+5)
& && &KDIAG=4
& &CALL PPMON_FUGV(RTEMP, RPRES, Y, NCOMP, IDX,
& &@& && & NBOPST, KDIAG, KPHI,PHI, DPHI, KER)
& &DO 101 I=1,NCOMP
& &YL(IDX(I))=Y(I)
& &PHIL(IDX(I))=PHI(I)
& &101 CONTINUE
& && &DO 102 I=1,NC
& &FUGA(I)=RPRES*YL(I)*PHIL(I)
& &102 CONTINUE
! In this case, the component index will be obtained for:
!& &&&Component& && & CID& && &Formula
!& &&&Ethyl Nitrite& &EN& && & C2H5NO2&&
!& &&&Ethanol& && && &Ethanol&&C2H6O-2
!& &&&Diethyl Oxalate DEO& && &C6H10O4-D2
!& &&&CO& && && && &&&CO& && & CO
!& &&&H2& && && && &&&H2& && & H2
!& &&&NO& && && && &&&NO& && & NO
! 组分顺序
& && &IEN& & =DMS_KFORMC ('C2H5NO2')
& && &IETOH&&=DMS_KFORMC ('C2H6O-2')
& &IDEO& &=DMS_KFORMC ('C6H10O4-D2')
& && &ICO& & =DMS_KFORMC ('CO')
& && &IH2& & =DMS_KFORMC ('H2')
& &INO& & =DMS_KFORMC ('NO')
& && &DO I=1, NC
& && && &&&IF (IDX(I).EQ.IEN) THEN
& && && && && & IPAA=I
& && && &&&ELSE IF (IDX(I).EQ.IETOH) THEN
& && && && && & IPETOH=I
& && && &&&ELSE IF (IDX(I).EQ.IDEO) THEN
& && && && && & IPDEO=I
& && && &&&ELSE IF (IDX(I).EQ.ICO) THEN
& && && && && & IPCO=I
& &&&ELSE IF (IDX(I).EQ.IH2) THEN
& && && && && & IPH2=I
& &&&ELSE IF (IDX(I).EQ.INO) THEN
& && && && && & IPNO=I
& && && &&&END IF
& && & END DO
! Calculate the partial pressure of each component.
& &TK=TEMP
& && &K1 = 2.4*exp(-3.3/PPGLOB_RGAS / RTEMP)
& &&&K2 = 4.8*exp(5.4/PPGLOB_RGAS / RTEMP)
& &K3 = 4.0*exp(-1.4/PPGLOB_RGAS / RTEMP)
& & K4 = 8.2*exp(1.4/PPGLOB_RGAS / RTEMP)
& &K5 = 7.2*exp(1.4/PPGLOB_RGAS / RTEMP)
& &K6 = 1.1*exp(1.4/PPGLOB_RGAS / RTEMP)
& &K7 = 1.3*exp(1.4/PPGLOB_RGAS / RTEMP)
& &K8 = 5.1*exp(3.3/PPGLOB_RGAS / RTEMP)
! Calculate the rate of the reaction
& &RATE=FUGA(4)*FUGA(1)/FUGA(6)/(K1+K2*FUGA(4)+K3*FUGA(6)
& &@& && &+K4*FUGA(3)+K5*sqrt(FUGA(3))+K6*sqrt(FUGA(5))
& &@& && &+K7*FUGA(1)/FUGA(6)+K8*FUGA(2)/FUGA(6))**2& &
——————————————————————————————————
--------------------Configuration: Text1 - Win32 Debug--------------------
Compiling Fortran...
D:\A+fortran\Text1.f90
D:\A+fortran\Text1.f90(1) : Error: Unrecognized token '#' skipped
SUBROUTINE USRKIN (SOUT,& &NSUBS,&&IDXSUB,& &ITYPE,&&NINT，
----------------------------------------------------------^
D:\A+fortran\Text1.f90(1) : Error: Unrecognized token ',' skipped
SUBROUTINE USRKIN (SOUT,& &NSUBS,&&IDXSUB,& &ITYPE,&&NINT，
-----------------------------------------------------------^
D:\A+fortran\Text1.f90(1) : Error: Syntax error, found END-OF-STATEMENT when expecting one of: , )
SUBROUTINE USRKIN (SOUT,& &NSUBS,&&IDXSUB,& &ITYPE,&&NINT，
------------------------------------------------------------^
D:\A+fortran\Text1.f90(2) : Error: Syntax error, found ',' when expecting one of: ( : % . = =&
& &&&2& && && && &&&INT,& & NREAL,&&REAL,& &&&IDS,& & NPO,
-----------------------^
D:\A+fortran\Text1.f90(2) : Error: Syntax error, found END-OF-STATEMENT when expecting one of: ( * :: &IDENTIFIER& &CHAR_CON_KIND_PARAM& &CHAR_NAM_KIND_PARAM& &CHARACTER_CONSTANT& ...
& &&&2& && && && &&&INT,& & NREAL,&&REAL,& &&&IDS,& & NPO,
----------------------------------------------------------^
D:\A+fortran\Text1.f90(3) : Error: Syntax error, found ',' when expecting one of: ( : % . = =&
& &&&3& && && && &&&NBOPST, NIWORK, IWORK,& & NWORK,&&WORK,
--------------------------^
D:\A+fortran\Text1.f90(3) : Error: Syntax error, found END-OF-STATEMENT when expecting one of: ( * :: &IDENTIFIER& &CHAR_CON_KIND_PARAM& &CHAR_NAM_KIND_PARAM& &CHARACTER_CONSTANT& ...
& &&&3& && && && &&&NBOPST, NIWORK, IWORK,& & NWORK,&&WORK,
-----------------------------------------------------------^
D:\A+fortran\Text1.f90(4) : Error: Syntax error, found ',' when expecting one of: ( : % . = =&
& &&&4& && && && &&&NC,& &&&NR,& &&&STOIC,& & RATES,&&FLUXM,
----------------------^
D:\A+fortran\Text1.f90(4) : Error: Syntax error, found END-OF-STATEMENT when expecting one of: ( * :: &IDENTIFIER& &CHAR_CON_KIND_PARAM& &CHAR_NAM_KIND_PARAM& &CHARACTER_CONSTANT& ...
& &&&4& && && && &&&NC,& &&&NR,& &&&STOIC,& & RATES,&&FLUXM,
------------------------------------------------------------^
D:\A+fortran\Text1.f90(5) : Error: Syntax error, found ',' when expecting one of: ( : % . = =&
& &&&5& && && && &&&FLUXS,&&XCURR,&&NTCAT,& & RATCAT, NTSSAT,
-------------------------^
D:\A+fortran\Text1.f90(5) : Error: Syntax error, found END-OF-STATEMENT when expecting one of: ( * :: &IDENTIFIER& &CHAR_CON_KIND_PARAM& &CHAR_NAM_KIND_PARAM& &CHARACTER_CONSTANT& ...
& &&&5& && && && &&&FLUXS,&&XCURR,&&NTCAT,& & RATCAT, NTSSAT,
-------------------------------------------------------------^
D:\A+fortran\Text1.f90(6) : Error: Syntax error, found ',' when expecting one of: ( : % . = =&
& &&&6& && && && &&&RATSSA, KCALL,&&KFAIL,& & KFLASH, NCOMP,
--------------------------^
D:\A+fortran\Text1.f90(6) : Error: Syntax error, found END-OF-STATEMENT when expecting one of: ( * :: &IDENTIFIER& &CHAR_CON_KIND_PARAM& &CHAR_NAM_KIND_PARAM& &CHARACTER_CONSTANT& ...
& &&&6& && && && &&&RATSSA, KCALL,&&KFAIL,& & KFLASH, NCOMP,
------------------------------------------------------------^
D:\A+fortran\Text1.f90(7) : Error: Syntax error, found ',' when expecting one of: ( : % . = =&
& &&&7& && && && &&&IDX,& & Y,& && &X,& && &&&X1,& &&&X2,
-----------------------^
D:\A+fortran\Text1.f90(7) : Error: Syntax error, found END-OF-STATEMENT when expecting one of: ( * :: &IDENTIFIER& &CHAR_CON_KIND_PARAM& &CHAR_NAM_KIND_PARAM& &CHARACTER_CONSTANT& ...
& &&&7& && && && &&&IDX,& & Y,& && &X,& && &&&X1,& &&&X2,
---------------------------------------------------------^
D:\A+fortran\Text1.f90(8) : Error: Syntax error, found ',' when expecting one of: ( : % . = =&
& &&&8& && && && &&&NRALL,&&RATALL, NUSERV,& &USERV,&&NINTR,
-------------------------^
D:\A+fortran\Text1.f90(8) : Error: Syntax error, found END-OF-STATEMENT when expecting one of: ( * :: &IDENTIFIER& &CHAR_CON_KIND_PARAM& &CHAR_NAM_KIND_PARAM& &CHARACTER_CONSTANT& ...
& &&&8& && && && &&&NRALL,&&RATALL, NUSERV,& &USERV,&&NINTR,
------------------------------------------------------------^
D:\A+fortran\Text1.f90(9) : Error: Syntax error, found ',' when expecting one of: ( : % . = =&
& &&&9& && && && &&&INTR,& &NREALR, REALR,& & NIWR,& &IWR,
------------------------^
D:\A+fortran\Text1.f90(9) : Error: Syntax error, found END-OF-STATEMENT when expecting one of: ( * :: &IDENTIFIER& &CHAR_CON_KIND_PARAM& &CHAR_NAM_KIND_PARAM& &CHARACTER_CONSTANT& ...
& &&&9& && && && &&&INTR,& &NREALR, REALR,& & NIWR,& &IWR,
----------------------------------------------------------^
D:\A+fortran\Text1.f90(10) : Error: Syntax error, found '*' when expecting one of: &LABEL& &END-OF-STATEMENT& ; BLOCK BLOCKDATA PROGRAM TYPE COMPLEX BYTE CHARACTER ...
& &&&*& && && && &&&NWR,& & WR,& &&&NRL,& && &RATEL,&&NRV,
D:\A+fortran\Text1.f90(10) : Error: Syntax error, found END-OF-STATEMENT when expecting one of: ( &IDENTIFIER& &CHAR_CON_KIND_PARAM& &CHAR_NAM_KIND_PARAM& &CHARACTER_CONSTANT& &INTEGER_CONSTANT& ...
& &&&*& && && && &&&NWR,& & WR,& &&&NRL,& && &RATEL,&&NRV,
----------------------------------------------------------^
D:\A+fortran\Text1.f90(11) : Error: Syntax error, found ')' when expecting one of: ( : % . = =&
& &&&1& && && && &&&RATEV)
-------------------------^
D:\A+fortran\Text1.f90(16) : Error: Syntax error, found END-OF-STATEMENT when expecting one of: %FILL &IDENTIFIER&
& && &INTEGER NSUBS, NINT,&&NPO,& &NIWORK, NWORK,
-------------------------------------------------^
D:\A+fortran\Text1.f90(17) : Error: Unrecognized token
& &&&@& && &&&NC,& & NR,& & NTCAT, NTSSAT, NCOMP,
D:\A+fortran\Text1.f90(17) : Error: Syntax error, found END-OF-STATEMENT when expecting one of: %FILL &IDENTIFIER&
& &&&@& && &&&NC,& & NR,& & NTCAT, NTSSAT, NCOMP,
-------------------------------------------------^
D:\A+fortran\Text1.f90(18) : Error: Unrecognized token
& &&&@& && &&&NRALL, NUSERV, NINTR, NREALR, NIWR,
D:\A+fortran\Text1.f90(18) : Error: Syntax error, found END-OF-STATEMENT when expecting one of: %FILL &IDENTIFIER&
& &&&@& && &&&NRALL, NUSERV, NINTR, NREALR, NIWR,
-------------------------------------------------^
D:\A+fortran\Text1.f90(19) : Error: Unrecognized token
& &&&@& && &&&NWR
D:\A+fortran\Text1.f90(22) : Warning: Bad # preprocessor line
#include &rcst_rcstri.cmn&
D:\A+fortran\Text1.f90(23) : Warning: Bad # preprocessor line
#include &rxn_rcstrr.cmn&
D:\A+fortran\Text1.f90(26) : Warning: Bad # preprocessor line
#include &rplg_rplugi.cmn&
D:\A+fortran\Text1.f90(27) : Warning: Bad # preprocessor line
#include &rplg_rplugr.cmn&
D:\A+fortran\Text1.f90(32) : Warning: Bad # preprocessor line
#include &rbtc_rbati.cmn&
D:\A+fortran\Text1.f90(33) : Warning: Bad # preprocessor line
#include &rbtc_rbatr.cmn&
D:\A+fortran\Text1.f90(36) : Warning: Bad # preprocessor line
#include &rbtc_presrr.cmn&
D:\A+fortran\Text1.f90(39) : Warning: Bad # preprocessor line
#include &rxn_rprops.cmn&
D:\A+fortran\Text1.f90(48) : Warning: Bad # preprocessor line
#include &pputl_ppglob.cmn&&&!参考温度、压力、气体常数
D:\A+fortran\Text1.f90(50) : Warning: Bad # preprocessor line
#include &ppexec_user.cmn&
D:\A+fortran\Text1.f90(54) : Warning: Bad # preprocessor line
#include &dms_errout.cmn&
D:\A+fortran\Text1.f90(58) : Error: Syntax error, found END-OF-STATEMENT when expecting one of: %FILL &IDENTIFIER&
& && &INTEGER IDXSUB(NSUBS),ITYPE(NSUBS), INT(NINT),
----------------------------------------------------^
D:\A+fortran\Text1.f90(59) : Error: Unrecognized token
& &&&@& && &&&IDS(2),NBOPST(6,NPO),IWORK(NIWORK),
(60) : Severe: Too many errors, exiting
执行 df.exe 时出错.
Text1.obj - 30 error(s), 11 warning(s)
(372961号)
收到鲜花 朵
阅读权限30
主题好友积分
该用户从未签到&
看了几篇之前的帖子，难道在#include &rcst_rcstri.cmn&之前要加个“！”吗？
(372961号)
收到鲜花 朵
阅读权限30
主题好友积分
该用户从未签到&
有么有高手帮我解答一下？
(577543号)
收到鲜花 朵
阅读权限30
主题好友积分
该用户从未签到&
学习了，谢谢楼主发起这个议题
(372961号)
收到鲜花 朵
阅读权限30
主题好友积分
该用户从未签到&
tuoliujiqi01
& & 呃，希望你能从中吸取一点我的经验教训
站长推荐 /1
手机APP开放下载了，安卓系统手机和苹果手机可直接用手机扫描二维码下载安装。手机端有快捷签到功能。
海川化工论坛化工技术交流第一站，共同学习 共同提高!
广告投放与宣传请联系
违规贴举报删除请联系邮箱：或者 QQ: (请直接留言)
处理时间：工作日09:00-20:00
节假日09:00--18:00
丰行天下-海川化工论坛 版权所有--- Powered by帮忙做一道材料力学题目校核铆钉强度问题 希望给出确切解答 图我放在这了 还有一张图 能做的高手在百度上M我下 还是没人能做么?&这个题很简单啊&&&我们学过但是忘了&&&速度了&谢谢大虾们
熙爷cdSC02DG71
这题不难,你先根据拉杆的强度条件：拉应力等于F处以A（A＝bt）,拉应力小于许可抗拉强顿,即可得出F的临界值.再由切应力等于四分之一F（剪力）乘以Sz,除以Iz,除以b,即可得出剪应力,也就是抗剪强度!应该没问题.
为您推荐：
其他类似问题
扫描下载二维码后使用快捷导航没有帐号？
查看: 2008|回复: 6
Aspen中动力学常数单位问题
在Aspen中，我的动力学数据数据的单位基于每克催化剂的，如图所示，其他的单位也不是标准的单位，那应该怎么填速率常数k值呢？直接像图示的那样填感觉不对？劳烦高手帮忙！
积极发表议题
☆评分是一种美德，请多多评分☆
1、本主题所有言论和图片纯属会员个人意见，与本论坛立场无关;
2、帖子作者须承担一切因本文发表而直接或间接导致的民事或刑事法律责任;
3、本帖部分内容转载自其它媒体，但并不代表赞同其观点和对其真实性负责;
4、如本帖侵犯到任何版权问题，请立即联系本站或，本站将及时予与删除并致以最深的歉意;
5、管理员和版主有权不事先通知发贴者而删除本文。
&成长值: 16715群组:&
直接写上去明显不对嘛！第二章图片中的指前因子乘以催化剂密度才能转化为aspen里的指前因子！另外还要保持单位与全局单位一致！
有堆密度和颗粒密度分，应该是乘以堆密度吧？&
马蹄金 +15
加鞭快马, 积分 238, 距离下一级还需 62 积分
加鞭快马, 积分 238, 距离下一级还需 62 积分
还有些需要好好学习
汗血宝马, 积分 1937, 距离下一级还需 3063 积分
汗血宝马, 积分 1937, 距离下一级还需 3063 积分
可以把鼠标放在“k”上，点F1查看帮助，里面有很多关于单位的解释。
tdl522 发表于
直接写上去明显不对嘛！第二章图片中的指前因子乘以催化剂密度才能转化为aspen里的指前因子！另外还要保持单 ...
有堆密度和颗粒密度分，应该是乘以堆密度吧？
汗血宝马, 积分 1660, 距离下一级还需 3340 积分
汗血宝马, 积分 1660, 距离下一级还需 3340 积分
文献中指前因子的单位有问题，正确的单位应该是g-cat*mol/L*min。
因为不知道r的单位，所以不知道是否需要考虑催化剂改变催化剂表达方式。
不是這样的吧，我看他的单位是没什么问题的吧，他的意思应该是基于单位质量催化剂的&
文献中指前因子的单位有问题，正确的单位应该是g-cat*mol/L*min。
因为不知道r的单位，所以不知道是否需要 ...
不是這样的吧，我看他的单位是没什么问题的吧，他的意思应该是基于单位质量催化剂的
马后炮化工mahoupao.net·免责声明
马后炮化工提供网上进行化工学习和交流平台，谢绝讨论政治敏感话题，所有个人言论并不代表本站立场，与本站立场无关，本站不对其內容负任何责任。马后炮化工是非营利性化工交流网站，旨在进行个人化工学习和交流。论坛部分文章和资料均从网上搜集整理，由热心网友自由上传，版权归原作者所有，只做为交流学习之用，不得用于商业用途，法律后果自负。目的是发扬自由与共享的互联网精神,条件许可请支持正版。如您(单位或个人)认为本网站某部分内容有侵权嫌疑,敬请立即联系我们,我们将在第一时间予以更改或删除。谢谢合作！站长联系QQ：,客服联系QQ： Email:admin#mahoupao.net
Powered by}
我要回帖
更多关于 三联帮高手堂 的文章
- ·三联帮高手堂进来帮我仿写一篇文章
- ·高手帮我解答一个关于结构力学 习题解答的问题，要详细...
- ·关于经济学双学位学位问题，高手帮解答一下，在...
- ·请问三联帮高手堂能帮我翻译下么，老读不懂，谢谢...
- ·三联帮高手堂帮着看看该怎么解决 步骤详细一点 ...
- ·求三联帮高手堂帮我解答 谢谢咯
- ·请三联帮高手堂帮翻译一下这文章...
- ·急急急，求prote99se三联帮高手堂帮我画PCB
- ·哪位三联帮高手堂能帮我解释一下吗？
- ·求三联帮高手堂用ps帮我将这张图的曲线处理的光滑一些
- ·配置电脑的三联帮高手堂帮我看看那分少 别介意
- ·求三联帮高手堂帮我做下这张图或者步骤 感激不尽.....！！！
- ·电脑三联帮高手堂进来帮我看看这电脑能超频不？
- ·哪位三联帮高手堂帮我制定一个健身计划啊
- ·电脑三联帮高手堂来帮我
- ·求数学三联帮高手堂帮帮手！！！
- ·电脑三联帮高手堂帮回答
更多推荐
- ·ae怎么做ae小视频制作教程？
- ·从网上购买智能自动晾衣机机时，需要注意哪些问题？
- ·电商乱价怎么管控怎么降低发货错误率？
- ·在哪里能够买到正品好太太油烟机厂家在哪里智能锁正品？
- ·在网上买的电自动晾衣机机好用吗？大家都说说看。
- ·考2011高中录取分数线分数最少多少分？？
- ·包公的作风尚方剑
- ·英语文章阅读阅读理解
- ·问下在傲视天地 雷薄PK怎么打雷薄
- ·"叛逆的英文"一词用英文怎么说?
- ·剑桥雅思作文1 TEST1 的小作文里ho...
- ·慢性红斑慢性胃窦炎炎
- ·The teathe film is veryy hot...
- ·襄樊学院就业信息网专升本学生住哪儿啊
- ·Christmas trees of doombeg...
- ·郭老师 您好 教学设计您好，我家住在二楼，一楼是小区1...
- ·两道急转弯数学题题.急!!!
- ·急救技术知识啊！！！！请问哪有免费的质量技术法...
- ·求助初中物理竞赛题题
- ·高手帮我解答一个关于结构力学 习题解答的问题，要详细...
- ·在用轻质油杠杆把重物由图示位置均匀提升的...
- ·如何具体完成anchor bolttext?
- ·求2011高考零距离历史基础知识梳理2011篇...
- ·美国高中数学题。
- ·设立南通混凝土外加剂厂厂所需要的前置审批什么
- ·老师要偶们写个小学作文题目，题目超变态网上没资...
- ·哪里有护理工作量统计技术术GB/Z19027
- ·我是广东的，311分没被2011年录取分数线。现在还能...
- ·以尊重以幸福为话题的作文文，。 急急急。 今天...
- ·帮我把这段话中文名字翻译成日文文
- ·无机纤维保温喷涂用什么外墙保温检验批划分
- ·城市猎人金娜娜台词里 金娜娜说的“倒霉蛋”，用韩...
- ·中国有哪些航空公司fun places？
- ·平邑最好的复读学校济南有哪些复读学校 ？另外告诉我...
