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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 请Fortran高手指点！！！
北京石油化工学院2026年研究生招生接收调剂公告
51/1返回列表
查看: 1113  |  回复: 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的回帖

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的回帖
查看全部 4 个回答

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的回帖
查看全部 4 个回答
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 0710生物学，325求调剂 +3 mkkkkkl 2026-04-01 3/150 2026-04-02 09:48 by Jaylen.
[考研] 274求调剂 +8 薛定谔的虎。 2026-04-01 8/400 2026-04-02 09:21 by 晴空210210
[考研] 310求调剂 +11 争取九点睡 2026-03-30 11/550 2026-04-02 09:09 by sanrepian
[考研] 291求调剂 +20 Y-cap 2026-03-29 25/1250 2026-04-01 23:49 by 欣喜777
[考研] 江苏科技大学招材料研究生 +4 Su032713. 2026-04-01 5/250 2026-04-01 22:03 by cccchenso
[考研] 290求调剂 +5 dfffsar 2026-03-29 5/250 2026-04-01 19:45 by 6781022
[考研] 一志愿西安交大材料学硕（英一数二）347，求调剂到高分子/材料相关专业 +7 zju51 2026-03-31 9/450 2026-04-01 19:35 by CFQZAFU
[考研] 362求调剂 +13 西南交材料专硕3 2026-03-31 13/650 2026-04-01 17:38 by JYD2011
[考研] 0703求调剂 +4 zizimo 2026-03-31 4/200 2026-04-01 16:04 by yanflower7133
[考研] 085410人工智能 初试316分 求调剂 +3 残星拂曙 2026-03-31 3/150 2026-04-01 11:09 by 小熊raider
[考研] 求调剂，一志愿北林食品与营养095500，301分，已过六级，有科研经历 +4 快乐储蓄罐 2026-03-31 4/200 2026-04-01 09:26 by JourneyLucky
[考研] 277跪求调剂 +8 1915668 2026-03-27 13/650 2026-03-31 14:58 by 王亮_大连医科大
[考研] 一志愿中海洋材料357 +4 麦恩莉. 2026-03-30 4/200 2026-03-31 14:35 by 记事本2026
[考研] 本科211生物医学工程085409求调剂339分 +7 里子木yy 2026-03-29 7/350 2026-03-31 14:35 by fmesaito
[考研] 081200-11408-276学硕求调剂 +4 崔wj 2026-03-31 4/200 2026-03-31 11:56 by jp9609
[考研] 287求调剂 +17 land xuxu 2026-03-26 17/850 2026-03-31 11:16 by Zzxxxs
[考研] 调剂 +4 GK72 2026-03-30 4/200 2026-03-30 20:32 by dick_runner
[考研] 考研调剂 +5 Sanmu-124 2026-03-26 5/250 2026-03-30 13:36 by chemdavid
[考研] 283求调剂 +3 A child 2026-03-28 3/150 2026-03-28 15:41 by ms629
[考研] 081200-314 +3 LILIQQ 2026-03-27 4/200 2026-03-28 09:41 by 保护地球你我做�
信息提示
关闭
请填处理意见
关闭