Fortran熱源子程序設置
關注創建者：alex-zhang 創建時間：2019-07-20
Fortran熱源子程序設置的視頻教程
Abaqus中Fortran子程序的高級調試方法
本課程主要講解采用Fortran語言對Abaqus進行子程序開發時的調試方法。主要包含以下內容： 1.子程序開發過程中的一些常見錯誤分類 2.模型錯誤及語法錯誤的調試：初級調試 3.邏輯錯誤的調試：初級調試 4.錯誤預警提示 5.Visual studio環境下的高級調試：直接在Visual studio調試子程序，包含軟件設置及具體調試方法。
￥25 37分鐘 6043播放
查看
ABAQUS子程序配置（VS2017+Fortran2019+abaqus2019）
手把手教你ABAQUS子程序配置（VS2017+Fortran2019+abaqus2019）
￥20 17分鐘 638播放
查看
ABAQUS UEL自定義單元子程序手把手實例研究（Fortran語言）
； (8) 3節點三角形單元的UEL子程序; (9) ABAQUS官方手冊上的UEL子程序; (10) 網上一些經典的UEL子程序; (11) XFEM（擴展有限元）的UEL子程序(學習咨詢)。
￥200 11小時42分鐘 20517播放
查看
Fortran熱源子程序設置的實例教程
abaqus傳統攪拌摩擦焊接熱源Fortran子程序和模型inp文件
近兩年，收到許多同學關于Abaqus軟件使用過程中Fortran子程序調試的問題，在的錯誤面前許多初學者無從下手，不知如何去查找問題所在。本文將對Abaqus中子程序的調試方法以及如何對錯誤進行預警做一個簡單的介紹。
通過總結各類錯誤問題，大致可以把子程序編寫過程中的常見錯誤歸為三類：模型錯誤、語法錯誤和邏輯錯誤。
（一）模型錯誤：
有限元模型中自身材料、截面屬性、網格類型、網格劃分方式、接觸設置、邊界/載荷設置、輸出設置、軟件子程序配置等引起的錯誤，非子程序本身的錯誤。此類錯誤一般會在任務監控界面下的Error或Warning欄中有具體提示。
模型錯誤屬于有限元模型常規建模錯誤，可以先使用非子程序模型予以測試，排除建模錯誤之后，再改為子程序計算模型。該類錯誤屬于最容易解決的一類。
（二）語法錯誤：
在使用FORTRAN編寫子程序時，使用了非法的語句或者非法的格式，而引起的錯誤。該類錯誤會直接在任務監控界面提示Error:Problem during compilation編譯出錯。如下圖所示。
具體的語法錯誤內容將會顯示在與任務名同名的XXX.log文件中，該文件位于Abaqus當前的工作目錄，語法錯誤點及所在行數都有明確的提示。
例如，將以下代碼中第29行注釋掉，第28行的語句被打斷，變得不完整，將會有哪些提示信息呢？提示信息又將在哪里顯示呢？
使用文本編輯軟件（notepad++或UE等）將log文件打開，可以考單提示信息如下，具體的錯誤類型和錯誤位置都有明確的提示：
語法錯誤是許多子程序初學者經常會犯的錯誤，按照上述方式就可以快速定位錯誤位置了，至于基本的Fortran語言語法，可以參照響應的語法書。
展開 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模擬焊接（雙橢球熱源）的方法與步驟詳解（內含完整雙橢球熱源子程序）
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。可以重啟或以后再說，表明安裝完成。
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熱源子程序設置的相關專題、標簽、搜索
Fortran熱源子程序設置的最新內容
<p>網上關于abaqus子程序關聯的教程有很多，一般需要同時裝visual studio和Intel oneapi套件。這里問題主要集中在Intel oneapi套件的安裝上，絕大多數教程都是要求同時裝oneAPI Base Toolkit和oneAPI HPC Toolkit。從下圖可以看出oneAPI HPC Toolkit包含oneAPI Base Toolkit的所有組件，可以說oneAPI
<p>部分重要內容在前貼<a href="https://www.yqgqt.org.cn/post/1935832" rel="noopener noreferrer" target="_blank">如何在沒有fortran的機器上運行子程序_ABAQUS-技術鄰</a>已有所介紹，這里提供了便于用戶操作的應用程序與插件，同樣也是分兩步。這里主要說明編譯器與插件的使用說明，重復的話不再贅述。<
在VS的安裝路徑下找到環境文件。
abaqus_v6.env 老版本abaqus的環境文件
win86_64.env 新版本abaqus的環境文件
用記事本方式打開
搜索
compile_fortran=['ifort,
改為
compile_fortran=['ifort,'/free'
<p>首先你要擁有一臺配置和關聯好Fortran編譯器的電腦。</p><div contenteditable="false" width="100%">
<hr>
</div><p><br></p><p>界面操作方式如下：</p><p>如下圖所示，選中要執行的子程序文件，并將紅框中的選項改為圖中"compile and save"，點擊運行。在求解文件夾下會生成一個叫"gearpair.exe
<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><
abaqus子程序開發語言不局限fortran和c了，還能支持python！
這是一套自研的開發框架，源于客戶需要獲取分析過程的中間數據作為python機器學習程序的輸入這樣的需求。這種需求乍一聽確實非主流、非常規。
后來仔細做了一些了解，這種需求有其合理性。第一，python在數據分析、機器學習方面有豐富的資源；第二，python程序嵌入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
最近在ABAQUS中開展了CEL大變形分析，其中涉及到應變軟化子程序的嵌入，特此將最近的學習心得和各位分享一下，為大家避坑。
此文檔為VUSDFLD子程序如何在CAE中激活的步驟詳解，希望可以為有需要的朋友帶來幫助！如果有不正之處也請大家批評指正（新手小白的瑟瑟發抖）。
發現了一些問題，請查看最新版的文件！！
四階張量雙點乘：
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)
計算3*3矩陣的逆矩陣
subroutine inv3x3(A,invA,det)
implicit none
real(8), intent(in) :: A(3,3)
real(8), intent(out) :: invA(3,3), det
integer :: i,j
call deter3x3(A,det)
