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
求解，谢谢各位

回复此楼

» 猜你喜欢

“人文社科而论，许多学术研究还没有达到民国时期的水平” 已经有4人回复
过年走亲戚时感受到了所开私家车的鄙视链已经有11人回复
什么是人一生最重要的？已经有4人回复
版面费该交吗已经有3人回复
今年春晚有几个节目很不错，点赞！已经有12人回复
体制内长辈说体制内绝大部分一辈子在底层，如同你们一样大部分普通教师忙且收入低已经有12人回复
基金正文30页指的是报告正文还是整个申请书已经有5人回复

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 的主题更新

返回列表