同时调用多个umat用户子程序的讨论

wtl820520

当需要同时调用多个umat用户子程序时，可采用以下方法：
（1）在子程序中输入以下程序段
IF (CMNAME(1:4) .EQ. 'MAT1') THEN
  CALL UMAT_MAT1(argument_list)
ELSE IF(CMNAME(1:4) .EQ. 'MAT2') THEN  
CALL UMAT_MAT2(argument_list)
END IF

（2）在subroutine umat中修改如下（红色部分）
SUBROUTINE UMAT(STRESS,STATEV,DDSDDE,SSE,SPD,SCD,     1 RPL,DDSDDT,DRPLDE,DRPLDT,   
2 STRAN,DSTRAN,TIME,DTIME,TEMP,DTEMP,PREDEF,DPRED,MAT1,   
3 NDI,NSHR,NTENS,NSTATV,PROPS,NPROPS,COORDS,DROT,PNEWDT,   
4 CELENT,DFGRD0,DFGRD1,NOEL,NPT,LAYER,KSPT,KSTEP,KINC)C     
INCLUDE 'ABA_PARAM.INC'C      
CHARACTER*80 MAT1      
DIMENSION STRESS(NTENS),STATEV(NSTATV),   
1 DDSDDE(NTENS,NTENS),DDSDDT(NTENS),DRPLDE(NTENS),   
2 STRAN(NTENS),DSTRAN(NTENS),TIME(2),PREDEF(1),DPRED(1),   
3 PROPS(NPROPS),COORDS(3),DROT(3,3),DFGRD0(3,3),DFGRD1(3,3)   
user coding to define DDSDDE, STRESS, STATEV, SSE, SPD, SCD      
and, if necessary, RPL, DDSDDT, DRPLDE, DRPLDT, PNEWDT     
RETURN      
END

SUBROUTINE UMAT(STRESS,STATEV,DDSDDE,SSE,SPD,SCD,   
1 RPL,DDSDDT,DRPLDE,DRPLDT,   
2 STRAN,DSTRAN,TIME,DTIME,TEMP,DTEMP,PREDEF,DPRED,MAT2,   
3 NDI,NSHR,NTENS,NSTATV,PROPS,NPROPS,COORDS,DROT,PNEWDT,   
4 CELENT,DFGRD0,DFGRD1,NOEL,NPT,LAYER,KSPT,KSTEP,KINC)C     
INCLUDE 'ABA_PARAM.INC'C      
CHARACTER*80 MAT2      
DIMENSION STRESS(NTENS),STATEV(NSTATV),   
1 DDSDDE(NTENS,NTENS),DDSDDT(NTENS),DRPLDE(NTENS),   
2 STRAN(NTENS),DSTRAN(NTENS),TIME(2),PREDEF(1),DPRED(1),   
3 PROPS(NPROPS),COORDS(3),DROT(3,3),DFGRD0(3,3),DFGRD1(3,3)   
user coding to define DDSDDE, STRESS, STATEV, SSE, SPD, SCD      
and, if necessary, RPL, DDSDDT, DRPLDE, DRPLDT, PNEWDT     
RETURN      
END
（3）这时可以同时调用子程序umat_mat1和umat_mat2了
这是本人的学习心得，希望大家积极讨论。

wtl820520

怎么没有人回复呢，浪费精力啊

wild_domain

你写的东西在手册里都解释了啊，只要看过手册这个地方的人都知道啊，但还是要赞下你的学习精神！

dasuo

赞一个！！！

rushi241

xiexie

ppengine

谢谢！！！！

wangqi_tjjt

谢谢，正适合我的需要。

aogudusi

我补充一点手册里面没有的内容吧 ， 不知道能不能加积分

IF (CMNAME(1:4) .EQ. 'MAT1') THEN
  CALL UMAT_MAT1(argument_list)
ELSE IF(CMNAME(1:4) .EQ. 'MAT2') THEN  
  CALL UMAT_MAT2(argument_list)
END IF

诸如这样的语句里面， 'MAT1'， 'MAT2'  必须用大写，无论ABAQUS/CAE里面，你用大写还是小写字母或者大小写混合的名字给材料命名。 否则，那个条件判断不成立, IF里的UMAT也不会执行了。

Flac_hnjky

谢谢，学习学习

wwn0816

太感谢

二两酒

非常感谢

wangxia_123456

牛人啊

gan1bao2

谢谢楼主分享

fengjifang

谢谢，好人

michael_chn

希望能加分！！！ 楼主，你给出的程序中应这么改才对吧（见蓝色字体）： 当需要同时调用多个umat用户子程序时，可采用以下方法：+ `" ?* O6 ?0 m; Z7 ^ （1）在子程序中输入以下程序段 IF (CMNAME(1:4) .EQ. 'MAT1') THEN : o' m1 k2 U; z0 D   CALL UMAT_MAT1(argument_list)/ }& Y4 d4 D- b# C/ b' [ ELSE IF(CMNAME(1:4) .EQ. 'MAT2') THEN  8 ^0 T# ^' a; [ CALL UMAT_MAT2(argument_list) END IF J& Z7 m0 r/ N （2）在subroutine umat中修改如下（红色部分）' ~2 }$ ]5 T( A' @ SUBROUTINE UMAT_MAT1(STRESS,STATEV,DDSDDE,SSE,SPD,SCD,      1 RPL,DDSDDT,DRPLDE,DRPLDT,    6 h3 ~4 v9 J' C: u 2 STRAN,DSTRAN,TIME,DTIME,TEMP,DTEMP,PREDEF,DPRED,CMNAME,    3 NDI,NSHR,NTENS,NSTATV,PROPS,NPROPS,COORDS,DROT,PNEWDT,   ! C# t1 F6 w- I. D" g+ G 4 CELENT,DFGRD0,DFGRD1,NOEL,NPT,LAYER,KSPT,KSTEP,KINC)C     1 g$ ?7 ^' w5 P9 [7 `- \ INCLUDE 'ABA_PARAM.INC'      CHARACTER*80 CMNAME         Z7 P* g0 @7 Q: h" z DIMENSION STRESS(NTENS),STATEV(NSTATV),    - O8 P( k* n" B4 w) _: K) S 1 DDSDDE(NTENS,NTENS),DDSDDT(NTENS),DRPLDE(NTENS),    2 STRAN(NTENS),DSTRAN(NTENS),TIME(2),PREDEF(1),DPRED(1),    3 PROPS(NPROPS),COORDS(3),DROT(3,3),DFGRD0(3,3),DFGRD1(3,3)    + ~9 @7 y$ @) W* E* R user coding to define DDSDDE, STRESS, STATEV, SSE, SPD, SCD       and, if necessary, RPL, DDSDDT, DRPLDE, DRPLDT, PNEWDT      RETURN END * D5 r$ a$ i- Q& }' B SUBROUTINE UMAT_MAT2(STRESS,STATEV,DDSDDE,SSE,SPD,SCD,    1 RPL,DDSDDT,DRPLDE,DRPLDT,    3 p1 x5 H7 K- L" y0 m: }# e 2 STRAN,DSTRAN,TIME,DTIME,TEMP,DTEMP,PREDEF,DPRED,CMNAME,    3 NDI,NSHR,NTENS,NSTATV,PROPS,NPROPS,COORDS,DROT,PNEWDT,    4 CELENT,DFGRD0,DFGRD1,NOEL,NPT,LAYER,KSPT,KSTEP,KINC)C      INCLUDE 'ABA_PARAM.INC'      ; D9 L# e1 CHARACTER*80 CMNAME     0 z( U! Q+ r: b DIMENSION STRESS(NTENS),STATEV(NSTATV),    4 R4 K( Y5 o% ~9 j 1 DDSDDE(NTENS,NTENS),DDSDDT(NTENS),DRPLDE(NTENS),   % x; e% f0 U# V* G3 G) ?$ o% Y 2 STRAN(NTENS),DSTRAN(NTENS),TIME(2),PREDEF(1),DPRED(1),      l" A  z, r0 a' P2 F9 U 3 PROPS(NPROPS),COORDS(3),DROT(3,3),DFGRD0(3,3),DFGRD1(3,3)    # W" i( C* r0 O* _( g. u& N user coding to define DDSDDE, STRESS, STATEV, SSE, SPD, SCD       and, if necessary, RPL, DDSDDT, DRPLDE, DRPLDT, PNEWDT      RETURN      # e+ E; x4 F; o6 ~9 g$ |' G END & t5 \. g3 V+ f! e9 X. ?/ d （3）这时可以同时调用子程序umat_mat1和umat_mat2了

michael_chn

顶阿！！！

ajaxjkr

我赞同12楼michael_chn 的写法，对1楼的不同意

changhel

xie xie ! thank u very much!  我试试！

nanjizhinan

15# michael_chn
你做的不对吧，和楼主的有点不一样。也就是说两个子程序的名字是不是相应的有所改动。楼主没有子程序的改名字，对吗？还请斑竹解释一下。
楼主说的对不对啊，怎么不好用啊

nanjizhinan

两个子程序单独调用的时候没有错误，在一起的时候就是142，请问为什么呢