 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 2 | 1/1 | 返回列表 |
| 查看: 2111 | 回復(fù): 1 | ||
lappal727614
|
[求助]
熱源子程序
|
|
在用FORTRAN語(yǔ)言編寫熱源后，提交時(shí)一直出現(xiàn)錯(cuò)誤，大家?guī)兔纯矗?br />
子程序 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 出現(xiàn)錯(cuò)誤提示： 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: |
回復(fù)此樓» 猜你喜歡
279分求調(diào)劑 一志愿211
已經(jīng)有12人回復(fù)
-
297求調(diào)劑
已經(jīng)有9人回復(fù)
-
085700資源與環(huán)境308求調(diào)劑
已經(jīng)有13人回復(fù)
-
材料 336 求調(diào)劑
已經(jīng)有4人回復(fù)
-
華東師范大學(xué)-071000生物學(xué)-293分-求調(diào)劑
已經(jīng)有3人回復(fù)
-
280求調(diào)劑
已經(jīng)有8人回復(fù)
-
324分 085600材料化工求調(diào)劑
已經(jīng)有4人回復(fù)
-
一志愿華中科技大學(xué)，080502，354分求調(diào)劑
已經(jīng)有5人回復(fù)
-
一志愿武理材料305分求調(diào)劑
已經(jīng)有7人回復(fù)
-
271材料工程求調(diào)劑
已經(jīng)有8人回復(fù)
lappal727614 
新蟲(chóng) (初入文壇)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 267
- 散金: 2
- 帖子: 28
- 在線: 7.5小時(shí)
- 蟲(chóng)號(hào): 1444578
- 注冊(cè): 2011-10-15
- 專業(yè): 金屬材料的力學(xué)行為
2樓2012-05-19 19:56:20
相關(guān)版塊跳轉(zhuǎn)
我要訂閱樓主 lappal727614 的主題更新
| 2 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
