DLOAD子程序說明
————————————————————————————————————
Use this subroutine to define nonuniform, distributed
mechanical loads (pressures and body forces).
使用此子程序定義非均勻的分布式機械負載（壓力和體力）。
（
當負載是時間和/或位置的復雜函數時，通常使用用戶子程序DLOAD。
通常可以用* AMPLITUDE選項建模簡單的時間函數。
子程序也可以用來定義一個隨元素號和/或積分點數而變化的負載。
）
————————————————————————————————————
一般用法，在INP文件中定義載荷施加的位置（關鍵字），求解時讓其與子DLOAD子程序關聯。
（
當* DLOAD或* DSLOAD選項包含不均勻的加載類型標簽時，子程序被調用。
）
*DLOAD 1, P4NU
（Apply nonuniform DLOAD to face 4 of element 1，）
（
“ABAQUS /Standard”手冊中給出了可用於任何特定單元的非均勻分布載荷類型列表。
）
DLOAD子程序接口
SUBROUTINE DLOAD(F,KSTEP,KINC,TIME,NOEL,NPT,LAYER,KSPT, 1 COORDS,JLTYP,SNAME) C INCLUDE 'ABA_PARAM.INC' C DIMENSION TIME(2), COORDS (3) CHARACTER*80 SNAME user coding to define F RETURN END
子程序中的各個參數的意義可以參考ABAQUS幫助文檔
F——分布負載的大小
KSTEP——分析步
TIME(1)——步進時間的當前值或負載比例因子的當前值
TIME(2)——當前總時間值
NOEL——單元編號
NPT——根據負載類型，在元素或元素表面加載積分點數。
LAYER——層數
KSPT——當前圖層中的Section point
COORDS——積分點坐標（數組）
JLTYP——DLOAD調用的載荷類型的標識
SNAME——表面加載定義的表面名稱（JLTYP = 0）。 對於身體力或基於單元的表面載荷，表面名稱以空白形式傳遞
供參考的子程序
————————————————————————————————————
SUBROUTINE DLOAD(F, KSTEP, KINC, TIME ,NOEL, NPT, 1 LAYER, KSPT, COORDS, JLTYP, SNAME) C C EXPONENTIAL PRESSURE LOAD C INCLUDE ‘ABA_PARAM.INC’ C DIMENSION COORDS(3),TIME(2) CHARACTER*80 SNAME DATA TEN,ONE,CONST /10.,1.,-23.03/ F=TEN*(ONE-(EXP(CONST*TIME(1)))) IF(NPT.EQ.1) WRITE(6,*) ‘ LOAD APPLIED’,F,’AT TIME=’,TIME(1) RETURN END
————————————————————————————————————
（
用戶只能定義變量F 這是分布式負載的大小，單位取決於分布式負載的類型：
FL–1 對於沿一維（梁）單元的線載荷，
FL–2 表面負荷（例如壓力）和
FL–3 體力（例如重力，向心力，加速度）。
）