版塊導(dǎo)航: 正在加載中...

登錄注冊

應(yīng)《網(wǎng)絡(luò)安全法》要求，自2017年10月1日起，未進(jìn)行實(shí)名認(rèn)證將不得使用互聯(lián)網(wǎng)跟帖服務(wù)。為保障您的帳號能夠正常使用，請盡快對帳號進(jìn)行手機(jī)號驗(yàn)證，感謝您的理解與支持！

24小時(shí)熱門版塊排行榜

返回列表

lappal727614

新蟲 (初入文壇)

應(yīng)助: 0 (幼兒園)
金幣: 267
散金: 2
帖子: 28
在線: 7.5小時(shí)
蟲號: 1444578
注冊: 2011-10-15
專業(yè): 金屬材料的力學(xué)行為

[求助] 熱源子程序

在用FORTRAN語言編寫熱源后，提交時(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: ; 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
求解，謝謝各位

回復(fù)此樓

» 猜你喜歡

307求調(diào)劑已經(jīng)有3人回復(fù)
265求調(diào)劑已經(jīng)有3人回復(fù)
301求調(diào)劑已經(jīng)有10人回復(fù)
303求調(diào)劑已經(jīng)有7人回復(fù)
材料工程（專）一志愿985 初試335求調(diào)劑已經(jīng)有4人回復(fù)
299求調(diào)劑已經(jīng)有6人回復(fù)
083200學(xué)碩321分一志愿暨南大學(xué)求調(diào)劑已經(jīng)有3人回復(fù)
初始318分求調(diào)劑（有工作經(jīng)驗(yàn)）已經(jīng)有3人回復(fù)
二本跨考鄭大材料306英一數(shù)二已經(jīng)有3人回復(fù)
化學(xué)求調(diào)劑已經(jīng)有5人回復(fù)

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

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

lappal727614

新蟲 (初入文壇)

應(yīng)助: 0 (幼兒園)
金幣: 267
散金: 2
帖子: 28
在線: 7.5小時(shí)
蟲號: 1444578
注冊: 2011-10-15
專業(yè): 金屬材料的力學(xué)行為

是焊接用的移動熱源
大家知道的幫忙看看啊

贊一下

回復(fù)此樓

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

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

相關(guān)版塊跳轉(zhuǎn) 我要訂閱樓主 lappal727614 的主題更新

返回列表

最具人氣熱帖推薦 [查看全部]		作者	回/看	最后發(fā)表

[考研] 294求調(diào)劑材料與化工專碩 +15	陌の森林 2026-03-18	15/750	2026-03-20 23:28 by JourneyLucky
[考研] 321求調(diào)劑 +9	何潤采123 2026-03-18	11/550	2026-03-20 23:19 by JourneyLucky
[考研] 330求調(diào)劑 +4	小材化本科 2026-03-18	4/200	2026-03-20 23:13 by JourneyLucky
[考研] 考研調(diào)劑求學(xué)校推薦 +3	伯樂29 2026-03-18	5/250	2026-03-20 22:59 by JourneyLucky
[考研] 材料與化工 322求調(diào)劑 +4	然11 2026-03-19	4/200	2026-03-20 22:12 by luoyongfeng
[考研] 0817 化學(xué)工程 299分求調(diào)劑有科研經(jīng)歷有二區(qū)文章 +22	rare12345 2026-03-18	22/1100	2026-03-20 20:39 by zhukairuo
[考研] 一志愿華中農(nóng)業(yè)071010，總分320求調(diào)劑 +3	困困困困坤坤 2026-03-20	3/150	2026-03-20 20:38 by 學(xué)員8dgXkO
[考研] 材料學(xué)碩318求調(diào)劑 +5	February_Feb 2026-03-19	5/250	2026-03-19 23:51 by 23Postgrad
[考研] 320求調(diào)劑0856 +3	不想起名字112 2026-03-19	3/150	2026-03-19 22:53 by 學(xué)員8dgXkO
[考研] 一志愿天津大學(xué)化學(xué)工藝專業(yè)（081702）315分求調(diào)劑 +11	yangfz 2026-03-17	11/550	2026-03-19 15:06 by houyaoxu
[考研] 085600材料與化工調(diào)劑 324分 +10	llllkkkhh 2026-03-18	12/600	2026-03-19 14:33 by llllkkkhh
[考研] 材料考研調(diào)劑 +3	xwt。 2026-03-19	3/150	2026-03-19 11:22 by w沐陽w
[考研] 材料，紡織，生物（0856、0710），化學(xué)招生啦 +3	Eember. 2026-03-17	9/450	2026-03-18 10:28 by Eember.
[考研] 277調(diào)劑 +5	自由煎餅果子 2026-03-16	6/300	2026-03-17 19:26 by 李leezz
[考博] 26申博 +4	八6八68 2026-03-16	4/200	2026-03-17 13:00 by 輕松不少隨
[考研] 一志愿，福州大學(xué)材料專碩339分求調(diào)劑 +3	木子momo青爭 2026-03-15	3/150	2026-03-17 07:52 by laoshidan
[考研] 070303 總分349求調(diào)劑 +3	LJY9966 2026-03-15	5/250	2026-03-16 14:24 by xwxstudy
[考研] 085601材料工程315分求調(diào)劑 +3	yang_0104 2026-03-15	3/150	2026-03-15 10:58 by peike
[考研] 288求調(diào)劑 +4	奇點(diǎn)0314 2026-03-14	4/200	2026-03-14 23:04 by JourneyLucky
[考研] 一志愿哈工大材料324分求調(diào)劑 +5	閆旭東 2026-03-14	5/250	2026-03-14 14:53 by 木瓜膏

亭亭五月天在线观看,亭亭五月天在线观看,国产最新av一区二区,国产 高清 中文字幕,99re热久久亚洲综合精品成人,熟妇 一区二区三区,一级做a爰片性色毛片武则天,美女的骚穴视频播放,国产美女午夜免费视频

24小時(shí)熱門版塊排行榜

lappal727614

[求助] 熱源子程序

» 猜你喜歡

lappal727614

亭亭五月天在线观看,亭亭五月天在线观看,国产最新av一区二区,国产高清中文字幕,99re热久久亚洲综合精品成人,熟妇一区二区三区,一级做a爰片性色毛片武则天,美女的骚穴视频播放,国产美女午夜免费视频