Fortran熱源子程序設置的案例
abaqus傳統攪拌摩擦焊接熱源Fortran子程序和模型inp文件 ￥19.89
abaqus傳統攪拌摩擦焊接熱源Fortran子程序和模型inp文件
Abaqus中Fortran子程序的調試方法 附ABAQUS2020關聯Fortran下載
近兩年，收到許多同學關于Abaqus軟件使用過程中Fortran子程序調試的問題，在的錯誤面前許多初學者無從下手，不知如何去查找問題所在。本文將對Abaqus中子程序的調試方法以及如何對錯誤進行預警做一個簡單的介紹。
通過總結各類錯誤問題，大致可以把子程序編寫過程中的常見錯誤歸為三類：模型錯誤、語法錯誤和邏輯錯誤。
（一）模型錯誤：
有限元模型中自身材料、截面屬性、網格類型、網格劃分方式、接觸設置、邊界/載荷設置、輸出設置、軟件子程序配置等引起的錯誤，非子程序本身的錯誤。此類錯誤一般會在任務監控界面下的Error或Warning欄中有具體提示。
模型錯誤屬于有限元模型常規建模錯誤，可以先使用非子程序模型予以測試，排除建模錯誤之后，再改為子程序計算模型。該類錯誤屬于最容易解決的一類。
（二）語法錯誤：
在使用FORTRAN編寫子程序時，使用了非法的語句或者非法的格式，而引起的錯誤。該類錯誤會直接在任務監控界面提示Error:Problem during compilation編譯出錯。如下圖所示。
具體的語法錯誤內容將會顯示在與任務名同名的XXX.log文件中，該文件位于Abaqus當前的工作目錄，語法錯誤點及所在行數都有明確的提示。
例如，將以下代碼中第29行注釋掉，第28行的語句被打斷，變得不完整，將會有哪些提示信息呢？提示信息又將在哪里顯示呢？
使用文本編輯軟件（notepad++或UE等）將log文件打開，可以考單提示信息如下，具體的錯誤類型和錯誤位置都有明確的提示：
語法錯誤是許多子程序初學者經常會犯的錯誤，按照上述方式就可以快速定位錯誤位置了，至于基本的Fortran語言語法，可以參照響應的語法書。
展開 如何在沒有fortran的機器上運行子程序02（附程序與插件） ￥80
image_process=/format,webp" data-initial-src="https://img.jishulink.com/202509/attachment/741fcf85706146d8b43b750abde1d03b.png">
</figure>
</figure><p><br></p><p>這里只需要提供想要預編譯的已經寫好的程序，選擇導出的位置點擊apply即可。</p><p><br></p><p>該應用無需安裝，下載雙擊即可運行。</p><p>系統要求為windows，并且abaqus已經關聯好fortran、vs，對abaqus的版本不限。</p><p><br></p><p>該編譯器可以用于子程序的加密操作，也可以通過所生成的二進制文件與共享庫在沒有關聯的機器上運行子程序。</p><p><br></p><p>2.<span style="color: rgb(25, 27, 31);">如何在未關聯Fortran的機器上運行子程序？
展開 Abaqus模擬焊接（雙橢球熱源）的方法與步驟詳解（內含完整雙橢球熱源子程序） ￥1.7
Abaqus模擬焊接（雙橢球熱源）的方法與步驟詳解（內含完整雙橢球熱源子程序）
ABAQUS配置Fortran子程序
ABAQUS配置Fortran子程序
在完成ABAQUS安裝的基礎上，先安裝VS2019，后安裝Fortran。
一、安裝VS
1.下載VS2019和Fortran2020(VS,fortran和ABAQUS版本相差不是太大即可）
2.打開安裝包
3.打開VS2019安裝包，解壓VS2019_0.zip。
4.點擊進入解壓后VS2019_0文件夾
5.隨便選一個版本進行安裝，這里選Setup_Professional0（其他也可嘗試。）點擊右鍵以管理員身份運行。
6.等待后，點擊繼續
7.繼續等待
8.等待后進入如下界面，選擇需要安裝的內容（選擇C++開發即可，下圖紅框內容）
9.等待安裝
10?？梢灾貑⒒蛞院笤僬f，表明安裝完成。
11.在開始界面找到VS，右鍵點擊以管理員身份運行，看是否可用。
12.選擇not now，maybe later
13.選擇喜歡的點開始
14.可點開紅框，并創建一個程序進行嘗試。如正常運行，說明VS安裝成功。
二、安裝Fortran
1.找到fortran安裝包。
2.點擊右鍵裝載（或解壓）。
3.進入文件夾，找到install右鍵以管理員身份運行。
4.等待進入安裝界面
5.選擇需要安裝的位置和內容，這里均選默認（可根據需要修改）。
6.按照圖示選擇，并點擊Next
7.選擇Choose alternative activation。
展開 如何在沒有fortran的機器上運行子程序
<p>（此貼只針對abaqus用戶）</p><p>對于需要使用子程序進行分析計算的用戶來說，配置子程序環境較為繁瑣，并且有時要在一臺沒有fortran運行環境的機器上運行子程序（例如云計算等等），這時要怎么做？</p><p>abaqus官方為我們提供了make的方法：</p><p><br></p><p><br></p><p><br></p><p><br></p><p><br></p><p><br></p><p><br></p><p><br></p><pre class="ql-syntax ql-align-center" spellcheck="false">abaqus make library=usd.for/.f90/.cpp/...
</pre><p>該方法將會把子程序進行預編譯并生成相應的共享庫（share library）文件。</p><p>.obj文件就是我們子程序經過預編譯得到的二進制文件。</p><p>.dll文件就是相應的共享庫文件，其中包含了我們所用子程序中所用的全部執行信息（像算法信息，+，-，*，/之類的）</p><p><em><u>2025.10.3添加：</u></em><em style="color: rgb(25, 27, 31);">.obj文件可以在已關聯的設備Job頁面子程序位置上直接提供，.dll文件中包含已經編寫過的子程序中全部內容，可以使用環境變量進行索引在沒關聯的設備上運行，不用在提供obj文件，兩個文件是獨立的。
展開 umat子程序編寫常用的fortran函數分享（一）
計算2*2矩陣的跡：
subroutine trace2x2(a,aii)
implicit none
real(8), intent(in) :: a(2,2)
real(8), intent(out) :: aii
aii = a(1,1)+a(2,2)
return
end subroutine trace2x2
計算3*3矩陣的跡：
subroutine trace3x3(a,aii)
implicit none
real(8), intent(in) :: a(3,3)
real(8), intent(out) :: aii
aii = a(1,1)+a(2,2)+a(3,3)
return
end subroutine trace3x3
將向量（9*1：變形梯度）轉化為3*3矩陣存儲
subroutine vecmat9(dvin,dmout)
implicit none
real(8), intent(in) :: dvin(9)
real(8), intent(out) :: dmout(3,3)
integer :: i
dmout(1,1) = dvin(1)
dmout(1,2) = dvin(2)
dmout(1,3) = dvin(3)
dmout(2,1) = dvin(4)
dmout(2,2) = dvin(5)
dmout(2,3
展開 三角形熱源 磨削子程序 abaqus
SUBROUTINE DFLUX(FLUX,SOL,KSTEP,KINC,TIME,NOEL,NPT,COORDS,
1 JLTYP,TEMP,PRESS,SNAME)
C
INCLUDE 'ABA_PARAM.INC'
C
DIMENSION FLUX(2), TIME(2), COORDS(3)
CHARACTER*80 SNAME
qm = 3.2321*10000
lc = 2
dx = (4000/60)*time(1)
distance=coords(1)-dx
if(distance>=0.0.and.distance<=2)then
Flux(1) = 2*qm*distance/2
else
Flux(1)=0
end if
RETURN
END
展開 abaqus焊接雙熱源同步焊接子程序
熱源子程序
umat子程序編寫常用的fortran函數分享（四）
四階張量雙點乘：
subroutine aaaa_dot_dot_bbbb(n,a,b,c)
include 'ABA_PARAM.INC'
dimension a(n,n,n,n), b(n,n,n,n), c(n,n,n,n)
do i = 1,n
do j = 1,n
do k = 1,n
do l = 1,n
c(i,j,k,l) = 0
do m1 = 1,n
do m2 = 1,n
c(i,j,k,l) = c(i,j,k,l) + a(i,j,m1,m2) * b(m1,m2,k,l)
end do !m2
end do !m1
end do !l
end do !k
end do !j
end do !i
return
end
四階張量與二階張量雙點乘：
展開 abaqus子程序開發：fortran-c-python混合編程開發
abaqus子程序開發語言不局限fortran和c了，還能支持python！
這是一套自研的開發框架，源于客戶需要獲取分析過程的中間數據作為python機器學習程序的輸入這樣的需求。這種需求乍一聽確實非主流、非常規。
后來仔細做了一些了解，這種需求有其合理性。第一，python在數據分析、機器學習方面有豐富的資源；第二，python程序嵌入abaqus求解器一起運行，那開發就會很方便高效；第三，借助python的pdb可以隨心所欲的設置斷點，調試程序。在此之前，python一般作為獨立程序，依賴數據文件的順序傳遞，實現與abaqus的協同。直白的講，abaqus算完了，形成數據文件再導入python。
于是火力全開研究解決方案，結果可謂“大快人心”：實現了abaqus的子程序對python的支持，而且還實現了fortran、c、python三種語言的混合編程，真正讓不同的編程語言在它最擅長的領域發揮作用。
以上介紹了abaqus子程序fortran-c-python混合編程，如有這方面的需求，歡迎私信聯系開展合作。
展開 
umat子程序編寫常用的fortran函數分享（二）
3*1向量叉乘：
subroutine vecprod(dvin1,dvin2,dvout)
implicit none
real(8), intent(in) :: dvin1(3), dvin2(3)
real(8), intent(out) :: dvout(3)
dvout(1)=dvin1(2)*dvin2(3)-dvin1(3)*dvin2(2)
dvout(2)=dvin1(3)*dvin2(1)-dvin1(1)*dvin2(3)
dvout(3)=dvin1(1)*dvin2(2)-dvin1(2)*dvin2(1)
return
end subroutine vecprod
3*1向量點乘：
subroutine dotprod(dvin1,dvin2,dvout)
implicit none
real(8), intent(in) :: dvin1(3), dvin2(3)
real(8), intent(out) :: dvout(3)
dvout = dvin1(1)*dvin2(1)+dvin1(2)*dvin2(2)+dvin1(3)*dvin2(3)
dvout = abs(dvout)
return
end subroutine dotprod
3*3矩陣的行列式的值：
subroutine deter3x3(dmin,d)
implicit none
real(8), intent(in) :: dmin(3,3
展開 abaqus_子程序_高斯熱源 ￥15
如果只是單純的溫度場分析,將分析步類型設定為熱傳遞，分析步時間按照熱源移動速度，模型大小計算得出。
邊界條件：根據需求設定輻射、散熱系數。荷載選擇表面熱流，作用區域定位在熱源照射面。預定義場設定初始溫度。
網格類型為DC3D8。
提交計算：
提交作業，在通用模塊用戶子程序一欄鍵入.for子程序路徑。
嗯，大概就這樣。
付費內容包括子程序文件，CAE模型，聯系方式。
帶內熱源的UMATHT子程序入門小例子 ￥5
結合傳熱學的理論，介紹在UMATHT實現內熱源生熱，并與用abaqus的HETVAL子程序的結果做對比，驗證正確性。（注：這個例子很簡單，大家可以根據需要進一步開發）</p><h2>1.導熱微分方程</h2><p> 為了更好得理解UMATHT需要定義變量，先介紹一下一維導熱微分方程（三維可類似推廣）。
ABAQUS中Fortran子程序問題咨詢
有沒有子程序呢？求一份子程序并且請教在模型中參數如何設置
