| 查看: 2181 | 回复: 1 | ||
lappal727614
|
[求助]
热源子程序
|
|
在用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: |
回复此楼» 猜你喜欢
为什么资助数各大高校都创新高，自己申请怎么就这么难
已经有17人回复
-
国社科又开始会评了，不知道这次命运如何
已经有13人回复
-
麻烦专家们看看评委们的意见（F口面上）
已经有13人回复
-
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急
已经有4人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有6人回复
-
科研人应该花精力去思考如何解决问题，而不是去凝练问题
已经有14人回复
-
要骂人了，新模版改版就是要淡化问题凝练这种虚的东西，结果有个评委还在说凝练得不够
已经有17人回复
-
基金系统什么内容也没有
已经有10人回复
-
学科评审组评审是指会评吗？
已经有5人回复
-
面上函评意见出来了，像什么等级？
已经有17人回复
lappal727614 
新虫 (初入文坛)
- 应助: 0 (幼儿园)
- 金币: 267
- 散金: 2
- 帖子: 28
- 在线: 7.5小时
- 虫号: 1444578
- 注册: 2011-10-15
- 专业: 金属材料的力学行为
2楼2012-05-19 19:56:20
30