ABAQUS 用户子程序 当用到某个用户子程序时，用户所关心的主要有两方面：一是 ABAQUS 提供的用户子程序的接口参数。有些参数是ABAQUS 传到用户子程序中的，例如 SUBROUTINE DLOAD 中的 KSTEP，KINC，COORDS；有些是需要用户自己定义的，例如 F。二是 ABAQUS 何时调用该用户子程序，对于不同的用户子程序 ABAQUS 调用的时间是不同的。有些是在每个 STEP 的开始，有的是 STEP 结尾，有的是在每个 INCREMENT 的开始等等。当 ABAQUS 调用用户子程序是，都会把当前的 STEP 和 INCREMENT 利用用户子程序的两个实参 KSTEP 和 KINC 传给用户子程序，用户可编个小程序把它们输出到外部文件中，这样对 ABAQUS 何时调用该用户子程序就会有更深的了解。 （子程序中很重要的就是要知道由 abaqus 提供的那些参量的意义，如下） 首先介绍几个子程序： 一．SUBROUTINE DLOAD(F,KSTEP,KINC,TIME,NOEL,NPT,LAYER,KSPT,COORDS, JLTYP,SNAME) 参数： 1． F 为用户定义的是每个积分点所作用的荷载的大小； 2． KSTEP,KINC 为 ABAQUS 传到用户子程序当前的 STEP 和 INCREMENT 值； 3． TIME(1),TIME(2)为当前 STEP TIME 和 INCREMENT TIME 的值； 4． NOEL,NPT 为积分点所在单元的编号和积分点的编号； 5． COORDS 为当前积分点的坐标； 6． 除 F 外，所有参数的值都是 ABAQUS 传到用户子程序中的。 功能： 1． 荷载可以被定义为积分点坐标、时间、单元编号和单元节点编号的函数。 2． 用户可以从其他程序的结果文件中进行相关操作来定义积分点 F 的大小。 例 1：这个例子在每个积分点施加的荷载不仅是坐标的函数，而且是随STEP 变化而变化的。 SUBROUTINE DLOAD(P,KSTEP,KINC,TIME,NOEL,NPT,LAYER,KSPT,COORDS, 1 JLTYP,SNAME) INCLUDE 'ABA_PARAM.INC' C DIMENSION TIME(2),COORDS(3) CHARACTER*80 SNAME PARAMETER (PLOAD=100.E4) IF (KSTEP.EQ.1) THEN ！当 STEP=1 时的荷载大小 P=PLOAD ELSE IF (KSTEP.EQ.2) THEN ！当 STEP＝2 时的荷载大小 P=COORDS(1)*PLOAD ！施加在积分点的荷载 P 是坐标的函数 ELSE IF (KSTEP.EQ.3) THEN ！当 STEP=3 时的荷载大小 P=COORDS(1)**2*PLOAD ELSE IF (KSTEP.EQ.4) THEN ！当 STEP=4 时的荷载大小 P=COORDS(1)**3*PLOAD ELSE IF (KSTEP.EQ.5) THEN ！当 STEP=5 时的荷载大小 P=COORDS...
