应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 请Fortran高手指点！！！
北京石油化工学院2026年研究生招生接收调剂公告
41/1返回列表
查看: 1112  |  回复: 3
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

jzq19841102

金虫 (初入文坛)

[求助] 请Fortran高手指点！！！

用Absoft70编了一个小程序，在赋值那两行一直报错，不知道怎么解决，请高手指点！！！谢谢！！！

程序如下：

Real::aa
        aa=((-5.6409215)*(10**(-13))*(TEMPE**5)
     &+(0.01374899)*(EFEPSE**5)+(0.0038608)*
     &TEMPE*(EFEPSE**4)-(2.57162431)*(10**(-5))*
     &(TEMPE**2)*(EFEPSE**3)-(1.0327334)*(10**(-7))*
     &(TEMPE**3)*(EFEPSE**2)+(6.5978419)*(10**(-10))*
     &(TEMPE**4)*EFEPSE+(6.99708629)*(10**(-10))*
     &(TEMPE**4)-(3.776971)*(EFEPSE**4)+(0.0069343)*
     &TEMPE*(EFEPSE**3)+(0.00058326)*(TEMPE**2)*
     &(EFEPSE**2)-(1.534483)*(10**(-6))*(TEMPE**3)*
     &EFEPSE+(3.5831657)*(10**(-6))*(TEMPE**3)+
     &(16.316593)*(EFEPSE**3)-(0.79593988)*TEMPE*
     &(EFEPSE**2)+(0.000486652)*(TEMPE**2)*
     &EFEPSE-(0.00921802)*(TEMPE**2)+(318.481403)*
     &(EFEPSE**2)+(0.9722918)*TEMPE*EFEPSE+(7.7097759)*
     &TEMPE-(584.3833107)*EFEPSE-2210.448129)
        IF(ISTATUS.EQ.1.AND.KELE.GT.0) THEN
        IF (TEPSE.GT.aa) THEN
         USRE2(1)=1.0-EXP(-((-4.24296403)*(10**(-12))*
     &(TEMPE**5)-(1.107242)*(EFEPSE**5)+(0.003646453)*
     &TEMPE*(EFEPSE**4)-(9.831506)*(10**(-5))*
     &(TEMPE**2)*(EFEPSE**3)+(1.301407)*(10**(-7))*
     &(TEMPE**3)*(EFEPSE**2)+(3.3214738)*(10**(-10))*
     &(TEMPE**4)*EFEPSE+(2.3691111)*(10**(-8))*(TEMPE**4)-
     &(8.739411)*(EFEPSE**4)+0.147491*TEMPE*(EFEPSE**3)+
     &0.0007152154*(TEMPE**2)*(EFEPSE**2)-(2.9709698)*
     &(10**(-6))*(TEMPE**3)*EFEPSE-(4.105068)*(10**(-5))*
     &(TEMPE**3)+131.416869*(EFEPSE**3)-(1.6836256)*TEMPE*
     &(EFEPSE**2)+0.00564391*(TEMPE**2)*EFEPSE+0.0248135*
     &(TEMPE**2)+647.23637*(EFEPSE**2)-(3.810692)*TEMPE*
     &EFEPSE+0.032757*TEMPE+821.969366*EFEPSE-3242.5681412)*
     &((TEPSE-((-5.6409215)*(10**(-13))*(TEMPE**5)+
     &(0.01374899)*(EFEPSE**5)+(0.0038608)*TEMPE*
     &(EFEPSE**4)-(2.57162431)*(10**(-5))*(TEMPE**2)*
     &(EFEPSE**3)-(1.0327334)*(10**(-7))*(TEMPE**3)*
     &(EFEPSE**2)+(6.5978419)*(10**(-10))*(TEMPE**4)*
     &EFEPSE+(6.99708629)*(10**(-10))*(TEMPE**4)-
     &(3.776971)*(EFEPSE**4)+(0.0069343)*TEMPE*(EFEPSE**3)+
     &(0.00058326)*(TEMPE**2)*(EFEPSE**2)-(1.534483)*
     &(10**(-6))*(TEMPE**3)*EFEPSE+(3.5831657)*(10**(-6))*
     &(TEMPE**3)+(16.316593)*(EFEPSE**3)-(0.79593988)*TEMPE*
     &(EFEPSE**2)+(0.000486652)*(TEMPE**2)*EFEPSE-
     &(0.00921802)*(TEMPE**2)+(318.481403)*(EFEPSE**2)+
     &(0.9722918)*TEMPE*EFEPSE+(7.7097759)*TEMPE-
     &(584.3833107)*EFEPSE-2210.448129))**
     &((-7.098369)*(10**(-9))*(TEMPE**4)+0.388622*
     &(EFEPSE**4)+0.001273*TEMPE*(EFEPSE**3)+
     &(2.773053)*(10**(-6))*(TEMPE**2)*(EFEPSE**2)+
     &(1.016019)*(10**(-6))*(TEMPE**3)*EFEPSE+
     &(-0.0195863)*TEMPE*(EFEPSE**2)+(-0.0029781)*
     &(TEMPE**2)*EFEPSE+(1.841733)*(10**(-5))*
     &(TEMPE**3)+(-5.613127)*(EFEPSE**3)+(-0.0134321)*
     &(TEMPE**2)+21.4240294*(EFEPSE**2)+2.923792*TEMPE*
     &EFEPSE+(-0.0032076)*TEMPE+(-962.367796)*EFEPSE+
     &2118.236633)))
        ELSE
        USRE2(1) = 0.0
        ENDIF
      ENDIF
      END  

其中  USRE2  : USER ELEMENT STATE VARIABLES (OUTPUT: At the End of the STEP N)
         EFEPSE : EFFECTIVE STRAIN RATE
         TEMPE  : NODAL TEMPERATURES
         ISTATUS: 0 - the begain of the step
C                       1 - the end of the step
       KELE   : ELEMENT NUMBER
       TEPSE  : TOTAL EFFECTIVE STRAIN


报错内容：cf90-324 error on line 1311 of .\def_usr.f: Assignment of a rank 1 expression to a rank 0 variable is not allowed.

cf90-324 error on line 1328 of .\def_usr.f: Assignment of a rank 1 expression to a rank 0 variable is not allowed.

报错的两行分别是：
aa=((-5.6409215)*(10**(-13))*(TEMPE**5)
USRE2(1)=1.0-EXP(-((-4.24296403)*(10**(-12))*



谢谢啦！！！

注： 附件里有txt版程序
回复此楼

» 本帖附件资源列表

  • 欢迎监督和反馈：小木虫仅提供交流平台，不对该内容负责。
    本内容由用户自主发布，如果其内容涉及到知识产权问题，其责任在于用户本人，如对版权有异议，请联系邮箱：xiaomuchong@tal.com
  • 附件 1 : 新建文本文档.txt
    • 2012-08-10 17:19:53, 5.05 K

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2012-08-10 17:20:01
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

smswt

铁杆木虫 (小有名气)

【答案】应助回帖

感谢参与，应助指数 +1
错误说出来了嘛
等号两边的rank（维度？）不一样
赞一下 回复此楼
2楼2012-08-10 22:08:26
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

hitbenxun

木虫 (小有名气)

【答案】应助回帖

★
感谢参与，应助指数 +1
xzhdty: 金币+1, 谢谢 2012-08-12 21:00:37
1、检查括号是否成对
2、检查变量是否都是纯变量，是否有数组混入其中
赞一下 回复此楼
3楼2012-08-10 22:22:33
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

chembetsey

木虫 (小有名气)

【答案】应助回帖

★
感谢参与，应助指数 +1
xzhdty: 金币+1, 谢谢参与 2012-08-12 21:00:27
程序写出这样debug也难！

aa=((-5.6409215)*(10**(-13))*(TEMPE**5)
常数不要写成这样，(-5.6409215)*10**(-13)可以直接写成 -5.6409215E-13

USRE2(1)=1.0-EXP(-((-4.24296403)*(10**(-12))*
USRE2是一个数组，你没有先定义怎么可以使用？
赞一下 回复此楼
4楼2012-08-11 03:51:20
已阅   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 jzq19841102 的主题更新
41/1返回列表
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 初试301，代码085701环境工程，本硕一致，四六级已过，有二区一作，共发表5篇论文 +5 axibli 2026-04-01 5/250 2026-04-02 12:08 by 1753564080
[考研] 324求调剂 +5 想上学求调 2026-04-01 6/300 2026-04-02 10:16 by sanrepian
[考研] 354求调剂 +4 lxb598 2026-03-31 5/250 2026-04-02 09:55 by Jaylen.
[考研] 085600 295分求调剂 +15 W55j 2026-03-30 18/900 2026-04-01 23:00 by 来看流星雨10
[考研] 0817化工学硕调剂 +11 努力上岸中！ 2026-03-31 11/550 2026-04-01 20:30 by 赖春艳
[考研] 一志愿南昌大学324求调剂 +7 hanamiko 2026-03-30 7/350 2026-04-01 13:22 by JourneyLucky
[考研] 求调剂：085600材料与化工，考材科基，总分319 +17 678lucky 2026-03-31 21/1050 2026-04-01 01:40 by 1018329917
[考研] 一志愿华东师范大学有机化学专业，初试351分，复试被刷求调剂! +9 真名有冰 2026-03-29 10/500 2026-03-31 18:01 by xhai2011
[考研] 070300化学354求调剂 +15 101次希望 2026-03-28 15/750 2026-03-31 17:58 by jp9609
[考研] 353求调剂 +3 江上枫_26 2026-03-28 3/150 2026-03-31 15:53 by jp9609
[考研] 286求调剂 +6 Faune 2026-03-30 6/300 2026-03-31 14:37 by jp9609
[考研] 085602化工求调剂（331分） +8 111@127 2026-03-30 8/400 2026-03-30 21:23 by 研究僧导导
[考研] 11408总分309，一志愿东南大学求调剂，不挑专业 +5 天赋带到THU 2026-03-29 6/300 2026-03-30 20:49 by dick_runner
[考研] 322求调剂 +10 宋明欣 2026-03-27 10/500 2026-03-30 18:47 by 544594351
[考研] 334分 一志愿武理 材料求调剂 +16 李李不服输 2026-03-26 16/800 2026-03-30 17:47 by wangjy2002
[考研] 348求调剂 +6 小懒虫不懒了 2026-03-28 6/300 2026-03-30 10:29 by Evan_Liu
[考研] 340求调剂 +6 Amber00 2026-03-26 6/300 2026-03-29 12:06 by 无际的草原
[考研] 11408软件工程求调剂 +3 Qiu学ing 2026-03-28 3/150 2026-03-28 21:50 by zhq0425
[考研] 药学105500求调剂 +3 Ssun。。 2026-03-28 3/150 2026-03-28 11:24 by lxf170613
[考研] 0856调剂 +5 求求让我有书读� 2026-03-26 6/300 2026-03-27 15:12 by caszguilin
信息提示
关闭
请填处理意见
关闭