UMAT子程序问题请教

浏览:84859 回答:4
从论坛下载的 UMAT子程序,在Microsoft Visual Studio 2010中运行总是提示:1>C:\Users\Administrator\Documents\Visual Studio 2010\Projects\UMAT\UMAT\UMAT\umat.for(5): error #5102: Cannot open include file 'aba_param.inc'
求大神指点啊!
附子程序:
SUBROUTINE UMAT(STRESS,STATEV,DDSDDE,SSE,SPD,SCD,RPL,DDSDDT,
1 DRPLDE,DRPLDT,STRAN,DSTRAN,TIME,DTIME,TEMP,DTEMP,PREDEF,DPRED,
2 CMNAME,NDI,NSHR,NTENS,NSTATV,PROPS,NPROPS,COORDS,DROT,
3 PNEWDT,CELENT,DFGRD0,DFGRD1,NOEL,NPT,LAYER,KSPT,KSTEP,KINC)
include 'aba_param.inc'
CHARACTER*8 CMNAME
DIMENSION STRESS(NTENS),STATEV(NSTATV),DDSDDE(NTENS,NTENS),
1 DDSDDT(NTENS),DRPLDE(NTENS),STRAN(NTENS),DSTRAN(NTENS),
2 TIME(2),PREDEF(1),DPRED( 1),PROPS(NPROPS),COORDS(3),DROT(3,3),
3 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
C ----------------------------------------------------------------
C
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
邀请回答 我来回答

全部回答

(4)
默认 最新
焚昭岁

在vs里这样报错是没关系的,放到abaqus里能运行

2021年4月12日
评论 点赞
静默的无线电
需要把aba_param.inc文件放到工作目录或者程序目录下,这个文件在安装文件夹里,可以自己复制出来重命名下
2020年12月21日
评论 点赞
SnowWave02
估计abaqus新版本的接口有些不一样了,这个文件就是定义哪些字母开头什么类型,删除这行直接自己写一个字母开头的约定类型就可以
2020年12月21日
评论 点赞
艰难的土木僧

你好,你这个问题解决了吗?我遇到了同样的问题,自己写的移动荷载子程序和照书上写的umat子程序也是error #5102: Cannot open include file 'aba_param.inc'。那别人生成成功的移动荷载子程序到我这儿还是出现这个问题。

2020年12月21日
评论 点赞

没解决?试试专家一对一服务

换一批
    App下载
    技术邻APP
    工程师必备
    • 项目客服
    • 培训客服
    • 平台客服

    TOP