求助ABAQUS子程序运行错误

运行一下fortran安装文件夹中的 \Intel\Compiler\11.1\038\bin\ia32\ifortvars_ia32.bat

或者ifortvars_ia64.bat先盯烂，设置一下fortran环境。

首先介绍几个子程序：

一．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(1)**4*PLOAD

END IF

RETURN

END

这以前经常用，个人感觉VS2010好用些。

给你简单介绍下，希望可以对你有所帮助。

#开头的为注桥伍释行.

第敏铅或一步, 建立建模环境, 这一步中py将从abaqus中导入建模所需的所有程序模块

接下来定义草图环境

绘图完成不要忘记收回建模环境所占的内存

第二节: 材料激消定义

第三节: 装配

第四节: 分析步定义

第五节: 接触定义

第六节: 荷载边界定义

第七节: 网格划分控制

第八节, 任务提交及杂项功能

对于复杂的计算，编好程序，直接导入，abaqus可能不识别一些语句，自己在修改下，就一切OK了。

---