24小时热门版块排行榜

返回列表

lappal727614

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 267
散金: 2
帖子: 28
在线: 7.5小时
虫号: 1444578
注册: 2011-10-15
专业: 金属材料的力学行为

[求助] 热源子程序

在用FORTRAN语言编写热源后，提交时一直出现错误，大家帮忙看看，
子程序 SUBROUTINE DFLUX(FLUX,SOL,JSTEP,JINC,TIME,NOEL,NPT,COORDS,JLTYP,
   1                TEMP,PRESS,SNAME)
C
   INCLUDE 'ABA_PARAM.INC'
   parameter(one=1.d0)
   DIMENSION FLUX(2),TIME(2),COORDS(3)
   CHARACTER*80 SNAME
   q=800
   v=0.005
   d=v*TIME

   x=COORDS(1)
   y=COORDS(2)
   z=COORDS(3)
   x0=0
   y0=0
   z0=0.0025
   a=0.0028
   b=0.0034
   c=0.0032
   PI=3.1415
   heat=6*sqrt(3.0)*q/(a*b*c*PI*sqrt(PI))
   shape=exp(-3*(x-x0)**2/c**2-3*(y-y0-d)**2/a**2-3*(z-z0)**2/b**2)
C JLTYP=1,表示为体热源
   JLTYP=1
   if(JSTEP.eq.one) then
   FLUX(1)=heat*shape
   endif
   RETURN
   END
出现错误提示：
Abaqus JOB weld-thermal
Abaqus 6.11-1
Begin Compiling Abaqus/Standard User Subroutines
05/19/12 17:12:47
ks.for(2): error #5082: Syntax error, found END-OF-STATEMENT when expecting one of: *
   SUBROUTINE DFLUX(FLUX,SOL,JSTEP,JINC,TIME,NOEL,NPT,COORDS,JLTYP,
----------------------------------------------------------------------^
ks.for(3): error #5276: Unbalanced parentheses
   1                TEMP,PRESS,SNAME)
----------------------------------------^
ks.for(3): error #5082: Syntax error, found INTEGER_CONSTANT '1' when expecting one of: ; BLOCK BLOCKDATA PROGRAM MODULE TYPE COMPLEX BYTE ...
   1                TEMP,PRESS,SNAME)
------^
ks.for(3): error #5082: Syntax error, found ')' when expecting one of: , ;
   1                TEMP,PRESS,SNAME)
----------------------------------------^
ks.for(7): error #6236: A specification statement cannot appear in the executable section.
   parameter(one=1.d0)
------^
ks.for(8): error #6236: A specification statement cannot appear in the executable section.
   DIMENSION FLUX(2),TIME(2),COORDS(3)
------^
ABA_PARAM.INC(1): error #6236: A specification statement cannot appear in the executable section.
   implicit real*8(a-h,o-z)
------^
ABA_PARAM.INC(2): error #6236: A specification statement cannot appear in the executable section.
   parameter (nprecd=2)
------^
ks.for(9): error #6236: A specification statement cannot appear in the executable section.
   CHARACTER*80 SNAME
------^
ks.for(3): error #6304: This format specifier must be of type INTEGER. [TEMP]
   1                TEMP,PRESS,SNAME)
------------------------^
ks.for(29): error #6410: This name has not been declared as an array or a function. [FLUX]
   FLUX(1)=heat*shape
------^
ks.for(31): error #6353: A RETURN statement is invalid in the main program.
   RETURN
------^
compilation aborted for ks.for (code 1)
Abaqus Error: Problem during compilation - D:\temp\Temp\ks.for
Abaqus/Analysis exited with errors
求解，谢谢各位

回复此楼

» 猜你喜欢

到新单位后，换了新的研究方向，没有团队，持续积累2区以上论文，能申请到面上吗已经有13人回复
博士申请都是内定的吗？已经有6人回复
之前让一硕士生水了7个发明专利，现在这7个获批发明专利的维护费可从哪儿支出哈？已经有5人回复
博士读完未来一定会好吗已经有29人回复
投稿精细化工已经有4人回复
高职单位投计算机相关的北核或SCI四区期刊推荐，求支招！已经有4人回复
导师想让我从独立一作变成了共一第一已经有9人回复
读博已经有4人回复
心脉受损已经有5人回复
Springer期刊投稿求助已经有4人回复

1楼2012-05-19 17:13:26

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

lappal727614

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 267
散金: 2
帖子: 28
在线: 7.5小时
虫号: 1444578
注册: 2011-10-15
专业: 金属材料的力学行为

是焊接用的移动热源
大家知道的帮忙看看啊

赞一下

回复此楼

2楼2012-05-19 19:56:20

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

相关版块跳转我要订阅楼主 lappal727614 的主题更新

返回列表