使用Dload子程序在圆柱面上施加旋转载荷

在工程实例中经常会遇到施加旋转载荷的例子，比如在高速列车车轴颈处施加一个旋转的径向载荷等。Abaqus提供了很多子程序接口，dload子程序可以很方便的实现移动或旋转载荷的施加，Dload子程序中各参数的含义如下：

SUBROUTINE DLOAD(P,KSTEP,KINC,TIME,NOEL,NPT,LAYER,KSPT,COORDS, 1JLTYP,SNAME)

其中：

F----用户定义需要施加在每个积分点上的载荷的大小；

KSTEP,KINC----ABAQUS传到用户子程序当前的分析步和增量步的值；TIME(1),TIME(2)----当前载荷步时间和总时间；

NOEL,NPT----积分点所在单元编号和积分点编号，用户也可以通过fortran语言编程输出这两个值的信息，可在ABAQUS中的MSG文件中查询到；

COORDS---当前积分点的坐标的集合，COORDS（1）、COORDS（2）、COORDS（3）分别为积分点坐标的x、y、z值的集合。

JLTYP----载荷类型

SNAME----名称

1. 案例

如图，在圆柱面上施加一个旋转的载荷，载荷的大小可以是恒定的也可以是随时间变化的。

（1）分析步可以选择静力通用分析步，做疲劳分析可以选择直接循环分析步，这里以直接循环分析步为例。圆时长和增量步大小的设置均匀子程序有关，详见子程序。

 （2）载荷的施加

定义载荷的时候选取压强（单位面积上的载荷大小，正为压，负为拉），加载的区域选取要施加的整个圆柱面，分布选择用户定义，大小输入1即可，实际加多少载荷由子程序决定。

（3）作业的提交

建立job在通用里面添加子程序，若希望计算的快些，并行里面可以多加几个处理器。

3.简单的计算结果