24小时热门版块排行榜

>论坛更新日志 (3006)
>虫友互识 (372)
>文献求助 (222)
>硕博家园 (162)
>导师招生 (144)
>论文投稿 (93)
>休闲灌水 (79)
>博后之家 (76)
>招聘信息布告栏 (75)
>考博 (60)
>基金申请 (58)
>教师之家 (52)
>金融投资 (43)
>找工作 (33)
>考研 (31)
>论文道贺祈福 (28)

返回列表

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

回复此楼

» 猜你喜欢

求助一下有机合成大神已经有3人回复
拟解决的关键科学问题还要不要写已经有8人回复
最失望的一年已经有13人回复
存款400万可以在学校里躺平吗已经有30人回复
求推荐英文EI期刊已经有5人回复
请教限项目规定已经有4人回复
国自然申请面上模板最新2026版出了吗？已经有20人回复
26申博已经有3人回复
基金委咋了？2026年的指南还没有出来？已经有10人回复
基金申报已经有6人回复

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

返回列表