Abaqus2017 + VS2012 + IVF2015编译子程序

     因为网上没有找到配置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 子程序结果云图

Abaqus2017 + VS2012 + IVF2015编译子程序_第1张图片

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
      
              
         

你可能感兴趣的:(Abaqus2017 + VS2012 + IVF2015编译子程序)