因为网上没有找到配置Abaqus2017 + VS2012 + IVF2015编译子程序的资料,但本人因近期有项目,IVF2015既要给Ansys17.2开发子程序,又要给Abaqus2017开发子程序用;特别说明,Ansys17.2 + VS2012 + IVF2015编译子程序也成功,这个网上可以找到案例。
本人亲测Abaqus2017 + VS2012 + IVF2015编译子程序,很成功,并不用改百度上说的dll文件名,编译成功,感觉自己很幸运,与大家分享!
step 1, 首先安装vs2012
step 2. 安装Intel Parallel Studio XE 2015
step3 , 安装Abaqus2017
umat 子程序结果云图
umat 子程序
SUBROUTINE UMAT(STRESS, STATEV, DDSDDE, SSE, SPD,SCD, RPL, DDSDDT,
1 DRPLDE, DRPLDT, STRAN, DSTRAN, TIME, DTIME, TEMP, DTEMP,PREDEF,
2 DPRED, CMNAME, NDI, NSHR, NTENS, NSTATV, PROPS, NPROPS,
3 COORDS, DROT, PNEWDT, CELENT, DFGRD0, DFGRD1, NOEL, NPT, LAYER,
4 KSPT, KSTEP, KINC)
include 'aba_param.inc'
CHARACTER *80 CMNAME
DIMENSION STRESS(NTENS), STATEV(NSTATV),
1 DDSDDE(NTENS, NTENS), DDSDDT(NTENS), DRPLDE(NTENS),
2 STRAN(NTENS), DSTRAN(NTENS),
3TIME(2), PREDEF(1), DPRED(1),PROPS(NPROPS), COORDS(3), DROT(3,3),
4 DFGRD0(3,3), DFGRD1(3,3)
C UMAT FOR ISOTROPIC ELASTICITY
C CANNOT BE USED FOR PLANE STRESS
C -----------
C PROPS(1) --- E
C PROPS(2) --- NU
CC
IF(NDI.NE.3) THEN
WRITE(6, *) 'This umat may only be used for elements &
& 1 with three direct stress components'
CALL XIT
ENDIF
C
C ELASTIC PROPERTIES
EMOD = PROPS(1)
ENU = PROPS(2)
EBULK3 = EMOD/(1-2*ENU)
EG2 = EMOD/(1+ENU)
EG = EG2/2
EG3 = 3*EG
ELAM = (EBULK3-EG2)/3
C
C ELASTIC STIFFNESS
C
DO K1=1, NDI
DO K2=1, NDI
DDSDDE(K2, K1)=ELAM
END DO
DDSDDE(K1, K1)=EG2+ELAM
END DO
DO K1=NDI+1, NTENS
DDSDDE(K1, K1)=EG
END DO
C
C CALCULATE STRESS
C
DO K1=1, NTENS
DO K2=1, NTENS
STRESS(K2) = STRESS(K2) + DDSDDE(K2, K1)*DSTRAN(K1)
END DO
END DO
C
RETURN
END